BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-READ 1060A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT-READ 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 NXPREX 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 BEGIN CS 332 START TEST 4 0400 / 332 6 123 404 CS 1 0404 / 6 124 405 LCA BCONT&4,NOHEAD&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 CS 80 CLEAR READ AREA 4 0420 / 080 6 127 424 SW 1 SET WM IN READ AREA 4 0424 , 001 6 128 428 R READ 1 0428 1 6 129 429 LCA 80,280 LOAD PRINT AREA 7 0429 L 080 280 7 130 436 BWZ WRB,1,2 BRANCH IF NO ZONE IN 001 8 0436 V 454 001 2 7 131 444 LOOP1 WR PRINT-READ 1 0444 3 7 132 445 BSS LOOP1,B B ON TO SCOPE 5 0445 B 444 B 7 133 450 B LOOP2 BRANCH TO MODIFY CHAIN. ROUTINE 4 0450 B 464 7 134 454 WRB WR BTEST PRINT-READ AND BRANCH 4 0454 3 459 7 135 458 H ERROR STOP IF NO BRANCH 1 0458 . 7 136 459 BTEST BSS WRB,B B ON TO SCOPE 5 0459 B 454 B 8 137 464 LOOP2 MN BLOOP&3,NXPREX&3 MODIFY B421 IN CHAINING ROUTINE TO 7 0464 D 479 360 8 138 471 BSS CONT,D D ON TO REPEAT TEST 5 0471 B 420 D 8 139 476 BLOOP BIN TPTEST, BRANCH TO TEST FOR NEXT PROGRAM 5 0476 B 349 8 140 ORG 600 0600 141 600 BCONT BIN CONT, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0600 B 420 9 142 * 143 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 144 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 145 * THAT TRANSFERS CONTROL TO THE PROGRAM. 146 * 147 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 1 PRINT-READ 1060A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 149 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 150 * 151 ORG 1200 1200 152 1 200 TITLPR W PRINT (SPACE). 1 1200 2 10 153 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 10 154 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 10 155 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 10 156 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 10 157 1 217 W PRINT (SPACE). 1 1217 2 10 158 1 218 NOHEAD CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 10 159 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 11 160 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 11 161 1 236 W PRINT SECOND LINE. 1 1236 2 11 162 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 11 163 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 11 164 1 245 DCW #1 1 1245 11 165 ORG TITLSW 1252 166 1 252 DCW 1 1 1252 12 167 END START / 333 080 1 PRINT-READ 1060A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 600 BEGIN 400 BLOOP 476 BTEST 459 CONT 420 HDRS 1120 LOOP1 444 LOOP2 464 NOHEAD 1218 NXPREX 357 NXPROG 348 RELOAD 340 START 333 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 WRB 454