BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RIPPLE PUNCH 1030A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RIPPLE PUNCH 102 * 103 * SENSE SWITCHES: 104 * B ON TO REPEAT INNER TEST -- FOR SCOPING 105 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 106 * 107 * HALTS: 108 * 499 (500 IN I-STAR) IF PUNCH-AND-BRANCH FAILS TO BRANCH 109 * 110 * STUFF IN THE PREAMBLE 111 * 112 ORG 333 0333 113 * 114 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 115 * 116 333 START SW 8,12 PROGRAM CHAINING ROUTINE 7 0333 , 008 012 4 117 340 RELOAD SW 1 ,, 4 0340 , 001 4 118 344 R 1 ,, 4 0344 1 001 4 119 * 120 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 121 * 122 348 DETAIL R READ DETAIL OR PROGRAM HEADER 1 0348 1 4 123 349 TPTEST BCE *&5,80,A BRANCH IF HEADER 8 0349 B 361 080 A 4 124 357 BCONT B CONT CONTINUE PROGRAM 4 0357 B 421 4 125 361 CS RELOAD,80 BRANCH TO CHAINING ROUTINE 7 0361 / 340 080 4 126 368 DCW #1 1 0368 5 127 * 128 TAPES3 EQU 1262 1 IF TESTS ARE NOT READ FROM TAPE 1262 129 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 130 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 131 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 132 * 133 CONT EQU 421 DETAIL READER USUALLY CONTINUES HERE 0421 134 ORG 377 0377 135 377 BCE SWITCH,TAPES3,1 USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B 389 S62 1 6 136 385 B TAPERD ,, 4 0385 B S88 6 137 389 SWITCH NOP 0 ,, 4 0389 N 000 6 138 393 MCW BCONT&3,SWITCH&3 ,, 7 0393 M 360 392 6 139 400 BEGIN CS 332 START TEST 4 0400 / 332 6 140 404 CS 1 0404 / 6 141 405 LCA BRET&4,NOHEAD&4 MODIFY TITLE PRINT TO SKIP HEADINGS 7 0405 L 604 S22 6 142 412 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0412 B S00 S52 1 7 143 420 RET CW D1&1,D2&1 EXPAND TABLE FROM 701-760 TO 701-880 7 0420 ) 721 741 7 144 427 LCA D3,D4 ,, 7 0427 L 760 820 7 145 434 LCA D3,D5 ,, 7 0434 L 760 880 7 146 441 CW D3&1,D4&1 ,, 7 0441 ) 761 821 7 147 448 CS 180 CLEAR PUNCH AREA 4 0448 / 180 8 1 RIPPLE PUNCH 1030A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 452 SW 101 SET WM IN PUNCH AREA 4 0452 , 101 8 149 456 INNER LCA KSTART,COUNT LOAD CARD COUNTER 7 0456 L 607 614 8 150 463 NEXT MCW COUNT,*&4 MOVE CARD COUNTER INTO NEXT INSTRUCTI 7 0463 M 614 473 8 151 470 MCW D3&20,180 MOVE TABLE INTO PUNCH AREA 7 0470 M 780 180 8 152 477 BWZ SCOPE2,101,2 BR TO PUNCH AND BRANCH IF NO ZONE IN 8 0477 V 495 101 2 8 153 485 SCOPE1 P PUNCH 1 0485 4 8 154 486 BSS SCOPE1,B B ON TO SCOPE 5 0486 B 485 B 9 155 491 B TEST BRANCH TO TEST FOR LAST CARD 4 0491 B 505 9 156 495 SCOPE2 P BRANCH PUNCH & BRANCH 4 0495 4 500 9 157 499 H ERROR STOP IF NO BRANCH 1 0499 . 9 158 500 BRANCH BSS SCOPE2,B B ON TO SCOPE 5 0500 B 495 B 9 159 505 TEST C DONE,COUNT COMPARE CARD COUNTER WITH 839 7 0505 C 611 614 9 160 512 BU MORE BRANCH TO ADD 1 IF NOT 839 5 0512 B 526 / 9 161 517 BSS INNER,D D ON TO REPEAT TEST 5 0517 B 456 D 10 162 522 B DETAIL BRANCH TO READ NEXT RECORD 4 0522 B 348 10 163 526 MORE A K1,COUNT ADD 1 TO CARD COUNTER 7 0526 A 608 614 10 164 533 BIN NEXT, BRANCH TO PUNCH NEXT CARD 5 0533 B 463 10 165 ORG 600 0600 166 600 BRET BIN RET, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0600 B 420 11 167 607 KSTART DSA D3&20 CONSTANT TO START CARD COUNTER 3 0607 780 11 168 608 K1 DCW 1 CONSTANT TO INCREMENT CARD COUNTER 1 0608 11 169 611 DONE DSA D3&79 CONSTANT TO STOP CARD COUNTER 3 0611 839 11 170 614 COUNT DCW @XXX@ CARD COUNTER 3 0614 11 171 ORG 701 0701 172 720 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE RIPPLE PUNCHED 20 0720 12 173 740 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0740 13 174 760 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0760 14 175 820 D4 DS 60 0820 176 880 D5 DS 60 0880 177 * 178 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 179 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 180 * THAT TRANSFERS CONTROL TO THE PROGRAM. 181 * 182 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 183 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 184 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 185 * 186 ORG 1200 1200 187 1 200 TITLPR W PRINT (SPACE). 1 1200 2 15 188 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 15 189 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 15 190 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 15 191 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 15 192 1 217 W PRINT (SPACE). 1 1217 2 15 193 1 218 NOHEAD CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 15 194 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 16 195 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 16 196 1 236 W PRINT SECOND LINE. 1 1236 2 16 197 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 16 1 RIPPLE PUNCH 1030A PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 16 199 1 245 DCW #1 1 1245 16 200 END START / 333 080 1 RIPPLE PUNCH 1030A PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BRANCH 500 BRET 600 CONT 421 COUNT 614 D1 720 D2 740 D3 760 D4 820 D5 880 DETAIL 348 DONE 611 HDRS 1120 INNER 456 K1 608 KSTART 607 MORE 526 NEXT 463 NOHEAD 1218 RELOAD 340 RET 420 SCOPE1 485 SCOPE2 495 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TAPES3 1262 TEST 505 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349