BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 READ-PUNCH 1070B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 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 S2 EQU 1262 1262 124 S3 EQU 1263 1263 125 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 126 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 127 * 128 ORG 377 0377 129 377 TPTST2 BCE TESTS3,S2,1 8 0377 B 494 S62 1 6 130 385 BTAPRD BIN TAPERD, 5 0385 B S88 6 131 ORG 393 0393 132 393 TAPMOD MCW BTAPRD&3,TPTST2&3 7 0393 M 388 380 7 133 400 BEGIN CS 332 START TEST 4 0400 / 332 7 134 404 CS 1 0404 / 7 135 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 136 413 BIN CONT, 5 0413 B 420 7 137 ORG 420 0420 138 420 CONT CS 80 CLEAR READ AREA 4 0420 / 080 8 139 424 SW 1 SET WM IN READ AREA 4 0424 , 001 8 140 428 R READ 1 0428 1 8 141 429 REPEAT LCA 80,180 LOAD PUNCH AREA 7 0429 L 080 180 8 142 436 BWZ RPB,1,2 BRANCH IF NO ZONE IN 001 8 0436 V 454 001 2 8 143 444 SCOPE1 RP READ-PUNCH 1 0444 5 8 144 445 BSS SCOPE1,B B ON TO SCOPE 5 0445 B 444 B 8 145 450 B LOOP BRANCH TO MODIFY CHAIN. ROUTINE 4 0450 B 464 9 146 454 RPB RP BTEST READ-PUNCH AND BRANCH 4 0454 5 459 9 147 458 H ERROR STOP IF NO BRANCH 1 0458 . 9 1 READ-PUNCH 1070B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 459 BTEST BSS RPB,B B ON TO SCOPE 5 0459 B 454 B 9 149 464 LOOP BSS CONT,D D ON TO REPEAT TEST 5 0464 B 420 D 9 150 469 BCE LCTEST,NXPROG,B PROGRAM LOADED FROM TAPE? 8 0469 B 485 348 B 9 151 477 BCE REL1,80,A CHAIN FROM CARDS? 8 0477 B 361 080 A 9 152 485 LCTEST BLC NOCARD 5 0485 B 522 A 10 153 490 B REPEAT 4 0490 B 429 10 154 494 TESTS3 BCE TAPMOD,S3,1 8 0494 B 393 S63 1 10 155 502 B NXPROG READ DETAIL OR CHAIN NEXT PROGRAM 4 0502 B 348 10 156 506 NXDETL CS 180 4 0506 / 180 10 157 510 CS 80 4 0510 / 080 10 158 514 SW 1 4 0514 , 001 10 159 518 B NXPROG 4 0518 B 348 11 160 522 NOCARD LCA 80,180 7 0522 L 080 180 11 161 529 P NXDETL 4 0529 4 506 11 162 533 DCW #1 1 0533 11 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 12 174 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 12 175 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 12 176 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 12 177 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 12 178 1 217 W CONT PRINT (SPACE). 4 1217 2 420 12 179 1 221 DCW #1 1 1221 12 180 END START / 333 080 1 READ-PUNCH 1070B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 400 BTAPRD 385 BTEST 459 CONT 420 HDRS 1120 LCTEST 485 LOOP 464 NOCARD 522 NXDETL 506 NXPROG 348 REL1 361 RELOAD 340 REPEAT 429 RPB 454 S2 1262 S3 1263 SCOPE1 444 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TAPMOD 393 TESTS3 494 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 TPTST2 377