CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 BACKSPACE SKIP 5030C PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB BACKSPACE SKIP 102 * 103 * SENSE SWITCHES 104 * 105 * B: REPEAT SAME TEST -- USEFUL FOR SCOPING 106 * C: PRINT CORRECT RESULTS 107 * D: REPEAT READ TEST 108 * E: DON'T PRINT ERRORS 109 * F: NOT USED 110 * G: REPEAT ENTIRE TEST 111 * 112 * HALTS: 113 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 114 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 115 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 116 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 117 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 118 * 660 IN I-STAR IF TAPE WRITE ERROR AND SS E ON. 119 * PUSHING START CONTINUES. 120 * 914 IN I-STAR IF ERROR DETECTED BY COMPARE AND SS E ON. 121 * PUSHING START CONTINUES. 122 * 123 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 124 * ARE ANY. OTHERWISE IF 81 IS NOT GM (PROGRAM IS NOT LOADED FROM 125 * TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS A, 126 * BRANCH TO 1. 127 * 128 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. 129 * 130 START EQU DETAIL 0347 131 NXPROG EQU DETAIL 0347 132 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 133 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 134 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 135 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 136 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 137 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 138 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 139 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 140 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 141 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 142 B FINIS 4 0371 B 380 5 143 TAPEOF BSP 1 5 0375 U %U1 B 5 144 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 145 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 146 B DETAIL TRY AGAIN 4 0385 B 347 5 147 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 1 BACKSPACE SKIP 5030C PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 BER TAPERR ERROR? 5 0397 B 337 L 6 149 BEF TAPEOF EOF? 5 0402 B 375 K 6 150 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 151 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 453 336 2 6 152 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 153 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 154 W 1 0438 2 7 155 CS 1 0439 / 7 156 CS 1 0440 / 7 157 W 1 0441 2 7 158 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 159 B DETAIL 4 0449 B 347 7 160 CONT EQU *&1 0453 161 * CONTINUE HERE AFTER READING DETAIL 162 * 163 * START TEST HERE 164 * 165 MCW K0001,PASSNO SET PASS COUNTER TO ONE 7 0453 M 937 951 8 166 RWD RWD 4 REWIND 5 0460 U %U4 R 8 167 REPEAT LCA NOP,SW1 LOAD -N- IN LOCATION SW1 7 0465 L 472 612 8 168 NOP NOP NOP 1 0472 N 8 169 CS 299 CLEAR PRINT AREA 4 0473 / 299 8 170 MCW PASSNO,203 MOVE PASS NO. IN PRINT AREA 7 0477 M 951 203 8 171 MCW WRITE,211 MOVE WORD -WRITE- IN PRINT AREA 7 0484 M 962 211 8 172 LCA REC1,226 LOAD RECORD 1 & GM IN PRINT AREA 7 0491 L 928 226 9 173 LCA REC2,260 LOAD RECORD 2 & GM IN PRINT AREA 7 0498 L 949 260 9 174 SW 226,260 SET WM IN GM LOCATIONS 7 0505 , 226 260 9 175 WTW 4,216 WRITE RECORD 1 8 0512 L %U4 216 W 9 176 BOP BER WRTERR BRANCH IF TAPE WRITE ERROR 5 0520 B 584 L 9 177 EFTST1 BEF RWD BRANCH IF END OF REEL 5 0525 B 460 K 9 178 MCW K0001-1,RWC SET RE-WRITE COUNTER TO ZERO 7 0530 M 936 954 10 179 WREC2 WTW 4,250 WRITE RECORD 2 8 0537 L %U4 250 W 10 180 BSS EFTST2,B B ON TO SCOPE 5 0545 B 565 B 10 181 BCE ERTEST,RWC-1,1 BRANCH IF 10 IN RE-WRITE COUNTER 8 0550 B 602 953 1 10 182 A REC1-10,RWC ADD 1 TO RE-WRITE COUNTER 7 0558 A 918 954 10 183 EFTST2 BEF RWD BRANCH IF END OF REEL 5 0565 B 460 K 11 184 BSP 4 BACKSPACE 5 0570 U %U4 B 11 185 SKP 4 SKIP 5 0575 U %U4 E 11 186 B WREC2 BRANCH TO REWRITE RECORD 2 4 0580 B 537 11 187 WRTERR LCA BOP,SW1 LOAD -B- IN LOC. SW1 TO BRANCH ON ERR 7 0584 L 520 612 11 188 MCW TAPE,232 MOVE TAPE WRITE ERROR TO PRINT 7 0591 M 970 232 11 189 B EFTST1 BRANCH TO TEST FOR END OF REEL 4 0598 B 525 11 190 ERTEST BER SET1 BRANCH IF TAPE WRITE ERROR 5 0602 B 625 L 12 191 EFTST3 BEF RWD BRANCH IF END OF REEL 5 0607 B 460 K 12 192 SW1 NOP ERPRNT NOP IF NO ERRORS - BRANCH IF ANY ERRO 4 0612 N 643 12 193 BSS ERWRIT,C C ON TO CORRECT PRINT 5 0616 B 655 C 12 194 B RDTEST BRANCH TO BEGIN READ PORTION OF TEST 4 0621 B 664 12 195 SET1 LCA BOP,SW1 LOAD -B- IN LOC. SW1 TO BRANCH ON ERR 7 0625 L 520 612 12 196 MCW TAPE,266 MOVE TAPE WRITE ERROR TO PRINT 7 0632 M 970 266 12 197 B EFTST3 BRANCH TO TEST FOR END OF REEL 4 0639 B 607 13 1 BACKSPACE SKIP 5030C PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 ERPRNT MCW ERROR,285 MOVE WORD ERROR TO PRINT AREA 7 0643 M 997 285 13 199 BSS ERHALT,E E ON TO ERROR STOP 5 0650 B 659 E 13 200 ERWRIT W RDTEST PRINT 4 0655 2 664 13 201 ERHALT H ERROR STOP 1 0659 . 13 202 B RDTEST BRANCH TO BEGIN READ PORTION OF TEST 4 0660 B 664 13 203 RDTEST LCA NOP,SW2 LOAD -N- IN LOCATION SW2 7 0664 L 472 773 13 204 CS 299 CLEAR PRINT AREA 4 0671 / 299 14 205 MCW PASSNO,203 MOVE PASS NO. IN PRINT AREA 7 0675 M 951 203 14 206 MCW READ,210 MOVE WORD -READ- IN PRINT AREA 7 0682 M 966 210 14 207 LCA GMWM,226 LOAD GM-WM FOR RECORD 1 7 0689 L 998 226 14 208 LCA GMWM,260 LOAD GM-WM FOR RECORD 2 7 0696 L 998 260 14 209 BSP 4 BACKSPACE 5 0703 U %U4 B 14 210 BSP 4 BACKSPACE 5 0708 U %U4 B 15 211 RTW 4,216 READ RECORD 1 FROM TAPE 8 0713 L %U4 216 R 15 212 BSS READ2,B B ON TO SCOPE 5 0721 B 743 B 15 213 BER SET2 BRANCH IF TAPE READ ERROR 5 0726 B 823 L 15 214 TESTEQ C 225,1029 COMPARE TAPE REC 1 WITH REC IN STORAG 7 0731 C 225 '29 15 215 BU NOTEQ1 BRANCH IF ERROR 5 0738 B 841 / 15 216 READ2 RTW 4,250 READ RECORD 2 FROM TAPE 8 0743 L %U4 250 R 16 217 BSS RDTEST,B B ON TO SCOPE 5 0751 B 664 B 16 218 BER RDERR BRANCH IF TAPE READ ERROR 5 0756 B 859 L 16 219 TEST2 C 259,1049 COMPARE TAPE REC 2 WITH REC IN STORAG 7 0761 C 259 '49 16 220 BU NOTEQ2 BRANCH IF ERROR 5 0768 B 877 / 16 221 SW2 NOP ERRTN2 NOP IF NO ERRORS - BRANCH IF ANY ERRO 4 0773 N 895 16 222 BSS ERPRT2,C C ON TO CORRECT PRINT 5 0777 B 907 C 16 223 TESTD BSS RDTEST,D D ON TO REPEAT READ PORTION OF PROGRA 5 0782 B 664 D 17 224 BCE DONE,PASSNO-1,1 BRANCH IF 10 IN PASS COUNTER 8 0787 B 806 950 1 17 225 A REC1-10,PASSNO ADD 1 TO PASS COUNTER 7 0795 A 918 951 17 226 B REPEAT BRANCH TO REPEAT PROG. IF NOT 10TH PA 4 0802 B 465 17 227 DONE BSS REPEAT,G G ON TO REPEAT TEST 5 0806 B 465 G 17 228 RWD 4 REWIND 5 0811 U %U4 R 17 229 CS NXPROG,299 CLEAR GM-WM & BRANCH TO LOAD NEXT PRO 7 0816 / 347 299 18 230 SET2 LCA BOP,SW2 LOAD -B- IN LOC. SW2 TO BRANCH ON ERR 7 0823 L 520 773 18 231 MCW TAPE,232 MOVE TAPE READ ERROR COMMENT TO PRINT 7 0830 M 970 232 18 232 B TESTEQ BRANCH TO TEST FOR COMPARE ERROR 4 0837 B 731 18 233 NOTEQ1 LCA BOP,SW2 LOAD -B- IN LOC. SW2 TO BRANCH ON ERR 7 0841 L 520 773 18 234 MCW COMPAR,244 MOVE COMPARE ERROR COMMENT TO PRINT 7 0848 M 977 244 18 235 B READ2 BRANCH TO READ RECORD 2 4 0855 B 743 19 236 RDERR LCA BOP,SW2 LOAD -B- IN LOC SW2 TO BRANCH ON ERRO 7 0859 L 520 773 19 237 MCW TAPE,266 MOVE TAPE READ ERROR COMMMENT TO PRIN 7 0866 M 970 266 19 238 B TEST2 BRANCH TO TEST FOR COMPARE ERROR 4 0873 B 761 19 239 NOTEQ2 LCA BOP,SW2 LOAD -B- IN LOC SW2 TO BRANCH ON ERRO 7 0877 L 520 773 19 240 MCW COMPAR,278 MOVE COMPARE ERROR COMMENT TO PRINT 7 0884 M 977 278 19 241 B SW2 BRANCH TO NOP OR BRANCH 4 0891 B 773 20 242 ERRTN2 MCW ERROR,285 MOVE WORD ERROR TO PRINT AREA 7 0895 M 997 285 20 243 BSS ERHLT2,B E ON TO ERROR STOP 5 0902 B 913 B 20 244 ERPRT2 W PRINT 1 0907 2 20 245 WM TESTD PRINT WORD MARKS 5 0908 2 782 ) 20 246 ERHLT2 H ERROR STOP 1 0913 . 20 247 B TESTD BRANCH TO SENSE D 4 0914 B 782 20 1 BACKSPACE SKIP 5030C PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 REC1 DCW @1111111111"@ RECORD ONE GM IN '30 11 0928 21 249 K0001 DCW @0001 @ CONSTANT TO INCREMENT PASS & RE-WR. C 9 0937 21 250 REC2 DCW @RWRWRWRWRW" @ RECORD TWO GM IN '50 12 0949 21 251 PASSNO DCW @XX@ COUNTER FOR COUNTING NO. OF PASSES 2 0951 21 252 RWC DCW @XXX@ COUNTER FOR COUNTING NO. OF RE-WRITES 3 0954 21 253 DC @ @ 3 0957 22 254 WRITE DCW @WRITE@ CONSTANTS FOR PRINTOUTS 5 0962 22 255 READ DCW @READ@ ,, 4 0966 22 256 TAPE DCW @TAPE@ ,, 4 0970 22 257 COMPAR DCW @COMPARE@ ,, 7 0977 22 258 ERROR DCW @ERROR @ ,, 20 0997 23 259 GMWM DCW @"@ 1 0998 23 260 END START / 347 080 1 BACKSPACE SKIP 5030C PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BOP 520 COMPAR 977 CONT 453 DETAIL 347 DONE 806 EFTST1 525 EFTST2 565 EFTST3 607 ERHALT 659 ERHLT2 913 ERPRNT 643 ERPRT2 907 ERROR 997 ERRTN2 895 ERTEST 602 ERWRIT 655 FINIS 380 GMWM 998 HEADCT 336 HEADPR 190 K0001 937 NOCARD 363 NOP 472 NOTEQ1 841 NOTEQ2 877 NXPROG 347 PASSNO 951 RDERR 859 RDTEST 664 READ 966 READ2 743 REC1 928 REC2 949 REPEAT 465 RWC 954 RWD 460 SET1 625 SET2 823 SKIPHD 442 START 347 SW1 612 SW2 773 TAPE 970 TAPEHD 389 TAPEOF 375 TAPERR 337 TEST2 761 TESTD 782 TESTEQ 731 TESTHD 407 WREC2 537 WRITE 962 WRTERR 584