BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 LOAD MOVE COMPARE 0110B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB LOAD MOVE COMPARE 102 CTL 6611 103 * 104 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 105 * 106 ORG 333 0333 107 * 108 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 109 * 110 333 START SW 8,12 7 0333 , 008 012 4 111 340 RELOAD SW 1 4 0340 , 001 4 112 344 R 1 4 0344 1 001 4 113 * 114 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 115 * 116 348 DETAIL R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 BCONT B CONT 4 0357 B 421 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 * 126 ORG 377 0377 127 377 BIN SWITCH, USE WHEN TESTS ARE RUN FROM TAPE 5 0377 B 389 6 128 ORG 385 0385 129 385 B TAPERD ,, 4 0385 B S88 7 130 389 SWITCH NOP 0 ,, 4 0389 N 000 7 131 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 7 132 400 BEGIN CS 332 4 0400 / 332 7 133 404 CS 1 0404 / 7 134 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 135 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 136 417 B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 137 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 138 428 LCA 80,299 ,, 7 0428 L 080 299 8 139 435 LCA 72,272 ,, 7 0435 L 072 272 8 140 442 BIN TEST72, 5 0442 B 482 8 141 ORG 449 0449 142 449 LOAD1 LCA 210,270 LOAD OP WITH CHAINING 7 0449 L 210 270 9 143 456 LCA ,, 1 0456 L 9 144 457 BTEST BSS SCOPE,B 5 0457 B 935 B 9 145 462 CW 270 TEST FOR ERROR 4 0462 ) 270 9 146 466 C 270,250 ,, 7 0466 C 270 250 9 147 473 BU UNEQ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0473 B 900 / 9 1 LOAD MOVE COMPARE 0110B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 478 B BUMP GO BUMP THE LOOP COUNTER 4 0478 B 920 9 149 482 TEST72 BCE LOAD2,72,L 8 0482 B 502 072 L 10 150 490 BCE MOVE,72,M 8 0490 B 513 072 M 10 151 498 BADINP H BADINP BAD INPUT -- NEITHER L NOR M 4 0498 . 498 10 152 502 LOAD2 SW 210,241 7 0502 , 210 241 10 153 509 B LOAD1 4 0509 B 449 10 154 513 MOVE SW 241,270 7 0513 , 241 270 10 155 520 MCW 210,270 7 0520 M 210 270 11 156 527 MCW 1 0527 M 11 157 528 B BTEST 4 0528 B 457 11 158 532 DCW #1 1 0532 11 159 ORG 900 0900 160 900 UNEQ LCA 1114,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 12 161 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 12 162 912 W BUMP ERROR PRINT 4 0912 2 920 12 163 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 12 164 920 BUMP A *-6,COUNT BUMP COUNTER 7 0920 A 920 970 12 165 927 BCE 944,COUNT-1,9 TEN TIMES YET? 8 0927 B 944 969 9 12 166 935 SCOPE CS 332 4 0935 / 332 12 167 939 CS 1 0939 / 13 168 940 B CONT 4 0940 B 421 13 169 944 S COUNT CLEAR COUNTER 4 0944 S 970 13 170 948 BSS CORRPR,C 5 0948 B 957 C 13 171 953 B DTEST 4 0953 B 958 13 172 957 CORRPR W 1 0957 2 13 173 958 DTEST BSS CONT,D 5 0958 B 421 D 13 174 963 B DETAIL 4 0963 B 348 14 175 970 COUNT DCW @000?@ 4 0970 14 176 971 DCW #1 1 0971 14 177 ORG 1110 1110 178 1 114 DCW @ERROR@ 5 1114 15 179 1 119 DCW @ @ 5 1119 15 180 1 139 DCW @A FIELD @ 20 1139 15 181 1 159 DCW @B FIELD @ 20 1159 16 182 1 179 DCW @RESULT SHOULD BE @ 20 1179 17 183 1 199 DCW @RESULT IS @ 20 1199 18 184 * 185 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 186 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 187 * THAT TRANSFERS CONTROL TO THE PROGRAM. 188 * 189 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 190 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 191 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 192 * 193 ORG 1200 1200 194 1 200 TITLPR W PRINT (SPACE). 1 1200 2 18 195 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 18 196 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 18 197 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 18 1 LOAD MOVE COMPARE 0110B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 18 199 1 217 W PRINT (SPACE). 1 1217 2 18 200 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 19 201 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 19 202 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 19 203 1 236 W PRINT SECOND LINE. 1 1236 2 19 204 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 19 205 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 19 206 1 245 DCW #1 1 1245 19 207 END START / 333 080 1 LOAD MOVE COMPARE 0110B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BADINP 498 BCONT 357 BEGIN 400 BTEST 457 BUMP 920 CONT 421 CORRPR 957 COUNT 970 DETAIL 348 DTEST 958 ERRHLT 916 HDRS 1120 LOAD1 449 LOAD2 502 MOVE 513 RELOAD 340 SCOPE 935 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST72 482 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 UNEQ 900