BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RIPPLE READ 1040A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RIPPLE READ 102 * 103 * STUFF IN THE PREAMBLE 104 * 105 ORG 333 0333 106 * 107 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 108 * 109 333 START SW 8,12 PROGRAM CHAINING ROUTINE 7 0333 , 008 012 4 110 340 RELOAD SW 1 ,, 4 0340 , 001 4 111 344 R 1 ,, 4 0344 1 001 4 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 DETAIL R READ DETAIL OR PROGRAM HEADER 1 0348 1 4 116 349 TPTEST BCE *&5,80,A BRANCH IF HEADER 8 0349 B 361 080 A 4 117 357 BCONT B CONT CONTINUE PROGRAM 4 0357 B 421 4 118 361 CS RELOAD,80 BRANCH TO CHAINING ROUTINE 7 0361 / 340 080 4 119 368 DCW #1 1 0368 5 120 * 121 CONT EQU 421 NO CODE HERE -- DETAIL ROUTINE ONLY CHAINS 0421 122 * 123 TAPES3 EQU 1262 1 IF TESTS NOT ARE READ FROM TAPE 1262 124 TAPES4 EQU 1263 1 IF TESTS NOT ARE READ FROM TAPE 1263 125 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 126 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 127 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 128 * 129 ORG 377 0377 130 377 BCE SWITCH,TAPES4,1 USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B 389 S63 1 6 131 385 B TAPERD ,, 4 0385 B S88 6 132 389 SWITCH NOP 0 ,, 4 0389 N 000 6 133 393 MCW BCONT&3,SWITCH&3 ,, 7 0393 M 360 392 6 134 400 BEGIN CS 332 START TEST 4 0400 / 332 6 135 404 CS 1 0404 / 6 136 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 137 413 CW D1&1,D2&1 EXPAND TABLE FROM 701-760 TO 701-880 7 0413 ) 721 741 7 138 420 LCA D3,D4 ,, 7 0420 L 760 820 7 139 427 LCA D3,D5 ,, 7 0427 L 760 880 7 140 434 CW D3&1,D4&1 ,, 7 0434 ) 761 821 7 141 441 OUTER LCA K01,CCOUNT SET CARD COUNTER TO ONE 7 0441 L 690 692 7 142 448 CS 80 CLEAR READ AREA 4 0448 / 080 7 143 452 SW 1 SET WM IN 001 4 0452 , 001 8 144 456 AGAIN R READ 1 0456 1 8 145 457 LCA 80,280 LOAD CARD INTO PRINT AREA 7 0457 L 080 280 8 146 464 LCA CCOUNT,299 LOAD CARD NUMBER INTO PRINT AREA 7 0464 L 692 299 8 147 471 LCA RSTART,RCOUNT START RIPPLING COUNTER AT 779 7 0471 L 697 700 8 1 RIPPLE READ 1040A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 478 A CCOUNT,RCOUNT ADD CARD COUNTER TO RIPPLING COUNTER 7 0478 A 692 700 8 149 485 MCW RCOUNT,*&4 MOVE RIPPLING COUNTER INTO NEXT INSTR 7 0485 M 700 495 9 150 492 C 5777&X1,80 COMPARE TABLE WITH CARD 7 0492 C XXX 080 9 151 499 BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0499 B 900 / 9 152 504 BSS CORR,C C ON TO CORRECT PRINT 5 0504 B 912 C 9 153 509 TEST C CCOUNT,K60 COMPARE CARD COUNTER WITH 60 7 0509 C 692 694 9 154 516 BU MORE BR TO ADD 1 TO CARD COUNTER IF NOT 60 5 0516 B 525 / 9 155 521 B DONE BRANCH TO SENSE D IF 60 4 0521 B 536 10 156 525 MORE A K01,CCOUNT ADD 1 TO CARD COUNTER 7 0525 A 690 692 10 157 532 B AGAIN BRANCH TO READ NEXT DETAIL CARD 4 0532 B 456 10 158 536 DONE BSS OUTER,D D ON TO REPEAT TEST 5 0536 B 441 D 10 159 541 BIN DETAIL, BRANCH TO READ NEXT RECORD 5 0541 B 348 10 160 ORG 689 0689 161 690 K01 DCW @01@ CONSTANT TO INCREMENT CARD COUNTER 2 0690 11 162 692 CCOUNT DCW @XX@ CARD COUNTER 2 0692 11 163 694 K60 DCW 60 CONSTANT TO STOP CARD COUNTER 2 0694 11 164 697 RSTART DSA 779 CONSTANT TO START RIPPLING COUNTER 3 0697 779 11 165 700 RCOUNT DSA 5777&X1 RIPPLING COUNTER 3 0700 XXX 11 166 720 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE 20 0720 11 167 740 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0740 12 168 760 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0760 13 169 820 D4 DS 60 0820 170 880 D5 DS 60 0880 171 ORG 900 0900 172 900 ERRPRT LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 14 173 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 14 174 912 CORR W LOOP PRINT CARD 4 0912 2 920 14 175 916 ERRHLT H TEST ERROR STOP 4 0916 . 509 14 176 920 LOOP CS 299 CLEAR PRINT AREA 4 0920 / 299 14 177 924 SW 201 SET WM IN PRINT AREA 4 0924 , 201 14 178 928 MCW RCOUNT,*&4 MOVE RIPPLING COUNTER INTO NEXT INSTR 7 0928 M 700 938 14 179 935 MCW 5777&X1,280 MOVE TABLE INTO PRINT AREA 7 0935 M XXX 280 15 180 942 W PRINT TABLE 1 0942 2 15 181 943 CS 299 CLEAR PRINT AREA 4 0943 / 299 15 182 947 W TEST SPACE 4 0947 2 509 15 183 970 DCW #1 WORD MARK 1 0951 15 184 ORG 1110 1110 185 1 114 ERROR DCW @ERROR@ CONSTANTS 5 1114 16 186 1 119 DC #5 5 1119 16 187 1 139 DCW @FIRST LINE CARD @ ,, 20 1139 16 188 1 159 DCW @ @ ,, 20 1159 17 189 1 179 DCW @SECOND LINE TABLE @ ,, 20 1179 18 190 1 199 DCW @ @ ,, 20 1199 19 191 * 192 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 193 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 194 * THAT TRANSFERS CONTROL TO THE PROGRAM. 195 * 196 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 197 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 1 RIPPLE READ 1040A PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 199 * 200 ORG 1200 1200 201 1 200 TITLPR W PRINT (SPACE). 1 1200 2 19 202 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 19 203 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 19 204 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 19 205 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 19 206 1 217 W PRINT (SPACE). 1 1217 2 19 207 1 218 NOHEAD CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 20 208 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 20 209 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 20 210 1 236 W PRINT SECOND LINE. 1 1236 2 20 211 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 20 212 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 20 213 1 245 DCW #1 1 1245 20 214 END START / 333 080 1 RIPPLE READ 1040A PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AGAIN 456 BCONT 357 BEGIN 400 CCOUNT 692 CONT 421 CORR 912 D1 720 D2 740 D3 760 D4 820 D5 880 DETAIL 348 DONE 536 ERRHLT 916 ERROR 1114 ERRPRT 900 HDRS 1120 K01 690 K60 694 LOOP 920 MORE 525 NOHEAD 1218 OUTER 441 RCOUNT 700 RELOAD 340 RSTART 697 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TAPES3 1262 TAPES4 1263 TEST 509 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349