BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 EDIT 0370D PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB EDIT 102 CTL 6611 103 * 104 * THIS IS DIFFERENT FROM THE ORIGINAL 0370D IN THAT EACH TEST IS 105 * RUN ONCE, NOT 90 TIMES (TURN ON D!), THE SCOPE LOOP IS TIGHTER, 106 * AND THE "RUN EVEN IF 72 HAS ZONE" DECISION IS SWITCH G ON OR 107 * HEADPR&1 NOT BLANK, NOT 1260 IS 1. 108 * ZONE IN 72 MEANS "TEST EXPANDED PRINT EDIT." 109 * 110 * SENSE SWITCHES: 111 * B ON TO REPEAT INNER TEST -- FOR SCOPING 112 * C ON TO PRINT CORRECT RESULTS 113 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 114 * E ON TO HALT ON ERRORS 115 * G ON TO RUN TESTS WITH ZONE IN 72. 116 * 117 * HALTS: 118 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 119 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 120 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 121 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 122 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 123 * 458 IN A-STAR AND 490 IN I-STAR IF TEST ERROR AND SS E ON. PUSHING 124 * START CONTINUES, DEPENDING ON SS D. 125 * 126 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 127 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 128 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 129 * A, BRANCH TO 1. 130 * 131 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 132 * 133 START EQU DETAIL 0347 134 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 135 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 136 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 137 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 138 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 139 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 140 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 141 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 142 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 143 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 144 B FINIS 4 0371 B 380 5 145 TAPEOF BSP 1 5 0375 U %U1 B 5 146 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 147 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 1 EDIT 0370D PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 B DETAIL TRY AGAIN 4 0385 B 347 5 149 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 150 BER TAPERR ERROR? 5 0397 B 337 L 6 151 BEF TAPEOF EOF? 5 0402 B 375 K 6 152 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 153 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 495 336 2 6 154 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 155 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 156 W 1 0438 2 7 157 CS 1 0439 / 7 158 CS 1 0440 / 7 159 W 1 0441 2 7 160 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 161 B DETAIL 4 0449 B 347 7 162 * 163 * RESULTS 164 * 165 WORKED BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0453 B 482 C 8 166 LOOP BSS REPEAT,D D ON TO REPEAT 5 0458 B 495 D 8 167 CS START,80 BRANCH TO READ NEXT RECORD 7 0463 / 347 080 8 168 FAILED LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0470 L 494 285 8 169 BSS ERRHLT,E E ON TO ERROR STOP 5 0477 B 486 E 8 170 CORRPR W LOOP ERROR OR CORRECT PRINT 4 0482 2 458 8 171 ERRHLT H LOOP ERROR STOP 4 0486 . 458 8 172 ERROR DCW @ERROR@ CONSTANTS 5 0494 9 173 * 174 * CONTINUE HERE AFTER READING DETAIL 175 * 176 CONT EQU *&1 0495 177 REPEAT BSS DOIT,G DO TEST IF G IS ON 5 0495 B 516 G 9 178 BWZ DOIT,72,2 DO TEST IF 72 HAS NO ZONE 8 0500 V 516 072 2 9 179 BCE DETAIL,HEADPR&1, GET NEXT TEST IF HEADPR&1 BLANK 8 0508 B 347 191 9 180 DOIT SW 1,78 LOAD PRINT AREA 7 0516 , 001 078 9 181 CS 332 ,, 4 0523 / 332 9 182 LCA 80 ,, 4 0527 L 080 10 183 CS ,, 1 0531 / 10 184 LCA 70,270 7 0532 L 070 270 10 185 SW 71 4 0539 , 071 10 186 MCW 72,281 7 0543 M 072 281 10 187 SW 221,241 7 0550 , 221 241 10 188 SCOPE LCA 237,277 LOAD EDIT MASK 7 0557 L 237 277 10 189 MCE 208,277 EDIT DATA FIELD 7 0564 E 208 277 11 190 BSS SCOPE,B B ON TO SCOPE 5 0571 B 557 B 11 191 C 277,257 TEST FOR ERROR 7 0576 C 277 257 11 192 BU FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0583 B 470 / 11 193 B WORKED BRANCH TO CORRECT PRINT ROUTINE 4 0588 B 453 11 194 DCW @"@ GMWM 1 0592 11 195 END START / 347 080 1 EDIT 0370D PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CONT 495 CORRPR 482 DETAIL 347 DOIT 516 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 HEADCT 336 HEADPR 190 LOOP 458 NOCARD 363 REPEAT 495 SCOPE 557 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407 WORKED 453