BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT-PUNCH 1050A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT-PUNCH 102 CTL 6611 103 * 104 * SENSE SWITCHES: 105 * B ON TO REPEAT INNER TEST -- FOR SCOPING 106 * C ON TO PRINT CORRECT RESULTS 107 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 108 * E ON TO HALT ON ERRORS 109 * 110 * HALTS: 111 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 112 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 113 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 114 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 115 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 116 * 458 IN A-STAR AND 490 IN I-STAR IF TEST ERROR AND SS E ON. PUSHING 117 * START CONTINUES, DEPENDING ON SS D. 118 * 119 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 120 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 121 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 122 * A, BRANCH TO 1. 123 * 124 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 125 * 126 START EQU DETAIL 0347 127 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 128 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 129 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 130 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 131 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 132 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 133 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 134 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 135 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 136 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 137 B FINIS 4 0371 B 380 5 138 TAPEOF BSP 1 5 0375 U %U1 B 5 139 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 140 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 141 B DETAIL TRY AGAIN 4 0385 B 347 5 142 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 143 BER TAPERR ERROR? 5 0397 B 337 L 6 144 BEF TAPEOF EOF? 5 0402 B 375 K 6 145 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 146 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 495 336 2 6 147 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 1 PRINT-PUNCH 1050A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 149 W 1 0438 2 7 150 CS 1 0439 / 7 151 CS 1 0440 / 7 152 W 1 0441 2 7 153 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 154 B DETAIL 4 0449 B 347 7 155 * 156 * RESULTS 157 * 158 WORKED BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0453 B 482 C 8 159 LOOP BSS REPEAT,D D ON TO REPEAT 5 0458 B 527 D 8 160 CS START,80 BRANCH TO READ NEXT RECORD 7 0463 / 347 080 8 161 FAILED LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0470 L 494 285 8 162 BSS ERRHLT,E E ON TO ERROR STOP 5 0477 B 486 E 8 163 CORRPR W LOOP ERROR OR CORRECT PRINT 4 0482 2 458 8 164 ERRHLT H LOOP ERROR STOP 4 0486 . 458 8 165 ERROR DCW @ERROR@ CONSTANTS 5 0494 9 166 * 167 * START OR CONTINUE THE TEST 168 * 169 CONT CW D1&1,D2&1 EXPAND TABLE FROM 701-760 TO 701-820 7 0495 ) 653 673 9 170 LCA D3,D6 ,, 7 0502 L 692 752 9 171 CW D3&1,D3&1 ,, 7 0509 ) 693 693 9 172 CS 180 CLEAR PUNCH 4 0516 / 180 9 173 SW 101,201 SET WM IN PUNCH AND PRINT AREAS 7 0520 , 101 201 9 174 REPEAT LCA FIRST,COUNT LOAD 780 INTO CARD COUNTER 7 0527 L 625 632 10 175 NEXT MCW COUNT,MOVE&3 MOVE CARD COUNTER INTO LOCATION 474-4 7 0534 M 632 544 10 176 MOVE MCW 0-0,280 MOVE TABLE INTO PRINT AREA 7 0541 M 000 280 10 177 MCW 280,180 MOVE TABLE INTO PUNCH AREA 7 0548 M 280 180 10 178 BWZ WPBR,101,2 BR TO PRINT-PUNCH & BR IF NO ZONE IN 8 0555 V 573 101 2 10 179 SCOPE WP PRINT-PUNCH 1 0563 6 10 180 BSS SCOPE,B B ON TO SCOPE 5 0564 B 563 B 11 181 B TEST BRANCH TO TEST FOR LAST CARD 4 0569 B 583 11 182 WPBR WP BTEST PRINT-PUNCH & BRANCH 4 0573 6 578 11 183 H ERROR STOP IF NO BRANCH 1 0577 . 11 184 BTEST BSS WPBR,B B ON TO SCOPE 5 0578 B 573 B 11 185 TEST C LAST,COUNT COMPARE CARD COUNTER WITH 799 7 0583 C 629 632 11 186 BU BUMP BRANCH TO ADD 1 IF NOT 799 5 0590 B 612 / 11 187 BSS REPEAT,D D ON TO REPEAT TEST 5 0595 B 527 D 12 188 CS 280 4 0600 / 280 12 189 CS 180 4 0604 / 180 12 190 B DETAIL BRANCH TO READ NEXT RECORD 4 0608 B 347 12 191 BUMP A K1,COUNT ADD 1 TO CARD COUNTER 7 0612 A 626 632 12 192 B NEXT BRANCH TO PRINT-PUNCH NEXT CARD 4 0619 B 534 12 193 FIRST DSA D4 CONSTANT TO START CARD COUNTER 3 0625 712 12 194 K1 DCW 1 CONSTANT TO INCREMENT CARD COUNTER 1 0626 13 195 LAST DSA D5 CONSTANT TO STOP CARD COUNTER 3 0629 731 13 196 COUNT DCW @XXX@ CARD COUNTER 3 0632 13 197 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE PRINT-PUNCHED 20 0652 13 1 PRINT-PUNCH 1050A PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0672 14 199 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0692 15 200 D4 DS 20 0712 201 D5 DS 19 0731 202 D6 DS 21 0752 203 DCW @"@ 1 0753 16 204 ORG HEADCT 0336 205 DCW 1 MODIFY TO PRINT ONLY ONE HEADER 1 0336 17 206 END START / 347 080 1 PRINT-PUNCH 1050A PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BTEST 578 BUMP 612 CONT 495 CORRPR 482 COUNT 632 D1 652 D2 672 D3 692 D4 712 D5 731 D6 752 DETAIL 347 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 FIRST 625 HEADCT 336 HEADPR 190 K1 626 LAST 629 LOOP 458 MOVE 541 NEXT 534 NOCARD 363 REPEAT 527 SCOPE 563 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TEST 583 TESTHD 407 WORKED 453 WPBR 573