BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-PUNCH 1050A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT-PUNCH 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 NXPROG R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 B 421 WHAT'S GOING TO BE AT 421? 4 0357 B 421 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 ORG 400 0400 122 400 CS 332 START TEST 4 0400 / 332 6 123 404 CS 1 0404 / 6 124 405 LCA BCONT&4,TITLP2&4 MODIFY TITLE PRINT TO SKIP HEADING 7 0405 L 604 S22 6 125 412 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0412 B S00 S52 1 6 126 420 CONT CW D1&1,D2&1 EXPAND TABLE FROM 701-760 TO 701-820 7 0420 ) 721 741 6 127 427 LCA D3,D6 ,, 7 0427 L 760 820 6 128 434 CW D3&1,D3&1 ,, 7 0434 ) 761 761 7 129 441 CS 180 CLEAR PUNCH 4 0441 / 180 7 130 445 SW 101,201 SET WM IN PUNCH AND PRINT AREAS 7 0445 , 101 201 7 131 452 REPEAT LCA FIRST,COUNT LOAD 780 INTO CARD COUNTER 7 0452 L 607 614 7 132 459 NEXT MCW COUNT,MOVE1&3 MOVE CARD COUNTER INTO LOCATION 474-4 7 0459 M 614 476 7 133 466 MCW COUNT,MOVE2&3 MOVE CARD COUNTER INTO LOCATION 481-4 7 0466 M 614 483 7 134 473 MOVE1 MCW 5777&X1,280 MOVE TABLE INTO PRINT AREA 7 0473 M XXX 280 8 135 480 MOVE2 MCW 5777&X1,180 MOVE TABLE INTO PUNCH AREA 7 0480 M XXX 180 8 136 487 BWZ DOIT,101,2 BR TO PRINT-PUNCH & BR IF NO ZONE IN 8 0487 V 505 101 2 8 137 495 SCOPE WP PRINT-PUNCH 1 0495 6 8 138 496 BSS SCOPE,B B ON TO SCOPE 5 0496 B 495 B 8 139 501 B TEST BRANCH TO TEST FOR LAST CARD 4 0501 B 515 8 140 505 DOIT WP BTEST PRINT-PUNCH & BRANCH 4 0505 6 510 8 141 509 H ERROR STOP IF NO BRANCH 1 0509 . 9 142 510 BTEST BSS DOIT,B B ON TO SCOPE 5 0510 B 505 B 9 143 515 TEST C LAST,COUNT COMPARE CARD COUNTER WITH 799 7 0515 C 611 614 9 144 522 BU BUMP BRANCH TO ADD 1 IF NOT 799 5 0522 B 536 / 9 145 527 BSS REPEAT,D D ON TO REPEAT TEST 5 0527 B 452 D 9 146 532 B NXPROG BRANCH TO READ NEXT RECORD 4 0532 B 348 9 147 536 BUMP A K1,COUNT ADD 1 TO CARD COUNTER 7 0536 A 608 614 9 1 PRINT-PUNCH 1050A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 543 BIN NEXT, BRANCH TO PRINT-PUNCH NEXT CARD 5 0543 B 459 10 149 ORG 600 0600 150 600 BCONT BIN CONT, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0600 B 420 11 151 607 FIRST DSA D4 CONSTANT TO START CARD COUNTER 3 0607 780 11 152 608 K1 DCW 1 CONSTANT TO INCREMENT CARD COUNTER 1 0608 11 153 611 LAST DSA D5 CONSTANT TO STOP CARD COUNTER 3 0611 799 11 154 614 COUNT DCW @XXX@ CARD COUNTER 3 0614 11 155 DC #17 17 0631 11 156 ORG 701 0701 157 720 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE PRINT-PUNCHED 20 0720 12 158 740 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0740 13 159 760 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0760 14 160 780 D4 DS 20 0780 161 799 D5 DS 19 0799 162 820 D6 DS 21 0820 163 * 164 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 165 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 166 * THAT TRANSFERS CONTROL TO THE PROGRAM. 167 * 168 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 169 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 170 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 171 * 172 ORG 1200 1200 173 1 200 TITLPR W PRINT (SPACE). 1 1200 2 15 174 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 15 175 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 15 176 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 15 177 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 15 178 1 217 W PRINT (SPACE). 1 1217 2 15 179 1 218 TITLP2 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 15 180 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 16 181 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 16 182 1 236 W PRINT SECOND LINE. 1 1236 2 16 183 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 16 184 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 16 185 1 245 DCW #1 1 1245 16 186 ORG TITLSW 1252 187 1 252 DCW 1 1 1252 17 188 END START / 333 080 1 PRINT-PUNCH 1050A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 600 BTEST 510 BUMP 536 CONT 420 COUNT 614 D1 720 D2 740 D3 760 D4 780 D5 799 D6 820 DOIT 505 FIRST 607 HDRS 1120 K1 608 LAST 611 MOVE1 473 MOVE2 480 NEXT 459 NXPROG 348 RELOAD 340 REPEAT 452 SCOPE 495 START 333 TEST 515 TITLEX 413 TITLP2 1218 TITLPR 1200 TITLSW 1252 TPTEST 349