SMAL32 (rev  9/03)              MP1 solved by Douglas Jone   15:10:18  Page  1
                                                             Tue Oct 21 2003

                             1          TITLE   MP1 solved by Douglas Jones
                             2  
                             3          S       START
                             4          USE     "hawk.macs"
                             5          USE     "monitor.h"
+000000:+00000000            6  
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
        +00000000 
                             7          COMMON  STACK,#1000
+000030:+00000000            8  PSTACK: W       STACK
                             9  
                            10  ; the program starts here!
                            11  START:  LOAD    R2,PSTACK       ; set up the stack
+000034: F250  FFF8         12  
                            13          LOAD    R1,PDSPINI
+000038: F150  FFC8         14          JSRS    R1,R1           ; dspini() -- initialize display
+00003C: F1B1               15  
                            16          LIS     R3,10
+00003E: D30A               17          LIS     R4,2
+000040: D402               18          LOAD    R1,PDSPAT
+000042: F150  FFC2         19          JSRS    R1,R1           ; dspat(10,2)
+000046: F1B1               20  
                            21          LOAD    R3,PSTARS
+000048: F350  0048         22          LOAD    R1,PDSPST
+00004C: F150  FFC0         23          JSRS    R1,R1           ; dspst( "***" )
+000050: F1B1               24  
                            25          LIS     R3,10
+000052: D30A               26          LIS     R4,3
+000054: D403               27          LOAD    R1,PDSPAT
+000056: F150  FFAE         28          JSRS    R1,R1           ; dspat(10,3)
+00005A: F1B1               29  
                            30          LOAD    R3,PMP1
+00005C: F350  0038         31          LOAD    R1,PDSPST
+000060: F150  FFAC         32          JSRS    R1,R1           ; dspst( "*  Machine Problem 1" )
+000064: F1B1               33  
                            34          LIS     R3,15
+000066: D30F               35          LIS     R4,4
+000068: D404               36          LOAD    R1,PDSPAT
+00006A: F150  FF9A         37          JSRS    R1,R1           ; dspat(15,4)
+00006E: F1B1               38  
                            39          LOAD    R3,PJONES
+000070: F350  0028         40          LOAD    R1,PDSPST
+000074: F150  FF98         41          JSRS    R1,R1           ; dspst( "Solved by Douglas Jones  *" )
+000078: F1B1               42  
                            43          LIS     R3,38
+00007A: D326               44          LIS     R4,5
+00007C: D405               45          LOAD    R1,PDSPAT
SMAL32 (rev  9/03)              MP1 solved by Douglas Jone   15:10:18  Page  2
                                                             Tue Oct 21 2003

+00007E: F150  FF86         46          JSRS    R1,R1           ; dspat(38,5)
+000082: F1B1               47  
                            48          LOAD    R3,PSTARS
+000084: F350  000C         49          LOAD    R1,PDSPST
+000088: F150  FF84         50          JSRS    R1,R1           ; dspst( "***" )
+00008C: F1B1               51  
                            52          LOAD    R1,PEXIT
+00008E: F150  FF6E         53          JSRS    R1,R1           ; stop!
+000092: F1B1               54  
                            55          ; pointers to strings needed in this problem
                            56          ALIGN   4
+000094:+000000A0           57  PSTARS: W       STARS
+000098:+000000A4           58  PMP1:   W       MP1
+00009C:+000000B9           59  PJONES: W       JONES
                            60  
                            61          ; strings needed in this problem
+0000A0: 2A  2A  2A  00     62  STARS:  ASCII   "***",0
+0000A4: 2A  20  20  4D     63  MP1:    ASCII   "*  Machine Problem 1",0
         61  63  68  69 
         6E  65  20  50 
         72  6F  62  6C 
         65  6D  20  31 
         00 
+0000B9: 53  6F  6C  76     64  JONES:  ASCII   "Solved by Douglas Jones  *",0
         65  64  20  62 
         79  20  44  6F 
         75  67  6C  61 
         73  20  4A  6F 
         6E  65  73  20 
         20  2A  00 
                            65  
                            66          END
                    no errors