CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 TEST FOR ZONE OR WM & BRANCH 0060B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST FOR ZONE OR WM & BRANCH 102 * 103 * SENSE SWITCHES: 104 * B ON TO REPEAT INNER TEST -- FOR SCOPING 105 * C ON TO PRINT CORRECT RESULTS 106 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 107 * E ON TO HALT ON ERRORS 108 * 109 * HALTS: 110 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 111 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 112 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 113 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 114 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 115 * 606 IN I-STAR IF TEST ERROR AND SS E ON. PUSHING START CONTINUES, 116 * DEPENDING ON SS D. 117 * 118 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 119 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 120 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 121 * A, BRANCH TO 1. 122 * 123 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 124 * 125 START EQU DETAIL 0347 126 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 127 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 128 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 129 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 130 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 131 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 132 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 133 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 134 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 135 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 136 B FINIS 4 0371 B 380 5 137 TAPEOF BSP 1 5 0375 U %U1 B 5 138 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 139 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 140 B DETAIL TRY AGAIN 4 0385 B 347 5 141 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 142 BER TAPERR ERROR? 5 0397 B 337 L 6 143 BEF TAPEOF EOF? 5 0402 B 375 K 6 144 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 145 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 495 336 2 6 146 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 147 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 1 TEST FOR ZONE OR WM & BRANCH 0060B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 W 1 0438 2 7 149 CS 1 0439 / 7 150 CS 1 0440 / 7 151 W 1 0441 2 7 152 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 153 B DETAIL 4 0449 B 347 7 154 * 155 * RESULTS 156 * 157 WORKED BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0453 B 482 C 8 158 LOOP BSS REPEAT,D D ON TO REPEAT 5 0458 B 495 D 8 159 CS START,80 BRANCH TO READ NEXT RECORD 7 0463 / 347 080 8 160 FAILED LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0470 L 494 285 8 161 BSS ERRHLT,E E ON TO ERROR STOP 5 0477 B 486 E 8 162 CORRPR W LOOP ERROR OR CORRECT PRINT 4 0482 2 458 8 163 ERRHLT H LOOP ERROR STOP 4 0486 . 458 8 164 ERROR DCW @ERROR@ CONSTANTS 5 0494 9 165 * 166 * START OR CONTINUE THE TEST 167 * 168 CONT EQU *&1 0495 169 REPEAT SW 1,78 LOAD PRINT AREA 7 0495 , 001 078 9 170 CS 332 ,, 4 0502 / 332 9 171 LCA 80 ,, 4 0506 L 080 9 172 CS ,, 1 0510 / 9 173 LCA 72,272 ,, 7 0511 L 072 272 9 174 BCE SETWM,224,* BR TO SET WM IN ALL * AND % CHARAC 8 0518 B 613 224 * 9 175 BCE SETWM,224,% ,, 8 0526 B 613 224 % 10 176 DOTEST BCE ZTEST,41, BR TO TEST EQUAL ZONES IF BLANK IN 04 8 0534 B 569 041 10 177 MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0542 M 201 556 10 178 SCOPE BWZ UNEQ,224,X TEST UNEQUAL ZONES OR WM 8 0549 V 621 224 X 10 179 BWZ ,, 1 0557 V 10 180 BWZ ,, 1 0558 V 10 181 BWZ ,, 1 0559 V 10 182 BSS SCOPE,B B ON TO SCOPE 5 0560 B 549 B 11 183 B RESULT BRANCH TO LOAD RESULT COMMENT 4 0565 B 598 11 184 ZTEST MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0569 M 201 583 11 185 SCOPE2 BWZ EQZONE,224,X TEST EQUAL ZONES OR WM 8 0576 V 593 224 X 11 186 BSS SCOPE2,B B ON TO SCOPE 5 0584 B 576 B 11 187 B FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 4 0589 B 470 11 188 EQZONE BSS SCOPE2,B B ON TO SCOPE 5 0593 B 576 B 11 189 RESULT SW 241 LOAD RESULT COMMENT 4 0598 , 241 12 190 LCA 247,267 ,, 7 0602 L 247 267 12 191 B WORKED 4 0609 B 453 12 192 SETWM SW 224 SET WM IN 224 IF * OR % 4 0613 , 224 12 193 B DOTEST ,, 4 0617 B 534 12 194 UNEQ BSS SCOPE,B B ON TO SCOPE 5 0621 B 549 B 12 195 B FAILED 4 0626 B 470 12 196 GMWM DCW @"@ 1 0630 13 197 END START / 347 080 1 TEST FOR ZONE OR WM & BRANCH 0060B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CONT 495 CORRPR 482 DETAIL 347 DOTEST 534 EQZONE 593 ERRHLT 486 ERROR 494 FAILED 470 FINIS 380 GMWM 630 HEADCT 336 HEADPR 190 LOOP 458 NOCARD 363 REPEAT 495 RESULT 598 SCOPE 549 SCOPE2 576 SETWM 613 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407 UNEQ 621 WORKED 453 ZTEST 569