BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 COMMON CODE CCOM 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 DC #10 10 0346 4 131 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 132 BLC FINIS NO CARDS LEFT? 5 0354 B 363 A 4 133 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 134 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0363 N 099 4 135 H HALT WITH 99 IN A-STAR AND B-STAR 1 0367 . 4 136 B DETAIL TRY AGAIN 4 0368 B 347 4 137 ORG 407 0407 138 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 5 139 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 495 336 2 5 140 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 5 141 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 5 142 W 1 0438 2 5 143 CS 1 0439 / 5 144 CS 1 0440 / 5 145 W 1 0441 2 6 146 SKIPHD A *-6,HEADCT 7 0442 A 442 336 6 147 B DETAIL 4 0449 B 347 6 1 COMMON CODE CCOM PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * 149 * RESULTS 150 * 151 ORG 453 0453 152 WORKED BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0453 B 482 C 6 153 LOOP BSS REPEAT,D D ON TO REPEAT 5 0458 B 495 D 6 154 CS DETAIL,80 BRANCH TO READ NEXT RECORD 7 0463 / 347 080 6 155 FAILED LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0470 L 494 285 6 156 BSS ERRHLT,E E ON TO ERROR STOP 5 0477 B 486 E 7 157 CORRPR W LOOP ERROR OR CORRECT PRINT 4 0482 2 458 7 158 ERRHLT H LOOP ERROR STOP 4 0486 . 458 7 159 ERROR DCW @ERROR@ CONSTANTS 5 0494 7 160 * 161 * CONTINUE OR REPEAT THE TEST 162 * 163 CONT EQU *&1 0495 164 REPEAT SW 1,78 LOAD PRINT AREA 7 0495 , 001 078 7 165 CS 332 ,, 4 0502 / 332 7 166 LCA 80 ,, 4 0506 L 080 7 167 CS ,, 1 0510 / 8 168 LCA 72,272 ,, 7 0511 L 072 272 8 169 END / 000 080 1 COMMON CODE CCOM 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 363 HEADCT 336 HEADPR 190 LOOP 458 REPEAT 495 SKIPHD 442 START 347 TESTHD 407 WORKED 453