BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RESET ADD & SUB 0330B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RESET ADD & SUB 102 CTL 6611 103 * 104 * STUFF IN THE PREAMBLE 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 PROGRAM CHAINING ROUTINE 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 READ DETAIL OR PROGRAM HEADER 1 0348 1 4 117 349 TPTEST BCE *&5,80,A BRANCH IF HEADER 8 0349 B 361 080 A 4 118 357 BCONT B CONT CONTINUE PROGRAM 4 0357 B 421 4 119 361 CS RELOAD,80 BRANCH TO CHAINING ROUTINE 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES3 EQU 1262 1 IF TESTS ARE READ FROM TAPE 1262 123 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 124 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 125 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 126 * 127 ORG 377 0377 128 377 B SWITCH USE WHEN TESTS ARE RUN FROM TAPE 4 0377 B 389 6 129 381 ORG 385 ,, 0385 130 385 B TAPERD ,, 4 0385 B S88 7 131 389 SWITCH NOP 0 ,, 4 0389 N 000 7 132 393 MCW BCONT&3,SWITCH&3 ,, 7 0393 M 360 392 7 133 400 BEGIN CS 332 START TEST 4 0400 / 332 7 134 404 CS 1 0404 / 7 135 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 136 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 137 417 NEXT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 138 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 139 428 LCA 80,299 ,, 7 0428 L 080 299 8 140 435 LCA 72,272 ,, 7 0435 L 072 272 8 141 442 BIN 516, 5 0442 B 516 8 142 ORG 449 0449 143 449 CONT3 SW 261 ,, 4 0449 , 261 9 144 453 BCE SCOPE2,10, BR TO RESET ADD 1 POS FLD IF BL IN 01 8 0453 B 484 010 9 145 461 SCOPE1 ZA 210,270 RESET ADD 10 POSITION FIELD 7 0461 ? 210 270 9 146 468 BSS SCOPE,B B ON TO SCOPE 5 0468 B 935 B 9 147 473 C 270,250 TEST FOR ERROR 7 0473 C 270 250 9 1 RESET ADD & SUB 0330B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 480 B TEST ,, 4 0480 B 507 9 149 484 SCOPE2 LCA 201,261 LOAD A FIELD 7 0484 L 201 261 10 150 491 ZA2 ZA 261 RESET ADD 1 POSITION FIELD 4 0491 ? 261 10 151 495 BSS SCOPE,B B ON TO SCOPE 5 0495 B 935 B 10 152 500 C 261,241 TEST FOR ERROR 7 0500 C 261 241 10 153 507 TEST BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0507 B 900 / 10 154 512 B BUMP GO BUMP COUNTER 4 0512 B 920 10 155 516 CONT2 SW 206,241 7 0516 , 206 241 10 156 523 BCE DOZA,72,A DO ZA? 8 0523 B 543 072 A 11 157 531 BCE DOZS,72,S DO ZS? 8 0531 B 561 072 S 11 158 539 BADINP H BADINP NEITHER -- ERRONEOUS INPUT 4 0539 . 539 11 159 543 DOZA LCA ZA,SCOPE1 7 0543 L 971 461 11 160 550 LCA ZA,ZA2 7 0550 L 971 491 11 161 557 B CONT3 4 0557 B 449 11 162 561 DOZS MCW ZS,SCOPE1 7 0561 M 972 461 12 163 568 MCW ZS,ZA2 7 0568 M 972 491 12 164 575 B CONT3 4 0575 B 449 12 165 579 DCW #1 1 0579 12 166 ORG 900 0900 167 900 ERRPRT LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 13 168 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 13 169 912 W BUMP ERROR PRINT 4 0912 2 920 13 170 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 13 171 920 BUMP A *-6,COUNT BUMP COUNT 7 0920 A 920 970 13 172 927 BCE CLEAR,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 13 173 935 SCOPE CS 332 4 0935 / 332 13 174 939 CS 1 0939 / 14 175 940 B CONT 4 0940 B 421 14 176 944 CLEAR S COUNT 4 0944 S 970 14 177 948 BSS CORR,C 5 0948 B 957 C 14 178 953 B LOOP 4 0953 B 958 14 179 957 CORR W 1 0957 2 14 180 958 LOOP BSS CONT,D 5 0958 B 421 D 14 181 963 B DETAIL 4 0963 B 348 15 182 970 COUNT DCW @000?@ 4 0970 15 183 971 ZA ZA 1 0971 ? 15 184 972 ZS ZS 1 0972 ! 15 185 ORG 1110 1110 186 1 114 ERROR DCW @ERROR@ 5 1114 16 187 1 119 DCW @ @ 5 1119 16 188 1 139 DCW @A FIELD @ 20 1139 16 189 1 159 DCW @B FIELD @ 20 1159 17 190 1 179 DCW @RESULT SHOULD BE @ 20 1179 18 191 1 199 DCW @RESULT IS @ 20 1199 19 192 * 193 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 194 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 195 * THAT TRANSFERS CONTROL TO THE PROGRAM. 196 * 197 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 1 RESET ADD & SUB 0330B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 199 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 200 * 201 ORG 1200 1200 202 1 200 TITLPR W PRINT (SPACE). 1 1200 2 19 203 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 19 204 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 19 205 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 19 206 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 19 207 1 217 W PRINT (SPACE). 1 1217 2 19 208 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 20 209 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 20 210 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 20 211 1 236 W PRINT SECOND LINE. 1 1236 2 20 212 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 20 213 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 20 214 1 245 DCW #1 1 1245 20 215 END START / 333 080 1 RESET ADD & SUB 0330B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BADINP 539 BCONT 357 BEGIN 400 BUMP 920 CLEAR 944 CONT 421 CONT2 516 CONT3 449 CORR 957 COUNT 970 DETAIL 348 DOZA 543 DOZS 561 ERRHLT 916 ERROR 1114 ERRPRT 900 HDRS 1120 LOOP 958 NEXT 417 RELOAD 340 SCOPE 935 SCOPE1 461 SCOPE2 484 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TAPES3 1262 TEST 507 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 ZA 971 ZA2 491 ZS 972