BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 COMMON CODE COMM PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB COMMON CODE 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 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 127 START EQU DETAIL 0347 128 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 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 COMMON CODE COMM 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 DETAIL,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 OR REPEAT THE TEST 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 END / 000 080 1 COMMON CODE COMM 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 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407 WORKED 453