BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RESET ADD 0330A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RESET ADD 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 RESET ADD 0330A 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 SW 206,241 ,, 7 0518 , 206 241 9 176 SW 261 ,, 4 0525 , 261 10 177 BCE SCOPE2,10, BR TO RESET ADD 1 POS FLD IF BL IN 01 8 0529 B 560 010 10 178 SCOPE1 ZA 210,270 RESET ADD 10 POSITION FIELD 7 0537 ? 210 270 10 179 BSS SCOPE1,B B ON TO SCOPE 5 0544 B 537 B 10 180 C 270,250 TEST FOR ERROR 7 0549 C 270 250 10 181 B TEST ,, 4 0556 B 583 10 182 SCOPE2 LCA 201,261 LOAD A FIELD 7 0560 L 201 261 11 183 ZA 261 RESET ADD 1 POSITION FIELD 4 0567 ? 261 11 184 BSS SCOPE2,B B ON TO SCOPE 5 0571 B 560 B 11 185 C 261,241 TEST FOR ERROR 7 0576 C 261 241 11 186 TEST BU FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0583 B 470 / 11 187 B WORKED BRANCH TO CORRECT PRINT ROUTINE 4 0588 B 453 11 188 DCW @"@ GMWM 1 0592 11 189 END START / 347 080 1 RESET ADD 0330A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CONT 495 CORRPR 482 DETAIL 347 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 HEADCT 336 HEADPR 190 LOOP 458 NOCARD 363 REPEAT 495 SCOPE1 537 SCOPE2 560 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TEST 583 TESTHD 407 WORKED 453