BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-PUNCH 1050B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT-PUNCH 102 CTL 6611 103 ORG 333 0333 104 ORG 333 0333 105 * 106 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 107 * 108 333 START SW 8,12 7 0333 , 008 012 4 109 340 RELOAD SW 1 4 0340 , 001 4 110 344 R 1 4 0344 1 001 4 111 * 112 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 113 * 114 348 NXPROG R 1 0348 1 4 115 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 116 357 B CONT 4 0357 B 420 4 117 361 CS RELOAD,80 7 0361 / 340 080 4 118 * 119 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 120 S3 EQU 1261 1261 121 S4 EQU 1262 1262 122 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 123 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 124 * 125 ORG 377 0377 126 377 BCE TESTS4,S3,1 8 0377 B 547 S61 1 5 127 385 BIN TAPERD, 5 0385 B S88 5 128 ORG 400 0400 129 400 BEGIN CS 332 START TEST 4 0400 / 332 6 130 404 CS 1 0404 / 6 131 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 132 413 BIN CONT, 5 0413 B 420 6 133 ORG 420 0420 134 420 CONT CW D1&1,D2&1 EXPAND TABLE FROM 701-760 TO 701-820 7 0420 ) 721 741 7 135 427 LCA D3,D6 ,, 7 0427 L 760 820 7 136 434 CW D3&1,D3&1 ,, 7 0434 ) 761 761 7 137 441 CS 180 CLEAR PUNCH 4 0441 / 180 7 138 445 SW 101,201 SET WM IN PUNCH AND PRINT AREAS 7 0445 , 101 201 7 139 452 REPEAT LCA FIRST,COUNT LOAD 780 INTO CARD COUNTER 7 0452 L 607 614 7 140 459 NEXT MCW COUNT,MOVE1&3 MOVE CARD COUNTER INTO LOCATION 474-4 7 0459 M 614 476 8 141 466 MCW COUNT,MOVE2&3 MOVE CARD COUNTER INTO LOCATION 481-4 7 0466 M 614 483 8 142 473 MOVE1 MCW 5777&X1,280 MOVE TABLE INTO PRINT AREA 7 0473 M XXX 280 8 143 480 MOVE2 MCW 5777&X1,180 MOVE TABLE INTO PUNCH AREA 7 0480 M XXX 180 8 144 487 BWZ WPBR,101,2 BR TO PRINT-PUNCH & BR IF NO ZONE IN 8 0487 V 505 101 2 8 145 495 SCOPE WP PRINT-PUNCH 1 0495 6 8 146 496 BSS SCOPE,B B ON TO SCOPE 5 0496 B 495 B 9 147 501 B TEST BRANCH TO TEST FOR LAST CARD 4 0501 B 515 9 1 PRINT-PUNCH 1050B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 505 WPBR WP BTEST PRINT-PUNCH & BRANCH 4 0505 6 510 9 149 509 H ERROR STOP IF NO BRANCH 1 0509 . 9 150 510 BTEST BSS WPBR,B B ON TO SCOPE 5 0510 B 505 B 9 151 515 TEST C LAST,COUNT COMPARE CARD COUNTER WITH 799 7 0515 C 611 614 9 152 522 BU BUMP BRANCH TO ADD 1 IF NOT 799 5 0522 B 536 / 9 153 527 BSS REPEAT,D D ON TO REPEAT TEST 5 0527 B 452 D 10 154 532 B CLEAR BRANCH TO READ NEXT RECORD 4 0532 B 559 10 155 536 BUMP A K1,COUNT ADD 1 TO CARD COUNTER 7 0536 A 608 614 10 156 543 B NEXT BRANCH TO PRINT-PUNCH NEXT CARD 4 0543 B 459 10 157 547 TESTS4 BCE BEGIN,S4,1 8 0547 B 400 S62 1 10 158 555 B NXPROG 4 0555 B 348 10 159 559 CLEAR CS 280 4 0559 / 280 10 160 563 CS 180 4 0563 / 180 11 161 567 BIN NXPROG, 5 0567 B 348 11 162 ORG 600 0600 163 DCW #5 5 0604 12 164 607 FIRST DSA D4 CONSTANT TO START CARD COUNTER 3 0607 780 12 165 608 K1 DCW 1 CONSTANT TO INCREMENT CARD COUNTER 1 0608 12 166 611 LAST DSA D5 CONSTANT TO STOP CARD COUNTER 3 0611 799 12 167 614 COUNT DCW @XXX@ CARD COUNTER 3 0614 12 168 ORG 701 0701 169 720 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE PRINT-PUNCHED 20 0720 13 170 740 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0740 14 171 760 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0760 15 172 780 D4 DS 20 0780 173 799 D5 DS 19 0799 174 820 D6 DS 21 0820 175 * 176 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 177 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 178 * THAT TRANSFERS CONTROL TO THE PROGRAM. 179 * 180 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 181 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 182 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 183 * 184 ORG 1200 1200 185 1 200 TITLPR W PRINT (SPACE). 1 1200 2 16 186 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 16 187 1 205 LCA 76,276 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 076 276 16 188 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 16 189 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 16 190 1 217 W CONT PRINT (SPACE). 4 1217 2 420 16 191 1 221 DCW #1 1 1221 16 192 END START / 333 080 1 PRINT-PUNCH 1050B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 400 BTEST 510 BUMP 536 CLEAR 559 CONT 420 COUNT 614 D1 720 D2 740 D3 760 D4 780 D5 799 D6 820 FIRST 607 HDRS 1120 K1 608 LAST 611 MOVE1 473 MOVE2 480 NEXT 459 NXPROG 348 RELOAD 340 REPEAT 452 S3 1261 S4 1262 SCOPE 495 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST 515 TESTS4 547 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 WPBR 505