BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 MOVE COMPARE 0200A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 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 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 127 * 128 ORG 377 0377 129 377 BIN 389, USE WHEN TESTS ARE RUN FROM TAPE 5 0377 B 389 6 130 ORG 385 0385 131 385 B TAPERD 4 0385 B S88 7 132 389 SWITCH NOP 0 4 0389 N 000 7 133 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 7 134 400 BEGIN CS 332 START TEST 4 0400 / 332 7 135 404 CS 1 0404 / 7 136 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 137 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 138 417 REPEAT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 139 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 140 428 LCA 80,299 ,, 7 0428 L 080 299 8 141 435 LCA 72,272 ,, 7 0435 L 072 272 8 142 442 SW 241,270 ,, 7 0442 , 241 270 8 143 449 SCOPE MCW 210,270 MOVE OP WITH CHAINING 7 0449 M 210 270 8 144 456 MCW ,, 1 0456 M 9 145 457 BSS SCOPE,B B ON TO SCOPE 5 0457 B 449 B 9 146 462 CW 270 TEST FOR ERROR 4 0462 ) 270 9 147 466 C 270,250 ,, 7 0466 C 270 250 9 1 MOVE COMPARE 0200A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 473 BU UNEQ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0473 B 900 / 9 149 478 BSS CORR,C C ON TO CORRECT PRINT ROUTINE 5 0478 B 950 C 9 150 483 BIN LOOP, BRANCH TO SENSE D 5 0483 B 958 9 151 ORG 900 0900 152 900 UNEQ LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 10 153 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 10 154 912 W LOOP ERROR PRINT 4 0912 2 958 10 155 916 ERRHLT H LOOP ERROR STOP 4 0916 . 958 10 156 920 DCW @ @ WORD MARK 20 0939 11 157 ORG 950 0950 158 950 CORR LCA BLANK,285 CORRECT PRINT ROUTINE 7 0950 L /19 285 12 159 957 W ,, 1 0957 2 12 160 958 LOOP BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 12 161 963 BIN REPEAT, BRANCH TO READ NEXT RECORD 5 0963 B 417 12 162 ORG 1110 1110 163 1 110 ERROR DCW @ERROR@ CONSTANTS 5 1114 13 164 1 115 BLANK DCW @ @ ,, 5 1119 13 165 1 120 DCW @A FIELD @ ,, 20 1139 13 166 1 140 DCW @B FIELD @ ,, 20 1159 14 167 1 160 DCW @RESULT SHOULD BE @ ,, 20 1179 15 168 1 180 DCW @RESULT IS @ ,, 20 1199 16 169 * 170 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 171 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 172 * THAT TRANSFERS CONTROL TO THE PROGRAM. 173 * 174 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 175 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 176 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 177 * 178 ORG 1200 1200 179 1 200 TITLPR W PRINT (SPACE). 1 1200 2 16 180 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 16 181 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 16 182 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 16 183 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 16 184 1 217 W PRINT (SPACE). 1 1217 2 16 185 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 17 186 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 17 187 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 17 188 1 236 W PRINT SECOND LINE. 1 1236 2 17 189 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 17 190 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 17 191 1 245 DCW #1 1 1245 17 192 END START / 333 080 1 MOVE COMPARE 0200A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BLANK 1119 CONT 421 CORR 950 DETAIL 348 ERRHLT 916 ERROR 1114 HDRS 1120 LOOP 958 RELOAD 340 REPEAT 417 SCOPE 449 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 UNEQ 900