1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00012TAP1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP1 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000032TAP1 0 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 102 CTL 630 1 103 1 03 * PHASE 1 - READ AND ANALYZE SOURCE PROGRAM 104 1 04 * ** SYSTEMS CONTROL ** 105 1 05 ORG 82 0082 106 1 06 CHECK DCW @ @ 1 0082 4 107 1 07 DCW @ }@ 3 0085 4 & } L004085,083040,040040,040040104000042TAP1 108 81 DC @}@ GROUP MARK WITHOUT WORD MARK 1 0081 5 109 1 09 ORG 100 0100 &} L001081)081081,040040,040040104000052TAP1 110 1 10 LOAD RWD 1 5 0100 U %U1 R 6 111 1 11 RTW 1,CHECK 8 0105 L %U1 082 R 6 112 1 12 BER TPERR 5 0113 B 201 L 6 113 1 13 BCE *&5,CHECK,D 8 0118 B 130 082 D 6 114 1 14 B LOAD&5 4 0126 B 105 6 115 1 15 BSP 1 5 0130 U %U1 B 6 &U%U1RL%U1082RB201LB130082DB105U%U1B L035134,105113,118126,130040104000062TAP1 116 1 16 RTW 1,333 8 0135 L %U1 333 R 7 117 1 18 SW CHECK&3 4 0143 , 085 7 118 1 19 RTW 1,CHECK 8 0147 L %U1 082 R 7 119 BCE SENTNL,CHECK,% 8 0155 B I43 082 % 7 120 1 21 B *-19 4 0163 B 147 7 121 1 22 SEEK EQU LOAD&25 0125 122 1 23 SYSTEM R 40 4 0167 1 040 7 &L%U1333R,085L%U1082RBI43082%B1471040 L036170,143147,155163,167040104000072TAP1 123 1 24 BSP 1 5 0171 U %U1 B 8 124 1 25 SKP 1 5 0176 U %U1 E 8 125 1 26 B 40 4 0181 B 040 8 126 LASTLT EQU 10 0010 127 1 28 REITER DC @ @ 1 0185 8 128 1 29 FULL DC @ @ 1 0186 8 129 1 30 LITCTL DCW #1 1 0187 8 130 1 31 RELATV DC @ @ 1 0188 8 131 TX3987 DCW @I87@ 3 0191 8 132 1 32 ORG 3943 3943 &U%U1BU%U1EB040 I87 L021191,176181,187189,040040104000082TAP1 133 1 321 SENTNL BCE REWRIT,333,1 8 3943 B I71 333 1 9 134 1 322 BCE REWRIT,333,3 8 3951 B I71 333 3 9 135 1 323 BCE REWRIT,333,7 8 3959 B I71 333 7 9 136 1 324 B HSKPG 4 3967 B 334 9 137 1 325 REWRIT BSP 1 5 3971 U %U1 B 9 &BI713331BI713333BI713337B334U%U1B L033I75,I51I59,I67I71,040040104000092TAP1 138 WTW 1,CHECK 8 3976 L %U1 082 W 10 139 BER TPERR 5 3984 B 201 L 10 140 BCE 334,CHECK,% 8 3989 B 334 082 % 10 141 H 1 3997 . 10 142 1 33 ORG 201 0201 &L%U1082WB201LB334082%. L022I97,I84I89,I97040,040040104000102TAP1 143 1 34 TPERR SBR X1 4 0201 H 089 11 144 1 35 A TX3987,X1 7 0205 A 191 089 11 145 1 36 BW TXCOMP,TXGET&1 8 0212 V 252 221 1 11 146 1 37 TXGET MLC 17&X1,TXEOF&4 7 0220 M 0/7 330 11 147 1 38 MLC TXDUMY&4,17&X1 7 0227 M 325 0/7 11 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &H089A191089V2522211M0/7330M3250/7 L033233,205212,220227,040040104000112TAP1 148 1 39 MLC 3&X1,TXBSP&3 7 0234 M 0|3 263 12 149 MLC TXBSP&5,TXBSP 7 0241 M 265 260 12 150 1 40 SW TXGET&1 4 0248 , 221 12 151 1 41 TXCOMP B TXPERM,TXCNTL,9 8 0252 B 281 331 9 12 152 1 42 TXBSP BSP 1 5 0260 U %U1 B 12 153 1 43 SKP 1 5 0265 U %U1 E 12 &M0|3263M265260,221B2813319U%U1BU%U1E L036269,241248,252260,265040104000122TAP1 154 1 44 A *-6,TXCNTL 7 0270 A 270 331 13 155 1 45 B 0&X1 4 0277 B 0|0 13 156 1 46 TXPERM H 888,888 7 0281 . 888 888 13 157 1 47 MLC TXPERM-1,TXCNTL 7 0288 M 280 331 13 158 1 48 B TXBSP 4 0295 B 260 13 159 1 49 TXDONE MLC TXPERM-1,TXCNTL 7 0299 M 280 331 13 &A270331B0|0.888888M280331B260M280331 L036305,277281,288295,299040104000132TAP1 160 1 50 MLC TXEOF&4,17&X1 7 0306 M 330 0/7 14 161 1 51 CW TXGET&1 4 0313 ) 221 14 162 1 52 B 13&X1 4 0317 B 0/3 14 163 1 53 TXDUMY B TXDONE 4 0321 B 299 14 164 1 54 DC @ @ 1 0325 14 165 1 55 TXEOF BEF 1 5 0326 B 001 K 14 166 1 56 TXCNTL DCW @0@ 1 0331 14 167 1 561 DC #1 1 0332 14 168 1 562 DCW @1@ 1 0333 14 169 1 58 * 170 1 59 ORG 334 0334 &M3300/7)221B0/3B299 B001K0 1 L028333,313317,321326,331333104000142TAP1 171 1 60 HSKPG CW DAON#1,CARDIN#1 7 0334 ) H40 H41 15 172 1 61 CW TWO#1 4 0341 ) H42 15 173 1 62 RWD 2 5 0345 U %U2 R 15 174 1 621 NOP 000 4 0350 N 000 15 175 1 622 NOP 1 0354 N 15 176 1 63 SW 3998 4 0355 , I98 15 177 1 64 LCA 3998,RECRD2&171 7 0359 L I98 E18 15 &)H40H41)H42U%U2RN000N,I98LI98E18 L032365,341345,350354,355359104000152TAP1 178 1 65 LCA 3998,PARTBL&90 7 0366 L I98 G76 16 179 LCA 3998,81 7 0373 L I98 081 16 180 CS 80 4 0380 / 080 16 181 R 1 0384 1 16 182 SS 1 2 0385 K 1 16 183 C 20,RECORD&19 7 0387 C 020 F24 16 184 BE SETPAR 5 0394 B 444 S 16 &LI98G76LI98081/0801K1C020F24B444S L033398,373380,384385,387394104000162TAP1 185 SW 76,CARDIN 7 0399 , 076 H41 17 186 LCA 80,PARAMT&4 7 0406 L 080 G04 17 187 B PUTRCD 4 0413 B |21 17 188 1 66 * 189 1 67 * 190 1 68 X1 EQU 0089 0089 &,076H41L080G04B|21 L018416,406413,040040,040040104000172TAP1 191 1 69 0089 DCW @ @ 3 0089 18 192 1 70 X2 EQU 0094 0094 & L003089,040040,040040,040040104000182TAP1 193 1 71 0094 DCW @ @ 3 0094 19 194 1 72 X3 EQU 0099 0099 & L003094,040040,040040,040040104000192TAP1 195 1 73 0099 DCW @ @ 3 0099 20 196 1 74 * GET RECORD ROUTINE & L003099,040040,040040,040040104000202TAP1 197 1 75 RDCARD BWZ *&005,CARDIN,1 8 0417 V 429 H41 1 21 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 76 B READ 4 0425 B 437 21 199 1 77 CW CARDIN 4 0429 ) H41 21 200 1 78 B SETPAR 4 0433 B 444 21 201 1 79 READ CS 0080 4 0437 / 080 21 202 1 82 R 1 0441 1 21 203 SS 1 2 0442 K 1 21 &V429H411B437)H41B444/0801K1 L027443,425429,433437,441442104000212TAP1 204 SETPAR SW 1,6 7 0444 , 001 006 22 205 1 81 SW 0016,0021 7 0451 , 016 021 22 206 1 815 SW RECORD&75 4 0458 , F80 22 207 CS PARAMT&69 4 0462 / G69 22 208 1 84 MLC 80,RECORD&79 7 0466 M 080 F84 22 209 1 85 CHAIN 4 MACRO 210 MLC 1 0473 M GEN 22 211 MLC 1 0474 M GEN 22 &,001006,016021,F80/G69M080F84MM L031474,451458,462466,473474104000222TAP1 212 MLC 1 0475 M GEN 23 213 MLC 1 0476 M GEN 23 214 1 88 CW DMOD,RECORD 7 0477 ) H38 F05 23 215 1 89 CW ERRPOS,ERRPOS-002 7 0484 ) F91 F89 23 216 1 90 MCW BLANKS,LOCATN 7 0491 M H05 F99 23 217 1 91 MCW 1 0498 M 23 218 1 92 MCW 1 0499 M 23 &MM)H38F05)F91F89MH05F99MM L025499,476477,484491,498499104000232TAP1 219 1 93 MCW 1 0500 M 24 220 1 94 MCW BLANKS,ERRPOS 7 0501 M H05 F91 24 221 1 95 MCW 1 0508 M 24 222 1 98 SW PARAMT,PARAMT&010 7 0509 , G00 G10 24 223 1 99 SW PARAMT&020,PARAMT&030 7 0516 , G20 G30 24 224 2 00 SW PARAMT&040,PARAMT&050 7 0523 , G40 G50 24 225 2 01 MCW ZEROS,X1 7 0530 M G79 089 24 &MMH05F91M,G00G10,G20G30,G40G50MG79089 L037536,501508,509516,523530104000242TAP1 226 BCE PUTCMT,LABEL-5,* 8 0537 B 769 006 * 25 227 2 03 C 20,@DCW @ 7 0545 C 020 H47 25 228 2 04 BE CONST 5 0552 B R79 S 25 229 2 05 C 20,@DC @ 7 0557 C 020 H52 25 230 2 06 BE CONST 5 0564 B R79 S 25 231 C 20,@DA @ 7 0569 C 020 H57 25 &B769006*C020H47BR79SC020H52BR79SC020H57L039575,545552,557564,569040104000252TAP1 232 2 08 BE DALINE 5 0576 B !08 S 26 233 2 09 C 20,@LTORG@ 7 0581 C 020 H62 26 234 2 10 BE LTORG 5 0588 B B50 S 26 235 2 11 C 20,@EX @ 7 0593 C 020 H67 26 236 2 12 BE EXECUT 5 0600 B B30 S 26 237 C 20,@JOB @ 7 0605 C 020 H72 26 &B!08SC020H62BB50SC020H67BB30SC020H72 L036611,581588,593600,605040104000262TAP1 238 BU *&12 5 0612 B 628 / 27 239 MLC 80,PARAMT&4 7 0617 M 080 G04 27 240 B PUTRCD 4 0624 B |21 27 241 2 13 C 20,@END @ 7 0628 C 020 H77 27 242 2 14 BE ENDSCE 5 0635 B A73 S 27 243 2 15 B PROPND 4 0640 B |88 27 244 2 16 ANYLIT MLC @000@,X1 7 0644 M H80 089 27 &B628/M080G04B|21C020H77BA73SB|88MH80089L039650,617624,628635,640644104000272TAP1 245 2 17 MLC @ @,PAR&59 7 0651 M H81 E01 28 246 2 18 SW PAR,PAR&30 7 0658 , D42 D72 28 247 2 19 MLC PAR&59,PAR&58 7 0665 M E01 E00 28 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 20 MLC 1 0672 M 28 249 2 21 MLC @ @,RECRD2&10 7 0673 M H87 C57 28 250 2 22 MLC AADDR,RECRD2&81 7 0680 M F86 D28 28 &MH81E01,D42D72ME01E00MMH87C57MF86D28 L036686,658665,672673,680040104000282TAP1 251 2 23 BCE NUMLIT,AADDR,L 8 0687 B 805 F86 L 29 252 2 24 BCE ALPHA,AADDR,F 8 0695 B 879 F86 F 29 253 2 25 BCE LTAREA,AADDR,W 8 0703 B 894 F86 W 29 254 2 26 BCE ADCON,AADDR,C 8 0711 B 948 F86 C 29 255 2 29 SETLTB MLC @030@,X1 7 0719 M H90 089 29 &B805F86LB879F86FB894F86WB948F86CMH90089L039725,695703,711719,040040104000292TAP1 256 2 30 MLC BADDR,RECRD2&81 7 0726 M F87 D28 30 257 2 31 BCE NUMLIT,BADDR,L 8 0733 B 805 F87 L 30 258 2 32 BCE ALPHA,BADDR,F 8 0741 B 879 F87 F 30 259 2 33 BCE LTAREA,BADDR,W 8 0749 B 894 F87 W 30 260 2 34 BCE ADCON,BADDR,C 8 0757 B 948 F87 C 30 &MF87D28B805F87LB879F87FB894F87WB948F87CL039764,733741,749757,040040104000302TAP1 261 2 37 B PUTRCD 4 0765 B |21 31 262 PUTCMT LCA SERIAL,79 7 0769 L E55 079 31 263 A @1@,SERIAL 7 0776 A H91 E55 31 264 WTW 1,1 8 0783 L %U1 001 W 31 265 BER TPERR 5 0791 B 201 L 31 266 BEF *&1 5 0796 B 801 K 31 &B|21LE55079AH91E55L%U1001WB201LB801K L036800,769776,783791,796040104000312TAP1 267 B RDCARD 4 0801 B 417 32 268 2 38 * SET UP NUMERIC LITERAL 269 2 39 NUMLIT CW PARAMT&20&X1,PARAMT&10&X1 7 0805 ) GS0 G/0 32 270 2 40 LCA PARAMT&27&X1,PAR&27 7 0812 L GS7 D69 32 271 2 41 MLC PAR&27,PAR&56 7 0819 M D69 D98 32 272 2 42 MLC @000@,X2 7 0826 M H80 094 32 273 2 43 MLC PARAMT&29&X1,X2 7 0833 M GS9 094 32 &B417)GS0G/0LGS7D69MD69D98MH80094MGS9094L039839,805812,819826,833040104000322TAP1 274 2 44 MZ PAR,PAR&29&X2 7 0840 Y D42 DP1 33 275 2 45 LITOUT LCA @000@,RECRD2&90 7 0847 L H80 D37 33 276 2 46 A PARAMT&29&X1,RECRD2&90 7 0854 A GS9 D37 33 277 2 47 LCA PAR&27,RECRD2&47 7 0861 L D69 C94 33 278 2 48 MLC @Y@,LITOUT-7 7 0868 M H92 840 33 279 2 49 B PUTLIT 4 0875 B 977 33 280 2 50 * SET UP ALPHANUMERIC LITERAL &YD42DP1LH80D37AGS9D37LD69C94MH92840B977L039878,847854,861868,875040104000332TAP1 281 2 51 ALPHA MLC @N@,LITOUT-7 7 0879 M H93 840 34 282 2 515 CW PAR&30 4 0886 ) D72 34 283 2 52 B NUMLIT 4 0890 B 805 34 284 2 53 * SET UP LITERAL AREA 285 2 54 LTAREA LCA PARAMT&5&X1,RECRD2&10 7 0894 L G|5 C57 34 286 MLC BLANKS,PAR&29 7 0901 M H05 D71 34 287 MLC BLANKS 4 0908 M H05 34 288 MLC BLANKS 4 0912 M H05 34 &MH93840)D72B805LG|5C57MH05D71MH05MH05 L037915,886890,894901,908912104000342TAP1 289 2 56 MLC PARAMT&9&X1,PAR&2 7 0916 M G|9 D44 35 290 2 57 LCA @#@,PAR 7 0923 L H94 D42 35 291 2 58 LCA @000@,RECRD2&90 7 0930 L H80 D37 35 292 2 59 A PARAMT&9&X1,RECRD2&90 7 0937 A G|9 D37 35 293 2 60 B LITOUT&14 4 0944 B 861 35 294 2 61 * SET UP ADDRESS CONSTANT 295 2 62 ADCON MLC PARAMT&7&X1,PAR&7 7 0948 M G|7 D49 35 &MG|9D44LH94D42LH80D37AG|9D37B861MG|7D49L039954,923930,937944,948040104000352TAP1 296 2 63 SW PARAMT&18&X1 4 0955 , G/8 36 297 2 64 MLC PARAMT&14&X1,PAR&14 7 0959 M G/4 D56 36 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 65 MLC PARAMT&19&X1,PAR&19 7 0966 M G/9 D61 36 299 2 66 B LITOUT 4 0973 B 847 36 300 2 92 * WRITE A LITERAL RECORD 301 2 93 PUTLIT LCA SERIAL,RECRD2&4 7 0977 L E55 C51 36 302 2 94 CW RECRD2 4 0984 ) C47 36 303 2 95 SW RECRD2&3 4 0988 , C50 36 &,G/8MG/4D56MG/9D61B847LE55C51)C47,C50 L037991,959966,973977,984988104000362TAP1 304 TWLIT WTW 2,RECRD2 8 0992 L %U2 C47 W 37 305 2 97 BER TPERR 5 1000 B 201 L 37 306 2 99 BW RESET,DAON 8 1005 V |73 H40 1 37 307 3 00 BCE SETLTB,X1-1,0 8 1013 B 719 088 0 37 308 PUTRCD LCA SERIAL,RECORD&79 7 1021 L E55 F84 37 &L%U2C47WB201LV|73H401B7190880LE55F84 L036|27,|00|05,|13|21,040040104000372TAP1 309 3 05 B PUTXXX 4 1028 B I23 38 310 3 051 NOP 1 1032 N 38 311 3 052 NOP 1 1033 N 38 312 3 053 NOP 1 1034 N 38 313 3 06 WTW 1,RECORD 8 1035 L %U1 F05 W 38 314 3 07 BER TPERR 5 1043 B 201 L 38 315 3 08 BEF *&1 5 1048 B |53 K 38 &BI23NNNL%U1F05WB201LB|53K L025|52,|32|33,|34|35,|43|48104000382TAP1 316 3 09 BW RMBACK,ALFGM 8 1053 V Q37 H33 1 39 317 3 10 BW NOREAD,DAON 8 1061 V M39 H40 1 39 318 3 11 B RDCARD 4 1069 B 417 39 319 3 12 RESET MLC ADDR-1,PARAMT&29&X1 7 1073 M G94 GS9 39 320 3 13 CW DAON 4 1080 ) H40 39 321 3 14 B PUTRCD-8 4 1084 B |13 39 322 3 15 * ANALYZE OPERAND & SET PARAMT 323 3 16 PROPND SBR ANALEX&003 4 1088 H W01 39 &VQ37H331VM39H401B417MG94GS9)H40B|13HW01L039|91,|61|69,|73|80,|84|88104000392TAP1 324 3 17 BCE ANALEX,0021, 8 1092 B V98 021 40 325 3 18 MCW K20,X1 7 1100 M E30 089 40 326 3 19 MCW ZEROS,X2 7 1107 M G79 094 40 327 3 20 MCW I99,X3 7 1114 M E46 099 40 328 3 21 CW COMMSW,ACTADD 7 1121 ) G85 G86 40 &BV98021 ME30089MG79094ME46099)G85G86 L036/27,/00/07,/14/21,040040104000402TAP1 329 3 22 BCE ALFOPD,0021,@ 8 1128 B S26 021 @ 41 330 3 23 BWZ NOZONE,0021,2 8 1136 V /64 021 2 41 331 3 24 BCE STEP,0021,& 8 1144 B S08 021 & 41 332 3 25 BCE STEP,0021,- 8 1152 B S08 021 - 41 333 3 26 B ANALYZ 4 1160 B /68 41 &BS26021@V/640212BS08021&BS08021-B/68 L036/63,/36/44,/52/60,040040104000412TAP1 334 3 27 NOZONE SW ACTADD 4 1164 , G86 42 335 3 28 ANALYZ BCE COMMA,0001&X1,, 8 1168 B S96 0|1 , 42 336 3 29 BCE PLUS,0001&X1,& 8 1176 B U29 0|1 & 42 337 3 30 BCE PLUS,0001&X1,- 8 1184 B U29 0|1 - 42 338 3 31 BCE AREA,0001&X1,# 8 1192 B U59 0|1 # 42 &,G86BS960|1,BU290|1&BU290|1-BU590|1# L036/99,/68/76,/84/92,040040104000422TAP1 339 3 32 BCE END,0001&X1, 8 1200 B V86 0|1 43 340 3 33 STEP A K1,X1 7 1208 A E19 089 43 341 3 34 A K1,X3 7 1215 A E19 099 43 342 3 35 B ANALYZ 4 1222 B /68 43 343 3 36 ALFOPD S X1,X3 7 1226 S 089 099 43 &BV860|1 AE19089AE19099B/68S089099 L033S32,S08S15,S22S26,040040104000432TAP1 344 3 37 MZ BLANKS,X3 7 1233 Y H05 099 44 345 3 38 MCW K71,X1 7 1240 M E40 089 44 346 3 39 ALFTST BCE ALFEND,0001&X1,@ 8 1247 B S66 0|1 @ 44 347 3 40 A MINUS,X1 7 1255 A E50 089 44 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 3 41 B ALFTST 4 1262 B S47 44 &YH05099ME40089BS660|1@AE50089BS47 L033S65,S40S47,S55S62,040040104000442TAP1 349 3 42 ALFEND A X1,X3 7 1266 A 089 099 45 350 3 43 MZ K1,X3-002 7 1273 Y E19 097 45 351 3 44 B STORE 4 1280 B W13 45 352 3 45 BCE GAP2,0001&X1,, 8 1284 B T71 0|1 , 45 353 3 46 B ANALEX 4 1292 B V98 45 354 3 47 COMMA B STORE 4 1296 B W13 45 &A089099YE19097BW13BT710|1,BV98BW13 L034S99,S73S80,S84S92,S96040104000452TAP1 355 3 48 GAP BCE GAP1,0001&X1, 8 1300 B T63 0|1 46 356 3 49 BWZ USE60,COMMSW,1 8 1308 V U10 G85 1 46 357 3 50 USE30 MCW K30,X2 7 1316 M E35 094 46 358 3 51 SW COMMSW 4 1323 , G85 46 359 3 52 FIRST SW 0001&X1 4 1327 , 0|1 46 360 3 53 CW ACTADD 4 1331 ) G86 46 &BT630|1 VU10G851ME35094,G85,0|1)G86 L035T34,T08T16,T23T27,T31040104000462TAP1 361 3 54 BCE ALFOPD,0001&X1,@ 8 1335 B S26 0|1 @ 47 362 3 55 BWZ SK1,0001&X1,2 8 1343 V T55 0|1 2 47 363 3 56 B STEP 4 1351 B S08 47 364 3 57 SK1 SW ACTADD 4 1355 , G86 47 365 3 58 B STEP 4 1359 B S08 47 366 3 59 GAP1 BWZ GAP3,COMMSW,1 8 1363 V T82 G85 1 47 &BS260|1@VT550|12BS08,G86BS08VT82G851 L036T70,T43T51,T55T59,T63040104000472TAP1 367 3 60 GAP2 A K1,X1 7 1371 A E19 089 48 368 3 61 B GAP 4 1378 B T00 48 369 3 62 GAP3 BCE GAP4,0002&X1, 8 1382 B T94 0|2 48 370 3 63 B GAP2 4 1390 B T71 48 371 3 64 GAP4 C OPER-001,KBCE 7 1394 C F22 G82 48 372 3 65 BE USE60 5 1401 B U10 S 48 373 3 66 B ANALEX 4 1406 B V98 48 &AE19089BT00BT940|2 BT71CF22G82BU10SBV98L039U09,T78T82,T90T94,U01U06104000482TAP1 374 3 67 USE60 MCW K60,X2 7 1410 M E37 094 49 375 3 68 SW 0001&X1 4 1417 , 0|1 49 376 3 69 CW ACTADD 4 1421 ) G86 49 377 3 70 B STEP 4 1425 B S08 49 378 3 71 PLUS BCE STEP,0000&X1,& 8 1429 B S08 0|0 & 49 379 3 72 B STORE 4 1437 B W13 49 380 3 73 A K10,X2 7 1441 A E27 094 49 &ME37094,0|1)G86BS08BS080|0&BW13AE27094 L038U47,U17U21,U25U29,U37U41104000492TAP1 381 3 74 A MINUS,X1 7 1448 A E50 089 50 382 3 75 B FIRST 4 1455 B T27 50 383 3 76 AREA B STORE 4 1459 B W13 50 384 3 77 SW 0001&X1,PARAMT&008&X2 7 1463 , 0|1 G!8 50 385 3 78 BCE WTOBAD,X2-001,3 8 1470 B V75 093 3 50 386 3 79 MCW W,AADDR 7 1478 M H12 F86 50 &AE50089BT27BW13,0|1G!8BV750933MH12F86 L037U84,U55U59,U63U70,U78040104000502TAP1 387 3 80 TESTW BCE SINGLE,0002&X1,, 8 1485 B V19 0|2 , 51 388 3 81 BCE SINGLE,0002&X1, 8 1493 B V19 0|2 51 389 3 82 DOUBLE MCW 0002&X1,PARAMT&009&X2 7 1501 M 0|2 G!9 51 390 3 83 A K1,X1 7 1508 A E19 089 51 391 3 84 B SINGLE&007 4 1515 B V26 51 &BV190|2,BV190|2 M0|2G!9AE19089BV26 L034V18,U93V01,V08V15,040040104000512TAP1 392 3 85 SINGLE MCW 0001&X1,PARAMT&009&X2 7 1519 M 0|1 G!9 52 393 C PARAMT&9&X2,@53@ 7 1526 C G!9 H96 52 394 BH *&5 5 1533 B V42 U 52 395 SW ERRPOS 4 1538 , F91 52 396 3 86 A PARAMT&009&X2,LITCNT 7 1542 A G!9 F95 52 397 3 87 A K1,X1 7 1549 A E19 089 52 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &M0|1G!9CG!9H96BV42U,F91AG!9F95AE19089 L037V55,V26V33,V38V42,V49040104000522TAP1 398 3 88 BCE ANALEX,0001&X1, 8 1556 B V98 0|1 53 399 3 89 A K1,X1 7 1564 A E19 089 53 400 3 90 B GAP 4 1571 B T00 53 401 3 91 WTOBAD MCW W,BADDR 7 1575 M H12 F87 53 402 3 92 B TESTW 4 1582 B U85 53 403 3 93 END BWZ GETDM,DMOD,1 8 1586 V W02 H38 1 53 &BV980|1 AE19089BT00MH12F87BU85VW02H381 L038V93,V64V71,V75V82,V86040104000532TAP1 404 3 94 B STORE 4 1594 B W13 54 405 3 95 ANALEX B 0000 4 1598 B 000 54 406 3 96 GETDM LCA 0000&X1,PARAMT&060 7 1602 L 0|0 G60 54 407 3 97 B ANALEX 4 1609 B V98 54 408 3 98 STORE SBR STEXIT&003 4 1613 H X77 54 409 3 99 BWZ ACTUAL,ACTADD,1 8 1617 V X78 G86 1 54 410 BW *&12,KONST 8 1625 V W44 E47 1 54 &BW13B000L0|0G60BV98HX77VX78G861VW44E471L039W32,V98W02,W09W13,W17W25104000542TAP1 411 3 992 C X3,@27@ 7 1633 C 099 H98 55 412 3 993 B *&8 4 1640 B W51 55 413 3 994 C X3,@53@ 7 1644 C 099 H96 55 414 3 995 BH *&12 5 1651 B W67 U 55 415 3 996 MLC @26@,X3 7 1656 M I00 099 55 416 3 998 SW ERRPOS 4 1663 , F91 55 &C099H98BW51C099H96BW67UMI00099,F91 L034W66,W40W44,W51W56,W63040104000552TAP1 417 4 00 MCW X3,CHARCT 7 1667 M 099 G84 56 418 4 01 A X2,X3 7 1674 A 094 099 56 419 4 02 LCA 0000&X1,PARAMT&X3 7 1681 L 0|0 G?0 56 420 4 03 BCE TSTLIT,X2-001,0 8 1688 B Y16 093 0 56 421 4 04 SW STEXIT&001 4 1696 , X75 56 &M099G84A094099L0|0G?0BY160930,X75 L033W99,W74W81,W88W96,040040104000562TAP1 422 4 05 BCE TSTLIT,X2-001,3 8 1700 B Y16 093 3 57 423 4 06 LCA CHARCT,PARAMT&009&X2 7 1708 L G84 G!9 57 424 4 07 SW STEXIT&002 4 1715 , X76 57 425 4 08 UPDAT MCW I99,X3 7 1719 M E46 099 57 426 4 09 A K1,X1 7 1726 A E19 089 57 &BY160933LG84G!9,X76ME46099AE19089 L033X32,X08X15,X19X26,040040104000572TAP1 427 4 10 BWZ STEXIT-007,STEXIT&002,1 8 1733 V X67 X76 1 58 428 4 11 BWZ SETBAD,STEXIT&001,1 8 1741 V X60 X75 1 58 429 4 12 MCW ADDR,AADDR 7 1749 M G95 F86 58 430 4 13 B STEXIT 4 1756 B X74 58 431 4 14 SETBAD MCW ADDR,BADDR 7 1760 M G95 F87 58 &VX67X761VX60X751MG95F86BX74MG95F87 L034X66,X41X49,X56X60,040040104000582TAP1 432 4 15 CW STEXIT&001,STEXIT&002 7 1767 ) X75 X76 59 433 4 16 STEXIT B 0000 4 1774 B 000 59 434 4 17 ACTUAL SW PARAMT&X2 4 1778 , G!0 59 435 4 18 A 0000&X1,PARAMT&004&X2 7 1782 A 0|0 G!4 59 436 4 19 MCW A,ADDR 7 1789 M H07 G95 59 437 4 20 BCE *&005,X2-001,3 8 1796 B Y08 093 3 59 &)X75X76B000,G!0A0|0G!4MH07G95BY080933 L037Y03,X74X78,X82X89,X96040104000592TAP1 438 4 21 B UPDAT 4 1804 B X19 60 439 4 22 SW STEXIT&001 4 1808 , X75 60 440 4 23 B UPDAT 4 1812 B X19 60 441 4 24 TSTLIT BCE ALFLIT,PARAMT&X2,@ 8 1816 B Z45 G!0 @ 60 442 4 25 BCE LITERL,PARAMT&X2,& 8 1824 B Y81 G!0 & 60 443 4 26 BCE LITERL,PARAMT&X2,- 8 1832 B Y81 G!0 - 60 &BX19,X75BX19BZ45G!0@BY81G!0&BY81G!0- L036Y39,Y08Y12,Y16Y24,Y32040104000602TAP1 444 4 27 C K6,CHARCT 7 1840 C E24 G84 61 445 4 28 BL *&012 5 1847 B Y63 T 61 446 4 29 SW ERRPOS 4 1852 , F91 61 447 4 30 MCW K5,CHARCT 7 1856 M E22 G84 61 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 4 31 LCA CHARCT,PARAMT&009&X2 7 1863 L G84 G!9 61 449 4 32 MCW S,ADDR 7 1870 M H06 G95 61 &CE24G84BY63T,F91ME22G84LG84G!9MH06G95 L037Y76,Y47Y52,Y56Y63,Y70040104000612TAP1 450 4 33 B UPDAT 4 1877 B X19 62 451 4 34 LITERL BCE RECURS,PARAMT&001&X2,& 8 1881 B Z30 G!1 & 62 452 4 35 BCE RECURS,PARAMT&001&X2,- 8 1889 B Z30 G!1 - 62 453 4 36 BWZ LITNUM,PARAMT&001&X2,2 8 1897 V Z56 G!1 2 62 454 4 37 LTADCN A K3,LITCNT 7 1905 A E21 F95 62 &BX19BZ30G!1&BZ30G!1-VZ56G!12AE21F95 L035Z11,Y81Y89,Y97Z05,040040104000622TAP1 455 MLC @ @,CHARCT 7 1912 M I02 G84 63 456 4 39 MCW C,ADDR 7 1919 M H11 G95 63 457 4 40 B CNTLIT&007 4 1926 B Z74 63 458 RECURS SW ERRPOS 4 1930 , F91 63 459 MCW S,ADDR 7 1934 M H06 G95 63 460 B UPDAT 4 1941 B X19 63 &MI02G84MH11G95BZ74,F91MH06G95BX19 L033Z44,Z19Z26,Z30Z34,Z41040104000632TAP1 461 4 55 ALFLIT MCW F,ADDR 7 1945 M H08 G95 64 462 4 56 B MOVENM 4 1952 B E87 64 463 4 57 LITNUM MCW L,ADDR 7 1956 M H09 G95 64 464 4 58 B CNTLIT 4 1963 B Z67 64 465 4 59 CNTLIT A CHARCT,LITCNT 7 1967 A G84 F95 64 466 4 60 BWZ *&012,KONST,1 8 1974 V Z93 E47 1 64 &MH08G95BE87MH09G95BZ67AG84F95VZ93E471 L037Z81,Z52Z56,Z63Z67,Z74040104000642TAP1 467 4 61 LCA CHARCT,PARAMT&029&X2 7 1982 L G84 GK9 65 468 4 62 B UPDAT 4 1989 B X19 65 469 4 63 LCA CHARCT,PARAMT&059 7 1993 L G84 G59 65 470 4 64 CW KONST 4 2000 ) E47 65 471 4 65 B UPDAT 4 2004 B X19 65 472 4 66 * PROCESS DA HEADER 473 4 67 DALINE MCW K20,X1 7 2008 M E30 089 65 &LG84GK9BX19LG84G59)E47BX19ME30089 L033!14,Z89Z93,!00!04,!08040104000652TAP1 474 4 68 MCW ZEROS,X2 7 2015 M G79 094 66 475 4 69 MCW I99,X3 7 2022 M E46 099 66 476 4 70 CW COMMA1&009,ANALDA&002 7 2029 ) J31 !42 66 477 4 71 CW RECORD 4 2036 ) F05 66 478 4 72 ANALDA BCE X,0001&X1,X 8 2040 B !90 0|1 X 66 &MG79094ME46099)J31!42)F05B!900|1X L033!47,!22!29,!36!40,040040104000662TAP1 479 4 73 BCE COMMA1,0001&X1,, 8 2048 B J22 0|1 , 67 480 4 74 BCE END1,0001&X1, 8 2056 B J68 0|1 67 481 4 75 STEP1 A K1,X1 7 2064 A E19 089 67 482 4 76 A K1,X3 7 2071 A E19 099 67 483 4 77 BWZ ANALDA&008,ANALDA&002,1 8 2078 V !48 !42 1 67 &BJ220|1,BJ680|1 AE19089AE19099V!48!421 L038!85,!56!64,!71!78,040040104000672TAP1 484 4 78 B ANALDA 4 2086 B !40 68 485 4 79 X LCA 0000&X1,PARAMT&009&X2 7 2090 L 0|0 G!9 68 486 4 80 MCW I98,X3 7 2097 M E43 099 68 487 4 81 A K10,X2 7 2104 A E27 094 68 488 4 82 SW 0002&X1,ANALDA&002 7 2111 , 0|2 !42 68 489 4 83 B STEP1 4 2118 B !64 68 &B!40L0|0G!9ME43099AE27094,0|2!42B!64 L036J21,!90!97,J04J11,J18040104000682TAP1 490 COMMA1 BW BXLOK,*&2 8 2122 V J50 J31 1 69 491 4 85 SW *-002 4 2130 , J31 69 492 BW *&5,ANALDA&2 8 2134 V J46 !42 1 69 493 SW ERRPOS 4 2142 , F91 69 494 4 86 B X 4 2146 B !90 69 495 BXLOK A X2,X3 7 2150 A 094 099 69 &VJ50J311,J31VJ46!421,F91B!90A094099 L035J56,J30J34,J42J46,J50040104000692TAP1 496 4 88 LCA 0000&X1,PARAMT&X3 7 2157 L 0|0 G?0 70 497 4 89 B X&007 4 2164 B !97 70 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 90 END1 BWZ *&012,COMMA1&009,1 8 2168 V J87 J31 1 70 499 4 91 LCA 0000&X1,PARAMT&009&X2 7 2176 L 0|0 G!9 70 500 4 92 B *&015 4 2183 B K01 70 501 4 93 A X2,X3 7 2187 A 094 099 70 &L0|0G?0B!97VJ87J311L0|0G!9BK01A094099 L037J93,J64J68,J76J83,J87040104000702TAP1 502 4 94 LCA 0000&X1,PARAMT&X3 7 2194 L 0|0 G?0 71 503 4 95 CALCDA MCW ZEROS,HOLD 7 2201 M G79 G92 71 504 4 96 MCW PARAMT&019,HOLD 7 2208 M G19 G92 71 505 4 97 MCW ZEROS,X1 7 2215 M G79 089 71 506 4 98 A PARAMT&016,X1 7 2222 A G16 089 71 &L0|0G?0MG79G92MG19G92MG79089AG16089 L035K28,K01K08,K15K22,040040104000712TAP1 507 4 99 MZ ZONE&X1,HOLD-002 7 2229 Y EV6 G90 72 508 5 00 MCW HOLD,LITCNT 7 2236 M G92 F95 72 509 5 01 MCW ZEROS,ADDR 7 2243 M G79 G95 72 510 5 02 MCW PARAMT&009,ADDR 7 2250 M G09 G95 72 511 5 03 DECR S K1,ADDR 7 2257 S E19 G95 72 &YEV6G90MG92F95MG79G95MG09G95SE19G95 L035K63,K36K43,K50K57,040040104000722TAP1 512 5 04 C ZEROPL,ADDR 7 2264 C H15 G95 73 513 5 05 BE *&012 5 2271 B K87 S 73 514 5 06 A HOLD,LITCNT 7 2276 A G92 F95 73 515 5 07 B DECR 4 2283 B K57 73 516 5 08 MCW LITCNT,LOCCNT 7 2287 M F95 G89 73 517 5 09 MCW ZEROS,X1 7 2294 M G79 089 73 &CH15G95BK87SAG92F95BK57MF95G89MG79089 L037L00,K71K76,K83K87,K94040104000732TAP1 518 5 10 SCANDA BCE INCXNG,PARAMT&020&X1,X 8 2301 B L44 GS0 X 74 519 5 11 BCE INCRMK,PARAMT&020&X1,| 8 2309 B L80 GS0 | 74 520 5 12 BCE INCGMK,PARAMT&020&X1,G 8 2317 B M09 GS0 G 74 521 5 13 TSTNXT BCE SKIP5,X1-001,4 8 2325 B M31 088 4 74 522 5 14 A K10,X1 7 2333 A E27 089 74 &BL44GS0XBL80GS0|BM09GS0GBM310884AE27089L039L39,L09L17,L25L33,040040104000742TAP1 523 5 15 B SCANDA 4 2340 B L01 75 524 5 16 INCXNG MCW K1,ACTOP 7 2344 M E19 F96 75 525 5 17 MCW ZEROS,X2 7 2351 M G79 094 75 526 5 18 SW PARAMT&021&X1 4 2358 , GS1 75 527 5 19 A PARAMT&021&X1,X2 7 2362 A GS1 094 75 528 5 20 MZ ZONE&X2,ACTOP 7 2369 Y EN6 F96 75 &BL01ME19F96MG79094,GS1AGS1094YEN6F96 L036L75,L44L51,L58L62,L69040104000752TAP1 529 5 21 B TSTNXT 4 2376 B L25 76 530 5 22 INCRMK A PARAMT&009,LITCNT 7 2380 A G09 F95 76 531 5 23 LCA K1,PARAMT&60 7 2387 L E19 G60 76 532 5 24 MCW R,PARAMT&020&X1 7 2394 M H37 GS0 76 533 5 25 SW ERRPOS-002 4 2401 , F89 76 534 5 26 B TSTNXT 4 2405 B L25 76 535 INCGMK SW ERRPOS-1 4 2409 , F90 76 &BL25AG09F95LE19G60MH37GS0,F89BL25,F90 L037M12,L80L87,L94M01,M05M09104000762TAP1 536 A K1,LITCNT 7 2413 A E19 F95 77 537 5 29 LCA K1,PARAMT&67 7 2420 L E19 G67 77 538 5 30 B TSTNXT 4 2427 B L25 77 539 SKIP5 SW DAON 4 2431 , H40 77 540 5 32 B PUTRCD 4 2435 B |21 77 541 5 33 NOREAD CW DAON 4 2439 ) H40 77 542 MLC @ @,PARAMT&59 7 2443 M H81 G59 77 &AE19F95LE19G67BL25,H40B|21)H40MH81G59 L037M49,M20M27,M31M35,M39M43104000772TAP1 543 SW PARAMT&65 4 2450 , G65 78 544 5 34 * PROCESS DA SUBSEQUENT ENTRY 545 5 35 CS 0080 4 2454 / 080 78 546 5 36 CW RECORD 4 2458 ) F05 78 547 5 37 SW 0006,0021 7 2462 , 006 021 78 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 548 5 38 SW 0001,0016 7 2469 , 001 016 78 549 SW RECORD&75 4 2476 , F80 78 550 5 39 MCW BLANKS,PARAMT&039 7 2480 M H05 G39 78 &,G65/080)F05,006021,001016,F80MH05G39 L037M86,M54M58,M62M69,M76M80104000782TAP1 551 5 40 MCW BLANKS,PARAMT&029 7 2487 M H05 G29 79 552 5 41 R 1 2494 1 79 553 SS 1 2 2495 K 1 79 554 BCE BYPCMT,6,* 8 2497 B R43 006 * 79 555 5 43 BCE *&005,0016, 8 2505 B N17 016 79 556 5 44 B LASTSB 4 2513 B O77 79 557 5 45 MCW K20,X1 7 2517 M E30 089 79 &MH05G291K1BR43006*BN17016 BO77ME30089 L037N23,M94M95,M97N05,N13N17104000792TAP1 558 5 46 MCW K20,X2 7 2524 M E30 094 80 559 5 47 MCW 0080,RECORD&079 7 2531 M 080 F84 80 560 CHAIN 4 MACRO 561 MCW 1 2538 M GEN 80 562 MCW 1 2539 M GEN 80 563 MCW 1 2540 M GEN 80 564 MCW 1 2541 M GEN 80 565 5 51 ANALSB BCE COMMA2,0001&X1,, 8 2542 B N69 0|1 , 80 &ME30094M080F84MMMMBN690|1, L026N49,N31N38,N39N40,N41N42104000802TAP1 566 5 52 BCE END2,0001&X1, 8 2550 B N91 0|1 81 567 5 53 STEP2 A K1,X1 7 2558 A E19 089 81 568 5 54 B ANALSB 4 2565 B N42 81 569 5 55 COMMA2 LCA 0000&X1,PARAMT&009&X2 7 2569 L 0|0 G!9 81 570 5 56 SW 0002&X1 4 2576 , 0|2 81 571 5 57 A K10,X2 7 2580 A E27 094 81 &BN910|1 AE19089BN42L0|0G!9,0|2AE27094 L037N86,N58N65,N69N76,N80040104000812TAP1 572 5 58 B STEP2 4 2587 B N58 82 573 5 59 END2 LCA 0000&X1,PARAMT&009&X2 7 2591 L 0|0 G!9 82 574 5 60 MCW ZEROS,LITCNT 7 2598 M G79 F95 82 575 5 61 MCW ZEROS,LOCATN 7 2605 M G79 F99 82 576 5 62 A PARAMT&009&X2,LOCATN 7 2612 A G!9 F99 82 577 5 63 A MINUS,LOCATN 7 2619 A E50 F99 82 &BN58L0|0G!9MG79F95MG79F99AG!9F99AE50F99L039O25,N91N98,O05O12,O19040104000822TAP1 578 5 64 ZS PARAMT&29,XHOLD 7 2626 ! G29 I42 83 579 5 65 A PARAMT&39,XHOLD 7 2633 A G39 I42 83 580 5 66 A K1,XHOLD 7 2640 A E19 I42 83 581 5 67 BWZ *&12,XHOLD,K 8 2647 V O66 I42 K 83 582 5 68 MLC XHOLD,LITCNT 7 2655 M I42 F95 83 &!G29I42AG39I42AE19I42VO66I42KMI42F95 L036O61,O33O40,O47O55,040040104000832TAP1 583 5 681 3942 DCW #4 4 3942 84 584 5 682 XHOLD EQU 3942 3942 & L004I42,040040,040040,040040104000842TAP1 585 5 69 B SETHO 4 2662 B E61 85 586 5 70 MLC ZEROS,LITCNT 7 2666 M G79 F95 85 587 5 71 B SETHO 4 2673 B E61 85 588 LASTSB MCW BLANKS,RECORD&79 7 2677 M H05 F84 85 589 LCA BLANKS,RECORD&10 7 2684 L H05 F15 85 590 CW RECORD&1 4 2691 ) F06 85 &BE61MG79F95BE61MH05F84LH05F15)F06 L033O94,O66O73,O77O84,O91040104000852TAP1 591 MCW @ @,RECORD 7 2695 M H81 F05 86 592 BWZ INSRMK,ERRPOS-2,1 8 2702 V P22 F89 1 86 593 5 73 BWZ INSGMK,ERRPOS-001,1 8 2710 V Q71 F90 1 86 594 5 74 B SETPAR 4 2718 B 444 86 595 5 75 INSRMK CW ERRPOS-002 4 2722 ) F89 86 596 5 76 MCW ZEROS,LOCATN 7 2726 M G79 F99 86 &MH81F05VP22F891VQ71F901B444)F89MG79F99 L038P32,P02P10,P18P22,P26040104000862TAP1 597 5 77 MCW ZEROS,ADDR 7 2733 M G79 G95 87 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 598 5 78 MCW ZEROS,HOLD 7 2740 M G79 G92 87 599 5 79 MCW PARAMT&019,ADDR 7 2747 M G19 G95 87 600 5 80 MCW PARAMT&009,HOLD 7 2754 M G09 G92 87 601 5 81 CS PARAMT&060 4 2761 / G60 87 602 CS RECORD&74 4 2765 / F79 87 &MG79G95MG79G92MG19G95MG09G92/G60/F79 L036P68,P40P47,P54P61,P65040104000872TAP1 603 5 83 SW PARAMT 4 2769 , G00 88 604 LCA @DC @,RECORD&19 7 2773 L I07 F24 88 605 5 85 LCA ALFRM,PARAMT&002 7 2780 L H36 G02 88 606 MLC @001@,LITCNT 7 2787 M I10 F95 88 607 5 87 LCA ALFRM,RECORD&022 7 2794 L H36 F27 88 608 5 88 LCA K1,PARAMT&059 7 2801 L E19 G59 88 &,G00LI07F24LH36G02MI10F95LH36F27LE19G59L039Q07,P73P80,P87P94,Q01040104000882TAP1 609 5 89 LCA @RMARK@,PARAMT&64 7 2808 L I15 G64 89 610 5 90 SW ALFGM 4 2815 , H33 89 611 5 91 RMLOOP A ADDR,LOCATN 7 2819 A G95 F99 89 612 A @1@,LOCCNT 7 2826 A H91 G89 89 613 5 92 B PUTRCD&029 4 2833 B |50 89 614 5 94 RMBACK S K1,HOLD 7 2837 S E19 G92 89 &LI15G64,H33AG95F99AH91G89B|50SE19G92 L036Q43,Q15Q19,Q26Q33,Q37040104000892TAP1 615 5 945 A K1,LOCATN 7 2844 A E19 F99 90 616 5 95 C ZEROPL,HOLD 7 2851 C H15 G92 90 617 5 96 BU RMLOOP 5 2858 B Q19 / 90 618 5 97 CW ALFGM 4 2863 ) H33 90 619 B LASTSB 4 2867 B O77 90 620 5 99 INSGMK CS PARAMT&060 4 2871 / G60 90 621 5 995 CW ERRPOS-1 4 2875 ) F90 90 &AE19F99CH15G92BQ19/)H33BO77/G60)F90 L035Q78,Q51Q58,Q63Q67,Q71Q75104000902TAP1 622 6 00 LCA BLANKS,RECORD&029 7 2879 L H05 F34 91 623 6 01 LCA KDCW,RECORD&019 7 2886 L H20 F24 91 624 6 02 LCA ALFGM,PARAMT&002 7 2893 L H33 G02 91 625 6 03 LCA ALFGM,RECORD&022 7 2900 L H33 F27 91 626 MLC @001@,LITCNT 7 2907 M I10 F95 91 &LH05F34LH20F24LH33G02LH33F27MI10F95 L035R13,Q86Q93,R00R07,040040104000912TAP1 627 6 05 LCA K1,PARAMT&059 7 2914 L E19 G59 92 628 6 06 MCW LOCCNT,LOCATN 7 2921 M G89 F99 92 629 6 07 LCA @GMARK@,PARAMT&64 7 2928 L I20 G64 92 630 6 08 SW CARDIN 4 2935 , H41 92 631 6 09 B PUTRCD&14 4 2939 B |35 92 632 6 091 BYPCMT LCA SERIAL,80 7 2943 L E55 080 92 &LE19G59MG89F99LI20G64,H41B|35LE55080 L036R49,R21R28,R35R39,R43040104000922TAP1 633 A @1@,SERIAL 7 2950 A H91 E55 93 634 WTW 1,1 8 2957 L %U1 001 W 93 635 BER TPERR 5 2965 B 201 L 93 636 BEF *&1 5 2970 B R75 K 93 637 B NOREAD 4 2975 B M39 93 638 6 10 * CONSTANTS - DCW AND DC 639 CONST MCW K21,X1 7 2979 M E33 089 93 &AH91E55L%U1001WB201LBR75KBM39ME33089 L036R85,R57R65,R70R75,R79040104000932TAP1 640 6 12 MCW ZEROS,X2 7 2986 M G79 094 94 641 6 13 BCE NUMBER,0021,# 8 2993 B ?63 021 # 94 642 6 14 BCE *&009,0021,@ 8 3001 B ?17 021 @ 94 643 6 15 BWZ CONTST,0021,2 8 3009 V A15 021 2 94 644 6 16 SW KONST 4 3017 , E47 94 645 6 17 B PROPND 4 3021 B |88 94 &MG79094B?63021#B?17021@VA150212,E47B|88L039?24,R93?01,?09?17,?21040104000942TAP1 646 6 18 CW KONST 4 3025 ) E47 95 647 BCE *&16,21,@ 8 3029 B ?52 021 @ 95 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 648 6 22 BCE *&008,AADDR,L 8 3037 B ?52 F86 L 95 649 6 23 MCW K3,LITCNT 7 3045 M E21 F95 95 650 6 24 MCW LITCNT,PARAMT&059 7 3052 M F95 G59 95 651 6 25 B PUTRCD 4 3059 B |21 95 &)E47B?52021@B?52F86LME21F95MF95G59B|21 L038?62,?29?37,?45?52,?59040104000952TAP1 652 6 26 NUMBER SW 0022 4 3063 , 022 96 653 6 27 BCE *&012,0023, 8 3067 B ?86 023 96 654 6 28 LCA 0023,PARAMT&009 7 3075 L 023 G09 96 655 6 29 B CONBCK&004 4 3082 B ?97 96 656 6 30 LCA 0022,PARAMT&009 7 3086 L 022 G09 96 657 6 31 CONBCK CW KONST 4 3093 ) E47 96 &,022B?86023 L023G09B?97L022G09)E47 L034?96,?67?75,?82?86,?93040104000962TAP1 658 6 32 A PARAMT&9,LITCNT 7 3097 A G09 F95 97 659 6 33 LCA BLANKS,PARAMT&009 7 3104 L H05 G09 97 660 6 34 B PUTRCD 4 3111 B |21 97 661 6 35 CONTST BCE CONEND,0001&X1, 8 3115 B A41 0|1 97 662 6 36 A K1,X1 7 3123 A E19 089 97 &AG09F95LH05G09B|21BA410|1 AE19089 L033A29,A04A11,A15A23,040040104000972TAP1 663 6 37 A K1,X2 7 3130 A E19 094 98 664 6 38 B CONTST 4 3137 B A15 98 665 6 39 CONEND A K1,X2 7 3141 A E19 094 98 666 6 40 MCW X2,LITCNT 7 3148 M 094 F95 98 667 6 41 LCA X2,PARAMT&059 7 3155 L 094 G59 98 668 6 42 LCA 0000&X1,PARAMT&X2 7 3162 L 0|0 G!0 98 &AE19094BA15AE19094M094F95L094G59L0|0G!0L039A68,A37A41,A48A55,A62040104000982TAP1 669 6 43 B PUTRCD 4 3169 B |21 99 670 6 44 ENDSCE SW RECORD 4 3173 , F05 99 671 6 45 B PROPND 4 3177 B |88 99 672 6 46 B ENDLIT 4 3181 B B81 99 673 6 47 ENDBCK CW RECORD 4 3185 ) F05 99 674 6 48 WTW 1,RECORD 8 3189 L %U1 F05 W 99 675 6 49 BER TPERR 5 3197 B 201 L 99 &B|21,F05B|88BB81)F05L%U1F05WB201L L033B01,A73A77,A81A85,A89A97104000992TAP1 676 6 50 WTM 1 5 3202 U %U1 M 100 677 6 51 RWD 1 5 3207 U %U1 R 100 678 6 52 CW RECRD2&171,PARTBL&90 7 3212 ) E18 G76 100 679 6 53 MLC @2@,SEEK 7 3219 M I21 125 100 680 6 54 B LOAD 4 3226 B 100 100 681 6 55 EXECUT SW RECORD&1 4 3230 , F06 100 682 6 56 B PROPND 4 3234 B |88 100 &U%U1MU%U1R)E18G76MI21125B100,F06B|88 L036B37,B07B12,B19B26,B30B34104001002TAP1 683 6 57 B ENDLIT 4 3238 B B81 101 684 6 58 EXBACK CW RECORD&1 4 3242 ) F06 101 685 6 59 B PUTRCD 4 3246 B |21 101 686 6 60 LTORG B PROPND 4 3250 B |88 101 687 6 61 MLC SERIAL,RECORD&79 7 3254 M E55 F84 101 688 6 62 A @1@,SERIAL 7 3261 A H91 E55 101 689 6 63 WTW 1,RECORD 8 3268 L %U1 F05 W 101 &BB81)F06B|21B|88ME55F84AH91E55L%U1F05W L038B75,B42B46,B50B54,B61B68104001012TAP1 690 6 64 BER TPERR 5 3276 B 201 L 102 691 6 65 ENDLIT WTM 2 5 3281 U %U2 M 102 692 6 66 RWD 2 5 3286 U %U2 R 102 693 6 67 GETLIT RTW 2,RECRD2 8 3291 L %U2 C47 R 102 694 6 68 BER TPERR 5 3299 B 201 L 102 695 6 69 BEF LITALL 5 3304 B C21 K 102 &B201LU%U2MU%U2RL%U2C47RB201LBC21K L033C08,B81B86,B91B99,C04040104001022TAP1 696 6 70 WTW 1,RECRD2 8 3309 L %U1 C47 W 103 697 6 71 B GETLIT 4 3317 B B91 103 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 698 6 72 LITALL RWD 2 5 3321 U %U2 R 103 699 6 73 BW ENDBCK,RECORD 8 3326 V A85 F05 1 103 700 6 74 BW EXBACK,RECORD&1 8 3334 V B42 F06 1 103 701 6 75 B RDCARD 4 3342 B 417 103 702 6 76 H 1 3346 . 103 &L%U1C47WBB91U%U2RVA85F051VB42F061B417. L038C46,C17C21,C26C34,C42C46104001032TAP1 703 6 77 RECRD2 DA 1X171,| 3347 3518 104 704 6 78 PAR 96 3442 SBFLD & L001001,C47040,040040,040040104001042TAP1 DC @|@ 1 3518 RMARK 105 705 6 79 * PROGRAM CONSTANTS 706 6 80 K1 DCW @1@ 1 3519 105 707 6 81 K2 DCW @2@ 1 3520 105 708 6 82 K3 DCW @3@ 1 3521 105 709 6 83 K5 DCW @5@ 1 3522 105 &|1235 L005E22)E18E18,E19E20,E21E22104001052TAP1 710 6 84 K6 DCW @06@ 2 3524 106 711 6 85 K7 DCW @7@ 1 3525 106 712 6 86 K10 DCW @10@ 2 3527 106 713 6 87 K20 DCW @020@ 3 3530 106 714 6 88 K21 DCW @021@ 3 3533 106 715 6 89 K30 DCW @30@ 2 3535 106 716 6 90 K60 DCW @60@ 2 3537 106 &067100200213060 L015E37,E25E26,E28E31,E34E36104001062TAP1 717 6 91 K71 DCW @071@ 3 3540 107 718 6 92 I98 DSA &3998 3 3543 I98 107 719 6 93 I99 DSA &3999 3 3546 I99 107 720 6 95 KONST DC @ @ 1 3547 107 721 6 96 MINUS DCW @I9I@ 3 3550 107 722 SERIAL DCW @00101@ 5 3555 107 723 7 08 ZONE DCW @ @ 1 3556 107 724 7 09 DCW @/@ 1 3557 107 &071I98I99 I9I00101 / L020E57,E41E44,E48E51,E56E57104001072TAP1 725 7 10 DCW @J@ 1 3558 108 726 7 11 DCW @A@ 1 3559 108 727 7 29 * OUTPUT AREA & PARAMETER TABL 728 7 30 ORG *&X00 3600 729 7 31 ORG *&5 3605 730 7 32 RECORD DA 1X80,| 3605 3685 108 &JA L002E59,E59F05,040040,040040104001082TAP1 DC @|@ 1 3685 RMARK 109 731 7 33 PARTBL DA 1X90,| 3686 3776 109 732 7 34 AADDR 1,1 3686 FIELD 109 733 7 35 BADDR 2,2 3687 FIELD 109 734 7 36 ERRPOS 6 3691 SBFLD 735 7 37 ICOUNT 7,7 3692 FIELD 109 &| L001F85)F85F85,F86F86,F87F92104001092TAP1 736 7 38 LITCNT 8,10 3695 FIELD 110 737 7 39 ACTOP 11,11 3696 FIELD 110 738 7 40 LOCATN 12,14 3699 FIELD 110 739 7 41 PARAMT 15,15 3700 FIELD 110 & L001001,F93F96,F97G00,040040104001102TAP1 DC @|@ 1 3776 RMARK 111 740 7 42 OPER EQU RECORD&18 3623 741 SAVLOC ORG RECORD&15 3777 3620 &| L001G76)G76G76,040040,040040104001112TAP1 742 DCW @JOB @ 5 3624 112 743 ORG SAVLOC 3777 &JOB L005F24,040040,040040,040040104001122TAP1 744 6 98 ZEROS DCW @000@ 3 3779 113 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 745 6 99 KBCE DCW @BCE@ 3 3782 113 746 7 00 CHARCT DCW @ @ 2 3784 113 747 7 01 COMMSW DC @ @ 1 3785 113 748 7 02 ACTADD DC @ @ 1 3786 113 749 7 03 LABEL EQU 0011 0011 750 7 04 LOCCNT DCW @333@ 3 3789 113 751 7 05 HOLD DCW @ @ 3 3792 113 752 7 06 ADDR DCW @ @ 3 3795 113 753 7 07 BLANKS DCW @ @ 10 3805 113 &000BCE 333 L029H05,G80G83,G87G90,G93G96104001132TAP1 754 7 12 S DCW @S@ 1 3806 114 755 7 13 A DCW @A@ 1 3807 114 756 7 14 F DCW @F@ 1 3808 114 757 7 15 L DCW @L@ 1 3809 114 758 7 16 M DCW @M@ 1 3810 114 759 7 17 C DCW @C@ 1 3811 114 760 7 18 W DCW @W@ 1 3812 114 &SAFLMCW L007H12,H07H08,H09H10,H11H12104001142TAP1 761 7 20 ZEROPL DCW @00?@ 3 3815 115 762 7 21 KDCW DCW @DCW @ 5 3820 115 763 7 22 MLCWA DCW @MLCWA@ 5 3825 115 764 7 23 KLTORG DCW @LTORG@ 5 3830 115 765 7 24 ALFGM DCW @@}@@ 3 3833 115 766 7 25 ALFRM DCW @@|@@ 3 3836 115 767 7 26 R DCW @R@ 1 3837 115 &00?DCW MLCWALTORG@}@@|@R L025H37,H16H21,H26H31,H34H37104001152TAP1 768 7 27 DMOD DC @ @ 1 3838 116 769 7 28 PERCNT DCW @%@ 1 3839 116 & % L002H39)H38H38,H39040,040040104001162TAP1 770 7 43 3998 DCW @}@ 1 3998 117 771 7 431 ORGA ORG 3587 3840 3587 &} L001I98,040040,040040,040040104001172TAP1 772 MOVENM MN 1&X1,PARAMT&1&X3 7 3587 D 0|1 G?1 118 773 B CNTLIT 4 3594 B Z67 118 774 ORG 3561 3561 &D0|1G?1BZ67 L011E97,E94040,040040,040040104001182TAP1 775 SETHO MLC ZEROS,X1 7 3561 M G79 089 119 776 MN PARAMT&6&X2,X1 7 3568 D G!6 089 119 777 MZ ZONE&X1,LOCATN-2 7 3575 Y EV6 F97 119 778 B SKIP5 4 3582 B M31 119 779 ORG 3923 3923 &MG79089DG!6089YEV6F97BM31 L025E85,E68E75,E82040,040040104001192TAP1 780 PUTXXX A @1@,SERIAL 7 3923 A H91 E55 120 781 CW LOCATN 4 3930 ) F99 120 782 B PUTRCD&14 4 3934 B |35 120 783 ORG ORGA 3840 &AH91E55)F99B|35 L015I37,I30I34,040040,040040104001202TAP1 171 DAON DCW #01 1 3840 AREA 121 171 CARDIN #01 1 3841 AREA 121 172 TWO #01 1 3842 AREA 121 227 @DCW @ 5 3847 LIT 121 229 @DC @ 5 3852 LIT 121 231 @DA @ 5 3857 LIT 121 233 @LTORG@ 5 3862 LIT 121 & DCW DC DA LTORG L023H62,H41H42,H43H48,H53H58104001212TAP1 235 @EX @ 5 3867 LIT 122 237 @JOB @ 5 3872 LIT 122 241 @END @ 5 3877 LIT 122 @000@ 3 3880 LIT 122 1 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @ @ 1 3881 LIT 122 249 @ @ 6 3887 LIT 122 @030@ 3 3890 LIT 122 &EX JOB END 000 030 L028H90,H68H73,H78H81,H82H88104001222TAP1 @1@ 1 3891 LIT 123 @Y@ 1 3892 LIT 123 @N@ 1 3893 LIT 123 @#@ 1 3894 LIT 123 @53@ 2 3896 LIT 123 @27@ 2 3898 LIT 123 @26@ 2 3900 LIT 123 &1YN#532726 L010I00,H92H93,H94H95,H97H99104001232TAP1 @ @ 2 3902 LIT 124 604 @DC @ 5 3907 LIT 124 @001@ 3 3910 LIT 124 609 @RMARK@ 5 3915 LIT 124 629 @GMARK@ 5 3920 LIT 124 @2@ 1 3921 LIT 124 & DC 001RMARKGMARK2 L021I21,I03I08,I11I16,I21040104001242TAP1 & N000000,040040,040040,040040B16701252TAP1 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01262TAP2 &,068072)063067/061039 ,001001104001272TAP2 784 7 44 EX SYSTEM B 167 125 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 785 7 45 JOB 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 786 ORG 167 0167 787 WTW 1,333 8 0167 L %U1 333 W 128 788 BER *&5 5 0175 B 184 L 128 789 R 40 4 0180 1 040 128 790 BSP 1 5 0184 U %U1 B 128 791 SKP 1 5 0189 U %U1 E 128 792 B SYSTEM 4 0194 B 167 128 793 H 1 0198 . 128 794 7 46 ORG 333 0333 &L%U1333WB184L1040U%U1BU%U1EB167. L032198,175180,184189,194198104001282TAP2 795 7 47 DCW @2@ 1 0333 129 796 7 48 SW 3998 4 0334 , I98 129 797 7 49 LCA 3998,PARTBL&90 7 0338 L I98 G76 129 798 7 493 LCA @ @,14 7 0345 L M51 014 129 799 7 496 SW 13,12 7 0352 , 013 012 129 800 CW HADLIT#1 4 0359 ) M52 129 801 7 50 GET RTW 1,RECORD 8 0363 L %U1 F05 R 129 &2,I98LI98G76LM51014,013012)M52L%U1F05R L038370,334338,345352,359363104001292TAP2 802 7 51 BER TPERR 5 0371 B 201 L 130 803 7 52 BEF ENDPH2 5 0376 B U19 K 130 804 7 54 BCE PUT,RECORD&005,* 8 0381 B T83 F10 * 130 805 7 55 BWZ LITRCD,RECORD&003,1 8 0389 V /45 F08 1 130 806 BW TSTORG,HADLIT 8 0397 V W17 M52 1 130 &B201LBU19KBT83F10*V/45F081VW17M521 L034404,376381,389397,040040104001302TAP2 807 7 56 BWZ PUT,PARAMT&065,1 8 0405 V T83 G65 1 131 808 7 57 * CONVERT ACTUAL ADDRESSES TO MACH LANGUAGE 809 7 58 MLC @030@,X1 7 0413 M M55 089 131 810 7 59 BCE CONVRT,BADDR,A 8 0420 B U50 F87 A 131 811 7 60 MLC @000@,X1 7 0428 M M58 089 131 812 7 61 BCE CONVRT,AADDR,A 8 0435 B U50 F86 A 131 &VT83G651MM55089BU50F87AMM58089BU50F86A L038442,413420,428435,040040104001312TAP2 813 7 62 BCE CONOUT,RECORD&5, 8 0443 B 556 F10 132 814 7 63 BWZ *&5,RECORD&5,2 8 0451 V 463 F10 2 132 815 7 64 B CONOUT 4 0459 B 556 132 816 7 65 BCE *&12,RECORD&6&X1, 8 0463 B 482 F/1 132 817 7 66 A @1@,X1 7 0471 A M59 089 132 818 7 67 B *-18 4 0478 B 463 132 &B556F10 V463F102B556B482F/1 AM59089B463L039481,451459,463471,478040104001322TAP2 819 7 68 SW ONE#1 4 0482 , M60 133 820 7 69 MLC PARAMT&60,ONE 7 0486 M G60 M60 133 821 7 70 BW *&5,PARAMT&60 8 0493 V 505 G60 1 133 822 7 71 CW ONE 4 0501 ) M60 133 823 7 72 LCA @00000 @,PARAMT&69 7 0505 L M70 G69 133 824 7 73 A RECORD&5&X1,PARAMT&64 7 0512 A F/0 G64 133 &,M60MG60M60V505G601)M60LM70G69AF/0G64 L037518,486493,501505,512040104001332TAP2 825 7 74 MLC @060@,X1 7 0519 M M73 089 134 826 7 75 B CONVRT 4 0526 B U50 134 827 7 76 MLC PARAMT&68,LOCATN 7 0530 M G68 F99 134 828 7 77 MLC ONE,PARAMT&60 7 0537 M M60 G60 134 829 7 78 BW *&5,ONE 8 0544 V 556 M60 1 134 830 7 79 CW PARAMT&60 4 0552 ) G60 134 831 7 80 CONOUT NOP 1 0556 N 134 &MM73089BU50MG68F99MM60G60V556M601)G60N L038556,526530,537544,552556104001342TAP2 832 7 81 BCE *&005,PARAMT,% 8 0557 B 569 G00 % 135 833 7 82 B *&008 4 0565 B 576 135 834 7 83 MCW M,AADDR 7 0569 M H10 F86 135 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 835 BCE OPEROK,OPER&1, 8 0576 B 624 F24 135 836 7 85 C OPER&001,KLTORG 7 0584 C F24 H30 135 837 BE OPEROK 5 0591 B 624 S 135 &B569G00%B576MH10F86B624F24 CF24H30B624SL039595,565569,576584,591040104001352TAP2 838 7 87 C OPER&001,MLCWA 7 0596 C F24 H25 136 839 BE OPEROK 5 0603 B 624 S 136 840 C OPER&1,@CHAIN@ 7 0608 C F24 M78 136 841 BE CHAIN 5 0615 B S40 S 136 842 7 89 B NOOP 4 0620 B 665 136 843 OPEROK SW OPER-3 4 0624 , F20 136 844 7 91 MCW OPER,ENDOPT 7 0628 M F23 M41 136 &CF24H25B624SCF24M78BS40SB665,F20MF23M41L039634,603608,615620,624628104001362TAP2 845 7 92 MCW ZEROS,X1 7 0635 M G79 089 137 846 7 53 * TLU OP CODE 847 7 93 TLUOP C OPTABL-003&X1,OPER 7 0642 C WY5 F23 137 848 7 94 BE HITOP 5 0649 B 673 S 137 849 7 95 A K7,X1 7 0654 A E25 089 137 850 7 96 B TLUOP 4 0661 B 642 137 851 7 97 NOOP SW ERRPOS-001 4 0665 , F90 137 852 7 98 B OPERND 4 0669 B 913 137 &MG79089CWY5F23B673SAE25089B642,F90B913 L038672,642649,654661,665669104001372TAP2 853 7 99 HITOP BCE NOOP,OPTABL-002&X1,} 8 0673 B 665 WY6 } 138 854 8 00 BWZ DECLOP,OPTABL-002&X1,1 8 0681 V 974 WY6 1 138 855 8 01 IMPROP MCW OPTABL-002&X1,ACTOP 7 0689 M WY6 F96 138 856 8 02 BCE OPERND,OPTABL-001&X1, 8 0696 B 913 WY7 138 857 8 03 BWZ GENDMD,OPTABL-001&X1,1 8 0704 V 731 WY7 1 138 &B665WY6}V974WY61MWY6F96B913WY7 V731WY71L039711,681689,696704,040040104001382TAP2 858 8 04 HAVE* SW PARAMT&060,DMOD 7 0712 , G60 H38 139 859 8 05 BCE INSERT,PARAMT&060, 8 0719 B |19 G60 139 860 8 06 B OPERND 4 0727 B 913 139 861 8 07 GENDMD BWZ DISK,OPTABL&X1,1 8 0731 V 825 WY8 1 139 862 8 08 LCA OPTABL-001&X1,PARAMT&060 7 0739 L WY7 G60 139 &,G60H38B|19G60 B913V825WY81LWY7G60 L034745,719727,731739,040040104001392TAP2 863 8 09 BCE OPERND,OPTABL&X1, 8 0746 B 913 WY8 140 864 8 10 BCE OPERND,AADDR,S 8 0754 B 913 F86 S 140 865 BCE OPERND,AADDR,M 8 0762 B 913 F86 M 140 866 8 11 SW PARAMT&009 4 0770 , G09 140 867 8 12 MCW OPTABL&X1,PARAMT&009 7 0774 M WY8 G09 140 &B913WY8 B913F86SB913F86M,G09MWY8G09 L035780,754762,770774,040040104001402TAP2 868 8 13 MCW M,AADDR 7 0781 M H10 F86 141 869 8 14 GENRET MCW PARAMT&004,PARAMT&003 7 0788 M G04 G03 141 870 8 15 MN BLANKS,PARAMT&004 7 0795 D H05 G04 141 871 8 16 MN 1 0802 D 141 872 8 17 MCW PERCNT,PARAMT 7 0803 M H39 G00 141 873 8 18 MCW PARAMT&009,PARAMT&001 7 0810 M G09 G01 141 &MH10F86MG04G03DH05G04DMH39G00MG09G01 L036816,788795,802803,810040104001412TAP2 874 8 185 CW PARAMT&2 4 0817 ) G02 142 875 8 19 B SPACNT 4 0821 B 914 142 876 DISK BCE MOVES,AADDR,S 8 0825 B 888 F86 S 142 877 MLC PARAMT&29,PARAMT&59 7 0833 M G29 G59 142 878 CHAIN 2 MACRO 879 MLC 1 0840 M GEN 142 880 MLC 1 0841 M GEN 142 881 MLC PARAMT&8,PARAMT&38 7 0842 M G08 G38 142 &)G02B914B888F86SMG29G59MMMG08G38 L032848,821825,833840,841842104001422TAP2 882 DISKEX MLC AADDR,BADDR 7 0849 M F86 F87 143 883 8 24 MCW M,AADDR 7 0856 M H10 F86 143 884 8 25 LCA F,PARAMT&009 7 0863 L H08 G09 143 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 885 8 255 MCW OPTABL&X1,PARAMT&4 7 0870 M WY8 G04 143 886 8 26 LCA OPTABL-001&X1,PARAMT&060 7 0877 L WY7 G60 143 887 8 27 B GENRET 4 0884 B 788 143 &MF86F87MH10F86LH08G09MWY8G04LWY7G60B788L039887,856863,870877,884040104001432TAP2 888 MOVES MLC @|@,PARAMT&27 7 0888 M M79 G27 144 889 MCM PARAMT,PARAMT&30 7 0895 P G00 G30 144 890 MLC PARAMT&29,PARAMT&59 7 0902 M G29 G59 144 891 B DISKEX 4 0909 B 849 144 892 8 28 * CALCULATE INSTRUCTION COUNT 893 8 29 OPERND NOP 1 0913 N 144 894 8 30 SPACNT MCW K1,ICOUNT 7 0914 M E19 F92 144 &MM79G27PG00G30MG29G59B849NME19F92 L033920,895902,909913,914040104001442TAP2 895 8 31 HAVEA BCE HAVEB,AADDR, 8 0921 B 936 F86 145 896 8 32 A K3,ICOUNT 7 0929 A E21 F92 145 897 8 33 HAVEB BCE HAVED,BADDR, 8 0936 B 951 F87 145 898 8 34 A K3,ICOUNT 7 0944 A E21 F92 145 899 8 35 HAVED BWZ CTDMOD,PARAMT&060,1 8 0951 V 963 G60 1 145 &B936F86 AE21F92B951F87 AE21F92V963G601 L038958,929936,944951,040040104001452TAP2 900 8 36 RELEAS B XBIN 4 0959 B P71 146 901 8 37 CTDMOD B XBCE 4 0963 B P11 146 902 8 371 NOP 1 0967 N 146 903 8 372 NOP 1 0968 N 146 904 8 373 NOP 1 0969 N 146 905 8 38 B CLEARX 4 0970 B R01 146 906 8 39 * SET UP LINKAGE TO SPECIAL 907 8 40 * ROUTINES - ADDRESS O 908 8 41 * FROM OP CODE TABLE 909 8 42 DECLOP MCW OPTABL&X1,*&004 7 0974 M WY8 984 146 &BP71BP11NNNBR01MWY8984 L022980,963967,968969,970974104001462TAP2 910 8 43 B 0000 4 0981 B 000 147 911 8 44 * EXIT FOR DECLARATIVE AND 912 8 45 * REQUIRING NO SPECIAL 913 8 46 DECEXT B PUT 4 0985 B T83 147 914 8 47 * CONTROL OPERATIONS 915 8 48 CONTRL SW RECORD 4 0989 , F05 147 916 8 49 B PUT 4 0993 B T83 147 917 8 50 * DS DECLARATIVE 918 8 51 DS MCW PARAMT&004,LITCNT 7 0997 M G04 F95 147 919 8 52 B PUT 4 1004 B T83 147 920 8 53 * DSA DECLARATIVE 921 8 54 DSA MCW K3,LITCNT 7 1008 M E21 F95 147 &B000BT83,F05BT83MG04F95BT83ME21F95 L034|14,985989,993997,|04|08104001472TAP2 922 8 55 B PUT 4 1015 B T83 148 923 8 56 * ROUTINE TO GET D-MODIFIER FOR INSTRUCTIONS 924 8 57 * OF LESS THAN TWO OPERANDS 925 8 58 INSERT C OPER,@BCE @ 7 1019 C F23 M83 148 926 8 59 BE OPERND 5 1026 B 913 S 148 927 8 60 C OPER,@BBE @ 7 1031 C F23 M87 148 928 8 61 BE OPERND 5 1038 B 913 S 148 929 8 62 BCE *&5,PARAMT&60, 8 1043 B |55 G60 148 &BT83CF23M83B913SCF23M87B913SB|55G60 L036|50,|19|26,|31|38,|43040104001482TAP2 930 8 63 B OPERND 4 1051 B 913 149 931 8 64 BCE OPERND,PARAMT, 8 1055 B 913 G00 149 932 8 65 BCE GETA,PARAMT&30, 8 1063 B /08 G30 149 933 8 66 MLC @ @,BADDR 7 1071 M M88 F87 149 934 8 67 BCE *&12,PARAMT&31, 8 1078 B |97 G31 149 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &B913B913G00 B/08G30 MM88F87B|97G31 L035|85,|55|63,|71|78,040040104001492TAP2 935 8 68 MLC PARAMT&34,PARAMT&60 7 1086 M G34 G60 150 936 8 69 B OPERND 4 1093 B 913 150 937 8 70 MLC PARAMT&30,PARAMT&60 7 1097 M G30 G60 150 938 8 71 B OPERND 4 1104 B 913 150 939 8 72 GETA MLC @ @,AADDR 7 1108 M M88 F86 150 940 8 73 BCE *&12,PARAMT&1, 8 1115 B /34 G01 150 &MG34G60B913MG30G60B913MM88F86B/34G01 L037/22,|93|97,/04/08,/15040104001502TAP2 941 8 74 MLC PARAMT&4,PARAMT&60 7 1123 M G04 G60 151 942 8 75 B OPERND 4 1130 B 913 151 943 8 76 MLC PARAMT,PARAMT&60 7 1134 M G00 G60 151 944 8 77 B OPERND 4 1141 B 913 151 945 8 78 * SET UP LITERAL IDENTIFICATION 946 8 79 LITRCD BCE KAREA,AADDR,W 8 1145 B /88 F86 W 151 947 8 80 BCE KADCON,AADDR,C 8 1153 B S05 F86 C 151 &MG04G60B913MG00G60B913B/88F86WBS05F86C L038/60,/30/34,/41/45,/53040104001512TAP2 948 8 81 BCE KADCON,AADDR,P 8 1161 B S05 F86 P 152 949 8 815 BCE RCURSV,AADDR,R 8 1169 B S16 F86 R 152 950 8 82 LCA @LIT @,PARAMT&64 7 1177 L M93 G64 152 951 8 83 B KILLIT 4 1184 B P51 152 952 8 84 KAREA LCA @AREA @,PARAMT&64 7 1188 L M98 G64 152 953 8 85 B PUT 4 1195 B T83 152 &BS05F86PBS16F86RLM93G64BP51LM98G64BT83 L038/98,/69/77,/84/88,/95040104001522TAP2 954 8 86 PREV DCW #6 6 1204 153 955 8 87 KADCON LCA @ADCON@,PARAMT&64 7 1205 L N03 G64 153 956 8 88 B PUT 4 1212 B T83 153 957 8 881 RCURSV BW *&9,RCURSV&9 8 1216 V S32 S25 1 153 958 8 882 SW RCURSV&9 4 1224 , S25 153 959 8 883 B KAREA-11 4 1228 B /77 153 960 8 884 CW RCURSV&9 4 1232 ) S25 153 & LN03G64BT83VS32S251,S25B/77)S25 L037S35,S05S12,S16S24,S28S32104001532TAP2 961 8 885 B KADCON 4 1236 B S05 154 962 CHAIN LCA @MACRO@,PARAMT&64 7 1240 L N08 G64 154 963 MLC @ @,AADDR 7 1247 M M88 F86 154 964 MLC BLANKS,LOCATN 7 1254 M H05 F99 154 965 WTW 2,RECORD 8 1261 L %U2 F05 W 154 966 BER TPERR 5 1269 B 201 L 154 &BS05LN08G64MM88F86MH05F99L%U2F05WB201L L038S73,S40S47,S54S61,S69040104001542TAP2 967 BEF *&1 5 1274 B S79 K 155 968 MLC PARAMT&4,HOLD 7 1279 M G04 G92 155 969 LCA BLANKS,PARAMT&9 7 1286 L H05 G09 155 970 LCA @ @,RECORD&21 7 1293 L N10 F26 155 971 MLC BLANKS,RECORD&79 7 1300 M H05 F84 155 &BS79KMG04G92LH05G09LN10F26MH05F84 L033T06,S79S86,S93T00,040040104001552TAP2 972 MLC BLANKS,RECORD&4 7 1307 M H05 F09 156 973 MLC @1@,ICOUNT 7 1314 M M59 F92 156 974 LCA PREVOP,OPER&1 7 1321 L N23 F24 156 975 LCA PREVAC,ACTOP 7 1328 L N24 F96 156 976 LCA @GEN @,PARAMT&64 7 1335 L N15 G64 156 &MH05F09MM59F92LN23F24LN24F96LN15G64 L035T41,T14T21,T28T35,040040104001562TAP2 977 CHAIN1 WTW 2,RECORD 8 1342 L %U2 F05 W 157 978 BER TPERR 5 1350 B 201 L 157 979 BEF *&1 5 1355 B T60 K 157 980 S @1@,HOLD 7 1360 S M59 G92 157 981 C HOLD,@00?@ 7 1367 C G92 N18 157 982 BU CHAIN1 5 1374 B T42 / 157 &L%U2F05WB201LBT60KSM59G92CG92N18BT42/ L037T78,T50T55,T60T67,T74040104001572TAP2 983 B GET 4 1379 B 363 158 984 PUT MLC OPER&1,PREVOP#5 7 1383 M F24 N23 158 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 985 MLC ACTOP,PREVAC#1 7 1390 M F96 N24 158 986 WTW 2,RECORD 8 1397 L %U2 F05 W 158 987 8 90 BER TPERR 5 1405 B 201 L 158 988 8 91 BEF *&1 5 1410 B U15 K 158 &B363MF24N23MF96N24L%U2F05WB201LBU15K L036U14,T83T90,T97U05,U10040104001582TAP2 989 8 92 B GET 4 1415 B 363 159 990 8 93 ENDPH2 CW PARTBL&90 4 1419 ) G76 159 991 8 94 WTM 2 5 1423 U %U2 M 159 992 8 95 RWD 1 5 1428 U %U1 R 159 993 8 96 RWD 2 5 1433 U %U2 R 159 994 8 98 MLC @3@,SEEK 7 1438 M N25 125 159 995 8 99 B LOADXX 4 1445 B O01 159 &B363)G76U%U2MU%U1RU%U2RMN25125BO01 L034U48,U19U23,U28U33,U38U45104001592TAP2 996 9 00 H 1 1449 . 160 997 9 01 * ROUTINE TO CONVERT A 5 POSITION ACTUAL 998 9 02 * ADDRESS OPERAND TO A MACHINE ADDRESS 999 9 03 * * ADDRESS TAKEN FROM PARAMT&4&X1 1000 9 04 * * CONVERTED 3 POSITION ADDRESS PLACED 1001 9 05 * AT PARAMT&8&X1 1002 9 06 CONVRT SBR CONEXT&3 4 1450 H V65 160 1003 9 07 SW PARAMT&2&X1 4 1454 , G|2 160 1004 9 08 LCA PARAMT&4&X1,PARAMT&8&X1 7 1458 L G|4 G|8 160 1005 9 09 MLC PARAMT&1&X1,ADDR-1 7 1465 M G|1 G94 160 1006 9 10 C @00@,ADDR-1 7 1472 C N27 G94 160 1007 9 11 BE CONEXT 5 1479 B V62 S 160 &.HV65,G|2LG|4G|8MG|1G94CN27G94BV62S L035U83,U50U54,U58U65,U72U79104001602TAP2 1008 9 12 SW PARAMT&8&X1 4 1484 , G|8 161 1009 9 13 CONV1 S @4@,ADDR-1 7 1488 S N28 G94 161 1010 9 14 BM CONV2,ADDR-1 8 1495 V V14 G94 K 161 1011 9 15 A @|0@,PARAMT&9&X1 7 1503 A N30 G|9 161 1012 9 16 B CONV1 4 1510 B U88 161 1013 9 17 CONV2 A @4@,ADDR-1 7 1514 A N28 G94 161 &,G|8SN28G94VV14G94KAN30G|9BU88AN28G94 L037V20,U88U95,V03V10,V14040104001612TAP2 1014 9 18 BCE CONV3,ADDR-1,? 8 1521 B V55 G94 ? 162 1015 9 19 BCE CONV3,ADDR-1,! 8 1529 B V55 G94 ! 162 1016 9 20 A @|0@,PARAMT&7&X1 7 1537 A N30 G|7 162 1017 9 21 S @1@,ADDR-1 7 1544 S M59 G94 162 1018 9 22 B CONV2&7 4 1551 B V21 162 &BV55G94?BV55G94!AN30G|7SM59G94BV21 L034V54,V29V37,V44V51,040040104001622TAP2 1019 9 23 CONV3 CW PARAMT&2&X1,PARAMT&8&X1 7 1555 ) G|2 G|8 163 1020 9 24 CONEXT B 0 4 1562 B 000 163 1021 9 25 * 1022 SPECLT SW RECORD,HADLIT 7 1566 , F05 M52 163 1023 B PUT 4 1573 B T83 163 1024 * 1025 SPEC SW RECORD 4 1577 , F05 163 1026 WTW 2,RECORD 8 1581 L %U2 F05 W 163 1027 BER TPERR 5 1589 B 201 L 163 &)G|2G|8B000,F05M52BT83,F05L%U2F05WB201LL039V93,V62V66,V73V77,V81V89104001632TAP2 1028 BEF *&1 5 1594 B V99 K 164 1029 RTW 1,RECORD 8 1599 L %U1 F05 R 164 1030 BER TPERR 5 1607 B 201 L 164 1031 BEF ENDPH2 5 1612 B U19 K 164 1032 TSTORG CW HADLIT 4 1617 ) M52 164 1033 C OPER,@ORG @ 7 1621 C F23 N34 164 1034 BE GET&18 5 1628 B 381 S 164 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &BV99KL%U1F05RB201LBU19K)M52CF23N34B381SL039W32,V99W07,W12W17,W21W28104001642TAP2 1035 BSP 1 5 1633 U %U1 B 165 1036 CS PARTBL&90 4 1638 / G76 165 1037 CS 1 1642 / 165 1038 LCA @GEN @,PARAMT&64 7 1643 L N39 G64 165 1039 LCA @ORG @,OPER 7 1650 L N34 F23 165 1040 LCA @*@,RECORD&20 7 1657 L N40 F25 165 1041 LCA @*@,PARAMT 7 1664 L N40 G00 165 &U%U1B/G76/LN39G64LN34F23LN40F25LN40G00 L038W70,W38W42,W43W50,W57W64104001652TAP2 1042 LCA @S@,AADDR 7 1671 L N41 F86 166 1043 B PUTYYY 4 1678 B P01 166 1044 * 1045 * 1046 9 26 * *** OPERATION CODE TABLE *** 1047 9 27 * 1048 9 28 * 1049 9 29 * * FIRST FOUR POSITIONS IS MNEUMONIC OP 1050 9 30 * * FIFTH POSITION IS MACHINE OP CODE 1051 9 31 * FOR IMPERATIVE COMMANDS 1052 9 32 * * SIXTH POSITION REPRESENTS D-MODIFIER 1053 9 33 * AN ASTERISK INDICATES THE D-MODIFIER 1054 9 34 * MUST BE PROVIDED IN THE OPERAND 1055 9 35 * A WORDMARK UNDER THE SIXTH POSITION 1056 9 36 * MEANS AUTOCODER WILL GENERATE IT 1057 9 37 * * THE SEVENTH POSITIONIS USED FOR TAPE 1058 9 38 * AND RAMAC COMMANDS ONLY 1059 9 39 * FOR TAPE, IT IS INSERTED AFTER THE % 1060 9 40 * FOR RAMAC, THE WORDMARK UNDER IT 1061 9 41 * MEANS IT IS INSERTED IN THE LOW 1062 9 42 * ORDER LOCATION OF THE A-ADDRESS 1063 9 43 * AND AN *F* WILL BE INSERTED 1064 9 44 * AFTER THE % 1065 9 45 * * DECLARATIVE AND CONTROL COMMANDS 1066 9 46 * REQUIRING SPECIAL PROCESSING HAVE A 1067 9 47 * WORDMARK UNDER THE FIFTH POSITION 1068 9 48 * AND POSITIONS 5-8 CONTAIN THE ADDRESS 1069 9 49 * OF THE APPROPRIATE ROUTINE 1070 9 50 * 1071 9 51 * 1072 9 52 OPTABL DCW @B B @ 7 1688 166 1073 9 53 DCW @MCW M @ 7 169