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 PRINT, PUNCH, COPY THE DISTRIBUTION TAPE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT, PUNCH, COPY THE DISTRIBUTION TAPE 102 CTL 6611 103 * 104 * SENSE SWITCHES: 105 * D -- PRINT IF SENSE SWITCH B IS ON 106 * PUNCH IF SENSE SWITCH C IS ON. 107 * E -- SKIP ONE FILE, THEN PRINT/PUNCH AS IF FOR SWITCH D. 108 * F -- COPY TAPE 1 TO TAPE 2. 109 * G -- COPY THE FIRST FILE FROM TAPE 1 TO TAPE 2, 110 * THEN COPY CARDS TO TAPE TO TAPE 2. 111 * PRIORITY OF SWITCHES -- G, F, D, E. 112 * 113 * HALTS 114 * 111,111 ALL DONE 115 * 222,222 TAPE 2 IS TOO SHORT 116 * 333,333 NONE OF SWITCH D, E, F, G ON 117 * 777,777 TOO MANY ERRORS ON TAPE 1 118 * 119 ORG 1000 1000 120 1 000 START SW 1,101 7 1000 , 001 101 4 121 1 007 SW 201 4 1007 , 201 4 122 1 011 CC 1 2 1011 F 1 4 123 1 013 RT 1,501 SKIP THE EOF AFTER THIS PROGRAM 8 1013 M %U1 501 R 4 124 1 021 BEF *&1 5 1021 B |26 K 4 125 1 026 BSS COPYC,G COPY ONE TAPE FILE, THEN CARDS 5 1026 B U05 G 4 126 1 031 BSS COPY,F COPY THREE TAPE FILES 5 1031 B S13 F 4 127 1 036 BSS PRPU,D PRINT/PUNCH 5 1036 B /02 D 5 128 1 041 BSS SKIP2,E SKIP THE NEXT FILE 5 1041 B |57 E 5 129 1 046 H 333,333 7 1046 . 333 333 5 130 1 053 H *-3 4 1053 . |53 5 131 * 132 * SKIP FILE 2 133 * 134 1 057 SKIP2 SBR ERRCNT,0 7 1057 H W53 000 5 135 1 064 SW FIRST 4 1064 , W55 5 136 1 068 RT 1,501 8 1068 M %U1 501 R 6 137 1 076 SBR ENDRE2 4 1076 H W50 6 138 1 080 SBR ENDRE1 4 1080 H W47 6 139 1 084 BER RTERR 5 1084 B V14 L 6 140 1 089 BEF PRPU END OF FILE 2 5 1089 B /02 K 6 141 1 094 B NOISE CHECK FOR NOISE RECORD 4 1094 B V72 6 142 1 098 B SKIP2 4 1098 B |57 6 143 * 144 * PRINT FILE IF SWITCH B IS ON AND PUNCH IT IF SWITCH C IS ON 145 * 146 1 102 PRPU SBR ERRCNT,0 7 1102 H W53 000 7 147 1 109 RT 1,501 8 1109 M %U1 501 R 7 1 PRINT, PUNCH, COPY THE DISTRIBUTION TAPE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 117 SBR ENDRE2 4 1117 H W50 7 149 1 121 SBR ENDRE1 4 1121 H W47 7 150 1 125 BER RTERR 5 1125 B V14 L 7 151 1 130 BEF EOF3 5 1130 B /70 K 7 152 1 135 B NOISE CHECK FOR NOISE RECORD 4 1135 B V72 7 153 1 139 BSS *&5,B Q. PRINT 5 1139 B /48 B 8 154 1 144 B TESTC 4 1144 B /61 8 155 1 148 MCW 580,280 7 1148 M 580 280 8 156 1 155 W 1 1155 2 8 157 1 156 BCV PAGE 5 1156 B S07 @ 8 158 1 161 TESTC BSS PUNCH,C Q. PUNCH 5 1161 B /93 C 8 159 1 166 B PRPU 4 1166 B /02 8 160 1 170 EOF3 BW SECOND,FIRST 8 1170 V T62 W55 1 9 161 1 178 SW FIRST 4 1178 , W55 9 162 1 182 CC 1 2 1182 F 1 9 163 1 184 BSS PRPU,E 5 1184 B /02 E 9 164 1 189 B SECOND 4 1189 B T62 9 165 1 193 PUNCH MCW 580,180 7 1193 M 580 180 9 166 1 200 P 1 1200 4 9 167 1 201 SS 4 2 1201 K 4 10 168 1 203 B PRPU 4 1203 B /02 10 169 1 207 PAGE CC 1 2 1207 F 1 10 170 1 209 B TESTC 4 1209 B /61 10 171 * 172 * COPY TAPE 1 TO TAPE 2 173 * 174 1 213 COPY RWD 1 5 1213 U %U1 R 10 175 1 218 RWD 2 5 1218 U %U2 R 10 176 1 223 CW 581 4 1223 ) 581 10 177 1 227 COPYL SBR ERRCNT,0 7 1227 H W53 000 11 178 1 234 RTW 1,501 8 1234 L %U1 501 R 11 179 1 242 SBR ENDRE2 4 1242 H W50 11 180 1 246 SBR ENDRE1 4 1246 H W47 11 181 1 250 BER RTERR 5 1250 B V14 L 11 182 1 255 TSTEOF BEF CPEND 5 1255 B T38 K 11 183 1 260 B NOISE 4 1260 B V72 11 184 1 264 SW ENDRE2-2 4 1264 , W48 12 185 1 268 A AM1,ENDRE2 7 1268 A W58 W50 12 186 1 275 CW ENDRE2-2 4 1275 ) W48 12 187 1 279 SW ENDRE2-2 4 1279 , W48 12 188 1 283 MCW ENDRE2,*&4 7 1283 M W50 S93 12 189 1 290 SW 0-0 4 1290 , 000 12 190 1 294 MCW ENDRE2,CWEND&3 WHERE TO CLEAR WM AFTER RECORD 7 1294 M W50 T29 12 191 1 301 SBR ERRCNT,0 7 1301 H W53 000 13 192 1 308 WTW 2,501 8 1308 L %U2 501 W 13 193 1 316 BER WTERR 5 1316 B W15 L 13 194 1 321 BEF FULL NOT ENOUGH ROOM ON TAPE 2 5 1321 B T94 K 13 195 1 326 CWEND CW 0-0 4 1326 ) 000 13 196 1 330 CS 580 4 1330 / 580 13 197 1 334 B COPYL 4 1334 B S27 13 1 PRINT, PUNCH, COPY THE DISTRIBUTION TAPE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 338 CPEND WTM 2 5 1338 U %U2 M 14 199 1 343 BCE CPFIN,FILECT,2 8 1343 B U79 W54 2 14 200 1 351 A K1,FILECT 7 1351 A W59 W54 14 201 1 358 B COPYL 4 1358 B S27 14 202 * 203 1 362 SECOND RWD 1 5 1362 U %U1 R 14 204 1 367 BSS BLANK,C 5 1367 B T83 C 14 205 1 372 H111 H 111,111 7 1372 . 111 111 15 206 1 379 H *-3 4 1379 . T79 15 207 1 383 BLANK CS 180 PUNCH A BLANK CARD 4 1383 / 180 15 208 1 387 P TO STACK THE LAST CARD 1 1387 4 15 209 1 388 SS 8 2 1388 K 8 15 210 1 390 B H111 4 1390 B T72 15 211 * 212 * TAPE 2 IS FULL 213 * 214 1 394 FULL H 222,222 7 1394 . 222 222 15 215 1 401 H *-3 4 1401 . U01 16 216 * 217 * COPY A FILE FROM TAPE 1 TO TAPE 2, THEN COPY CARDS TO TAPE 2, 218 * WRITING A TAPE MARK IF $EOF APPEARS IN CC 1-4. 219 * 220 1 405 COPYC MCW AWTM2,TSTEOF&3 7 1405 M W62 S58 16 221 1 412 B COPY 4 1412 B S13 16 222 1 416 WTM2 WTM 2 5 1416 U %U2 M 16 223 1 421 CS 580 4 1421 / 580 16 224 1 425 LCA GMWM,581 7 1425 L W63 581 16 225 1 432 RDCARD BLC CPFIN 5 1432 B U79 A 16 226 1 437 R 1 1437 1 17 227 1 438 C 4,KEOF 7 1438 C 004 W67 17 228 1 445 BE WTM2C 5 1445 B V05 S 17 229 1 450 MCW 80,580 7 1450 M 080 580 17 230 1 457 WT 2,501 8 1457 M %U2 501 W 17 231 1 465 BER WTERR 5 1465 B W15 L 17 232 1 470 BEF FULL 5 1470 B T94 K 17 233 1 475 B RDCARD 4 1475 B U32 18 234 * 235 * FINISHED COPYING THREE FILES 236 * 237 1 479 CPFIN WTM 2 5 1479 U %U2 M 18 238 1 484 RWD 1 5 1484 U %U1 R 18 239 1 489 RWD 2 5 1489 U %U2 R 18 240 1 494 H 111,111 7 1494 . 111 111 18 241 1 501 H *-3 4 1501 . V01 18 242 * 243 * WRITE EOF BECAUSE OF $EOF CARD 244 * 245 1 505 WTM2C WTM 2 5 1505 U %U2 M 18 246 1 510 B RDCARD 4 1510 B U32 19 247 * 1 PRINT, PUNCH, COPY THE DISTRIBUTION TAPE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 * READ TAPE ERROR 249 * 250 1 514 RTERR SBR RTERRX&3 4 1514 H V60 19 251 1 518 SW RTERRX&1 4 1518 , V58 19 252 1 522 A AM21,RTERRX&3 7 1522 A W70 V60 19 253 1 529 CW RTERRX&1 4 1529 ) V58 19 254 1 533 BSP 1 5 1533 U %U1 B 19 255 1 538 C ERRCNT,K009 7 1538 C W53 W73 19 256 1 545 BL MANY 5 1545 B V61 T 20 257 1 550 A K1,ERRCNT 7 1550 A W59 W53 20 258 1 557 RTERRX B 0 4 1557 B 000 20 259 1 561 MANY H 777,777 7 1561 . 777 777 20 260 1 568 H RTERRX 4 1568 . V57 20 261 * 262 * CHECK FOR NOISE RECORD 263 * 264 1 572 NOISE SBR SHORT&3 4 1572 H W14 20 265 1 576 SBR NOISEX&3 4 1576 H W05 20 266 1 580 SW SHORT&1 4 1580 , W12 21 267 1 584 A KM30,SHORT&3 BACK UP SHORT RECORD EXIT -30 7 1584 A W76 W14 21 268 1 591 CW SHORT&1 4 1591 ) W12 21 269 1 595 C ENDRE1,K515 Q. SHORT RECORD 7 1595 C W47 W79 21 270 1 602 NOISEX BL 0-0 NO, NORMAL EXIT 5 1602 B 000 T 21 271 1 607 CS 515 CLEAR SHORT RECORD 4 1607 / 515 21 272 1 611 SHORT B 0-0 SHORT RECORD EXIT 4 1611 B 000 21 273 * 274 * WRITE TAPE ERROR ROUTINE 275 * 276 1 615 WTERR SBR WTERRX&3 4 1615 H W44 22 277 1 619 SW WTERRX&1 4 1619 , W42 22 278 1 623 A KM13,WTERRX&3 7 1623 A W82 W44 22 279 1 630 CW WTERRX&1 4 1630 ) W42 22 280 1 634 BSP 2 5 1634 U %U2 B 22 281 1 640 UE CAN SKIP BE CHAINED 2 1639 U E 22 282 1 641 WTERRX B 0 4 1641 B 000 22 283 * 284 1 647 ENDRE1 DSA 0 3 1647 000 23 285 1 650 ENDRE2 DSA 0 3 1650 000 23 286 1 653 ERRCNT DSA 0 TAPE READ ERROR COUNT 3 1653 000 23 287 1 654 FILECT DCW 0 1 1654 23 288 1 655 FIRST DC #1 FIRST-TIME FLAG 1 1655 23 289 1 658 AM1 DSA 15999 -1 ADDRESS MODIFIER 3 1658 I9I 23 290 1 659 K1 DCW 1 1 1659 23 291 1 662 AWTM2 DSA WTM2 3 1662 U16 23 292 1 663 GMWM DCW @}@ 1 1663 GMARK 24 293 1 667 KEOF DCW @$EOF@ 4 1667 24 294 1 670 AM21 DSA 15979 -21 ADDRESS MODIFIER 3 1670 I7I 24 295 1 673 K009 DSA 9 3 1673 009 24 296 1 676 KM30 DSA 15970 -30 ADDRESS MODIFIER 3 1676 I7? 24 297 1 679 K515 DSA 515 FOR TESTING NOISE RECORDS 3 1679 515 24 1 PRINT, PUNCH, COPY THE DISTRIBUTION TAPE PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 682 KM13 DSA 15987 -13 ADDRESS MODIFIER 3 1682 I8G 24 299 END START / |00 080 1 PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AM1 1658 AM21 1670 AWTM2 1662 BLANK 1383 COPY 1213 COPYC 1405 COPYL 1227 CPEND 1338 CPFIN 1479 CWEND 1326 ENDRE1 1647 ENDRE2 1650 EOF3 1170 ERRCNT 1653 FILECT 1654 FIRST 1655 FULL 1394 GMWM 1663 H111 1372 K009 1673 K1 1659 K515 1679 KEOF 1667 KM13 1682 KM30 1676 MANY 1561 NOISE 1572 NOISEX 1602 PAGE 1207 PRPU 1102 PUNCH 1193 RDCARD 1432 RTERR 1514 RTERRX 1557 SECOND 1362 SHORT 1611 SKIP2 1057 START 1000 TESTC 1161 TSTEOF 1255 WTERR 1615 WTERRX 1641 WTM2 1416 WTM2C 1505