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