BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 LOAD COMPARE 0110B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB LOAD COMPARE 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 LOAD COMPARE 0110B 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 495 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 * CONTINUE HERE AFTER READING DETAIL 168 * 169 CONT EQU *&1 0495 170 REPEAT SW 1,78 LOAD PRINT AREA 7 0495 , 001 078 9 171 CS 332 ,, 4 0502 / 332 9 172 LCA 80 ,, 4 0506 L 080 9 173 CS ,, 1 0510 / 9 174 LCA 72,272 ,, 7 0511 L 072 272 9 175 BCE LOAD1,72,L TEST LOAD 8 0518 B 538 072 L 9 176 BCE MOVE,72,M TEST MOVE 8 0526 B 549 072 M 10 177 BADINP H BADINP BAD INPUT -- NEITHER L NOR M 4 0534 . 534 10 178 LOAD1 SW 210,241 7 0538 , 210 241 10 179 B LOAD2 4 0545 B 568 10 180 MOVE SW 241,270 7 0549 , 241 270 10 181 MCW 210,270 7 0556 M 210 270 10 182 MCW 1 0563 M 10 183 B BTEST 4 0564 B 576 11 184 LOAD2 LCA 210,270 LOAD OP WITH CHAINING 7 0568 L 210 270 11 185 LCA ,, 1 0575 L 11 186 BTEST BSS REPEAT,B 5 0576 B 495 B 11 187 CW 270 TEST FOR ERROR 4 0581 ) 270 11 188 C 270,250 ,, 7 0585 C 270 250 11 189 BU FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0592 B 470 / 11 190 BUMP A *-6,COUNT BUMP COUNTER 7 0597 A 597 622 12 191 BCE CLEAR,COUNT-1,9 TEN TIMES YET? 8 0604 B 612 621 9 12 192 CLEAR S COUNT CLEAR COUNTER 4 0612 S 622 12 193 B WORKED 4 0616 B 453 12 194 COUNT DCW 000 3 0622 12 195 DCW @"@ GMWM 1 0623 12 196 END START / 347 080 1 LOAD COMPARE 0110B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BADINP 534 BTEST 576 BUMP 597 CLEAR 612 CONT 495 CORRPR 482 COUNT 622 DETAIL 347 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 HEADCT 336 HEADPR 190 LOAD1 538 LOAD2 568 LOOP 458 MOVE 549 NOCARD 363 REPEAT 495 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407 WORKED 453