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 01B6A 01B6 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 01B6A 102 ORG 420 0420 103 420 START CS 332 4 0420 / 332 4 104 424 CS 1 0424 / 4 105 425 CS 1 0425 / 4 106 426 C ONE,ONE 7 0426 C 766 766 4 107 433 BU UNEQ 5 0433 B 758 / 4 108 438 C TWO,TWO 7 0438 C 767 767 4 109 445 BU UNEQ 5 0445 B 758 / 4 110 450 C FOUR,FOUR 7 0450 C 768 768 5 111 457 BU UNEQ 5 0457 B 758 / 5 112 462 C EIGHT,EIGHT 7 0462 C 769 769 5 113 469 BU UNEQ 5 0469 B 758 / 5 114 474 C A,A 7 0474 C 770 770 5 115 481 BU UNEQ 5 0481 B 758 / 5 116 486 C J,J 7 0486 C 771 771 6 117 493 BU UNEQ 5 0493 B 758 / 6 118 498 C SLASH,SLASH 7 0498 C 772 772 6 119 505 BU UNEQ 5 0505 B 758 / 6 120 510 BSS BSKIP,B 5 0510 B 519 B 6 121 515 B TEST 4 0515 B 621 6 122 519 BSKIP C ONE,TWO 7 0519 C 766 767 7 123 526 BU N1 5 0526 B 531 / 7 124 531 N1 BE EQ 5 0531 B 762 S 7 125 536 C TWO,FOUR 7 0536 C 767 768 7 126 543 BU N2 5 0543 B 548 / 7 127 548 N2 BE EQ 5 0548 B 762 S 7 128 553 C FOUR,EIGHT 7 0553 C 768 769 8 129 560 BU N3 5 0560 B 565 / 8 130 565 N3 BE EQ 5 0565 B 762 S 8 131 570 C A,J 7 0570 C 770 771 8 132 577 BU N4 5 0577 B 582 / 8 133 582 N4 BE EQ 5 0582 B 762 S 8 134 587 C A,SLASH 7 0587 C 770 772 9 135 594 BU N5 5 0594 B 599 / 9 136 599 N5 BE EQ 5 0599 B 762 S 9 137 604 C J,SLASH 7 0604 C 771 772 9 138 611 BU N6 5 0611 B 616 / 9 139 616 N6 BE EQ 5 0616 B 762 S 9 140 621 TEST BIN UNEQ,? READER ERROR 5 0621 B 758 ? 9 141 626 B UNEQ,& WHAT IS THIS? 5 0626 B 758 & 10 142 631 B UNEQ,! PUNCH ERROR 5 0631 B 758 ! 10 143 636 A STUFF,COUNT 7 0636 A 787 802 10 144 643 MCS COUNT,220 7 0643 Z 802 220 10 145 650 BC9 C9 CARRIAGE CHANNEL 9 5 0650 B 655 9 10 146 655 C9 BCV C12 CARRIAGE CHANNEL 12 5 0655 B 660 @ 10 147 660 C12 BWZ WM,A2,1 WORD MARK 8 0660 V 668 803 1 11 1 01B6A 01B6 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 668 WM BWZ Z12,A2,B 12 ZONE 8 0668 V 676 803 B 11 149 676 Z12 W 1 0676 2 11 150 677 BSS BBE,C 5 0677 B 692 C 11 151 682 TESTG BSS OUT,G 5 0682 B 712 G 11 152 687 WRITE W 1 0687 2 11 153 688 B START 4 0688 B 420 11 154 692 BBE BBE UNEQ,A2,8 8 0692 W 758 803 8 12 155 700 BBE TESTG,A2,1 8 0700 W 682 803 1 12 156 708 B UNEQ 4 0708 B 758 12 157 712 OUT LCA ED1,280 7 0712 L 813 280 12 158 719 MCE NUM,280 7 0719 E 844 280 12 159 726 LCA ED2,260 7 0726 L 826 260 13 160 733 MCE NUM,260 7 0733 E 844 260 13 161 740 LCA ED3,240 7 0740 L 839 240 13 162 747 MCE NUM,240 7 0747 E 844 240 13 163 754 B WRITE 4 0754 B 687 13 164 758 UNEQ H START 4 0758 . 420 13 165 762 EQ B UNEQ 4 0762 B 758 14 166 766 ONE DCW 1 1 0766 14 167 767 TWO DCW 2 1 0767 14 168 768 FOUR DCW 4 1 0768 14 169 769 EIGHT DCW 8 1 0769 14 170 770 A DCW @A@ 1 0770 14 171 771 J DCW @J@ 1 0771 14 172 772 SLASH DCW @/@ 1 0772 15 173 773 STUFF DCW @00AJ/9876543210@ 15 0787 15 174 788 COUNT DCW @000000000000000@ 15 0802 15 175 803 A2 DCW @A@ 1 0803 15 176 804 ED1 DCW @ . $0, @ EDIT MASK 10 0813 16 177 814 ED2 DCW @ . *0, &CR@ EDIT MASK 13 0826 16 178 827 ED3 DCW @CR& . 0 , @ EDIT MASK 13 0839 16 179 840 NUM DCW @23020@ 5 0844 17 180 END START / 420 080 1 01B6A 01B6 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A 770 A2 803 BBE 692 BSKIP 519 C12 660 C9 655 COUNT 802 ED1 813 ED2 826 ED3 839 EIGHT 769 EQ 762 FOUR 768 J 771 N1 531 N2 548 N3 565 N4 582 N5 599 N6 616 NUM 844 ONE 766 OUT 712 SLASH 772 START 420 STUFF 787 TEST 621 TESTG 682 TWO 767 UNEQ 758 WM 668 WRITE 687 Z12 676