CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 CHAIN LOADER CHAIN PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB CHAIN LOADER 102 * 103 * IF RUN FROM CARDS, JUST LOAD THE NEXT PROGRAM. 104 * 105 * OTHERWISE, LOAD THE PROGRAM SELECTED BY PARAMETERS IN 106 * 181-186. CLEAR FROM 100-180 AND 200 TO THE ADDRESS IN 107 * 187-189. IF 189 IS BLANK, USE 3999 FOR THE TOP ADDRESS 108 * TO CLEAR 109 * 110 * STOPS: 111 * 86 IN A-STAR AND B-STAR ON READ ERRORS. 112 * 99 IN A-STAR AND B-STAR ON END OF FILE. 113 * 114 * FIELDS IN HEADER RECORDS 115 * 116 ISHEAD EQU 80 A = FOR HEADER 0080 117 HEADTP EQU 79 T = TEST, C = CHAIN, H = PRINT, E = EOF 0079 118 HEADID EQU 76 0076 119 * 120 * RESERVED MEMORY TO CONTROL THE CHAIN LOADER AND EACH PROGRAM. 121 * THE LOW-ORDER DIGIT OF THE ADDRESS OF TARGID MUST BE SIX. 122 * 123 TARGEQ EQU 181 / FOR 'RUN TARGET IF UNEQUAL,' 0181 124 * S FOR 'RUN TARGET IF EQUAL,' 125 * T FOR 'RUN IF TARGET ID LESS THAN TEST ID,' 126 * U FOR 'RUN IF TARGET ID GREATER THAN TEST ID,' 127 * B...G FOR 'RUN IF THE SPECIFIED SENSE SWITCH 128 * IS ON.' 129 * BLANK FOR UNCONDITIONAL 130 TARGNC EQU 182 LAST DIGIT OF TARGET ADDRESS 3-6 0182 131 TARGID EQU 186 TARGET ID 0186 132 TOPADR EQU 189 TOP ADDRESS TO CLEAR, MAX 3999 0189 133 * 134 ORG 201 0201 135 * 136 * LOAD THE PROGRAM. CLEAR CORE, EXCEPT FOR PARAMETER AREA, FIRST. 137 * 138 ORG 201 0201 139 LOAD SW 300 DONE WHEN THIS IS CLEARED 4 0201 , 300 4 140 LCA TOP4K,CLEAR&3 DEFAULT TOP ADDRESS TO CLEAR 7 0205 L 263 234 4 141 BCE CLEARL,TOPADR, USE DEFAULT IF PARAMETER BLOCK BLANK 8 0212 B 227 189 4 142 MCW TOPADR,CLEAR&4 7 0220 M 189 235 4 143 CLEARL CW CLEAR&1 4 0227 ) 232 4 144 CLEAR CS 0-0 CLEAR A HUNDRED 4 0231 / 000 4 145 SW CLEAR&1 4 0235 , 232 4 146 A @I0@,CLEAR&2 SUBTRACT A HUNDRED 7 0239 A 265 233 5 147 BW CLEARL,300 MORE TO DO? 8 0246 V 227 300 1 5 1 CHAIN LOADER CHAIN PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 CS 1,299 CLEAR ME AND RUN THE HEADER 7 0254 / 001 299 5 149 TOP4K DSA 3999 3 0263 I99 5 150 LTORG * 0264 DCW @I0@ 2 0265 LIT 5 151 * 152 * START HERE 153 * 154 START BCE TAPE,81," TAPE LOAD DEPOSITS GM IN 81 8 0266 B 282 081 " 5 155 SW 1 4 0274 , 001 5 156 R 1 4 0278 1 001 6 157 TAPE LCA GM,81 DON'T CLOBBER THE LOADER 7 0282 L 452 081 6 158 CW GM SO THE HEADER CAN READ OTHER PROGRAMS 4 0289 ) 452 6 159 * 160 * SKIP TO A HEADER 161 * 162 SKIP1 RTW 1,1 READ A RECORD 8 0293 L %U1 001 R 6 163 BER SKIPER OOPS, IT'S AN ERROR 5 0301 B 323 L 6 164 BEF SKIPEF END OF FILE 5 0306 B 337 K 6 165 BCE HEADER,ISHEAD,A IT'S A HEADER 8 0311 B 351 080 A 7 166 B SKIP1 GO GET ANOTHER ONE 4 0319 B 293 7 167 * 168 * ERROR WHILE HUNTING FOR A HEADER RECORD 169 * 170 SKIPER BSP 1 BACKSPACE 5 0323 U %U1 B 7 171 SKIPQ NOP 86 4 0328 N 086 7 172 H 1 0332 . 7 173 B SKIP1 TRY AGAIN 4 0333 B 293 7 174 * 175 * END OF FILE WHILE HUNTING FOR A HEADER RECORD 176 * 177 SKIPEF RWD 1 REWIND 5 0337 U %U1 R 7 178 NOP 99 4 0342 N 099 8 179 H 1 0346 . 8 180 B SKIP1 TRY AGAIN 4 0347 B 293 8 181 * 182 * HEADER RECORD. 183 * 184 HEADER BCE SKIP2,HEADTP,C SKIP CHAIN LOADERS 8 0351 B 415 079 C 8 185 BCE SKIPEF,HEADTP,E END OF FILE RECORD 8 0359 B 337 079 E 8 186 BCE LOAD,TARGNC, TARGET ADDRESS DIGIT IS BLANK 8 0367 B 201 182 8 187 MN TARGNC,HEADC&3 SET UP COMPARE 7 0375 D 182 406 9 188 MN TARGNC,HEADC&6 7 0382 D 182 409 9 189 SW TARGEQ,TARGID-3 7 0389 , 181 183 9 190 MCW TARGEQ,HEADB&4 SET UP BRANCH STATUS 7 0396 M 181 414 9 191 HEADC C HEADID,TARGID TEST FOR TARGET 7 0403 C 076 186 9 192 HEADB BIN LOAD,* BRANCH TO HEADER IF COMPARE SUCCEEDS 5 0410 B 201 * 10 193 SKIP2 RTW 1,1 SKIP PROGRAM RECORD 8 0415 L %U1 001 R 10 194 BER SKIP2E OOPS, IT'S AN ERROR 5 0423 B 437 L 10 195 BEF SKIPEF END OF FILE 5 0428 B 337 K 10 196 B SKIP1 HUNT FOR HEADER 4 0433 B 293 10 1 CHAIN LOADER CHAIN PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 197 SKIP2E BSP 1 BACKSPACE 5 0437 U %U1 B 10 198 NOP 86 4 0442 N 086 10 199 H 1 0446 . 11 200 BIN SKIP2, 5 0447 B 415 11 201 * 202 GM DCW @"@ 1 0452 11 203 * 204 END START / 266 080 1 CHAIN LOADER CHAIN PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CLEAR 231 CLEARL 227 GM 452 HEADB 410 HEADC 403 HEADER 351 HEADID 76 HEADTP 79 ISHEAD 80 LOAD 201 SKIP1 293 SKIP2 415 SKIP2E 437 SKIPEF 337 SKIPER 323 SKIPQ 328 START 266 TAPE 282 TARGEQ 181 TARGID 186 TARGNC 182 TOP4K 263 TOPADR 189