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 ) 645 665 9 170 LCA D3,D6 ,, 7 0502 L 684 744 9 171 CW D3&1,D3&1 ,, 7 0509 ) 685 685 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 617 624 10 175 NEXT MCW COUNT,MOVE&3 MOVE CARD COUNTER INTO LOCATION 474-4 7 0534 M 624 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 621 624 11 186 BU BUMP BRANCH TO ADD 1 IF NOT 799 5 0590 B 604 / 11 187 BSS REPEAT,D D ON TO REPEAT TEST 5 0595 B 527 D 12 188 B DETAIL BRANCH TO READ NEXT RECORD 4 0600 B 347 12 189 BUMP A K1,COUNT ADD 1 TO CARD COUNTER 7 0604 A 618 624 12 190 B NEXT BRANCH TO PRINT-PUNCH NEXT CARD 4 0611 B 534 12 191 FIRST DSA D4 CONSTANT TO START CARD COUNTER 3 0617 704 12 192 K1 DCW 1 CONSTANT TO INCREMENT CARD COUNTER 1 0618 12 193 LAST DSA D5 CONSTANT TO STOP CARD COUNTER 3 0621 723 12 194 COUNT DCW @XXX@ CARD COUNTER 3 0624 13 195 D1 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE PRINT-PUNCHED 20 0644 13 196 D2 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 20 0664 14 197 D3 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, 20 0684 15 1 PRINT-PUNCH 1050A PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 D4 DS 20 0704 199 D5 DS 19 0723 200 D6 DS 21 0744 201 DCW @"@ 1 0745 16 202 ORG HEADCT 0336 203 DCW 1 MODIFY TO PRINT ONLY ONE HEADER 1 0336 17 204 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 604 CONT 495 CORRPR 482 COUNT 624 D1 644 D2 664 D3 684 D4 704 D5 723 D6 744 DETAIL 347 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 FIRST 617 HEADCT 336 HEADPR 190 K1 618 LAST 621 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