BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-READ-PUNCH 1080A 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 DETAIL R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 MOD 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 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 * 126 ORG 400 0400 127 400 BEGIN CS 332 START TEST 4 0400 / 332 6 128 404 CS 1 0404 / 6 129 405 LCA BCONT&4,TITLPX&4 MODIFY TITLE PRINT TO SKIP HEADING 7 0405 L 604 S22 6 130 412 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0412 B S00 S52 1 6 131 420 CONT CS 80 CLEAR READ AREA 4 0420 / 080 6 132 424 SW 1 SET WM IN READ AREA 4 0424 , 001 6 133 428 R READ 1 0428 1 6 134 429 REPEAT LCA 80,180 LOAD PUNCH AREA 7 0429 L 080 180 7 135 436 LCA 80,280 LOAD PRINT AREA 7 0436 L 080 280 7 136 443 BWZ WRPB,1,2 BRANCH IF NO ZONE IN 001 8 0443 V 461 001 2 7 137 451 SCOPE1 WRP PRINT-READ-PUNCH 1 0451 7 7 138 452 BSS SCOPE1,B B ON TO SCOPE 5 0452 B 451 B 7 139 457 B LOOP BRANCH TO MODIFY CHAIN. ROUTINE 4 0457 B 471 7 140 461 WRPB WRP BTEST PRINT-READ-PUNCH AND BRANCH 4 0461 7 466 7 141 465 H ERROR STOP IF NO BRANCH 1 0465 . 8 142 466 BTEST BSS WRPB,B B ON TO SCOPE 5 0466 B 461 B 8 143 471 LOOP MN BLOOP&3,MOD&3 MODIFY B421 IN CHAINING ROUTINE TO B4 7 0471 D 486 360 8 144 478 BSS CONT,D D ON TO REPEAT TEST 5 0478 B 420 D 8 145 483 BLOOP BIN TPTEST, BRANCH TO TEST FOR NEXT PROGRAM 5 0483 B 349 8 146 ORG 600 0600 147 600 BCONT BIN CONT, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0600 B 420 9 1 PRINT-READ-PUNCH 1080A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * 149 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 150 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 151 * THAT TRANSFERS CONTROL TO THE PROGRAM. 152 * 153 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 154 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 155 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 156 * 157 ORG 1200 1200 158 1 200 TITLPR W PRINT (SPACE). 1 1200 2 10 159 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 10 160 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 10 161 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 10 162 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 10 163 1 217 W PRINT (SPACE). 1 1217 2 10 164 1 218 TITLPX CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 10 165 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 11 166 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 11 167 1 236 W PRINT SECOND LINE. 1 1236 2 11 168 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 11 169 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 11 170 1 245 DCW #1 1 1245 11 171 END START / 333 080 1 PRINT-READ-PUNCH 1080A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 600 BEGIN 400 BLOOP 483 BTEST 466 CONT 420 DETAIL 348 HDRS 1120 LOOP 471 MOD 357 RELOAD 340 REPEAT 429 SCOPE1 451 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLPX 1218 TITLSW 1252 TPTEST 349 WRPB 461