.MAIN. MACRO V04.00 12-MAY-82 20:43:36 PAGE 1 1 68 69 70 71 72 73 74 000000 CHAINT:: ;## 2 # 0 ## PROCEDURE CHAINT,GLOBAL 75 76 ; This routine will chain onto SUPMAC.SAV from 77 ; SUPDIR.SAV which is the preprocessor for the 78 ; supermac compiler. ISTR contains the name of 79 ; the final output file from supdir. 80 81 .MCALL .CHAIN ;## 9 # 0 ## .MCALL .CHAIN 82 104366 .GETCOR = EMT + 366 ;## 10 # 0 ## .GETCOR = EMT + 366 83 84 000000 012701 000500 mov #500,R1 ;## 12 # 0 ## LET R1 := #500; Set up chain and 85 000004 012702 000124' mov #PROG,R2 ;## 13 # 0 ## LET R2 := #PROG; get device name and program name 86 000004 .REPT 4 ;## 14 # 0 ## .REPT 4 87 mov (2)+,(1)+ ;## 15 # 0 ## LET (1)+ := (2)+; Move in device and program name 88 .ENDR ;## 16 # 0 ## .ENDR 89 90 000020 005725 tst (R5)+ ;## 18 # 0 ## PROBE (R5)+ 91 000022 012503 mov (R5)+,R3 ;## 19 # 0 ## LET R3 := (R5)+; Address of input string 92 000024 012704 000134' mov #BUF,R4 ;## 20 # 0 ## LET R4 := #BUF 93 000030 ll$1: ;## 21 # 0 ## REPEAT 94 000030 111324 movb (3),(4)+ ;## 22 # 1 ## LETB (4)+ := (3) 95 000032 122327 000000 cmpb (R3)+,#0 ;## 23 # 0 ## UNTILB (R3)+ IS #0; Shovel over..... 96 000036 001402 beq ll$4 97 000040 000167 000002 jmp ll$3 98 000044 000402 ll$4: br ll$2 99 000046 000167 177756 ll$3: jmp ll$1 100 000052 ll$2: 101 000052 012704 000134' mov #BUF,R4 ;## 24 # 0 ## LET R4 := #BUF; Address of device and program name.. 102 000056 ll$5: ;## 25 # 0 ## REPEAT 103 000056 111421 movb (4),(1)+ ;## 26 # 1 ## LETB (1)+ := (4) 104 000060 122427 000000 cmpb (4)+,#0 ;## 27 # 0 ## UNTILB (4)+ IS #0 105 000064 001402 beq ll$8 106 000066 000167 000002 jmp ll$7 107 000072 000402 ll$8: br ll$6 108 000074 000167 177756 ll$7: jmp ll$5 109 000100 ll$6: 110 000100 012700 000030 mov #24.,R0 ;## 28 # 0 ## LET R0 := #24.;ASK FOR 24 KW OF CORE 111 000104 104366 .GETCOR ;## 29 # 0 ## .GETCOR 112 000106 103402 bcs .+6 ;## 30 # 0 ## ON.ERROR 113 000110 000167 000002 jmp ll$9 114 000114 000000 HALT ;## 31 # 1 ## HALT 115 000116 ll$9: ;## 32 # 0 ## FI 116 000116 .CHAIN ;## 33 # 0 ## .CHAIN; Chain to program 117 118 000124 PROG: 119 000124 075250 .RAD50 /SY / ;## 35 # 0 ## .RAD50 /SY / 120 000126 075030 100014 .RAD50 /SUPTST/ ;## 36 # 0 ## .RAD50 /SUPTST/ 121 000132 073376 .RAD50 /SAV/ ;## 37 # 0 ## .RAD50 /SAV/; Stuff needed!! 122 000134 BUF: 123 000134 .BLKB 13. ;## 38 # 0 ## .BLKB 13. .MAIN. MACRO V04.00 12-MAY-82 20:43:36 PAGE 1-1 124 ;## 39 # 0 ## .END 125 ;SUPERMAC Errors Detected: 0 126 ; 1 0 0 0 8 0 0 0 0 1 127 ; 47 0 0 29 0 1 1 0 29 9 128 ; 0 9 0 0 0 29 0 1 124 0 129 ; 0 1 1 0 11 0 2 0 33 29 130 ; 4 0 0 2 2 0 2 0 0 0 131 ; 0 0 0 0 0 0 0 0 0 0 132 ; 0 0 0 0 0 0 0 0 0 0 133 ; 0 0 0 0 0 0 134 000001 .END .MAIN. MACRO V04.00 12-MAY-82 20:43:36 PAGE 1-2 SYMBOL TABLE BUF 000134R LL$2 000052R LL$5 000056R LL$8 000072R PROG 000124R CHAINT 000000RG LL$3 000046R LL$6 000100R LL$9 000116R .GETCO= 104366 LL$1 000030R LL$4 000044R LL$7 000074R . ABS. 000000 000 000151 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 8960 WORDS ( 35 PAGES) DYNAMIC MEMORY AVAILABLE FOR 23 PAGES CHAINT,CHAINT=CHAINT