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 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 102 CTL 6611 103 * 104 * THIS IS ONE OF THE MOST DISORGANIZED PROGRAMS I HAVE EVER SEEN! 105 * 106 ORG 1 0001 107 1 BER 10 5 0001 B 010 L 4 108 6 B START 4 0006 B 844 4 109 10 RWD 1 5 0010 U %U1 R 4 110 15 RTW 1,1 8 0015 L %U1 001 R 4 111 23 B 1 4 0023 B 001 4 112 27 DCW #1 1 0027 4 113 ORG 334 0334 114 334 GOBACK B 0 4 0334 B 000 5 115 340 GM DCW @ } @ 3 0340 5 116 341 CLRNZ MCW TOSET-7,*&7 7 0341 M 457 354 5 117 348 MN TNOISE&7,0-0 BECOMES NINES-4 7 0348 D 423 000 5 118 355 CHAIN 13 MACRO 119 MN 1 0355 D GEN 5 120 MN 1 0356 D GEN 5 121 MN 1 0357 D GEN 5 122 MN 1 0358 D GEN 6 123 MN 1 0359 D GEN 6 124 MN 1 0360 D GEN 6 125 MN 1 0361 D GEN 6 126 MN 1 0362 D GEN 6 127 MN 1 0363 D GEN 6 128 MN 1 0364 D GEN 6 129 MN 1 0365 D GEN 7 130 MN 1 0366 D GEN 7 131 MN 1 0367 D GEN 7 132 368 S ERCNT 4 0368 S 466 7 133 372 B BMZONE 4 0372 B 451 7 134 376 HALT0 .? 2 0376 . ? 7 135 378 MCW TOSET,*&4 7 0378 M 464 388 7 136 385 MCW 0-0,*&7 7 0385 M 000 398 8 137 399 DCW @ R@ BECOMES RT 1,101 8 0399 8 138 400 H CLRNZ 4 0400 . 341 8 139 404 B BBUMP 4 0404 B 458 8 140 408 AZONE DCW #1 A ZONE SET HERE FOR NOISE TEST 1 0408 8 141 409 TPERR MCW TOSET-7,*&7 7 0409 M 457 422 8 142 416 TNOISE BCE CLRNZ,0-0, BECOMES NINES-4 8 0416 B 341 000 8 143 424 A K1,ERCNT 7 0424 A 468 466 9 144 431 MN UNIT,*&4 7 0431 D 467 441 9 145 438 BSP 0 5 0438 U %U0 B 9 146 443 BCE HALT0,ERCNT-1,| Q. 100 ERRORS 8 0443 B 376 465 | 9 147 451 BMZONE B 0 BECOMES MZONE 4 0451 B 000 9 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 457 DCW #3 BECOMES NINES-4 3 0457 9 149 458 BBUMP B 0 BECOMES BUMP 4 0458 B 000 9 150 464 TOSET DCW #3 BECOMES RT&6 3 0464 10 151 466 ERCNT DCW #2 BECOMES &00 2 0466 10 152 467 UNIT DC #1 BECOMES 1 1 0467 10 153 468 K1 DCW 1 1 0468 10 154 469 ZCOUNT MCW KZERO,COUNT 7 0469 M 516 515 10 155 476 MCW 1 0476 M 10 156 477 B GOBACK 4 0477 B 334 10 157 481 EOF B DONE 4 0481 B 992 10 158 485 HALTP .P 2 0485 . P 11 159 487 B ZCOUNT 4 0487 B 469 11 160 491 BGOBAK B GOBACK 4 0491 B 334 11 161 495 BHALTP B HALTP 4 0495 B 485 11 162 499 BZCNT B ZCOUNT 4 0499 B 469 11 163 503 BBGOBK B BGOBAK 4 0503 B 491 11 164 507 B BHALTP 4 0507 B 495 11 165 515 COUNT DCW #5 5 0515 12 166 516 KZERO DCW @0@ 1 0516 12 167 518 KPZ2 DCW &00 2 0518 12 168 519 K1A DC 1 1 0519 12 169 520 READ MCW K1A,UNIT 7 0520 M 519 467 12 170 527 MZONE MCW AZONE,BUF&13 PREPARE FOR NOISE TEST 7 0527 M 408 |67 12 171 534 RT RT 1,BUF 8 0534 M %U1 |54 R 12 172 542 MCW SETUP,TOSET 7 0542 M 585 464 12 173 549 MCW 1 0549 M 13 174 550 MCW 1 0550 M 13 175 551 MCW 1 0551 M 13 176 552 BEF EOF 5 0552 B 481 K 13 177 557 BER TPERR 5 0557 B 409 L 13 178 562 BUMP A K1B,COUNT 7 0562 A 586 515 13 179 569 B GOBACK 4 0569 B 334 13 180 575 DSA MZONE 3 0575 527 14 181 578 DSA NINES-4 3 0578 |49 14 182 579 B BUMP 4 0579 B 562 14 183 585 SETUP DSA RT&6 3 0585 540 14 184 586 K1B DCW 1 1 0586 14 185 587 DCW #1 1 0587 14 186 588 BBBACK B GOBACK 4 0588 B 334 14 187 592 CWPNCH CW PUNCH&4 4 0592 ) 600 15 188 596 PUNCH B PUNCH2 4 0596 B 607 15 189 602 DSA GM-1 3 0602 339 15 190 603 CS 180 4 0603 / 180 15 191 607 PUNCH2 P 1 0607 4 15 192 608 BIN PCHERR,! 5 0608 B 634 ! 15 193 613 MCW 180,CARDSV 7 0613 M 180 763 15 194 620 SW PUNCH&4 4 0620 , 600 16 195 624 B GOBACK 4 0624 B 334 16 196 628 HALT8 .8 2 0628 . 8 16 197 630 B PUNCH3 4 0630 B 663 16 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 634 PCHERR MCW 180,BADCD 7 0634 M 180 843 16 199 641 MCW CARDSV,180 7 0641 M 763 180 16 200 648 A K1OVFL,K1OVFL-1 7 0648 A 683 682 16 201 655 BCE HALT8,K1OVFL-1,? 8 0655 B 628 682 ? 17 202 663 PUNCH3 P 1 0663 4 17 203 664 BIN *&1,! 5 0664 B 669 ! 17 204 669 MCW BADCD,180 7 0669 M 843 180 17 205 676 STACK N0 2 0676 N 0 17 206 678 B PUNCH 4 0678 B 596 17 207 683 K1OVFL DCW @?1@ 2 0683 17 208 763 DA 1X80,C 0684 0763 17 209 CARDSV 80 0763 SBFLD 210 813 DA 1X80,C 0764 0843 20 211 BADCD 80 0843 SBFLD 212 844 START SW GM-1 4 0844 , 339 22 213 848 MZ *-6,AZONE 7 0848 Y 848 408 22 214 855 MCW AZONE,TNOISE&7 7 0855 M 408 423 22 215 862 MCW BACK1,GOBACK&3 7 0862 M 875 337 23 216 869 B BZCNT 4 0869 B 499 23 217 875 BACK1 DSA *&1 3 0875 876 23 218 876 MCW BACK2,GOBACK&3 7 0876 M 889 337 23 219 883 B BBBACK 4 0883 B 588 23 220 889 BACK2 DSA *&1 3 0889 890 23 221 890 SW 101 4 0890 , 101 23 222 894 MBACK3 MCW BACK3,GOBACK&3 7 0894 M 907 337 24 223 901 B READ 4 0901 B 520 24 224 907 BACK3 DSA *&1 3 0907 908 24 225 908 MVREC MCW BUF&79,180 7 0908 M /33 180 24 226 915 C 120,NINES 7 0915 C 120 |53 24 227 922 BE DONE 5 0922 B 992 S 24 228 927 MCW BACK4,GOBACK&3 7 0927 M 940 337 25 229 934 B PUNCH 4 0934 B 596 25 230 940 BACK4 DSA *&1 3 0940 941 25 231 941 STACK4 SS 4 2 0941 K 4 25 232 943 MCW STACK4&1,STACK&1 7 0943 M 942 677 25 233 950 C MVREC&3,EBUFA Q. END OF BUFFER 7 0950 C 911 |33 25 234 957 BE ENDBLK YES 5 0957 B 981 S 25 235 962 SW MVREC&1 4 0962 , 909 26 236 966 A K80,MVREC&3 7 0966 A Y56 911 26 237 973 CW MVREC&1 4 0973 ) 909 26 238 977 B MVREC 4 0977 B 908 26 239 981 ENDBLK MCW RESTOR&3,MVREC&3 7 0981 M |30 911 26 240 988 B MBACK3 4 0988 B 894 26 241 992 DONE MCW BACK5,GOBACK&3 7 0992 M |05 337 26 242 999 B BBGOBK 4 0999 B 503 27 243 1 005 BACK5 DSA *&1 3 1005 |06 27 244 1 006 MCW BACK6,GOBACK&3 7 1006 M |19 337 27 245 1 013 B CWPNCH 4 1013 B 592 27 246 1 019 BACK6 DSA *&1 3 1019 |20 27 247 1 020 H 999,999 7 1020 . 999 999 27 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 027 RESTOR MCW BUF&79 4 1027 M /33 27 249 1 033 EBUFA DSA BUF&799 3 1033 Y53 28 250 1 053 NINES DCW @99999999999999999999@ 20 1053 28 251 1 054 BUF DS 1 1054 252 ORG 1854 1854 253 1 854 DCW #1 1 1854 29 254 1 856 K80 DCW @80@ 2 1856 29 255 1 857 DCW @}@ 1 1857 GMARK 29 256 * 257 * WRITE THE PROGRAM ON TAPE 258 * 259 LOAD LCA BOOT,27 BOOT LINK TO LOW CORE 7 1858 L Z37 027 29 260 CHAIN 5 MACRO 261 LCA 1 1865 L GEN 29 262 LCA 1 1866 L GEN 29 263 LCA 1 1867 L GEN 29 264 LCA 1 1868 L GEN 30 265 LCA 1 1869 L GEN 30 266 WTAP WTW 1,1 8 1870 L %U1 001 W 30 267 BER WTERR 5 1878 B Y92 L 30 268 WHALT NOP 777 4 1883 N 777 30 269 H 1 1887 . 30 270 B WHALT 4 1888 B Y83 30 271 WTERR NOP 666 4 1892 N 666 31 272 H 1 1896 . 31 273 BSP 1 5 1897 U %U1 B 31 274 SKP 1 5 1902 U %U1 E 31 275 B WTAP 4 1907 B Y70 31 276 * 277 * BOOT LINK GETS MOVED TO 1..27 278 * 279 1 BER 10 5 1911 B 010 L 31 280 6 B START 4 1916 B 844 31 281 10 RWD 1 5 1920 U %U1 R 32 282 15 RTW 1,1 8 1925 L %U1 001 R 32 283 23 B 1 4 1933 B 001 32 284 27 BOOT DCW #1 1 1937 32 285 END LOAD / Y58 080 PAGE 5 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AZONE 408 BACK1 875 BACK2 889 BACK3 907 BACK4 940 BACK5 1005 BACK6 1019 BADCD 843 BBBACK 588 BBGOBK 503 BBUMP 458 BGOBAK 491 BHALTP 495 BMZONE 451 BOOT 1937 BUF 1054 BUMP 562 BZCNT 499 CARDSV 763 CLRNZ 341 COUNT 515 CWPNCH 592 DONE 992 EBUFA 1033 ENDBLK 981 EOF 481 ERCNT 466 GM 340 GOBACK 334 HALT0 376 HALT8 628 HALTP 485 K1 468 K1A 519 K1B 586 K1OVFL 683 K80 1856 KPZ2 518 KZERO 516 LOAD 1858 MBACK3 894 MVREC 908 MZONE 527 NINES 1053 PCHERR 634 PUNCH 596 PUNCH2 607 PUNCH3 663 READ 520 RESTOR 1027 RT 534 SETUP 585 STACK 676 STACK4 941 START 844 TNOISE 416 TOSET 464 TPERR 409 UNIT 467 WHALT 1883 WTAP 1870 WTERR 1892 ZCOUNT 469