BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-READ-PUNCH 1080B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT-READ-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 REPEAT 4 0357 B 429 4 119 361 REL1 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 S1 EQU 1261 1261 124 S2 EQU 1262 1262 125 S3 EQU 1263 1263 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 TPTST1 BCE TESTS2,S1,1 8 0377 B 501 S61 1 6 131 385 BTAPRD BIN TAPERD, 5 0385 B S88 6 132 ORG 393 0393 133 393 TAPMOD MCW BTAPRD&3,TPTST1&3 7 0393 M 388 380 7 134 400 BEGIN CS 332 START TEST 4 0400 / 332 7 135 404 CS 1 0404 / 7 136 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 137 413 BIN CONT, 5 0413 B 420 7 138 ORG 420 0420 139 420 CONT CS 80 CLEAR READ AREA 4 0420 / 080 8 140 424 SW 1 SET WM IN READ AREA 4 0424 , 001 8 141 428 R READ 1 0428 1 8 142 429 REPEAT LCA 80,180 LOAD PUNCH AREA 7 0429 L 080 180 8 143 436 MCW 80,280 LOAD PRINT AREA 7 0436 M 080 280 8 144 443 BWZ WRPB,1,2 BRANCH IF NO ZONE IN 001 8 0443 V 461 001 2 8 145 451 SCOPE1 WRP PRINT-READ-PUNCH 1 0451 7 8 146 452 BSS SCOPE1,B B ON TO SCOPE 5 0452 B 451 B 9 147 457 B LOOP BRANCH TO MODIFY CHAIN. ROUTINE 4 0457 B 471 9 1 PRINT-READ-PUNCH 1080B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 461 WRPB WRP BTEST PRINT-READ-PUNCH AND BRANCH 4 0461 7 466 9 149 465 H ERROR STOP IF NO BRANCH 1 0465 . 9 150 466 BTEST BSS WRPB,B B ON TO SCOPE 5 0466 B 461 B 9 151 471 LOOP BSS CONT,D D ON TO REPEAT TEST 5 0471 B 420 D 9 152 476 BCE LCTEST,NXPROG,B PROGRAM LOADED FROM TAPE? 8 0476 B 492 348 B 9 153 484 BCE REL1,80,A CHAIN FROM CARDS? 8 0484 B 361 080 A 10 154 492 LCTEST BLC NOCARD 5 0492 B 541 A 10 155 497 B REPEAT 4 0497 B 429 10 156 501 TESTS2 BCE TESTS3,S2,1 8 0501 B 513 S62 1 10 157 509 B NXPROG READ DETAIL OR CHAIN NEXT PROGRAM 4 0509 B 348 10 158 513 TESTS3 BCE TAPMOD,S3,1 8 0513 B 393 S63 1 10 159 521 B NXPROG READ DETAIL OR CHAIN NEXT PROGRAM 4 0521 B 348 11 160 525 NXDETL CS 180 4 0525 / 180 11 161 529 CS 80 4 0529 / 080 11 162 533 SW 1 4 0533 , 001 11 163 537 B 348 4 0537 B 348 11 164 541 NOCARD LCA 80,180 7 0541 L 080 180 11 165 548 MCW 80,280 7 0548 M 080 280 11 166 555 WP 525 4 0555 6 525 12 167 559 DCW #1 1 0559 12 168 * 169 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 170 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 171 * THAT TRANSFERS CONTROL TO THE PROGRAM. 172 * 173 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 174 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 175 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 176 * 177 ORG 1200 1200 178 1 200 TITLPR W PRINT (SPACE). 1 1200 2 13 179 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 13 180 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 13 181 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 13 182 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 13 183 1 217 W CONT PRINT (SPACE). 4 1217 2 420 13 184 1 221 DCW #1 1 1221 13 185 END START / 333 080 1 PRINT-READ-PUNCH 1080B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 400 BTAPRD 385 BTEST 466 CONT 420 HDRS 1120 LCTEST 492 LOOP 471 NOCARD 541 NXDETL 525 NXPROG 348 REL1 361 RELOAD 340 REPEAT 429 S1 1261 S2 1262 S3 1263 SCOPE1 451 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TAPMOD 393 TESTS2 501 TESTS3 513 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 TPTST1 377 WRPB 461