BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 CTL 6611 102 * 103 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 104 * 105 ORG 333 0333 106 * 107 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 108 * 109 333 START SW 8,12 7 0333 , 008 012 4 110 340 RELOAD SW 1 4 0340 , 001 4 111 344 R 1 4 0344 1 001 4 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 NXPROG R 1 0348 1 4 116 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 117 357 B CONT2 4 0357 B 429 4 118 361 REL1 CS RELOAD,80 7 0361 / 340 080 4 119 368 DCW #1 1 0368 5 120 * 121 TAPESW EQU 1261 1 INDICATES NOT THE TAPE LOADER 1261 122 TAPES3 EQU 1263 1 INDICATES TAPE LOADER AFTER ALL 1263 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 * 126 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 127 * 128 ORG 377 0377 129 377 TPTST2 BCE TESTS3,TAPESW,1 8 0377 B 494 S61 1 6 130 385 BTAPRD BIN TAPERD, CHAIN NEXT PROGRAM FROM TAPE 5 0385 B S88 6 131 ORG 393 0393 132 393 TAPMOD MCW BTAPRD&3,TPTST2&3 CHANGE SO TAPESW IS 1 FOR TAPE 7 0393 M 388 380 7 133 400 BEGIN CS 332 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 CONT2 MCW 80,280 LOAD PRINT AREA 7 0429 M 080 280 8 142 436 BWZ WRB,1,2 BRANCH IF NO ZONE IN 001 8 0436 V 454 001 2 8 143 444 LOOP1 WR PRINT-READ 1 0444 3 8 144 445 BSS LOOP1,B B ON TO SCOPE 5 0445 B 444 B 8 145 450 B DTEST BRANCH TO TEST SWITCH D 4 0450 B 464 9 146 454 WRB WR BTEST PRINT-READ AND BRANCH 4 0454 3 459 9 147 458 H ERROR STOP IF NO BRANCH 1 0458 . 9 1 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 459 BTEST BSS WRB,B B ON TO SCOPE 5 0459 B 454 B 9 149 464 DTEST BSS CONT,D 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 518 A 10 153 490 B CONT2 4 0490 B 429 10 154 494 TESTS3 BCE TAPMOD,TAPES3,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 80 4 0506 / 080 10 157 510 SW 1 4 0510 , 001 10 158 514 B NXPROG READ DETAIL OR CHAIN NEXT PROGRAM 4 0514 B 348 10 159 518 NOCARD MCW 80,280 7 0518 M 080 280 11 160 525 W NXDETL WRITE 4 0525 2 506 11 161 529 DCW #1 1 0529 11 162 * 163 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 164 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 165 * THAT TRANSFERS CONTROL TO THE PROGRAM. 166 * 167 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 168 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 169 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 170 * 171 ORG 1200 1200 172 1 200 TITLPR W PRINT (SPACE). 1 1200 2 12 173 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 12 174 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 12 175 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 12 176 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 12 177 1 217 W CONT PRINT (SPACE). 4 1217 2 420 12 178 1 221 DCW #1 1 1221 12 179 END START / 333 080 1 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 400 BTAPRD 385 BTEST 459 CONT 420 CONT2 429 DTEST 464 HDRS 1120 LCTEST 485 LOOP1 444 NOCARD 518 NXDETL 506 NXPROG 348 REL1 361 RELOAD 340 START 333 TAPERD 1288 TAPES2 1398 TAPES3 1263 TAPESW 1261 TAPMOD 393 TESTS3 494 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 TPTST2 377 WRB 454