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 1440 LOADER BOOTSTRAP PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 101 JOB 1440 LOADER BOOTSTRAP 102 * 103 * BOOTSTRAP LOADER CARD 104 * 105 ORG 1 0001 106 SW A,B 7 0001 , 008 015 4 008 015 107 A SW C,D 7 0008 , 022 029 4 022 029 108 B SW E,I 7 0015 , 036 058 4 036 058 109 C LCA K&3,BACK&3 7 0022 L 070 086 4 070 086 110 D SW F,BACK&4 7 0029 , 043 087 4 043 087 111 E SW G,75 7 0036 , 050 075 5 050 075 112 F SW BACK,H 7 0043 , 083 054 5 083 054 113 G S I 4 0050 S 058 5 058 114 H B R 4 0054 B 075 5 075 115 I DCW @}@ 1 0058 GMARK 5 116 MCW %G1,1,R 8 0059 M %G1 001 R 5 %G1 001 117 K B 1 4 0067 B 001 5 001 118 DC @ BOOTSTCD@ 10 0080 6 119 GMWM EQU 74 GMWM MOVED TO HERE BY EXECUTING C 0074 120 * 121 * FIRST LOADER CARD 122 * 123 ORG 1 0001 124 CW H,G 7 0001 ) 054 050 7 054 050 125 CW I,F 7 0008 ) 058 043 7 058 043 126 LCA LL,206 7 0015 L 071 206 7 071 206 127 SW K1,L 7 0022 , 206 040 7 206 040 128 B R 4 0029 B 075 7 075 129 DC #3 3 0035 7 130 B 106 4 0036 B 106 7 106 131 L S TEST-1 4 0040 S 201 8 201 132 BCE MA2,202,~ 8 0044 B 156 202 ~ 8 156 202 133 MCW LOOP,CW.SW 7 0052 M 106 152 8 106 152 134 B MOVE 4 0059 B 138 8 138 135 DCW 07 2 0064 8 136 DCW @)@ 1 0065 8 137 DC #2 2 0067 8 138 DC 001 3 0070 8 139 LL DCW 1 1 0071 8 140 DC @ LOADER01@ 9 0080 9 141 * 142 * SECOND LOADER CARD 143 * 144 ORG 1 0001 145 LCA L2+7,H2&7 7 0001 L 072 170 10 072 170 146 SW H2,MA2 7 0008 , 163 156 10 163 156 147 SW CW.SW,MOVE2 7 0015 , 152 145 10 152 145 1 1440 LOADER BOOTSTRAP PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 148 SW SWCHAR,J2 7 0022 , 175 179 10 175 179 149 SW K2,M2 7 0029 , 187 194 10 187 194 150 B R 4 0036 B 075 10 075 151 MCW 7,TEST GET NEXT TWO CHARACTERS INTO TEST 7 0040 M 007 202 11 007 202 152 MCW TEST-1,0-0 STORE THE FIRST ONE 7 0047 M 201 000 11 201 000 153 CW 0-0 CLEAR OR SET ITS WORD MARK 4 0054 ) 000 11 000 154 MA K001,MOVE&3 BUMP THE INPUT ADDRESS 7 0058 # 205 141 11 205 141 155 L2 BCE SWCHAR,TEST-1,~ FIRST CHARACTER IS WORD SEP 8 0065 B 175 201 ~ 11 175 201 156 DC @LOADER02@ 8 0080 12 157 * 158 * THIRD LOADER CARD 159 * 160 ORG 1 0001 161 LCA L3+7,F2&7 7 0001 L 071 137 13 071 137 162 SW F2,E2 7 0008 , 130 129 13 130 129 163 SW D2,C2 7 0015 , 122 118 13 122 118 164 SW B2,A2 7 0022 , 114 113 13 114 113 165 SW K07-1,CW 7 0029 , 198 200 13 198 200 166 B R 4 0036 B 075 13 075 167 SW COUNT-1,MA2 7 0040 , 004 156 14 004 156 168 MCW MOVE START ADDR TO CW.SW 1 0047 M 14 169 MCW CW SET CW OP CODE TO CW.SW 4 0048 M 200 14 200 170 MCW WHERE MOVE START ADDRESS TO MOVE2 4 0052 M 003 14 003 171 S K1,COUNT SUBTRACT 1 FROM COUNT 7 0056 S 206 005 14 206 005 172 MA ADD 1 TO START ADDRESS 1 0063 # 14 173 L3 BM READ,COUNT READ A CARD IF COUNT IS NEGATIVE 8 0064 V 075 005 K 14 075 005 174 DC @ LOADER03@ 9 0080 15 175 * 176 * FOURTH LOADER CARD 177 * 178 ORG 1 0001 179 LCA L4&6,LOOP-1 7 0001 L 070 105 16 070 105 180 SW B4,A4 7 0008 , 099 095 16 099 095 181 SW M4,LOAD 7 0015 , 087 083 16 087 083 182 SW TEST-1,TEST-1 7 0022 , 201 201 16 201 201 183 SW TEST+1,TEST+1 7 0029 , 203 203 16 203 203 184 B LOAD 4 0036 B 083 16 083 185 BW 6,6 8 0040 V 006 006 1 17 006 006 186 CS GMWM-1 4 0048 / 073 17 073 187 MCW %G1,1,R 8 0052 M %G1 001 R 17 %G1 001 188 SW 1 4 0060 , 001 17 001 189 L4 MCW K07,MOVE&3 7 0064 M 199 141 17 199 141 190 DC @ LOADER04@ 10 0080 18 191 * 192 * CARD READING DURING BOOTSTRAP 193 * 194 ORG 75 0075 195 R MCW %G1,1,R 8 0075 M %G1 001 R 19 %G1 001 196 BACK B 1 4 0083 B 001 19 001 1 1440 LOADER PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 197 JOB 1440 LOADER 198 * 199 * THE LOADER 200 * 201 ORG 1 0001 202 WHERE DCW #3 WHERE TO COPY THE FIRST CHAR 3 0003 20 203 COUNT DCW #2 2 0005 20 204 ORG R 0075 205 READ BW 6,6 8 0075 V 006 006 1 21 006 006 206 LOAD CS 73 4 0083 / 073 21 073 207 M4 MCW %G1,1,R 8 0087 M %G1 001 R 21 %G1 001 208 A4 SW 1 4 0095 , 001 21 001 209 B4 MCW K07,MOVE&3 7 0099 M 199 141 21 199 141 210 LOOP SW COUNT-1,MA2 7 0106 , 004 156 21 004 156 211 A2 MCW MOVE START ADDR TO CW.SW 1 0113 M 21 212 B2 MCW CW SET CW OP CODE TO CW.SW 4 0114 M 200 22 200 213 C2 MCW WHERE MOVE START ADDRESS TO MOVE2 4 0118 M 003 22 003 214 D2 S K1,COUNT SUBTRACT 1 FROM COUNT 7 0122 S 206 005 22 206 005 215 E2 MA ADD 1 TO START ADDRESS 1 0129 # 22 216 F2 BM READ,COUNT READ A CARD IF COUNT IS NEGATIVE 8 0130 V 075 005 K 22 075 005 217 MOVE MCW 7,TEST GET NEXT TWO CHARACTERS INTO TEST 7 0138 M 007 202 22 007 202 218 MOVE2 MCW TEST-1,0-0 STORE THE FIRST ONE 7 0145 M 201 000 22 201 000 219 CW.SW CW 0-0 CLEAR OR SET ITS WORD MARK 4 0152 ) 000 23 000 220 MA2 MA K001,MOVE&3 BUMP THE INPUT ADDRESS 7 0156 # 205 141 23 205 141 221 H2 BCE SWCHAR,TEST-1,~ FIRST CHARACTER IS WORD SEP 8 0163 B 175 201 ~ 23 175 201 222 B LOOP 4 0171 B 106 23 106 223 SWCHAR S TEST-1 4 0175 S 201 23 201 224 J2 BCE MA2,202,~ SECOND CHARACTER IS WORD SEP 8 0179 B 156 202 ~ 23 156 202 225 K2 MCW LOOP,CW.SW CHANGE CW.SW TO SW 7 0187 M 106 152 24 106 152 226 M2 B MOVE 4 0194 B 138 24 138 227 K07 DCW 07 2 0199 24 228 CW CW 1 0200 ) 24 229 TEST DC #2 2 0202 24 230 K001 DC 001 3 0205 24 231 K1 DCW 1 1 0206 24 232 END / 000 080 000 1 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A 0008: 0 A2 0113: 0 A4 0095: 0 B 0015: 0 B2 0114: 0 B4 0099: 0 BACK 0083: 0 C 0022: 0 C2 0118: 0 COUNT 0005: 0 CW 0200: 0 CW.SW 0152: 0 D 0029: 0 D2 0122: 0 E 0036: 0 E2 0129: 0 F 0043: 0 F2 0130: 0 G 0050: 0 GMWM 0074: 0 H 0054: 0 H2 0163: 0 I 0058: 0 J2 0179: 0 K 0067: 0 K001 0205: 0 K07 0199: 0 K1 0206: 0 K2 0187: 0 L 0040: 0 L2 0065: 0 L3 0064: 0 L4 0064: 0 LL 0071: 0 LOAD 0083: 0 LOOP 0106: 0 M2 0194: 0 M4 0087: 0 MA2 0156: 0 MOVE 0138: 0 MOVE2 0145: 0 R 0075: 0 READ 0075: 0 SWCHAR 0175: 0 TEST 0202: 0 WHERE 0003: 0