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 01A7 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 102 * 103 * SWITCHES: 104 * NONE: TEST RUNS UP TO 1900 105 * B: TEST RUNS UP TO 3900, C AND D NOT TESTED 106 * C: TEST RUNS UP TO 7900, D NOT TESTED 107 * D: TEST RUNS UP TO 11900 108 * E: NOT USED 109 * F: TEST INDEXING 110 * G: NOT USED 111 * 112 X1 EQU 89 0089 113 X2 EQU 94 0094 114 X3 EQU 99 0099 115 ORG 420 0420 116 420 START CS 332 4 0420 / 332 4 117 424 CS 1 0424 / 4 118 425 CS 1 0425 / 4 119 * 120 * MOVE 110-111, 110-112, ... 110-120 TO 800 121 * 122 426 MLOOP1 SW M1&3,110 7 0426 , 447 110 4 123 433 A K1,M1&3 7 0433 A 707 447 4 124 440 CW M1&3 4 0440 ) 447 4 125 444 M1 MCW 110,800 7 0444 M 110 800 4 126 451 BCE MLP1X,M1&3,0 8 0451 B 463 447 0 5 127 459 B MLOOP1 4 0459 B 426 5 128 * 129 * MOVE 110-130, 110-140, ... 110-200 TO 800 130 * 131 463 MLP1X LCA M1&6,M2&6 7 0463 L 450 491 5 132 470 MLOOP2 SW M2&2 4 0470 , 487 5 133 474 A K1,M2&2 7 0474 A 707 487 5 134 481 CW M2&2 4 0481 ) 487 5 135 485 M2 MCW 0,0 7 0485 M 000 000 6 136 492 BCE MLP2X,M2&2,0 8 0492 B 504 487 0 6 137 500 B MLOOP2 4 0500 B 470 6 138 * 139 * MOVE 110-300, 110-400, 500-500, 594-600, 698-700, 737-800, 140 * 737-900... TO 800. FINAL ADDRESS DEPENDS ON SWITCHES B-D. 141 * 142 504 MLP2X LCA M2&6,M3&6 7 0504 L 491 532 6 143 511 MLOOP3 SW M3&1 4 0511 , 527 6 144 515 A K100,M3&3 7 0515 A 732 529 6 145 522 CW M3&1 4 0522 ) 527 7 146 526 M3 MCW 0,0 7 0526 M 000 000 7 147 533 BSS M3TEST,B RUN TEST TO 3900 5 0533 B 564 B 7 1 01A7 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 538 BSS MOTHR,C USE MA INSTEAD OF ADD 5 0538 B 580 C 7 149 543 BSS MOTHR,D USE MA INSTEAD OF ADD 5 0543 B 580 D 7 150 548 C KM1900&3,M3&3 TEST FOR 1900 7 0548 C 721 529 7 151 555 BU MLOOP3 5 0555 B 511 / 7 152 560 B MLOOPX 4 0560 B 638 8 153 564 M3TEST C KM3900&3,M3&3 7 0564 C 725 529 8 154 571 BU MLOOP3 5 0571 B 511 / 8 155 576 B MLOOPX 4 0576 B 638 8 156 580 MOTHR LCA M3&6,M4&6 7 0580 L 532 600 8 157 587 MLOOP4 MA K100,M4&3 7 0587 # 732 597 8 158 594 M4 MCW 0,0 7 0594 M 000 000 9 159 601 BSS M4TEST,D RUN TEST TO 11900 5 0601 B 622 D 9 160 606 C KM7900&3,M4&3 TEST FOR 7900 7 0606 C 736 597 9 161 613 BU MLOOP4 5 0613 B 587 / 9 162 618 B MLOOPX 4 0618 B 638 9 163 622 M4TEST C KM119&3,M4&3 TEST FOR 11900 7 0622 C 729 597 9 164 629 BU MLOOP4 5 0629 B 587 / 10 165 634 B MLOOPX 4 0634 B 638 10 166 * 167 * RESET M1 168 * 169 638 MLOOPX LCA MINIT&6,M1&6 7 0638 L 714 450 10 170 645 BSS INDEX,F TEST WITH INDEXING 5 0645 B 656 F 10 171 650 RP RP 1 0650 5 10 172 651 WM WM START 5 0651 2 420 ) 10 173 * 174 * ADD WITH INDEXING 737-801 TO 737-801, TWICE. 175 * 176 656 INDEX LCA K001,X1 7 0656 L 717 089 10 177 663 LCA K001,X2 7 0663 L 717 094 11 178 670 LCA K001,X3 7 0670 L 717 099 11 179 677 A 800&X1,800&X2 7 0677 A 8'0 8!0 11 180 684 AX3X1 A 800&X3,800&X1 7 0684 A 8?0 8'0 11 181 691 C KA801&3,AX3X1&3 SHOULD ALWAYS BE UNEQUAL 7 0691 C 740 687 11 182 698 BU RP 5 0698 B 650 / 12 183 703 B WM 4 0703 B 651 12 184 * 185 * CONSTANTS 186 * 187 707 K1 DCW 1 1 0707 12 188 708 MINIT MCW 110,800 7 0708 M 110 800 12 189 715 K001 DCW 001 3 0717 12 190 718 KM1900 MCW 1900 4 0718 M Z00 12 191 722 KM3900 MCW 3900 4 0722 M I00 12 192 726 KM119 MCW 11900 4 0726 M I0! 13 193 730 K100 DCW 100 3 0732 13 194 733 KM7900 MCW 7900 4 0733 M I0' 13 195 737 KA801 A 801 4 0737 A 801 13 196 END START / 420 080 1 01A7 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AX3X1 684 INDEX 656 K001 717 K1 707 K100 732 KA801 737 KM119 726 KM1900 718 KM3900 722 KM7900 733 M1 444 M2 485 M3 526 M3TEST 564 M4 594 M4TEST 622 MINIT 708 MLOOP1 426 MLOOP2 470 MLOOP3 511 MLOOP4 587 MLOOPX 638 MLP1X 463 MLP2X 504 MOTHR 580 RP 650 START 420 WM 651 X1 89 X2 94 X3 99