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 TEST READING AND WRITING SHORT RECORDS ON TAPE 5040C PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST READING AND WRITING SHORT RECORDS ON TAPE 102 * 103 * SENSE SWITCHES: 104 * B: REPEAT WRITE-BACKSPACE-READ FOR SCOPING IF ON 105 * C: PRINT CORRECT RESULTS IF ON 106 * D: REPEAT SAME RECORD IF ON 107 * E: HALT ON ERROR IF ON 108 * F: NOT USED 109 * G: REPEAT ENTIRE TEST IF ON 110 * 111 * HALTS: 112 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 113 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 114 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 115 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 116 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 117 * 491 IN A-STAR AND 638 IN I-STAR IF TAPE WRITE ERROR AND SS E ON. 118 * PUSHING START CONTINUES. 119 * 718 IN A-STAR AND 665 IN I-STAR IF TAPE READ ERROR AND SS E ON. 120 * PUSHING START CONTINUES. 121 * 523 IN A-STAR AND 699 IN I-STAR IF ERROR DETECTED BY COMPARE 122 * AND SS E ON. PUSHING START CONTINUES. 123 * 124 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 125 * ARE ANY. OTHERWISE IF 81 IS NOT GM (PROGRAM IS NOT LOADED FROM 126 * TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS A, 127 * BRANCH TO 1. 128 * 129 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. 130 * 131 START EQU DETAIL 0347 132 NXPROG EQU DETAIL 0347 133 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 134 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 135 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 136 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 137 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 138 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 139 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 140 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 141 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 142 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 143 B FINIS 4 0371 B 380 5 144 TAPEOF BSP 1 5 0375 U %U1 B 5 145 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 146 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 147 B DETAIL TRY AGAIN 4 0385 B 347 5 1 TEST READING AND WRITING SHORT RECORDS ON TAPE 5040C PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 149 BER TAPERR ERROR? 5 0397 B 337 L 6 150 BEF TAPEOF EOF? 5 0402 B 375 K 6 151 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 152 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 453 336 2 6 153 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 154 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 155 W 1 0438 2 7 156 CS 1 0439 / 7 157 CS 1 0440 / 7 158 W 1 0441 2 7 159 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 160 B DETAIL 4 0449 B 347 7 161 CONT EQU *&1 0453 162 * CONTINUE HERE AFTER READING DETAIL 163 * 164 * START TEST HERE 165 * 166 REPEAT MCW K001,PASSCT SET PASS COUNTER TO 001 7 0453 M 944 947 8 167 N0 0 NOP 5 0460 N 000 0 8 168 SW 199 SET WM IN 199 4 0465 , 199 8 169 BOP B INIT BR TO SET MOD INSTR TO INITIAL COND. 4 0469 B 827 8 170 WRITE WT 4,208 WRITE 15 CHARACTER RECORD 8 0473 M %U4 208 W 8 171 BSS TESTEF,B B ON TO SCOPE 5 0481 B 491 B 8 172 BER ERROR BRANCH IF WRITE ERROR 5 0486 B 611 L 8 173 TESTEF BEF EOR BRANCH IF END OF REEL 5 0491 B 602 K 9 174 BSP 4 BACKSPACE 5 0496 U %U4 B 9 175 RT 4,245 READ BACK SAME 15 CHARACTER RECORD 8 0501 M %U4 245 R 9 176 BSS WRITE,B B ON TO SCOPE 5 0509 B 473 B 9 177 BER SETER BRANCH IF READ ERROR 5 0514 B 638 L 9 178 B WMTEST BRANCH TO TEST FOR ERROR BY COMPARING 4 0519 B 718 9 179 MVPASS MCS PASSCT,203 MOVE PASS NUMBER 7 0523 Z 947 203 9 180 NOPSW NOP ERPRNT NOP IF NO ERRORS - BRANCH IF ANY ERROR 4 0530 N 699 10 181 BSS PRINT,C C ON TO CORRECT ROUTINE 5 0534 B 711 C 10 182 DTEST BSS SWDONE,D D ON TO REPEAT SAME RECORD 5 0539 B 874 D 10 183 C MOVE&3,TAPCA TEST IF LAST RECORD HAS BEEN WRITTEN 7 0544 C 885 950 10 184 BU BUMP BRANCH IF NOT LAST RECORD 5 0551 B 587 / 10 185 BCE LOOPT,PASSCT-1,1 BRANCH IF END OF 10TH PASS 8 0556 B 575 946 1 10 186 A K001-4,PASSCT ADD 1 TO PASS COUNTER 7 0564 A 940 947 11 187 B INIT BRANCH TO START NEXT PASS 4 0571 B 827 11 188 LOOPT BSS REPEAT,G G ON TO REPEAT TEST 5 0575 B 453 G 11 189 CS NXPROG,299 BRANCH TO READ NEXT PROGRAM 7 0580 / 347 299 11 190 BUMP SW MOVE&1 ADD 1 TO MOVE INSTR TO SET UP NEXT 4 0587 , 883 11 191 A K001-4,MOVE&3 RECORD TO BE WRITTEN 7 0591 A 940 885 11 192 B SWDONE BRANCH TO SET UP NEXT RECORD 4 0598 B 874 11 193 EOR RWD 4 REWIND 5 0602 U %U4 R 12 194 B SWDONE BRANCH TO SET UP SAME RECORD 4 0607 B 874 12 195 ERROR LCA BOP,NOPSW CHANGE NOP TO BRANCH 7 0611 L 469 530 12 196 MCW TAPWRD,230 MOVE TAPE WRITE ERROR COMMENT 7 0618 M 962 230 12 197 BSS WRHALT,E E ON TO ERROR STOP 5 0625 B 634 E 12 1 TEST READING AND WRITING SHORT RECORDS ON TAPE 5040C PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 B TESTEF BRANCH TO TEST FOR END OF REEL 4 0630 B 491 12 199 WRHALT H TESTEF ERROR STOP IF TAPE WRITE ERROR 4 0634 . 491 12 200 SETER LCA BOP,NOPSW CHANGE NOP TO BRANCH 7 0638 L 469 530 13 201 MCW TAPWRD,267 MOVE TAPE READ ERROR COMMENT 7 0645 M 962 267 13 202 BSS REHALT,E E ON TO ERROR STOP 5 0652 B 661 E 13 203 B WMTEST BRANCH TO TEST FOR ERROR BY COMPARING 4 0657 B 718 13 204 REHALT H WMTEST ERROR STOP IF TAPE READ ERROR 4 0661 . 718 13 205 UNEQ SW 246,258 SET WM IN TAPE READ AREA 7 0665 , 246 258 13 206 UNEQ2 LCA BOP,NOPSW CHANGE NOP TO BRANCH 7 0672 L 469 530 14 207 MCW CMPMSG,278 MOVE COMPARE ERROR COMMENT 7 0679 M 969 278 14 208 BSS UNHALT,E E ON TO ERROR STOP 5 0686 B 695 E 14 209 B MVPASS BRANCH TO MOVE PASS NUMBER 4 0691 B 523 14 210 UNHALT H MVPASS ERROR STOP IF ERROR DETECTED BY COMPAR 4 0695 . 523 14 211 ERPRNT MCW ERRMSG,285 MOVE WORD ERROR TO PRINT 7 0699 M 974 285 14 212 BSS DTEST,E E OFF TO ERROR PRINT 5 0706 B 539 E 14 213 PRINT W PRINT 1 0711 2 15 214 WM PRINT WORD MARKS 2 0712 2 ) 15 215 B DTEST BRANCH TO SENSE D 4 0714 B 539 15 216 WMTEST BW *&5,246 TEST FOR WORD MARKS 8 0718 V 730 246 1 15 217 B UNEQ2 ,, 4 0726 B 672 15 218 BW *&5,258 ,, 8 0730 V 742 258 1 15 219 B UNEQ2 ,, 4 0738 B 672 15 220 CW 246,258 ,, 7 0742 ) 246 258 16 221 CW 260,223 ,, 7 0749 ) 260 223 16 222 C 260,223 TEST FOR ERRORS BY COMPARING 7 0756 C 260 223 16 223 BU UNEQ ,, 5 0763 B 665 / 16 224 C 258,221 ,, 7 0768 C 258 221 16 225 BU UNEQ ,, 5 0775 B 665 / 16 226 C 252,215 ,, 7 0780 C 252 215 17 227 BU UNEQ ,, 5 0787 B 665 / 17 228 BW UNEQ,259 TEST FOR WORD MARKS 8 0792 V 665 259 1 17 229 BW UNEQ,253 ,, 8 0800 V 665 253 1 17 230 BW UNEQ,245 ,, 8 0808 V 665 245 1 17 231 SW 246,258 ,, 7 0816 , 246 258 18 232 B MVPASS ,, 4 0823 B 523 18 233 INIT MCW TAPCA&4,MOD1&3 SET MODIFIED INSTR TO INITIAL COND 7 0827 M 954 851 18 234 MCW TAPCA&8,MOVE&3 ,, 7 0834 M 958 885 18 235 INIT2 CW MOD1&1,TAPCON SET WORD MARKS THROUGHOUT TABLE 7 0841 ) 849 987 18 236 MOD1 SW TAPCON-12,MOD1&1 ,, 7 0848 , 975 849 18 237 BW SWDONE,TAPCON ,, 8 0855 V 874 987 1 19 238 A K001-4,MOD1&3 ,, 7 0863 A 940 851 19 239 B INIT2 ,, 4 0870 B 841 19 240 SWDONE CS 299 CLEAR PRINT AREA 4 0874 / 299 19 241 CW MOVE&1 SET UP 15 CHARACTER RECORD TO BE 4 0878 ) 883 19 242 MOVE MCW TAPCON-11,209 WRITTEN ON TAPE 7 0882 M 976 209 19 243 LCA ,, 1 0889 L 19 244 MCW 209,211 ,, 7 0890 M 209 211 20 245 MCW 211,215 ,, 7 0897 M 211 215 20 246 LCA 214,222 ,, 7 0904 L 214 222 20 247 SW 222 ,, 4 0911 , 222 20 1 TEST READING AND WRITING SHORT RECORDS ON TAPE 5040C PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 LCA GMWM,223 ,, 7 0915 L 989 223 20 249 MCW @N@,NOPSW CHANGE ERROR BRANCH TO NOP 7 0922 M 988 530 20 250 SW 246,258 SET WORD MARK IN TAPE READ AREA 7 0929 , 246 258 21 251 B WRITE BRANCH TO WRITE TAPE 4 0936 B 473 21 252 K001 DCW 10001 CONSTANT 5 0944 21 253 PASSCT DCW @XXX@ PASS COUNTER FOR NO. OF TEST PASSES 3 0947 21 254 TAPCA DSA TAPCON 3 0950 987 21 255 SW TAPCON-12 4 0951 , 975 21 256 MCW TAPCON-11 4 0955 M 976 21 257 TAPWRD DCW @TAPE@ CONSTANTS FOR PRINTOUTS 4 0962 22 258 CMPMSG DCW @COMPARE@ ,, 7 0969 22 259 ERRMSG DCW @ERROR@ ,, 5 0974 22 260 TAPCON DCW @AAKT4EOX8I-,@@ CONSTANTS FOR TAPE RECORDS 13 0987 22 261 LTORG * 0988 DCW @N@ 1 0988 LIT 22 262 GMWM DCW @"@ ,, 1 0989 22 263 END START / 347 080 1 TEST READING AND WRITING SHORT RECORDS ON TAPE 5040C PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BOP 469 BUMP 587 CMPMSG 969 CONT 453 DETAIL 347 DTEST 539 EOR 602 ERPRNT 699 ERRMSG 974 ERROR 611 FINIS 380 GMWM 989 HEADCT 336 HEADPR 190 INIT 827 INIT2 841 K001 944 LOOPT 575 MOD1 848 MOVE 882 MVPASS 523 NOCARD 363 NOPSW 530 NXPROG 347 PASSCT 947 PRINT 711 REHALT 661 REPEAT 453 SETER 638 SKIPHD 442 START 347 SWDONE 874 TAPCA 950 TAPCON 987 TAPEHD 389 TAPEOF 375 TAPERR 337 TAPWRD 962 TESTEF 491 TESTHD 407 UNEQ 665 UNEQ2 672 UNHALT 695 WMTEST 718 WRHALT 634 WRITE 473