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 1695 166 1074 9 54 DCW @LCA L @ 7 1702 166 1075 9 55 DCW @BCE B* @ 7 1709 166 &LN41F86BP01B B MCW M LCA L BCE B* L039X09,W78W82,W89W96,X03040104001662TAP2 1076 9 56 DCW @A A @ 7 1716 167 1077 9 57 DCW @S S @ 7 1723 167 1078 9 58 DCW @SW , @ 7 1730 167 1079 9 59 DCW @CW ) @ 7 1737 167 1080 9 60 DCW @CS / @ 7 1744 167 &A A S S SW , CW ) CS / L035X44,X17X24,X31X38,040040104001672TAP2 1081 9 61 DCW @H . @ 7 1751 168 1082 9 62 DCW @C C @ 7 1758 168 1083 9 63 DCW @ZA ? @ 7 1765 168 1084 9 64 DCW @ZS ! @ 7 1772 168 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1085 9 65 DCW @MCE E @ 7 1779 168 &H . C C ZA ? ZS ! MCE E L035X79,X52X59,X66X73,040040104001682TAP2 1086 9 66 DCW @MCS Z @ 7 1786 169 1087 9 67 DCW @MN D @ 7 1793 169 1088 9 68 DCW @MZ Y @ 7 1800 169 1089 9 69 DCW @MCM P @ 7 1807 169 1090 9 70 DCW @BE B@ 5 1812 169 1091 9 71 DCW @S @ 2 1814 169 &MCS Z MN D MZ Y MCM P BE BS L035Y14,X87X94,Y01Y08,Y13040104001692TAP2 1092 9 72 DCW @BU B@ 5 1819 170 1093 9 73 DCW @/ @ 2 1821 170 1094 9 74 DCW @BH B@ 5 1826 170 1095 9 75 DCW @U @ 2 1828 170 1096 9 76 DCW @BL B@ 5 1833 170 1097 9 77 DCW @T @ 2 1835 170 1098 9 78 DCW @DA @ 4 1839 170 &BU B/ BH BU BL BT DA L025Y39,Y20Y22,Y27Y29,Y34Y36104001702TAP2 1099 9 79 DSA &PUT 3 1842 T83 171 1100 9 80 DCW @DC @ 4 1846 171 1101 9 81 DSA &PUT 3 1849 T83 171 1102 9 82 DCW @DCW @ 4 1853 171 1103 9 83 DSA &PUT 3 1856 T83 171 1104 9 84 DCW @DS @ 4 1860 171 1105 9 85 DSA &DS 3 1863 997 171 &T83DC T83DCW T83DS 997 L024Y63,Y43Y47,Y50Y54,Y57Y61104001712TAP2 1106 9 86 DCW @DSA @ 4 1867 172 1107 9 87 DSA &DSA 3 1870 |08 172 1108 9 88 DCW @EQU @ 4 1874 172 1109 9 89 DSA &CONTRL 3 1877 989 172 1110 9 90 DCW @CTL @ 4 1881 172 1111 DSA &CONTRL 3 1884 989 172 1112 9 92 DCW @END @ 4 1888 172 &DSA |08EQU 989CTL 989END L025Y88,Y68Y71,Y75Y78,Y82Y85104001722TAP2 1113 9 93 DSA &CONTRL 3 1891 989 173 1114 9 94 DCW @EX @ 4 1895 173 1115 9 95 DSA &CONTRL 3 1898 989 173 1116 9 96 DCW @LTOR@ 4 1902 173 1117 9 97 DSA &CONTRL 3 1905 989 173 1118 9 98 DCW @ORG @ 4 1909 173 1119 9 99 DSA &CONTRL 3 1912 989 173 &989EX 989LTOR989ORG 989 L024Z12,Y92Y96,Y99Z03,Z06Z10104001732TAP2 1120 10 00 DCW @XFR @ 4 1916 174 1121 10 01 DSA &CONTRL 3 1919 989 174 1122 10 02 DCW @JOB @ 4 1923 174 1123 DSA &CONTRL 3 1926 989 174 1124 10 04 DCW @BCV B@ 5 1931 174 1125 10 05 DCW @@ @ 2 1933 174 1126 10 06 DCW @D % @ 7 1940 174 &XFR 989JOB 989BCV B@ D % L028Z40,Z17Z20,Z24Z27,Z32Z34104001742TAP2 1127 10 07 DCW @M @ @ 7 1947 175 1128 10 08 DCW @BEF B@ 5 1952 175 1129 10 09 DCW @K @ 2 1954 175 1130 10 10 DCW @BER B@ 5 1959 175 1131 10 11 DCW @L @ 2 1961 175 1132 10 12 DCW @BIN B* @ 7 1968 175 1133 10 13 DCW @BLC B@ 5 1973 175 &M @ BEF BK BER BL BIN B* BLC B L033Z73,Z48Z53,Z55Z60,Z62Z69104001752TAP2 1134 10 14 DCW @A @ 2 1975 176 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1135 10 15 DCW @BM V@ 5 1980 176 1136 10 16 DCW @K @ 2 1982 176 1137 10 17 DCW @BW V@ 5 1987 176 1138 10 18 DCW @1 @ 2 1989 176 1139 10 19 DCW @BWZ V* @ 7 1996 176 1140 10 20 DCW @BSS B* @ 7 2003 176 &A BM VK BW V1 BWZ V* BSS B* L030!03,Z76Z81,Z83Z88,Z90Z97104001762TAP2 1141 10 21 DCW @P 4 @ 7 2010 177 1142 10 22 DCW @R 1 @ 7 2017 177 1143 10 23 DCW @RCB 1@ 5 2022 177 1144 10 24 DCW @C @ 2 2024 177 1145 10 25 DCW @RP 5 @ 7 2031 177 1146 10 26 DCW @SPF 9 @ 7 2038 177 &P 4 R 1 RCB 1C RP 5 SPF 9 L035!38,!11!18,!23!25,!32040104001772TAP2 1147 10 27 DCW @SRF 8 @ 7 2045 178 1148 10 28 DCW @W 2 @ 7 2052 178 1149 10 29 DCW @RT M@ 5 2057 178 1150 10 30 DCW @RU@ 2 2059 178 1151 10 31 DCW @WM 2@ 5 2064 178 1152 10 32 DCW @) @ 2 2066 178 1153 10 33 DCW @BC9 B@ 5 2071 178 &SRF 8 W 2 RT MRUWM 2) BC9 B L033!71,!46!53,!58!60,!65!67104001782TAP2 1154 10 34 DCW @9 @ 2 2073 179 1155 10 35 DCW @BAV B@ 5 2078 179 1156 10 36 DCW @Z @ 2 2080 179 1157 10 37 DCW @BPCBB@ 5 2085 179 1158 10 38 DCW @R @ 2 2087 179 1159 10 39 DCW @BPB B@ 5 2092 179 1160 10 40 DCW @P @ 2 2094 179 &9 BAV BZ BPCBBR BPB BP L023!94,!74!79,!81!86,!88!93104001792TAP2 1161 10 41 DCW @BBE W* @ 7 2101 180 1162 10 42 DCW @SSB K* @ 7 2108 180 1163 10 43 DCW @SS K* @ 7 2115 180 1164 10 44 DCW @WP 6 @ 7 2122 180 1165 10 45 DCW @WR 3 @ 7 2129 180 &BBE W* SSB K* SS K* WP 6 WR 3 L035J29,J02J09,J16J23,040040104001802TAP2 1166 10 46 DCW @WRP 7 @ 7 2136 181 1167 10 47 DCW @CC F* @ 7 2143 181 1168 10 48 DCW @CCB F* @ 7 2150 181 1169 10 49 DCW @NOP N @ 7 2157 181 1170 10 50 DCW @SAR Q @ 7 2164 181 &WRP 7 CC F* CCB F* NOP N SAR Q L035J64,J37J44,J51J58,040040104001812TAP2 1171 10 51 DCW @SBR H @ 7 2171 182 1172 10 52 DCW @MIZ X @ 7 2178 182 1173 10 53 DCW @MLC M @ 7 2185 182 1174 10 54 DCW @MLCWL @ 7 2192 182 1175 10 55 DCW @MLNSD @ 7 2199 182 &SBR H MIZ X MLC M MLCWL MLNSD L035J99,J72J79,J86J93,040040104001822TAP2 1176 10 56 DCW @MLZSY @ 7 2206 183 1177 10 57 DCW @MRCMP @ 7 2213 183 1178 10 58 DCW @WT M@ 5 2218 183 1179 10 59 DCW @WU@ 2 2220 183 1180 10 60 DCW @BSP U@ 5 2225 183 1181 10 61 DCW @BU@ 2 2227 183 1182 10 62 DCW @CU U* @ 7 2234 183 &MLZSY MRCMP WT MWUBSP UBUCU U* L035K34,K07K14,K19K21,K26K28104001832TAP2 1183 10 63 DCW @RTW L@ 5 2239 184 1184 10 64 DCW @RU@ 2 2241 184 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1185 10 65 DCW @RWD U@ 5 2246 184 1186 10 66 DCW @RU@ 2 2248 184 1187 10 67 DCW @RWU U@ 5 2253 184 1188 10 68 DCW @UU@ 2 2255 184 1189 10 69 DCW @SKP U@ 5 2260 184 &RTW LRURWD URURWU UUUSKP U L026K60,K40K42,K47K49,K54K56104001842TAP2 1190 10 70 DCW @EU@ 2 2262 185 1191 10 71 DCW @WTM U@ 5 2267 185 1192 10 72 DCW @MU@ 2 2269 185 1193 10 73 DCW @WTW L@ 5 2274 185 1194 10 74 DCW @WU@ 2 2276 185 1195 DCW @MA # @ 7 2283 185 1196 10 75 DCW @MBC M@ 5 2288 185 &EUWTM UMUWTW LWUMA # MBC M L028K88,K63K68,K70K75,K77K84104001852TAP2 1197 10 76 DCW @B @ 2 2290 186 1198 10 77 DCW @MBD M@ 5 2295 186 1199 10 78 DCW @A @ 2 2297 186 1200 10 79 DCW @DCR U@ 5 2302 186 1201 10 80 DCW @D @ 2 2304 186 1202 10 81 DCW @ECR U@ 5 2309 186 1203 10 82 DCW @E @ 2 2311 186 &B MBD MA DCR UD ECR UE L023L11,K91K96,K98L03,L05L10104001862TAP2 1204 10 83 DCW @LU L* @ 7 2318 187 1205 10 84 DCW @MU M* @ 7 2325 187 1206 10 85 DCW @PCB 4@ 5 2330 187 1207 10 86 DCW @C @ 2 2332 187 1208 10 87 DCW @RF 4@ 5 2337 187 1209 10 88 DCW @R @ 2 2339 187 1210 10 89 DCW @RTB M@ 5 2344 187 &LU L* MU M* PCB 4C RF 4R RTB M L033L44,L19L26,L31L33,L38L40104001872TAP2 1211 10 90 DCW @RB@ 2 2346 188 1212 10 91 DCW @WRF 6@ 5 2351 188 1213 10 92 DCW @R @ 2 2353 188 1214 10 93 DCW @WTB M@ 5 2358 188 1215 10 94 DCW @WB@ 2 2360 188 1216 10 95 DCW @RD M@ 5 2365 188 1217 10 96 DCW @R@ 1 2366 188 &RBWRF 6R WTB MWBRD MR L022L66,L47L52,L54L59,L61L66104001882TAP2 1218 10 97 DCW @1@ 1 2367 189 1219 10 98 DCW @RDT M@ 5 2372 189 1220 10 99 DCW @R@ 1 2373 189 1221 11 00 DCW @2@ 1 2374 189 1222 11 01 DCW @RDW L@ 5 2379 189 1223 11 02 DCW @R@ 1 2380 189 1224 11 03 DCW @1@ 1 2381 189 &1RDT MR2RDW LR1 L015L81,L68L73,L74L75,L80L81104001892TAP2 1225 11 04 DCW @RDTWL@ 5 2386 190 1226 11 05 DCW @R@ 1 2387 190 1227 11 06 DCW @2@ 1 2388 190 1228 11 07 DCW @SD M@ 5 2393 190 1229 11 08 DCW @R@ 1 2394 190 1230 11 09 DCW @0@ 1 2395 190 1231 11 10 DCW @WD M@ 5 2400 190 &RDTWLR2SD MR0WD M L019M00,L87L88,L89L94,L95L96104001902TAP2 1232 11 11 DCW @W@ 1 2401 191 1233 11 12 DCW @1@ 1 2402 191 1234 11 13 DCW @WDT M@ 5 2407 191 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1235 11 14 DCW @W@ 1 2408 191 1236 11 15 DCW @2@ 1 2409 191 1237 11 16 DCW @WDW L@ 5 2414 191 1238 11 17 DCW @W@ 1 2415 191 &W1WDT MW2WDW LW L015M15,M02M03,M08M09,M10M15104001912TAP2 1239 11 18 DCW @1@ 1 2416 192 1240 11 19 DCW @WDTWL@ 5 2421 192 1241 11 20 DCW @W@ 1 2422 192 1242 11 21 DCW @2@ 1 2423 192 1243 11 22 DCW @WDC M@ 5 2428 192 1244 11 23 DCW @W@ 1 2429 192 1245 11 24 DCW @3@ 1 2430 192 &1WDTWLW2WDC MW3 L015M30,M17M22,M23M24,M29M30104001922TAP2 1246 11 25 DCW @WDCWL@ 5 2435 193 1247 11 26 DCW @W@ 1 2436 193 1248 11 27 DCW @3@ 1 2437 193 1249 11 28 ENDOPT DCW @ @ 4 2441 193 1250 11 29 DC @}@ 1 2442 193 1251 11 291 ORGB ORG 2771 2443 2771 &WDCWLW3 } L012M42,M36M37,M38040,040040104001932TAP2 1252 XBIN C OPER,1965 COMPARE TO -BIN- 7 2771 C F23 Z65 194 1253 BU CLEARX 5 2778 B R01 / 194 1254 BCE PUT,ICOUNT,5 8 2783 B T83 F92 5 194 1255 MLC *-7,ICOUNT 7 2791 M P90 F92 194 1256 MLC @ @,BADDR 7 2798 M M88 F87 194 &CF23Z65BR01/BT83F925MP90F92MM88F87 L034Q04,P78P83,P91P98,040040104001942TAP2 1257 LCA AMPER,PARAMT&60 7 2805 L Q16 G60 195 1258 B PUT 4 2812 B T83 195 1259 AMPER DCW @&@ 1 2816 195 1260 ORG 2751 2751 &LQ16G60BT83& L012Q16,Q12Q16,040040,040040104001952TAP2 1261 KILLIT C ADDR,@000@ 7 2751 C G95 M58 196 1262 BU PUT 5 2758 B T83 / 196 1263 B GET 4 2763 B 363 196 1264 ORG 2711 2711 &CG95M58BT83/B363 L016P66,P58P63,040040,040040104001962TAP2 1265 XBCE C OPER,@BCE @ 7 2711 C F23 M83 197 1266 BU *&9 5 2718 B P31 / 197 1267 BCE RELEAS,ICOUNT,1 8 2723 B 959 F92 1 197 1268 A K1,ICOUNT 7 2731 A E19 F92 197 1269 B RELEAS 4 2738 B 959 197 1270 ORG 2901 2901 &CF23M83BP31/B959F921AE19F92B959 L031P41,P18P23,P31P38,040040104001972TAP2 1271 CLEARX CW PARAMT&60 4 2901 ) G60 198 1272 B PUT 4 2905 B T83 198 1273 ORG 2601 2601 &)G60BT83 L008R08,R05040,040040,040040104001982TAP2 1274 LOADXX LCA XLIMIT,15 7 2601 L O55 015 199 1275 B LOAD 4 2608 B 100 199 &LO55015B100 L011O11,O08040,040040,040040104001992TAP2 1276 2655 DSA 1053 3 2655 |53 200 1277 XLIMIT EQU 2655 2655 1278 ORG 2701 2701 &|53 L003O55,040040,040040,040040104002002TAP2 1279 PUTYYY SW RECORD 4 2701 , F05 201 1280 B PUT 4 2705 B T83 201 1281 ORG ORGB 2443 &,F05BT83 L008P08,P05040,040040,040040104002012TAP2 798 DCW @ @ 9 2451 LIT 202 800 HADLIT #01 1 2452 AREA 202 @030@ 3 2455 LIT 202 1 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @000@ 3 2458 LIT 202 @1@ 1 2459 LIT 202 819 ONE #01 1 2460 AREA 202 823 @00000 @ 10 2470 LIT 202 & 0300001 00000 L028M70,M52M53,M56M59,M60M61104002022TAP2 @060@ 3 2473 LIT 203 840 @CHAIN@ 5 2478 LIT 203 @|@ 1 2479 LIT 203 @BCE @ 4 2483 LIT 203 @BBE @ 4 2487 LIT 203 @ @ 1 2488 LIT 203 950 @LIT @ 5 2493 LIT 203 &060CHAIN|BCE BBE LIT L023M93,M74M79,M80M84,M88M89104002032TAP2 952 @AREA @ 5 2498 LIT 204 955 @ADCON@ 5 2503 LIT 204 962 @MACRO@ 5 2508 LIT 204 @ @ 2 2510 LIT 204 976 @GEN @ 5 2515 LIT 204 @00?@ 3 2518 LIT 204 984 PREVOP #05 5 2523 AREA 204 &AREA ADCONMACRO GEN 00? L030N23,M99N04,N09N11,N16N19104002042TAP2 985 PREVAC #01 1 2524 AREA 205 @3@ 1 2525 LIT 205 @00@ 2 2527 LIT 205 @4@ 1 2528 LIT 205 @|0@ 2 2530 LIT 205 @ORG @ 4 2534 LIT 205 1038 @GEN @ 5 2539 LIT 205 & 3004|0ORG GEN L016N39,N25N26,N28N29,N31N35104002052TAP2 @*@ 1 2540 LIT 206 @S@ 1 2541 LIT 206 &*S L002N41,N41040,040040,040040104002062TAP2 & N000000,040040,040040,040040B16702072TAP2 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02082TAP2 &,068072)063067/061039 ,001001104002092TAP2 1282 EX SYSTEM B 167 207 & /167080 02102TAP2 1283 11 30 END SYSTEM / 167 080 210 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00012TAP3 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP3 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000032TAP3 0 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 102 CTL 630 1 103 * 104 03 ****** PHASE 3 - BUILD UP SYMBOL TABLE AND PROCESS LITERALS *** 105 04 * 106 05 * *** PHASE 3 IDENTIFICATION AT 333 *** 107 06 * 108 07 ORG 333 0333 109 08 DCW @3@ 1 0333 4 110 09 * 111 10 * 112 11 ORG 82 0082 &3 L001333,040040,040040,040040104000042TAP3 113 12 CHECK DCW @ @ 1 0082 5 114 13 DCW @ }@ 3 0085 5 115 14 X1 EQU 89 0089 & } L004085,083040,040040,040040104000052TAP3 116 15 0089 DCW @000@ 3 0089 6 117 16 X2 EQU 94 0094 &000 L003089,040040,040040,040040104000062TAP3 118 17 0094 DCW @000@ 3 0094 7 119 18 X3 EQU 99 0099 &000 L003094,040040,040040,040040104000072TAP3 120 19 0099 DCW @000@ 3 0099 8 121 HLDLOC EQU 3 0003 122 SAVLOC EQU 6 0006 123 LASTLT EQU 9 0009 124 LTTSAV EQU 12 0012 125 TBLLMT EQU 15 0015 126 22 REITER EQU 193 0193 127 23 FULL EQU 194 0194 128 24 LITCTL EQU 195 0195 129 25 RELATV EQU 196 0196 130 DA EQU 197 0197 131 26 ORG 100 0100 132 27 LOAD RWD 1 5 0100 U %U1 R 8 133 28 RTW 1,CHECK 8 0105 L %U1 082 R 8 134 29 BER TPERR 5 0113 B 201 L 8 135 30 BCE *&5,CHECK,D 8 0118 B 130 082 D 8 136 31 B LOAD&5 4 0126 B 105 8 137 32 BSP 1 5 0130 U %U1 B 8 &000U%U1RL%U1082RB201LB130082DB105U%U1B L038134,100105,113118,126130104000082TAP3 138 33 RTW 1,333 8 0135 L %U1 333 R 9 139 34 SW CHECK&3 4 0143 , 085 9 140 35 RTW 1,CHECK 8 0147 L %U1 082 R 9 141 36 BCE 334,CHECK,9 8 0155 B 334 082 9 9 142 37 B *-19 4 0163 B 147 9 143 38 SEEK EQU LOAD&25 NUMBER OF PHASE REQUESTED 0125 &L%U1333R,085L%U1082RB3340829B147 L032166,143147,155163,040040104000092TAP3 144 39 SYSTEM WTW 1,333 8 0167 L %U1 333 W 10 145 40 BER *&5 5 0175 B 184 L 10 146 41 R 40 4 0180 1 040 10 147 42 BSP 1 5 0184 U %U1 B 10 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 43 SKP 1 5 0189 U %U1 E 10 149 44 B SYSTEM 4 0194 B 167 10 150 45 H 1 0198 . 10 151 46 OVFLIT EQU 14 0014 152 47 ORG 3971 3971 153 47 ORG 3943 3943 &L%U1333WB184L1040U%U1BU%U1EB167. L032198,175180,184189,194198104000102TAP3 154 471 SENTNL BCE REWRIT,333,1 8 3943 B I71 333 1 11 155 472 BCE REWRIT,333,3 8 3951 B I71 333 3 11 156 473 BCE REWRIT,333,7 8 3959 B I71 333 7 11 157 474 B 334 4 3967 B 334 11 158 48 REWRIT BSP 1 5 3971 U %U1 B 11 &BI713331BI713333BI713337B334U%U1B L033I75,I51I59,I67I71,040040104000112TAP3 159 49 WTW 1,CHECK 8 3976 L %U1 082 W 12 160 50 BER TPERR 5 3984 B 201 L 12 161 51 BCE 334,CHECK,% 8 3989 B 334 082 % 12 162 52 H 1 3997 . 12 163 53 ORG 201 0201 164 54 * LINKAGE TO GENERALIZED TAPE ERROR ROUTINE &L%U1082WB201LB334082%. L022I97,I84I89,I97040,040040104000122TAP3 165 55 TPERR H 1 0201 . 13 166 56 LABEL EQU RECORD&10 2108 167 57 * 168 58 * 169 59 * ** 2TAP2 SUBROUTINES ** 170 60 * 171 61 ORG ZONE&5 2276 172 62 * ROUTINE TO PUT A SYMBOL IN THE LABEL TABLE 173 63 * * SYMBOL TAKEN FROM LABEL IN RECORD 174 64 * * CURRENT AVAILABLE TABLE LOCATION IS 175 65 * INDEXED BY X3 176 66 * * IF LABEL TABLE IS FULL,LABEL IS NOT 177 67 * STORED, AND A W/M IS SET AT RECORD&1 &. L001201,040040,040040,040040104000132TAP3 178 68 SETLAB SBR SETEXT&3 4 2276 H L40 14 179 69 NOP TBLOVF,FULL,1 8 2280 N L41 194 1 14 180 70 MLC LOCCTR,LABTBL&X3 7 2288 M O98 QA3 14 181 71 MLC LABEL,LABTBL-3&X3 7 2295 M J08 QA0 14 182 72 NOP 000,000,0 8 2302 N 000 000 0 14 183 73 NOP 000 4 2310 N 000 14 &HL40NL411941MO98QA3MJ08QA0N0000000N000 L038L13,K80K88,K95L02,L10040104000142TAP3 184 74 TSTLMT A @9@,X3 7 2314 A O80 099 15 185 C TBLLMT,X3 7 2321 C 015 099 15 186 76 BU TBLOVF&7 5 2328 B L48 / 15 187 77 B TBLOVF 4 2333 B L41 15 188 78 SETEXT B 0 4 2337 B 000 15 189 TBLOVF SW FULL,RECORD&1 7 2341 , 194 !99 15 &AO80099C015099BL48/BL41B000,194!99 L034L47,L21L28,L33L37,L41040104000152TAP3 190 LCA LITTOT,LTTSAV 7 2348 L P01 012 16 191 80 B LOADXX 4 2355 B H89 16 192 81 * ROUTINE TO LOOK UP LABEL IN LABEL TABLE 193 82 * * ARGUMENT LABEL PLACED AT LABTBL-3&X3 194 83 * * IF LABEL FOUND, RETURN BY EXIT 195 84 * * IF NOT FOUND, RETURN BY EXIT&4 196 85 * * HIT LOCATED BY X2 197 86 TLULAB SBR TLUEXT&3 4 2359 H M50 16 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 87 MLC @000@,X2 7 2363 M O83 094 16 199 88 SW TLUFST&7 4 2370 , L92 16 200 89 MLC LABTBL-7&X3,TLUFST&7 7 2374 M Q?6 L92 16 201 90 CW TLUFST&7 4 2381 ) L92 16 &LP01012BH89HM50MO83094,L92MQ?6L92)L92 L037L84,L55L59,L63L70,L74L81104000162TAP3 202 91 TLUFST BCE HITFST,LABTBL-7&X2, 8 2385 B M04 Q!6 17 203 92 A @9@,X2 7 2393 A O80 094 17 204 93 B TLUFST 4 2400 B L85 17 205 94 HITFST C LABTBL-3&X2,LABTBL-3&X3 7 2404 C QJ0 QA0 17 206 95 BU TLUFST&8 5 2411 B L93 / 17 207 96 CW LABTBL-8&X3 4 2416 ) Q?5 17 &BM04Q!6 AO80094BL85CQJ0QA0BL93/)Q?5 L035M19,L93M00,M04M11,M16040104000172TAP3 208 97 C X2,X3 7 2420 C 094 099 18 209 98 BU TLUEXT 5 2427 B M47 / 18 210 99 SW TLUEXT&1 4 2432 , M48 18 211 1 00 A @4@,TLUEXT&3 7 2436 A O84 M50 18 212 1 01 CW TLUEXT&1 4 2443 ) M48 18 213 1 02 TLUEXT B 0 4 2447 B 000 18 214 1 03 * ROUTINE TO MODIFY A MACHINE ADDRESS BY A 215 1 04 * PLUS OR MINUS ADJUSTMENT VALUE 216 1 05 * * ADDRESS PLACED AT ADDR 217 1 06 * * ADJUSTMENT VALUE TAKEN FROM PARAMT&10 218 1 07 * * MODIFIED ADDRESS SET AT RESULT-1 219 1 08 MODADD SBR MODEXT&3 4 2451 H N95 18 &C094099BM47/,M48AO84M50)M48B000HN95 L035M54,M27M32,M36M43,M47M51104000182TAP3 220 1 09 BAV *&1 5 2455 B M60 Z 19 221 1 10 CW NEG 4 2460 ) P13 19 222 1 11 SW PARAMT&11 4 2464 , K04 19 223 1 12 MLC @000@,X1 7 2468 M O83 089 19 224 1 13 MLC PARAMT&19,X1 7 2475 M K12 089 19 225 1 14 MLC @000@,HOLD 7 2482 M O83 P07 19 &BM60Z)P13,K04MO83089MK12089MO83P07 L034M88,M60M64,M68M75,M82040104000192TAP3 226 1 15 MLC PARAMT&10&X1,HOLD 7 2489 M K|3 P07 20 227 1 16 MZ PARAMT&10,HOLD 7 2496 Y K03 P07 20 228 1 17 BM DECR,HOLD 8 2503 V O30 P07 K 20 229 1 18 SETINC MLC ADDR,RESULT-1 7 2511 M P04 P10 20 230 1 19 MZ @ @,RESULT-1 7 2518 Y O85 P10 20 &MK|3P07YK03P07VO30P07KMP04P10YO85P10 L036N24,M96N03,N11N18,040040104000202TAP3 231 1 20 A HOLD,RESULT-1 7 2525 A P07 P10 21 232 1 21 MZ ADDR,RESULT-1 7 2532 Y P04 P10 21 233 1 22 MZ RESULT-3,YYY 7 2539 Y P08 O29 21 234 1 23 MZ ADDR-2,XXX 7 2546 Y P02 O28 21 235 1 24 BW MODEXT&4,NEG 8 2553 V N96 P13 1 21 &AP07P10YP04P10YP08O29YP02O28VN96P131 L036N60,N32N39,N46N53,040040104000212TAP3 236 1 25 C XXX,YYY 7 2561 C O28 O29 22 237 1 26 BH *&5 5 2568 B N77 U 22 238 1 27 B MODEXT 4 2573 B N92 22 239 1 28 SW RESULT-1 4 2577 , P10 22 240 1 29 A @|0@,RESULT 7 2581 A O87 P11 22 241 1 30 CW RESULT-1 4 2588 ) P10 22 242 1 31 MODEXT B 000 4 2592 B 000 22 &CO28O29BN77UBN92,P10AO87P11)P10B000 L035N95,N68N73,N77N81,N88N92104000222TAP3 243 1 32 BAV MODEXT 5 2596 B N92 Z 23 244 1 33 C XXX,YYY 7 2601 C O28 O29 23 245 1 34 BH MODEXT 5 2608 B N92 U 23 246 1 35 SW RESULT-1 4 2613 , P10 23 247 1 36 A @?0@,RESULT 7 2617 A O89 P11 23 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 37 B MODEXT-4 4 2624 B N88 23 249 1 371 XXX DCW @2@ 1 2628 23 &BN92ZCO28O29BN92U,P10AO89P11BN882 L033O28,O01O08,O13O17,O24O28104000232TAP3 250 1 372 YYY DCW @2@ 1 2629 24 251 1 38 DECR SW NEG 4 2630 , P13 24 252 1 39 A @999@,HOLD 7 2634 A O92 P07 24 253 1 40 A @?01@,HOLD 7 2641 A O95 P07 24 254 1 41 B SETINC 4 2648 B N11 24 255 1 42 MODALT SBR MODEXT&3 4 2652 H N95 24 256 1 43 BAV *&1 5 2656 B O61 Z 24 &2,P13AO92P07AO95P07BN11HN95BO61Z L032O60,O30O34,O41O48,O52O56104000242TAP3 257 1 44 CW NEG 4 2661 ) P13 25 258 1 45 B SETINC-16 4 2665 B M95 25 259 1 46 MODZER MLC HOLD,RESULT-1 7 2669 M P07 P10 25 260 1 47 B MODEXT 4 2676 B N92 25 261 1 48 HALT4 H 1 2680 . 25 262 1 49 * 263 1 50 * HOUSEKEEPING 264 1 51 * 265 1 52 ORG 334 0334 &)P13BM95MP07P10BN92. L020O80,O65O69,O76O80,040040104000252TAP3 266 1 53 B HSKPG PIVOT BRANCH TO HOUSEKEEPING 4 0334 B !98 26 267 1 54 * CREATE ALL WORK AREAS - OVERLAID BY INSTRS 268 1 55 NOP LOCCTR#3,LITTOT#3 7 0338 N O98 P01 26 269 1 56 NOP ADDR#3,HOLD#3 7 0345 N P04 P07 26 270 NOP RESULT#4 4 0352 N P11 26 271 NOP LITORG#1,NEG#1 7 0356 N P12 P13 26 272 1 61 * GET INPUT RECORD 273 1 62 ORG 338 0338 &B!98NO98P01NP04P07NP11NP12P13 L029362,338345,352356,040040104000262TAP3 274 1 63 GETRCD RTW 2,RECORD 8 0338 L %U2 !98 R 27 275 1 64 BER TPERR 5 0346 B 201 L 27 276 1 65 BEF IPEOR 5 0351 B !64 K 27 277 1 66 B PUTRCD&7,LABEL-5,* BYPASS COMMENTS CARD 8 0356 B 568 J03 * 27 278 1 67 SW LABEL-5 4 0364 , J03 27 279 BW PUTRCD&7,RECORD&3 8 0368 V 568 J01 1 27 &L%U2!98RB201LB!64KB568J03*,J03V568J011 L038375,346351,356364,368040104000272TAP3 280 BW GETLOC,RECORD&1 8 0376 V 590 !99 1 28 281 BW CNTRL2,FULL 8 0384 V 608 194 1 28 282 PROCES BW SUBSEQ,DA 8 0392 V 833 197 1 28 283 1 70 INSTR BW CNTRL,RECORD TEST FOR CONTROL STATEMENT 8 0400 V /29 !98 1 28 &V590!991V6081941V8331971V/29!981 L032407,384392,400040,040040104000282TAP3 284 1 71 BCE DECLAR,ICOUNT, 8 0408 B 640 J85 29 285 1 72 * PROCESS IMPERATIVE COMMAND 286 1 73 IMPER BCE *&13,LABEL-5, 8 0416 B 436 J03 29 287 1 74 BWZ PRCLIT,LABEL-5,2 BYPASS ACTUAL LOCATION ASSIGNMENT 8 0424 V 483 J03 2 29 288 1 75 B SETLAB 4 0432 B K76 29 289 1 76 LCA LOCCTR,LOCATN 7 0436 L O98 J92 29 &B640J85 B436J03 V483J032BK76LO98J92 L035442,416424,432436,040040104000292TAP3 290 1 79 ZA ICOUNT,HOLD STEP LOCATION COUNTER BY LENGTH 7 0443 ? J85 P07 30 291 1 80 MZ @ @,HOLD 7 0450 Y O85 P07 30 292 1 81 MLC LOCCTR,ADDR 7 0457 M O98 P04 30 293 1 82 B MODALT 4 0464 B O52 30 294 1 83 MLC RESULT-1,LOCCTR 7 0468 M P10 O98 30 &?J85P07YO85P07MO98P04BO52MP10O98 L032474,450457,464468,040040104000302TAP3 295 1 84 BCE PUTRCD,LITCNT, 8 0475 B 561 J88 31 296 1 85 * TEST FOR LITERALS 297 1 86 PRCLIT MLC @000@,X1 7 0483 M O83 089 31 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 87 BCE LITERL,AADDR,L NUMERIC LITERAL 8 0490 B 937 J79 L 31 299 1 88 BCE ALFLIT,AADDR,F ALPHANUMERIC LITERAL 8 0498 B |86 J79 F 31 300 1 89 BCE AREA,AADDR,W LITERAL AREA 8 0506 B /06 J79 W 31 &B561J88 MO83089B937J79LB|86J79FB/06J79WL039513,483490,498506,040040104000312TAP3 301 1 90 BCE ADCON,AADDR,C ADDRESS CONSTANT 8 0514 B /21 J79 C 32 302 1 91 MLC @030@,X1 7 0522 M P16 089 32 303 1 92 BCE LITERL,BADDR,L NUMERIC LITERAL 8 0529 B 937 J80 L 32 304 1 93 BCE ALFLIT,BADDR,F ALPHANUMERIC LITERAL 8 0537 B |86 J80 F 32 305 1 94 BCE AREA,BADDR,W LITERAL AREA 8 0545 B /06 J80 W 32 &B/21J79CMP16089B937J80LB|86J80FB/06J80WL039552,522529,537545,040040104000322TAP3 306 1 95 BCE ADCON,BADDR,C ADDRESS CONSTANT 8 0553 B /21 J80 C 33 307 1 96 * PUT OUTPUT RECORD 308 PUTRCD LCA LOCCTR,HLDLOC 7 0561 L O98 003 33 309 WTW 1,RECORD 8 0568 L %U1 !98 W 33 310 1 98 BER TPERR 5 0576 B 201 L 33 311 1 99 BEF *&1 5 0581 B 586 K 33 312 2 00 B GETRCD 4 0586 B 338 33 313 2 01 * PROCESS DECLARATIVE STATEMENTS 314 * &B/21J80CLO98003L%U1!98WB201LB586KB338 L037589,561568,576581,586040104000332TAP3 315 GETLOC MLC HLDLOC,LOCCTR 7 0590 M 003 O98 34 316 CW FULL,RECORD&1 7 0597 ) 194 !99 34 317 2 014 B MOVXX 4 0604 B I00 34 318 * 319 CNTRL2 BW *&5,RECORD 8 0608 V 620 !98 1 34 320 B PUTRCD&7 4 0616 B 568 34 321 BCE PUTRCD&7,PARAMT,* 8 0620 B 568 J93 * 34 &M003O98)194!99BI00V620!981B568B568J93* L038627,597604,608616,620040104000342TAP3 322 BCE CNTRL,AADDR,S 8 0628 B /29 J79 S 35 323 B PUTRCD&7 4 0636 B 568 35 324 * 325 2 02 DECLAR C OPER,@DA @ 7 0640 C J16 P20 35 326 2 03 BE DALINE 5 0647 B 755 S 35 327 2 04 MLC LITCNT,HOLD 7 0652 M J88 P07 35 328 2 05 S @1@,HOLD STEP LOCATION COUNTER BY LENGTH-1 7 0659 S P21 P07 35 &B/29J79SB568CJ16P20B755SMJ88P07SP21P07 L038665,636640,647652,659040104000352TAP3 329 2 06 MZ @ @,HOLD 7 0666 Y O85 P07 36 330 2 07 MLC LOCCTR,ADDR 7 0673 M O98 P04 36 331 2 08 B MODALT 4 0680 B O52 36 332 2 09 BCE *&9,LABEL-5, 8 0684 B 700 J03 36 333 2 10 BWZ PUTRCD,LABEL-5,2 TEST FOR ACTUAL ADDRESS ASSNMT 8 0692 V 561 J03 2 36 &YO85P07MO98P04BO52B700J03 V561J032 L034699,673680,684692,040040104000362TAP3 334 2 11 MLC RESULT-1,LOCCTR 7 0700 M P10 O98 37 335 2 12 MLC LOCCTR,LOCATN 7 0707 M O98 J92 37 336 2 13 BCE *&5,LABEL-5, 8 0714 B 726 J03 37 337 2 14 B SETLAB STORE LABEL & LOCATION IN TABLE 4 0722 B K76 37 338 2 15 UPDLOC ZA LITCNT,HOLD 7 0726 ? J88 P07 37 &MP10O98MO98J92B726J03 BK76?J88P07 L033732,707714,722726,040040104000372TAP3 339 2 16 MZ @ @,HOLD 7 0733 Y O85 P07 38 340 2 17 B MODALT STEP LOCATION COUNTER BY LENGTH 4 0740 B O52 38 341 2 18 MLC RESULT-1,LOCCTR 7 0744 M P10 O98 38 342 2 21 B PUTRCD 4 0751 B 561 38 343 2 22 * PROCESS DA HEADER 344 DALINE LCA LOCCTR,SAVLOC 7 0755 L O98 006 38 345 2 24 SW DA 4 0762 , 197 38 &YO85P07BO52MP10O98B561LO98006,197 L033765,740744,751755,762040104000382TAP3 346 2 25 MZ ACTOP,LOCCTR-1 GET INDEXING FOR LABTBL 7 0766 Y J89 O97 39 347 2 26 MLC SAVLOC,ADDR 7 0773 M 006 P04 39 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 2 27 BCE *&13,LABEL-5, 8 0780 B 800 J03 39 349 2 28 BWZ ACTDA,LABEL-5,2 8 0788 V 818 J03 2 39 350 2 29 B SETLAB 4 0796 B K76 39 &YJ89O97M006P04B800J03 V818J032BK76 L034799,773780,788796,040040104000392TAP3 351 2 30 MLC SAVLOC,LOCATN 7 0800 M 006 J92 40 352 2 31 MLC LITCNT,SAVLOC SAVE TOTAL LENGTH OF DA 7 0807 M J88 006 40 353 B PUTRCD 4 0814 B 561 40 354 2 33 * DA ENTRY WITH ACTUAL ADDRESS ASSIGNMENT 355 ACTDA MLC LOCATN,ADDR 7 0818 M J92 P04 40 356 2 35 SW ACTDA&1 SET ACT. ADDR. SWITCH 4 0825 , 819 40 357 2 36 B PUTRCD 4 0829 B 561 40 358 2 37 * PROCESS SUBSEQUENT ENTRIES FOR DA &M006J92MJ88006B561MJ92P04,819B561 L033832,807814,818825,829040104000402TAP3 359 2 38 SUBSEQ BW DASUB,PARAMT&65 TEST FOR DA SUBSEQUENT ENTRY 8 0833 V 889 K58 1 41 360 2 39 BW ACTOUT,ACTDA&1 NOT SUBSEQ - TEST ACTUAL ADDR SW 8 0841 V 878 819 1 41 361 2 40 MLC SAVLOC,HOLD 7 0849 M 006 P07 41 362 2 41 B MODALT 4 0856 B O52 41 363 2 42 MLC RESULT-1,LOCCTR STEP LOCATION COUNTER BY DA LENGTH 7 0860 M P10 O98 41 &V889K581V8788191M006P07BO52MP10O98 L034866,841849,856860,040040104000412TAP3 364 2 43 CW DA,ACTDA&1 RESET SWITCHES 7 0867 ) 197 819 42 365 2 44 B INSTR BRANCH TO PROCESS NEW ENTRY 4 0874 B 400 42 366 2 45 ACTOUT MLC SAVLOC,LOCCTR RESTORE ORIGINAL LOCATION COUNTER 7 0878 M 006 O98 42 367 2 46 B ACTOUT-11 4 0885 B 867 42 368 2 47 * PROCESS DA SUBSEQUENT ENTRY 369 2 48 DASUB MLC LOCATN,HOLD GET RELATIVE POSITION IN AREA 7 0889 M J92 P07 42 370 2 49 B MODALT APPLY IT TO DA BASE ADDRESS 4 0896 B O52 42 &)197819B400M006O98B867MJ92P07BO52 L033899,874878,885889,896040104000422TAP3 371 2 50 MLC RESULT-1,LOCCTR 7 0900 M P10 O98 43 372 2 52 MLC LOCCTR,LOCATN 7 0907 M O98 J92 43 373 2 51 MZ ACTOP,LOCCTR-1 GET INDEXING FOR LABTBL 7 0914 Y J89 O97 43 374 2 53 BCE *&5,LABEL-5, 8 0921 B 933 J03 43 375 2 54 B SETLAB 4 0929 B K76 43 376 B PUTRCD 4 0933 B 561 43 377 2 57 * PROCESS GENERATED LITERALS &MP10O98MO98J92YJ89O97B933J03 BK76B561 L037936,907914,921929,933040104000432TAP3 378 2 58 LITERL SBR LITEXT&3 4 0937 H 959 44 379 2 59 BCE SHORT,PARAMT&6&X1, 8 0941 B 960 JZ9 44 380 2 60 * TLU SHORT LITERALS FOR DUPLICATES 381 2 61 LITOUT A PARAMT&29&X1,LITTOT 7 0949 A KS2 P01 44 382 2 62 LITEXT B 0 4 0956 B 000 44 383 2 63 SHORT LCA PARAMT&5&X1,LABTBL-3&X3 7 0960 L JZ8 QA0 44 384 2 64 B TLULAB 4 0967 B L59 44 385 2 65 B INTABL 4 0971 B |22 44 &H959B960JZ9 AKS2P01B000LJZ8QA0BL59B|22 L038974,941949,956960,967971104000442TAP3 386 2 66 FIRST MLC LABEL,HLDLAB#6 FIRST OCCURRENCE OF LITERAL 7 0975 M J08 P27 45 387 2 67 A PARAMT&29&X1,LITTOT ))) 7 0982 A KS2 P01 45 388 2 68 MLC PARAMT&5&X1,LABEL 7 0989 M JZ8 J08 45 389 2 70 B SETLAB PUT SHORT LITERAL IN SYMBOL TABLE 4 0996 B K76 45 390 2 75 LCA LITTOT,LABTBL-9&X3 7 1000 L P01 Q?4 45 391 2 76 SW LABTBL-17&X3 MARK AS RELATIVE ENTRY 4 1007 , PI6 45 &MJ08P27AKS2P01MJZ8J08BK76LP01Q?4,PI6 L036|10,982989,996|00,|07040104000452TAP3 392 2 77 MLC HLDLAB,LABEL ))) 7 1011 M P27 J08 46 393 2 78 B LITEXT 4 1018 B 956 46 394 2 79 INTABL SW LABTBL-8&X3 DUPLICATED SHORT LITERAL 4 1022 , Q?5 46 395 2 80 BWZ TABLYY,092,2 8 1026 V P58 092 2 46 396 2 81 B TABLZZ 4 1034 B P70 46 397 2 82 TABLXX CW LABTBL-8&X3 4 1038 ) Q?5 46 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 83 S PARAMT&29&X1,LITCNT DUPLICATED WITHIN SAME LITERAL 7 1042 S KS2 J88 46 &MP27J08B956,Q?5VP580922BP70)Q?5SKS2J88 L038|48,|18|22,|26|34,|38|42104000462TAP3 399 2 84 MZ @ @,LITCNT AREA, NOT PREVIOUS ONE 7 1049 Y O85 J88 47 400 2 85 BCE *&12,X1-1,3 SET LITERAL FOR SYMBOLIC TLU 8 1056 B |75 088 3 47 401 2 86 MLC @Q@,AADDR 7 1064 M P28 J79 47 402 2 87 B LITEXT 4 1071 B 956 47 403 2 88 MLC @Q@,BADDR ))) 7 1075 M P28 J80 47 404 2 89 B LITEXT 4 1082 B 956 47 405 2 95 * ALPHANUMERIC LITERAL &YO85J88B|750883MP28J79B956MP28J80B956 L037|85,|56|64,|71|75,|82040104000472TAP3 406 2 96 ALFLIT SBR LITEXT&3 4 1086 H 959 48 407 2 97 C PARAMT&29&X1,@05@ 7 1090 C KS2 P30 48 408 2 98 BH SHORT TEST FOR SHORT A/N LITERAL 5 1097 B 960 U 48 409 2 99 B LITOUT 4 1102 B 949 48 410 3 00 * LITERAL AREA OF FORM SYMBOL#10 411 3 01 AREA SBR LITEXT&3 4 1106 H 959 48 412 3 02 LCA PARAMT&9&X1,PARAMT&29&X1 7 1110 L K|2 KS2 48 413 3 03 B FIRST 4 1117 B 975 48 414 3 04 * ADDRESS CONSTANT &H959CKS2P30B960UB949H959LK|2KS2B975 L035/20,|90|97,/02/06,/10/17104000482TAP3 415 3 05 ADCON SBR LITEXT&3 4 1121 H 959 49 416 3 06 B LITOUT 4 1125 B 949 49 417 3 07 * TEST FOR CONTROL STATEMENTS 418 3 08 CNTRL BCE ORIGIN,OPER-3,O ORIGIN CONTROL STATEMENT 8 1129 B /65 J13 O 49 419 3 09 BCE LTORG,OPER-3,L LTORG CONTROL STATEMENT 8 1137 B U97 J13 L 49 420 3 10 BCE EQUATE,OPER-2,Q EQUATE STATEMENT 8 1145 B X61 J14 Q 49 &H959B949B/65J13OBU97J13LBX61J14Q L032/52,/25/29,/37/45,040040104000492TAP3 421 3 11 BCE ELTG,OPER-3,E EX OR END - PROCESS AS LTORG 8 1153 B X02 J13 E 50 422 3 12 B PUTRCD NO PROCESSING REQUIRED 4 1161 B 561 50 423 3 13 * PROCESS ORIGIN CONTROL STATEMENTS 424 ORIGIN BCE DECODO,LABEL-5, 8 1165 B /85 J03 50 425 BW DECODO,FULL 8 1173 V /85 194 1 50 426 3 16 B SETLAB 4 1181 B K76 50 &BX02J13EB561B/85J03 V/851941BK76 L032/84,/61/65,/73/81,040040104000502TAP3 427 DECODO BCE ACTORG,AADDR,A 8 1185 B S33 J79 A 51 428 3 18 BCE SYMORG,AADDR,S SYMBOLIC ADDRESS 8 1193 B S58 J79 S 51 429 3 20 BCE PUTRCD,AADDR,D ALREADY PROCESSED 8 1201 B 561 J79 D 51 430 BCE SETORG,AADDR,P 8 1209 B U86 J79 P 51 &BS33J79ABS58J79SB561J79DBU86J79P L032S16,/93S01,S09040,040040104000512TAP3 431 3 19 BCE ASTORG,AADDR, BLANK OPERAND 8 1217 B T85 J79 52 432 3 21 SW ERRPOS 4 1225 , J84 52 433 3 22 B PUTRCD 4 1229 B 561 52 434 3 23 * ORIGIN WITH ACTUAL ADDRESS OPERAND 435 3 24 ACTORG MLC @D@,AADDR MARK AS PROCESSED 7 1233 M P31 J79 52 436 3 25 MLC PARAMT&8,LOCCTR 7 1240 M K01 O98 52 437 3 26 MLC LOCCTR,LOCATN 7 1247 M O98 J92 52 &BT85J79 ,J84B561MP31J79MK01O98MO98J92 L037S53,S25S29,S33S40,S47040104000522TAP3 438 3 28 B PUTRCD ABSOLUTE MODE 4 1254 B 561 53 439 3 29 * ORIGIN WITH SYMBOLIC OPERAND 440 3 30 SYMORG BCE ASTORG,PARAMT,* TEST FOR * OPERAND 8 1258 B T85 J93 * 53 441 3 31 LCA PARAMT&5,LABTBL-3&X3 7 1266 L J98 QA0 53 442 3 32 B TLULAB TLU SYMBOL IN SYMBOL TABLE 4 1273 B L59 53 443 3 33 B PREVLB FOUND SYMBOL IN SYMBOL TABLE 4 1277 B T11 53 444 3 34 * SYMBOL IN OPERAND NOT PREVIOUSLY DEFINED 445 NOPREV BW PUTRCD&7,FULL 8 1281 V 568 194 1 53 &B561BT85J93*LJ98QA0BL59BT11V5681941 L035S88,S58S66,S73S77,S81040104000532TAP3 446 3 37 LCA @000@,LOCATN ))) 7 1289 L O83 J92 54 447 3 38 MLC @000@,LOCCTR SET BASE ZERO FOR LOCATION COUNTR 7 1296 M O83 O98 54 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 SW ERRPOS 4 1303 , J84 54 449 B PUTRCD 4 1307 B 561 54 450 3 49 * SYMBOL IN OPERAND WAS PREVIOUSLY DEFINED 451 PREVLB MLC @P@,AADDR 7 1311 M P32 J79 54 452 3 52 MLC LABTBL&X2,LOCCTR 7 1318 M QJ3 O98 54 &LO83J92MO83O98,J84B561MP32J79MQJ3O98 L036T24,S96T03,T07T11,T18040104000542TAP3 453 3 53 MLC LOCCTR,LOCATN 7 1325 M O98 J92 55 454 3 54 BCE NOSADJ,PARAMT&10, 8 1332 B T58 K03 55 455 3 55 MLC LOCCTR,ADDR 7 1340 M O98 P04 55 456 3 56 B MODADD APPLY CHARACTER ADJUSTMENT 4 1347 B M51 55 457 3 57 MLC RESULT-1,LOCCTR 7 1351 M P10 O98 55 &MO98J92BT58K03 MO98P04BM51MP10O98 L033T57,T32T40,T47T51,040040104000552TAP3 458 3 58 NOSADJ MLC LOCCTR,LOCATN 7 1358 M O98 J92 56 459 3 60 BW LTGOUT,LITORG IF SYMBOLIC LTORG, RETURN TO LTOR 8 1365 V V81 P12 1 56 460 BW PUTRCD&7,FULL 8 1373 V 568 194 1 56 461 3 61 B PUTRCD 4 1381 B 561 56 462 3 62 * ORIGIN WITH ASTERISK SYMBOLIC 463 3 63 ASTORG C @&X00@,PARAMT&13 TEST FOR *&X00 OPERAND 7 1385 C P36 K06 56 464 3 64 BE CENORG 5 1392 B U34 S 56 &MO98J92VV81P121V5681941B561CP36K06BU34SL039T96,T65T73,T81T85,T92040104000562TAP3 465 3 65 MLC LOCCTR,ADDR 7 1397 M O98 P04 57 466 3 68 BCE *&12,PARAMT&10, ))) 8 1404 B U23 K03 57 467 3 69 B MODADD APPLY CHARACTER ADJUSTMENT 4 1412 B M51 57 468 3 70 MLC RESULT-1,LOCCTR 7 1416 M P10 O98 57 469 3 71 LCA LOCCTR,LOCATN ))) 7 1423 L O98 J92 57 470 3 73 B PUTRCD 4 1430 B 561 57 471 3 74 * ORIGIN WITH *&X00 OPERAND &MO98P04BU23K03 BM51MP10O98LO98J92B561 L037U33,U04U12,U16U23,U30040104000572TAP3 472 3 75 CENORG MLC @100@,HOLD 7 1434 M P39 P07 58 473 3 76 MLC LOCCTR,ADDR 7 1441 M O98 P04 58 474 3 77 B MODALT 4 1448 B O52 58 475 3 78 MN @000@,RESULT-1 GENERATE NEXT 100S ADDRESS 7 1452 D O83 P10 58 476 3 79 MN 1 1459 D 58 477 3 80 MLC RESULT-1,LOCCTR 7 1460 M P10 O98 58 &MP39P07MO98P04BO52DO83P10DMP10O98 L033U66,U41U48,U52U59,U60040104000582TAP3 478 3 81 CEN1 LCA LOCCTR,LOCATN 7 1467 L O98 J92 59 479 3 89 ORGOUT BW LTGOUT,LITORG TEST FOR LTORG SHARING ROUTINE 8 1474 V V81 P12 1 59 480 3 90 B PUTRCD 4 1482 B 561 59 481 * 482 SETORG MLC LOCATN,LOCCTR 7 1486 M J92 O98 59 483 B ORGOUT 4 1493 B U74 59 484 * 485 3 91 * * PROCESS LTORG CONTROL STATEMENTS 486 3 92 LTORG BCE DECODL,LABEL-5, 8 1497 B V17 J03 59 &LO98J92VV81P121B561MJ92O98BU74BV17J03 L038V04,U74U82,U86U93,U97040104000592TAP3 487 BW DECODL,FULL 8 1505 V V17 194 1 60 488 3 95 B SETLAB STORE LABEL AND PREVIOUS LOCATION 4 1513 B K76 60 489 3 96 DECODL BCE SYMLTG,AADDR,S SYMBOLIC ADDRESS 8 1517 B V65 J79 S 60 490 3 97 BCE ACTLTG,AADDR,A ACTUAL ADDRESS 8 1525 B X25 J79 A 60 491 3 99 BCE PUTRCD,AADDR,D STATEMENT ALREADY PROCESSED 8 1533 B 561 J79 D 60 &VV171941BK76BV65J79SBX25J79AB561J79D L036V40,V13V17,V25V33,040040104000602TAP3 492 BCE SETLIT,AADDR,P 8 1541 B X50 J79 P 61 493 3 98 BCE ASTLTG,AADDR, BLANK OPERAND 8 1549 B W64 J79 61 494 4 00 SW ERRPOS ILLEGAL OPERAND - MARK AS INVALID 4 1557 , J84 61 495 4 01 B PUTRCD 4 1561 B 561 61 496 4 02 * SYMBOLIC ADDRESS LTORG 497 4 03 SYMLTG BCE ASTLTG,PARAMT,* TEST FOR * OPERAND 8 1565 B W64 J93 * 61 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 04 SW LITORG SET LITORG SWITCH FOR ORG ROUTINE 4 1573 , P12 61 &BX50J79PBW64J79 ,J84B561BW64J93*,P12 L036V76,V49V57,V61V65,V73040104000612TAP3 499 4 05 B SYMORG SHARE SYMBOLIC ORG ROUTINE 4 1577 B S58 62 500 LTGOUT BW PUTRCD&7,FULL 8 1581 V 568 194 1 62 501 MLC @|@,LABTBL-5&X3 7 1589 M P40 Q?8 62 502 4 07 MLC LOCCTR,LABTBL-6&X3 7 1596 M O98 Q?7 62 503 4 08 MLC LOCCTR,ADDR 7 1603 M O98 P04 62 &BS58V5681941MP40Q?8MO98Q?7MO98P04 L033W09,V81V89,V96W03,040040104000622TAP3 504 4 09 MLC LITTOT,HOLD 7 1610 M P01 P07 63 505 4 10 B MODALT 4 1617 B O52 63 506 4 11 MLC RESULT-1,LOCCTR 7 1621 M P10 O98 63 507 4 12 MLC LITTOT,LABTBL&X3 ))) 7 1628 M P01 QA3 63 508 4 13 MLC @000@,LITTOT ))) 7 1635 M O83 P01 63 509 4 14 MLC X3,LASTLT STORE LAST LTORG POINT ))) 7 1642 M 099 009 63 &MP01P07BO52MP10O98MP01QA3MO83P01M099009L039W48,W17W21,W28W35,W42040104000632TAP3 510 4 15 STORLT CW LITORG RESET LITORG SWITCH 4 1649 ) P12 64 511 4 18 MLC &PUTRCD,SETEXT&3 7 1653 M P43 L40 64 512 4 19 B TSTLMT SET ENTRY INTO SYMBOL TABLE 4 1660 B L14 64 513 4 26 * LTORG WITH * OPERAND 514 4 27 ASTLTG C PARAMT&13,@&X00@ TEST FOR *&X00 OPERAND 7 1664 C K06 P36 64 515 4 28 BE CENLTG 5 1671 B X17 S 64 516 4 29 MLC LOCCTR,ADDR 7 1676 M O98 P04 64 &)P12MP43L40BL14CK06P36BX17SMO98P04 L034W82,W53W60,W64W71,W76040104000642TAP3 517 4 30 BCE ELTG,PARAMT&10, 8 1683 B X02 K03 65 518 4 31 B MODADD APPLY CHARACTER ADJUSTMENT 4 1691 B M51 65 519 4 32 MLC RESULT-1,LOCCTR 7 1695 M P10 O98 65 520 4 33 ELTG LCA LOCCTR,LOCATN SET UP TABLE ENTRY 7 1702 L O98 J92 65 521 4 35 CW LABTBL-5&X3 4 1709 ) Q?8 65 522 B LTGOUT 4 1713 B V81 65 523 4 41 CENLTG SW LITORG 4 1717 , P12 65 &BX02K03 BM51MP10O98LO98J92)Q?8BV81,P12 L038X20,W91W95,X02X09,X13X17104000652TAP3 524 4 42 B CENORG 4 1721 B U34 66 525 4 43 ACTLTG MLC @D@,AADDR 7 1725 M P31 J79 66 526 4 44 MLC PARAMT&8,LOCATN 7 1732 M K01 J92 66 527 4 46 MLC LOCATN,LOCCTR 7 1739 M J92 O98 66 528 4 47 B LTGOUT 4 1746 B V81 66 529 * 530 SETLIT MLC LOCATN,LOCCTR 7 1750 M J92 O98 66 &BU34MP31J79MK01J92MJ92O98BV81MJ92O98 L036X56,X25X32,X39X46,X50040104000662TAP3 531 B LTGOUT 4 1757 B V81 67 532 * 533 4 48 * PROCESS EQUATE ENTRIES 534 EQUATE BCE SYMEQU,AADDR,S 8 1761 B Y68 J79 S 67 535 4 50 BCE SYMEQU,AADDR,S 8 1769 B Y68 J79 S 67 536 4 51 BCE ACTEQU,AADDR,A 8 1777 B Y17 J79 A 67 537 4 52 BCE MCHEQU,AADDR,M 8 1785 B Y28 J79 M 67 &BV81BY68J79SBY68J79SBY17J79ABY28J79M L036X92,X61X69,X77X85,040040104000672TAP3 538 4 53 BCE PUTRCD,AADDR,D 8 1793 B 561 J79 D 68 539 4 54 BCE PROCEQ,AADDR,E 8 1801 B !53 J79 E 68 540 4 55 SW ERRPOS 4 1809 , J84 68 541 4 56 B PUTRCD 4 1813 B 561 68 542 4 57 ACTEQU MLC PARAMT&8,ADDR 7 1817 M K01 P04 68 543 4 58 B ADJEQU 4 1824 B Z36 68 &B561J79DB!53J79E,J84B561MK01P04BZ36 L035Y27,Y01Y09,Y13Y17,Y24040104000682TAP3 544 4 59 MCHEQU MLC PARAMT&2,ADDR 7 1828 M J95 P04 69 545 4 60 B PUTEQU 4 1835 B !13 69 546 4 61 ASTEQU MLC LOCCTR,ADDR 7 1839 M O98 P04 69 547 4 62 ZS @1@,HOLD 7 1846 ! P21 P07 69 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 548 4 63 B MODALT 4 1853 B O52 69 549 4 64 MLC RESULT-1,ADDR 7 1857 M P10 P04 69 &MJ95P04B!13MO98P04!P21P07BO52MP10P04 L036Y63,Y35Y39,Y46Y53,Y57040104000692TAP3 550 4 67 B ADJEQU 4 1864 B Z36 70 551 4 68 SYMEQU BCE ASTEQU,PARAMT,* 8 1868 B Y39 J93 * 70 552 4 69 LCA PARAMT&5,LABTBL-3&X3 7 1876 L J98 QA0 70 553 4 70 B TLULAB 4 1883 B L59 70 554 4 71 B HITEQU 4 1887 B Z14 70 555 4 72 BW PUTRCD&7,FULL 8 1891 V 568 194 1 70 556 4 73 SW ERRPOS-2 4 1899 , J82 70 &BZ36BY39J93*LJ98QA0BL59BZ14V5681941,J82L039Z02,Y68Y76,Y83Y87,Y91Y99104000702TAP3 557 4 75 MLC @###@,LOCATN 7 1903 M P46 J92 71 558 4 76 B PUTRCD 4 1910 B 561 71 559 4 77 HITEQU BW ADJEQU,LABTBL-8&X2 8 1914 V Z36 Q!5 1 71 560 4 78 MLC LABTBL&X2,ADDR 7 1922 M QJ3 P04 71 561 4 79 MLC @E@,AADDR 7 1929 M P47 J79 71 &MP46J92B561VZ36Q!51MQJ3P04MP47J79 L033Z35,Z10Z14,Z22Z29,040040104000712TAP3 562 4 80 ADJEQU MLC @000@,X2 7 1936 M O83 094 72 563 4 81 MLC @000@,X1 7 1943 M O83 089 72 564 4 82 BCE PUTEQU,PARAMT&10, 8 1950 B !13 K03 72 565 4 83 BCE INDEQU,PARAMT&11,X 8 1958 B Z92 K04 X 72 566 4 84 B MODADD 4 1966 B M51 72 &MO83094MO83089B!13K03 BZ92K04XBM51 L034Z69,Z43Z50,Z58Z66,040040104000722TAP3 567 4 85 MLC RESULT-1,ADDR 7 1970 M P10 P04 73 568 4 86 MLC @010@,X2 7 1977 M P50 094 73 569 4 87 BCE PUTEQU,PARAMT&20, 8 1984 B !13 K13 73 570 4 88 INDEQU MLC @000@,X1 7 1992 M O83 089 73 571 4 89 MN PARAMT&12&X2,X1 7 1999 D K!5 089 73 &MP10P04MP50094B!13K13 MO83089DK!5089 L036!05,Z77Z84,Z92Z99,040040104000732TAP3 572 4 90 MZ ZONE&X1,ADDR-1 7 2006 Y KX1 P03 74 573 4 91 PUTEQU MLC ADDR,LOCATN 7 2013 M P04 J92 74 574 4 92 MLC &PUTRCD,SETEXT&3 7 2020 M P53 L40 74 575 BW PUTRCD&7,FULL 8 2027 V 568 194 1 74 576 MLC LABEL,LABTBL-3&X3 7 2035 M J08 QA0 74 &YKX1P03MP04J92MP53L40V5681941MJ08QA0 L036!41,!13!20,!27!35,040040104000742TAP3 577 4 95 MLC ADDR,LABTBL&X3 7 2042 M P04 QA3 75 578 4 96 B TSTLMT 4 2049 B L14 75 579 4 97 PROCEQ MLC LOCATN,ADDR 7 2053 M J92 P04 75 580 4 98 B PUTEQU 4 2060 B !13 75 581 4 99 * 582 5 00 * END OF REEL ON INPUT TAPE # 2 583 5 01 IPEOR RWD 2 5 2064 U %U2 R 75 584 5 02 WTM 1 5 2069 U %U1 M 75 585 5 03 RWD 1 5 2074 U %U1 R 75 &MP04QA3BL14MJ92P04B!13U%U2RU%U1MU%U1R L037!78,!49!53,!60!64,!69!74104000752TAP3 586 5 04 MLC @4@,SEEK 7 2079 M O84 125 76 587 5 05 CW PARTBL&90,LABTBL&X3 7 2086 ) K69 QA3 76 588 5 06 B LOAD 4 2093 B 100 76 589 5 07 H 1 2097 . 76 590 5 08 * END OF REEL ON OUTPUT TAPE # 1 591 5 09 * ** IMPOSSIBLE CONDITION ** 592 5 10 * 593 5 11 * TAPE RECORD AREA 594 5 12 * 595 5 13 RECORD DA 1X80,| 2098 2178 76 &MO84125)K69QA3B100. L019!97,!86!93,!97!98,040040104000762TAP3 DC @|@ 1 2178 RMARK 77 596 5 14 PARTBL DA 1X90,| 2179 2269 77 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 597 5 15 AADDR 1,1 2179 FIELD 77 598 5 16 BADDR 2,2 2180 FIELD 77 599 5 17 ERRPOS 6 2184 SBFLD 600 5 18 ICOUNT 7,7 2185 FIELD 77 &| L001J78)J78J78,J79J79,J80J85104000772TAP3 601 5 19 LITCNT 8,10 2188 FIELD 78 602 5 20 ACTOP 11,11 2189 FIELD 78 603 5 21 LOCATN 12,14 2192 FIELD 78 604 5 22 PARAMT 15,15 2193 FIELD 78 605 5 23 AOPND 85,87 2265 FIELD 78 606 5 24 BOPND 88,90 2268 FIELD 78 & L001001,J86J89,J90J93,K63K66104000782TAP3 DC @|@ 1 2269 RMARK 79 607 5 25 OPER EQU RECORD&18 2116 608 5 26 GPMK DC @}@ 1 2270 79 609 5 27 ZONE DCW #1 1 2271 79 610 5 28 DCW @/JA@ 3 2274 79 611 5 29 * 612 5 30 * HOUSEKEEPING ROUTINE - OVERLAID BY TAPE IO 613 5 31 * 614 5 32 ORG RECORD 2098 &|} /JA L006K74)K69K69,K71K72,040040104000792TAP3 615 5 33 HSKPG MLC @333@,LOCCTR 7 2098 M P56 O98 80 616 5 34 MLC @000@,X3 7 2105 M O83 099 80 617 5 35 LCA @000@,LTTSAV 7 2112 L O83 012 80 618 5 44 CW DA,FULL 7 2119 ) 197 194 80 619 5 36 * HSKPG ENTRY POINT FOR PHASE 7 REITERATION 620 5 37 HSKPG1 SW 3998 4 2126 , I98 80 621 5 38 LCA 3998,PARTBL&90 7 2130 L I98 K69 80 &MP56O98MO83099LO83012)197194,I98LI98K69L039J36,J05J12,J19J26,J30040104000802TAP3 622 5 39 NOP 000 4 2137 N 000 81 623 5 391 NOP 1 2141 N 81 624 5 40 MLC LTTSAV,LITTOT REESTABLISH CUTOFF LITERAL TOTAL 7 2142 M 012 P01 81 625 5 41 LCA @000@,LASTLT SET LAST LITERAL POINT AS ZERO 7 2149 L O83 009 81 626 5 42 * CLEAR ALL SWITCHES FOR PHASE 3 OR 7 627 SW RELATV 4 2156 , 196 81 628 5 45 CW LITORG,NEG 7 2160 ) P12 P13 81 629 5 46 CW LITCTL,HIGH3&1 7 2167 ) 195 Q02 81 &N000NM012P01LO83009,196)P12P13)195Q02 L037J73,J41J42,J49J56,J60J67104000812TAP3 630 5 47 B GETRCD 4 2174 B 338 82 631 5 48 H 1 2178 . 82 632 5 49 * 633 5 50 * LITERALS USED BY 2TAP2 634 5 51 LTORG HALT4 2680 &B338. L005J78,J78040,040040,040040104000822TAP3 DCW @9@ 1 2680 LIT 83 @000@ 3 2683 LIT 83 @4@ 1 2684 LIT 83 @ @ 1 2685 LIT 83 @|0@ 2 2687 LIT 83 @?0@ 2 2689 LIT 83 @999@ 3 2692 LIT 83 &90004 |0?0999 L013O92,O81O84,O85O86,O88O90104000832TAP3 @?01@ 3 2695 LIT 84 268 LOCCTR #03 3 2698 AREA 84 268 LITTOT #03 3 2701 AREA 84 269 ADDR #03 3 2704 AREA 84 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 269 HOLD #03 3 2707 AREA 84 270 RESULT #04 4 2711 AREA 84 271 LITORG #01 1 2712 AREA 84 &?01 L020P12,O96O99,P02P05,P08P12104000842TAP3 271 NEG #01 1 2713 AREA 85 @030@ 3 2716 LIT 85 @DA @ 4 2720 LIT 85 @1@ 1 2721 LIT 85 386 HLDLAB #06 6 2727 AREA 85 @Q@ 1 2728 LIT 85 @05@ 2 2730 LIT 85 & 030DA 1 Q05 L018P30,P14P17,P21P22,P28P29104000852TAP3 @D@ 1 2731 LIT 86 @P@ 1 2732 LIT 86 @&X00@ 4 2736 LIT 86 @100@ 3 2739 LIT 86 @|@ 1 2740 LIT 86 511 &PUTRCD 3 2743 561 ADCON 86 @###@ 3 2746 LIT 86 &DP&X00100|561### L016P46,P32P33,P37P40,P41P44104000862TAP3 @E@ 1 2747 LIT 87 @010@ 3 2750 LIT 87 574 &PUTRCD 3 2753 561 ADCON 87 @333@ 3 2756 LIT 87 635 5 52 HIGH1 H 1 2757 . 87 636 5 53 * 637 5 54 * 638 5 55 * LABEL TABLE FOR 2TAP2 639 5 56 * * SYMBOL STORED IN FIRST 6 POSITIONS 640 5 57 * * EQUIVALENT ADDRESS STORED IN LAST 3 641 5 58 * * FOR RELATIVE ADDRES, W/M UNDER H.O. 642 5 59 * * NUMERIC LITERALS UNDER 6 CHARACTERS 643 5 60 * * ALPHANUMERIC LITERALS UNDER 5 CHARS 644 5 61 * * RELATIVE ORIGIN ENTRY STORED WITH 3 645 5 62 * POSITION ADJUSTMENT VALUE IN FIRST 3 646 5 63 * AND SYMBOLIC OPERAND IN LAST 6 WITH 647 5 64 * A W/M UNDER FIRST & FOURTH POSITIONS 648 5 65 ORG HIGH3&4 2805 &E010561333. L011P57,P48P51,P54P57,040040104000872TAP3 649 5 66 LABTBL DC @ @ 9 2813 88 & L009Q13)Q05Q05,040040,040040104000882TAP3 650 5 67 3998 DCW @}@ 1 3998 89 651 5 68 * 652 ORG 3889 3889 &} L001I98,040040,040040,040040104000892TAP3 653 LOADXX LCA ADDR,018 7 3889 L P04 018 90 654 B SETEXT 4 3896 B L37 90 655 ORG 3900 3900 656 MOVXX MLC 018,ADDR 7 3900 M 018 P04 90 657 B PUTRCD&7 4 3907 B 568 90 658 ORG 2758 2758 &LP04018BL37M018P04B568 L022I10,H96I00,I07040,040040104000902TAP3 659 TABLYY BWZ TABLZZ&8,007,2 8 2758 V P78 007 2 91 660 B TLUFST&8 4 2766 B L93 91 661 TABLZZ BWZ TABLXX,007,2 8 2770 V |38 007 2 91 662 C X2,009 7 2778 C 094 009 91 663 BH TLUFST&8 5 2785 B L93 U 91 1 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 664 B TABLXX 4 2790 B |38 91 &VP780072BL93V|380072C094009BL93UB|38 L036P93,P66P70,P78P85,P90040104000912TAP3 & N000000,040040,040040,040040B16700922TAP3 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00932TAP7 &,068072)063067/061039 ,001001104000942TAP7 665 5 69 EX SYSTEM B 167 92 1 1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION RBR 2TAP7 PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 666 5 70 JOB 1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION RBR 667 5 71 * 668 5 72 ****** OVERLAY OF PHASE 3 FOR REITERATION *** 669 5 73 * 670 5 74 * *** PHASE 7 IDENTIFICATION AT 333 *** 671 5 75 * 672 5 76 ORG 333 0333 673 5 77 DCW @7@ 1 0333 95 674 5 78 B HSKPG1 4 0334 B J26 95 675 6 42 * &7BJ26 L005337,334040,040040,040040104000952TAP7 676 2802 DCW @}@ 1 2802 96 &} L001Q02,040040,040040,040040104000962TAP7 & N000000,040040,040040,040040B16700972TAP7 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00982TAP4 &,068072)063067/061039 ,001001104000992TAP4 677 6 43 EX SYSTEM B 167 97 1 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 678 6 44 JOB 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 679 6 45 * 680 6 46 ****** TEST SYMBOL TABLE FOR RELATIVE ADDRESSES *** 681 6 47 * 682 6 48 * *** PHASE 4 IDENTIFICATION AT 333 *** 683 6 49 * 684 6 50 ORG 333 0333 685 6 51 DCW @4@ 1 0333 100 686 6 52 * 687 6 53 TSTTBL CW REITER 4 0334 ) 193 100 688 6 54 BW TBLDON,RELATV 8 0338 V 892 196 1 100 689 6 55 SW RELATV,HOLDZN#1 7 0346 , 196 P14 100 690 6 56 MLC @000@,X1 7 0353 M P17 089 100 691 6 57 MLC @000@,SAVLOC 7 0360 M P17 006 100 &4)193V8921961,196P14MP17089MP17006 L034366,334338,346353,360040104001002TAP4 692 6 58 SW LABTBL-5&X3,LABTBL-8&X3 7 0367 , Q?8 Q?5 101 693 6 59 BW *&12,LABTBL-5&X1 8 0374 V 393 Q|8 1 101 694 6 60 P2SK1 A @9@,X1 7 0382 A P18 089 101 695 6 61 B *-18 4 0389 B 374 101 696 6 62 C X1,X3 7 0393 C 089 099 101 697 6 63 BE TBLDON 5 0400 B 892 S 101 &,Q?8Q?5V393Q|81AP18089B374C089099B892S L038404,374382,389393,400040104001012TAP4 698 6 64 MLC @000@,X2 7 0405 M P17 094 102 699 6 65 LCA LABTBL&X1,LABTBL-3&X3 7 0412 L Q/3 QA0 102 700 6 66 P2SK2 C LABTBL-3&X2,LABTBL&X1 7 0419 C QJ0 Q/3 102 701 6 67 BE *&12 5 0426 B 442 S 102 702 6 68 A @9@,X2 7 0431 A P18 094 102 703 6 69 B P2SK2 4 0438 B 419 102 &MP17094LQ/3QA0CQJ0Q/3B442SAP18094B419 L037441,412419,426431,438040104001022TAP4 704 6 70 C X3,X2 7 0442 C 099 094 103 705 6 71 BE NOSYM 5 0449 B 847 S 103 706 6 72 BW *&5,LABTBL-8&X2 8 0454 V 466 Q!5 1 103 707 6 73 B *&21 4 0462 B 486 103 708 6 74 BW *&5,FULL 8 0466 V 478 194 1 103 709 6 75 B NOSYM 4 0474 B 847 103 &C099094B847SV466Q!51B486V4781941B847 L036477,449454,462466,474040104001032TAP4 710 6 76 CW RELATV 4 0478 ) 196 104 711 6 77 B P2SK1 4 0482 B 382 104 712 6 78 MLC LABTBL&X2,ADDR 7 0486 M QJ3 P04 104 713 6 79 MLC LABTBL-6&X1,HOLD 7 0493 M Q|7 P07 104 714 6 80 CW LABTBL-5&X1 4 0500 ) Q|8 104 715 6 81 A @1@,SAVLOC 7 0504 A P19 006 104 716 6 82 B MODALT 4 0511 B O52 104 &)196B382MQJ3P04MQ|7P07)Q|8AP19006BO52 L037514,482486,493500,504511104001042TAP4 717 6 83 P2SK3 MLC RESULT-1,ADDR 7 0515 M P10 P04 105 718 6 84 MLC ADDR,LABTBL&X1 7 0522 M P04 Q/3 105 719 6 85 CW LABTBL-5&X1 4 0529 ) Q|8 105 720 6 86 MLC @|@,LABTBL-8&X1 7 0533 M P20 Q|5 105 721 6 87 P2SK4 A @9@,X1 7 0540 A P18 089 105 &MP10P04MP04Q/3)Q|8MP20Q|5AP18089 L032546,522529,533540,040040104001052TAP4 722 6 88 BCE SKPEQU,LABTBL-2&X1,# 8 0547 B 611 Q/1 # 106 723 6 89 BW P2SK4,LABTBL-2&X1 BYPASS SHORT LITERALS 8 0555 V 540 Q/1 1 106 724 6 90 BW APPLY,LABTBL-8&X1 RELATIVE ADDRESS 8 0563 V 690 Q|5 1 106 725 6 91 BW *&21,LABTBL-5&X1 8 0571 V 599 Q|8 1 106 &B611Q/1#V540Q/11V690Q|51V599Q|81 L032578,555563,571040,040040104001062TAP4 726 6 92 BW P2SK4,LABTBL&X1 8 0579 V 540 Q/3 1 107 727 6 93 BCE P2SK4,LABTBL-5&X1,| 8 0587 B 540 Q|8 | 107 1 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 728 6 94 B P2SK1-15 4 0595 B 367 107 729 6 95 BCE SETLOC,LABTBL-5&X1,* 8 0599 B 630 Q|8 * 107 730 6 96 B P2SK1-15 4 0607 B 367 107 &V540Q/31B540Q|8|B367B630Q|8*B367 L032610,587595,599607,040040104001072TAP4 731 6 97 SKPEQU BW *&8,LABTBL&1X1 8 0611 V 626 R84 1 108 732 6 98 A @9@,X1 7 0619 A P18 089 108 733 6 99 B P2SK4 4 0626 B 540 108 734 7 00 SETLOC MLC LABTBL-6&X1,HOLD 7 0630 M Q|7 P07 108 735 7 01 B MODALT 4 0637 B O52 108 736 7 02 BCE CENAPL,LABTBL-4&X1,X 8 0641 B 678 Q|9 X 108 &V626R841AP18089B540MQ|7P07BO52B678Q|9X L038648,619626,630637,641040104001082TAP4 737 7 03 MLC RESULT-1,LABTBL&X1 7 0649 M P10 Q/3 109 738 7 04 CW LABTBL-5&X1 4 0656 ) Q|8 109 739 7 05 MLC RESULT-1,ADDR 7 0660 M P10 P04 109 740 7 06 MLC @|@,LABTBL-8&X1 7 0667 M P20 Q|5 109 741 7 07 B P2SK4 4 0674 B 540 109 742 7 08 CENAPL MN @000@,RESULT-1 7 0678 D P17 P10 109 743 7 09 MN 1 0685 D 109 &MP10Q/3)Q|8MP10P04MP20Q|5B540DP17P10D L037685,656660,667674,678685104001092TAP4 744 7 10 B SETLOC&19 4 0686 B 649 110 745 7 11 APPLY C X1,X3 7 0690 C 089 099 110 746 7 12 BE P2SK8 5 0697 B 932 S 110 747 7 13 BCE P2SK9,LABTBL-5&X1,| 8 0702 B 758 Q|8 | 110 748 7 14 BCE P2SK10,LABTBL-11&X1,# 8 0710 B 825 Q|2 # 110 749 7 15 MZ LABTBL-1&X1,HOLDZN 7 0718 Y Q/2 P14 110 &B649C089099B932SB758Q|8|B825Q|2#YQ/2P14L039724,690697,702710,718040104001102TAP4 750 7 16 MLC LABTBL&X1,HOLD 7 0725 M Q/3 P07 111 751 7 17 B MODALT 4 0732 B O52 111 752 7 18 MLC RESULT-1,LABTBL&X1 7 0736 M P10 Q/3 111 753 7 19 MZ HOLDZN,LABTBL-1&X1 7 0743 Y P14 Q/2 111 754 7 20 CW LABTBL-8&X1 4 0750 ) Q|5 111 755 7 21 B P2SK4 4 0754 B 540 111 &MQ/3P07BO52MP10Q/3YP14Q/2)Q|5B540 L033757,732736,743750,754040104001112TAP4 756 7 22 P2SK9 MLC LABTBL-6&X1,HOLD 7 0758 M Q|7 P07 112 757 7 23 B MODALT 4 0765 B O52 112 758 7 24 BCE CNLAPL,LABTBL-4&X1,X 8 0769 B 813 Q|9 X 112 759 7 25 MLC RESULT-1,LABTBL-6&X1 7 0777 M P10 Q|7 112 760 7 26 MLC RESULT-1,ADDR 7 0784 M P10 P04 112 &MQ|7P07BO52B813Q|9XMP10Q|7MP10P04 L033790,765769,777784,040040104001122TAP4 761 7 27 MLC LABTBL&X1,HOLD 7 0791 M Q/3 P07 113 762 7 28 B MODALT 4 0798 B O52 113 763 7 29 MLC RESULT-1,ADDR 7 0802 M P10 P04 113 764 7 30 B P2SK9-8 4 0809 B 750 113 765 7 31 CNLAPL MN @000@,RESULT-1 7 0813 D P17 P10 113 766 7 32 MN 1 0820 D 113 767 7 33 B P2SK9&19 4 0821 B 777 113 &MQ/3P07BO52MP10P04B750DP17P10DB777 L034824,798802,809813,820821104001132TAP4 768 7 34 P2SK10 MLC LABTBL-6&X1,HOLD 7 0825 M Q|7 P07 114 769 7 35 B MODALT 4 0832 B O52 114 770 7 36 MLC RESULT-1,LABTBL-6&X1 7 0836 M P10 Q|7 114 771 7 37 B P2SK9-8 4 0843 B 750 114 772 7 38 NOSYM BW P2SK7,FULL 8 0847 V 877 194 1 114 773 7 39 MLC @000@,ADDR 7 0855 M P17 P04 114 &MQ|7P07BO52MP10Q|7B750V8771941MP17P04 L037861,832836,843847,855040104001142TAP4 774 7 40 MLC ADDR,LABTBL&X1 7 0862 M P04 Q/3 115 775 7 41 SW LABTBL-7&X1 4 0869 , Q|6 115 776 7 42 B P2SK3&7 4 0873 B 522 115 777 7 43 P2SK7 CW RELATV 4 0877 ) 196 115 1 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 778 7 44 A @9@,X1 7 0881 A P18 089 115 779 7 45 B P2SK1-15 4 0888 B 367 115 780 7 46 TBLDON BW *&13,RELATV 8 0892 V 912 196 1 115 &MP04Q/3,Q|6B522)196AP18089B367V9121961 L038899,869873,877881,888892104001152TAP4 781 7 47 C SAVLOC,@000@ 7 0900 C 006 P17 116 782 7 48 BU TSTTBL 5 0907 B 334 / 116 783 7 49 BW *&5,FULL 8 0912 V 924 194 1 116 784 7 50 B TSTLIT 4 0920 B 970 116 785 7 51 SW REITER 4 0924 , 193 116 786 7 52 B TSTLIT 4 0928 B 970 116 &C006P17B334/V9241941B970,193B970 L032931,907912,920924,928040104001162TAP4 787 7 53 P2SK8 BW *&5,OVFLIT-8 8 0932 V 944 006 1 117 788 7 54 B TBLDON 4 0940 B 892 117 789 7 55 MLC OVFLIT-6,HOLD 7 0944 M 008 P07 117 790 7 56 B MODALT 4 0951 B O52 117 791 7 57 MLC RESULT-1,OVFLIT-6 7 0955 M P10 008 117 792 7 58 CW OVFLIT-8 4 0962 ) 006 117 793 7 59 B TBLDON 4 0966 B 892 117 794 7 60 * TEST TABLE FOR UNDEFINED LITORG ENTRIES &V9440061B892M008P07BO52MP10008)006B892 L038969,940944,951955,962966104001172TAP4 795 7 61 TSTLIT MLC @000@,X1 7 0970 M P17 089 118 796 7 62 SW LABTBL&X3 4 0977 , QA3 118 797 7 63 CMPLTG BW *&12,LABTBL&X1 8 0981 V |00 Q/3 1 118 798 7 64 A @9@,X1 7 0989 A P18 089 118 799 7 65 B CMPLTG 4 0996 B 981 118 800 7 66 C X1,X3 7 1000 C 089 099 118 &MP17089,QA3V|00Q/31AP18089B981C089099 L037|06,977981,989996,|00040104001182TAP4 801 7 67 BE TSTEQU 5 1007 B /18 S 119 802 7 68 BCE CMPLTG&8,LABTBL-5&X1,* 8 1012 B 989 Q|8 * 119 803 7 69 CW LABTBL&X1 4 1020 ) Q/3 119 804 7 70 SW LABTBL-5&X1 4 1024 , Q|8 119 805 7 71 LCA LABTBL&X1,LABTBL-3&X3 7 1028 L Q/3 QA0 119 806 7 72 CW LABTBL-5&X1 4 1035 ) Q|8 119 807 7 73 SW LABTBL&X1 4 1039 , Q/3 119 &B/18SB989Q|8*)Q/3,Q|8LQ/3QA0)Q|8,Q/3 L036|42,|12|20,|24|28,|35|39104001192TAP4 808 7 74 B TLULAB 4 1043 B L59 120 809 7 75 B LITHIT 4 1047 B |81 120 810 7 76 NLTHIT BW *&5,RELATV 8 1051 V |63 196 1 120 811 7 77 B CMPLTG&8 4 1059 B 989 120 812 7 78 MLC @|@,LABTBL-5&X1 7 1063 M P20 Q|8 120 813 7 79 MLC @000@,LABTBL-6&X1 7 1070 M P17 Q|7 120 814 7 80 B CMPLTG&8 4 1077 B 989 120 &BL59B|81V|631961B989MP20Q|8MP17Q|7B989 L038|80,|47|51,|59|63,|70|77104001202TAP4 815 7 81 LITHIT BW NLTHIT,LABTBL-8&X2 8 1081 V |51 Q!5 1 121 816 7 82 SW LABTBL-8&X1 4 1089 , Q|5 121 817 7 83 MLC LABTBL&X2,LABTBL-6&X1 7 1093 M QJ3 Q|7 121 818 7 84 CW LABTBL-8&X1,LABTBL&X1 7 1100 ) Q|5 Q/3 121 819 7 85 MLC @|@,LABTBL-5&X1 7 1107 M P20 Q|8 121 820 7 86 B CMPLTG&8 4 1114 B 989 121 821 7 87 * TEST TABLE FOR UNDEFINED EQUATE ENTRIES &V|51Q!51,Q|5MQJ3Q|7)Q|5Q/3MP20Q|8B989 L037/17,|89|93,/00/07,/14040104001212TAP4 822 7 88 TSTEQU MLC @000@,X1 7 1118 M P17 089 122 823 7 89 MLC @#@,LABTBL-2&X3 7 1125 M P21 QA1 122 824 7 90 CMPEQU BCE *&12,LABTBL-2&X1,# 8 1132 B /51 Q/1 # 122 825 7 91 A @9@,X1 7 1140 A P18 089 122 826 7 92 B CMPEQU 4 1147 B /32 122 &MP17089MP21QA1B/51Q/1#AP18089B/32 L033/50,/25/32,/40/47,040040104001222TAP4 827 7 93 C X1,X3 7 1151 C 089 099 123 1 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 828 7 94 BE SHRTLT 5 1158 B T54 S 123 829 7 95 BCE *&5,LABTBL&4&X1, 8 1163 B /75 Q/7 123 830 7 96 B TLUEQU 4 1171 B S28 123 831 7 97 BW CMPEQU&8,LABTBL&1&X1 8 1175 V /40 Q/4 1 123 832 7 98 SW LABTBL-2&X1 4 1183 , Q/1 123 &C089099BT54SB/75Q/7 BS28V/40Q/41,Q/1 L036/86,/58/63,/71/75,/83040104001232TAP4 833 7 99 BW *&5,LABTBL-1&X1 8 1187 V /99 Q/2 1 124 834 8 00 B *&8 4 1195 B S06 124 835 8 01 MZ LABTBL-1&X1,LABTBL&2&X1 7 1199 Y Q/2 Q/5 124 836 8 02 MLC LABTBL&3&X1,LABTBL&X1 7 1206 M Q/6 Q/3 124 837 8 03 CW LABTBL-2&X1 4 1213 ) Q/1 124 838 8 04 MLC @|@,LABTBL&2&X1 7 1217 M P20 Q/5 124 &V/99Q/21BS06YQ/2Q/5MQ/6Q/3)Q/1MP20Q/5 L037S23,/95/99,S06S13,S17040104001242TAP4 839 8 05 B CMPEQU&8 4 1224 B /40 125 840 8 06 TLUEQU SW LABTBL&4&X1 4 1228 , Q/7 125 841 8 07 MLC LABTBL&9&X1,LABTBL-3&X3 7 1232 M QS2 QA0 125 842 8 08 CW LABTBL&4&X1 4 1239 ) Q/7 125 843 8 09 B TLULAB 4 1243 B L59 125 844 8 10 B PRVEQU 4 1247 B S74 125 845 8 11 BW *&5,RELATV 8 1251 V S63 196 1 125 &B/40,Q/7MQS2QA0)Q/7BL59BS74VS631961 L035S58,S28S32,S39S43,S47S51104001252TAP4 846 8 12 B CMPEQU&8 4 1259 B /40 126 847 8 13 MLC @###@,LABTBL&X1 7 1263 M P24 Q/3 126 848 8 14 B CMPEQU&8 4 1270 B /40 126 849 8 15 PRVEQU BW *&8,LABTBL-1&X1 8 1274 V S89 Q/2 1 126 850 8 16 MZ LABTBL-1&X2,LABTBL-1&X1 7 1282 Y QJ2 Q/2 126 851 8 17 CW LABTBL-1&X1 4 1289 ) Q/2 126 &B/40MP24Q/3B/40VS89Q/21YQJ2Q/2)Q/2 L034S92,S63S70,S74S82,S89040104001262TAP4 852 8 18 MZ LABTBL-1&X1,HOLDZN 7 1293 Y Q/2 P14 127 853 8 19 MLC LABTBL&X2,ADDR 7 1300 M QJ3 P04 127 854 8 20 MLC LABTBL&3&X1,HOLD 7 1307 M Q/6 P07 127 855 8 21 B MODALT 4 1314 B O52 127 856 8 22 MLC RESULT-1,LABTBL&X1 7 1318 M P10 Q/3 127 857 8 23 MZ HOLDZN,LABTBL-1&X1 7 1325 Y P14 Q/2 127 &YQ/2P14MQJ3P04MQ/6P07BO52MP10Q/3YP14Q/2L039T31,T00T07,T14T18,T25040104001272TAP4 858 8 24 CW LABTBL&4&X1 4 1332 ) Q/7 128 859 8 25 CW LABTBL-8&X1,LABTBL-2&X1 7 1336 ) Q|5 Q/1 128 860 8 26 MLC @|@,LABTBL&2&X1 7 1343 M P20 Q/5 128 861 8 27 B CMPEQU&8 4 1350 B /40 128 862 8 28 * COMPLETE SHORT LITERAL ADDRESSES 863 8 29 SHRTLT MLC @000@,X1 7 1354 M P17 089 128 864 8 30 MLC @000@,X2 7 1361 M P17 094 128 &)Q/7)Q|5Q/1MP20Q/5B/40MP17089MP17094 L036T67,T36T43,T50T54,T61040104001282TAP4 865 8 31 TSTLTG BCE HAVLTG,LABTBL-5&X2,| 8 1368 B T99 Q!8 | 129 866 8 32 A @9@,X2 7 1376 A P18 094 129 867 8 33 C X3,X2 7 1383 C 099 094 129 868 8 34 BE ENDPH2 5 1390 B U93 S 129 869 8 35 B TSTLTG 4 1395 B T68 129 870 8 36 HAVLTG MLC LABTBL-6&X2,ADDR 7 1399 M Q!7 P04 129 &BT99Q!8|AP18094C099094BU93SBT68MQ!7P04 L038U05,T76T83,T90T95,T99040104001292TAP4 871 8 37 ZS @1@,HOLD 7 1406 ! P19 P07 130 872 8 38 B MODALT 4 1413 B O52 130 873 8 39 MLC RESULT-1,ADDR 7 1417 M P10 P04 130 874 8 40 TSTSRT BW HAVSRT,LABTBL-2&X1 8 1424 V U55 Q/1 1 130 875 8 41 A @9@,X1 7 1432 A P18 089 130 &!P19P07BO52MP10P04VU55Q/11AP18089 L033U38,U13U17,U24U32,040040104001302TAP4 876 8 42 C X1,X3 7 1439 C 089 099 131 877 8 43 BE ENDPH2 5 1446 B U93 S 131 1 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 878 8 44 B TSTSRT 4 1451 B U24 131 879 8 45 HAVSRT C X2,X1 7 1455 C 094 089 131 880 8 46 BH PATCHX 5 1462 B P36 U 131 881 8 47 MLC LABTBL&X1,HOLD 7 1467 M Q/3 P07 131 882 8 48 B MODALT 4 1474 B O52 131 &C089099BU93SBU24C094089BP36UMQ/3P07BO52L039U77,U46U51,U55U62,U67U74104001312TAP4 883 8 49 MLC RESULT-1,LABTBL&X1 7 1478 M P10 Q/3 132 884 8 50 CW LABTBL-8&X1 4 1485 ) Q|5 132 885 8 51 B TSTSRT&8 4 1489 B U32 132 886 8 52 ENDPH2 LCA @ @,LABTBL&X3 7 1493 L P33 QA3 132 887 8 53 CW LABTBL-8&X3 4 1500 ) Q?5 132 888 8 54 MLC @5@,SEEK 7 1504 M P34 125 132 889 8 55 CW HIGH2&1 4 1511 ) P57 132 &MP10Q/3)Q|5BU32LP33QA3)Q?5MP34125)P57 L037V14,U85U89,U93V00,V04V11104001322TAP4 890 8 56 NOP 999,999 7 1515 N 999 999 133 891 8 57 B LOAD 4 1522 B 100 133 892 8 58 H 1 1526 . 133 893 8 59 LTORG NEG&1 2714 &N999999B100. L012V26,V22V26,040040,040040104001332TAP4 689 HOLDZN DCW #01 1 2714 AREA 134 @000@ 3 2717 LIT 134 @9@ 1 2718 LIT 134 @1@ 1 2719 LIT 134 @|@ 1 2720 LIT 134 @#@ 1 2721 LIT 134 @###@ 3 2724 LIT 134 & 00091|#### L011P24,P15P18,P19P20,P21P22104001342TAP4 886 @ @ 9 2733 LIT 135 @5@ 1 2734 LIT 135 894 8 591 H 1 2735 . 135 895 8 60 PATCHX BWZ TSTLTG&8,092,2 8 2736 V T76 092 2 135 896 8 61 BWZ HAVSRT&12,087,2 8 2744 V U67 087 2 135 897 8 611 B TSTLTG&8 4 2752 B T76 135 898 8 612 HIGH2 H 1 2756 . 135 & 5.VT760922VU670872BT76. L032P56,P34P35,P36P44,P52P56104001352TAP4 899 8 613 DCW @}@ 1 2757 136 &} L001P57,040040,040040,040040104001362TAP4 & N000000,040040,040040,040040B16701372TAP4 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01382TAP5 &,068072)063067/061039 ,001001104001392TAP5 900 8 62 EX SYSTEM B 167 137 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 901 8 63 JOB 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 902 8 64 * 903 8 65 ****** PHASE 5 - TLU LABELS AND PROCESS LITERAL RECORDS *** 904 8 66 * 905 8 67 * *** PHASE 5 IDENTIFICATION AT 333 *** 906 8 68 * 907 8 69 ORG 333 0333 908 8 70 DCW @5@ 1 0333 140 909 8 71 * 910 8 72 B PHASE5 BRANCH TO HOUSEKEEPING 4 0334 B !99 140 911 8 73 * 912 8 74 ORG RECORD&1 2099 &5B!99 L005337,334040,040040,040040104001402TAP5 913 8 75 PHASE5 CW SAVLIT#1,ADONE#1 HOUSEKEEPING 7 2099 ) P15 P16 141 914 8 76 SW 3998 4 2106 , I98 141 915 8 77 LCA 3998,PARTBL&90 7 2110 L I98 K69 141 916 8 78 CW FSTIME#1,DOUBLE#1 7 2117 ) P17 P18 141 917 8 79 CW LITONE#1,LITX#1 7 2124 ) P19 P20 141 918 8 80 CW LITORG 4 2131 ) P12 141 &)P15P16,I98LI98K69)P17P18)P19P20)P12 L036J34,J06J10,J17J24,J31040104001412TAP5 919 8 81 NOP LITBEG#5,ORGBAS#3 7 2135 N P25 P28 142 920 8 82 NOP TEMP1#3 4 2142 N P31 142 921 8 83 MLC @ @,ADDR 7 2146 M P34 P04 142 922 8 84 MLC @000@,LSTORG#3 7 2153 M P37 P40 142 923 8 85 MLC @000@,LASTLT 7 2160 M P37 009 142 924 8 86 MLC X3,BASIC#3 7 2167 M 099 P43 142 &NP25P28NP31MP34P04MP37P40MP37009M099P43L039J73,J42J46,J53J60,J67040104001422TAP5 925 8 87 MLC @000@,X3 7 2174 M P37 099 143 926 8 88 B TLULIT 4 2181 B 338 143 927 8 89 H 1 2185 . 143 928 8 90 ORG 338 0338 929 8 91 * FIND FIRST LTORG ENTRY IN LABEL TABLE &MP37099B338. L012J85,J81J85,040040,040040104001432TAP5 930 8 92 TLULIT C X3,BASIC 7 0338 C 099 P43 144 931 8 93 BE HITLIT-8 HAVE OVERFLOW LTORG 5 0345 B 369 S 144 932 8 94 A @9@,X3 STEP X3 TO FIND NEXT LTORG IN TBL 7 0350 A P44 099 144 933 8 95 BCE HITLIT,LABTBL-5&X3,| TEST FOR LTORG ENTRY 8 0357 B 377 Q?8 | 144 934 8 97 B TLULIT 4 0365 B 338 144 935 8 98 SW LITADD SET UP FOR INCOMPLETE LTORG ))) 4 0369 , P50 144 936 8 99 B LITPNT&7 4 0373 B 402 144 &C099P43B369SAP44099B377Q?8|B338,P50B402L039376,345350,357365,369373104001442TAP5 937 9 01 HITLIT MLC LABTBL-6&X3,ADDR 7 0377 M Q?7 P04 145 938 9 02 MLC @00J@,HOLD 7 0384 M P47 P07 145 939 9 03 B MODALT 4 0391 B O52 145 940 9 04 * SET LTORG POINT ADDRESS IN LITADD 941 9 05 LITPNT LCA RESULT-1,LITADD#3 SET UP START ADDR OF LITERALS 7 0395 L P10 P50 145 942 9 06 MLC X3,LITLOC#3 7 0402 M 099 P53 145 943 9 07 MLC BASIC,X3 7 0409 M P43 099 145 944 9 08 * GET INPUT RECORD FOR PROCESSING &MQ?7P04MP47P07BO52LP10P50M099P53MP43099L039415,384391,395402,409040104001452TAP5 945 9 09 GET RTW 1,RECORD 8 0416 L %U1 !98 R 146 946 9 10 BER TPERR 5 0424 B 201 L 146 947 9 11 BEF ENDPH3 5 0429 B Y33 K 146 948 9 12 BCE PUT,RECORD&5,* 8 0434 B Y11 J03 * 146 949 9 13 CW ADONE 4 0442 ) P16 146 950 9 14 C OPER,@LTOR@ 7 0446 C J16 P57 146 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &L%U1!98RB201LBY33KBY11J03*)P16CJ16P57 L037452,424429,434442,446040104001462TAP5 951 9 15 BE LIT 5 0453 B V60 S 147 952 9 16 C OPER,@EX @ 7 0458 C J16 P61 147 953 9 17 BE LTDONE 5 0465 B V64 S 147 954 9 18 BW HAVLIT,LITX 8 0470 V 756 P20 1 147 955 9 19 BW LITRCD,RECORD&3 8 0478 V 783 J01 1 147 &BV60SCJ16P61BV64SV756P201V783J011 L033485,458465,470478,040040104001472TAP5 956 9 20 LTREST MLC LITBEG-2,LASTLT 7 0486 M P23 009 148 957 9 21 CW LITORG 4 0493 ) P12 148 958 9 22 BW CONTRL,RECORD 8 0497 V V09 !98 1 148 959 9 24 TEST BCE DECL,ICOUNT, 8 0505 B X79 J85 148 960 9 25 * PROCESS IMPERATIVE INSTRUCTION 961 9 26 MLC @000@,HOLD 7 0513 M P37 P07 148 &MP23009)P12VV09!981BX79J85 MP37P07 L034519,493497,505513,040040104001482TAP5 962 9 27 MLC PARAMT&29,HOLD 7 0520 M K22 P07 149 963 9 28 MLC @000@,X1 7 0527 M P37 089 149 964 9 29 MLC AADDR,DADDR#1 7 0534 M J79 P62 149 965 9 30 BCE DONE,AADDR, 8 0541 B U38 J79 149 966 9 31 BCE OUTADD&15,AADDR,D 8 0549 B 648 J79 D 149 &MK22P07MP37089MJ79P62BU38J79 B648J79D L037556,527534,541549,040040104001492TAP5 967 9 32 BCE SYMBOL,AADDR,S 8 0557 B |88 J79 S 150 968 9 33 BCE ACTUAL,AADDR,A 8 0565 B S49 J79 A 150 969 9 34 BCE MACHIN,AADDR,M 8 0573 B S67 J79 M 150 970 9 35 BCE CNVRTD,AADDR,Q 8 0581 B U58 J79 Q 150 &B|88J79SBS49J79ABS67J79MBU58J79Q L032588,565573,581040,040040104001502TAP5 971 9 36 BW OUTADD,LITADD 8 0589 V 633 P50 1 151 972 9 37 * SET UP ADDRESS FOR LITERAL 973 9 38 LITRAL MLC LITADD,ADDR 7 0597 M P50 P04 151 974 9 39 B MODALT 4 0604 B O52 151 975 9 40 MLC RESULT-1,ADDR 7 0608 M P10 P04 151 976 9 41 MLC ADDR,LITADD 7 0615 M P04 P50 151 &V633P501MP50P04BO52MP10P04MP04P50 L033621,597604,608615,040040104001512TAP5 977 9 42 MLC @D@,DADDR 7 0622 M P63 P62 152 978 9 43 SW SAVLIT 4 0629 , P15 152 979 9 44 OUTADD BW DOBADD,ADONE 8 0633 V U12 P16 1 152 980 9 45 MLC ADDR,AOPND 7 0641 M P04 K65 152 981 9 46 B SETXX 4 0648 B Z08 152 982 9 47 MLC PARAMT&59,HOLD 7 0652 M K52 P07 152 &MP63P62,P15VU12P161MP04K65BZ08MK52P07 L037658,629633,641648,652040104001522TAP5 983 9 48 MLC @030@,X1 7 0659 M P66 089 153 984 9 49 MLC DADDR,AADDR 7 0666 M P62 J79 153 985 9 50 MLC BADDR,DADDR 7 0673 M J80 P62 153 986 9 51 BW ALIT,SAVLIT 8 0680 V 748 P15 1 153 987 9 52 TSTADD BCE DONE,BADDR, 8 0688 B U38 J80 153 &MP66089MP62J79MJ80P62V748P151BU38J80 L037695,666673,680688,040040104001532TAP5 988 9 53 BCE DONE,BADDR,D 8 0696 B U38 J80 D 154 989 9 54 BCE SYMBOL,BADDR,S 8 0704 B |88 J80 S 154 990 9 55 BCE ACTUAL,BADDR,A 8 0712 B S49 J80 A 154 991 9 56 BCE MACHIN,BADDR,M 8 0720 B S67 J80 M 154 &BU38J80DB|88J80SBS49J80ABS67J80M L032727,704712,720040,040040104001542TAP5 992 9 57 BCE CNVRTD,BADDR,Q 8 0728 B U58 J80 Q 155 993 9 58 BCE DONE,ICOUNT, 8 0736 B U38 J85 155 994 9 59 B LITRAL-8 4 0744 B 589 155 995 9 60 ALIT CW SAVLIT 4 0748 ) P15 155 996 9 61 B TSTADD 4 0752 B 688 155 997 9 62 * PROCESS LITERAL RECORD 998 9 63 HAVLIT CW LITX 4 0756 ) P20 155 &BU58J80QBU38J85 B589)P15B688)P20 L032759,736744,748752,756040104001552TAP5 999 9 64 BW *&5,RECORD&3 8 0760 V 772 J01 1 156 1000 9 65 B LTREST 4 0768 B 486 156 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1001 9 66 MLC TEMP1,X1 7 0772 M P31 089 156 1002 9 67 B LITRCD&15 4 0779 B 798 156 1003 9 68 LITRCD BW PROCSW,LITORG 8 0783 V 877 P12 1 156 1004 9 69 MLC LITLOC,X1 7 0791 M P53 089 156 &V772J011B486MP31089B798V877P121MP53089 L038797,768772,779783,791040104001562TAP5 1005 9 70 SW LITORG 4 0798 , P12 157 1006 9 71 C X1,X3 7 0802 C 089 099 157 1007 9 72 BE NOPROC 5 0809 B 834 S 157 1008 9 73 BW NOPROC,LABTBL&X1 8 0814 V 834 Q/3 1 157 1009 9 74 BW NOPROC,LABTBL-8&X1 8 0822 V 834 Q|5 1 157 1010 9 75 B *&12 4 0830 B 845 157 &,P12C089099B834SV834Q/31V834Q|51B845 L036833,802809,814822,830040104001572TAP5 1011 9 76 NOPROC MLC @B@,PROCSW 7 0834 M P67 877 158 1012 9 77 B PROCSW 4 0841 B 877 158 1013 9 78 MLC @N@,PROCSW 7 0845 M P68 877 158 1014 9 79 MLC LABTBL-6&X1,ADDR 7 0852 M Q|7 P04 158 1015 9 80 ZS @1@,HOLD 7 0859 ! P69 P07 158 1016 9 81 B MODALT 4 0866 B O52 158 &MP67877B877MP68877MQ|7P04!P69P07BO52 L036869,841845,852859,866040104001582TAP5 1017 9 82 MLC RESULT-1,BASE#3 7 0870 M P10 P72 159 1018 9 83 PROCSW NOP TSTADC 4 0877 N 949 159 1019 9 84 BW TSTADC,RECORD&4 8 0881 V 949 J02 1 159 1020 9 85 BCE ALPHA,RECORD&20,@ 8 0889 B |72 J18 @ 159 1021 9 86 BCE NUMLIT&8,PARAMT&60,A 8 0897 B 913 K53 A 159 &MP10P72N949V949J021B|72J18@B913K53A L035904,877881,889897,040040104001592TAP5 1022 9 87 NUMLIT BCE SHORTL,PARAMT&6, 8 0905 B |09 J99 160 1023 9 88 MLC BASE,ADDR ))) 7 0913 M P72 P04 160 1024 9 89 MLC LITCNT,HOLD 7 0920 M J88 P07 160 1025 9 90 B MODALT 4 0927 B O52 160 1026 9 91 LCA RESULT-1,LOCATN 7 0931 L P10 J92 160 &B|09J99 MP72P04MJ88P07BO52LP10J92 L033937,913920,927931,040040104001602TAP5 1027 9 92 MLC LOCATN,BASE 7 0938 M J92 P72 161 1028 9 93 SW RECORD&4 MARK LITERAL RECORD AS PROCESSED 4 0945 , J02 161 1029 9 94 TSTADC BCE TLUADC,PARAMT&61,D 8 0949 B 961 K54 D 161 1030 9 95 B PUT 4 0957 B Y11 161 1031 9 96 TLUADC BCE PUT,AADDR,D 8 0961 B Y11 J79 D 161 1032 9 97 MLC AADDR,DADDR 7 0969 M J79 P62 161 &MJ92P72,J02B961K54DBY11BY11J79DMJ79P62 L038975,945949,957961,969040104001612TAP5 1033 9 98 MLC @000@,X1 7 0976 M P37 089 162 1034 9 99 SW PARAMT&1 4 0983 , J94 162 1035 10 00 LCA PARAMT&6,LABTBL-3&X3 7 0987 L J99 QA0 162 1036 10 01 B SYMBOL&15 4 0994 B /03 162 1037 10 02 LADBCK MLC AOPND,PARAMT&32 7 0998 M K65 K25 162 1038 10 03 B PUT 4 1005 B Y11 162 1039 10 04 SHORTL SW PARAMT 4 1009 , J93 162 &MP37089,J94LJ99QA0B/03MK65K25BY11,J93 L037|12,983987,994998,|05|09104001622TAP5 1040 10 05 LCA PARAMT&5,LABTBL-3&X3 7 1013 L J98 QA0 163 1041 10 06 B TLULAB 4 1020 B L59 163 1042 10 07 B *&5 4 1024 B |32 163 1043 10 08 B PUT 4 1028 B Y11 163 1044 10 09 SW LABTBL-8&X3 4 1032 , Q?5 163 1045 10 10 C X2,LASTLT 7 1036 C 094 009 163 1046 10 11 B ADJXX 4 1043 B Z24 163 &LJ98QA0BL59B|32BY11,Q?5C094009BZ24 L034|46,|20|24,|28|32,|36|43104001632TAP5 1047 10 111 NOP 1 1047 N 164 1048 10 12 CW LABTBL-8&X3 4 1048 ) Q?5 164 1049 10 13 BW ALPHA-8,LABTBL-2&X2 8 1052 V |64 QJ1 1 164 1050 10 14 B GET 4 1060 B 416 164 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1051 10 15 CW LABTBL-2&X2 4 1064 ) QJ1 164 1052 10 16 B NUMLIT&8 4 1068 B 913 164 1053 10 17 ALPHA C LITCNT,@005@ 7 1072 C J88 P75 164 &N)Q?5V|64QJ11B416)QJ1B913CJ88P75 L032|78,|48|52,|60|64,|68|72104001642TAP5 1054 10 18 BH SHORTL 5 1079 B |09 U 165 1055 10 19 B NUMLIT&8 4 1084 B 913 165 1056 10 20 * PROCESS SYMBOLIC LABEL - TLU IN LABEL TABL 1057 10 21 SYMBOL BCE ASTRSK,PARAMT&X1,* 8 1088 B /91 JZ3 * 165 1058 10 22 LCA PARAMT&5&X1,LABTBL-3&X3 7 1096 L JZ8 QA0 165 1059 10 23 B TLULAB 4 1103 B L59 165 1060 10 24 B HITSYM 4 1107 B /23 165 &B|09UB913B/91JZ3*LJZ8QA0BL59B/23 L032/10,|84|88,|96/03,/07040104001652TAP5 1061 10 25 BW OUTADD, FULL 8 1111 V 633 194 1 166 1062 10 26 B TSTFUL 4 1119 B /61 166 1063 10 27 HITSYM BW TSTFUL,LABTBL-8&X2 8 1123 V /61 Q!5 1 166 1064 10 28 CW LABTBL-2&X2 4 1131 ) QJ1 166 1065 10 29 MLC LABTBL&X2,ADDR 7 1135 M QJ3 P04 166 1066 10 30 BCE TSTFUL,LABTBL-2&X2,# 8 1142 B /61 QJ1 # 166 &V6331941B/61V/61Q!51)QJ1MQJ3P04B/61QJ1#L039/49,/19/23,/31/35,/42040104001662TAP5 1067 10 31 MLC @D@,DADDR 7 1150 M P63 P62 167 1068 10 32 B CMPADD 4 1157 B S85 167 1069 10 33 TSTFUL BW OUTADD,FULL 8 1161 V 633 194 1 167 1070 10 34 MLC @###@,ADDR 7 1169 M P78 P04 167 1071 10 35 SW ERRPOS-2 4 1176 , J82 167 1072 10 36 MLC @D@,DADDR 7 1180 M P63 P62 167 &MP63P62BS85V6331941MP78P04,J82MP63P62 L037/86,/57/61,/69/76,/80040104001672TAP5 1073 10 37 B OUTADD 4 1187 B 633 168 1074 10 38 ASTRSK BCE OUTADD,LOCATN, 8 1191 B 633 J92 168 1075 10 39 MLC LOCATN,ADDR 7 1199 M J92 P04 168 1076 10 40 ZA ICOUNT,HOLD 7 1206 ? J85 P07 168 1077 10 41 S @1@,HOLD 7 1213 S P69 P07 168 &B633B633J92 MJ92P04?J85P07SP69P07 L033S19,/91/99,S06S13,040040104001682TAP5 1078 10 42 MZ @ @,HOLD 7 1220 Y P79 P07 169 1079 10 43 B MODALT 4 1227 B O52 169 1080 10 44 MLC RESULT-1,ADDR 7 1231 M P10 P04 169 1081 10 45 MLC @D@,DADDR 7 1238 M P63 P62 169 1082 10 46 B CMPADD 4 1245 B S85 169 1083 10 47 * PROCESS ACTUAL ADDRESS OPERAND 1084 10 48 ACTUAL MLC PARAMT&8&X1,ADDR 7 1249 M K|1 P04 169 &YP79P07BO52MP10P04MP63P62BS85MK|1P04 L036S55,S27S31,S38S45,S49040104001692TAP5 1085 10 49 MLC @D@,DADDR 7 1256 M P63 P62 170 1086 10 50 B CMPADD 4 1263 B S85 170 1087 10 51 * PROCESS MACHINE ADDRESS OPERAND 1088 10 52 MACHIN MLC PARAMT&2,ADDR 7 1267 M J95 P04 170 1089 10 53 MLC @D@,DADDR 7 1274 M P63 P62 170 1090 10 54 B OUTADD 4 1281 B 633 170 1091 10 55 * APPLY CHARACTER ADJUSTMENT & INDEXING 1092 10 56 CMPADD BCE OUTADD,PARAMT&10&X1, 8 1285 B 633 K|3 170 &MP63P62BS85MJ95P04MP63P62B633B633K|3 L037S92,S63S67,S74S81,S85040104001702TAP5 1093 10 57 BCE INDADD,PARAMT&11&X1,X 8 1293 B T87 K|4 X 171 1094 10 58 ADJADD MLC @000@,X2 7 1301 M P37 094 171 1095 10 59 SW PARAMT&11&X1 4 1308 , K|4 171 1096 10 60 MLC PARAMT&19&X1,X2 7 1312 M K/2 094 171 1097 10 61 A X1,X2 7 1319 A 089 094 171 &BT87K|4XMP37094,K|4MK/2094A089094 L033T25,T01T08,T12T19,040040104001712TAP5 1098 10 62 MLC @000@,HOLD 7 1326 M P37 P07 172 1099 10 63 MLC PARAMT&10&X2,HOLD 7 1333 M K!3 P07 172 1100 10 64 MZ PARAMT&10&X1,HOLD 7 1340 Y K|3 P07 172 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1101 10 65 MZ ADDR-1,HOLDZN 7 1347 Y P03 P14 172 1102 10 66 B MODALT 4 1354 B O52 172 1103 10 67 MLC RESULT-1,ADDR 7 1358 M P10 P04 172 &MP37P07MK!3P07YK|3P07YP03P14BO52MP10P04L039T64,T33T40,T47T54,T58040104001722TAP5 1104 10 68 MZ HOLDZN,ADDR-1 7 1365 Y P14 P03 173 1105 10 69 A @10@,X1 7 1372 A P81 089 173 1106 10 70 BCE OUTADD,PARAMT&10&X1, 8 1379 B 633 K|3 173 1107 10 71 INDADD MLC @000@,X2 7 1387 M P37 094 173 1108 10 72 MN PARAMT&12&X1,X2 7 1394 D K|5 094 173 &YP14P03AP81089B633K|3 MP37094DK|5094 L036U00,T72T79,T87T94,040040104001732TAP5 1109 10 73 MZ ZONE&X2,ADDR-1 7 1401 Y KP1 P03 174 1110 10 74 B OUTADD 4 1408 B 633 174 1111 10 75 DOBADD MLC ADDR,BOPND 7 1412 M P04 K68 174 1112 10 76 CW ADONE 4 1419 ) P16 174 1113 10 77 MLC DADDR,BADDR 7 1423 M P62 J80 174 1114 10 78 BW BLIT,SAVLIT 8 1430 V U50 P15 1 174 &YKP1P03B633MP04K68)P16MP62J80VU50P151 L037U37,U08U12,U19U23,U30040104001742TAP5 1115 10 79 DONE BCE LADBCK,PARAMT&61,D 8 1438 B 998 K54 D 175 1116 10 80 B PUT 4 1446 B Y11 175 1117 10 81 BLIT CW SAVLIT 4 1450 ) P15 175 1118 10 82 B DONE 4 1454 B U38 175 1119 10 83 * TLU DUPLICATED SHORT LITERALS 1120 10 84 CNVRTD LCA PARAMT&5&X1,LABTBL-3&X3 7 1458 L JZ8 QA0 175 1121 10 85 B TLULAB 4 1465 B L59 175 1122 10 86 B *&5 4 1469 B U77 175 &B998K54DBY11)P15BU38LJZ8QA0BL59BU77 L035U72,U46U50,U54U58,U65U69104001752TAP5 1123 10 87 H *-3 4 1473 . U73 176 1124 10 88 SW LABTBL-8&X3 4 1477 , Q?5 176 1125 10 89 C X2,LASTLT 7 1481 C 094 009 176 1126 10 90 B ADJXX 4 1488 B Z24 176 1127 10 901 NOP 1 1492 N 176 1128 10 91 CW LABTBL-8&X3 4 1493 ) Q?5 176 1129 10 92 BW TSTFUL,LABTBL-8&X2 8 1497 V /61 Q!5 1 176 &.U73,Q?5C094009BZ24N)Q?5V/61Q!51 L032V04,U77U81,U88U92,U93U97104001762TAP5 1130 10 93 B HITSYM&12 4 1505 B /35 177 1131 10 94 * TEST CONTROL ENTRIES 1132 10 97 CONTRL C OPER,@EQU @ 7 1509 C J16 P85 177 1133 10 98 BE GETEQU 5 1516 B V56 S 177 1134 10 99 C OPER,@END @ 7 1521 C J16 P89 177 1135 11 00 BE LTDONE 5 1528 B V64 S 177 1136 11 01 MLC @000@,X1 7 1533 M P37 089 177 &B/35CJ16P85BV56SCJ16P89BV64SMP37089 L035V39,V09V16,V21V28,V33040104001772TAP5 1137 11 02 C OPER,@XFR @ 7 1540 C J16 P93 178 1138 11 03 BE TEST&22 5 1547 B 527 S 178 1139 11 04 B PUT 4 1552 B Y11 178 1140 11 44 * PROCESS EQUATE ENTRIES 1141 11 45 GETEQU B PUT 4 1556 B Y11 178 1142 11 46 * PROCESS LTORG ENTRIES 1143 11 47 LIT SW LITX 4 1560 , P20 178 1144 11 48 LTDONE BW LITBCK-12,RECORD&4 8 1564 V X13 J02 1 178 1145 11 49 MLC &LITBCK,OUT&3 7 1572 M P96 Y32 178 &CJ16P93B527SBY11BY11,P20VX13J021MP96Y32L039V78,V47V52,V56V60,V64V72104001782TAP5 1146 11 50 C LITLOC,X3 7 1579 C P53 099 179 1147 11 51 BE LIT1 5 1586 B W94 S 179 1148 11 52 BW *&9,LOCATN 8 1591 V W07 J92 1 179 1149 11 53 SW RECORD&4 4 1599 , J02 179 1150 11 54 B LITBCK-12 4 1603 B X13 179 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1151 11 55 MLC LITLOC,X1 7 1607 M P53 089 179 &CP53099BW94SVW07J921,J02BX13MP53089 L035W13,V86V91,V99W03,W07040104001792TAP5 1152 11 56 BW LIT1,LABTBL-8&X1 8 1614 V W94 Q|5 1 180 1153 11 57 BW LIT1,LABTBL&X1 8 1622 V W94 Q/3 1 180 1154 11 58 CW LOCATN 4 1630 ) J92 180 1155 11 59 MLC LABTBL-6&X1,LOCATN 7 1634 M Q|7 J92 180 1156 11 60 BCE CALLTT,PARAMT,* 8 1641 B W61 J93 * 180 &VW94Q|51VW94Q/31)J92MQ|7J92BW61J93* L035W48,W22W30,W34W41,040040104001802TAP5 1157 11 61 BCE CALLTT,OPER-3,E 8 1649 B W61 J13 E 181 1158 11 62 B LIT1-8 4 1657 B W86 181 1159 11 63 CALLTT MLC LOCATN,ADDR 7 1661 M J92 P04 181 1160 11 64 MLC LABTBL&X1,HOLD 7 1668 M Q/3 P07 181 1161 11 65 B MODALT 4 1675 B O52 181 1162 11 66 MLC RESULT-1,ORGBAS 7 1679 M P10 P28 181 &BW61J13EBW86MJ92P04MQ/3P07BO52MP10P28 L037W85,W57W61,W68W75,W79040104001812TAP5 1163 11 67 SW RECORD&4 MARK LTORG AS PROCESSED 4 1686 , J02 182 1164 11 68 B LITBCK-12 4 1690 B X13 182 1165 11 69 LIT1 BW LITBCK-12,FULL 8 1694 V X13 194 1 182 1166 11 70 SW ERRPOS 4 1702 , J84 182 1167 11 71 LCA @000@,LOCATN 7 1706 L P37 J92 182 1168 11 72 BCE TEST&22,OPER-3,E 8 1713 B 527 J13 E 182 1169 11 73 B PUT 4 1721 B Y11 182 &,J02BX13VX131941,J84LP37J92B527J13EBY11L039X24,W90W94,X02X06,X13X21104001822TAP5 1170 11 74 LITBCK MLC &GET,OUT&3 7 1725 M P99 Y32 183 1171 11 75 MLC X3,BASIC 7 1732 M 099 P43 183 1172 11 76 MLC LITLOC,LITBEG-2 7 1739 M P53 P23 183 1173 11 77 BW *&8,LITX 8 1746 V X61 P20 1 183 1174 11 78 MLC LITLOC,LASTLT 7 1754 M P53 009 183 &MP99Y32M099P43MP53P23VX61P201MP53009 L036X60,X32X39,X46X54,040040104001832TAP5 1175 11 79 MLC LITLOC,X3 7 1761 M P53 099 184 1176 11 80 MLC LITLOC,TEMP1 7 1768 M P53 P31 184 1177 11 81 B TLULIT 4 1775 B 338 184 1178 11 82 * DECLARATIVE ENTRIES - BYPASS IF CONSTANT 1179 11 83 * IF ADDRESS CONSTANT, LOOK IT UP 1180 11 84 DECL BCE TLUADC,AADDR,C 8 1779 B 961 J79 C 184 1181 11 85 BCE TEST&22,AADDR,S 8 1787 B 527 J79 S 184 &MP53099MP53P31B338B961J79CB527J79S L034X94,X68X75,X79X87,040040104001842TAP5 1182 11 86 BCE TEST&22,AADDR,A 8 1795 B 527 J79 A 185 1183 11 87 B PUT 4 1803 B Y11 185 1184 11 88 * MARK LITERAL RECORD AS PROCESSED 1185 11 89 PUTX SW RECORD&4 4 1807 , J02 185 1186 11 90 * PUT A RECORD 1187 11 91 PUT WTW 2,RECORD 8 1811 L %U2 !98 W 185 1188 11 92 BER TPERR 5 1819 B 201 L 185 1189 11 93 BEF *&1 5 1824 B Y29 K 185 1190 11 94 OUT B GET 4 1829 B 416 185 &B527J79ABY11,J02L%U2!98WB201LBY29KB416 L038Y32,Y03Y07,Y11Y19,Y24Y29104001852TAP5 1191 11 95 ENDPH3 RWD 1 5 1833 U %U1 R 186 1192 11 96 WTM 2 5 1838 U %U2 M 186 1193 11 97 RWD 2 5 1843 U %U2 R 186 1194 11 98 BW *&19,REITER 8 1848 V Y74 193 1 186 1195 11 99 MLC @8@,SEEK 7 1856 M Q00 125 186 1196 12 00 NOP 666,666 7 1863 N 666 666 186 &U%U1RU%U2MU%U2RVY741931MQ00125N666666 L037Y69,Y38Y43,Y48Y56,Y63040104001862TAP5 1197 12 01 B *&15 4 1870 B Y88 187 1198 12 02 MLC @8@,SEEK 7 1874 M Q00 125 187 1199 12 03 NOP 555,555 7 1881 N 555 555 187 1200 12 04 CW PARTBL&84 4 1888 ) K63 187 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1201 12 05 CW BOPND&1 4 1892 ) K69 187 1202 12 06 CW HIGH3&1,GPMK 7 1896 ) Q02 K70 187 1203 12 07 B LOAD 4 1903 B 100 187 &BY88MQ00125N555555)K63)K69)Q02K70B100 L037Z06,Y74Y81,Y88Y92,Y96Z03104001872TAP5 1204 12 08 HIGHPT H 1 1907 . 188 1205 12 081 SETXX MLC @000@,HOLD 7 1908 M P37 P07 188 1206 12 082 SW ADONE 4 1915 , P16 188 1207 12 083 B OUTADD&19 4 1919 B 652 188 1208 12 09 ORG HIGH2&1 2757 &.MP37P07,P16B652 L016Z22,Z08Z15,Z19040,040040104001882TAP5 1209 12 10 DCW #1 1 2757 189 1210 12 11 LTORG HOLDZN&1 2715 & L001P57,040040,040040,040040104001892TAP5 913 SAVLIT DCW #01 1 2715 AREA 190 913 ADONE #01 1 2716 AREA 190 916 FSTIME #01 1 2717 AREA 190 916 DOUBLE #01 1 2718 AREA 190 917 LITONE #01 1 2719 AREA 190 917 LITX #01 1 2720 AREA 190 919 LITBEG #05 5 2725 AREA 190 & L011P25,P16P17,P18P19,P20P21104001902TAP5 919 ORGBAS #03 3 2728 AREA 191 920 TEMP1 #03 3 2731 AREA 191 @ @ 3 2734 LIT 191 @000@ 3 2737 LIT 191 922 LSTORG #03 3 2740 AREA 191 924 BASIC #03 3 2743 AREA 191 @9@ 1 2744 LIT 191 & 000 9 L019P44,P29P32,P35P38,P41P44104001912TAP5 @00J@ 3 2747 LIT 192 941 LITADD #03 3 2750 AREA 192 942 LITLOC #03 3 2753 AREA 192 @LTOR@ 4 2757 LIT 192 @EX @ 4 2761 LIT 192 964 DADDR #01 1 2762 AREA 192 @D@ 1 2763 LIT 192 &00J LTOREX D L019P63,P48P51,P54P58,P62P63104001922TAP5 @030@ 3 2766 LIT 193 @B@ 1 2767 LIT 193 @N@ 1 2768 LIT 193 @1@ 1 2769 LIT 193 1017 BASE #03 3 2772 AREA 193 @005@ 3 2775 LIT 193 @###@ 3 2778 LIT 193 &030BN1 005### L015P78,P67P68,P69P70,P73P76104001932TAP5 @ @ 1 2779 LIT 194 @10@ 2 2781 LIT 194 @EQU @ 4 2785 LIT 194 @END @ 4 2789 LIT 194 @XFR @ 4 2793 LIT 194 1145 &LITBCK 3 2796 X25 ADCON 194 1170 &GET 3 2799 416 ADCON 194 & 10EQU END XFR X25416 L021P99,P80P82,P86P90,P94P97104001942TAP5 @8@ 1 2800 LIT 195 1211 12 12 HIGH3 H 1 2801 . 195 1212 12 13 DCW @}@ 1 2802 195 1213 ORG LITBEG-2 2723 &8.} L003Q02,Q01Q02,040040,040040104001952TAP5 1214 DCW @000@ 3 2725 196 1 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1215 ORG 1924 1924 &000 L003P25,040040,040040,040040104001962TAP5 1216 ADJXX SBR ADJYY-1 4 1924 H Z52 197 1217 BWZ ADJYY,092,2 8 1928 V Z53 092 2 197 1218 BWZ ADJYY-4,007,2 8 1936 V Z49 007 2 197 1219 BH TLUFST&8 5 1944 B L93 U 197 1220 B 000 4 1949 B 000 197 1221 ADJYY BWZ ADJYY-9,007,2 8 1953 V Z44 007 2 197 &HZ52VZ530922VZ490072BL93UB000VZ440072 L037Z60,Z28Z36,Z44Z49,Z53040104001972TAP5 1222 B TLUFST&8 4 1961 B L93 198 &BL93 L004Z64,040040,040040,040040104001982TAP5 & N000000,040040,040040,040040B16701992TAP5 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02002TAP6 &,068072)063067/061039 ,001001104002012TAP6 1223 12 14 EX SYSTEM B 167 199 1 1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE RBR 2TAP6 PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1224 12 15 JOB 1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE RBR 1225 12 16 * 1226 12 17 ****** PHASE 6 - CONDENSING OF RELATIVE ENTRIES IN SYMBOL TABLE 1227 12 18 * FOR REITERATION 1228 12 19 * 1229 12 20 * *** PHASE 6 IDENTIFICATION AT 333 *** 1230 12 21 * 1231 12 22 ORG 333 0333 1232 12 23 DCW @6@ 1 0333 202 1233 12 24 * 1234 12 25 RERUN MLC @000@,X1 7 0334 M 568 089 202 1235 12 26 MLC @000@,X2 7 0341 M 568 094 202 1236 12 27 AVAIL BW SAVE1,LABTBL-5&X1 8 0348 V 437 Q|8 1 202 1237 12 28 BW SAVE1,LABTBL-2&X1 8 0356 V 437 Q/1 1 202 1238 12 29 BW SAVE1,LABTBL&X1 8 0364 V 437 Q/3 1 202 &6M568089M568094V437Q|81V437Q/11V437Q/31L039371,334341,348356,364040104002022TAP6 1239 12 30 BW SAVE,LABTBL-8&X1 8 0372 V 411 Q|5 1 203 1240 12 31 BCE SAVE4,LABTBL-2&X1,# 8 0380 B 484 Q/1 # 203 1241 12 32 AVAIL1 C X1,X3 7 0388 C 089 099 203 1242 12 33 BE PACKED 5 0395 B 537 S 203 1243 12 34 A @9@,X1 7 0400 A 569 089 203 1244 12 35 B AVAIL 4 0407 B 348 203 &V411Q|51B484Q/1#C089099B537SA569089B348L039410,380388,395400,407040104002032TAP6 1245 12 36 SAVE B CMP1T2 4 0411 B 510 204 1246 12 37 LCA LABTBL&X1,LABTBL&X2 7 0415 L Q/3 QJ3 204 1247 12 38 CW LABTBL-8&X1 4 0422 ) Q|5 204 1248 12 39 A @9@,X2 7 0426 A 569 094 204 1249 12 40 B AVAIL1 4 0433 B 388 204 1250 12 41 SAVE1 B CMP1T2 4 0437 B 510 204 1251 12 42 BW SAVE2,LABTBL-8&X1 8 0441 V 472 Q|5 1 204 &B510LQ/3QJ3)Q|5A569094B388B510V472Q|51 L038448,415422,426433,437441104002042TAP6 1252 12 43 SW LABTBL-8&X1 4 0449 , Q|5 205 1253 12 44 LCA LABTBL&X1,LABTBL&X2 7 0453 L Q/3 QJ3 205 1254 12 45 MLC 1 0460 M 205 1255 12 46 SAVE3 LCA @ @,LABTBL&X1 7 0461 L 578 Q/3 205 1256 12 47 B SAVE&11 4 0468 B 422 205 1257 12 48 SAVE2 LCA LABTBL&X1,LABTBL&X2 7 0472 L Q/3 QJ3 205 1258 12 49 LCA 1 0479 L 205 &,Q|5LQ/3QJ3ML578Q/3B422LQ/3QJ3L L031479,453460,461468,472479104002052TAP6 1259 12 50 B SAVE3 4 0480 B 461 206 1260 12 51 SAVE4 B CMP1T2 4 0484 B 510 206 1261 12 52 A @9@,X2 7 0488 A 569 094 206 1262 12 53 SW LABTBL-8&X1 4 0495 , Q|5 206 1263 12 54 MLC LABTBL&9&X1,LABTBL&X2 7 0499 M QS2 QJ3 206 1264 12 55 B SAVE&11 4 0506 B 422 206 1265 12 56 * 1266 12 57 CMP1T2 SBR CMPEXT&3 4 0510 H 524 206 &B461B510A569094,Q|5MQS2QJ3B422H524 L034513,484488,495499,506510104002062TAP6 1267 12 58 C X1,X2 7 0514 C 089 094 207 1268 12 59 CMPEXT BU 0 5 0521 B 000 / 207 1269 12 60 A @9@,X2 7 0526 A 569 094 207 1270 12 61 B AVAIL1 4 0533 B 388 207 1271 12 62 * 1272 12 63 PACKED MLC X2,X3 7 0537 M 094 099 207 1273 12 64 CW HIGH5 4 0544 ) 580 207 1 1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE RBR 2TAP6 PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &C089094B000/A569094B388M094099)580 L034547,521526,533537,544040104002072TAP6 1274 12 65 MLC @7@,SEEK 7 0548 M 579 125 208 1275 12 66 NOP 777,777 7 0555 N 777 777 208 1276 12 67 B LOAD 4 0562 B 100 208 1277 12 68 LTORG * 0566 DCW @000@ 3 0568 LIT 208 @9@ 1 0569 LIT 208 1255 @ @ 9 0578 LIT 208 @7@ 1 0579 LIT 208 &M579125N777777B1000009 7 L032579,555562,566569,570579104002082TAP6 1278 12 69 HIGH5 DCW @}@ 1 0580 209 1279 12 70 H 1 0581 . 209 1280 12 71 ORG HIGH1 2757 &}. L002581,581040,040040,040040104002092TAP6 1281 12 72 DCW @|@ 1 2757 210 1282 12 73 ORG HIGH3&1 2802 &| L001P57,040040,040040,040040104002102TAP6 1283 12 74 DCW #1 1 2802 211 & L001Q02,040040,040040,040040104002112TAP6 & N000000,040040,040040,040040B16702122TAP6 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02132TAP6 &,068072)063067/061039 ,001001104002142TAP6 1284 12 75 EX SYSTEM B 167 212 & /167080 02152TAP6 1285 12 76 END SYSTEM / 167 080 215 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00012TAP8 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00022TAP8 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000032TAP8 0 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 102 CTL 630 1 103 * 104 * PHASE 8 - PRINT OUT LABEL TABLE 105 * 106 * 107 LABTBL EQU 2813&X1 2813 108 REITER EQU 193 0193 109 * 110 * ** SYSTEMS CONTROL ** 111 ORG 82 0082 112 CHECK DCW @ @ 1 0082 4 113 DCW @ }@ 3 0085 4 114 ORG 100 0100 & } L004085,083040,040040,040040104000042TAP8 115 LOAD RWD 1 5 0100 U %U1 R 5 116 RTW 1,CHECK 8 0105 L %U1 082 R 5 117 BER TPERR 5 0113 B 363 L 5 118 BCE *&5,CHECK,D 8 0118 B 130 082 D 5 119 B LOAD&5 4 0126 B 105 5 120 BSP 1 5 0130 U %U1 B 5 &U%U1RL%U1082RB363LB130082DB105U%U1B L035134,105113,118126,130040104000052TAP8 121 RTW 1,333 8 0135 L %U1 333 R 6 122 SW CHECK&3 4 0143 , 085 6 123 RTW 1,CHECK 8 0147 L %U1 082 R 6 124 BCE 334,CHECK,0 8 0155 B 334 082 0 6 125 B *-19 4 0163 B 147 6 126 SEEK EQU LOAD&25 0125 127 * &L%U1333R,085L%U1082RB3340820B147 L032166,143147,155163,040040104000062TAP8 128 SYSTEM WTW 1,333 8 0167 L %U1 333 W 7 129 BER *&5 5 0175 B 184 L 7 130 R 40 4 0180 1 040 7 131 BSP 1 5 0184 U %U1 B 7 132 SKP 1 5 0189 U %U1 E 7 133 B SYSTEM 4 0194 B 167 7 134 H 1 0198 . 7 135 X1 EQU 89 0089 &L%U1333WB184L1040U%U1BU%U1EB167. L032198,175180,184189,194198104000072TAP8 136 0089 DCW @000@ 3 0089 8 137 X2 EQU 94 0094 &000 L003089,040040,040040,040040104000082TAP8 138 0094 DCW @000@ 3 0094 9 139 X3 EQU 99 0099 &000 L003094,040040,040040,040040104000092TAP8 140 0099 DCW @000@ 3 0099 10 141 * 142 * PHASE 8 IDENTIFICATION AT 0333 143 * 144 ORG 333 0333 &000 L003099,040040,040040,040040104000102TAP8 145 DCW @8@ 1 0333 11 146 * 147 B LABELS 4 0334 B 650 11 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * 149 ENDPH8 RTW 1,333 8 0338 L %U1 333 R 11 150 BER TPERR 5 0346 B 363 L 11 151 BCE PHASE9,333,9 8 0351 B 649 333 9 11 152 H *-3 4 0359 . 359 11 153 * 154 * GENERALIZED RD/WR TAPE ERROR ROUTINE 155 * 156 TPERR SBR X1 4 0363 H 089 11 &8B650L%U1333RB363LB6493339.359H089 L034366,334338,346351,359363104000112TAP8 157 A TX3987,X1 7 0367 A 496 089 12 158 BW TXCOMP,TXGET&1 8 0374 V 414 383 1 12 159 TXGET MLC 17&X1,TXEOF&4 7 0382 M 0/7 492 12 160 MLC TXDUMY&4,17&X1 7 0389 M 487 0/7 12 161 MLC 3&X1,TXBSP&3 7 0396 M 0|3 425 12 &A496089V4143831M0/7492M4870/7M0|3425 L036402,374382,389396,040040104000122TAP8 162 MLC TXBSP&5,TXBSP 7 0403 M 427 422 13 163 SW TXGET&1 4 0410 , 383 13 164 TXCOMP B TXPERM,TXCNTL,9 8 0414 B 443 493 9 13 165 TXBSP BSP 1 5 0422 U %U1 B 13 166 SKP 1 5 0427 U %U1 E 13 167 A *-6,TXCNTL 7 0432 A 432 493 13 &M427422,383B4434939U%U1BU%U1EA432493 L036438,410414,422427,432040104000132TAP8 168 B 0&X1 4 0439 B 0|0 14 169 TXPERM H 888,888 7 0443 . 888 888 14 170 MLC TXPERM-1,TXCNTL 7 0450 M 442 493 14 171 B TXBSP 4 0457 B 422 14 172 TXDONE MLC TXPERM-1,TXCNTL 7 0461 M 442 493 14 173 MLC TXEOF&4,17&X1 7 0468 M 492 0/7 14 &B0|0.888888M442493B422M442493M4920/7 L036474,443450,457461,468040104000142TAP8 174 CW TXGET&1 4 0475 ) 383 15 175 B 13&X1 4 0479 B 0/3 15 176 TXDUMY B TXDONE 4 0483 B 461 15 177 DC @ @ 1 0487 15 178 TXEOF BEF 1 5 0488 B 001 K 15 179 TXCNTL DCW @0@ 1 0493 15 180 TX3987 DCW @I87@ 3 0496 15 181 * ROUTINE TO CONVERT MACHINE ADDRESS TO 182 * REGULAR FIVE POSITION ADDRESS 183 * * MACHINE ADDRESS TAKEN FROM ADDR 184 * * RESULT PLACED IN WORK 185 DECOD SBR DECEXT&3 4 0497 H 632 15 &)383B0/3B461 B001K0I87H632 L026500,479483,488493,494497104000152TAP8 186 ZA ADDR#3,WORK#5 7 0501 ? 635 640 16 187 MZ @ @,WORK 7 0508 Y 641 640 16 188 BWZ ADD12,ADDR,B 8 0515 V 567 635 B 16 189 BM ADD8,ADDR 8 0523 V 578 635 K 16 190 BWZ ADD4,ADDR,S 8 0531 V 589 635 S 16 &?635640Y641640V567635BV578635KV589635S L038538,508515,523531,040040104000162TAP8 191 HIORDR BWZ ADD3,ADDR-2,B 8 0539 V 600 633 B 17 192 BM ADD2,ADDR-2 8 0547 V 611 633 K 17 193 BWZ ADD1,ADDR-2,S 8 0555 V 622 633 S 17 194 B DECEXT 4 0563 B 629 17 195 ADD12 A @12@,WORK-3 7 0567 A 643 637 17 196 B HIORDR 4 0574 B 539 17 &V600633BV611633KV622633SB629A643637B539L039577,547555,563567,574040104000172TAP8 197 ADD8 A @8@,WORK-3 7 0578 A 644 637 18 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 B HIORDR 4 0585 B 539 18 199 ADD4 A @4@,WORK-3 7 0589 A 645 637 18 200 B HIORDR 4 0596 B 539 18 201 ADD3 A @3@,WORK-3 7 0600 A 646 637 18 202 B DECEXT 4 0607 B 629 18 &A644637B539A645637B539A646637B629 L033610,585589,596600,607040104000182TAP8 203 ADD2 A @2@,WORK-3 7 0611 A 647 637 19 204 B DECEXT 4 0618 B 629 19 205 ADD1 A @1@,WORK-3 7 0622 A 648 637 19 206 DECEXT B 0 4 0629 B 000 19 207 LTORG * 0633 186 ADDR DCW #03 3 0635 AREA 19 186 WORK #05 5 0640 AREA 19 @ @ 1 0641 LIT 19 &A647637B629A648637B000 L031641,618622,629633,636641104000192TAP8 @12@ 2 0643 LIT 20 @8@ 1 0644 LIT 20 @4@ 1 0645 LIT 20 @3@ 1 0646 LIT 20 @2@ 1 0647 LIT 20 @1@ 1 0648 LIT 20 208 HIGH88 H 1 0649 . 20 209 * 210 * PRINT OUT SYMBOL TABLE 211 * &1284321. L008649,644645,646647,648649104000202TAP8 212 LABELS MLC @|@,333 7 0650 M Z93 333 21 213 CC 1 2 0657 F 1 21 214 MCM 201,AREA 7 0659 P 201 T33 21 215 CHAIN 2 MACRO 216 MCM 1 0666 P GEN 21 217 MCM 1 0667 P GEN 21 218 LCA @ @,LABTBL&X3 7 0668 L !02 QA3 21 219 CW LABTBL-8&X3 4 0675 ) Q?5 21 &MZ93333F1P201T33PPL!02QA3)Q?5 L029678,657659,666667,668675104000212TAP8 220 MCM LINE&X0,201 7 0679 P S00 201 22 221 MCM TITLE-12,201 7 0686 P /01 201 22 222 MLC @ @,213 7 0693 M !03 213 22 223 CC T 2 0700 F T 22 224 W 1 0702 2 22 225 * 226 INITL MLC @000@,X1 7 0703 M !06 089 22 227 MLC @000@,X2 7 0710 M !06 094 22 &PS00201P/01201M!03213FT2M!06089M!06094 L038716,686693,700702,703710104000222TAP8 228 CS LINE&131&X0 4 0717 / T31 23 229 CS 1 0721 / 23 230 MLC TABLE,FIRST&7 7 0722 M Z60 743 23 231 MLC TABLE,LABTBL-8&X3 7 0729 M Z60 Q?5 23 232 FIRST BCE HIT,LABTBL-8,D 8 0736 B 755 Q|5 D 23 233 A @9@,X1 7 0744 A !07 089 23 234 B FIRST 4 0751 B 736 23 &/T31/MZ60743MZ60Q?5B755Q|5DA!07089B736 L038754,721722,729736,744751104000232TAP8 235 HIT C X1,X3 7 0755 C 089 099 24 236 BE ENDTAB 5 0762 B |32 S 24 237 BW FIRST&8,LABTBL 8 0767 V 744 Q/3 1 24 238 BW FIRST&8,LABTBL-2 8 0775 V 744 Q/1 1 24 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 239 BW FIRST&8,LABTBL-5 8 0783 V 744 Q|8 1 24 &C089099B|32SV744Q/31V744Q/11V744Q|81 L036790,762767,775783,040040104000242TAP8 240 BW FIRST&8,LABTBL-8 8 0791 V 744 Q|5 1 25 241 BW FIRST&8,LABTBL-7 8 0799 V 744 Q|6 1 25 242 BCE FIRST&8,LABTBL-8,| 8 0807 B 744 Q|5 | 25 243 BCE FIRST&8,LABTBL-5,| 8 0815 B 744 Q|8 | 25 &V744Q|51V744Q|61B744Q|5|B744Q|8| L032822,799807,815040,040040104000252TAP8 244 BCE FIRST&8,LABTBL-7,| 8 0823 B 744 Q|6 | 26 245 BCE STEP,LABTBL-2,# 8 0831 B 933 Q/1 # 26 246 SW LINE 4 0839 , S!0 26 247 MLC LABTBL-3,LINE&5 7 0843 M Q/0 S!5 26 248 MLC LABTBL,ADDR 7 0850 M Q/3 635 26 &B744Q|6|B933Q/1#,S!0MQ/0S!5MQ/3635 L034856,831839,843850,040040104000262TAP8 249 BCE PERCNT,ADDR-2,% 8 0857 B 944 633 % 27 250 MZ @ @,ADDR-1 7 0865 Y !03 634 27 251 B DECOD 4 0872 B 497 27 252 LCA EDIT1,LINE&11 7 0876 L Z92 SJ1 27 253 MCE WORK,LINE&11 7 0883 E 640 SJ1 27 &B944633%Y!03634B497LZ92SJ1E640SJ1 L033889,865872,876883,040040104000272TAP8 254 BWZ INDEX1,LABTBL-1,S 8 0890 V 999 Q/2 S 28 255 TSTX2 BWZ INDEX2,LABTBL-1,K 8 0898 V |10 Q/2 K 28 256 TSTX3 BWZ INDEX3,LABTBL-1,B 8 0906 V |21 Q/2 B 28 257 TSTLIN BCE RESET2,X2-2,1 8 0914 B 955 092 1 28 258 A @16@,X2 7 0922 A !09 094 28 &V999Q/2SV|10Q/2KV|21Q/2BB9550921A!09094L039928,898906,914922,040040104000282TAP8 259 B FIRST&8 4 0929 B 744 29 260 STEP A @9@,X1 7 0933 A !07 089 29 261 B FIRST&8 4 0940 B 744 29 262 PERCNT MLC ADDR,LINE&11 7 0944 M 635 SJ1 29 263 B TSTLIN 4 0951 B 914 29 264 RESET2 C X2,@000@ 7 0955 C 094 !06 29 265 BE RSTOUT-8 5 0962 B 987 S 29 &B744A!07089B744M635SJ1B914C094!06B987S L038966,933940,944951,955962104000292TAP8 266 MLC @000@,X2 7 0967 M !06 094 30 267 MCM LINE&X0,201 7 0974 P S00 201 30 268 W 1 0981 2 30 269 CS LINE&131&X0 4 0982 / T31 30 270 CS 1 0986 / 30 271 BW ENDPRT,RSTOUT&1 8 0987 V |40 996 1 30 272 RSTOUT B FIRST&8 4 0995 B 744 30 &M!06094PS002012/T31/V|409961B744 L032998,974981,982986,987995104000302TAP8 273 INDEX1 MLC @&X1@,LINE&14 7 0999 M !12 SJ4 31 274 B TSTX2 4 1006 B 898 31 275 INDEX2 MLC @&X2@,LINE&14 7 1010 M !15 SJ4 31 276 B TSTX3 4 1017 B 906 31 277 INDEX3 MLC @&X3@,LINE&14 7 1021 M !18 SJ4 31 278 B TSTLIN 4 1028 B 914 31 279 ENDTAB SW RSTOUT&1 4 1032 , 996 31 &M!12SJ4B898M!15SJ4B906M!18SJ4B914,996 L037|35,|06|10,|17|21,|28|32104000312TAP8 280 B RESET2 4 1036 B 955 32 281 ENDPRT CW RSTOUT&1 4 1040 ) 996 32 282 MCM TABLE&1,TABLE 7 1044 P Z61 Z60 32 283 BCE FINIS,TABLE,| 8 1051 B |63 Z60 | 32 284 B INITL 4 1059 B 703 32 285 FINIS CC 1 2 1063 F 1 32 286 BW *&5,REITER 8 1065 V |77 193 1 32 &B955)996PZ61Z60B|63Z60|B703F1V|771931 L037|72,|40|44,|51|59,|63|65104000322TAP8 287 B PHASE8 4 1073 B V13 33 288 CW HIGH8 4 1077 ) !80 33 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 289 MCM AREA,201 7 1081 P T33 201 33 290 CHAIN 2 MACRO 291 MCM 1 1088 P GEN 33 292 MCM 1 1089 P GEN 33 293 MLC @6@,SEEK 7 1090 M !19 125 33 294 B LOAD 4 1097 B 100 33 &BV13)!80PT33201PPM!19125B100 L028/00,|77|81,|88|89,|90|97104000332TAP8 295 TITLE DCW @SYMBOL TABLE|@ 13 1113 34 296 * 297 ORG *&X00 1200 &SYMBOL TABLE| L013/13,040040,040040,040040104000342TAP8 & L038S37)S00S00,040040,040040104000352TAP8 & L038S75)S38S38,040040,040040104000362TAP8 & L038T13)S76S76,040040,040040104000372TAP8 298 LINE DA 1X132,X2,|,C 1200 1332 38 & L019T32)T14T14,S00040,040040104000382TAP8 DC @|@ 1 1332 RMARK 39 299 * 300 AREA DA 1X180 1333 1512 39 301 * &| L001T32)T32T32,T33040,040040104000392TAP8 302 PHASE8 RTW 2,AREA 8 1513 L %U2 T33 R 40 303 BER TPERR 5 1521 B 363 L 40 304 BOOT LCA BOOT1,0180 7 1526 L X99 180 40 305 SW AREA&75 4 1533 , U08 40 306 MLC @0001@,175 7 1537 M !23 175 40 307 MLC AREA&99,180 7 1544 M U32 180 40 &L%U2T33RB363LLX99180,U08M!23175MU32180 L038V50,V21V26,V33V37,V44040104000402TAP8 308 CS 332 4 1551 / 332 41 309 CS 1 1555 / 41 310 MLC 171,290 7 1556 M 171 290 41 311 MLC @CLEAR STORAGE 1@,215 7 1563 M !38 215 41 312 MLC @1@,314 7 1570 M !39 314 41 313 WP 1 1577 6 41 314 LCA BOOT2,180 7 1578 L Y79 180 41 &/332/M171290M!38215M!393146LY79180 L034V84,V55V56,V63V70,V77V78104000412TAP8 315 MLC @0002@,175 7 1585 M !43 175 42 316 MLC AREA&99,180 7 1592 M U32 180 42 317 MLC 171,290 7 1599 M 171 290 42 318 MLC @CLEAR STORAGE 2@,215 7 1606 M !58 215 42 319 MLC @2@,314 7 1613 M !59 314 42 320 WP 1 1620 6 42 &M!43175MU32180M171290M!58215M!593146 L036W20,V92V99,W06W13,W20040104000422TAP8 321 LCA BOOT3,180 7 1621 L Z59 180 43 322 MLC @0003@,175 7 1628 M !63 175 43 323 MLC AREA&99,180 7 1635 M U32 180 43 324 MLC 171,290 7 1642 M 171 290 43 325 MLC @BOOTSTRAP @,215 7 1649 M !78 215 43 &LZ59180M!63175MU32180M171290M!78215 L035W55,W28W35,W42W49,040040104000432TAP8 326 MLC @3@,314 7 1656 M !79 314 44 327 CC T 2 1663 F T 44 328 WP 1 1665 6 44 329 CS 332 4 1666 / 332 44 330 CS 1 1670 / 44 331 RWD 2 5 1671 U %U2 R 44 332 BSP 1 5 1676 U %U1 B 44 &M!79314FT6/332/U%U2RU%U1B L025W80,W63W65,W66W70,W71W76104000442TAP8 333 BSP 1 5 1681 U %U1 B 45 334 BSP 1 5 1686 U %U1 B 45 335 BSP 1 5 1691 U %U1 B 45 336 BSP 1 5 1696 U %U1 B 45 337 BSP 1 5 1701 U %U1 B 45 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 338 BSP 1 5 1706 U %U1 B 45 339 CW HIGH8 4 1711 ) !80 45 &U%U1BU%U1BU%U1BU%U1BU%U1BU%U1B)!80 L034X14,W86W91,W96X01,X06X11104000452TAP8 340 B ENDPH8 4 1715 B 338 46 341 H 1 1719 . 46 &B338. L005X19,X19040,040040,040040104000462TAP8 &,008015,019026,030,034041,045,053,05705L039X58,040040,040040,040040104000472TAP8 342 DCW @,008015,019026,030,034041,045,053,057057@ 40 1759 48 &7 L001X59)X59X59,040040,040040104000482TAP8 &1026 L039X98)X60X60,040040,040040104000492TAP8 343 BOOT1 DC @1026 @ 40 1799 50 & L001X99)X99X99,040040,040040104000502TAP8 &L068112,102106,113/101099/I99,027A07002L039Y38,040040,040040,040040104000512TAP8 344 DCW @L068112,102106,113/101099/I99,027A070028@ 40 1839 52 &8 L001Y39)Y39Y39,040040,040040104000522TAP8 &)027B0010270B0261,001/001113I0 L039Y78)Y40Y40,040040,040040104000532TAP8 345 BOOT2 DC @)027B0010270B0261,001/001113I0 @ 40 1879 54 & L001Y79)Y79Y79,040040,040040104000542TAP8 &,008015,022029,036040,047054,061068,072L039Z18,040040,040040,040040104000552TAP8 346 DCW @,008015,022029,036040,047054,061068,072/@ 40 1919 56 &/ L001Z19)Z19Z19,040040,040040104000562TAP8 &061039 ,0010011040 L039Z58)Z20Z20,040040,040040104000572TAP8 347 BOOT3 DC @061039 ,0010011040 @ 40 1959 58 348 TABLE DCW @A@ 1 1960 58 349 DC @BCDEFGHIJKLMNOPQRSTUVWXYZ@ 25 1985 58 350 DC @|@ 1 1986 58 351 EDIT1 DCW @ 0 @ 6 1992 58 352 LTORG * 1993 DCW @|@ 1 1993 LIT 58 & ABCDEFGHIJKLMNOPQRSTUVWXYZ| 0 | L035Z93)Z59Z59,Z60Z87,Z93040104000582TAP8 218 @ @ 9 2002 LIT 59 @ @ 1 2003 LIT 59 @000@ 3 2006 LIT 59 @9@ 1 2007 LIT 59 @16@ 2 2009 LIT 59 @&X1@ 3 2012 LIT 59 @&X2@ 3 2015 LIT 59 & 000916&X1&X2 L022!15,!03!04,!07!08,!10!13104000592TAP8 @&X3@ 3 2018 LIT 60 @6@ 1 2019 LIT 60 @0001@ 4 2023 LIT 60 311 @CLEAR STORAGE 1@ 15 2038 LIT 60 @1@ 1 2039 LIT 60 @0002@ 4 2043 LIT 60 &&X360001CLEAR STORAGE 110002 L028!43,!19!20,!24!39,!40040104000602TAP8 318 @CLEAR STORAGE 2@ 15 2058 LIT 61 @2@ 1 2059 LIT 61 @0003@ 4 2063 LIT 61 325 @BOOTSTRAP @ 15 2078 LIT 61 @3@ 1 2079 LIT 61 353 HIGH8 DCW @}@ 1 2080 61 &CLEAR STORAGE 220003BOOTSTRAP 3} L037!80,!59!60,!64!79,!80040104000612TAP8 & N000000,040040,040040,040040B16700622TAP8 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00632TAP9 &,068072)063067/061039 ,001001104000642TAP9 354 EX SYSTEM B 167 62 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 355 JOB 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 356 * 357 * PHASE 9 - CONDENSING AND LISTING ROUTINE 358 * 359 * PHASE 9 IDENTIFICATION AT 333 360 * 361 ORG 333 0333 362 DCW @9@ 1 0333 65 363 * 364 H *-3 4 0334 . 334 65 365 RTW 1,333 8 0338 L %U1 333 R 65 366 BER TPERR 5 0346 B 363 L 65 367 BCE PHASE9,333,9 8 0351 B 649 333 9 65 368 H *-3 4 0359 . 359 65 369 * 370 ORG HIGH88 0649 &9.334L%U1333RB363LB6493339.359 L030362,334338,346351,359040104000652TAP9 371 PHASE9 B HSKPG 4 0649 B R87 66 372 * 373 ORG PHASE9&4 0653 374 HSKPG1 RTW 2,RECORD 8 0653 L %U2 R86 R 66 375 BER TPERR 5 0661 B 363 L 66 376 * 377 REINIT MLC @0@,COUNT#1 7 0666 M A58 A59 66 378 MLC @000@,X1 7 0673 M A62 089 66 379 MLC @000@,X2 7 0680 M A62 094 66 &BR87L%U2R86RB363LMA58A59MA62089MA62094 L038686,653661,666673,680040104000662TAP9 380 MLC @000@,X3 7 0687 M A62 099 67 381 MLC @0000@,POSCNT#4 7 0694 M A66 A70 67 382 MLC @ @,ASSMBD#8 7 0701 M A78 A86 67 383 SW 101,140 7 0708 , 101 140 67 384 B AGAIN 4 0715 B 756 67 385 * 386 GETOBJ CW AOPND-12 4 0719 ) A41 67 &MA62099MA66A70MA78A86,101140B756)A41 L036722,694701,708715,719040104000672TAP9 387 RTW 2,RECORD 8 0723 L %U2 R86 R 68 388 BER TPERR 5 0731 B 363 L 68 389 BEF EOF4 5 0736 B F33 K 68 390 SW AOPND-2,BOPND-2 7 0741 , A51 A54 68 391 B COMMNT,RECORD&5,* 8 0748 B O46 R91 * 68 392 * &L%U2R86RB363LBF33K,A51A54BO46R91* L033755,731736,741748,040040104000682TAP9 393 AGAIN BW SUBDA,SUBNXT 8 0756 V C57 C23 1 69 394 BW *&5,LITCTL 8 0764 V 776 C25 1 69 395 B *&13 4 0772 B 788 69 396 BW *&5,RECORD&3 8 0776 V 788 R89 1 69 397 B CDFULL 4 0784 B M88 69 &VC57C231V776C251B788V788R891BM88 L032787,764772,776784,040040104000692TAP9 398 BW CDFULL,ISOLAT 8 0788 V M88 C24 1 70 399 C OPER,@EX @ 7 0796 C ?04 A90 70 400 BE EXECUT 5 0803 B D03 S 70 401 C OPER,@XFR @ 7 0808 C ?04 A94 70 402 BE EXECUT 5 0815 B D03 S 70 403 C OPER,@CTL @ 7 0820 C ?04 A98 70 &VM88C241C?04A90BD03SC?04A94BD03SC?04A98L039826,796803,808815,820040104000702TAP9 404 BE PRINT1 5 0827 B Y43 S 71 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 405 * 406 C OPER,@JOB @ 7 0832 C ?04 B02 71 407 BU NOTJOB 5 0839 B 892 / 71 408 MLC RECORD&71,HEADNG 7 0844 M ?57 072 71 409 MLC PARAMT&4,SETUP-1 7 0851 M ?85 Q10 71 410 LCA SETUP-1,180 7 0858 L Q10 180 71 &BY43SC?04B02B892/M?57072M?85Q10LQ10180 L038864,832839,844851,858040104000712TAP9 411 NOP JOBACK&4 1ST-TIME-ONLY NOP 4 0865 N 884 72 412 MLC @B@,*-10 7 0869 M B03 865 72 413 B GETOVF 4 0876 B D63 72 414 JOBACK B PRINT1 4 0880 B Y43 72 415 B OVFLO 4 0884 B C27 72 416 B PRINT1 4 0888 B Y43 72 417 * 418 NOTJOB C OPER,@DS @ 7 0892 C ?04 B07 72 &N884MB03865BD63BY43BC27BY43C?04B07 L034898,869876,880884,888892104000722TAP9 419 BE DS 5 0899 B P11 S 73 420 C OPER,@END @ 7 0904 C ?04 B11 73 421 BE END 5 0911 B D15 S 73 422 BW PRINT2,RECORD 8 0916 V L24 R86 1 73 423 BCE INSTRT-8,LABEL-5, 8 0924 B 968 R91 73 &BP11SC?04B11BD15SVL24R861B968R91 L033931,904911,916924,040040104000732TAP9 424 BWZ *&5,LABEL-5,2 8 0932 V 944 R91 2 74 425 B INSTRT-8 4 0940 B 968 74 426 BW *&9,FSTIME 8 0944 V 960 C22 1 74 427 SW FSTIME 4 0952 , C22 74 428 B CDFULL 4 0956 B M88 74 429 CW FSTIME 4 0960 ) C22 74 430 SW ISOLAT 4 0964 , C24 74 &V944R912B968V960C221,C22BM88)C22,C24 L036967,940944,952956,960964104000742TAP9 431 BCE CONST,ICOUNT, 8 0968 B T05 ?73 75 432 * 433 INSTRT MLC POSCNT,SPACE#4 7 0976 M A70 B15 75 434 A ICOUNT,POSCNT 7 0983 A ?73 A70 75 435 C POSCNT,@0039@ 7 0990 C A70 B19 75 436 BL CDFULL 5 0997 B M88 T 75 &BT05?73 MA70B15A?73A70CA70B19BM88T L034|01,976983,990997,040040104000752TAP9 437 BCE CDFULL,COUNT,7 8 1002 B M88 A59 7 76 438 A @1@,COUNT 7 1010 A B20 A59 76 439 MLC POSCNT,SPACE 7 1017 M A70 B15 76 440 LCA LOCATN,SWADDR&X2 7 1024 L ?80 PM8 76 441 A @3@,X2 7 1031 A B21 094 76 &BM88A597AB20A59MA70B15L?80PM8AB21094 L036|37,|10|17,|24|31,040040104000762TAP9 442 LCA SWADDR-3&X2,SWADDR&X2 7 1038 L PM5 PM8 77 443 ZA ICOUNT,HOLD 7 1045 ? ?73 B95 77 444 MLC SWADDR&X2,ADDR 7 1052 M PM8 635 77 445 B MODAD 4 1059 B Q12 77 446 P4SK1 LCA RESULT-1,SWADDR&X2 7 1063 L C02 PM8 77 447 A ICOUNT,X3 7 1070 A ?73 099 77 &LPM5PM8??73B95MPM8635BQ12LC02PM8A?73099L039|76,|45|52,|59|63,|70040104000772TAP9 448 B SETXX 4 1077 B I75 78 449 NOP 1 1081 N 78 450 NOP 1 1082 N 78 451 NOP 1 1083 N 78 452 BCE IDONE,ICOUNT,1 8 1084 B /56 ?73 1 78 453 BCE ADMOD,ICOUNT,2 8 1092 B /67 ?73 2 78 454 MLC AOPND,ASSMBD-4 7 1100 M A53 A82 78 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &BI75NNNB/56?731B/67?732MA53A82 L030/06,|81|82,|83|84,|92/00104000782TAP9 455 BCE BRANCH,ICOUNT,4 8 1107 B /85 ?73 4 79 456 BCE BDMOD,ICOUNT,5 8 1115 B /96 ?73 5 79 457 MLC BOPND,ASSMBD-1 7 1123 M A56 A85 79 458 BCE NODMOD,ICOUNT,7 8 1130 B S14 ?73 7 79 459 MLC PARAMT&60,ASSMBD 7 1138 M A41 A86 79 &B/85?734B/96?735MA56A85BS14?737MA41A86 L038/44,/15/23,/30/38,040040104000792TAP9 460 MLC ASSMBD,100&X3 7 1145 M A86 1?0 80 461 B ASSOUT 4 1152 B S21 80 462 IDONE MLC ASSMBD-7,100&X3 7 1156 M A79 1?0 80 463 B ASSOUT 4 1163 B S21 80 464 ADMOD MLC PARAMT&60,ASSMBD-6 7 1167 M A41 A80 80 465 MLC ASSMBD-6,100&X3 7 1174 M A80 1?0 80 &MA861?0BS21MA791?0BS21MA41A80MA801?0 L036/80,/52/56,/63/67,/74040104000802TAP9 466 B ASSOUT 4 1181 B S21 81 467 BRANCH MLC ASSMBD-4,100&X3 7 1185 M A82 1?0 81 468 B ASSOUT 4 1192 B S21 81 469 BDMOD MLC PARAMT&60,ASSMBD-3 7 1196 M A41 A83 81 470 MLC ASSMBD-3,100&X3 7 1203 M A83 1?0 81 471 B ASSOUT 4 1210 B S21 81 &BS21MA821?0BS21MA41A83MA831?0BS21 L033S13,/85/92,/96S03,S10040104000812TAP9 472 NODMOD MLC ASSMBD-1,100&X3 7 1214 M A85 1?0 82 473 ASSOUT CS 332 4 1221 / 332 82 474 CS 1 1225 / 82 475 MLC ICOUNT,284 7 1226 M ?73 284 82 476 SW 303,299 7 1233 , 303 299 82 477 SW 295,293 7 1240 , 295 293 82 &MA851?0/332/M?73284,303299,295293 L033S46,S21S25,S26S33,S40040104000822TAP9 478 MLC ASSMBD,303 7 1247 M A86 303 83 479 MLC ASSMBD-1,301 7 1254 M A85 301 83 480 MLC ASSMBD-4,297 7 1261 M A82 297 83 481 MLC ASSMBD-7,293 7 1268 M A79 293 83 482 MLC @ @,ASSMBD 7 1275 M B29 A86 83 &MA86303MA85301MA82297MA79293MB29A86 L035S81,S54S61,S68S75,040040104000832TAP9 483 BCE *&5,PARAMT&60,G 8 1282 B S94 A41 G 84 484 B PRINT 4 1290 B X78 84 485 MLC PARAMT&64,309 7 1294 M A45 309 84 486 B PRINT 4 1301 B X78 84 487 * 488 CONST C OPER,@DA @ 7 1305 C ?04 B33 84 489 BE DAOUT 5 1312 B C45 S 84 &BS94A41GBX78MA45309BX78C?04B33BC45S L035T16,S90S94,T01T05,T12040104000842TAP9 490 BCE NUMOUT,PARAMT&60,M 8 1317 B X05 A41 M 85 491 BW *&5,PARAMT&65 8 1325 V T37 A46 1 85 492 B *&21 4 1333 B T57 85 493 BW *&9,FSTIME 8 1337 V T53 C22 1 85 494 SW FSTIME 4 1345 , C22 85 495 B CDFULL 4 1349 B M88 85 &BX05A41MVT37A461BT57VT53C221,C22BM88 L036T52,T25T33,T37T45,T49040104000852TAP9 496 CW FSTIME ))) 4 1353 ) C22 86 497 C OPER&1,@DC @ 7 1357 C ?05 B38 86 498 BU *&5 5 1364 B T73 / 86 499 CW ERRPOS-1 4 1369 ) ?71 86 500 MLC POSCNT,SPACE 7 1373 M A70 B15 86 501 A LITCNT,POSCNT 7 1380 A ?76 A70 86 &)C22C?05B38BT73/)?71MA70B15A?76A70 L034T86,T57T64,T69T73,T80040104000862TAP9 502 C POSCNT,@0039@ 7 1387 C A70 B19 87 503 BL TSTLNG 5 1394 B J58 T 87 504 BCE CDFULL,COUNT,7 8 1399 B M88 A59 7 87 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 505 A @1@,COUNT ))) 7 1407 A B20 A59 87 506 MLC POSCNT,SPACE 7 1414 M A70 B15 87 &CA70B19BJ58TBM88A597AB20A59MA70B15 L034U20,T94T99,U07U14,040040104000872TAP9 507 BW NOWM1,SPLIT&5 ON 2ND HALF OF LONG CONSTANT 8 1421 V J11 K38 1 88 508 C OPER,@DC @ 7 1429 C ?04 B42 88 509 BE NOWM 5 1436 B !09 S 88 510 FSTCON BCE *&5,COUNT,1 8 1441 B U53 A59 1 88 511 B CONBCK-14 4 1449 B U85 88 512 MLC LOCATN,SWADDR 7 1453 M ?80 P48 88 &VJ11K381C?04B42B!09SBU53A591BU85M?80P48L039U59,U29U36,U41U49,U53040104000882TAP9 513 ZA @1@,HOLD 7 1460 ? B20 B95 89 514 A @3@,X2 7 1467 A B21 094 89 515 LCA SWADDR-3&X2,SWADDR&X2 7 1474 L PM5 PM8 89 516 B CONBCK&7 4 1481 B V06 89 517 A @3@,X2 7 1485 A B21 094 89 518 LCA SWADDR-3&X2,SWADDR&X2 7 1492 L PM5 PM8 89 &?B20B95AB21094LPM5PM8BV06AB21094LPM5PM8L039U98,U67U74,U81U85,U92040104000892TAP9 519 CONBCK MLC LITCNT,HOLD 7 1499 M ?76 B95 90 520 MLC SWADDR&X2,ADDR 7 1506 M PM8 635 90 521 B MODAD 4 1513 B Q12 90 522 P4SK2 MLC RESULT-1,SWADDR&X2 7 1517 M C02 PM8 90 523 A LITCNT,X3 7 1524 A ?76 099 90 524 MLC LITCNT,X1 ))) 7 1531 M ?76 089 90 &M?76B95MPM8635BQ12MC02PM8A?76099M?76089L039V37,V06V13,V17V24,V31040104000902TAP9 525 MLC @M@,P4SK2&14 7 1538 M B43 V31 91 526 BCE DSA,OPER-1,A 8 1545 B W49 ?03 A 91 527 BW SETLIT,RECORD&3 8 1553 V W60 R89 1 91 528 BCE NUMALF,PARAMT,@ 8 1561 B W30 ?81 @ 91 529 BWZ NUMALF,PARAMT,2 8 1569 V W30 ?81 2 91 &MB43V31BW49?03AVW60R891BW30?81@VW30?812L039V76,V45V53,V61V69,040040104000912TAP9 530 BCE *&20,PARAMT,& 8 1577 B W04 ?81 & 92 531 BCE *&12,PARAMT,- 8 1585 B W04 ?81 - 92 532 MLC AOPND,100&X3 7 1593 M A53 1?0 92 533 B NUMOUT 4 1600 B X05 92 534 BWZ *&12,PARAMT&1,2 8 1604 V W23 ?82 2 92 &BW04?81&BW04?81-MA531?0BX05VW23?822 L035W11,V85V93,W00W04,040040104000922TAP9 535 MLC @ @,PARAMT&19 7 1612 M B45 A00 93 536 B *-29 4 1619 B V93 93 537 MZ PARAMT,PARAMT&X1 7 1623 Y ?81 ?Y1 93 538 NUMALF SW PARAMT&1 4 1630 , ?82 93 539 MLC PARAMT&X1,100&X3 7 1634 M ?Y1 1?0 93 540 CW PARAMT&1 4 1641 ) ?82 93 541 B NUMOUT 4 1645 B X05 93 542 * &MB45A00BV93Y?81?Y1,?82M?Y11?0)?82BX05 L037W48,W19W23,W30W34,W41W45104000932TAP9 543 DSA MLC AOPND,100&X3 7 1649 M A53 1?0 94 544 B NUMOUT 4 1656 B X05 94 545 * 546 SETLIT SW PARAMT&30,LITCTL 7 1660 , A11 C25 94 547 BCE *&8,RECORD&20,# 8 1667 B W82 ?06 # 94 548 MLC PARAMT&29&X1,100&X3 7 1675 M A/0 1?0 94 549 CW PARAMT&30 4 1682 ) A11 94 &MA531?0BX05,A11C25BW82?06#MA/01?0)A11 L037W85,W56W60,W67W75,W82040104000942TAP9 550 BCE *&5,RECORD&20,@ 8 1686 B W98 ?06 @ 95 551 B NUMOUT 4 1694 B X05 95 552 MLC @@@,RECORD&21&X1 7 1698 M B46 ?|7 95 553 NUMOUT CS 332 4 1705 / 332 95 554 CS 1 1709 / 95 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 555 BW CONST,TSTLNG&9 SUPPRESS PRINTING ON 1ST HALF 8 1710 V T05 J67 1 95 &BW98?06@BX05MB46?|7/332/VT05J671 L032X17,W94W98,X05X09,X10040104000952TAP9 556 BW *&5,SPLIT&5 RESTORE LONG CONSTANT FOR PRINT 8 1718 V X30 K38 1 96 557 B NOTLNG 4 1726 B X41 96 558 CW SPLIT&5 4 1730 ) K38 96 559 A @0039@,LITCNT 7 1734 A B19 ?76 96 560 NOTLNG MCS LITCNT,284 7 1741 Z ?76 284 96 561 SW AOPND-2 4 1748 , A51 96 &VX30K381BX41)K38AB19?76Z?76284,A51 L034X51,X26X30,X34X41,X48040104000962TAP9 562 MLC AOPND,296 7 1752 M A53 296 97 563 SW PARAMT&60 4 1759 , A41 97 564 MLC PARAMT&64,309 7 1763 M A45 309 97 565 BCE PRINT1,PARAMT&60,M 8 1770 B Y43 A41 M 97 566 * 567 PRINT MCS CARDCT,314 7 1778 Z C17 314 97 &MA53296,A41MA45309BY43A41MZC17314 L033X84,X59X63,X70X78,040040104000972TAP9 568 MLC LOCATN,ADDR ))) 7 1785 M ?80 635 98 569 B DECOD 4 1792 B 497 98 570 MLC @Z@,PRINT 7 1796 M B47 X78 98 571 LCA EDIT,290 7 1803 L P45 290 98 572 MCE WORK,290 7 1810 E 640 290 98 573 C WORK,@00080@ 7 1817 C 640 B52 98 &M?80635B497MB47X78LP45290E640290C640B52L039Y23,X92X96,Y03Y10,Y17040104000982TAP9 574 BL PRINT1 5 1824 B Y43 T 99 575 MLC @ADDR@,319 7 1829 M B56 319 99 576 A @1@,ERRCNT 7 1836 A B20 C21 99 577 * 578 PRINT1 MLC LABEL,219 7 1843 M R96 219 99 579 SW 214,221 7 1850 , 214 221 99 &BY43TMB56319AB20C21MR96219,214221 L033Y56,Y29Y36,Y43Y50,040040104000992TAP9 580 SW 227,201 7 1857 , 227 201 100 581 CW RECORD&3,RECORD&4 7 1864 ) R89 R90 100 582 MLC OPER&1,225 7 1871 M ?05 225 100 583 MLC RECORD&71,278 7 1878 M ?57 278 100 584 SW RECORD,RECORD&2 7 1885 , R86 R88 100 585 SW RECORD&75 4 1892 , ?61 100 &,227201)R89R90M?05225M?57278,R86R88,?61L039Y95,Y64Y71,Y78Y85,Y92040104001002TAP9 586 MCS RECORD&79,204 7 1896 Z ?65 204 101 587 MCS RECORD&1,207 7 1903 Z R87 207 101 588 MLC RECORD&4,211 7 1910 M R90 211 101 589 BW *&5,ERRPOS 8 1917 V Z29 ?72 1 101 590 B *&19 4 1925 B Z47 101 &Z?65204ZR87207MR90211VZ29?721BZ47 L033Z28,Z03Z10,Z17Z25,040040104001012TAP9 591 MLC @INVALID@,322 7 1929 M B63 322 102 592 A @1@,ERRCNT 7 1936 A B20 C21 102 593 B TSTOVF 4 1943 B Z99 102 594 BW *&5,ERRPOS-1 8 1947 V Z59 ?71 1 102 595 B *&15 4 1955 B Z73 102 596 MLC @OPER@,325 7 1959 M B67 325 102 &MB63322AB20C21BZ99VZ59?711BZ73MB67325 L037Z65,Z36Z43,Z47Z55,Z59040104001022TAP9 597 A @1@,ERRCNT 7 1966 A B20 C21 103 598 BW *&5,ERRPOS-2 8 1973 V Z85 ?70 1 103 599 B *&15 4 1981 B Z99 103 600 MLC @SYM@,330 7 1985 M B70 330 103 601 A @1@,ERRCNT 7 1992 A B20 C21 103 602 TSTOVF W 1 1999 2 103 603 BCV OVFLO 5 2000 B C27 @ 103 &AB20C21VZ85?701BZ99MB70330AB20C212BC27@L039!04,Z73Z81,Z85Z92,Z99!00104001032TAP9 604 B GETOBJ 4 2005 B 719 104 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 605 * 606 NOWM BCE *&5,COUNT,1 8 2009 B !21 A59 1 104 607 B CONBCK 4 2017 B U99 104 608 MLC LOCATN,ADDR ))) 7 2021 M ?80 635 104 609 ZS LITCNT,HOLD 7 2028 ! ?76 B95 104 610 A @1@,HOLD 7 2035 A B20 B95 104 &B719B!21A591BU99M?80635!?76B95AB20B95 L037!41,!09!17,!21!28,!35040104001042TAP9 611 B MODAD 4 2042 B Q12 105 612 MLC RESULT-1,SWADDR&6 7 2046 M C02 P54 105 613 MLC SWADDR&6,SWADDR&3 7 2053 M P54 P51 105 614 MLC 1 2060 M 105 615 MLC SWADDR&6,ADDR 7 2061 M P54 635 105 616 MLC LITCNT,HOLD 7 2068 M ?76 B95 105 617 B MODAD 4 2075 B Q12 105 &BQ12MC02P54MP54P51MMP54635M?76B95BQ12 L037!78,!46!53,!60!61,!68!75104001052TAP9 618 MLC RESULT-1,SWADDR&9 7 2079 M C02 P57 106 619 MLC @3@,COUNT 7 2086 M B21 A59 106 620 MLC @9@,X2 7 2093 M B71 094 106 621 MLC @)@,147 7 2100 M B72 147 106 622 B P4SK2&7 4 2107 B V24 106 623 NOWM1 MLC LOCATN,ADDR 7 2111 M ?80 635 106 &MC02P57MB21A59MB71094MB72147BV24M?80635L039J17,!86!93,J00J07,J11040104001062TAP9 624 ZA PARAMT&69,HOLD 7 2118 ? A50 B95 107 625 B MODAD 4 2125 B Q12 107 626 MLC RESULT-1,LOCATN 7 2129 M C02 ?80 107 627 SW PARAMT&40 4 2136 , A21 107 628 MLC @0039@,X1 7 2140 M B19 089 107 629 MLC @A@,P4SK2&14 7 2147 M B73 V31 107 &?A50B95BQ12MC02?80,A21MB19089MB73V31 L036J53,J25J29,J36J40,J47040104001072TAP9 630 B NOWM&12 4 2154 B !21 108 631 * TEST FOR CONSTANTS LONGER THAN 39 CHARS 632 TSTLNG BW REST,TSTLNG&9 8 2158 V K98 J67 1 108 633 BW ERRLIT,ERRPOS 8 2166 V K22 ?72 1 108 634 BW SPLIT,REST&5 8 2174 V K33 L03 1 108 635 C LITCNT,@040@ 7 2182 C ?76 B76 108 &B!21VK98J671VK22?721VK33L031C?76B76 L035J88,J58J66,J74J82,040040104001082TAP9 636 BH CDFULL SHORT CONSTANT 5 2189 B M88 U 109 637 C LITCNT,@53@ 7 2194 C ?76 B78 109 638 BH *&9 5 2201 B K14 U 109 639 SW ERRPOS 4 2206 , ?72 109 640 B CDFULL 4 2210 B M88 109 641 SW REST&5 4 2214 , L03 109 642 B CDFULL RELEASE PREVIOUS CARD 4 2218 B M88 109 &BM88UC?76B78BK14U,?72BM88,L03BM88 L033K21,J94K01,K06K10,K14K18104001092TAP9 643 ERRLIT MLC @N@,PRINT 7 2222 M B79 X78 110 644 B NUMOUT 4 2229 B X05 110 645 * SET UP FIRST 39 POSITIONS OF LONG CONSTANT 646 SPLIT CW REST&5 4 2233 ) L03 110 647 LCA LITCNT,PARAMT&69 SAVE ORIGINAL LENGTH 7 2237 L ?76 A50 110 648 MLC @0039@,LITCNT SET LENGTH TO 39 7 2244 M B19 ?76 110 649 MLC @0039@,POSCNT 7 2251 M B19 A70 110 &MB79X78BX05)L03L?76A50MB19?76MB19A70 L036K57,K29K33,K37K44,K51040104001102TAP9 650 S @0039@,PARAMT&69 FIGURE REMAINDER 7 2258 S B19 A50 111 651 MLC LOCATN,ADDR 7 2265 M ?80 635 111 652 ZS PARAMT&69,HOLD 7 2272 ! A50 B95 111 653 B MODAD 4 2279 B Q12 111 654 MLC RESULT-1,LOCATN 7 2283 M C02 ?80 111 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 655 SW TSTLNG&9 4 2290 , J67 111 &SB19A50M?80635!A50B95BQ12MC02?80,J67 L036K93,K65K72,K79K83,K90040104001112TAP9 656 B FSTCON-34 4 2294 B U07 112 657 * PUNCH THE FIRST 39 POSITIONS 658 REST CW TSTLNG&9 4 2298 ) J67 112 659 MLC PARAMT&69,LITCNT 7 2302 M A50 ?76 112 660 MZ @ @,LITCNT 7 2309 Y B80 ?76 112 661 SW SPLIT&5 4 2316 , K38 112 662 B CDFULL 4 2320 B M88 112 663 * 664 PRINT2 BCV OVFLO 5 2324 B C27 @ 112 &BU07)J67MA50?76YB80?76,K38BM88BC27@ L035L28,K98L02,L09L16,L20L24104001122TAP9 665 CS 332 4 2329 / 332 113 666 CS 1 2333 / 113 667 C OPER,@EQU @ 7 2334 C ?04 B84 113 668 BE CTL 5 2341 B M25 S 113 669 BW *&9,FSTIME 8 2346 V L62 C22 1 113 670 SW FSTIME 4 2354 , C22 113 671 B CDFULL 4 2358 B M88 113 &/332/C?04B84BM25SVL62C221,C22BM88 L033L61,L33L34,L41L46,L54L58104001132TAP9 672 CW FSTIME 4 2362 ) C22 114 673 SW 305 4 2366 , 305 114 674 BCE *&5,PARAMT&60,G 8 2370 B L82 A41 G 114 675 B *&8 4 2378 B L89 114 676 MLC PARAMT&64,309 7 2382 M A45 309 114 677 MLC LOCATN,ADDR 7 2389 M ?80 635 114 678 B DECOD 4 2396 B 497 114 &)C22,305BL82A41GBL89MA45309M?80635B497 L038L99,L66L70,L78L82,L89L96104001142TAP9 679 LCA EDIT,297 7 2400 L P45 297 115 680 MCE WORK,297 7 2407 E 640 297 115 681 MLC @L@,140 7 2414 M B85 140 115 682 B PRINT1 4 2421 B Y43 115 683 * 684 CTL MLC LOCATN,ADDR 7 2425 M ?80 635 115 &LP45297E640297MB85140BY43M?80635 L032M31,M07M14,M21M25,040040104001152TAP9 685 BCE CDFULL-11,LOCATN-2,% 8 2432 B M77 ?78 % 116 686 B DECOD 4 2440 B 497 116 687 LCA EDIT,290 7 2444 L P45 290 116 688 MCE WORK,290 7 2451 E 640 290 116 689 BWZ PRINT1,LOCATN-1,2 8 2458 V Y43 ?79 2 116 &BM77?78%B497LP45290E640290VY43?792 L034M65,M40M44,M51M58,040040104001162TAP9 690 MLC @X@,292 7 2466 M B86 292 117 691 B PRINT1 4 2473 B Y43 117 692 MLC LOCATN,290 7 2477 M ?80 290 117 693 B PRINT1 4 2484 B Y43 117 694 * 695 CDFULL CW ISOLAT,LITCTL 7 2488 ) C24 C25 117 696 BCE AGAIN,COUNT,0 8 2495 B 756 A59 0 117 &MB86292BY43M?80290BY43)C24C25B756A590 L037N02,M73M77,M84M88,M95040104001172TAP9 697 MLC SWADDR&X2,ADDR 7 2503 M PM8 635 118 698 MLC @040@,SWADDR&X2 7 2510 M B76 PM8 118 699 MLC SWADDR&18,167 7 2517 M P66 167 118 700 MLC 1 2524 M 118 701 MLC SWADDR&12,160 7 2525 M P60 160 118 702 MLC 1 2532 M 118 703 MLC SWADDR&6,153 7 2533 M P54 153 118 &MPM8635MB76PM8MP66167MMP60160MMP54153 L037N39,N10N17,N24N25,N32N33104001182TAP9 704 MLC 1 2540 M 119 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 705 ZS @1@,HOLD 7 2541 ! B20 B95 119 706 B MODAD 4 2548 B Q12 119 707 P4SK3 MLC RESULT-1,146 7 2552 M C02 146 119 708 SW 141 4 2559 , 141 119 709 MLC SPACE,143 7 2563 M B15 143 119 710 MLC CARDCT,175 7 2570 M C17 175 119 &M!B20B95BQ12MC02146,141MB15143MC17175 L037N76,N41N48,N52N59,N63N70104001192TAP9 711 A @1@,CARDCT 7 2577 A B20 C17 120 712 P 1 2584 4 120 713 CS 139 4 2585 / 139 120 714 MLC RESULT-1,ADDR 7 2589 M C02 635 120 715 B DECOD 4 2596 B 497 120 716 C WORK,@04000@ 7 2600 C 640 B91 120 717 BH *&5 5 2607 B O16 U 120 &AB20C174/139MC02635B497C640B91BO16U L035O11,N84N85,N89N96,O00O07104001202TAP9 718 SW EXCEED 4 2612 , C26 121 719 LCA @040@,SWADDR&18 7 2616 L B76 P66 121 720 LCA SWADDR&18,SWADDR&15 7 2623 L P66 P63 121 721 CHAIN 5 MACRO 722 LCA 1 2630 L GEN 121 723 LCA 1 2631 L GEN 121 724 LCA 1 2632 L GEN 121 725 LCA 1 2633 L GEN 121 &,C26LB76P66LP66P63LLLL L022O33,O16O23,O30O31,O32O33104001212TAP9 726 LCA 1 2634 L GEN 122 727 LCA SETUP-1,180 7 2635 L Q10 180 122 728 B REINIT 4 2642 B 666 122 729 * 730 COMMNT SW RECORD&5 4 2646 , R91 122 731 BCV OVFLO 5 2650 B C27 @ 122 732 CS 0332 4 2655 / 332 122 733 CS 1 2659 / 122 &LLQ10180B666,R91BC27@/332/ L026O59,O35O42,O46O50,O55O59104001222TAP9 734 CW RECORD&15,RECORD&20 7 2660 ) ?01 ?06 123 735 MLC RECORD&71,280 7 2667 M ?57 280 123 736 SW RECORD,RECORD&2 7 2674 , R86 R88 123 737 MCS RECORD&1,207 7 2681 Z R87 207 123 738 MLC RECORD&4,211 7 2688 M R90 211 123 &)?01?06M?57280,R86R88ZR87207MR90211 L035O94,O67O74,O81O88,040040104001232TAP9 739 MCS RECORD&79,204 7 2695 Z ?65 204 124 740 BCV OVFLO 5 2702 B C27 @ 124 741 W GETOBJ 4 2707 2 719 124 742 * 743 DS BW *&9,FSTIME 8 2711 V P27 C22 1 124 744 SW FSTIME 4 2719 , C22 124 745 B CDFULL 4 2723 B M88 124 746 CW FSTIME 4 2727 ) C22 124 &Z?65204BC27@2719VP27C221,C22BM88)C22 L036P30,P02P07,P11P19,P23P27104001242TAP9 747 CS 332 4 2731 / 332 125 748 CS 1 2735 / 125 749 B PRINT&7 4 2736 B X85 125 750 * *** CONSTANTS *** 751 EDIT DCW @ 0 @ 6 2745 125 752 SWADDR DCW @040@ 3 2748 125 753 DCW @040@ 3 2751 125 754 DCW @040@ 3 2754 125 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &/332/BX85 0 040040040 L024P54,P35P36,P40P46,P49P52104001252TAP9 755 DCW @040@ 3 2757 126 756 DCW @040@ 3 2760 126 757 DCW @040@ 3 2763 126 758 DCW @040@ 3 2766 126 759 DCW @040@ 3 2769 126 &040040040040040 L015P69,P58P61,P64P67,040040104001262TAP9 &L ,040040,040040,0400401040 L039Q08,040040,040040,040040104001272TAP9 760 SETUP DCW @L ,040040,040040,0400401040 |@ 42 2811 128 761 * COPY OF ROUTINE TO MODIFY MACHINE ADDRESS 762 * BY A PLUS OR MINUS ADJUSTMENT VALUE 763 * * ADDRESS PLACED AT ADDR 764 * * ADJUSTMENT VALUE TAKEN FROM PARAMT&10 765 * * MODIFIED ADDRESS PLACED AT RESULT-1 766 MODAD SBR MDEXIT&3 4 2812 H R17 128 767 BAV *&1 5 2816 B Q21 Z 128 768 CW NEG1#1 4 2821 ) B92 128 769 BM DECR1,HOLD#3 8 2825 V R52 B95 K 128 & |HR17BQ21Z)B92VR52B95K L024Q32)Q09Q09,Q12Q16,Q21Q25104001282TAP9 770 SETIN NOP @?0@ 4 2833 N B97 129 771 ORG SETIN 2833 &NB97 L004Q36,040040,040040,040040104001292TAP9 772 MLC ADDR,RESULT-1 7 2833 M 635 C02 130 773 MZ @ @,RESULT-1 7 2840 Y B80 C02 130 774 A HOLD,RESULT-1 7 2847 A B95 C02 130 775 MZ ADDR,RESULT-1 7 2854 Y 635 C02 130 776 MZ RESULT-3,YYY 7 2861 Y C00 R51 130 &M635C02YB80C02AB95C02Y635C02YC00R51 L035Q67,Q40Q47,Q54Q61,040040104001302TAP9 777 MZ ADDR-2,XXX 7 2868 Y 633 R50 131 778 BW MDEXIT&4,NEG1 8 2875 V R18 B92 1 131 779 C XXX,YYY 7 2883 C R50 R51 131 780 BH *&5 5 2890 B Q99 U 131 781 B MDEXIT 4 2895 B R14 131 782 SW RESULT-1 4 2899 , C02 131 &Y633R50VR18B921CR50R51BQ99UBR14,C02 L035R02,Q75Q83,Q90Q95,Q99040104001312TAP9 783 A @|0@,RESULT#4 7 2903 A B99 C03 132 784 CW RESULT-1 4 2910 ) C02 132 785 MDEXIT B 000 4 2914 B 000 132 786 BAV MDEXIT 5 2918 B R14 Z 132 787 C XXX,YYY 7 2923 C R50 R51 132 788 BH MDEXIT 5 2930 B R14 U 132 789 SW RESULT-1 4 2935 , C02 132 &AB99C03)C02B000BR14ZCR50R51BR14U,C02 L036R38,R10R14,R18R23,R30R35104001322TAP9 790 A @?0@,RESULT 7 2939 A B97 C03 133 791 B MDEXIT-4 4 2946 B R10 133 792 XXX DCW @2@ 1 2950 133 793 YYY DCW @2@ 1 2951 133 794 DECR1 SW NEG1 4 2952 , B92 133 795 A @999@,HOLD 7 2956 A C06 B95 133 796 A @?01@,HOLD 7 2963 A C09 B95 133 &AB97C03BR1022,B92AC06B95AC09B95 L031R69,R46R50,R51R52,R56R63104001332TAP9 797 B SETIN 4 2970 B Q33 134 798 MODZR MLC HOLD,RESULT-1 7 2974 M B95 C02 134 799 B MDEXIT 4 2981 B R14 134 800 H 1 2985 . 134 801 * 802 * INPUT RECORD AREA 803 * 804 99 RECORD DA 1X80,| 2986 3066 134 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 805 LABEL 11 2996 SBFLD 806 OPER 19 3004 SBFLD &BQ33MB95C02BR14. L016R85,R74R81,R85R86,040040104001342TAP9 DC @|@ 1 3066 RMARK 135 807 PARTBL DA 1X90,| 3067 3157 135 808 99 AADDR 1,1 3067 FIELD 135 809 99 BADDR 2,2 3068 FIELD 135 810 99 ERRPOS 6 3072 SBFLD 811 99 ICOUNT 7,7 3073 FIELD 135 &| L001?66)?66?66,?67?67,?68?73104001352TAP9 812 99 LITCNT 8,10 3076 FIELD 136 813 99 ACTOP 11,11 3077 FIELD 136 814 99 LOCATN 12,14 3080 FIELD 136 815 99 PARAMT 15,15 3081 FIELD 136 816 AOPND 85,87 3153 FIELD 136 817 BOPND 88,90 3156 FIELD 136 & L001001,?74?77,?78?81,A51A54104001362TAP9 DC @|@ 1 3157 RMARK 137 818 * 819 ORG RECORD&1 2987 &| L001A57)A57A57,040040,040040104001372TAP9 820 HSKPG MLC @0004@,CARDCT#4 7 2987 M C13 C17 138 821 MLC @0000@,ERRCNT#4 7 2994 M A66 C21 138 822 CW FSTIME#1,SUBNXT#1 7 3001 ) C22 C23 138 823 CW ISOLAT#1,LITCTL#1 7 3008 ) C24 C25 138 824 CW EXCEED#1 4 3015 ) C26 138 825 CS 139 4 3019 / 139 138 &MC13C17MA66C21)C22C23)C24C25)C26/139 L036?22,R94?01,?08?15,?19040104001382TAP9 826 CS 80 4 3023 / 080 139 827 SW 21 4 3027 , 021 139 828 B HSKPG1 4 3031 B 653 139 829 H 1 3035 . 139 830 LTORG PARTBL&91 3158 &/080,021B653. L013?35,?27?31,?35040,040040104001392TAP9 DCW @0@ 1 3158 LIT 140 377 COUNT #01 1 3159 AREA 140 @000@ 3 3162 LIT 140 @0000@ 4 3166 LIT 140 381 POSCNT #04 4 3170 AREA 140 382 @ @ 8 3178 LIT 140 382 ASSMBD #08 8 3186 AREA 140 &0 0000000 L029A86,A59A60,A63A67,A71A79104001402TAP9 @EX @ 4 3190 LIT 141 @XFR @ 4 3194 LIT 141 @CTL @ 4 3198 LIT 141 @JOB @ 4 3202 LIT 141 @B@ 1 3203 LIT 141 @DS @ 4 3207 LIT 141 @END @ 4 3211 LIT 141 &EX XFR CTL JOB BDS END L025B11,A91A95,A99B03,B04B08104001412TAP9 433 SPACE #04 4 3215 AREA 142 @0039@ 4 3219 LIT 142 @1@ 1 3220 LIT 142 @3@ 1 3221 LIT 142 482 @ @ 8 3229 LIT 142 @DA @ 4 3233 LIT 142 497 @DC @ 5 3238 LIT 142 & 003913 DA DC L027B38,B16B20,B21B22,B30B34104001422TAP9 @DC @ 4 3242 LIT 143 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @M@ 1 3243 LIT 143 @ @ 2 3245 LIT 143 @@@ 1 3246 LIT 143 @Z@ 1 3247 LIT 143 573 @00080@ 5 3252 LIT 143 @ADDR@ 4 3256 LIT 143 &DC M @Z00080ADDR L018B56,B43B44,B46B47,B48B53104001432TAP9 591 @INVALID@ 7 3263 LIT 144 @OPER@ 4 3267 LIT 144 @SYM@ 3 3270 LIT 144 @9@ 1 3271 LIT 144 @)@ 1 3272 LIT 144 @A@ 1 3273 LIT 144 @040@ 3 3276 LIT 144 &INVALIDOPERSYM9)A040 L020B76,B64B68,B71B72,B73B74104001442TAP9 @53@ 2 3278 LIT 145 @N@ 1 3279 LIT 145 @ @ 1 3280 LIT 145 @EQU @ 4 3284 LIT 145 @L@ 1 3285 LIT 145 @X@ 1 3286 LIT 145 716 @04000@ 5 3291 LIT 145 &53N EQU LX04000 L015B91,B79B80,B81B85,B86B87104001452TAP9 768 NEG1 #01 1 3292 AREA 146 769 HOLD #03 3 3295 AREA 146 @?0@ 2 3297 LIT 146 @|0@ 2 3299 LIT 146 783 RESULT #04 4 3303 AREA 146 @999@ 3 3306 LIT 146 @?01@ 3 3309 LIT 146 & ?0|0 999?01 L018C09,B93B96,B98C00,C04C07104001462TAP9 @0004@ 4 3313 LIT 147 820 CARDCT #04 4 3317 AREA 147 821 ERRCNT #04 4 3321 AREA 147 822 FSTIME #01 1 3322 AREA 147 822 SUBNXT #01 1 3323 AREA 147 823 ISOLAT #01 1 3324 AREA 147 823 LITCTL #01 1 3325 AREA 147 &0004 L016C25,C14C18,C22C23,C24C25104001472TAP9 824 EXCEED #01 1 3326 AREA 148 831 * 832 * CALLING LINKAGE FOR PHASE 9 SUBROUTINES 833 * ON SYSTEMS TAPE 834 * 835 * *** PAGE OVERFLOW CALL *** 836 OVFLO SBR OVFEXT 4 3327 H C40 148 837 CC 1 2 3331 F 1 148 838 B GETOVF 4 3333 B D63 148 839 OVFOUT B JOBACK 4 3337 B 880 148 840 OVFEXT EQU * 3340 841 NOP PAGENO#3 4 3341 N E16 148 842 * 843 * *** DA HEADER CALL *** 844 DAOUT BW DAHDR,FSTIME 8 3345 V E30 C22 1 148 & HC40F1BD63B880NE16VE30C221 L027C52,C27C31,C33C37,C41C45104001482TAP9 845 B GETDA 4 3353 B D55 149 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 846 * 847 * *** DA SUBSEQUENT ENTRY CALL *** 848 SUBDA NOP 000,000,0 8 3357 N 000 000 0 149 849 NOP FSTIME 4 3365 N C22 149 850 BCE GETSUB,OPER-3, 8 3369 B D47 ?01 149 851 A @1@,COUNT 7 3377 A E17 A59 149 852 DADONE CW SUBNXT,FSTIME 7 3384 ) C23 C22 149 &BD55N0000000NC22BD47?01 AE17A59)C23C22 L038C90,C57C65,C69C77,C84040104001492TAP9 853 BCE REINIT,COUNT,0 8 3391 B 666 A59 0 150 854 B P4SK3&18 4 3399 B N70 150 855 * 856 * *** EX AND XFR CALL *** 857 EXECUT BW SETEXC,FSTIME 8 3403 V E38 C22 1 150 858 B GETEX 4 3411 B D39 150 859 * 860 * *** END CARD - END OF JOB CALL *** 861 END BW END2,FSTIME 8 3415 V E26 C22 1 150 862 SW FSTIME 4 3423 , C22 150 &B666A590BN70VE38C221BD39VE26C221,C22 L036D26,C99D03,D11D15,D23040104001502TAP9 863 B GETEND 4 3427 B D31 151 864 * 865 * 866 * ROUTINE TO ORDER THE DESIRED SUBROUTINE 867 GETEND RTW 1,OVRLAY 8 3431 L %U1 E18 R 151 868 GETEX RTW 1,OVRLAY 8 3439 L %U1 E18 R 151 869 GETSUB RTW 1,OVRLAY 8 3447 L %U1 E18 R 151 870 GETDA RTW 1,OVRLAY 8 3455 L %U1 E18 R 151 &BD31L%U1E18RL%U1E18RL%U1E18RL%U1E18R L036D62,D31D39,D47D55,040040104001512TAP9 871 GETOVF RTW 1,OVRLAY 8 3463 L %U1 E18 R 152 872 BER TPERR 5 3471 B 363 L 152 873 BEF *&1 5 3476 B D81 K 152 874 B SUBRT 4 3481 B E22 152 875 * 876 * ROUTINE TO REPOSITION SYSTEMS TAPE AFTER 877 * SUBROUTINE IS FINISHED 878 BSP5 BSP 1 5 3485 U %U1 B 152 879 BSP4 BSP 1 5 3490 U %U1 B 152 880 BSP3 BSP 1 5 3495 U %U1 B 152 &L%U1E18RB363LBD81KBE22U%U1BU%U1BU%U1B L037D99,D71D76,D81D85,D90D95104001522TAP9 881 BSP2 BSP 1 5 3500 U %U1 B 153 882 BSP1 BSP 1 5 3505 U %U1 B 153 883 B OVRLAY EXIT FROM SUBRT ITS FIRST INSTR 4 3510 B E18 153 884 * 885 LTORG * 3514 841 PAGENO DCW #03 3 3516 AREA 153 @1@ 1 3517 LIT 153 886 * 887 * ***** COMMON AREA FOR SUBROUTINES ***** 888 * 889 OVRLAY H 1 3518 . 153 890 * &U%U1BU%U1BBE18 1. L019E18,E05E10,E14E17,E18040104001532TAP9 891 3998 DCW @}@ 1 3998 154 892 * 893 ORG 3975 3975 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &} L001I98,040040,040040,040040104001542TAP9 894 SETXX SW AOPND-12 4 3975 , A41 155 895 MLC ACTOP,ASSMBD-7 7 3979 M ?77 A79 155 896 B P4SK1&21 4 3986 B |84 155 &,A41M?77A79B|84 L015I89,I79I86,040040,040040104001552TAP9 & N000000,040040,040040,040040B16701562TAP9 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01572TAP9 &,068072)063067/061039 ,001001104001582TAP9 897 EX SYSTEM B 167 156 1 PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD 2TAP9 PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 898 JOB PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD 899 * 900 * OVERLAY SYSTEMS TAPE CONTROL TO WRITE FROM 901 * COMMON OVERLAY AREA FOR SUBROUTINES 902 ORG SYSTEM 0167 903 WTW 1,OVRLAY 8 0167 L %U1 E18 W 159 904 * 905 ORG OVRLAY 3518 &L%U1E18W L008174,040040,040040,040040104001592TAP9 906 B OVFOUT 4 3518 B C37 160 907 SUBRT CS 332 FIRST INSTRUCTION OF SUBRT 4 3522 / 332 160 908 CS 1 3526 / 160 909 SW 21 4 3527 , 021 160 910 MLC HEADNG,278 7 3531 M 072 278 160 911 SW 286 4 3538 , 286 160 912 MLC SETUP-1,290 7 3542 M Q10 290 160 &BC37/332/,021M072278,286MQ10290 L031E48,E22E26,E27E31,E38E42104001602TAP9 913 MLC @PAGE@,307 7 3549 M F73 307 161 914 A @1@,PAGENO 7 3556 A F74 E16 161 915 MCS PAGENO,314 7 3563 Z E16 314 161 916 CC T 2 3570 F T 161 917 W 1 3572 2 161 918 CS 332 4 3573 / 332 161 919 CS 1 3577 / 161 &MF73307AF74E16ZE16314FT2/332/ L029E77,E56E63,E70E72,E73E77104001612TAP9 920 LCA LEFT,234 7 3578 L F37 234 162 921 LCA RIGHT,314 7 3585 L F69 314 162 922 CC S 2 3592 F S 162 923 W 1 3594 2 162 924 CS 332 4 3595 / 332 162 925 CS 1 3599 / 162 926 B BSP1 4 3600 B E05 162 927 HEADNG EQU 72 0072 &LF37234LF69314FS2/332/BE05 L026F03,E85E92,E94E95,E99F00104001622TAP9 928 LEFT DCW @ SEQ PG LIN LABEL OP OPERANDS@ 34 3637 163 & SEQ PG LIN LABEL OP OPERANDS L034F37,040040,040040,040040104001632TAP9 929 RIGHT DCW @CT LOCN INSTRUCTION TYPE CARD@ 32 3669 164 930 LTORG * 3670 DCW @PAGE@ 4 3673 LIT 164 @1@ 1 3674 LIT 164 931 ORG GM1 3968 932 * &CT LOCN INSTRUCTION TYPE CARDPAGE1 L037F74,F70F74,040040,040040104001642TAP9 933 DCW @}@ GROUP MARK - SUBROUTINE HIGH LOC 1 3968 165 934 * &} L001I68,040040,040040,040040104001652TAP9 & N000000,040040,040040,040040B16701662TAP9 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01672TAP9 &,068072)063067/061039 ,001001104001682TAP9 935 XFR SYSTEM B 167 166 1 PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 2TAP9 PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 936 JOB PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 937 * 938 ORG OVRLAY 3518 939 B PRINT1 4 3518 B Y43 169 940 * 941 SW FSTIME 4 3522 , C22 169 942 B CDFULL 4 3526 B M88 169 943 DAHDR CS 332 4 3530 / 332 169 944 CS 1 3534 / 169 945 CW FSTIME 4 3535 ) C22 169 946 MLC LOCATN,ADDR 7 3539 M ?80 635 169 &BY43,C22BM88/332/)C22M?80635 L028E45,E22E26,E30E34,E35E39104001692TAP9 947 B DECOD 4 3546 B 497 170 948 LCA EDIT,290 7 3550 L P45 290 170 949 MCE WORK,290 7 3557 E 640 290 170 950 LCA LOADXX,146 7 3564 L G57 146 170 951 LCA LOCATN,ADDR 7 3571 L ?80 635 170 952 B SETWM 4 3578 B G73 170 953 NOP 1 3582 N 170 &B497LP45290E640290LG57146L?80635BG73N L037E82,E50E57,E64E71,E78E82104001702TAP9 954 NOP 1 3583 N 171 955 NOP 1 3584 N 171 956 MLC LITCNT,ADDR 7 3585 M ?76 635 171 957 B DECOD 4 3592 B 497 171 958 A 290,WORK 7 3596 A 290 640 171 959 S PARAMT&67,WORK 7 3603 S A48 640 171 960 S @1@,WORK 7 3610 S I59 640 171 &NNM?76635B497A290640SA48640SI59640 L034F16,E84E85,E92E96,F03F10104001712TAP9 961 MZ @ @,WORK 7 3617 Y I60 640 172 962 LCA EDIT,297 7 3624 L P45 297 172 963 MCE WORK,297 7 3631 E 640 297 172 964 MCS CARDCT,314 7 3638 Z C17 314 172 965 SW SUBNXT 4 3645 , C23 172 966 CW ERRPOS-1,ERRPOS-2 7 3649 ) ?71 ?70 172 &YI60640LP45297E640297ZC17314,C23)?71?70L039F55,F24F31,F38F45,F49040104001722TAP9 967 MLC @000@,TEMP 7 3656 M I63 I67 173 968 MLC PARAMT&9,TEMP 7 3663 M ?90 I67 173 969 MLC LOCATN,ADDR 7 3670 M ?80 635 173 970 MLC @000@,HOLD 7 3677 M I63 B95 173 971 MLC PARAMT&19,HOLD 7 3684 M A00 B95 173 &MI63I67M?90I67M?80635MI63B95MA00B95 L035F90,F63F70,F77F84,040040104001732TAP9 972 A PARAMT&60,HOLD 7 3691 A A41 B95 174 973 SUB S @1@,TEMP 7 3698 S I59 I67 174 974 MZ @ @,TEMP 7 3705 Y I60 I67 174 975 C @000@,TEMP 7 3712 C I63 I67 174 976 BE BSP2 5 3719 B E00 S 174 977 B MODAD 4 3724 B Q12 174 &AA41B95SI59I67YI60I67CI63I67BE00SBQ12 L037G27,F98G05,G12G19,G24040104001742TAP9 978 MLC RESULT-1,ADDR 7 3728 M C02 635 175 979 DABACK B SETWM 4 3735 B G73 175 980 B SUB 4 3739 B F98 175 981 DS 30 3772 982 * ROUTINE TO SET UP WORDMARKS FOR DA ENTRIES &MC02635BG73BF98 L015G42,G35G39,040040,040040104001752TAP9 983 SETWM SBR SWOUT&10 4 3773 H I53 176 984 NOP SW1,COUNT,0 8 3777 N H44 A59 0 176 985 BCE SW2,COUNT,0 8 3785 B H55 A59 0 176 1 PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 2TAP9 PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 986 BCE SW3,COUNT,1 8 3793 B H66 A59 1 176 987 BCE SW4,COUNT,2 8 3801 B H77 A59 2 176 &HI53NH44A590BH55A590BH66A591BH77A592 L036H08,G77G85,G93H01,040040104001762TAP9 988 BCE SW5,COUNT,3 8 3809 B H88 A59 3 177 989 BCE SW6,COUNT,4 8 3817 B H99 A59 4 177 990 BCE SW7,COUNT,5 8 3825 B I10 A59 5 177 991 H 1,1 7 3833 . 001 001 177 992 B *-10 4 3840 B H33 177 &BH88A593BH99A594BI10A595.001001BH33 L035H43,H17H25,H33H40,040040104001772TAP9 993 SW1 H 002,002 7 3844 . 002 002 178 994 B SWOUT 4 3851 B I43 178 995 SW2 LCA ADDR,150 7 3855 L 635 150 178 996 B SWOUT 4 3862 B I43 178 997 SW3 LCA ADDR,153 7 3866 L 635 153 178 998 B SWOUT 4 3873 B I43 178 &.002002BI43L635150BI43L635153BI43 L033H76,H51H55,H62H66,H73040104001782TAP9 999 SW4 LCA ADDR,157 7 3877 L 635 157 179 1000 B SWOUT 4 3884 B I43 179 1001 SW5 LCA ADDR,160 7 3888 L 635 160 179 1002 B SWOUT 4 3895 B I43 179 1003 SW6 LCA ADDR,164 7 3899 L 635 164 179 1004 B SWOUT 4 3906 B I43 179 &L635157BI43L635160BI43L635164BI43 L033I09,H84H88,H95H99,I06040104001792TAP9 1005 SW7 LCA ADDR,167 7 3910 L 635 167 180 1006 MLC CARDCT,175 7 3917 M C17 175 180 1007 P 1 3924 4 180 1008 A @1@,CARDCT 7 3925 A I59 C17 180 1009 MLC @0@,COUNT 7 3932 M I64 A59 180 1010 B SWOUT&7 4 3939 B I50 180 &L635167MC171754AI59C17MI64A59BI50 L033I42,I17I24,I25I32,I39040104001802TAP9 1011 SWOUT A @1@,COUNT 7 3943 A I59 A59 181 1012 B 0 4 3950 B 000 181 1013 H TEMP#3 4 3954 . I67 181 1014 DCW @,@ 1 3958 181 1015 LTORG * 3959 DCW @1@ 1 3959 LIT 181 @ @ 1 3960 LIT 181 @000@ 3 3963 LIT 181 &AI59A59B000.I67,1 000 L021I63,I50I54,I58I59,I60I61104001812TAP9 @0@ 1 3964 LIT 182 1013 TEMP #03 3 3967 AREA 182 1016 GM1 DCW @}@ 1 3968 182 1017 DCW @}@ GROUP MARK - HIGH STORAGE POINT 1 3969 182 1018 * 1019 ORG 3751 3751 &0 }} L006I69,I65I68,I69040,040040104001822TAP9 1020 LCA 1,1 7 3751 L 001 001 183 1021 LOADXX EQU * 3757 &L001001 L007G57,040040,040040,040040104001832TAP9 & N000000,040040,040040,040040B16701842TAP9 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01852TAP9 &,068072)063067/061039 ,001001104001862TAP9 1022 EX SYSTEM B 167 184 1 PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 2TAP9 PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1023 JOB PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 1024 * 1025 ORG OVRLAY 3518 1026 B DADONE 4 3518 B C84 187 1027 * 1028 BCE *&5,OPER-3, 8 3522 B E34 ?01 187 1029 B BSP3 4 3530 B D95 187 1030 CW ERRPOS-1,ERRPOS-2 7 3534 ) ?71 ?70 187 1031 CS 332 4 3541 / 332 187 1032 CS 1 3545 / 187 1033 MLC LOCATN,ADDR 7 3546 M ?80 635 187 &BC84BE34?01 BD95)?71?70/332/M?80635 L035E52,E22E30,E34E41,E45E46104001872TAP9 1034 B DECOD 4 3553 B 497 188 1035 LCA EDIT,290 7 3557 L P45 290 188 1036 MCE WORK,290 7 3564 E 640 290 188 1037 MLC LOCATN,ADDR 7 3571 M ?80 635 188 1038 ZS LITCNT,HOLD 7 3578 ! ?76 B95 188 1039 A @1@,HOLD 7 3585 A G24 B95 188 &B497LP45290E640290M?80635!?76B95AG24B95L039E91,E57E64,E71E78,E85040104001882TAP9 1040 B MODAD 4 3592 B Q12 189 1041 MLC RESULT-1,ADDR 7 3596 M C02 635 189 1042 MLC @000@,TEMP 7 3603 M G27 I67 189 1043 MLC PARAMT&9,TEMP 7 3610 M ?90 I67 189 1044 MLC @000@,HOLD 7 3617 M G27 B95 189 1045 MLC PARAMT&19,HOLD 7 3624 M A00 B95 189 &BQ12MC02635MG27I67M?90I67MG27B95MA00B95L039F30,E96F03,F10F17,F24040104001892TAP9 1046 A PARAMT&60,HOLD 7 3631 A A41 B95 190 1047 C LITCNT,@000@ 7 3638 C ?76 G27 190 1048 BE SUBFLD 5 3645 B G13 S 190 1049 MCS CARDCT,314 7 3650 Z C17 314 190 1050 MLC @FIELD@,309 7 3657 M G32 309 190 1051 B SETWM 4 3664 B G73 190 &AA41B95C?76G27BG13SZC17314MG32309BG73 L037F67,F38F45,F50F57,F64040104001902TAP9 1052 DECRMT S @1@,TEMP 7 3668 S G24 I67 191 1053 MZ @ @,TEMP 7 3675 Y G33 I67 191 1054 C @000@,TEMP 7 3682 C G27 I67 191 1055 BE BSPXX 5 3689 B G51 S 191 1056 B MODAD 4 3694 B Q12 191 1057 SUBACK MLC RESULT-1,ADDR 7 3698 M C02 635 191 &SG24I67YG33I67CG27I67BG51SBQ12MC02635 L037G04,F75F82,F89F94,F98040104001912TAP9 1058 B SETWM 4 3705 B G73 192 1059 B DECRMT 4 3709 B F68 192 1060 SUBFLD MLC @SBFLD@,309 7 3713 M G38 309 192 1061 B BSPXX 4 3720 B G51 192 1062 * 1063 LTORG * 3724 DCW @1@ 1 3724 LIT 192 @000@ 3 3727 LIT 192 1050 @FIELD@ 5 3732 LIT 192 &BG73BF68MG38309BG511000FIELD L028G32,G09G13,G20G24,G25G28104001922TAP9 @ @ 1 3733 LIT 193 1060 @SBFLD@ 5 3738 LIT 193 1064 ORG 3751 3751 & SBFLD L006G38,G34040,040040,040040104001932TAP9 1065 BSPXX BSP 1 5 3751 U %U1 B 194 1066 BSP 1 5 3756 U %U1 B 194 1067 BSP 1 5 3761 U %U1 B 194 1 PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 2TAP9 PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1068 B PRINT1 4 3766 B Y43 194 &U%U1BU%U1BU%U1BBY43 L019G69,G56G61,G66040,040040104001942TAP9 & N000000,040040,040040,040040B16701952TAP9 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01962TAP9 &,068072)063067/061039 ,001001104001972TAP9 1069 EX SYSTEM B 167 195 1 PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 2TAP9 PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1070 JOB PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 1071 * 1072 ORG OVRLAY 3518 1073 B PRINT1 4 3518 B Y43 198 1074 * 1075 SW FSTIME 4 3522 , C22 198 1076 BCE *&5,COUNT,0 8 3526 B E38 A59 0 198 1077 B CDFULL 4 3534 B M88 198 1078 SETEXC CW FSTIME 4 3538 ) C22 198 1079 MLC @B@,168 7 3542 M H45 168 198 1080 MLC AOPND,171 7 3549 M A53 171 198 &BY43,C22BE38A590BM88)C22MH45168MA53171 L038E55,E22E26,E34E38,E42E49104001982TAP9 1081 CS 332 4 3556 / 332 199 1082 CS 1 3560 / 199 1083 MLC @B@,293 7 3561 M H45 293 199 1084 MLC AOPND,297 7 3568 M A53 297 199 1085 MCS CARDCT,314 7 3575 Z C17 314 199 1086 MLC @N000000@,146 7 3582 M H52 146 199 &/332/MH45293MA53297ZC17314MH52146 L033E88,E60E61,E68E75,E82040104001992TAP9 1087 MLC CARDCT,175 7 3589 M C17 175 200 1088 A @1@,CARDCT 7 3596 A H53 C17 200 1089 P 1 3603 4 200 1090 LCA SETEX1,180 7 3604 L G64 180 200 1091 SW 176 4 3611 , 176 200 1092 MLC SETUP-1,180 7 3615 M Q10 180 200 &MC17175AH53C174LG64180,176MQ10180 L033F21,E96F03,F04F11,F15040104002002TAP9 1093 MLC CARDCT,175 7 3622 M C17 175 201 1094 A @1@,CARDCT 7 3629 A H53 C17 201 1095 P 1 3636 4 201 1096 LCA SETEX2,180 7 3637 L H44 180 201 1097 SW 176 4 3644 , 176 201 1098 MLC SETUP-1,180 7 3648 M Q10 180 201 &MC17175AH53C174LH44180,176MQ10180 L033F54,F29F36,F37F44,F48040104002012TAP9 1099 MLC CARDCT,175 7 3655 M C17 175 202 1100 A @1@,CARDCT 7 3662 A H53 C17 202 1101 P 1 3669 4 202 1102 CS 180 4 3670 / 180 202 1103 LCA SETUP-1,180 7 3674 L Q10 180 202 1104 B BSP4 4 3681 B D90 202 &MC17175AH53C174/180LQ10180BD90 L030F84,F62F69,F70F74,F81040104002022TAP9 &,015022)024056,029036,040047,0540611001L039G23,040040,040040,040040104002032TAP9 1105 DCW @,015022)024056,029036,040047,0540611001,@ 40 3724 204 &, L001G24)G24G24,040040,040040104002042TAP9 &001008B001 ,001008B001 L039G63)G25G25,040040,040040104002052TAP9 1106 SETEX1 DC @001008B001 ,001008B001 @ 40 3764 206 & L001G64)G64G64,040040,040040104002062TAP9 &,068072)063067/061039 L039H03,040040,040040,040040104002072TAP9 1107 DCW @,068072)063067/061039 @ 40 3804 208 & L001H04)H04H04,040040,040040104002082TAP9 & ,0010011040 L039H43)H05H05,040040,040040104002092TAP9 1108 SETEX2 DC @ ,0010011040 @ 40 3844 210 DCW @B@ 1 3845 LIT 210 1086 @N000000@ 7 3852 LIT 210 @1@ 1 3853 LIT 210 1109 * & BN0000001 L010H53)H44H44,H45H46,H53040104002102TAP9 & N000000,040040,040040,040040B16702112TAP9 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02122TAP0 &,068072)063067/061039 ,001001104002132TAP0 1110 EX SYSTEM B 167 211 1 PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1111 JOB PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 1112 ORG OVRLAY 3518 1113 DCW @0@ 1 3518 214 1114 H 1 3519 . 214 1115 H 1 3520 . 214 1116 H 1 3521 . 214 1117 B CDFULL 4 3522 B M88 214 1118 END2 B MOVXX 4 3526 B G96 214 1119 CS 332 4 3530 / 332 214 &0...BM88BG96/332 L016E33,E19E20,E21E22,E26E30104002142TAP0 1120 CS 1 3534 / 215 1121 MLC @/@,140 7 3535 M G44 140 215 1122 BCE NOEND,AADDR, 8 3542 B F18 ?67 215 1123 SETEND MLC AOPND,143 7 3550 M A53 143 215 1124 MLC @080@,146 7 3557 M G47 146 215 1125 SW 176 4 3564 , 176 215 &/MG44140BF18?67 MA53143MG47146,176 L034E67,E35E42,E50E57,E64040104002152TAP0 1126 MLC SETUP-1,180 7 3568 M Q10 180 216 1127 MLC CARDCT,175 7 3575 M C17 175 216 1128 MLC @/@,293 7 3582 M G44 293 216 1129 MLC AOPND,297 7 3589 M A53 297 216 1130 MLC @080@,301 7 3596 M G47 301 216 &MQ10180MC17175MG44293MA53297MG47301 L035F02,E75E82,E89E96,040040104002162TAP0 1131 MCS CARDCT,314 7 3603 Z C17 314 217 1132 CW FSTIME 4 3610 ) C22 217 1133 P PRINT1 4 3614 4 Y43 217 1134 NOEND MLC @$$$@,AOPND 7 3618 M G50 A53 217 1135 SW ERRPOS-2 4 3625 , ?70 217 1136 B SETEND 4 3629 B E50 217 1137 EOF4 RWD 2 5 3633 U %U2 R 217 &ZC17314)C224Y43MG50A53,?70BE50U%U2R L035F37,F10F14,F18F25,F29F33104002172TAP0 1138 RWD 1 5 3638 U %U1 R 218 1139 CC 1 2 3643 F 1 218 1140 BW *&5,EXCEED 8 3645 V F57 C26 1 218 1141 B TSTERR 4 3653 B F76 218 1142 CW EOJ&1 4 3657 ) G11 218 1143 CS 332 4 3661 / 332 218 1144 CS 1 3665 / 218 &U%U1RF1VF57C261BF76)G11/332/ L028F65,F43F45,F53F57,F61F65104002182TAP0 1145 MLC @OBJECT CORE EXCEEDED@, 220 7 3666 M G70 220 219 1146 CC T 2 3673 F T 219 1147 W 1 3675 2 219 1148 TSTERR C ERRCNT,@0000@ 7 3676 C C21 G74 219 1149 BE EOJ 5 3683 B G10 S 219 1150 CS 332 4 3688 / 332 219 1151 CS 1 3692 / 219 &MG70220FT2CC21G74BG10S/332/ L027F92,F73F75,F76F83,F88F92104002192TAP0 1152 MCS ERRCNT,204 7 3693 Z C21 204 220 1153 MLC @ERRORS@,211 7 3700 M G80 211 220 1154 CC T 2 3707 F T 220 1155 W 1 3709 2 220 1156 EOJ CS 332 4 3710 / 332 220 1157 CS 1 3714 / 220 1158 MLC @END OF ASSEMBLY@,215 7 3715 M G95 215 220 &ZC21204MG80211FT2/332/MG95215 L029G21,G00G07,G09G10,G14G15104002202TAP0 1159 CC A 2 3722 F A 221 1160 W 1 3724 2 221 1 PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1161 CS 180 4 3725 / 180 221 1162 P 1 3729 4 221 1163 SS 4 2 3730 K 4 221 1164 H 999,999 7 3732 . 999 999 221 1165 B *-10 4 3739 B G32 221 &FA2/1804K4.999999BG32 L021G42,G24G25,G29G30,G32G39104002212TAP0 1166 H 1 3743 . 222 1167 LTORG * 3744 DCW @/@ 1 3744 LIT 222 @080@ 3 3747 LIT 222 @$$$@ 3 3750 LIT 222 1145 @OBJECT CORE EXCEEDED@ 20 3770 LIT 222 @0000@ 4 3774 LIT 222 1153 @ERRORS@ 6 3780 LIT 222 &./080$$$OBJECT CORE EXCEEDED0000ERRORS L038G80,G44G45,G48G51,G71G75104002222TAP0 1158 @END OF ASSEMBLY@ 15 3795 LIT 223 1168 DCW @}@ 1 3796 223 1169 ORG 3796 3796 &END OF ASSEMBLY} L016G96,G96040,040040,040040104002232TAP0 1170 MOVXX MLC NOPXX,TSTOVF&1 7 3796 M H11 !00 224 1171 CS 180 4 3803 / 180 224 1172 B END2&4 4 3807 B E30 224 1173 NOPXX NOP 1 3811 N 224 &MH11!00/180BE30N L016H11,H03H07,H11040,040040104002242TAP0 & N000000,040040,040040,040040B16702252TAP0 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02262TAP0 &,068072)063067/061039 ,001001104002272TAP0 1174 EX SYSTEM B 167 225 1175 * 1176 ORG SYSTEM 0167 1177 WTW 1,CHECK 8 0167 L %U1 082 W 228 1178 ORG CHECK 0082 &L%U1082W L008174,040040,040040,040040104002282TAP0 1179 DCW @%@ 1 0082 229 1180 ORG *&2 0085 &% L001082,040040,040040,040040104002292TAP0 1181 DCW @}@ 1 0085 230 &} L001085,040040,040040,040040104002302TAP0 & N000000,040040,040040,040040B16702312TAP0 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02322TAP0 &,068072)063067/061039 ,001001104002332TAP0 1182 EX SYSTEM B 167 231 & /167080 02342TAP0 1183 END SYSTEM / 167 080 234 JOB 1401 TWO-TAPE AUTOCODER, PHASE 1 - JULY 20, 1962 RBR 2TAP1 CTL 630 1 0103 * PHASE 1 - READ AND ANALYZE SOURCE PROGRAM 0104 * ** SYSTEMS CONTROL ** 0105 ORG 82 0106 CHECK DCW @ @ 0107 DCW @ }@ 81 DC @}@ GROUP MARK WITHOUT WORD MARK 0109 ORG 100 0110 LOAD RWD 1 0111 RTW 1,CHECK 0112 BER TPERR 0113 BCE *&5,CHECK,D 0114 B LOAD&5 0115 BSP 1 0116 RTW 1,333 0118 SW CHECK&3 0119 RTW 1,CHECK BCE SENTNL,CHECK,% 0121 B *-19 0122 SEEK EQU LOAD&25 0123 SYSTEM R 40 0124 BSP 1 0125 SKP 1 0126 B 40 LASTLT EQU 10 0128 REITER DC @ @ 0129 FULL DC @ @ 0130 LITCTL DCW #1 0131 RELATV DC @ @ TX3987 DCW @I87@ 0132 ORG 3943 01321SENTNL BCE REWRIT,333,1 01322 BCE REWRIT,333,3 01323 BCE REWRIT,333,7 01324 B HSKPG 01325REWRIT BSP 1 WTW 1,CHECK BER TPERR BCE 334,CHECK,% H 0133 ORG 201 0134 TPERR SBR X1 0135 A TX3987,X1 0136 BW TXCOMP,TXGET&1 0137 TXGET MLC 17&X1,TXEOF&4 0138 MLC TXDUMY&4,17&X1 0139 MLC 3&X1,TXBSP&3 MLC TXBSP&5,TXBSP 0140 SW TXGET&1 0141 TXCOMP B TXPERM,TXCNTL,9 0142 TXBSP BSP 1 0143 SKP 1 0144 A *-6,TXCNTL 0145 B 0&X1 0146 TXPERM H 888,888 0147 MLC TXPERM-1,TXCNTL 0148 B TXBSP 0149 TXDONE MLC TXPERM-1,TXCNTL 0150 MLC TXEOF&4,17&X1 0151 CW TXGET&1 0152 B 13&X1 0153 TXDUMY B TXDONE 0154 DC @ @ 0155 TXEOF BEF 1 0156 TXCNTL DCW @0@ 01561 DC #1 01562 DCW @1@ 0158 * 0159 ORG 334 0160 HSKPG CW DAON#1,CARDIN#1 0161 CW TWO#1 0162 RWD 2 01621 NOP 000 01622 NOP 0163 SW 3998 0164 LCA 3998,RECRD2&171 0165 LCA 3998,PARTBL&90 LCA 3998,81 CS 80 R SS 1 C 20,RECORD&19 BE SETPAR SW 76,CARDIN LCA 80,PARAMT&4 B PUTRCD 0166 * 0167 * 0168 X1 EQU 0089 0169 0089 DCW @ @ 0170 X2 EQU 0094 0171 0094 DCW @ @ 0172 X3 EQU 0099 0173 0099 DCW @ @ 0174 * GET RECORD ROUTINE 0175 RDCARD BWZ *&005,CARDIN,1 0176 B READ 0177 CW CARDIN 0178 B SETPAR 0179 READ CS 0080 0182 R SS 1 SETPAR SW 1,6 0181 SW 0016,0021 01815 SW RECORD&75 CS PARAMT&69 0184 MLC 80,RECORD&79 0185 CHAIN4 0188 CW DMOD,RECORD 0189 CW ERRPOS,ERRPOS-002 0190 MCW BLANKS,LOCATN 0191 MCW 0192 MCW 0193 MCW 0194 MCW BLANKS,ERRPOS 0195 MCW 0198 SW PARAMT,PARAMT&010 0199 SW PARAMT&020,PARAMT&030 0200 SW PARAMT&040,PARAMT&050 0201 MCW ZEROS,X1 BCE PUTCMT,LABEL-5,* 0203 C 20,@DCW @ 0204 BE CONST 0205 C 20,@DC @ 0206 BE CONST C 20,@DA @ 0208 BE DALINE 0209 C 20,@LTORG@ 0210 BE LTORG 0211 C 20,@EX @ 0212 BE EXECUT C 20,@JOB @ BU *&12 MLC 80,PARAMT&4 B PUTRCD 0213 C 20,@END @ 0214 BE ENDSCE 0215 B PROPND 0216 ANYLIT MLC @000@,X1 0217 MLC @ @,PAR&59 0218 SW PAR,PAR&30 0219 MLC PAR&59,PAR&58 0220 MLC 0221 MLC @ @,RECRD2&10 0222 MLC AADDR,RECRD2&81 0223 BCE NUMLIT,AADDR,L 0224 BCE ALPHA,AADDR,F 0225 BCE LTAREA,AADDR,W 0226 BCE ADCON,AADDR,C 0229 SETLTB MLC @030@,X1 0230 MLC BADDR,RECRD2&81 0231 BCE NUMLIT,BADDR,L 0232 BCE ALPHA,BADDR,F 0233 BCE LTAREA,BADDR,W 0234 BCE ADCON,BADDR,C 0237 B PUTRCD PUTCMT LCA SERIAL,79 A @1@,SERIAL WTW 1,1 BER TPERR BEF *&1 B RDCARD 0238 * SET UP NUMERIC LITERAL 0239 NUMLIT CW PARAMT&20&X1,PARAMT&10&X1 0240 LCA PARAMT&27&X1,PAR&27 0241 MLC PAR&27,PAR&56 0242 MLC @000@,X2 0243 MLC PARAMT&29&X1,X2 0244 MZ PAR,PAR&29&X2 0245 LITOUT LCA @000@,RECRD2&90 0246 A PARAMT&29&X1,RECRD2&90 0247 LCA PAR&27,RECRD2&47 0248 MLC @Y@,LITOUT-7 0249 B PUTLIT 0250 * SET UP ALPHANUMERIC LITERAL 0251 ALPHA MLC @N@,LITOUT-7 02515 CW PAR&30 0252 B NUMLIT 0253 * SET UP LITERAL AREA 0254 LTAREA LCA PARAMT&5&X1,RECRD2&10 MLC BLANKS,PAR&29 MLC BLANKS MLC BLANKS 0256 MLC PARAMT&9&X1,PAR&2 0257 LCA @#@,PAR 0258 LCA @000@,RECRD2&90 0259 A PARAMT&9&X1,RECRD2&90 0260 B LITOUT&14 0261 * SET UP ADDRESS CONSTANT 0262 ADCON MLC PARAMT&7&X1,PAR&7 0263 SW PARAMT&18&X1 0264 MLC PARAMT&14&X1,PAR&14 0265 MLC PARAMT&19&X1,PAR&19 0266 B LITOUT 0292 * WRITE A LITERAL RECORD 0293 PUTLIT LCA SERIAL,RECRD2&4 0294 CW RECRD2 0295 SW RECRD2&3 TWLIT WTW 2,RECRD2 0297 BER TPERR 0299 BW RESET,DAON 0300 BCE SETLTB,X1-1,0 PUTRCD LCA SERIAL,RECORD&79 0305 B PUTXXX 03051 NOP 03052 NOP 03053 NOP 0306 WTW 1,RECORD 0307 BER TPERR 0308 BEF *&1 0309 BW RMBACK,ALFGM 0310 BW NOREAD,DAON 0311 B RDCARD 0312 RESET MLC ADDR-1,PARAMT&29&X1 0313 CW DAON 0314 B PUTRCD-8 0315 * ANALYZE OPERAND & SET PARAMT 0316 PROPND SBR ANALEX&003 0317 BCE ANALEX,0021, 0318 MCW K20,X1 0319 MCW ZEROS,X2 0320 MCW I99,X3 0321 CW COMMSW,ACTADD 0322 BCE ALFOPD,0021,@ 0323 BWZ NOZONE,0021,2 0324 BCE STEP,0021,& 0325 BCE STEP,0021,- 0326 B ANALYZ 0327 NOZONE SW ACTADD 0328 ANALYZ BCE COMMA,0001&X1,, 0329 BCE PLUS,0001&X1,& 0330 BCE PLUS,0001&X1,- 0331 BCE AREA,0001&X1,# 0332 BCE END,0001&X1, 0333 STEP A K1,X1 0334 A K1,X3 0335 B ANALYZ 0336 ALFOPD S X1,X3 0337 MZ BLANKS,X3 0338 MCW K71,X1 0339 ALFTST BCE ALFEND,0001&X1,@ 0340 A MINUS,X1 0341 B ALFTST 0342 ALFEND A X1,X3 0343 MZ K1,X3-002 0344 B STORE 0345 BCE GAP2,0001&X1,, 0346 B ANALEX 0347 COMMA B STORE 0348 GAP BCE GAP1,0001&X1, 0349 BWZ USE60,COMMSW,1 0350 USE30 MCW K30,X2 0351 SW COMMSW 0352 FIRST SW 0001&X1 0353 CW ACTADD 0354 BCE ALFOPD,0001&X1,@ 0355 BWZ SK1,0001&X1,2 0356 B STEP 0357 SK1 SW ACTADD 0358 B STEP 0359 GAP1 BWZ GAP3,COMMSW,1 0360 GAP2 A K1,X1 0361 B GAP 0362 GAP3 BCE GAP4,0002&X1, 0363 B GAP2 0364 GAP4 C OPER-001,KBCE 0365 BE USE60 0366 B ANALEX 0367 USE60 MCW K60,X2 0368 SW 0001&X1 0369 CW ACTADD 0370 B STEP 0371 PLUS BCE STEP,0000&X1,& 0372 B STORE 0373 A K10,X2 0374 A MINUS,X1 0375 B FIRST 0376 AREA B STORE 0377 SW 0001&X1,PARAMT&008&X2 0378 BCE WTOBAD,X2-001,3 0379 MCW W,AADDR 0380 TESTW BCE SINGLE,0002&X1,, 0381 BCE SINGLE,0002&X1, 0382 DOUBLE MCW 0002&X1,PARAMT&009&X2 0383 A K1,X1 0384 B SINGLE&007 0385 SINGLE MCW 0001&X1,PARAMT&009&X2 C PARAMT&9&X2,@53@ BH *&5 SW ERRPOS 0386 A PARAMT&009&X2,LITCNT 0387 A K1,X1 0388 BCE ANALEX,0001&X1, 0389 A K1,X1 0390 B GAP 0391 WTOBAD MCW W,BADDR 0392 B TESTW 0393 END BWZ GETDM,DMOD,1 0394 B STORE 0395 ANALEX B 0000 0396 GETDM LCA 0000&X1,PARAMT&060 0397 B ANALEX 0398 STORE SBR STEXIT&003 0399 BWZ ACTUAL,ACTADD,1 BW *&12,KONST 03992 C X3,@27@ 03993 B *&8 03994 C X3,@53@ 03995 BH *&12 03996 MLC @26@,X3 03998 SW ERRPOS 0400 MCW X3,CHARCT 0401 A X2,X3 0402 LCA 0000&X1,PARAMT&X3 0403 BCE TSTLIT,X2-001,0 0404 SW STEXIT&001 0405 BCE TSTLIT,X2-001,3 0406 LCA CHARCT,PARAMT&009&X2 0407 SW STEXIT&002 0408 UPDAT MCW I99,X3 0409 A K1,X1 0410 BWZ STEXIT-007,STEXIT&002,1 0411 BWZ SETBAD,STEXIT&001,1 0412 MCW ADDR,AADDR 0413 B STEXIT 0414 SETBAD MCW ADDR,BADDR 0415 CW STEXIT&001,STEXIT&002 0416 STEXIT B 0000 0417 ACTUAL SW PARAMT&X2 0418 A 0000&X1,PARAMT&004&X2 0419 MCW A,ADDR 0420 BCE *&005,X2-001,3 0421 B UPDAT 0422 SW STEXIT&001 0423 B UPDAT 0424 TSTLIT BCE ALFLIT,PARAMT&X2,@ 0425 BCE LITERL,PARAMT&X2,& 0426 BCE LITERL,PARAMT&X2,- 0427 C K6,CHARCT 0428 BL *&012 0429 SW ERRPOS 0430 MCW K5,CHARCT 0431 LCA CHARCT,PARAMT&009&X2 0432 MCW S,ADDR 0433 B UPDAT 0434 LITERL BCE RECURS,PARAMT&001&X2,& 0435 BCE RECURS,PARAMT&001&X2,- 0436 BWZ LITNUM,PARAMT&001&X2,2 0437 LTADCN A K3,LITCNT MLC @ @,CHARCT 0439 MCW C,ADDR 0440 B CNTLIT&007 RECURS SW ERRPOS MCW S,ADDR B UPDAT 0455 ALFLIT MCW F,ADDR 0456 B MOVENM 0457 LITNUM MCW L,ADDR 0458 B CNTLIT 0459 CNTLIT A CHARCT,LITCNT 0460 BWZ *&012,KONST,1 0461 LCA CHARCT,PARAMT&029&X2 0462 B UPDAT 0463 LCA CHARCT,PARAMT&059 0464 CW KONST 0465 B UPDAT 0466 * PROCESS DA HEADER 0467 DALINE MCW K20,X1 0468 MCW ZEROS,X2 0469 MCW I99,X3 0470 CW COMMA1&009,ANALDA&002 0471 CW RECORD 0472 ANALDA BCE X,0001&X1,X 0473 BCE COMMA1,0001&X1,, 0474 BCE END1,0001&X1, 0475 STEP1 A K1,X1 0476 A K1,X3 0477 BWZ ANALDA&008,ANALDA&002,1 0478 B ANALDA 0479 X LCA 0000&X1,PARAMT&009&X2 0480 MCW I98,X3 0481 A K10,X2 0482 SW 0002&X1,ANALDA&002 0483 B STEP1 COMMA1 BW BXLOK,*&2 0485 SW *-002 BW *&5,ANALDA&2 SW ERRPOS 0486 B X BXLOK A X2,X3 0488 LCA 0000&X1,PARAMT&X3 0489 B X&007 0490 END1 BWZ *&012,COMMA1&009,1 0491 LCA 0000&X1,PARAMT&009&X2 0492 B *&015 0493 A X2,X3 0494 LCA 0000&X1,PARAMT&X3 0495 CALCDA MCW ZEROS,HOLD 0496 MCW PARAMT&019,HOLD 0497 MCW ZEROS,X1 0498 A PARAMT&016,X1 0499 MZ ZONE&X1,HOLD-002 0500 MCW HOLD,LITCNT 0501 MCW ZEROS,ADDR 0502 MCW PARAMT&009,ADDR 0503 DECR S K1,ADDR 0504 C ZEROPL,ADDR 0505 BE *&012 0506 A HOLD,LITCNT 0507 B DECR 0508 MCW LITCNT,LOCCNT 0509 MCW ZEROS,X1 0510 SCANDA BCE INCXNG,PARAMT&020&X1,X 0511 BCE INCRMK,PARAMT&020&X1,| 0512 BCE INCGMK,PARAMT&020&X1,G 0513 TSTNXT BCE SKIP5,X1-001,4 0514 A K10,X1 0515 B SCANDA 0516 INCXNG MCW K1,ACTOP 0517 MCW ZEROS,X2 0518 SW PARAMT&021&X1 0519 A PARAMT&021&X1,X2 0520 MZ ZONE&X2,ACTOP 0521 B TSTNXT 0522 INCRMK A PARAMT&009,LITCNT 0523 LCA K1,PARAMT&60 0524 MCW R,PARAMT&020&X1 0525 SW ERRPOS-002 0526 B TSTNXT INCGMK SW ERRPOS-1 A K1,LITCNT 0529 LCA K1,PARAMT&67 0530 B TSTNXT SKIP5 SW DAON 0532 B PUTRCD 0533 NOREAD CW DAON MLC @ @,PARAMT&59 SW PARAMT&65 0534 * PROCESS DA SUBSEQUENT ENTRY 0535 CS 0080 0536 CW RECORD 0537 SW 0006,0021 0538 SW 0001,0016 SW RECORD&75 0539 MCW BLANKS,PARAMT&039 0540 MCW BLANKS,PARAMT&029 0541 R SS 1 BCE BYPCMT,6,* 0543 BCE *&005,0016, 0544 B LASTSB 0545 MCW K20,X1 0546 MCW K20,X2 0547 MCW 0080,RECORD&079 CHAIN4 0551 ANALSB BCE COMMA2,0001&X1,, 0552 BCE END2,0001&X1, 0553 STEP2 A K1,X1 0554 B ANALSB 0555 COMMA2 LCA 0000&X1,PARAMT&009&X2 0556 SW 0002&X1 0557 A K10,X2 0558 B STEP2 0559 END2 LCA 0000&X1,PARAMT&009&X2 0560 MCW ZEROS,LITCNT 0561 MCW ZEROS,LOCATN 0562 A PARAMT&009&X2,LOCATN 0563 A MINUS,LOCATN 0564 ZS PARAMT&29,XHOLD 0565 A PARAMT&39,XHOLD 0566 A K1,XHOLD 0567 BWZ *&12,XHOLD,K 0568 MLC XHOLD,LITCNT 056813942 DCW #4 05682XHOLD EQU 3942 0569 B SETHO 0570 MLC ZEROS,LITCNT 0571 B SETHO LASTSB MCW BLANKS,RECORD&79 LCA BLANKS,RECORD&10 CW RECORD&1 MCW @ @,RECORD BWZ INSRMK,ERRPOS-2,1 0573 BWZ INSGMK,ERRPOS-001,1 0574 B SETPAR 0575 INSRMK CW ERRPOS-002 0576 MCW ZEROS,LOCATN 0577 MCW ZEROS,ADDR 0578 MCW ZEROS,HOLD 0579 MCW PARAMT&019,ADDR 0580 MCW PARAMT&009,HOLD 0581 CS PARAMT&060 CS RECORD&74 0583 SW PARAMT LCA @DC @,RECORD&19 0585 LCA ALFRM,PARAMT&002 MLC @001@,LITCNT 0587 LCA ALFRM,RECORD&022 0588 LCA K1,PARAMT&059 0589 LCA @RMARK@,PARAMT&64 0590 SW ALFGM 0591 RMLOOP A ADDR,LOCATN A @1@,LOCCNT 0592 B PUTRCD&029 0594 RMBACK S K1,HOLD 05945 A K1,LOCATN 0595 C ZEROPL,HOLD 0596 BU RMLOOP 0597 CW ALFGM B LASTSB 0599 INSGMK CS PARAMT&060 05995 CW ERRPOS-1 0600 LCA BLANKS,RECORD&029 0601 LCA KDCW,RECORD&019 0602 LCA ALFGM,PARAMT&002 0603 LCA ALFGM,RECORD&022 MLC @001@,LITCNT 0605 LCA K1,PARAMT&059 0606 MCW LOCCNT,LOCATN 0607 LCA @GMARK@,PARAMT&64 0608 SW CARDIN 0609 B PUTRCD&14 06091BYPCMT LCA SERIAL,80 A @1@,SERIAL WTW 1,1 BER TPERR BEF *&1 B NOREAD 0610 * CONSTANTS - DCW AND DC CONST MCW K21,X1 0612 MCW ZEROS,X2 0613 BCE NUMBER,0021,# 0614 BCE *&009,0021,@ 0615 BWZ CONTST,0021,2 0616 SW KONST 0617 B PROPND 0618 CW KONST BCE *&16,21,@ 0622 BCE *&008,AADDR,L 0623 MCW K3,LITCNT 0624 MCW LITCNT,PARAMT&059 0625 B PUTRCD 0626 NUMBER SW 0022 0627 BCE *&012,0023, 0628 LCA 0023,PARAMT&009 0629 B CONBCK&004 0630 LCA 0022,PARAMT&009 0631 CONBCK CW KONST 0632 A PARAMT&9,LITCNT 0633 LCA BLANKS,PARAMT&009 0634 B PUTRCD 0635 CONTST BCE CONEND,0001&X1, 0636 A K1,X1 0637 A K1,X2 0638 B CONTST 0639 CONEND A K1,X2 0640 MCW X2,LITCNT 0641 LCA X2,PARAMT&059 0642 LCA 0000&X1,PARAMT&X2 0643 B PUTRCD 0644 ENDSCE SW RECORD 0645 B PROPND 0646 B ENDLIT 0647 ENDBCK CW RECORD 0648 WTW 1,RECORD 0649 BER TPERR 0650 WTM 1 0651 RWD 1 0652 CW RECRD2&171,PARTBL&90 0653 MLC @2@,SEEK 0654 B LOAD 0655 EXECUT SW RECORD&1 0656 B PROPND 0657 B ENDLIT 0658 EXBACK CW RECORD&1 0659 B PUTRCD 0660 LTORG B PROPND 0661 MLC SERIAL,RECORD&79 0662 A @1@,SERIAL 0663 WTW 1,RECORD 0664 BER TPERR 0665 ENDLIT WTM 2 0666 RWD 2 0667 GETLIT RTW 2,RECRD2 0668 BER TPERR 0669 BEF LITALL 0670 WTW 1,RECRD2 0671 B GETLIT 0672 LITALL RWD 2 0673 BW ENDBCK,RECORD 0674 BW EXBACK,RECORD&1 0675 B RDCARD 0676 H 0677 RECRD2 DA 1X171,| 0678 PAR 96 0679 * PROGRAM CONSTANTS 0680 K1 DCW @1@ 0681 K2 DCW @2@ 0682 K3 DCW @3@ 0683 K5 DCW @5@ 0684 K6 DCW @06@ 0685 K7 DCW @7@ 0686 K10 DCW @10@ 0687 K20 DCW @020@ 0688 K21 DCW @021@ 0689 K30 DCW @30@ 0690 K60 DCW @60@ 0691 K71 DCW @071@ 0692 I98 DSA &3998 0693 I99 DSA &3999 0695 KONST DC @ @ 0696 MINUS DCW @I9I@ SERIAL DCW @00101@ 0708 ZONE DCW @ @ 0709 DCW @/@ 0710 DCW @J@ 0711 DCW @A@ 0729 * OUTPUT AREA & PARAMETER TABL 0730 ORG *&X00 0731 ORG *&5 0732 RECORD DA 1X80,| 0733 PARTBL DA 1X90,| 0734 AADDR 1,1 0735 BADDR 2,2 0736 ERRPOS 6 0737 ICOUNT 7,7 0738 LITCNT 8,10 0739 ACTOP 11,11 0740 LOCATN 12,14 0741 PARAMT 15,15 0742 OPER EQU RECORD&18 SAVLOC ORG RECORD&15 DCW @JOB @ ORG SAVLOC 0698 ZEROS DCW @000@ 0699 KBCE DCW @BCE@ 0700 CHARCT DCW @ @ 0701 COMMSW DC @ @ 0702 ACTADD DC @ @ 0703 LABEL EQU 0011 0704 LOCCNT DCW @333@ 0705 HOLD DCW @ @ 0706 ADDR DCW @ @ 0707 BLANKS DCW @ @ 0712 S DCW @S@ 0713 A DCW @A@ 0714 F DCW @F@ 0715 L DCW @L@ 0716 M DCW @M@ 0717 C DCW @C@ 0718 W DCW @W@ 0720 ZEROPL DCW @00?@ 0721 KDCW DCW @DCW @ 0722 MLCWA DCW @MLCWA@ 0723 KLTORG DCW @LTORG@ 0724 ALFGM DCW @@}@@ 0725 ALFRM DCW @@|@@ 0726 R DCW @R@ 0727 DMOD DC @ @ 0728 PERCNT DCW @%@ 0743 3998 DCW @}@ 07431ORGA ORG 3587 MOVENM MN 1&X1,PARAMT&1&X3 B CNTLIT ORG 3561 SETHO MLC ZEROS,X1 MN PARAMT&6&X2,X1 MZ ZONE&X1,LOCATN-2 B SKIP5 ORG 3923 PUTXXX A @1@,SERIAL CW LOCATN B PUTRCD&14 ORG ORGA 0744 EX SYSTEM 0745 JOB 1401 TWO-TAPE AUTOCODER - PHASE 2 - JAN 8, 1962 RBR 2TAP2 ORG 167 WTW 1,333 BER *&5 R 40 BSP 1 SKP 1 B SYSTEM H 0746 ORG 333 0747 DCW @2@ 0748 SW 3998 0749 LCA 3998,PARTBL&90 07493 LCA @ @,14 07496 SW 13,12 CW HADLIT#1 0750 GET RTW 1,RECORD 0751 BER TPERR 0752 BEF ENDPH2 0754 BCE PUT,RECORD&005,* 0755 BWZ LITRCD,RECORD&003,1 BW TSTORG,HADLIT 0756 BWZ PUT,PARAMT&065,1 0757 * CONVERT ACTUAL ADDRESSES TO MACH LANGUAGE 0758 MLC @030@,X1 0759 BCE CONVRT,BADDR,A 0760 MLC @000@,X1 0761 BCE CONVRT,AADDR,A 0762 BCE CONOUT,RECORD&5, 0763 BWZ *&5,RECORD&5,2 0764 B CONOUT 0765 BCE *&12,RECORD&6&X1, 0766 A @1@,X1 0767 B *-18 0768 SW ONE#1 0769 MLC PARAMT&60,ONE 0770 BW *&5,PARAMT&60 0771 CW ONE 0772 LCA @00000 @,PARAMT&69 0773 A RECORD&5&X1,PARAMT&64 0774 MLC @060@,X1 0775 B CONVRT 0776 MLC PARAMT&68,LOCATN 0777 MLC ONE,PARAMT&60 0778 BW *&5,ONE 0779 CW PARAMT&60 0780 CONOUT NOP 0781 BCE *&005,PARAMT,% 0782 B *&008 0783 MCW M,AADDR BCE OPEROK,OPER&1, 0785 C OPER&001,KLTORG BE OPEROK 0787 C OPER&001,MLCWA BE OPEROK C OPER&1,@CHAIN@ BE CHAIN 0789 B NOOP OPEROK SW OPER-3 0791 MCW OPER,ENDOPT 0792 MCW ZEROS,X1 0753 * TLU OP CODE 0793 TLUOP C OPTABL-003&X1,OPER 0794 BE HITOP 0795 A K7,X1 0796 B TLUOP 0797 NOOP SW ERRPOS-001 0798 B OPERND 0799 HITOP BCE NOOP,OPTABL-002&X1,} 0800 BWZ DECLOP,OPTABL-002&X1,1 0801 IMPROP MCW OPTABL-002&X1,ACTOP 0802 BCE OPERND,OPTABL-001&X1, 0803 BWZ GENDMD,OPTABL-001&X1,1 0804 HAVE* SW PARAMT&060,DMOD 0805 BCE INSERT,PARAMT&060, 0806 B OPERND 0807 GENDMD BWZ DISK,OPTABL&X1,1 0808 LCA OPTABL-001&X1,PARAMT&060 0809 BCE OPERND,OPTABL&X1, 0810 BCE OPERND,AADDR,S BCE OPERND,AADDR,M 0811 SW PARAMT&009 0812 MCW OPTABL&X1,PARAMT&009 0813 MCW M,AADDR 0814 GENRET MCW PARAMT&004,PARAMT&003 0815 MN BLANKS,PARAMT&004 0816 MN 0817 MCW PERCNT,PARAMT 0818 MCW PARAMT&009,PARAMT&001 08185 CW PARAMT&2 0819 B SPACNT DISK BCE MOVES,AADDR,S MLC PARAMT&29,PARAMT&59 CHAIN2 MLC PARAMT&8,PARAMT&38 DISKEX MLC AADDR,BADDR 0824 MCW M,AADDR 0825 LCA F,PARAMT&009 08255 MCW OPTABL&X1,PARAMT&4 0826 LCA OPTABL-001&X1,PARAMT&060 0827 B GENRET MOVES MLC @|@,PARAMT&27 MCM PARAMT,PARAMT&30 MLC PARAMT&29,PARAMT&59 B DISKEX 0828 * CALCULATE INSTRUCTION COUNT 0829 OPERND NOP 0830 SPACNT MCW K1,ICOUNT 0831 HAVEA BCE HAVEB,AADDR, 0832 A K3,ICOUNT 0833 HAVEB BCE HAVED,BADDR, 0834 A K3,ICOUNT 0835 HAVED BWZ CTDMOD,PARAMT&060,1 0836 RELEAS B XBIN 0837 CTDMOD B XBCE 08371 NOP 08372 NOP 08373 NOP 0838 B CLEARX 0839 * SET UP LINKAGE TO SPECIAL 0840 * ROUTINES - ADDRESS O 0841 * FROM OP CODE TABLE 0842 DECLOP MCW OPTABL&X1,*&004 0843 B 0000 0844 * EXIT FOR DECLARATIVE AND 0845 * REQUIRING NO SPECIAL 0846 DECEXT B PUT 0847 * CONTROL OPERATIONS 0848 CONTRL SW RECORD 0849 B PUT 0850 * DS DECLARATIVE 0851 DS MCW PARAMT&004,LITCNT 0852 B PUT 0853 * DSA DECLARATIVE 0854 DSA MCW K3,LITCNT 0855 B PUT 0856 * ROUTINE TO GET D-MODIFIER FOR INSTRUCTIONS 0857 * OF LESS THAN TWO OPERANDS 0858 INSERT C OPER,@BCE @ 0859 BE OPERND 0860 C OPER,@BBE @ 0861 BE OPERND 0862 BCE *&5,PARAMT&60, 0863 B OPERND 0864 BCE OPERND,PARAMT, 0865 BCE GETA,PARAMT&30, 0866 MLC @ @,BADDR 0867 BCE *&12,PARAMT&31, 0868 MLC PARAMT&34,PARAMT&60 0869 B OPERND 0870 MLC PARAMT&30,PARAMT&60 0871 B OPERND 0872 GETA MLC @ @,AADDR 0873 BCE *&12,PARAMT&1, 0874 MLC PARAMT&4,PARAMT&60 0875 B OPERND 0876 MLC PARAMT,PARAMT&60 0877 B OPERND 0878 * SET UP LITERAL IDENTIFICATION 0879 LITRCD BCE KAREA,AADDR,W 0880 BCE KADCON,AADDR,C 0881 BCE KADCON,AADDR,P 08815 BCE RCURSV,AADDR,R 0882 LCA @LIT @,PARAMT&64 0883 B KILLIT 0884 KAREA LCA @AREA @,PARAMT&64 0885 B PUT 0886 PREV DCW #6 0887 KADCON LCA @ADCON@,PARAMT&64 0888 B PUT 08881RCURSV BW *&9,RCURSV&9 08882 SW RCURSV&9 08883 B KAREA-11 08884 CW RCURSV&9 08885 B KADCON CHAIN LCA @MACRO@,PARAMT&64 MLC @ @,AADDR MLC BLANKS,LOCATN WTW 2,RECORD BER TPERR BEF *&1 MLC PARAMT&4,HOLD LCA BLANKS,PARAMT&9 LCA @ @,RECORD&21 MLC BLANKS,RECORD&79 MLC BLANKS,RECORD&4 MLC @1@,ICOUNT LCA PREVOP,OPER&1 LCA PREVAC,ACTOP LCA @GEN @,PARAMT&64 CHAIN1 WTW 2,RECORD BER TPERR BEF *&1 S @1@,HOLD C HOLD,@00?@ BU CHAIN1 B GET PUT MLC OPER&1,PREVOP#5 MLC ACTOP,PREVAC#1 WTW 2,RECORD 0890 BER TPERR 0891 BEF *&1 0892 B GET 0893 ENDPH2 CW PARTBL&90 0894 WTM 2 0895 RWD 1 0896 RWD 2 0898 MLC @3@,SEEK 0899 B LOADXX 0900 H 0901 * ROUTINE TO CONVERT A 5 POSITION ACTUAL 0902 * ADDRESS OPERAND TO A MACHINE ADDRESS 0903 * * ADDRESS TAKEN FROM PARAMT&4&X1 0904 * * CONVERTED 3 POSITION ADDRESS PLACED 0905 * AT PARAMT&8&X1 0906 CONVRT SBR CONEXT&3 0907 SW PARAMT&2&X1 0908 LCA PARAMT&4&X1,PARAMT&8&X1 0909 MLC PARAMT&1&X1,ADDR-1 0910 C @00@,ADDR-1 0911 BE CONEXT 0912 SW PARAMT&8&X1 0913 CONV1 S @4@,ADDR-1 0914 BM CONV2,ADDR-1 0915 A @|0@,PARAMT&9&X1 0916 B CONV1 0917 CONV2 A @4@,ADDR-1 0918 BCE CONV3,ADDR-1,? 0919 BCE CONV3,ADDR-1,! 0920 A @|0@,PARAMT&7&X1 0921 S @1@,ADDR-1 0922 B CONV2&7 0923 CONV3 CW PARAMT&2&X1,PARAMT&8&X1 0924 CONEXT B 0 0925 * SPECLT SW RECORD,HADLIT B PUT * SPEC SW RECORD WTW 2,RECORD BER TPERR BEF *&1 RTW 1,RECORD BER TPERR BEF ENDPH2 TSTORG CW HADLIT C OPER,@ORG @ BE GET&18 BSP 1 CS PARTBL&90 CS LCA @GEN @,PARAMT&64 LCA @ORG @,OPER LCA @*@,RECORD&20 LCA @*@,PARAMT LCA @S@,AADDR B PUTYYY * * 0926 * *** OPERATION CODE TABLE *** 0927 * 0928 * 0929 * * FIRST FOUR POSITIONS IS MNEUMONIC OP 0930 * * FIFTH POSITION IS MACHINE OP CODE 0931 * FOR IMPERATIVE COMMANDS 0932 * * SIXTH POSITION REPRESENTS D-MODIFIER 0933 * AN ASTERISK INDICATES THE D-MODIFIER 0934 * MUST BE PROVIDED IN THE OPERAND 0935 * A WORDMARK UNDER THE SIXTH POSITION 0936 * MEANS AUTOCODER WILL GENERATE IT 0937 * * THE SEVENTH POSITIONIS USED FOR TAPE 0938 * AND RAMAC COMMANDS ONLY 0939 * FOR TAPE, IT IS INSERTED AFTER THE % 0940 * FOR RAMAC, THE WORDMARK UNDER IT 0941 * MEANS IT IS INSERTED IN THE LOW 0942 * ORDER LOCATION OF THE A-ADDRESS 0943 * AND AN *F* WILL BE INSERTED 0944 * AFTER THE % 0945 * * DECLARATIVE AND CONTROL COMMANDS 0946 * REQUIRING SPECIAL PROCESSING HAVE A 0947 * WORDMARK UNDER THE FIFTH POSITION 0948 * AND POSITIONS 5-8 CONTAIN THE ADDRESS 0949 * OF THE APPROPRIATE ROUTINE 0950 * 0951 * 0952 OPTABL DCW @B B @ 0953 DCW @MCW M @ 0954 DCW @LCA L @ 0955 DCW @BCE B* @ 0956 DCW @A A @ 0957 DCW @S S @ 0958 DCW @SW , @ 0959 DCW @CW ) @ 0960 DCW @CS / @ 0961 DCW @H . @ 0962 DCW @C C @ 0963 DCW @ZA ? @ 0964 DCW @ZS ! @ 0965 DCW @MCE E @ 0966 DCW @MCS Z @ 0967 DCW @MN D @ 0968 DCW @MZ Y @ 0969 DCW @MCM P @ 0970 DCW @BE B@ 0971 DCW @S @ 0972 DCW @BU B@ 0973 DCW @/ @ 0974 DCW @BH B@ 0975 DCW @U @ 0976 DCW @BL B@ 0977 DCW @T @ 0978 DCW @DA @ 0979 DSA &PUT 0980 DCW @DC @ 0981 DSA &PUT 0982 DCW @DCW @ 0983 DSA &PUT 0984 DCW @DS @ 0985 DSA &DS 0986 DCW @DSA @ 0987 DSA &DSA 0988 DCW @EQU @ 0989 DSA &CONTRL 0990 DCW @CTL @ DSA &CONTRL 0992 DCW @END @ 0993 DSA &CONTRL 0994 DCW @EX @ 0995 DSA &CONTRL 0996 DCW @LTOR@ 0997 DSA &CONTRL 0998 DCW @ORG @ 0999 DSA &CONTRL 1000 DCW @XFR @ 1001 DSA &CONTRL 1002 DCW @JOB @ DSA &CONTRL 1004 DCW @BCV B@ 1005 DCW @@ @ 1006 DCW @D % @ 1007 DCW @M @ @ 1008 DCW @BEF B@ 1009 DCW @K @ 1010 DCW @BER B@ 1011 DCW @L @ 1012 DCW @BIN B* @ 1013 DCW @BLC B@ 1014 DCW @A @ 1015 DCW @BM V@ 1016 DCW @K @ 1017 DCW @BW V@ 1018 DCW @1 @ 1019 DCW @BWZ V* @ 1020 DCW @BSS B* @ 1021 DCW @P 4 @ 1022 DCW @R 1 @ 1023 DCW @RCB 1@ 1024 DCW @C @ 1025 DCW @RP 5 @ 1026 DCW @SPF 9 @ 1027 DCW @SRF 8 @ 1028 DCW @W 2 @ 1029 DCW @RT M@ 1030 DCW @RU@ 1031 DCW @WM 2@ 1032 DCW @) @ 1033 DCW @BC9 B@ 1034 DCW @9 @ 1035 DCW @BAV B@ 1036 DCW @Z @ 1037 DCW @BPCBB@ 1038 DCW @R @ 1039 DCW @BPB B@ 1040 DCW @P @ 1041 DCW @BBE W* @ 1042 DCW @SSB K* @ 1043 DCW @SS K* @ 1044 DCW @WP 6 @ 1045 DCW @WR 3 @ 1046 DCW @WRP 7 @ 1047 DCW @CC F* @ 1048 DCW @CCB F* @ 1049 DCW @NOP N @ 1050 DCW @SAR Q @ 1051 DCW @SBR H @ 1052 DCW @MIZ X @ 1053 DCW @MLC M @ 1054 DCW @MLCWL @ 1055 DCW @MLNSD @ 1056 DCW @MLZSY @ 1057 DCW @MRCMP @ 1058 DCW @WT M@ 1059 DCW @WU@ 1060 DCW @BSP U@ 1061 DCW @BU@ 1062 DCW @CU U* @ 1063 DCW @RTW L@ 1064 DCW @RU@ 1065 DCW @RWD U@ 1066 DCW @RU@ 1067 DCW @RWU U@ 1068 DCW @UU@ 1069 DCW @SKP U@ 1070 DCW @EU@ 1071 DCW @WTM U@ 1072 DCW @MU@ 1073 DCW @WTW L@ 1074 DCW @WU@ DCW @MA # @ 1075 DCW @MBC M@ 1076 DCW @B @ 1077 DCW @MBD M@ 1078 DCW @A @ 1079 DCW @DCR U@ 1080 DCW @D @ 1081 DCW @ECR U@ 1082 DCW @E @ 1083 DCW @LU L* @ 1084 DCW @MU M* @ 1085 DCW @PCB 4@ 1086 DCW @C @ 1087 DCW @RF 4@ 1088 DCW @R @ 1089 DCW @RTB M@ 1090 DCW @RB@ 1091 DCW @WRF 6@ 1092 DCW @R @ 1093 DCW @WTB M@ 1094 DCW @WB@ 1095 DCW @RD M@ 1096 DCW @R@ 1097 DCW @1@ 1098 DCW @RDT M@ 1099 DCW @R@ 1100 DCW @2@ 1101 DCW @RDW L@ 1102 DCW @R@ 1103 DCW @1@ 1104 DCW @RDTWL@ 1105 DCW @R@ 1106 DCW @2@ 1107 DCW @SD M@ 1108 DCW @R@ 1109 DCW @0@ 1110 DCW @WD M@ 1111 DCW @W@ 1112 DCW @1@ 1113 DCW @WDT M@ 1114 DCW @W@ 1115 DCW @2@ 1116 DCW @WDW L@ 1117 DCW @W@ 1118 DCW @1@ 1119 DCW @WDTWL@ 1120 DCW @W@ 1121 DCW @2@ 1122 DCW @WDC M@ 1123 DCW @W@ 1124 DCW @3@ 1125 DCW @WDCWL@ 1126 DCW @W@ 1127 DCW @3@ 1128 ENDOPT DCW @ @ 1129 DC @}@ 11291ORGB ORG 2771 XBIN C OPER,1965 COMPARE TO -BIN- BU CLEARX BCE PUT,ICOUNT,5 MLC *-7,ICOUNT MLC @ @,BADDR LCA AMPER,PARAMT&60 B PUT AMPER DCW @&@ ORG 2751 KILLIT C ADDR,@000@ BU PUT B GET ORG 2711 XBCE C OPER,@BCE @ BU *&9 BCE RELEAS,ICOUNT,1 A K1,ICOUNT B RELEAS ORG 2901 CLEARX CW PARAMT&60 B PUT ORG 2601 LOADXX LCA XLIMIT,15 B LOAD 2655 DSA 1053 XLIMIT EQU 2655 ORG 2701 PUTYYY SW RECORD B PUT ORG ORGB EX SYSTEM 1130 END SYSTEM JOB 1401 TWO-TAPE AUTOCODER, PHASE 3 - JULY 30, 1962 RBR 2TAP3 CTL 630 1 * 0003 ****** PHASE 3 - BUILD UP SYMBOL TABLE AND PROCESS LITERALS *** 0004 * 0005 * *** PHASE 3 IDENTIFICATION AT 333 *** 0006 * 0007 ORG 333 0008 DCW @3@ 0009 * 0010 * 0011 ORG 82 0012 CHECK DCW @ @ 0013 DCW @ }@ 0014 X1 EQU 89 0015 0089 DCW @000@ 0016 X2 EQU 94 0017 0094 DCW @000@ 0018 X3 EQU 99 0019 0099 DCW @000@ HLDLOC EQU 3 SAVLOC EQU 6 LASTLT EQU 9 LTTSAV EQU 12 TBLLMT EQU 15 0022 REITER EQU 193 0023 FULL EQU 194 0024 LITCTL EQU 195 0025 RELATV EQU 196 DA EQU 197 0026 ORG 100 0027 LOAD RWD 1 0028 RTW 1,CHECK 0029 BER TPERR 0030 BCE *&5,CHECK,D 0031 B LOAD&5 0032 BSP 1 0033 RTW 1,333 0034 SW CHECK&3 0035 RTW 1,CHECK 0036 BCE 334,CHECK,9 0037 B *-19 0038 SEEK EQU LOAD&25 NUMBER OF PHASE REQUESTED 0039 SYSTEM WTW 1,333 0040 BER *&5 0041 R 40 0042 BSP 1 0043 SKP 1 0044 B SYSTEM 0045 H 0046 OVFLIT EQU 14 0047 ORG 3971 0047 ORG 3943 00471SENTNL BCE REWRIT,333,1 00472 BCE REWRIT,333,3 00473 BCE REWRIT,333,7 00474 B 334 0048 REWRIT BSP 1 0049 WTW 1,CHECK 0050 BER TPERR 0051 BCE 334,CHECK,% 0052 H 0053 ORG 201 0054 * LINKAGE TO GENERALIZED TAPE ERROR ROUTINE 0055 TPERR H 0056 LABEL EQU RECORD&10 0057 * 0058 * 0059 * ** 2TAP2 SUBROUTINES ** 0060 * 0061 ORG ZONE&5 0062 * ROUTINE TO PUT A SYMBOL IN THE LABEL TABLE 0063 * * SYMBOL TAKEN FROM LABEL IN RECORD 0064 * * CURRENT AVAILABLE TABLE LOCATION IS 0065 * INDEXED BY X3 0066 * * IF LABEL TABLE IS FULL,LABEL IS NOT 0067 * STORED, AND A W/M IS SET AT RECORD&1 0068 SETLAB SBR SETEXT&3 0069 NOP TBLOVF,FULL,1 0070 MLC LOCCTR,LABTBL&X3 0071 MLC LABEL,LABTBL-3&X3 0072 NOP 000,000,0 0073 NOP 000 0074 TSTLMT A @9@,X3 C TBLLMT,X3 0076 BU TBLOVF&7 0077 B TBLOVF 0078 SETEXT B 0 TBLOVF SW FULL,RECORD&1 LCA LITTOT,LTTSAV 0080 B LOADXX 0081 * ROUTINE TO LOOK UP LABEL IN LABEL TABLE 0082 * * ARGUMENT LABEL PLACED AT LABTBL-3&X3 0083 * * IF LABEL FOUND, RETURN BY EXIT 0084 * * IF NOT FOUND, RETURN BY EXIT&4 0085 * * HIT LOCATED BY X2 0086 TLULAB SBR TLUEXT&3 0087 MLC @000@,X2 0088 SW TLUFST&7 0089 MLC LABTBL-7&X3,TLUFST&7 0090 CW TLUFST&7 0091 TLUFST BCE HITFST,LABTBL-7&X2, 0092 A @9@,X2 0093 B TLUFST 0094 HITFST C LABTBL-3&X2,LABTBL-3&X3 0095 BU TLUFST&8 0096 CW LABTBL-8&X3 0097 C X2,X3 0098 BU TLUEXT 0099 SW TLUEXT&1 0100 A @4@,TLUEXT&3 0101 CW TLUEXT&1 0102 TLUEXT B 0 0103 * ROUTINE TO MODIFY A MACHINE ADDRESS BY A 0104 * PLUS OR MINUS ADJUSTMENT VALUE 0105 * * ADDRESS PLACED AT ADDR 0106 * * ADJUSTMENT VALUE TAKEN FROM PARAMT&10 0107 * * MODIFIED ADDRESS SET AT RESULT-1 0108 MODADD SBR MODEXT&3 0109 BAV *&1 0110 CW NEG 0111 SW PARAMT&11 0112 MLC @000@,X1 0113 MLC PARAMT&19,X1 0114 MLC @000@,HOLD 0115 MLC PARAMT&10&X1,HOLD 0116 MZ PARAMT&10,HOLD 0117 BM DECR,HOLD 0118 SETINC MLC ADDR,RESULT-1 0119 MZ @ @,RESULT-1 0120 A HOLD,RESULT-1 0121 MZ ADDR,RESULT-1 0122 MZ RESULT-3,YYY 0123 MZ ADDR-2,XXX 0124 BW MODEXT&4,NEG 0125 C XXX,YYY 0126 BH *&5 0127 B MODEXT 0128 SW RESULT-1 0129 A @|0@,RESULT 0130 CW RESULT-1 0131 MODEXT B 000 0132 BAV MODEXT 0133 C XXX,YYY 0134 BH MODEXT 0135 SW RESULT-1 0136 A @?0@,RESULT 0137 B MODEXT-4 01371XXX DCW @2@ 01372YYY DCW @2@ 0138 DECR SW NEG 0139 A @999@,HOLD 0140 A @?01@,HOLD 0141 B SETINC 0142 MODALT SBR MODEXT&3 0143 BAV *&1 0144 CW NEG 0145 B SETINC-16 0146 MODZER MLC HOLD,RESULT-1 0147 B MODEXT 0148 HALT4 H 0149 * 0150 * HOUSEKEEPING 0151 * 0152 ORG 334 0153 B HSKPG PIVOT BRANCH TO HOUSEKEEPING 0154 * CREATE ALL WORK AREAS - OVERLAID BY INSTRS 0155 NOP LOCCTR#3,LITTOT#3 0156 NOP ADDR#3,HOLD#3 NOP RESULT#4 NOP LITORG#1,NEG#1 0161 * GET INPUT RECORD 0162 ORG 338 0163 GETRCD RTW 2,RECORD 0164 BER TPERR 0165 BEF IPEOR 0166 B PUTRCD&7,LABEL-5,* BYPASS COMMENTS CARD 0167 SW LABEL-5 BW PUTRCD&7,RECORD&3 BW GETLOC,RECORD&1 BW CNTRL2,FULL PROCES BW SUBSEQ,DA 0170 INSTR BW CNTRL,RECORD TEST FOR CONTROL STATEMENT 0171 BCE DECLAR,ICOUNT, 0172 * PROCESS IMPERATIVE COMMAND 0173 IMPER BCE *&13,LABEL-5, 0174 BWZ PRCLIT,LABEL-5,2 BYPASS ACTUAL LOCATION ASSIGNMENT 0175 B SETLAB 0176 LCA LOCCTR,LOCATN 0179 ZA ICOUNT,HOLD STEP LOCATION COUNTER BY LENGTH 0180 MZ @ @,HOLD 0181 MLC LOCCTR,ADDR 0182 B MODALT 0183 MLC RESULT-1,LOCCTR 0184 BCE PUTRCD,LITCNT, 0185 * TEST FOR LITERALS 0186 PRCLIT MLC @000@,X1 0187 BCE LITERL,AADDR,L NUMERIC LITERAL 0188 BCE ALFLIT,AADDR,F ALPHANUMERIC LITERAL 0189 BCE AREA,AADDR,W LITERAL AREA 0190 BCE ADCON,AADDR,C ADDRESS CONSTANT 0191 MLC @030@,X1 0192 BCE LITERL,BADDR,L NUMERIC LITERAL 0193 BCE ALFLIT,BADDR,F ALPHANUMERIC LITERAL 0194 BCE AREA,BADDR,W LITERAL AREA 0195 BCE ADCON,BADDR,C ADDRESS CONSTANT 0196 * PUT OUTPUT RECORD PUTRCD LCA LOCCTR,HLDLOC WTW 1,RECORD 0198 BER TPERR 0199 BEF *&1 0200 B GETRCD 0201 * PROCESS DECLARATIVE STATEMENTS * GETLOC MLC HLDLOC,LOCCTR CW FULL,RECORD&1 02014 B MOVXX * CNTRL2 BW *&5,RECORD B PUTRCD&7 BCE PUTRCD&7,PARAMT,* BCE CNTRL,AADDR,S B PUTRCD&7 * 0202 DECLAR C OPER,@DA @ 0203 BE DALINE 0204 MLC LITCNT,HOLD 0205 S @1@,HOLD STEP LOCATION COUNTER BY LENGTH-1 0206 MZ @ @,HOLD 0207 MLC LOCCTR,ADDR 0208 B MODALT 0209 BCE *&9,LABEL-5, 0210 BWZ PUTRCD,LABEL-5,2 TEST FOR ACTUAL ADDRESS ASSNMT 0211 MLC RESULT-1,LOCCTR 0212 MLC LOCCTR,LOCATN 0213 BCE *&5,LABEL-5, 0214 B SETLAB STORE LABEL & LOCATION IN TABLE 0215 UPDLOC ZA LITCNT,HOLD 0216 MZ @ @,HOLD 0217 B MODALT STEP LOCATION COUNTER BY LENGTH 0218 MLC RESULT-1,LOCCTR 0221 B PUTRCD 0222 * PROCESS DA HEADER DALINE LCA LOCCTR,SAVLOC 0224 SW DA 0225 MZ ACTOP,LOCCTR-1 GET INDEXING FOR LABTBL 0226 MLC SAVLOC,ADDR 0227 BCE *&13,LABEL-5, 0228 BWZ ACTDA,LABEL-5,2 0229 B SETLAB 0230 MLC SAVLOC,LOCATN 0231 MLC LITCNT,SAVLOC SAVE TOTAL LENGTH OF DA B PUTRCD 0233 * DA ENTRY WITH ACTUAL ADDRESS ASSIGNMENT ACTDA MLC LOCATN,ADDR 0235 SW ACTDA&1 SET ACT. ADDR. SWITCH 0236 B PUTRCD 0237 * PROCESS SUBSEQUENT ENTRIES FOR DA 0238 SUBSEQ BW DASUB,PARAMT&65 TEST FOR DA SUBSEQUENT ENTRY 0239 BW ACTOUT,ACTDA&1 NOT SUBSEQ - TEST ACTUAL ADDR SW 0240 MLC SAVLOC,HOLD 0241 B MODALT 0242 MLC RESULT-1,LOCCTR STEP LOCATION COUNTER BY DA LENGTH 0243 CW DA,ACTDA&1 RESET SWITCHES 0244 B INSTR BRANCH TO PROCESS NEW ENTRY 0245 ACTOUT MLC SAVLOC,LOCCTR RESTORE ORIGINAL LOCATION COUNTER 0246 B ACTOUT-11 0247 * PROCESS DA SUBSEQUENT ENTRY 0248 DASUB MLC LOCATN,HOLD GET RELATIVE POSITION IN AREA 0249 B MODALT APPLY IT TO DA BASE ADDRESS 0250 MLC RESULT-1,LOCCTR 0252 MLC LOCCTR,LOCATN 0251 MZ ACTOP,LOCCTR-1 GET INDEXING FOR LABTBL 0253 BCE *&5,LABEL-5, 0254 B SETLAB B PUTRCD 0257 * PROCESS GENERATED LITERALS 0258 LITERL SBR LITEXT&3 0259 BCE SHORT,PARAMT&6&X1, 0260 * TLU SHORT LITERALS FOR DUPLICATES 0261 LITOUT A PARAMT&29&X1,LITTOT 0262 LITEXT B 0 0263 SHORT LCA PARAMT&5&X1,LABTBL-3&X3 0264 B TLULAB 0265 B INTABL 0266 FIRST MLC LABEL,HLDLAB#6 FIRST OCCURRENCE OF LITERAL 0267 A PARAMT&29&X1,LITTOT ))) 0268 MLC PARAMT&5&X1,LABEL 0270 B SETLAB PUT SHORT LITERAL IN SYMBOL TABLE 0275 LCA LITTOT,LABTBL-9&X3 0276 SW LABTBL-17&X3 MARK AS RELATIVE ENTRY 0277 MLC HLDLAB,LABEL ))) 0278 B LITEXT 0279 INTABL SW LABTBL-8&X3 DUPLICATED SHORT LITERAL 0280 BWZ TABLYY,092,2 0281 B TABLZZ 0282 TABLXX CW LABTBL-8&X3 0283 S PARAMT&29&X1,LITCNT DUPLICATED WITHIN SAME LITERAL 0284 MZ @ @,LITCNT AREA, NOT PREVIOUS ONE 0285 BCE *&12,X1-1,3 SET LITERAL FOR SYMBOLIC TLU 0286 MLC @Q@,AADDR 0287 B LITEXT 0288 MLC @Q@,BADDR ))) 0289 B LITEXT 0295 * ALPHANUMERIC LITERAL 0296 ALFLIT SBR LITEXT&3 0297 C PARAMT&29&X1,@05@ 0298 BH SHORT TEST FOR SHORT A/N LITERAL 0299 B LITOUT 0300 * LITERAL AREA OF FORM SYMBOL#10 0301 AREA SBR LITEXT&3 0302 LCA PARAMT&9&X1,PARAMT&29&X1 0303 B FIRST 0304 * ADDRESS CONSTANT 0305 ADCON SBR LITEXT&3 0306 B LITOUT 0307 * TEST FOR CONTROL STATEMENTS 0308 CNTRL BCE ORIGIN,OPER-3,O ORIGIN CONTROL STATEMENT 0309 BCE LTORG,OPER-3,L LTORG CONTROL STATEMENT 0310 BCE EQUATE,OPER-2,Q EQUATE STATEMENT 0311 BCE ELTG,OPER-3,E EX OR END - PROCESS AS LTORG 0312 B PUTRCD NO PROCESSING REQUIRED 0313 * PROCESS ORIGIN CONTROL STATEMENTS ORIGIN BCE DECODO,LABEL-5, BW DECODO,FULL 0316 B SETLAB DECODO BCE ACTORG,AADDR,A 0318 BCE SYMORG,AADDR,S SYMBOLIC ADDRESS 0320 BCE PUTRCD,AADDR,D ALREADY PROCESSED BCE SETORG,AADDR,P 0319 BCE ASTORG,AADDR, BLANK OPERAND 0321 SW ERRPOS 0322 B PUTRCD 0323 * ORIGIN WITH ACTUAL ADDRESS OPERAND 0324 ACTORG MLC @D@,AADDR MARK AS PROCESSED 0325 MLC PARAMT&8,LOCCTR 0326 MLC LOCCTR,LOCATN 0328 B PUTRCD ABSOLUTE MODE 0329 * ORIGIN WITH SYMBOLIC OPERAND 0330 SYMORG BCE ASTORG,PARAMT,* TEST FOR * OPERAND 0331 LCA PARAMT&5,LABTBL-3&X3 0332 B TLULAB TLU SYMBOL IN SYMBOL TABLE 0333 B PREVLB FOUND SYMBOL IN SYMBOL TABLE 0334 * SYMBOL IN OPERAND NOT PREVIOUSLY DEFINED NOPREV BW PUTRCD&7,FULL 0337 LCA @000@,LOCATN ))) 0338 MLC @000@,LOCCTR SET BASE ZERO FOR LOCATION COUNTR SW ERRPOS B PUTRCD 0349 * SYMBOL IN OPERAND WAS PREVIOUSLY DEFINED PREVLB MLC @P@,AADDR 0352 MLC LABTBL&X2,LOCCTR 0353 MLC LOCCTR,LOCATN 0354 BCE NOSADJ,PARAMT&10, 0355 MLC LOCCTR,ADDR 0356 B MODADD APPLY CHARACTER ADJUSTMENT 0357 MLC RESULT-1,LOCCTR 0358 NOSADJ MLC LOCCTR,LOCATN 0360 BW LTGOUT,LITORG IF SYMBOLIC LTORG, RETURN TO LTOR BW PUTRCD&7,FULL 0361 B PUTRCD 0362 * ORIGIN WITH ASTERISK SYMBOLIC 0363 ASTORG C @&X00@,PARAMT&13 TEST FOR *&X00 OPERAND 0364 BE CENORG 0365 MLC LOCCTR,ADDR 0368 BCE *&12,PARAMT&10, ))) 0369 B MODADD APPLY CHARACTER ADJUSTMENT 0370 MLC RESULT-1,LOCCTR 0371 LCA LOCCTR,LOCATN ))) 0373 B PUTRCD 0374 * ORIGIN WITH *&X00 OPERAND 0375 CENORG MLC @100@,HOLD 0376 MLC LOCCTR,ADDR 0377 B MODALT 0378 MN @000@,RESULT-1 GENERATE NEXT 100S ADDRESS 0379 MN 0380 MLC RESULT-1,LOCCTR 0381 CEN1 LCA LOCCTR,LOCATN 0389 ORGOUT BW LTGOUT,LITORG TEST FOR LTORG SHARING ROUTINE 0390 B PUTRCD * SETORG MLC LOCATN,LOCCTR B ORGOUT * 0391 * * PROCESS LTORG CONTROL STATEMENTS 0392 LTORG BCE DECODL,LABEL-5, BW DECODL,FULL 0395 B SETLAB STORE LABEL AND PREVIOUS LOCATION 0396 DECODL BCE SYMLTG,AADDR,S SYMBOLIC ADDRESS 0397 BCE ACTLTG,AADDR,A ACTUAL ADDRESS 0399 BCE PUTRCD,AADDR,D STATEMENT ALREADY PROCESSED BCE SETLIT,AADDR,P 0398 BCE ASTLTG,AADDR, BLANK OPERAND 0400 SW ERRPOS ILLEGAL OPERAND - MARK AS INVALID 0401 B PUTRCD 0402 * SYMBOLIC ADDRESS LTORG 0403 SYMLTG BCE ASTLTG,PARAMT,* TEST FOR * OPERAND 0404 SW LITORG SET LITORG SWITCH FOR ORG ROUTINE 0405 B SYMORG SHARE SYMBOLIC ORG ROUTINE LTGOUT BW PUTRCD&7,FULL MLC @|@,LABTBL-5&X3 0407 MLC LOCCTR,LABTBL-6&X3 0408 MLC LOCCTR,ADDR 0409 MLC LITTOT,HOLD 0410 B MODALT 0411 MLC RESULT-1,LOCCTR 0412 MLC LITTOT,LABTBL&X3 ))) 0413 MLC @000@,LITTOT ))) 0414 MLC X3,LASTLT STORE LAST LTORG POINT ))) 0415 STORLT CW LITORG RESET LITORG SWITCH 0418 MLC &PUTRCD,SETEXT&3 0419 B TSTLMT SET ENTRY INTO SYMBOL TABLE 0426 * LTORG WITH * OPERAND 0427 ASTLTG C PARAMT&13,@&X00@ TEST FOR *&X00 OPERAND 0428 BE CENLTG 0429 MLC LOCCTR,ADDR 0430 BCE ELTG,PARAMT&10, 0431 B MODADD APPLY CHARACTER ADJUSTMENT 0432 MLC RESULT-1,LOCCTR 0433 ELTG LCA LOCCTR,LOCATN SET UP TABLE ENTRY 0435 CW LABTBL-5&X3 B LTGOUT 0441 CENLTG SW LITORG 0442 B CENORG 0443 ACTLTG MLC @D@,AADDR 0444 MLC PARAMT&8,LOCATN 0446 MLC LOCATN,LOCCTR 0447 B LTGOUT * SETLIT MLC LOCATN,LOCCTR B LTGOUT * 0448 * PROCESS EQUATE ENTRIES EQUATE BCE SYMEQU,AADDR,S 0450 BCE SYMEQU,AADDR,S 0451 BCE ACTEQU,AADDR,A 0452 BCE MCHEQU,AADDR,M 0453 BCE PUTRCD,AADDR,D 0454 BCE PROCEQ,AADDR,E 0455 SW ERRPOS 0456 B PUTRCD 0457 ACTEQU MLC PARAMT&8,ADDR 0458 B ADJEQU 0459 MCHEQU MLC PARAMT&2,ADDR 0460 B PUTEQU 0461 ASTEQU MLC LOCCTR,ADDR 0462 ZS @1@,HOLD 0463 B MODALT 0464 MLC RESULT-1,ADDR 0467 B ADJEQU 0468 SYMEQU BCE ASTEQU,PARAMT,* 0469 LCA PARAMT&5,LABTBL-3&X3 0470 B TLULAB 0471 B HITEQU 0472 BW PUTRCD&7,FULL 0473 SW ERRPOS-2 0475 MLC @###@,LOCATN 0476 B PUTRCD 0477 HITEQU BW ADJEQU,LABTBL-8&X2 0478 MLC LABTBL&X2,ADDR 0479 MLC @E@,AADDR 0480 ADJEQU MLC @000@,X2 0481 MLC @000@,X1 0482 BCE PUTEQU,PARAMT&10, 0483 BCE INDEQU,PARAMT&11,X 0484 B MODADD 0485 MLC RESULT-1,ADDR 0486 MLC @010@,X2 0487 BCE PUTEQU,PARAMT&20, 0488 INDEQU MLC @000@,X1 0489 MN PARAMT&12&X2,X1 0490 MZ ZONE&X1,ADDR-1 0491 PUTEQU MLC ADDR,LOCATN 0492 MLC &PUTRCD,SETEXT&3 BW PUTRCD&7,FULL MLC LABEL,LABTBL-3&X3 0495 MLC ADDR,LABTBL&X3 0496 B TSTLMT 0497 PROCEQ MLC LOCATN,ADDR 0498 B PUTEQU 0499 * 0500 * END OF REEL ON INPUT TAPE # 2 0501 IPEOR RWD 2 0502 WTM 1 0503 RWD 1 0504 MLC @4@,SEEK 0505 CW PARTBL&90,LABTBL&X3 0506 B LOAD 0507 H 0508 * END OF REEL ON OUTPUT TAPE # 1 0509 * ** IMPOSSIBLE CONDITION ** 0510 * 0511 * TAPE RECORD AREA 0512 * 0513 RECORD DA 1X80,| 0514 PARTBL DA 1X90,| 0515 AADDR 1,1 0516 BADDR 2,2 0517 ERRPOS 6 0518 ICOUNT 7,7 0519 LITCNT 8,10 0520 ACTOP 11,11 0521 LOCATN 12,14 0522 PARAMT 15,15 0523 AOPND 85,87 0524 BOPND 88,90 0525 OPER EQU RECORD&18 0526 GPMK DC @}@ 0527 ZONE DCW #1 0528 DCW @/JA@ 0529 * 0530 * HOUSEKEEPING ROUTINE - OVERLAID BY TAPE IO 0531 * 0532 ORG RECORD 0533 HSKPG MLC @333@,LOCCTR 0534 MLC @000@,X3 0535 LCA @000@,LTTSAV 0544 CW DA,FULL 0536 * HSKPG ENTRY POINT FOR PHASE 7 REITERATION 0537 HSKPG1 SW 3998 0538 LCA 3998,PARTBL&90 0539 NOP 000 05391 NOP 0540 MLC LTTSAV,LITTOT REESTABLISH CUTOFF LITERAL TOTAL 0541 LCA @000@,LASTLT SET LAST LITERAL POINT AS ZERO 0542 * CLEAR ALL SWITCHES FOR PHASE 3 OR 7 SW RELATV 0545 CW LITORG,NEG 0546 CW LITCTL,HIGH3&1 0547 B GETRCD 0548 H 0549 * 0550 * LITERALS USED BY 2TAP2 0551 LTORGHALT4 0552 HIGH1 H 0553 * 0554 * 0555 * LABEL TABLE FOR 2TAP2 0556 * * SYMBOL STORED IN FIRST 6 POSITIONS 0557 * * EQUIVALENT ADDRESS STORED IN LAST 3 0558 * * FOR RELATIVE ADDRES, W/M UNDER H.O. 0559 * * NUMERIC LITERALS UNDER 6 CHARACTERS 0560 * * ALPHANUMERIC LITERALS UNDER 5 CHARS 0561 * * RELATIVE ORIGIN ENTRY STORED WITH 3 0562 * POSITION ADJUSTMENT VALUE IN FIRST 3 0563 * AND SYMBOLIC OPERAND IN LAST 6 WITH 0564 * A W/M UNDER FIRST & FOURTH POSITIONS 0565 ORG HIGH3&4 0566 LABTBL DC @ @ 0567 3998 DCW @}@ 0568 * ORG 3889 LOADXX LCA ADDR,018 B SETEXT ORG 3900 MOVXX MLC 018,ADDR B PUTRCD&7 ORG 2758 TABLYY BWZ TABLZZ&8,007,2 B TLUFST&8 TABLZZ BWZ TABLXX,007,2 C X2,009 BH TLUFST&8 B TABLXX 0569 EX SYSTEM 0570 JOB 1401 TWO-TAPE AUTOCODER - PHASE 7 - REITERATION RBR 2TAP7 0571 * 0572 ****** OVERLAY OF PHASE 3 FOR REITERATION *** 0573 * 0574 * *** PHASE 7 IDENTIFICATION AT 333 *** 0575 * 0576 ORG 333 0577 DCW @7@ 0578 B HSKPG1 0642 * 2802 DCW @}@ 0643 EX SYSTEM 0644 JOB 1401 TWO-TAPE AUTOCODER - PHASE 4 - COMPLETE TBL RBR 2TAP4 0645 * 0646 ****** TEST SYMBOL TABLE FOR RELATIVE ADDRESSES *** 0647 * 0648 * *** PHASE 4 IDENTIFICATION AT 333 *** 0649 * 0650 ORG 333 0651 DCW @4@ 0652 * 0653 TSTTBL CW REITER 0654 BW TBLDON,RELATV 0655 SW RELATV,HOLDZN#1 0656 MLC @000@,X1 0657 MLC @000@,SAVLOC 0658 SW LABTBL-5&X3,LABTBL-8&X3 0659 BW *&12,LABTBL-5&X1 0660 P2SK1 A @9@,X1 0661 B *-18 0662 C X1,X3 0663 BE TBLDON 0664 MLC @000@,X2 0665 LCA LABTBL&X1,LABTBL-3&X3 0666 P2SK2 C LABTBL-3&X2,LABTBL&X1 0667 BE *&12 0668 A @9@,X2 0669 B P2SK2 0670 C X3,X2 0671 BE NOSYM 0672 BW *&5,LABTBL-8&X2 0673 B *&21 0674 BW *&5,FULL 0675 B NOSYM 0676 CW RELATV 0677 B P2SK1 0678 MLC LABTBL&X2,ADDR 0679 MLC LABTBL-6&X1,HOLD 0680 CW LABTBL-5&X1 0681 A @1@,SAVLOC 0682 B MODALT 0683 P2SK3 MLC RESULT-1,ADDR 0684 MLC ADDR,LABTBL&X1 0685 CW LABTBL-5&X1 0686 MLC @|@,LABTBL-8&X1 0687 P2SK4 A @9@,X1 0688 BCE SKPEQU,LABTBL-2&X1,# 0689 BW P2SK4,LABTBL-2&X1 BYPASS SHORT LITERALS 0690 BW APPLY,LABTBL-8&X1 RELATIVE ADDRESS 0691 BW *&21,LABTBL-5&X1 0692 BW P2SK4,LABTBL&X1 0693 BCE P2SK4,LABTBL-5&X1,| 0694 B P2SK1-15 0695 BCE SETLOC,LABTBL-5&X1,* 0696 B P2SK1-15 0697 SKPEQU BW *&8,LABTBL&1X1 0698 A @9@,X1 0699 B P2SK4 0700 SETLOC MLC LABTBL-6&X1,HOLD 0701 B MODALT 0702 BCE CENAPL,LABTBL-4&X1,X 0703 MLC RESULT-1,LABTBL&X1 0704 CW LABTBL-5&X1 0705 MLC RESULT-1,ADDR 0706 MLC @|@,LABTBL-8&X1 0707 B P2SK4 0708 CENAPL MN @000@,RESULT-1 0709 MN 0710 B SETLOC&19 0711 APPLY C X1,X3 0712 BE P2SK8 0713 BCE P2SK9,LABTBL-5&X1,| 0714 BCE P2SK10,LABTBL-11&X1,# 0715 MZ LABTBL-1&X1,HOLDZN 0716 MLC LABTBL&X1,HOLD 0717 B MODALT 0718 MLC RESULT-1,LABTBL&X1 0719 MZ HOLDZN,LABTBL-1&X1 0720 CW LABTBL-8&X1 0721 B P2SK4 0722 P2SK9 MLC LABTBL-6&X1,HOLD 0723 B MODALT 0724 BCE CNLAPL,LABTBL-4&X1,X 0725 MLC RESULT-1,LABTBL-6&X1 0726 MLC RESULT-1,ADDR 0727 MLC LABTBL&X1,HOLD 0728 B MODALT 0729 MLC RESULT-1,ADDR 0730 B P2SK9-8 0731 CNLAPL MN @000@,RESULT-1 0732 MN 0733 B P2SK9&19 0734 P2SK10 MLC LABTBL-6&X1,HOLD 0735 B MODALT 0736 MLC RESULT-1,LABTBL-6&X1 0737 B P2SK9-8 0738 NOSYM BW P2SK7,FULL 0739 MLC @000@,ADDR 0740 MLC ADDR,LABTBL&X1 0741 SW LABTBL-7&X1 0742 B P2SK3&7 0743 P2SK7 CW RELATV 0744 A @9@,X1 0745 B P2SK1-15 0746 TBLDON BW *&13,RELATV 0747 C SAVLOC,@000@ 0748 BU TSTTBL 0749 BW *&5,FULL 0750 B TSTLIT 0751 SW REITER 0752 B TSTLIT 0753 P2SK8 BW *&5,OVFLIT-8 0754 B TBLDON 0755 MLC OVFLIT-6,HOLD 0756 B MODALT 0757 MLC RESULT-1,OVFLIT-6 0758 CW OVFLIT-8 0759 B TBLDON 0760 * TEST TABLE FOR UNDEFINED LITORG ENTRIES 0761 TSTLIT MLC @000@,X1 0762 SW LABTBL&X3 0763 CMPLTG BW *&12,LABTBL&X1 0764 A @9@,X1 0765 B CMPLTG 0766 C X1,X3 0767 BE TSTEQU 0768 BCE CMPLTG&8,LABTBL-5&X1,* 0769 CW LABTBL&X1 0770 SW LABTBL-5&X1 0771 LCA LABTBL&X1,LABTBL-3&X3 0772 CW LABTBL-5&X1 0773 SW LABTBL&X1 0774 B TLULAB 0775 B LITHIT 0776 NLTHIT BW *&5,RELATV 0777 B CMPLTG&8 0778 MLC @|@,LABTBL-5&X1 0779 MLC @000@,LABTBL-6&X1 0780 B CMPLTG&8 0781 LITHIT BW NLTHIT,LABTBL-8&X2 0782 SW LABTBL-8&X1 0783 MLC LABTBL&X2,LABTBL-6&X1 0784 CW LABTBL-8&X1,LABTBL&X1 0785 MLC @|@,LABTBL-5&X1 0786 B CMPLTG&8 0787 * TEST TABLE FOR UNDEFINED EQUATE ENTRIES 0788 TSTEQU MLC @000@,X1 0789 MLC @#@,LABTBL-2&X3 0790 CMPEQU BCE *&12,LABTBL-2&X1,# 0791 A @9@,X1 0792 B CMPEQU 0793 C X1,X3 0794 BE SHRTLT 0795 BCE *&5,LABTBL&4&X1, 0796 B TLUEQU 0797 BW CMPEQU&8,LABTBL&1&X1 0798 SW LABTBL-2&X1 0799 BW *&5,LABTBL-1&X1 0800 B *&8 0801 MZ LABTBL-1&X1,LABTBL&2&X1 0802 MLC LABTBL&3&X1,LABTBL&X1 0803 CW LABTBL-2&X1 0804 MLC @|@,LABTBL&2&X1 0805 B CMPEQU&8 0806 TLUEQU SW LABTBL&4&X1 0807 MLC LABTBL&9&X1,LABTBL-3&X3 0808 CW LABTBL&4&X1 0809 B TLULAB 0810 B PRVEQU 0811 BW *&5,RELATV 0812 B CMPEQU&8 0813 MLC @###@,LABTBL&X1 0814 B CMPEQU&8 0815 PRVEQU BW *&8,LABTBL-1&X1 0816 MZ LABTBL-1&X2,LABTBL-1&X1 0817 CW LABTBL-1&X1 0818 MZ LABTBL-1&X1,HOLDZN 0819 MLC LABTBL&X2,ADDR 0820 MLC LABTBL&3&X1,HOLD 0821 B MODALT 0822 MLC RESULT-1,LABTBL&X1 0823 MZ HOLDZN,LABTBL-1&X1 0824 CW LABTBL&4&X1 0825 CW LABTBL-8&X1,LABTBL-2&X1 0826 MLC @|@,LABTBL&2&X1 0827 B CMPEQU&8 0828 * COMPLETE SHORT LITERAL ADDRESSES 0829 SHRTLT MLC @000@,X1 0830 MLC @000@,X2 0831 TSTLTG BCE HAVLTG,LABTBL-5&X2,| 0832 A @9@,X2 0833 C X3,X2 0834 BE ENDPH2 0835 B TSTLTG 0836 HAVLTG MLC LABTBL-6&X2,ADDR 0837 ZS @1@,HOLD 0838 B MODALT 0839 MLC RESULT-1,ADDR 0840 TSTSRT BW HAVSRT,LABTBL-2&X1 0841 A @9@,X1 0842 C X1,X3 0843 BE ENDPH2 0844 B TSTSRT 0845 HAVSRT C X2,X1 0846 BH PATCHX 0847 MLC LABTBL&X1,HOLD 0848 B MODALT 0849 MLC RESULT-1,LABTBL&X1 0850 CW LABTBL-8&X1 0851 B TSTSRT&8 0852 ENDPH2 LCA @ @,LABTBL&X3 0853 CW LABTBL-8&X3 0854 MLC @5@,SEEK 0855 CW HIGH2&1 0856 NOP 999,999 0857 B LOAD 0858 H 0859 LTORGNEG&1 08591 H 0860 PATCHX BWZ TSTLTG&8,092,2 0861 BWZ HAVSRT&12,087,2 08611 B TSTLTG&8 08612HIGH2 H 08613 DCW @}@ 0862 EX SYSTEM 0863 JOB 1401 TWO-TAPE AUTOCODER - PHASE 5 - TLU LABELS RBR 2TAP5 0864 * 0865 ****** PHASE 5 - TLU LABELS AND PROCESS LITERAL RECORDS *** 0866 * 0867 * *** PHASE 5 IDENTIFICATION AT 333 *** 0868 * 0869 ORG 333 0870 DCW @5@ 0871 * 0872 B PHASE5 BRANCH TO HOUSEKEEPING 0873 * 0874 ORG RECORD&1 0875 PHASE5 CW SAVLIT#1,ADONE#1 HOUSEKEEPING 0876 SW 3998 0877 LCA 3998,PARTBL&90 0878 CW FSTIME#1,DOUBLE#1 0879 CW LITONE#1,LITX#1 0880 CW LITORG 0881 NOP LITBEG#5,ORGBAS#3 0882 NOP TEMP1#3 0883 MLC @ @,ADDR 0884 MLC @000@,LSTORG#3 0885 MLC @000@,LASTLT 0886 MLC X3,BASIC#3 0887 MLC @000@,X3 0888 B TLULIT 0889 H 0890 ORG 338 0891 * FIND FIRST LTORG ENTRY IN LABEL TABLE 0892 TLULIT C X3,BASIC 0893 BE HITLIT-8 HAVE OVERFLOW LTORG 0894 A @9@,X3 STEP X3 TO FIND NEXT LTORG IN TBL 0895 BCE HITLIT,LABTBL-5&X3,| TEST FOR LTORG ENTRY 0897 B TLULIT 0898 SW LITADD SET UP FOR INCOMPLETE LTORG ))) 0899 B LITPNT&7 0901 HITLIT MLC LABTBL-6&X3,ADDR 0902 MLC @00J@,HOLD 0903 B MODALT 0904 * SET LTORG POINT ADDRESS IN LITADD 0905 LITPNT LCA RESULT-1,LITADD#3 SET UP START ADDR OF LITERALS 0906 MLC X3,LITLOC#3 0907 MLC BASIC,X3 0908 * GET INPUT RECORD FOR PROCESSING 0909 GET RTW 1,RECORD 0910 BER TPERR 0911 BEF ENDPH3 0912 BCE PUT,RECORD&5,* 0913 CW ADONE 0914 C OPER,@LTOR@ 0915 BE LIT 0916 C OPER,@EX @ 0917 BE LTDONE 0918 BW HAVLIT,LITX 0919 BW LITRCD,RECORD&3 0920 LTREST MLC LITBEG-2,LASTLT 0921 CW LITORG 0922 BW CONTRL,RECORD 0924 TEST BCE DECL,ICOUNT, 0925 * PROCESS IMPERATIVE INSTRUCTION 0926 MLC @000@,HOLD 0927 MLC PARAMT&29,HOLD 0928 MLC @000@,X1 0929 MLC AADDR,DADDR#1 0930 BCE DONE,AADDR, 0931 BCE OUTADD&15,AADDR,D 0932 BCE SYMBOL,AADDR,S 0933 BCE ACTUAL,AADDR,A 0934 BCE MACHIN,AADDR,M 0935 BCE CNVRTD,AADDR,Q 0936 BW OUTADD,LITADD 0937 * SET UP ADDRESS FOR LITERAL 0938 LITRAL MLC LITADD,ADDR 0939 B MODALT 0940 MLC RESULT-1,ADDR 0941 MLC ADDR,LITADD 0942 MLC @D@,DADDR 0943 SW SAVLIT 0944 OUTADD BW DOBADD,ADONE 0945 MLC ADDR,AOPND 0946 B SETXX 0947 MLC PARAMT&59,HOLD 0948 MLC @030@,X1 0949 MLC DADDR,AADDR 0950 MLC BADDR,DADDR 0951 BW ALIT,SAVLIT 0952 TSTADD BCE DONE,BADDR, 0953 BCE DONE,BADDR,D 0954 BCE SYMBOL,BADDR,S 0955 BCE ACTUAL,BADDR,A 0956 BCE MACHIN,BADDR,M 0957 BCE CNVRTD,BADDR,Q 0958 BCE DONE,ICOUNT, 0959 B LITRAL-8 0960 ALIT CW SAVLIT 0961 B TSTADD 0962 * PROCESS LITERAL RECORD 0963 HAVLIT CW LITX 0964 BW *&5,RECORD&3 0965 B LTREST 0966 MLC TEMP1,X1 0967 B LITRCD&15 0968 LITRCD BW PROCSW,LITORG 0969 MLC LITLOC,X1 0970 SW LITORG 0971 C X1,X3 0972 BE NOPROC 0973 BW NOPROC,LABTBL&X1 0974 BW NOPROC,LABTBL-8&X1 0975 B *&12 0976 NOPROC MLC @B@,PROCSW 0977 B PROCSW 0978 MLC @N@,PROCSW 0979 MLC LABTBL-6&X1,ADDR 0980 ZS @1@,HOLD 0981 B MODALT 0982 MLC RESULT-1,BASE#3 0983 PROCSW NOP TSTADC 0984 BW TSTADC,RECORD&4 0985 BCE ALPHA,RECORD&20,@ 0986 BCE NUMLIT&8,PARAMT&60,A 0987 NUMLIT BCE SHORTL,PARAMT&6, 0988 MLC BASE,ADDR ))) 0989 MLC LITCNT,HOLD 0990 B MODALT 0991 LCA RESULT-1,LOCATN 0992 MLC LOCATN,BASE 0993 SW RECORD&4 MARK LITERAL RECORD AS PROCESSED 0994 TSTADC BCE TLUADC,PARAMT&61,D 0995 B PUT 0996 TLUADC BCE PUT,AADDR,D 0997 MLC AADDR,DADDR 0998 MLC @000@,X1 0999 SW PARAMT&1 1000 LCA PARAMT&6,LABTBL-3&X3 1001 B SYMBOL&15 1002 LADBCK MLC AOPND,PARAMT&32 1003 B PUT 1004 SHORTL SW PARAMT 1005 LCA PARAMT&5,LABTBL-3&X3 1006 B TLULAB 1007 B *&5 1008 B PUT 1009 SW LABTBL-8&X3 1010 C X2,LASTLT 1011 B ADJXX 10111 NOP 1012 CW LABTBL-8&X3 1013 BW ALPHA-8,LABTBL-2&X2 1014 B GET 1015 CW LABTBL-2&X2 1016 B NUMLIT&8 1017 ALPHA C LITCNT,@005@ 1018 BH SHORTL 1019 B NUMLIT&8 1020 * PROCESS SYMBOLIC LABEL - TLU IN LABEL TABL 1021 SYMBOL BCE ASTRSK,PARAMT&X1,* 1022 LCA PARAMT&5&X1,LABTBL-3&X3 1023 B TLULAB 1024 B HITSYM 1025 BW OUTADD, FULL 1026 B TSTFUL 1027 HITSYM BW TSTFUL,LABTBL-8&X2 1028 CW LABTBL-2&X2 1029 MLC LABTBL&X2,ADDR 1030 BCE TSTFUL,LABTBL-2&X2,# 1031 MLC @D@,DADDR 1032 B CMPADD 1033 TSTFUL BW OUTADD,FULL 1034 MLC @###@,ADDR 1035 SW ERRPOS-2 1036 MLC @D@,DADDR 1037 B OUTADD 1038 ASTRSK BCE OUTADD,LOCATN, 1039 MLC LOCATN,ADDR 1040 ZA ICOUNT,HOLD 1041 S @1@,HOLD 1042 MZ @ @,HOLD 1043 B MODALT 1044 MLC RESULT-1,ADDR 1045 MLC @D@,DADDR 1046 B CMPADD 1047 * PROCESS ACTUAL ADDRESS OPERAND 1048 ACTUAL MLC PARAMT&8&X1,ADDR 1049 MLC @D@,DADDR 1050 B CMPADD 1051 * PROCESS MACHINE ADDRESS OPERAND 1052 MACHIN MLC PARAMT&2,ADDR 1053 MLC @D@,DADDR 1054 B OUTADD 1055 * APPLY CHARACTER ADJUSTMENT & INDEXING 1056 CMPADD BCE OUTADD,PARAMT&10&X1, 1057 BCE INDADD,PARAMT&11&X1,X 1058 ADJADD MLC @000@,X2 1059 SW PARAMT&11&X1 1060 MLC PARAMT&19&X1,X2 1061 A X1,X2 1062 MLC @000@,HOLD 1063 MLC PARAMT&10&X2,HOLD 1064 MZ PARAMT&10&X1,HOLD 1065 MZ ADDR-1,HOLDZN 1066 B MODALT 1067 MLC RESULT-1,ADDR 1068 MZ HOLDZN,ADDR-1 1069 A @10@,X1 1070 BCE OUTADD,PARAMT&10&X1, 1071 INDADD MLC @000@,X2 1072 MN PARAMT&12&X1,X2 1073 MZ ZONE&X2,ADDR-1 1074 B OUTADD 1075 DOBADD MLC ADDR,BOPND 1076 CW ADONE 1077 MLC DADDR,BADDR 1078 BW BLIT,SAVLIT 1079 DONE BCE LADBCK,PARAMT&61,D 1080 B PUT 1081 BLIT CW SAVLIT 1082 B DONE 1083 * TLU DUPLICATED SHORT LITERALS 1084 CNVRTD LCA PARAMT&5&X1,LABTBL-3&X3 1085 B TLULAB 1086 B *&5 1087 H *-3 1088 SW LABTBL-8&X3 1089 C X2,LASTLT 1090 B ADJXX 10901 NOP 1091 CW LABTBL-8&X3 1092 BW TSTFUL,LABTBL-8&X2 1093 B HITSYM&12 1094 * TEST CONTROL ENTRIES 1097 CONTRL C OPER,@EQU @ 1098 BE GETEQU 1099 C OPER,@END @ 1100 BE LTDONE 1101 MLC @000@,X1 1102 C OPER,@XFR @ 1103 BE TEST&22 1104 B PUT 1144 * PROCESS EQUATE ENTRIES 1145 GETEQU B PUT 1146 * PROCESS LTORG ENTRIES 1147 LIT SW LITX 1148 LTDONE BW LITBCK-12,RECORD&4 1149 MLC &LITBCK,OUT&3 1150 C LITLOC,X3 1151 BE LIT1 1152 BW *&9,LOCATN 1153 SW RECORD&4 1154 B LITBCK-12 1155 MLC LITLOC,X1 1156 BW LIT1,LABTBL-8&X1 1157 BW LIT1,LABTBL&X1 1158 CW LOCATN 1159 MLC LABTBL-6&X1,LOCATN 1160 BCE CALLTT,PARAMT,* 1161 BCE CALLTT,OPER-3,E 1162 B LIT1-8 1163 CALLTT MLC LOCATN,ADDR 1164 MLC LABTBL&X1,HOLD 1165 B MODALT 1166 MLC RESULT-1,ORGBAS 1167 SW RECORD&4 MARK LTORG AS PROCESSED 1168 B LITBCK-12 1169 LIT1 BW LITBCK-12,FULL 1170 SW ERRPOS 1171 LCA @000@,LOCATN 1172 BCE TEST&22,OPER-3,E 1173 B PUT 1174 LITBCK MLC &GET,OUT&3 1175 MLC X3,BASIC 1176 MLC LITLOC,LITBEG-2 1177 BW *&8,LITX 1178 MLC LITLOC,LASTLT 1179 MLC LITLOC,X3 1180 MLC LITLOC,TEMP1 1181 B TLULIT 1182 * DECLARATIVE ENTRIES - BYPASS IF CONSTANT 1183 * IF ADDRESS CONSTANT, LOOK IT UP 1184 DECL BCE TLUADC,AADDR,C 1185 BCE TEST&22,AADDR,S 1186 BCE TEST&22,AADDR,A 1187 B PUT 1188 * MARK LITERAL RECORD AS PROCESSED 1189 PUTX SW RECORD&4 1190 * PUT A RECORD 1191 PUT WTW 2,RECORD 1192 BER TPERR 1193 BEF *&1 1194 OUT B GET 1195 ENDPH3 RWD 1 1196 WTM 2 1197 RWD 2 1198 BW *&19,REITER 1199 MLC @8@,SEEK 1200 NOP 666,666 1201 B *&15 1202 MLC @8@,SEEK 1203 NOP 555,555 1204 CW PARTBL&84 1205 CW BOPND&1 1206 CW HIGH3&1,GPMK 1207 B LOAD 1208 HIGHPT H 12081SETXX MLC @000@,HOLD 12082 SW ADONE 12083 B OUTADD&19 1209 ORG HIGH2&1 1210 DCW #1 1211 LTORGHOLDZN&1 1212 HIGH3 H 1213 DCW @}@ ORG LITBEG-2 DCW @000@ ORG 1924 ADJXX SBR ADJYY-1 BWZ ADJYY,092,2 BWZ ADJYY-4,007,2 BH TLUFST&8 B 000 ADJYY BWZ ADJYY-9,007,2 B TLUFST&8 1214 EX SYSTEM 1215 JOB 1401 TWO-TAPE AUTOCODER - PHASE 6 - PACK TABLE RBR 2TAP6 1216 * 1217 ****** PHASE 6 - CONDENSING OF RELATIVE ENTRIES IN SYMBOL TABLE 1218 * FOR REITERATION 1219 * 1220 * *** PHASE 6 IDENTIFICATION AT 333 *** 1221 * 1222 ORG 333 1223 DCW @6@ 1224 * 1225 RERUN MLC @000@,X1 1226 MLC @000@,X2 1227 AVAIL BW SAVE1,LABTBL-5&X1 1228 BW SAVE1,LABTBL-2&X1 1229 BW SAVE1,LABTBL&X1 1230 BW SAVE,LABTBL-8&X1 1231 BCE SAVE4,LABTBL-2&X1,# 1232 AVAIL1 C X1,X3 1233 BE PACKED 1234 A @9@,X1 1235 B AVAIL 1236 SAVE B CMP1T2 1237 LCA LABTBL&X1,LABTBL&X2 1238 CW LABTBL-8&X1 1239 A @9@,X2 1240 B AVAIL1 1241 SAVE1 B CMP1T2 1242 BW SAVE2,LABTBL-8&X1 1243 SW LABTBL-8&X1 1244 LCA LABTBL&X1,LABTBL&X2 1245 MLC 1246 SAVE3 LCA @ @,LABTBL&X1 1247 B SAVE&11 1248 SAVE2 LCA LABTBL&X1,LABTBL&X2 1249 LCA 1250 B SAVE3 1251 SAVE4 B CMP1T2 1252 A @9@,X2 1253 SW LABTBL-8&X1 1254 MLC LABTBL&9&X1,LABTBL&X2 1255 B SAVE&11 1256 * 1257 CMP1T2 SBR CMPEXT&3 1258 C X1,X2 1259 CMPEXT BU 0 1260 A @9@,X2 1261 B AVAIL1 1262 * 1263 PACKED MLC X2,X3 1264 CW HIGH5 1265 MLC @7@,SEEK 1266 NOP 777,777 1267 B LOAD 1268 LTORG* 1269 HIGH5 DCW @}@ 1270 H 1271 ORG HIGH1 1272 DCW @|@ 1273 ORG HIGH3&1 1274 DCW #1 1275 EX SYSTEM 1276 END SYSTEM 0101 JOB 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 0101 CTL 630 1 0103 * 0104 * PHASE 8 - PRINT OUT LABEL TABLE 0105 * 0106 * 0107 LABTBL EQU 2813&X1 0108 REITER EQU 193 0109 * 0110 * ** SYSTEMS CONTROL ** 0111 ORG 82 0112 CHECK DCW @ @ 0113 DCW @ }@ 0114 ORG 100 0115 LOAD RWD 1 0116 RTW 1,CHECK 0117 BER TPERR 0118 BCE *&5,CHECK,D 0119 B LOAD&5 0120 BSP 1 0121 RTW 1,333 0122 SW CHECK&3 0123 RTW 1,CHECK 0124 BCE 334,CHECK,0 0125 B *-19 0126 SEEK EQU LOAD&25 0127 * 0128 SYSTEM WTW 1,333 0129 BER *&5 0130 R 40 0131 BSP 1 0132 SKP 1 0133 B SYSTEM 0134 H 0135 X1 EQU 89 0136 0089 DCW @000@ 0137 X2 EQU 94 0138 0094 DCW @000@ 0139 X3 EQU 99 0140 0099 DCW @000@ 0141 * 0142 * PHASE 8 IDENTIFICATION AT 0333 0143 * 0144 ORG 333 0145 DCW @8@ 0146 * 0147 B LABELS 0148 * 0149 ENDPH8 RTW 1,333 0150 BER TPERR 0151 BCE PHASE9,333,9 0152 H *-3 0153 * 0154 * GENERALIZED RD/WR TAPE ERROR ROUTINE 0155 * 0156 TPERR SBR X1 0157 A TX3987,X1 0158 BW TXCOMP,TXGET&1 0159 TXGET MLC 17&X1,TXEOF&4 0160 MLC TXDUMY&4,17&X1 0161 MLC 3&X1,TXBSP&3 0162 MLC TXBSP&5,TXBSP 0163 SW TXGET&1 0164 TXCOMP B TXPERM,TXCNTL,9 0165 TXBSP BSP 1 0166 SKP 1 0167 A *-6,TXCNTL 0168 B 0&X1 0169 TXPERM H 888,888 0170 MLC TXPERM-1,TXCNTL 0171 B TXBSP 0172 TXDONE MLC TXPERM-1,TXCNTL 0173 MLC TXEOF&4,17&X1 0174 CW TXGET&1 0175 B 13&X1 0176 TXDUMY B TXDONE 0177 DC @ @ 0178 TXEOF BEF 1 0179 TXCNTL DCW @0@ 0180 TX3987 DCW @I87@ 0181 * ROUTINE TO CONVERT MACHINE ADDRESS TO 0182 * REGULAR FIVE POSITION ADDRESS 0183 * * MACHINE ADDRESS TAKEN FROM ADDR 0184 * * RESULT PLACED IN WORK 0185 DECOD SBR DECEXT&3 0186 ZA ADDR#3,WORK#5 0187 MZ @ @,WORK 0188 BWZ ADD12,ADDR,B 0189 BM ADD8,ADDR 0190 BWZ ADD4,ADDR,S 0191 HIORDR BWZ ADD3,ADDR-2,B 0192 BM ADD2,ADDR-2 0193 BWZ ADD1,ADDR-2,S 0194 B DECEXT 0195 ADD12 A @12@,WORK-3 0196 B HIORDR 0197 ADD8 A @8@,WORK-3 0198 B HIORDR 0199 ADD4 A @4@,WORK-3 0200 B HIORDR 0201 ADD3 A @3@,WORK-3 0202 B DECEXT 0203 ADD2 A @2@,WORK-3 0204 B DECEXT 0205 ADD1 A @1@,WORK-3 0206 DECEXT B 0 0207 LTORG* 0208 HIGH88 H 0209 * 0210 * PRINT OUT SYMBOL TABLE 0211 * 0212 LABELS MLC @|@,333 0213 CC 1 0214 MCM 201,AREA 0215 CHAIN2 0218 LCA @ @,LABTBL&X3 0219 CW LABTBL-8&X3 0220 MCM LINE&X0,201 0221 MCM TITLE-12,201 0222 MLC @ @,213 0223 CC T 0224 W 0225 * 0226 INITL MLC @000@,X1 0227 MLC @000@,X2 0228 CS LINE&131&X0 0229 CS 0230 MLC TABLE,FIRST&7 0231 MLC TABLE,LABTBL-8&X3 0232 FIRST BCE HIT,LABTBL-8,D 0233 A @9@,X1 0234 B FIRST 0235 HIT C X1,X3 0236 BE ENDTAB 0237 BW FIRST&8,LABTBL 0238 BW FIRST&8,LABTBL-2 0239 BW FIRST&8,LABTBL-5 0240 BW FIRST&8,LABTBL-8 0241 BW FIRST&8,LABTBL-7 0242 BCE FIRST&8,LABTBL-8,| 0243 BCE FIRST&8,LABTBL-5,| 0244 BCE FIRST&8,LABTBL-7,| 0245 BCE STEP,LABTBL-2,# 0246 SW LINE 0247 MLC LABTBL-3,LINE&5 0248 MLC LABTBL,ADDR 0249 BCE PERCNT,ADDR-2,% 0250 MZ @ @,ADDR-1 0251 B DECOD 0252 LCA EDIT1,LINE&11 0253 MCE WORK,LINE&11 0254 BWZ INDEX1,LABTBL-1,S 0255 TSTX2 BWZ INDEX2,LABTBL-1,K 0256 TSTX3 BWZ INDEX3,LABTBL-1,B 0257 TSTLIN BCE RESET2,X2-2,1 0258 A @16@,X2 0259 B FIRST&8 0260 STEP A @9@,X1 0261 B FIRST&8 0262 PERCNT MLC ADDR,LINE&11 0263 B TSTLIN 0264 RESET2 C X2,@000@ 0265 BE RSTOUT-8 0266 MLC @000@,X2 0267 MCM LINE&X0,201 0268 W 0269 CS LINE&131&X0 0270 CS 0271 BW ENDPRT,RSTOUT&1 0272 RSTOUT B FIRST&8 0273 INDEX1 MLC @&X1@,LINE&14 0274 B TSTX2 0275 INDEX2 MLC @&X2@,LINE&14 0276 B TSTX3 0277 INDEX3 MLC @&X3@,LINE&14 0278 B TSTLIN 0279 ENDTAB SW RSTOUT&1 0280 B RESET2 0281 ENDPRT CW RSTOUT&1 0282 MCM TABLE&1,TABLE 0283 BCE FINIS,TABLE,| 0284 B INITL 0285 FINIS CC 1 0286 BW *&5,REITER 0287 B PHASE8 0288 CW HIGH8 0289 MCM AREA,201 0290 CHAIN2 0293 MLC @6@,SEEK 0294 B LOAD 0295 TITLE DCW @SYMBOL TABLE|@ 0296 * 0297 ORG *&X00 0298 LINE DA 1X132,X2,|,C 0299 * 0300 AREA DA 1X180 0301 * 0302 PHASE8 RTW 2,AREA 0303 BER TPERR 0304 BOOT LCA BOOT1,0180 0305 SW AREA&75 0306 MLC @0001@,175 0307 MLC AREA&99,180 0308 CS 332 0309 CS 0310 MLC 171,290 0311 MLC @CLEAR STORAGE 1@,215 0312 MLC @1@,314 0313 WP 0314 LCA BOOT2,180 0315 MLC @0002@,175 0316 MLC AREA&99,180 0317 MLC 171,290 0318 MLC @CLEAR STORAGE 2@,215 0319 MLC @2@,314 0320 WP 0321 LCA BOOT3,180 0322 MLC @0003@,175 0323 MLC AREA&99,180 0324 MLC 171,290 0325 MLC @BOOTSTRAP @,215 0326 MLC @3@,314 0327 CC T 0328 WP 0329 CS 332 0330 CS 0331 RWD 2 0332 BSP 1 0333 BSP 1 0334 BSP 1 0335 BSP 1 0336 BSP 1 0337 BSP 1 0338 BSP 1 0339 CW HIGH8 0340 B ENDPH8 0341 H 0342 DCW @,008015,019026,030,034041,045,053,057057@ 0343 BOOT1 DC @1026 @ 0344 DCW @L068112,102106,113/101099/I99,027A070028@ 0345 BOOT2 DC @)027B0010270B0261,001/001113I0 @ 0346 DCW @,008015,022029,036040,047054,061068,072/@ 0347 BOOT3 DC @061039 ,0010011040 @ 0348 TABLE DCW @A@ 0349 DC @BCDEFGHIJKLMNOPQRSTUVWXYZ@ 0350 DC @|@ 0351 EDIT1 DCW @ 0 @ 0352 LTORG* 0353 HIGH8 DCW @}@ 0354 EX SYSTEM 0355 JOB 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST & CONDS RBR 2TAP9 0356 * 0357 * PHASE 9 - CONDENSING AND LISTING ROUTINE 0358 * 0359 * PHASE 9 IDENTIFICATION AT 333 0360 * 0361 ORG 333 0362 DCW @9@ 0363 * 0364 H *-3 0365 RTW 1,333 0366 BER TPERR 0367 BCE PHASE9,333,9 0368 H *-3 0369 * 0370 ORG HIGH88 0371 PHASE9 B HSKPG 0372 * 0373 ORG PHASE9&4 0374 HSKPG1 RTW 2,RECORD 0375 BER TPERR 0376 * 0377 REINIT MLC @0@,COUNT#1 0378 MLC @000@,X1 0379 MLC @000@,X2 0380 MLC @000@,X3 0381 MLC @0000@,POSCNT#4 0382 MLC @ @,ASSMBD#8 0383 SW 101,140 0384 B AGAIN 0385 * 0386 GETOBJ CW AOPND-12 0387 RTW 2,RECORD 0388 BER TPERR 0389 BEF EOF4 0390 SW AOPND-2,BOPND-2 0391 B COMMNT,RECORD&5,* 0392 * 0393 AGAIN BW SUBDA,SUBNXT 0394 BW *&5,LITCTL 0395 B *&13 0396 BW *&5,RECORD&3 0397 B CDFULL 0398 BW CDFULL,ISOLAT 0399 C OPER,@EX @ 0400 BE EXECUT 0401 C OPER,@XFR @ 0402 BE EXECUT 0403 C OPER,@CTL @ 0404 BE PRINT1 0405 * 0406 C OPER,@JOB @ 0407 BU NOTJOB 0408 MLC RECORD&71,HEADNG 0409 MLC PARAMT&4,SETUP-1 0410 LCA SETUP-1,180 0411 NOP JOBACK&4 1ST-TIME-ONLY NOP 0412 MLC @B@,*-10 0413 B GETOVF 0414 JOBACK B PRINT1 0415 B OVFLO 0416 B PRINT1 0417 * 0418 NOTJOB C OPER,@DS @ 0419 BE DS 0420 C OPER,@END @ 0421 BE END 0422 BW PRINT2,RECORD 0423 BCE INSTRT-8,LABEL-5, 0424 BWZ *&5,LABEL-5,2 0425 B INSTRT-8 0426 BW *&9,FSTIME 0427 SW FSTIME 0428 B CDFULL 0429 CW FSTIME 0430 SW ISOLAT 0431 BCE CONST,ICOUNT, 0432 * 0433 INSTRT MLC POSCNT,SPACE#4 0434 A ICOUNT,POSCNT 0435 C POSCNT,@0039@ 0436 BL CDFULL 0437 BCE CDFULL,COUNT,7 0438 A @1@,COUNT 0439 MLC POSCNT,SPACE 0440 LCA LOCATN,SWADDR&X2 0441 A @3@,X2 0442 LCA SWADDR-3&X2,SWADDR&X2 0443 ZA ICOUNT,HOLD 0444 MLC SWADDR&X2,ADDR 0445 B MODAD 0446 P4SK1 LCA RESULT-1,SWADDR&X2 0447 A ICOUNT,X3 0448 B SETXX 0449 NOP 0450 NOP 0451 NOP 0452 BCE IDONE,ICOUNT,1 0453 BCE ADMOD,ICOUNT,2 0454 MLC AOPND,ASSMBD-4 0455 BCE BRANCH,ICOUNT,4 0456 BCE BDMOD,ICOUNT,5 0457 MLC BOPND,ASSMBD-1 0458 BCE NODMOD,ICOUNT,7 0459 MLC PARAMT&60,ASSMBD 0460 MLC ASSMBD,100&X3 0461 B ASSOUT 0462 IDONE MLC ASSMBD-7,100&X3 0463 B ASSOUT 0464 ADMOD MLC PARAMT&60,ASSMBD-6 0465 MLC ASSMBD-6,100&X3 0466 B ASSOUT 0467 BRANCH MLC ASSMBD-4,100&X3 0468 B ASSOUT 0469 BDMOD MLC PARAMT&60,ASSMBD-3 0470 MLC ASSMBD-3,100&X3 0471 B ASSOUT 0472 NODMOD MLC ASSMBD-1,100&X3 0473 ASSOUT CS 332 0474 CS 0475 MLC ICOUNT,284 0476 SW 303,299 0477 SW 295,293 0478 MLC ASSMBD,303 0479 MLC ASSMBD-1,301 0480 MLC ASSMBD-4,297 0481 MLC ASSMBD-7,293 0482 MLC @ @,ASSMBD 0483 BCE *&5,PARAMT&60,G 0484 B PRINT 0485 MLC PARAMT&64,309 0486 B PRINT 0487 * 0488 CONST C OPER,@DA @ 0489 BE DAOUT 0490 BCE NUMOUT,PARAMT&60,M 0491 BW *&5,PARAMT&65 0492 B *&21 0493 BW *&9,FSTIME 0494 SW FSTIME 0495 B CDFULL 0496 CW FSTIME ))) 0497 C OPER&1,@DC @ 0498 BU *&5 0499 CW ERRPOS-1 0500 MLC POSCNT,SPACE 0501 A LITCNT,POSCNT 0502 C POSCNT,@0039@ 0503 BL TSTLNG 0504 BCE CDFULL,COUNT,7 0505 A @1@,COUNT ))) 0506 MLC POSCNT,SPACE 0507 BW NOWM1,SPLIT&5 ON 2ND HALF OF LONG CONSTANT 0508 C OPER,@DC @ 0509 BE NOWM 0510 FSTCON BCE *&5,COUNT,1 0511 B CONBCK-14 0512 MLC LOCATN,SWADDR 0513 ZA @1@,HOLD 0514 A @3@,X2 0515 LCA SWADDR-3&X2,SWADDR&X2 0516 B CONBCK&7 0517 A @3@,X2 0518 LCA SWADDR-3&X2,SWADDR&X2 0519 CONBCK MLC LITCNT,HOLD 0520 MLC SWADDR&X2,ADDR 0521 B MODAD 0522 P4SK2 MLC RESULT-1,SWADDR&X2 0523 A LITCNT,X3 0524 MLC LITCNT,X1 ))) 0525 MLC @M@,P4SK2&14 0526 BCE DSA,OPER-1,A 0527 BW SETLIT,RECORD&3 0528 BCE NUMALF,PARAMT,@ 0529 BWZ NUMALF,PARAMT,2 0530 BCE *&20,PARAMT,& 0531 BCE *&12,PARAMT,- 0532 MLC AOPND,100&X3 0533 B NUMOUT 0534 BWZ *&12,PARAMT&1,2 0535 MLC @ @,PARAMT&19 0536 B *-29 0537 MZ PARAMT,PARAMT&X1 0538 NUMALF SW PARAMT&1 0539 MLC PARAMT&X1,100&X3 0540 CW PARAMT&1 0541 B NUMOUT 0542 * 0543 DSA MLC AOPND,100&X3 0544 B NUMOUT 0545 * 0546 SETLIT SW PARAMT&30,LITCTL 0547 BCE *&8,RECORD&20,# 0548 MLC PARAMT&29&X1,100&X3 0549 CW PARAMT&30 0550 BCE *&5,RECORD&20,@ 0551 B NUMOUT 0552 MLC @@@,RECORD&21&X1 0553 NUMOUT CS 332 0554 CS 0555 BW CONST,TSTLNG&9 SUPPRESS PRINTING ON 1ST HALF 0556 BW *&5,SPLIT&5 RESTORE LONG CONSTANT FOR PRINT 0557 B NOTLNG 0558 CW SPLIT&5 0559 A @0039@,LITCNT 0560 NOTLNG MCS LITCNT,284 0561 SW AOPND-2 0562 MLC AOPND,296 0563 SW PARAMT&60 0564 MLC PARAMT&64,309 0565 BCE PRINT1,PARAMT&60,M 0566 * 0567 PRINT MCS CARDCT,314 0568 MLC LOCATN,ADDR ))) 0569 B DECOD 0570 MLC @Z@,PRINT 0571 LCA EDIT,290 0572 MCE WORK,290 0573 C WORK,@00080@ 0574 BL PRINT1 0575 MLC @ADDR@,319 0576 A @1@,ERRCNT 0577 * 0578 PRINT1 MLC LABEL,219 0579 SW 214,221 0580 SW 227,201 0581 CW RECORD&3,RECORD&4 0582 MLC OPER&1,225 0583 MLC RECORD&71,278 0584 SW RECORD,RECORD&2 0585 SW RECORD&75 0586 MCS RECORD&79,204 0587 MCS RECORD&1,207 0588 MLC RECORD&4,211 0589 BW *&5,ERRPOS 0590 B *&19 0591 MLC @INVALID@,322 0592 A @1@,ERRCNT 0593 B TSTOVF 0594 BW *&5,ERRPOS-1 0595 B *&15 0596 MLC @OPER@,325 0597 A @1@,ERRCNT 0598 BW *&5,ERRPOS-2 0599 B *&15 0600 MLC @SYM@,330 0601 A @1@,ERRCNT 0602 TSTOVF W 0603 BCV OVFLO 0604 B GETOBJ 0605 * 0606 NOWM BCE *&5,COUNT,1 0607 B CONBCK 0608 MLC LOCATN,ADDR ))) 0609 ZS LITCNT,HOLD 0610 A @1@,HOLD 0611 B MODAD 0612 MLC RESULT-1,SWADDR&6 0613 MLC SWADDR&6,SWADDR&3 0614 MLC 0615 MLC SWADDR&6,ADDR 0616 MLC LITCNT,HOLD 0617 B MODAD 0618 MLC RESULT-1,SWADDR&9 0619 MLC @3@,COUNT 0620 MLC @9@,X2 0621 MLC @)@,147 0622 B P4SK2&7 0623 NOWM1 MLC LOCATN,ADDR 0624 ZA PARAMT&69,HOLD 0625 B MODAD 0626 MLC RESULT-1,LOCATN 0627 SW PARAMT&40 0628 MLC @0039@,X1 0629 MLC @A@,P4SK2&14 0630 B NOWM&12 0631 * TEST FOR CONSTANTS LONGER THAN 39 CHARS 0632 TSTLNG BW REST,TSTLNG&9 0633 BW ERRLIT,ERRPOS 0634 BW SPLIT,REST&5 0635 C LITCNT,@040@ 0636 BH CDFULL SHORT CONSTANT 0637 C LITCNT,@53@ 0638 BH *&9 0639 SW ERRPOS 0640 B CDFULL 0641 SW REST&5 0642 B CDFULL RELEASE PREVIOUS CARD 0643 ERRLIT MLC @N@,PRINT 0644 B NUMOUT 0645 * SET UP FIRST 39 POSITIONS OF LONG CONSTANT 0646 SPLIT CW REST&5 0647 LCA LITCNT,PARAMT&69 SAVE ORIGINAL LENGTH 0648 MLC @0039@,LITCNT SET LENGTH TO 39 0649 MLC @0039@,POSCNT 0650 S @0039@,PARAMT&69 FIGURE REMAINDER 0651 MLC LOCATN,ADDR 0652 ZS PARAMT&69,HOLD 0653 B MODAD 0654 MLC RESULT-1,LOCATN 0655 SW TSTLNG&9 0656 B FSTCON-34 0657 * PUNCH THE FIRST 39 POSITIONS 0658 REST CW TSTLNG&9 0659 MLC PARAMT&69,LITCNT 0660 MZ @ @,LITCNT 0661 SW SPLIT&5 0662 B CDFULL 0663 * 0664 PRINT2 BCV OVFLO 0665 CS 332 0666 CS 0667 C OPER,@EQU @ 0668 BE CTL 0669 BW *&9,FSTIME 0670 SW FSTIME 0671 B CDFULL 0672 CW FSTIME 0673 SW 305 0674 BCE *&5,PARAMT&60,G 0675 B *&8 0676 MLC PARAMT&64,309 0677 MLC LOCATN,ADDR 0678 B DECOD 0679 LCA EDIT,297 0680 MCE WORK,297 0681 MLC @L@,140 0682 B PRINT1 0683 * 0684 CTL MLC LOCATN,ADDR 0685 BCE CDFULL-11,LOCATN-2,% 0686 B DECOD 0687 LCA EDIT,290 0688 MCE WORK,290 0689 BWZ PRINT1,LOCATN-1,2 0690 MLC @X@,292 0691 B PRINT1 0692 MLC LOCATN,290 0693 B PRINT1 0694 * 0695 CDFULL CW ISOLAT,LITCTL 0696 BCE AGAIN,COUNT,0 0697 MLC SWADDR&X2,ADDR 0698 MLC @040@,SWADDR&X2 0699 MLC SWADDR&18,167 0700 MLC 0701 MLC SWADDR&12,160 0702 MLC 0703 MLC SWADDR&6,153 0704 MLC 0705 ZS @1@,HOLD 0706 B MODAD 0707 P4SK3 MLC RESULT-1,146 0708 SW 141 0709 MLC SPACE,143 0710 MLC CARDCT,175 0711 A @1@,CARDCT 0712 P 0713 CS 139 0714 MLC RESULT-1,ADDR 0715 B DECOD 0716 C WORK,@04000@ 0717 BH *&5 0718 SW EXCEED 0719 LCA @040@,SWADDR&18 0720 LCA SWADDR&18,SWADDR&15 0721 CHAIN5 0727 LCA SETUP-1,180 0728 B REINIT 0729 * 0730 COMMNT SW RECORD&5 0731 BCV OVFLO 0732 CS 0332 0733 CS 0734 CW RECORD&15,RECORD&20 0735 MLC RECORD&71,280 0736 SW RECORD,RECORD&2 0737 MCS RECORD&1,207 0738 MLC RECORD&4,211 0739 MCS RECORD&79,204 0740 BCV OVFLO 0741 W GETOBJ 0742 * 0743 DS BW *&9,FSTIME 0744 SW FSTIME 0745 B CDFULL 0746 CW FSTIME 0747 CS 332 0748 CS 0749 B PRINT&7 0750 * *** CONSTANTS *** 0751 EDIT DCW @ 0 @ 0752 SWADDR DCW @040@ 0753 DCW @040@ 0754 DCW @040@ 0755 DCW @040@ 0756 DCW @040@ 0757 DCW @040@ 0758 DCW @040@ 0759 DCW @040@ 0760 SETUP DCW @L ,040040,040040,0400401040 |@ 0761 * COPY OF ROUTINE TO MODIFY MACHINE ADDRESS 0762 * BY A PLUS OR MINUS ADJUSTMENT VALUE 0763 * * ADDRESS PLACED AT ADDR 0764 * * ADJUSTMENT VALUE TAKEN FROM PARAMT&10 0765 * * MODIFIED ADDRESS PLACED AT RESULT-1 0766 MODAD SBR MDEXIT&3 0767 BAV *&1 0768 CW NEG1#1 0769 BM DECR1,HOLD#3 0770 SETIN NOP @?0@ 0771 ORG SETIN 0772 MLC ADDR,RESULT-1 0773 MZ @ @,RESULT-1 0774 A HOLD,RESULT-1 0775 MZ ADDR,RESULT-1 0776 MZ RESULT-3,YYY 0777 MZ ADDR-2,XXX 0778 BW MDEXIT&4,NEG1 0779 C XXX,YYY 0780 BH *&5 0781 B MDEXIT 0782 SW RESULT-1 0783 A @|0@,RESULT#4 0784 CW RESULT-1 0785 MDEXIT B 000 0786 BAV MDEXIT 0787 C XXX,YYY 0788 BH MDEXIT 0789 SW RESULT-1 0790 A @?0@,RESULT 0791 B MDEXIT-4 0792 XXX DCW @2@ 0793 YYY DCW @2@ 0794 DECR1 SW NEG1 0795 A @999@,HOLD 0796 A @?01@,HOLD 0797 B SETIN 0798 MODZR MLC HOLD,RESULT-1 0799 B MDEXIT 0800 H 0801 * 0802 * INPUT RECORD AREA 0803 * Z 04 RECORD DA 1X80,| Z 05 LABEL 11 Z 06 OPER 19 Z 07 PARTBL DA 1X90,| 0808 AADDR 1,1 0809 BADDR 2,2 0810 ERRPOS 6 0811 ICOUNT 7,7 0812 LITCNT 8,10 0813 ACTOP 11,11 0814 LOCATN 12,14 0815 PARAMT 15,15 0816 AOPND 85,87 0817 BOPND 88,90 0818 * 0819 ORG RECORD&1 0820 HSKPG MLC @0004@,CARDCT#4 0821 MLC @0000@,ERRCNT#4 0822 CW FSTIME#1,SUBNXT#1 0823 CW ISOLAT#1,LITCTL#1 0824 CW EXCEED#1 0825 CS 139 0826 CS 80 0827 SW 21 0828 B HSKPG1 0829 H 0830 LTORGPARTBL&91 0831 * 0832 * CALLING LINKAGE FOR PHASE 9 SUBROUTINES 0833 * ON SYSTEMS TAPE 0834 * 0835 * *** PAGE OVERFLOW CALL *** 0836 OVFLO SBR OVFEXT 0837 CC 1 0838 B GETOVF 0839 OVFOUT B JOBACK 0840 OVFEXT EQU * 0841 NOP PAGENO#3 0842 * 0843 * *** DA HEADER CALL *** 0844 DAOUT BW DAHDR,FSTIME 0845 B GETDA 0846 * 0847 * *** DA SUBSEQUENT ENTRY CALL *** 0848 SUBDA NOP 000,000,0 0849 NOP FSTIME 0850 BCE GETSUB,OPER-3, 0851 A @1@,COUNT 0852 DADONE CW SUBNXT,FSTIME 0853 BCE REINIT,COUNT,0 0854 B P4SK3&18 0855 * 0856 * *** EX AND XFR CALL *** 0857 EXECUT BW SETEXC,FSTIME 0858 B GETEX 0859 * 0860 * *** END CARD - END OF JOB CALL *** 0861 END BW END2,FSTIME 0862 SW FSTIME 0863 B GETEND 0864 * 0865 * 0866 * ROUTINE TO ORDER THE DESIRED SUBROUTINE 0867 GETEND RTW 1,OVRLAY 0868 GETEX RTW 1,OVRLAY 0869 GETSUB RTW 1,OVRLAY 0870 GETDA RTW 1,OVRLAY 0871 GETOVF RTW 1,OVRLAY 0872 BER TPERR 0873 BEF *&1 0874 B SUBRT 0875 * 0876 * ROUTINE TO REPOSITION SYSTEMS TAPE AFTER 0877 * SUBROUTINE IS FINISHED 0878 BSP5 BSP 1 0879 BSP4 BSP 1 0880 BSP3 BSP 1 0881 BSP2 BSP 1 0882 BSP1 BSP 1 0883 B OVRLAY EXIT FROM SUBRT ITS FIRST INSTR 0884 * 0885 LTORG* 0886 * 0887 * ***** COMMON AREA FOR SUBROUTINES ***** 0888 * 0889 OVRLAY H 0890 * 0891 3998 DCW @}@ 0892 * 0893 ORG 3975 0894 SETXX SW AOPND-12 0895 MLC ACTOP,ASSMBD-7 0896 B P4SK1&21 0897 EX SYSTEM 0898 JOB PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD 2TAP9 0899 * 0900 * OVERLAY SYSTEMS TAPE CONTROL TO WRITE FROM 0901 * COMMON OVERLAY AREA FOR SUBROUTINES 0902 ORG SYSTEM 0903 WTW 1,OVRLAY 0904 * 0905 ORG OVRLAY 0906 B OVFOUT 0907 SUBRT CS 332 FIRST INSTRUCTION OF SUBRT 0908 CS 0909 SW 21 0910 MLC HEADNG,278 0911 SW 286 0912 MLC SETUP-1,290 0913 MLC @PAGE@,307 0914 A @1@,PAGENO 0915 MCS PAGENO,314 0916 CC T 0917 W 0918 CS 332 0919 CS 0920 LCA LEFT,234 0921 LCA RIGHT,314 0922 CC S 0923 W 0924 CS 332 0925 CS 0926 B BSP1 0927 HEADNG EQU 72 0928 LEFT DCW @ SEQ PG LIN LABEL OP OPERANDS@ 0929 RIGHT DCW @CT LOCN INSTRUCTION TYPE CARD@ 0930 LTORG* 0931 ORG GM1 0932 * 0933 DCW @}@ GROUP MARK - SUBROUTINE HIGH LOC 0934 * 0935 XFR SYSTEM 0936 JOB PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 2TAP9 0937 * 0938 ORG OVRLAY 0939 B PRINT1 0940 * 0941 SW FSTIME 0942 B CDFULL 0943 DAHDR CS 332 0944 CS 0945 CW FSTIME 0946 MLC LOCATN,ADDR 0947 B DECOD 0948 LCA EDIT,290 0949 MCE WORK,290 0950 LCA LOADXX,146 0951 LCA LOCATN,ADDR 0952 B SETWM 0953 NOP 0954 NOP 0955 NOP 0956 MLC LITCNT,ADDR 0957 B DECOD 0958 A 290,WORK 0959 S PARAMT&67,WORK 0960 S @1@,WORK 0961 MZ @ @,WORK 0962 LCA EDIT,297 0963 MCE WORK,297 0964 MCS CARDCT,314 0965 SW SUBNXT 0966 CW ERRPOS-1,ERRPOS-2 0967 MLC @000@,TEMP 0968 MLC PARAMT&9,TEMP 0969 MLC LOCATN,ADDR 0970 MLC @000@,HOLD 0971 MLC PARAMT&19,HOLD 0972 A PARAMT&60,HOLD 0973 SUB S @1@,TEMP 0974 MZ @ @,TEMP 0975 C @000@,TEMP 0976 BE BSP2 0977 B MODAD 0978 MLC RESULT-1,ADDR 0979 DABACK B SETWM 0980 B SUB 0981 DS 30 0982 * ROUTINE TO SET UP WORDMARKS FOR DA ENTRIES 0983 SETWM SBR SWOUT&10 0984 NOP SW1,COUNT,0 0985 BCE SW2,COUNT,0 0986 BCE SW3,COUNT,1 0987 BCE SW4,COUNT,2 0988 BCE SW5,COUNT,3 0989 BCE SW6,COUNT,4 0990 BCE SW7,COUNT,5 0991 H 1,1 0992 B *-10 0993 SW1 H 002,002 0994 B SWOUT 0995 SW2 LCA ADDR,150 0996 B SWOUT 0997 SW3 LCA ADDR,153 0998 B SWOUT 0999 SW4 LCA ADDR,157 1000 B SWOUT 1001 SW5 LCA ADDR,160 1002 B SWOUT 1003 SW6 LCA ADDR,164 1004 B SWOUT 1005 SW7 LCA ADDR,167 1006 MLC CARDCT,175 1007 P 1008 A @1@,CARDCT 1009 MLC @0@,COUNT 1010 B SWOUT&7 1011 SWOUT A @1@,COUNT 1012 B 0 1013 H TEMP#3 1014 DCW @,@ 1015 LTORG* 1016 GM1 DCW @}@ 1017 DCW @}@ GROUP MARK - HIGH STORAGE POINT 1018 * 1019 ORG 3751 1020 LCA 1,1 1021 LOADXX EQU * 1022 EX SYSTEM 1023 JOB PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 2TAP9 1024 * 1025 ORG OVRLAY 1026 B DADONE 1027 * 1028 BCE *&5,OPER-3, 1029 B BSP3 1030 CW ERRPOS-1,ERRPOS-2 1031 CS 332 1032 CS 1033 MLC LOCATN,ADDR 1034 B DECOD 1035 LCA EDIT,290 1036 MCE WORK,290 1037 MLC LOCATN,ADDR 1038 ZS LITCNT,HOLD 1039 A @1@,HOLD 1040 B MODAD 1041 MLC RESULT-1,ADDR 1042 MLC @000@,TEMP 1043 MLC PARAMT&9,TEMP 1044 MLC @000@,HOLD 1045 MLC PARAMT&19,HOLD 1046 A PARAMT&60,HOLD 1047 C LITCNT,@000@ 1048 BE SUBFLD 1049 MCS CARDCT,314 1050 MLC @FIELD@,309 1051 B SETWM 1052 DECRMT S @1@,TEMP 1053 MZ @ @,TEMP 1054 C @000@,TEMP 1055 BE BSPXX 1056 B MODAD 1057 SUBACK MLC RESULT-1,ADDR 1058 B SETWM 1059 B DECRMT 1060 SUBFLD MLC @SBFLD@,309 1061 B BSPXX 1062 * 1063 LTORG* 1064 ORG 3751 1065 BSPXX BSP 1 1066 BSP 1 1067 BSP 1 1068 B PRINT1 1069 EX SYSTEM 1070 JOB PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 2TAP9 1071 * 1072 ORG OVRLAY 1073 B PRINT1 1074 * 1075 SW FSTIME 1076 BCE *&5,COUNT,0 1077 B CDFULL 1078 SETEXC CW FSTIME 1079 MLC @B@,168 1080 MLC AOPND,171 1081 CS 332 1082 CS 1083 MLC @B@,293 1084 MLC AOPND,297 1085 MCS CARDCT,314 1086 MLC @N000000@,146 1087 MLC CARDCT,175 1088 A @1@,CARDCT 1089 P 1090 LCA SETEX1,180 1091 SW 176 1092 MLC SETUP-1,180 1093 MLC CARDCT,175 1094 A @1@,CARDCT 1095 P 1096 LCA SETEX2,180 1097 SW 176 1098 MLC SETUP-1,180 1099 MLC CARDCT,175 1100 A @1@,CARDCT 1101 P 1102 CS 180 1103 LCA SETUP-1,180 1104 B BSP4 1105 DCW @,015022)024056,029036,040047,0540611001,@ 1106 SETEX1 DC @001008B001 ,001008B001 @ 1107 DCW @,068072)063067/061039 @ 1108 SETEX2 DC @ ,0010011040 @ 1109 * 1110 EX SYSTEM 1111 JOB PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 1112 ORG OVRLAY 1113 DCW @0@ 1114 H 1115 H 1116 H 1117 B CDFULL 1118 END2 B MOVXX 1119 CS 332 1120 CS 1121 MLC @/@,140 1122 BCE NOEND,AADDR, 1123 SETEND MLC AOPND,143 1124 MLC @080@,146 1125 SW 176 1126 MLC SETUP-1,180 1127 MLC CARDCT,175 1128 MLC @/@,293 1129 MLC AOPND,297 1130 MLC @080@,301 1131 MCS CARDCT,314 1132 CW FSTIME 1133 P PRINT1 1134 NOEND MLC @$$$@,AOPND 1135 SW ERRPOS-2 1136 B SETEND 1137 EOF4 RWD 2 1138 RWD 1 1139 CC 1 1140 BW *&5,EXCEED 1141 B TSTERR 1142 CW EOJ&1 1143 CS 332 1144 CS 1145 MLC @OBJECT CORE EXCEEDED@, 220 1146 CC T 1147 W 1148 TSTERR C ERRCNT,@0000@ 1149 BE EOJ 1150 CS 332 1151 CS 1152 MCS ERRCNT,204 1153 MLC @ERRORS@,211 1154 CC T 1155 W 1156 EOJ CS 332 1157 CS 1158 MLC @END OF ASSEMBLY@,215 1159 CC A 1160 W 1161 CS 180 1162 P 1163 SS 4 1164 H 999,999 1165 B *-10 1166 H 1167 LTORG* 1168 DCW @}@ 1169 ORG 3796 1170 MOVXX MLC NOPXX,TSTOVF&1 1171 CS 180 1172 B END2&4 1173 NOPXX NOP 1174 EX SYSTEM 1175 * 1176 ORG SYSTEM 1177 WTW 1,CHECK 1178 ORG CHECK 1179 DCW @%@ 1180 ORG *&2 1181 DCW @}@ 1182 EX SYSTEM 1183 END SYSTEM 1PID0348 1401 1.1.018 2 TAPE AUTOCODER 01-01 8052 4 SMF 05 G 042767 0175 2845 -| 05 042767 0350 2820 | 05 042767 0175 2821 | 05 042767 0175 2746 | 05 042767 0175 8107 | 05 042767 0175 8110 | 05 042767 0175 2861 | 06 042767 0175 3068 | 06 042767 0175 6365 | 06 042767 0175 3067 | 06 042767 0175 3112 | 06 G 042767 0175 3187 -| 06 042767 0175 8216 | 06 G 042767 0175 3185 -| 06 G 042767 0175 3236 -| 06 042767 0175 3229 | 06 042767 0175 3213 | 06 042767 0175 3236 | |8W S>6776X |#77V T36>| |||0W |>6777X |#77V T39:V |||0W S>6677X |#77V T39@V || |8W S>6776X |#77V T36@Y |||0W |>6776X S#77V T323T |||>W |>6777X S#77V T373W || 06 042767 0175 3222 | 06 042767 0175 3214 | 06 042767 0175 3230 | 06 042767 0175 3212 | 06 042767 0175 3208 | 06 042767 0175 3179 | 06 042767 0175 3218 | 06 042767 0175 3249 | 06 042767 0175 3231 | 06 042767 0175 3293 | 06 042767 0175 3297 | 06 042767 0175 8115 | 06 042767 0175 3272 | 06 042767 0175 3273 | 06 042767 0175 3187 | 06 042767 0175 3288 | 06 042767 0175 3270 | 06 042767 0175 8114 | 06 042767 0085 3236 | 06 042767 0125 3257 | 06 042767 0125 3261 | 06 042767 0125 3273 | 06 042767 0125 3214 | 06 042767 0125 3183 | 06 042767 0125 3282 | 06 042767 0125 3260 | 06 042767 0125 3289 | 06 042767 0125 3197 | 06 042767 0125 3229 | 06 042767 0125 3277 | 06 042767 0125 3218 | 06 042767 0125 3251 | 06 042767 0125 3266 | 06 042767 0125 3236 | 06 042767 0125 3297 | 06 042767 0125 3189 | 06 042767 0125 3286 | 06 042767 0125 3275 | 06 042767 0125 3238 | 06 G 042767 0125 3214 -| 06 042767 0125 3068 | 06 042767 0125 3049 | 06 042767 0125 8179 | 06 G 042767 0125 3277 -| 06 042767 0125 6512 | 06 042767 0125 3037 | 06 G 042767 0125 3179 -| 06 G 042767 0125 3275 -| 06 G 042767 0250 3238 -| 06 042767 0125 8185 | 06 042767 0125 2489 | 06 042767 0000 9425 | 06 042767 0000 9430 | 06 042767 0000 9440 | 06 042767 0000 9432 | 12 042767 0125 3437 | 12 G 042767 0125 3581 -| 12 G 042767 0250 3639 -| 12 042767 0125 3485 | 12 042767 0000 9470 | 12 042767 0125 3521 | 12 042767 0125 3340 | 12 G 042767 0125 3699 -| 12 042767 0125 6624 | 12 042767 0000 9447 | 12 042767 0125 3614 | 12 042767 0125 3661 | 12 042767 0125 3589 | 12 042767 0125 3692 | 12 042767 0125 3580 | 12 042767 0125 3712 | 12 042767 0125 3656 | 12 042767 0125 3693 | 12 042767 0125 3581 | 12 042767 0125 3679 | 12 042767 0125 3639 | 12 042767 0125 3706 | 12 042767 0125 3623 | 12 042767 0125 3677 | 12 042767 0125 3621 | 12 042767 0125 3587 | 12 042767 0125 3660 | 12 042767 0125 3699 | 12 042767 0125 3632 | 12 042767 0125 3710 | 12 042767 0125 3663 | 12 042767 0125 3293 | 12 042767 0125 3629 | 12 042767 0175 3716 | 12 042767 0175 3725 | 12 042767 0175 8119 | 12 042767 0175 8117 | 12 042767 0175 8120 | 12 042767 0000 9447 | 12 042767 0175 3499 | 12 042767 0175 7804 | 12 G 042767 0175 3716 -| 12 042767 0175 3530 | 12 G 042767 0175 3702 -| 12 G 042767 0175 3630 -| 12 G 042767 0175 3725 -| 12 042767 0175 3308 | 12 042767 0350 8214 | 12 042767 0350 3549 | 07 042767 0085 4116 | 07 042767 0250 3748 | 07 042767 0125 3888 | 07 042767 0250 4002 | 07 042767 0125 4070 | 07 G 042767 0250 4070 -| 07 042767 0125 4121 | 07 042767 0125 3976 | 07 042767 0125 4059 | 07 042767 0125 4042 | 07 042767 0125 4067 | 07 G 042767 0250 4130 -| 07 042767 0125 4130 | 07 G 042767 0125 2913 -| 07 042767 0125 4046 | 07 042767 0125 4123 | 07 042767 0125 4053 | 07 042767 0125 4108 | 07 042767 0125 4109 | 07 042767 0125 3933 | 07 G 042767 0125 4044 -| 07 042767 0125 4044 | 07 042767 0000 9429 | 07 042767 0125 3978 | 07 042767 0175 8123 | 07 042767 0175 8316 | 07 042767 0175 8122 | 07 042767 0175 2305 | 07 042767 0175 3870 | 07 042767 0175 3741 | 07 042767 0175 3911 | 07 042767 0175 3953 | 07 042767 0175 8125 | 07 042767 0175 3772 | 07 G 042767 0175 4108 -| 07 042767 0175 4108 | 07 042767 0175 3798 | 07 042767 0175 4039 | 07 042767 0175 3814 | 07 042767 0175 4053 | 07 042767 0175 8338 | 07 042767 0175 3437 | 07 042767 0175 4127 | 07 G 0 2767 1925 4127 -| 08 042767 0085 4546 | 08 042767 0125 4396 | 08 042767 0125 4522 | 08 042767 0125 6774 | 08 042767 0125 4531 | 08 042767 0125 4502 | 08 042767 0125 4462 | 08 042767 0125 4565 | 28 042767 0125 4536 | 08 042767 0125 4562 | 08 042767 0125 164 | 08 042767 0125 4546 | 08 042767 0125 4554 | 08 042767 0125 4470 | 08 042767 0125 4483 | 08 042767 0125 4529 | 08 042767 0125 4566 | 08 042767 0125 8342 | 08 042767 0175 8132 | 08 042767 0175 4287 | 08 042767 0175 2865 | 08 042767 0175 4428 | 08 042767 0175 8131 | 08 042767 0175 8130 | 08 042767 0175 4185 | 08 042767 0350 8342 | 08 042767 0175 4546 | 08 042767 0175 4531 | 08 042767 0350 4458 | 08 042767 0175 4441 | 08 042767 0175 4290 | 08 042767 0175 8192 | 08 042767 0175 8128 | 08 042767 0175 4564 | 08 042767 0175 4301 | 08 042767 0175 4569 | 08 042767 0350 4570 | 08 042767 0350 4568 | 10 042767 0085 4898 | 10 042767 0085 3653 | 10 042767 0085 4730 | 10 G 042767 0085 4971 -| 10 042767 0085 4653 | 10 042767 0125 4824 | 10 042767 0125 4730 | 10 042767 0125 5044 | 10 042767 0125 4971 | 10 042767 0125 4911 | 10 042767 0125 4964 | 10 G 042767 0125 4964 -| 10 042767 0125 4938 | 10 042767 0125 4931 | 10 042767 0125 2111 | 10 042767 0125 8191 | 10 042767 0125 5024 | 10 G 042767 0125 5024 -| 10 042767 0125 4954 | 10 042767 0125 4943 | 10 042767 0125 5020 | 10 042767 0125 5026 | 10 042767 0125 4978 | 10 042767 0125 4907 | 10 G 042767 0125 8137 -| 10 042767 0125 4721 | 10 042767 0125 5037 | 10 042767 0125 4988 | 10 042767 0250 4594 | 10 042767 0125 5002 | 10 042767 0125 5000 | 10 042767 0125 5030 | 10 042767 0125 4991 | 10 042767 0125 4918 | 10 042767 0125 4990 | 10 042767 0125 4922 | 10 042767 0125 4970 | 10 042767 0125 2074 | 10 042767 0125 4953 | 10 042767 0125 4597 | 10 042767 0125 4948 | 10 042767 0125 2838 | 10 042767 0175 5038 | 10 042767 0175 4876 | 10 042767 0175 4787 | 10 042767 0175 4721 | 10 042767 0175 4898 | 10 G 042767 0175 1746 -| 10 042767 0175 8135 | 10 042767 0175 6384 | 10 042767 0175 4877 | 10 042767 0175 4662 | 10 042767 0175 4907 | 10 042767 0175 5039 | 10 042767 0175 4906 | 10 042767 0350 4828 | 10 042767 0175 4693 | 10 042767 0175 4784 | 11 042767 0175 9551 | 11 042767 0125 5399 | 11 042767 0125 5389 | 11 042767 0125 5345 | 11 042767 0125 5404 | 11 042767 0125 5384 | 11 042767 0125 8126 | 11 042767 0125 5352 | 11 042767 0125 5391 | 11 042767 0125 5351 | 11 042767 0125 4926 | 11 042767 0125 5410 | 11 042767 0125 5414 | 11 042767 0125 5434 | 11 042767 0125 5261 | 11 042767 0125 2565 | 11 042767 0125 5441 | 11 042767 0125 5396 | 11 042767 0125 5413 | 11 042767 0125 5363 | 11 042767 0125 2517 | 11 042767 0125 5747 | 11 042767 0125 3230 | 11 042767 0125 2551 | 11 042767 0125 2147 | 11 042767 0125 5686 | 11 042767 0125 1704 | 11 042767 0125 3650 | 11 042767 0125 5374 | 11 042767 0125 5016 | 11 042767 0125 1303 | 11 042767 0125 5371 | 11 042767 0125 3255 | 11 042767 0125 5712 | 11 042767 0125 5403 | 11 042767 0125 4905 | 11 042767 0125 5154 | 11 042767 0125 5098 | 11 G 042767 0125 5396 -| 11 042767 0125 5085 | 11 042767 0125 5051 | 11 G 042767 0250 5345 -| 11 042767 0175 5163 | 11 042767 0175 5085 | 11 042767 0175 5285 | 11 042767 0175 5283 | 11 042767 0175 5438 | 11 042767 0175 5397 | 11 042767 0175 8141 | 11 042767 0175 8124 | 11 042767 0175 5371 | 09 042767 0175 5652 | 09 G 042767 0175 5499 -| 09 G 042767 0175 5595 -| 09 G 042767 0175 5490 -| 09 G 042767 0175 5617 -| 09 G 042767 0175 5550 -| 09 G 042767 0175 5465 -| 09 G 042767 0175 5566 -| 09 042767 0175 5651 | 09 042767 0175 5694 | 09 042767 0175 5657 | 09 042767 0175 5665 | 09 042767 0175 5656 | 09 042767 0175 5710 | |2Z S>6777X |#77V V775V |||0Z >6277X |#77V V776| |||#Z S>6777X |#77V V7{#/ || 09 042767 0175 5735 | 09 042767 0175 5734 | 09 042767 0175 5704 | 09 042767 0175 5679 | 09 042767 0175 5662 | 09 042767 0175/ 5675 | 09 042767 0175 5677 | 09 042767 0175 5650 | 09 042767 0175 5681 | 09 042767 0175 5667 | 09 042767 0175 5693 | 09 042767 0175 5751 | 09 042767 0175 5687 | 09 042767 0175 5668 | 09 042767 0175 5682 | 09 042767 0175 5739 | 09 042767 0175 5747 | 09 042767 0175 5712 | 09 042767 0175 5721 | 09 042767 0175 5733 | 09 042767 0175 5659 | 09 042767 0175 5702 | 09 042767 0175 5718 | 09 042767 0175 8147 | 09 042767 0175 3262 | 09 042767 0175 8145 | 09 042767 0175 8146 | 09 042767 0175 5729 | 09 042767 0175 5500 | 09 042767 0085 5702 | 09 042767 0125 5704 | 09 G 042767 0500 5704 -| 09 042767 0125 5736 | 09 G 042767 0125 5736 -| 09 G 042767 0125 5485 -| 09 G 042767 0250 5621 -| 09 G 042767 0125 5502 -| 09 042767 0125 5709 | 09 G 042767 0375 5709 -| 09 042767 0125 5733 | 09 042767 0125 5691 | 09 042767 0125 5725 | 09 042767 0125 5737 | 09 042767 0125 5740 | 09 042767 0125 5726 | 09 042767 0125 5667 | 09 042767 0125 5734 | 09 042767 0125 5656 | 09 G 042767 0125 1099 -| 09 042767 0125 5705 | 09 042767 0125 5715 | 09 042767 0125 5693 | 09 042767 0125 5718 | 09 042767 0125 5663 | 09 042767 0125 5679 | 09 042767 0125 5727 | 09 G 042767 0125 8107 -| 09 042767 0125 5738 | 09 042767 0125 5651 | 09 042767 0125 5677 | 09 042767 0125 5675 | 09 042767 0125 5729 | 09 042767 0125 5721 | 09 042767 0125 5694 | 09 042767 0125 4106 | 09 042767 0125 5364 | 09 042767 0125 3597 | 09 042767 0125 1329 | 09 042767 0125 5748 | 09 G 042767 0125 5516 -| 22 042767 0085 3653 | 22 042767 0085 2863 | 22 G 042767 0125 7223 -| 22 042767 0125 8003 | 22 042767 0125 8363 | 22 G 042767 0125 8363 -| 22 G 042767 0125 8363 -| 22 042767 0125 8361 | 22 042767 0125 2863 | 22 042767 0125 8046 | 22 042767 0000 9445 | 22 042767 0125 8344 | 22 G 042767 0125 7093 -| 22 042767 0125 8367 | 22 042767 0125 8325 | 22 042767 0175 8363 | 22 G 042767 0175 7093 -| 22 042767 0175 8003 | 22 042767 0175 8325 | 22 042767 0175 8313 | 22 042767 0175 8321 | 22 042767 0175 8367 | 22 042767 0175 7382 | 22 042767 0175 2863 | 22 G 042767 0175 7157 -| 23 042767 0170 7081 | 23 042767 0170 7081 | 23 042767 0125 7080 | 23 042767 0125 8106 | 23 042767 0125 8312 | 23 042767 0375 8312 | 23 042767 0125 7081 | 23 G 042767 0125 1284 -| 23 042767 0125 7084 | 23 042767 0170 7077 | 23 042767 0085 6881 | 23 G 042767 0085 1701 -| 23 042767 0125 7076 | 23 042767 0175 7887 | 23 042767 0175 7080 | 23 042767 0175 6881 | 23 042767 0175 6957 | 23 042767 0175 6910 | 24 G 042767 0085 9025 -| 24 G 042767 0175 7446 -| 24 G 042767 0175 7555 -| 24 G 042767 0175 7510 -| 24 G 042767 0350 3088 -| 24 G 042767 0175 7431 -| 13 G 042767 0010 7456 -| 13 G 042767 0120 7589 -| 13 G 042767 0070 7451 -| 13 G 042767 0015 7413 -| 13 G 042767 0080 7461 -| 13 G 042767 0020 7398 -| 13 G 042767 0020 7536 -| 13 G 042767 0010 7512 -| 13 G 042767 0010 7395 -| 13 G 042767 0035 7494 -| 13 G 042767 0070 7434 -| 13 G 042767 0035 7598 -| 13 G 042767 0010 7582 -| 13 G 042767 0030 7400 -| 13 G 042767 0100 7395 -| 13 G 042767 0080 7536 -| 13 G 042767 0105 7449 -| 13 G 042767 0020 7582 -| 13 G 042767 0035 7453 -| 13 G 042767 0065 7449 -| 13 G 042767 0040 7486 -| 13 G 042767 0045 7599 -| 13 P 042767 0055 7461 -0 G 042767 0020 7531 -0 13 G 042767 0050 7452 -| 13 G 042767 0055 7455 -| 13 G 042767 0050 7586 -| 13 G 042767 0070 7471 -| 13 G 042767 0120 7386 -| 13 G 042767 0070 7524 -| 13 G 042767 0035 7551 -| 13 G 042767 0010 7526 -| 13 G 042767 0020 7408 -| 25 042767 0085 7764 | 25 042767 0085 8228 | 25 042767 0085 8247 | 25 042767 0085 8241 | 25 042767 0085 7872 | 25 042767 0125 8218 | 25 042767 0125 8223 | 25 042767 0250 8105 | 25 042767 0125 8228 | 25 042767 0125 8235 | 25 042767 0125 8221 | 25 042767 0125 8247 | 25 042767 0125 8243 | 25 042767 0125 8245 | 25 042767 0125 8213 | 25 042767 0125 8236 | 25 042767 0125 7800 | 25 042767 0125 7795 | 25 042767 0125 8250 | 25 042767 0125 7748 | 25 042767 0125 8147 | 25 042767 0125 7693 | 25 042767 0125 4906 | 25 042767 0175 8241 | 25 042767 0175 8249 | 25 042767 0175 8225 | 25 042767 0175 8129 | 25 042767 0175 8234 | 25 042767 0175 7693 | 25 042767 0175 8223 | 25 042767 0175 7899 | 25 042767 0175 8344 | 25 042767 0175 8213 | 25 042767 0175 2448 | 25 042767 0175 7773 | 25 042767 0175 8247 | 25 042767 0175 8369 | 25 042767 0175 8001 | 25 042767 0350 8222 | 25 042767 0175 7749 | 21 042767 0125 8214 | 21 042767 0125 8362 | 21 G 042767 0125 8124 -| 21 042767 0125 6114 | 21 042767 0125 8108 | 21 042767 0125 2514 | 21 042767 0125 6000 | 21 G 042767 0125 8098 -| 21 042767 0125 3828 | 21 042767 0175 8136 | 21 042767 0175 8133 | 21 042767 0175 8121 | 21 042767 0175 8105 | 21 042767 0175 8134 | 21 042767 0175 8103 | 21 G 042767 0175 2514 -| 21 042767 0175 6789 | 21 042767 0175 5825 | 21 G 042767 0175 8105 -| 35 042767 0125 8051 | 35 042767 0040 8009 | 35 042767 0075 7994 | 35 042767 0050 8002 | 35 042767 0125 8000 | 35 042767 0130 8006 | 35 042767 0115 8007 | 35 042767 0125 7990 | 35 042767 0075 7995 | 35 042767 0100 7991 | 35 042767 0140 7985 | 35 042767 0125 7993 | 35 042767 0105 7988 | 35 042767 0035 7997 | 35 042767 0105 7989 | 35 042767 0180 8329 | 35 042767 0085 8242 | 50 G 042767 0450 4526 -| 50 042767 0135 4237 | 50 042767 0125 4540 | 50 G 042767 0035 1589 -| 50 G 042767 0030 3948 -| 50 G 042767 0070 2064 -| 50 G 042767 0000 9410 -| 50 G 042767 0610 1789 -| 50 G 042767 0825 1434 -| 50 G 042767 0385 7367 -| 28 042767 0065 9041 | 28 042767 0490 8572 | 28 042767 0230 8487 | 28 042767 0085 9194 | 28 042767 0220 9057 | 28 042767 0140 8528 | 28 042767 0175 9114 | 28 042767 0090 8627 | 28 042767 0140 9113 | 28 042767 0150 9151 | 28 042767 0070 8436 | 28 042767 0145 8904 | 28 042767 0150 9193 | 28 042767 0220 8764 | 28 042767 0105 8596 | 28 042767 0165 8583 | 28 042767 0105 8945 | 28 042767 0125 8734 | 28 042767 0105 8967 | 28 042767 0690 8946 | 28 042767 0210 8817 | 28 042767 0105 8790 | 28 042767 0080 9001 | 28 042767 0055 9012 | 28 042767 0100 8479 | 28 042767 0215 8814 | 28 042767 0060 8754 | 28 042767 0050 9191 | 28 042767 0185 8604 | 28 042767 0140 8693 | 28 042767 0230 8690 | 28 042767 0135 8882 | 28 042767 0080 9145 | 28 042767 0070 8746 | 28 042767 0080 8953 | 28 042767 0130 8910 | 28 042767 0105 8740 | 28 042767 0095 8560 | 28 042767 0115 9185 | 28 042767 0145 9186 | 28 042767 0105 8704 | 28 042767 0125 9134 | 28 042767 0085 8551 | 28 042767 0105 8581 | 28 042767 0155 9040 | 28 042767 0150 9167 | 28 042767 0125 8701 | 28 042767 0150 8511 | 28 042767 0085 8857 | 28 042767 0170 8904 | 28 042767 0075 8602 | 28 042767 0245 8806 | 28 042767 0100 9170 | 28 042767 0120 8411 | 28 042767 0065 8897 | 28 042767 0250 8980 | 28 042767 0125 8684 | 28 042767 0125 8491 | 28 042767 0095 9122 | 28 042767 0145 9154 | 28 042767 0100 8612 | 28 042767 0055 9099 | 28 042767 0100 8545 | 28 042767 0055 8557 | 28 042767 0060 8516 | 28 042767 0280 8537 | 28 042767 0295 8542 | 28 042767 0110 8450 | 2 242767 0105 9052 | 28 042767 0105 8809 | 28 042767 0282 8505 | 28 042767 0110 9108 | 28 042767 0065 8715 | 28 042767 0105 8420 | 28 042767 0110 8933 | 28 042767 0125 8687 | 28 042767 0105 9048 | 28 042767 0115 8880 | 28 042767 0135 9132 | 28 042767 0095 8990 | 28 042767 0080 8791 | 28 042767 0110 8884 | 28 042767 0060 8618 | 28 042767 0125 9084 | 28 042767 0100 8710 | 28 042767 0090 8430 | 28 042767 0085 9143 | 28 042767 0085 8512 | 28 042767 0080 8838 | 28 042767 0095 9178 | 01 G 042867 0085 1270 -| 01 G 042867 0175 1270 -| 01 042867 0000 9459 | 01 042867 0000 9427 | 01 042867 0085 1354 | 01 0428 7 0125 1278 | 01 042867 0125 8089 | 01 0428 7 0125 8179 | 01 0428 7 0125 1048 | 01 0428 7 0125 1129 | 01 042867 0125 1350 | 01 G 042867 0125 1275 -| 01 042867 0125 1322 | 01 042867 0125 1284 | 01 G 042867 0125 1284 -| 01 042867 0125 1366 | 01 G 042867 0125 4086 -| 01 042867 0125 1334 | 01 G 042867 0125 8365 -| 01 042867 0125 1357 | 01 042867 0125 1336 | 01 G 0428 7 0125 5613 -| 01 G 042827 0125 1299 -| 01 042867 0125 1299 | 01 042867 0125 1321 | 01 G 042867 0125 1055 -| 01 G 042867 0125 1005 -| 01 042867 0125 1362 | 01 042867 0125 1347 | 01 042867 0125 1304 | 01 G 042867 0250 4458 -| 01 042867 0125 1329 | 01 042867 0125 1307 | 01 042867 0125 1342 | 01 042867 0125 1352 | 01 042867 0125 1365 | 01 042867 0125 5024 | 01 G 042867 0125 1035 -| 01 G 042867 0125 1153 -| 01 G 042867 0125 8088 -| 01 G 042867 0125 1241 -| 01 G 042867 0125 1151 -| 01 042867 0125 1367 | 01 G 042867 0125 1704 -| 01 042867 0125 1303 | 01 042867 0125 3255 | 01 042867 0125 5747 | 01 042867 0125 1302 | 01 G 042867 0125 4693 -| 01 042867 0125 1361 | 01 G 042867 0175 1117 -| 01 G 042867 0175 1060 -| 01 042867 0175 1364 | 01 G 042867 0175 3722 -| 01 G 042867 0175 1008 -| 01 G 042867 0175 1180 -| 01 G 042867 0175 1160 -| 01 G 042867 0175 1129 -| 01 G 042867 0175 7093 -| 01 G 042867 0350 1275 -| 01 G 042867 0175 1153 -| 01 G 042867 0175 5233 -| 01 G 042827 0175 4828 -| 01 G 0428 7 0175 1053 -| 01 G 042867 0175 1135 -| 01 042867 0175 8089 | 01 G 042867 0175 1034 -| 01 042867 0175 1366 | 01 G 042867 0350 1144 -| 01 G 042867 0175 1124 -| 01 G 042867 0175 5896 -| 01 P 042867 0175 5957 -| 01 G 042867 0175 4458 -0 01 G 042867 0175 1002 -| 01 G 0428 7 0175 1151 -| 01 0428 7 0175 8088 | 01 G 042867 0175 1099 -| 01 G 042847 0175 1352 -| 01 0428>7 0175 1352 | 01 G 042867 0175 3663 -| 01 G 042867 0175 1174 -| 01 G 042867 0175 1081 -| 01 G 042867 0175 1051 -| 01 G 042867 0175 1001 -| 02 042867 0125 9551 | 02 042867 0085 1805 | 02 042867 0085 1469 | 02 042867 0125 1469 | 02 042867 0250 1659 | 02 042867 0125 1418 | 02 042867 0125 1734 | 02 042867 0125 1799 | 02 042867 0125 4087 | 02 042867 0125 1664 | 02 042867 0125 1789 | 02 042867 0125 1762 | 02 042827 0125 1620 | 02 0428 7 0125 1717 | 02 042867 0125 1710 | 02 042867 0125 1781 | 02 042867 0125 1464 | 02 042867 0125 1721 | 02 042867 0125 1788 | 02 042867 0125 1764 | 02 042867 0125 1739 | 02 G 042867 0125 3621 -| 02 042867 0125 1719 | 02 G 042867 0125 3621 -| 02 042867 0125 1748 | 02 G 042867 0125 1748 -| 02 042867 0125 1718 | 02 G 042867 0125 1286 -| 02 042867 0125 1784 | 02 042867 0125 2861 | 02 G 042867 0125 1784 -| 02 042867 0125 1787 | 02 042867 0125 1741 | 02 042867 0125 1696 | 02 042867 0125 1730 | 02 042867 0125 8094 | 02 042867 0125 1780 | 02 G 042867 0125 1780 -| 02 042867 0125 1763 | 02 G 042867 0125 1763 -| 02 042867 0125 1615 | 02 042867 0125 1769 | 02 G 042867 0125 1769 -| 02 042867 0125 1701 | 02 042867 0125 1402 | 02 042867 0125 1713 | 02 042867 0175 6311 | |0S |>62>7X |#77V Y0##| |||8S |>62>7X |#77V Y0#:V ||S0S |>62>7X |#77V W77>Y || 02 042867 0175 5783 | 02 042867 0175 1665 | 02 042867 0175 1652 | @244444444444444 0428 7 0175 1620 | 02 0428 7 0175 1426 | 02 0428 7 0175 1793 | 02 042867 0175 8094 | 02 042867 0175 4290 | 02 042867 0175 1617 | 02 042867 0175 1569 | 02 042867 0175 5170 | 02 042867 0175 1537 | 02 042867 0525 6044 | 02 042867 0175 6706 | 02 042867 0175 7778 | 02 042867 0700 1566 | 02 042867W 0175 6070 | 02 042867 0175 6651 | 02 042867 0175 6318 | 02 042867 0175 6765 | 02 042867 0175 1741 | 02 G 042867 0175 1741 -| 02 042867 0175 1402 | 02 042867 0175 8216 | 02 042867 0175 1636 | 02 042867 0175 1458 | 02 042867 0525 1629 | 02 042867 0175 1604 | 03 042867 0085 2081 | 03 042867 0085 1937 | 03 042867 0085 1942 | 03 G 042867 0125 2085 -| 03 042867 0125 2085 | 03 042867 0125 2101 | 03 042867 0125 2143 | 03 042867 0125 2115 | 03 042867 0125 2112 | 03 0428 7 0125 5413 | 03 042867 0125 1833 | 03 042867 0125 2138 | 03 042827 0125 2125 | 03 0428 7 0125 4954 | 03 042867 0125 2074 | 03 042867 0125 4074 | 03 042867 0125 4096 | 03 042867 0125 2083 | 03 042867 0125 2120 | 03 042867 0125 2139 | 03 042867 0125 4061 | 03 042867 0125 3614 | 03 G 042867 0125 2139 -| 03 042867 0125 5026 | 03 042867 0125 2928 | 03 042867 0125 2098 | 03 042867 0125 2090 | 03 042867 0125 2160 | 03 042867 0125 7900 | 83 042867 0125 8175 | 03 042827 0125 8097 | 03 042867 0125 2170 | 83 042827 0125 1911 | 03 0428 7 0125 1921 | 03 0428 7 0175 1911 | 03 042867 0175 8098 | 03 042867 0175 1967 | 03 042867 0175 1920 | 03 042867 0175 1991 | 03 042867 0175 1910 | 03 042867 0350 2064 | 03 042867 0175 1820 | 03 042827 0175 1842 | 03 042867 0175 1904 | 03 042867 0175 2152 | 03 042867 0175 1918 | 03 042867 0175 2839 | 03 042867 0175 8100 | 03 042867 0175 1878 | 03 042867 0175 8097 | 03 042867 0175 2014 | 03 042867 0175 1899 | 03 042867 0350 1880 | 03 042867 0175 1864 | 03 042867 0175 6635 | 03 042867 0175 2159 | 03 042867 0175 1980 | 03 042867 0175 1978 | 03 042867 0175 1903 | 03 042867 0175 6642 | 03 042867 0175 1840 | 03 042867 0175 1850 | 03 042867 0175 1849 | 04 G 042867 0085 8104 -| 04 G 042867 0125 2452 -| 04 G 042867 0125 2279 -| 04 G 042867 0125 2446 -| 04 042867 0125 2548 | 04 G 042867 0125 2484 -| 04 042867 0125 2526 | 04 042867 0125 2562 | 04 042867 0125 2528 | 04 G 042867 0125 2526 -| 04 G 042867 0125 6228 -| 04 G 042867 0125 3709 -| 04 G 042867 0125 2507 -| 04 042867 0125 2538 | 04 G 042867 0125 8106 -| 04 G 042867 0125 2367 -| 04 G 042867 0125 2318 -| 04 G 042867 0125 2385 -| 04 042867 0125 2520 | 04 G 042867 0175 2264 -| 04 G 0428 7 0175 2484 -| 04 G 0428 7 0175 2315 -| 04 G 042867 0175 2243 -| 04 G 042867 0175 2390 -| 04 0428 7 0175 2523 | 04 G 042867 0175 2184 -| 04 G 042867 0175 2276 -| 04 G 042867 0175 2312 -| 04 G 042867 0175 2453 -| 04 G 042867 0175 2330 -| 04 G 042867 0175 2237 -| 04 G 042867 0175 2296 -| 04 G 042867 0700 2329 -| 04 G 042867 0525 6333 -| 04 042867 0175 2558 | 04 G 042867 0175 2208 -| 04 G 042867 0175 2361 -| 04 G 042867 0175 2378 -| 05 0428 7 0085 2756 | 05 0428 7 0085 2913 | 05 042827 8085 2871 | 05 042867 0085 2865 | 05 042867 0125 2591 | 05 042867 0125 2923 | 05 042867 0125 2912 | 05 G 0428 7 0125 2542 -| 05 0428 7 0125 4554 | 05 G 042867 0125 2858 -| 05 0428>7 0125 2858 | 05 042867 0125 2843 | 05 042867 0125 2896 | 05 0428 7 0125 2865 | 05 042867 0125 2913 | 05 042867 0125 2848 | 05 042867 0125 2921 | 05 042867 0125 2892 | 05 042867 0125 2885 | 05 042867 0125 4546 | 05 042867 0125 2733 | |0V |>42>77 |03{| W6{0T |||0V |>42>77 |{77V W672V |||{V >42>77 |#77V 2##8 || 05 042867 0175 2813 | 05 042867 0175 2653 | 05 042867 0175 2663 | 05 042827 0175 8108 | 05 0428 7 0175 2735 | 05 042827 0350 214 | 05 042867 0175 2724 | 05 042867 0175 2604 | 05 042867 0175 6617 | 05 042867 0175 2652 | 05 042867 0175 2861 | 05 042867 0175 2820 | 05 042867 0175 2824 | 05 042867 0175 2730 | 05 042867 0175 2700 | 05 042867 0175 2747 | 05 042867 0175 2628 | 05 042867 0175 2746 | 86 042827 0000 9460 | 06 042827 0175 8114 | 06 042867 0175 3179 | 06 042867 0175 3288 | 06 042867 0175 3270 | 06 042867 0175 3273 | 06 0428 7 0175 8112 | 06 042867 0175 8112 | 06 042867 0175 8115 | 06 042867 0175 3282 | 06 042867 0175 4158 | 06 042867 0175 2972 | 06 042867 0175 2986 | 06 042867 0175 2997 | 06 042867 0175 3029 | 06 042867 0175 3008 | 06 042867 0175 3033 | 06 042867 0175 3080 | 06 0428 7 0175 3024 | 06 042827 0175 1217 | 06 042867 0175 6718 | 06S 042867 0175 3039 | 06 042867 0175 2982 | 06 042867 0175 6601 | 06 042827 0525 3083 | 06 0428 7 0175 3052 | 06 0428 7 0085 3037 | 06 042867 0085 3035 | 06 042827 0085 8318 | 06 0428 7 0125 3277 | 06 042867 0125 8181 | 06 042867 0125 3068 | 06 G 042867 0125 3289 -| 06 042867 0250 3035 | 06 042867 0125 3218 | 06 042867 0125 3230 | 06 042867 0125 3269 | 06 042867 0125 2151 | 06 042867 0125 3223 | 06 042867 0125 3208 | 06 042867 0125 3199 | 06 042867 0125 3197 | 06 042867 0125 3216 | 06 042867 0125 3256 | 06 042867 0125 3236 | 06 042867 0125 3244 | 06 042867 0125 1724 | 06 042867 0125 3266 | 06 042867 0125 3229 | 06 042867 0125 3289 | 06 042867 0125 3222 | 06 042867 0125 3273 | 06 042867 0125 3262 | 06 042867 0125 3286 | 12 042867 0000 9447 | 12 G 042867 0125 3692 -| 12 042867 0125 3488 | 12 042867 0125 3460 | 12 042867 0000 9470 | 12 042867 0125 3344 | 12 042867 0125 3437 | 12 042867 0250 6503 | 12 042867 0125 3526 | 12 042867 0125 3578 | 12 042867 0125 6627 | 12 042867 0125 3552 | 12 042867 0125 2482 | 12 042867 0125 3485 | 12 042867 0000 9447 | 12 G 042867 0125 3714 -| 12 042867 0125 3712 | 12 042867 0125 3692 | 12 042867 0125 2169 | 12 042867 0125 1371 | 12 042867 0125 4926 | 12 042867 0125 3659 | 12 042867 0125 3693 | 12 042867 0125 3623 | 12 042867 0125 3610 | 12 042867 0125 3660 | 12 042867 0125 3710 | 12 042867 0125 3656 | 12 042867 0125 3718 | 12 042867 0125 1733 | 12 042867 0125 3702 | 12 042867 0125 3589 | 12 042867 0125 3706 | 12 042867 0125 3597 | 12 042867 0125 3723 | 12 042867 0125 3663 | 12 042867 0125 3587 | 12 042867 0125 3650 | 12 042867 0125 3585 | 12 042867 0125 3714 | 12 042867 0175 5899 | 12 G 042867 0175 3623 -| 2 042 67 0175 3552 S 12 042 61 017 3333 | 12 042 67 017 348 | 12 G 042867 0175 3706 -| 12 G 042867 0525 3630 -| 12 042867 0175 3344 | 12 042867 0175 3348 | 12 G 042867 0175 3610 -| 12 G 042867 0525 3661 -| 12 042867 0175 2318 | 12 G 042867 0525 3677 -| 12 042867 0175 3391 | 12 042867 0175 3447 | 12 G 042867 0175 3635 -| 12 G 042867 0175 3692 -| 12 042867 0175 3365 | 12 042867 0175 3399 | 12 042867 0175 3524 | 12 042867 0175 3384 | 12 042867 0175 3510 | 12 042867 0175 3398 | 12 G 042867 0175 3714 -| 12 042867 0175 3549 | 12 042867 0175 3729 | 12 042867 0175 3692 | 12 042867 0175 3635 | 12 042867 0175 3714 | 12 042867 0175 8117 | 12 042867 0175 3716 | 12 042867 0175 4072 | 12 042867 0175 3725 | 12 042867 0175 3661 | 12 042867 0175 3610 | 12 042867 0175 5413 | 12 042867 0175 3630 | 12 042867 0175 3706 | 12 042867 0175 3623 | 12 042867 0175 3589 | 07 042867 0050 3748 | 07 G 042867 0125 8126 -| 07 G 042867 0125 2550 -| 07 042867 0125 3974 | 07 042867 0125 4036 | 07 042867 0125 4133 | 07 G 042867 0125 8124 -| 07 042867 0250 3871 | 07 042867 0125 4059 | 07 042867 0125 4011 | 07 042867 0125 8185 | 07 042867 0125 3765 | 07 042867 0125 4042 | 07 042867 0125 4045 | 07 042867 0375 3824 | 07 042867 0125 4095 | 07 042867 0125 4136 | 07 G 042867 0125 4044 -| 07 042867 0125 4044 | 07 042867 0125 4072 | 07 042867 0125 4000 | 07 042867 0125 4108 | 07 042867 0125 4135 | 07 042867 0125 3828 | 07 042867 0175 3786 | 07 042867 0175 8121 | 07 042867 0175 8123 | 07 042867 0175 3905 | 07 042867 0175 8126 | 07 G 042867 0175 8126 -| 07 042867 0175 8124 | 07 042867 0175 3820 | 07 042867 0175 4006 | 07 042867 0175 8338 | 07 042867 0175 3946 | 07 042867 0175 4039 | 07 042867 0175 3751 | 07 042867 0175 8346 | 07 G 042867 0175 8346 -| 07 042867 0175 3791 | 07 042867 0175 5831 | 07 042867 0175 3958 | 07 042867 0175 3973 | 07 042867 0175 5929 | 07 042867 0175 3912 | 07 042867 0175 6422 | 07 042867 0175 3771 | 07 042867 0175 4135 | 07 042867 0175 4009 | 07 042867 0175 3974 | 07 042867 0350 4002 | 07 042867 0175 4011 | 08 042867 0085 4546 | 08 042867 0085 4156 | 08 042867 0125 4287 | 08 G 042867 0125 4465 -| 08 042867 0125 4465 | 08 042867 0125 4156 | 08 042867 0125 4502 | 08 G 042867 0250 4462 -| 08 042867 0125 4462 | 08 042867 0125 4512 | 08 042867 0125 7937 | 08 042867 0125 4428 | 08 042867 0125 4290 | 08 042867 0125 4562 | 08 042867 0125 4491 | 08 042867 0125 4536 | 08 042867 0125 4540 | 08 042867 0125 4531 | 08 042867 0125 8338 | 08 042867 0125 4409 | 08 042867 0125 4529 | 08 042867 0125 4487 | 08 042867 0125 2546 | 08 042867 0125 4233 | 08 042867 0250 8127 | 08 042867 0000 9427 | 08 042867 0175 8129 | 08 042867 0175 4252 | 08 042867 0175 8132 | 08 042867 0175 4502 | 08 042867 0175 8132 | 08 042867 0175 8128 | 08 042867 0175 4220 | 08 042867 0175 4531 | 08 042867 0175 4546 | 08 042867 0175 4267 | 08 042867 0175 4268 | 08 042867 0175 4555 | 08 042867 0175 4555 | 08 042867 0175 2933 | 08 042867 0175 4294 | 08 042867 0175 4260 | 08 042867 0175 4251 | 08 042867 0175 4295 | 08 042867 0175 4263 | 08 042867 0350 8127 | 08 042867 0175 4569 | 08 042867 0175 4270 | 08 042867 0175 4205 | 08 042867 0350 4254 | 08 042867 0175 4185 | 08 042867 0175 4279 | 08 042867 0175 4233 | 08 042867 0175 2073 | 08 042867 0175 4390 | 10 042867 0085 4786 | 10 042867 0085 4898 | 10 042867 0085 4617 | 10 042867 0085 4918 | 10 042867 0125 1434 | 10 042867 0125 4759 | 10 042867 0125 4931 | 10 042867 0125 2111 | 10 042867 0125 4906 | 10 042867 0125 4796 | 10 042867 0125 4858 | 10 042867 0125 4938 | 10 042867 0125 8137 | 10 042867 0000 9417 | 10 042867 0125 4969 | 10 042867 0125 4936 | 10 042867 0125 5000 | 10 042867 0125 4959 | 10 042867 0125 4916 | 10 042867 0125 5028 | 10 042867 0125 4971 | 10 042867 0125 4943 | 10 G 042867 0125 5380 -| 10 042867 0250 3819 | 10 042867 0125 4990 | 10 042867 0125 4721 | 10 042867 0125 5037 | 10 042867 0125 4915 | 10 042867 0125 5038 | 10 042867 0125 3717 | 10 042867 0125 4964 | 10 042867 0125 4942 | 10 042867 0125 4814 | 10 042867 0125 4911 | 10 042867 0125 8347 | 10 042867 0125 4988 | 10 042867 0125 2838 | 10 042867 0125 5030 | 10 042867 0125 4630 | 10 042867 0125 5016 | 10 042867 0125 4935 | 10 042867 0125 4701 | 10 042867 0175 5983 | 10 042867 0175 4855 | 10 042867 0175 8138 | 10 042867 0175 4898 | 10 042867 0175 4683 | 10 042867 0350 4906 | 10 042867 0175 6594 | 10 042867 0350 4617 | 10 042867 0175 4829 | 10 042867 0175 4878 | 10 042867 0175 5039 | 10 042867 0175 4793 | 10 042867 0175 5036 | 10 042867 0175 6115 | 10 042867 0175 4618 | 10 042867 0175 5774 | 10 042867 0175 4907 | 10 042867 0175 4754 | 10 042867 0175 5495 | 10 042867 0175 1156 | 10 042867 0175 5208 | 10 042867 0175 4796 | 10 042867 0175 4662 | 10 042867 0175 4596 | 10 042867 0175 4629 | 10 042867 0175 4876 | 10 042867 0175 1824 | 10 042867 0175 4710 | 10 042867 0175 4733 | 10 042867 0175 4731 | 10 042867 0175 3653 | 10 042867 0175 4693 | 10 042867 0175 4852 | 10 042867 0350 4875 | 10 042867 0175 4869 | 10 042867 0700 4593 | 11 042867 0125 5363 | 11 042867 0125 5384 | 11 042867 0125 5378 | 11 042867 0125 5345 | 11 042867 0125 5371 | 11 042867 0125 8058 | 11 042867 0125 5368 | 11 042867 0125 3713 | 11 042867 0125 5439 | 11 042867 0125 5441 | 11 042867 0125 5403 | 11 042867 0125 1746 | 11 042867 0125 1807 | 11 042867 0125 5370 | 11 042867 0125 5404 | 11 042867 0125 5390 | 11 G 042867 0125 5397 -| 11 042867 0125 5397 | 11 042867 0125 5418 | 11 042867 0125 5358 | 11 042867 0125 5414 | 11 042867 0125 5958 | 11 042867 0125 5159 | 11 042867 0125 5832 | 11 042867 0125 5308 | 11 042867 0125 5139 | 11 042867 0125 6451 | 11 042867 0125 6329 | 11 042867 0125 5099 | 11 042867 0175 5175 | 11 042867 0175 5305 | 11 042867 0175 5147 | 11 042867 0175 8320 | 11 042867 0175 6451 | 11 042867 0175 6329 | 11 042867 0350 5156 | 11 042867 0175 5110 | 11 042867 0175 5273 | 11 042867 0175 5256 | 11 042867 0175 5252 | 11 042867 0525 6665 | 11 042867 0175 8133 | 11 042867 0175 6747 | 11 042867 0700 5258 | 11 042867 0175 5130 | 11 042867 0175 5069 | 11 042867 0175 5229 | 11 042867 0175 5397 | 11 042867 0175 5438 | 11 042867 0175 8143 | 09 G 042867 0175 8904 -| 09 042867 0175 8904 | 09 042867 0175 5751 | 09 042867 0175 8144 | 09 042867 0175 8146 | 09 042867 0000 9427 | 09 042867 0175 8147 | 09 042867 0175 5702 | 09 G 042867 0175 5751 -| 09 G 042867 0175 5545 -| 09 G 042867 0175 5504 -| 09 G 042867 0175 5517 -| 09 G 042867 0350 5541 -| 09 G 042867 0175 5447 -| 09 G 042867 0175 5499 -| 09 G 042867 0175 5549 -| 09 G 042867 0175 5589 -| 09 G 042867 0175 5523 -| 09 G 042867 0175 5487 -| 09 G 042867 0175 2070 -| 09 G 042867 0175 5474 -| 09 G 042867 0175 5608 -| 09 G 042867 0175 5550 -| 09 G 042867 0175 5456 -| 09 G 042867 0175 5453 -| 09 G 042867 0175 5490 -| 09 G 042867 0175 5636 -| 09 G 042867 0175 5466 -| 09 G 042867 0175 5491 -| 09 G 042867 0175 5613 -| 09 G 042867 0175 5581 -| 09 G 042867 0175 5583 -| 09 G 042867 0175 5566 -| 09 G 042867 0175 5528 -| 09 042867 0125 5707 | 09 042867 0000 9433 | 09 042867 0125 5735 | 09 042867 0125 5721 | 09 042867 0125 5733 | 09 042867 0125 5659 | 09 042867 0125 5718 | 09 042867 0125 2551 | 09 G 042867 0625 5718 -| 09 042867 0125 5709 | 09 042867 0125 5705 | 09 042867 0125 5677 | 09 042867 0125 5704 | 09 042867 0125 5663 | 09 042867 0125 5662 | 09 042867 0125 5725 | 09 042867 0125 8123 | 09 042867 0125 5734 | 09 042867 0125 5675 | 09 042867 0125 5730 | 09 042867 0125 5713 | 09 G 042867 0250 5719 -| 09 042867 0125 5719 | 09 042867 0125 5656 | 09 042867 0125 5665 | 09 042867 0125 4555 | 09 042867 0125 5738 | 09 042867 0125 5679 | 09 042867 0125 5694 | 09 042867 0125 5651 | 09 042867 0125 5712 | 09 042867 0125 5690 | 09 042867 0125 5729 | 09 G 042867 0125 9997 -| 09 G 042867 0125 9997 -| 09 G 042867 0125 9997 -| 09 G 042867 0125 9997 -| 22 042867 0000 9457 | 22 042867 0085 2863 | 22 042867 0125 8003 | 22 042867 0125 8361 | 22 042867 0125 8320 | 22 042867 0125 8363 | 22 G 042867 0125 8363 -| 22 042867 0125 7928 | 22 042867 0125 8344 | 22 G 042867 0125 7093 -| 22 042867 0125 8049 | 22 G 042867 0125 8049 -| 22 042867 0125 8216 | 22 042867 0175 8363 | 22 042867 0175 8321 | 22 042867 0175 8344 | 22 042867 0175 8369 | 22 G 042867 0175 8344 -| 22 042867 0175 8313 | 22 042867 0175 8008 | 22 042867 0175 8003 | 22 042867 0175 8361 | 23 042867 0250 7081 | 23 042867 0125 7078 | 23 042867 0250 8312 | 23 042867 0125 8312 | 23 042867 0125 7083 | 23 042867 0125 7081 | 23 042867 0125 7081 | 23 042867 0125 8315 | 23 042867 0125 8315 | 23 042867 0125 7081 | 23 042867 0125 7080 | 23 042867 0125 7081 | 23 042867 0175 8193 | 23 042867 0175 7016 | 23 042867 0175 6851 | 23 042867 0175 7010 | 23 042867 0350 6938 | 24 042867 0000 9445 | 24 G 042867 0075 8146 -| 24 G 042867 0065 7555 -| 24 G 042867 0080 7510 -| 24 G 042867 0095 8319 -| 24 G 042867 0090 7438 -| 24 G 042867 0125 3088 -| 24 G 042867 0175 7586 -| 24 G 042867 0175 7555 -| 24 G 042867 0175 7458 -| 24 G 042867 0175 7602 -| 24 G 042867 0175 7510 -| 24 G 042867 0175 7582 -| 24 G 042867 0175 8241 -| 24 G 042867 0175 7523 -| 24 G 042867 0175 7474 -| 24 G 042867 0175 7590 -| 24 G 042867 0175 7468 -| 24 G 042867 0175 7487 -| 13 G 042867 0010 7520 -| 13 G 042867 0020 7386 -| 13 G 042867 0015 7386 -| 13 G 042867 0050 7556 -| 13 G 042867 0130 7478 -| 13 G 042867 0035 7551 -| 13 G 042867 0050 7508 -| 13 G 042867 0035 7494 -| 13 G 042867 0050 7592 -| 13 G 042867 0015 7449 -| 13 G 042867 0025 7392 -| 13 G 042867 0090 7449 -| 13 G 042867 0020 7395 -| 13 G 042867 0100 7558 -| 13 G 042867 0070 7392 -| 13 G 042867 0010 7395 -| 25 042867 0125 8247 | 25 042867 0125 7773 | 25 042867 0125 7804 | 25 042867 0125 7826 | 25 042867 0125 8245 | 25 042867 0125 7695 | 25 042867 0125 8249 | 25 042867 0125 3275 | 25 042867 0125 8011 | 25 042867 0125 8226 | 25 042867 0125 7932 | 25 042867 0125 8213 | 25 042867 0125 8147 | 25 042867 0125 8223 | 25 042867 0125 7924 | 25 042867 0125 8243 | 25 042867 0375 7778 | 25 042867 0125 8212 | 25 042867 0250 8228 | 25 042867 0125 8239 | 25 042867 0085 7872 | 25 042867 0085 8228 | 25 042867 0085 8214 | 25 042867 0175 7795 | 25 042867 0175 7639 | 25 042867 0175 8217 | 25 042867 0175 8245 | 25 042867 0175 8228 | 25 042867 0175 8001 | 25 042867 0175 7851 | 25 042867 0175 8213 | 25 042867 0175 8247 | 25 042867 0175 7773 | 25 042867 0175 7899 | 25 042867 0175 7693 | 25 042867 0175 7804 | 25 042867 0175 7669 | 21 042867 0125 6784 | 21 042867 0125 5874 | 21 042867 0125 6564 | 21 042867 0125 6670 | 21 G 042867 0125 2514 -| 21 042867 0125 2514 | 21 042867 0125 6748 | 21 042867 0375 6347 | 21 042867 0125 6115 | 21 042867 0125 6105 | 21 042867 0175 5862 | 21 042867 0175 5874 | 21 042867 0175 5958 | 21 042867 0175 5757 | 21 042867 0175 6670 | 21 042867 0175 6789 | 21 042867 0175 6347 | 21 G 042867 0175 8105 -| 21 042867 0175 8099 | 21 042867 0175 8105 | 21 042867 0175 8135 | 21 042867 0175 8134 | 21 042867 0175 8103 | 21 042867 0175 8104 | 35 042867 0110 7990 | 35 042867 0100 8010 | 35 042867 0100 7985 | 35 042867 0110 8000 | 35 042867 0115 8329 | 35 042867 0120 7993 | 35 042867 0085 7989 | 35 042867 0100 8007 | 35 042867 0115 8057 | 35 042867 0110 8006 | 35 042867 0010 8242 | 35 042867 0120 7986 | 35 042867 0095 7997 | 35 042867 0110 8002 | 35 042867 0130 7991 | 35 042867 0085 7994 | 35 042867 0155 8051 | 35 042867 0010 7992 | 35 042867 0025 8216 | 50 G 042867 0085 2064 -| 50 G 042867 0185 1793 -| 50 G 042867 0165 6715 -| 50 G 042867 0850 9425 -| 50 G 042867 0125 2081 -| 50 G 042867 0125 4318 -| 50 G 042867 0265 1306 -| 50 G 042867 0000 9428 -| 50 G 042867 0105 5082 -| 50 G 042867 0375 1591 -| 50 G 042867 1605 1350 -| 28 042867 0130 8418 | 28 042867 0250 9151 | 28 042867 0085 8443 | 28 042867 0070 9194 | 28 042867 0175 8663 | 28 042867 0105 8853 | 28 042867 0235 8421 | 28 042867 0060 8859 | 28 042867 0070 8922 | 28 042867 0115 8764 | 28 042867 0085 8790 | 28 042867 0130 8904 | 28 042867 0180 9001 | 28 042867 0100 9067 | 28 042867 0100 8661 | 28 042867 0055 9191 | 28 042867 0065 8618 | 28 042867 0135 9135 | 28 042867 0185 8799 | 28 042867 0470 8642 | 28 042867 0150 9134 | 28 042867 0085 8817 | 28 042867 0115 9109 | 28 042867 0115 8468 | 28 042867 0075 8704 | 28 042867 0100 8497 | 28 042867 0105 8946 | 28 042867 0130 8698 | 28 042867 0075 9139 | 28 042867 0070 8516 | 28 042867 0100 8557 | 28 042867 0055 8599 | 28 042867 0210 8979 | 28 042867 0075 8560 | 28 042867 0330 8554 | 28 042867 0100 8684 | 28 042867 0200 8720 | 28 042867 0070 8715 | 28 042867 0130 9144 | 28 042867 0070 8746 | 28 042867 0100 9094 | 28 042867 0085 8926 | 28 042867 0140 9014 | 28 042867 0105 9122 | 28 042867 0115 8882 | 28 042867 0115 8511 | 28 042867 0120 8701 | 28 042867 0125 8596 | 28 042867 0230 8687 | 28 042867 0100 8571 | 28 042867 0085 8638 | 28 042867 0080 8732 | 28 042867 0085 9023 | 28 042867 0100 8572 | 28 042867 0060 8598 | 28 042867 0065 8627 | 28 042867 0160 8820 | 28 042867 0115 8632 | 28 042867 0070 8754 | 28 042867 0085 8791 | 28 042867 0185 8806 | 28 042867 0100 9123 | 28 042867 0115 8542 | 28 042867 0130 8689 | 28 042867 0115 8848 | 28 042867 0150 9186 | 01 G 042967 0125 1270 -| 01 G 042967 0175 1270 -| 01 G 042967 0185 1270 -| 01 G 042967 0085 1153 -| 01 G 042967 0085 1194 -| 01 G 042967 0125 1180 -| 01 G 042967 0125 1033 -| 01 G 042967 0125 1060 -| 01 G 042967 0125 1129 -| 01 G 042967 0125 1143 -| 01 G 042967 0125 8089 -| 01 G 042967 0125 1198 -| 01 G 042967 0125 6131 -| 01 G 042967 0125 1153 -| 01 042967 0125 1362 | 01 G 042967 0125 6175 -| 01 G 042967 0125 1160 -| 01 G 042967 0125 1124 -| 01 G 042967 0125 1034 -| 01 G 042967 0125 1031 -| 01 G 042967 0125 6642 -| 01 042967 0125 1284 | 01 042967 0125 1352 | 01 042967 0125 1286 | 01 042967 0125 1351 | 01 G 042967 0125 1351 -| 01 G 042967 0250 1051 -| 01 G 042967 0125 1081 -| 01 042967 0125 8087 | 01 042967 0125 8088 | 01 042967 0125 1276 | 01 042967 0125 1357 | 01 042967 0125 1299 | 01 G 042967 0625 1337 -| 01 042967 0125 1337 | 01 042967 0125 1759 | 01 042967 0125 1336 | 01 042967 0125 1735 | 01 042967 0125 1350 | 01 G 042967 0125 2330 -| 01 042967 0125 1347 | 01 042967 0125 2917 | 01 G 042967 0125 1002 -| 01 042967 0125 1344 | 01 G 042967 0375 1344 -| 01 G 042967 0125 1099 -| 01 G 042967 0125 1001 -| 01 G 042967 0125 1235 -| 01 G 042967 0125 1231 -| 01 G 042967 1400 1161 -| 01 G 042967 0175 1156 -| 01 G 042967 0175 1033 -| 01 G 042967 0175 1124 -| 01 G 042967 0175 1160 -| 01 G 042967 0175 1002 -| 01 G 042967 0175 6309 -| 01 G 042967 0175 1024 -| 01 G 042967 0175 1170 -| 01 G 042967 0175 1031 -| 01 G 042967 0175 1219 -| 01 G 042967 0175 4415 -| 01 G 042967 0175 1022 -| 01 042967 0175 8089 | 01 042967 0175 8085 | 01 G 042967 0175 1034 -| 01 G 042967 0175 1001 -| 01 G 042967 0175 1145 -| 01 042967 0175 1329 | 01 G 042967 0175 1093 -| 01 G 042967 0175 6392 -| 01 G 042967 0175 6175 -| 01 G 042967 0175 1099 -| 01 G 042967 0175 1143 -| 01 G 042967 0175 1084 -| 01 G 042967 0175 7718 -| 01 042967 0175 1362 | 01 G 042967 0175 4693 -| 01 042967 0175 1284 | 01 G 042967 0175 1299 -| 01 042967 0175 1299 | 01 G 042967 0175 6235 -| 01 G 042967 0175 1178 -| 01 G 042967 0350 8087 -| 01 G 042967 0175 7683 -| 01 G 042967 0175 7678 -| 01 G 042967 0175 1097 -| 01 G 042967 0175 1081 -| 01 G 042967 0175 6642 -| 02 042967 0085 1805 | 02 042967 0125 6311 | 02 042967 0125 1469 | 02 042967 0125 1418 | 02 042967 0125 1561 | 02 042967 0125 1508 | 02 042967 0125 6568 | 02 042967 0125 5783 | 02 042967 0125 2342 | 02 042967 0125 6706 | 02 042967 0125 1533 | 02 042967 0125 8094 | 02 042967 0125 1652 | 02 042967 0125 1612 | 02 042967 0125 1636 | 02 042967 0125 1415 | 02 042967 0125 1518 | 02 042967 0125 6399 | 02 042967 0125 1522 | 02 042967 0125 1710 | 02 042967 0125 1620 | 02 042967 0125 1426 | 02 042967 0125 6190 | 02 042967 0125 6636 | 02 042967 0125 6318 | 02 042967 0125 6651 | 02 042967 0125 6070 | 02 042967 0125 1569 | 02 042967 0125 2341 | 02 042967 0125 1788 | 02 042967 0125 1416 | 02 042967 0125 2312 | 02 042967 0125 6765 | 02 042967 0125 1632 | 02 042967 0125 6083 | 02 042967 0125 1458 | 02 042967 0125 1787 | 02 G 042967 0125 1777 -| 02 042967 0125 1777 | 02 042967 0125 1601 | 02 042967 0125 6357 | 02 042967 0125 2352 | 02 042967 0125 8212 | 02 042967 0125 2317 | 02 042967 0125 1492 | 02 042967 0125 1574 | 02 042967 0125 1591 | 02 042967 0125 1501 | 02 042967 0175 1652 | 02 042967 0175 1603 | 02 042967 0175 5817 | 02 042967 0175 8095 | 02 042967 0175 6070 | 02 042967 0175 5920 | 02 042967 0175 5882 | 02 042967 0175 6482 | 02 042967 0175 8091 | 02 042967 0175 7666 | 02 042967 0175 7729 | 02 042967 0175 1484 | 02 042967 0175 1442 | 02 042967 0175 1561 | 02 042967 0175 1620 | 02 042967 0175 1518 | 02 042967 0175 1671 | 02 042967 0175 6765 | 02 042967 0175 6083 | 02 042967 0175 1617 | 02 042967 0175 1574 | 02 042967 0175 1416 | 02 042967 0175 1426 | 02 042967 0175 3313 | 02 042967 0175 1491 | 02 042967 0175 1555 | 02 042967 0175 1503 | 02 042967 0175 1659 | 02 042967 0175 1625 | 02 042967 0175 1631 | 02 042967 0175 1492 | 02 042967 0175 6200 | 02 042967 0175 5850 | 02 042967 0175 6318 | 02 042967 0175 1510 | 02 042967 0175 1632 | 02 042967 0175 1425 | 02 042967 0175 1502 | 02 042967 0175 1402 | 02 042967 0175 1611 | 02 042967 0175 6357 | 02 042967 0175 1569 | 02 042967 0350 1644 | 02 042967 0175 8094 | 03 042967 0125 2028 | 03 042967 0125 1896 | 03 042967 0125 1820 | 03 042967 0125 1918 | 03 042967 0125 2041 | 03 042967 0125 2101 | 03 042967 0125 2058 | 03 042967 0125 5290 | 03 042967 0250 2023 | 03 042967 0250 2064 | 03 042967 0125 1875 | 03 042967 0125 8098 | 03 042967 0125 1911 | 03 042967 0125 1944 | 03 042967 0125 8097 | 03 042967 0125 8318 | 03 042967 0250 1981 | 03 042967 0125 2143 | 03 G 042967 0125 2143 -| 03 042967 0125 2117 | 03 G 042967 0125 2117 -| 03 042967 0125 1920 | 03 042967 0125 1842 | 03 042967 0125 1863 | 03 042967 0125 1968 | 03 042967 0250 2059 | 03 042967 0125 1848 | 03 042967 0125 1934 | 03 042967 0250 1227 | 03 042967 0375 1942 | 03 042967 0125 1855 | 03 042967 0125 5844 | 03 042967 0125 1938 | 03 042967 0125 2093 | 03 042967 0250 1850 | 03 042967 0125 2024 | 03 042967 0125 1864 | 03 042967 0175 1954 | 03 042967 0175 1820 | 03 042967 0175 4686 | 03 042967 0175 2049 | 03 042967 0175 1992 | 03 042967 0175 1855 | 03 042967 0175 2058 | 03 042967 0175 1922 | 03 042967 0175 8098 | 03 042967 0175 1967 | 03 042967 0175 5258 | 03 042967 0175 2070 | 03 042967 0175 1980 | 03 042967 0175 1842 | 03 042967 0175 6150 | 03 042967 0175 6178 | 03 042967 0175 1827 | 03 042967 0175 1996 | 03 042967 0175 1825 | 03 042967 0175 1918 | 03 042967 0175 1875 | 03 042967 0175 1863 | 03 042967 0175 1968 | 03 042967 0175 1879 | 03 042967 0175 1927 | 03 042967 0175 2015 | 03 042967 0175 2000 | 03 042967 0175 6457 | 03 042967 0175 5844 | 03 042967 0175 2059 | 03 042967 0175 1864 | 03 042967 0175 1911 | 03 042967 0175 8097 | 03 042967 0175 2028 | 03 042967 0175 1896 | 03 042967 0175 2041 | 03 042967 0175 1846 | 03 042967 0350 2064 | 03 042967 0175 1895 | 03 042967 0175 1851 | 03 042967 0175 1965 | 04 G 042967 0175 2434 -| 04 G 042967 0175 2352 -| 04 G 042967 0175 2330 -| 04 G 042967 0175 6426 -| 04 G 042967 0175 5759 -| 04 G 042967 0175 2243 -| 04 G 042967 0175 2197 -| 04 G 042967 0175 2264 -| 04 G 042967 0175 2279 -| 04 G 042967 0175 2453 -| 04 042967 0175 2526 | 04 G 042967 0175 2526 -| 04 G 042967 0175 2432 -| 04 G 042967 0350 2193 -| 04 G 042967 0175 2312 -| 04 G 042967 0175 2376 -| 04 G 042967 0175 2390 -| 04 G 042967 0175 2270 -| 04 G 042967 0175 2195 -| 04 G 042967 0175 2309 -| 04 G 042967 0175 5815 -| 04 G 042967 0175 2320 -| 04 G 042967 0175 2351 -| 04 G 042967 0175 6098 -| 04 G 042967 0175 2344 -| 04 G 042967 0175 2315 -| 04 G 042967 0175 2289 -| 04 G 042967 0175 2433 -| 04 G 042967 0175 2319 -| 04 G 042967 0175 2252 -| 04 G 042967 0175 2397 -| 04 G 042967 0175 6680 -| 04 G 042967 0175 5900 -| 04 G 042967 0175 6028 -| 04 G 042967 0175 2188 -| 04 G 042967 0175 2341 -| 04 G 042967 0175 2295 -| 04 G 042967 0175 2194 -| 04 G 042967 0175 8102 -| 04 042967 0175 8102 | 04 G 042967 0175 2224 -| 04 G 042967 0175 6065 -| 04 G 042967 0175 2670 -| 04 G 042967 0175 2358 -| 04 042967 0175 2541 | 04 G 042967 0525 2541 -| 04 G 042967 0175 6322 -| 04 G 042967 0175 2210 -| 05 042967 0085 6030 | 05 042967 0125 2628 | 05 042967 0125 2663 | 05 042967 0125 2730 | 05 042967 0125 2700 | 05 042967 0125 5903 | 05 042967 0125 2767 | 05 042967 0125 6030 | 05 042967 0125 2785 | 05 042967 0125 2733 | 05 042967 0125 2724 | 05 042967 0125 2868 | 05 042967 0125 2871 | 05 042967 0125 2808 | 05 042967 0125 2771 | 05 042967 0125 2823 | 05 042967 0375 2766 | 05 042967 0125 2705 | 05 042967 0125 2676 | 05 G 042967 0125 2853 -| 05 042967 0125 2853 | 05 042967 0125 2908 | 05 042967 0125 2744 | 05 042967 0125 2604 | 05 042967 0125 2802 | 05 042967 0125 2928 | 05 042967 0125 2652 | 05 042967 0125 2582 | 05 042967 0125 2764 | 05 042967 0125 2194 | 05 042967 0125 2747 | 05 042967 0125 2824 | 05 042967 0175 5978 | 05 042967 0175 2741 | 05 042967 0175 8111 | 05 042967 0175 2611 | 05 042967 0175 6730 | 05 042967 0175 2934 | 05 042967 0175 4219 | 05 042967 0175 2802 | 05 042967 0175 2823 | 05 042967 0175 6375 | 05 042967 0350 2634 | 05 042967 0175 2928 | 05 042967 0175 2724 | 05 042967 0175 2821 | 05 042967 0175 2820 | 05 042967 0175 2824 | 05 042967 0175 2747 | 05 042967 0175 2614 | 05 042967 0175 2582 | 05 042967 0175 2653 | 05 042967 0175 2628 | 05 042967 0175 8110 | 05 042967 0175 2663 | 05 042967 0175 2652 | 05 042967 0175 2746 | 05 042967 0175 2810 | 06 042967 0085 3236 | 06 042967 0125 3273 | 06 042967 0125 3218 | 06 042967 0125 3213 | 06 042967 0125 3255 | 06 042967 0125 3282 | 06 G 042967 0125 3179 -| 06 042967 0125 2390 | 06 042967 0125 3052 | 06 042967 0125 2994 | 06 042967 0125 3105 | 06 G 042967 0125 3663 -| 06 042967 0125 2986 | 06 042967 0125 2984 | 06 042967 0125 6708 | 06 042967 0125 3101 | 06 042967 0125 3077 | 06 042967 0125 3029 | 06 042967 0125 6601 | 06 G 042967 0125 8138 -| 06 042967 0125 8316 | 06 042967 0125 6718 | 06 042967 0125 4686 | 06 042967 0125 1657 | 06 G 042967 0175 8112 -| 06 042967 0175 8115 | 06 042967 0175 3273 | 06 042967 0175 8112 | 06 042967 0175 8114 | 06 042967 0175 3044 | 06 042967 0175 3039 | 06 042967 0175 7703 | 06 042967 0175 7728 | 06 042967 0175 6601 | 06 042967 0175 2986 | 06 042967 0175 3099 | 06 042967 0175 2994 | 06 042967 0175 3080 | 06 042967 0350 3054 | 06 042967 0175 3032 | 06 042967 0175 3024 | 06 042967 0175 1657 | 06 042967 0175 3110 | 06 042967 0175 3062 | 06 042967 0175 3974 | 06 042967 0175 3052 | 12 042967 0125 3388 | 12 042967 0125 3653 | 12 042967 0125 4739 | 12 042967 0125 3725 | 12 042967 0125 3716 | 12 042967 0125 1320 | 12 042967 0125 3589 | 12 042967 0125 3675 | 12 042967 0125 3660 | 12 042967 0125 3614 | 12 042967 0125 3333 | 12 042967 0125 6627 | 12 042967 0125 3530 | 12 042967 0125 3357 | 12 042967 0125 3329 | 12 G 042967 0125 3653 -| 12 042967 0125 3395 | 12 042967 0125 7779 | 12 G 042967 0500 3716 -| 12 042967 0125 3485 | 12 042967 0125 3387 | 12 042967 0125 5899 | 12 042967 0125 6695 | 12 042967 0125 3318 | 12 G 042967 0125 3675 -| 12 042967 0375 6306 | 12 042967 0125 3554 | 12 042967 0125 3451 | 12 042967 0125 3365 | 12 042967 0250 3374 | 12 042967 0125 6711 | 12 042967 0175 3589 | 12 042967 0175 8120 | 12 042967 0175 8117 | 12 042967 0175 3524 | 12 042967 0175 3396 | 12 042967 0175 3500 | 12 042967 0175 3451 | 12 042967 0175 3489 | 12 042967 0175 3364 | 12 042967 0175 7841 | 12 042967 0175 3499 | 12 042967 0175 3482 | 12 042967 0350 5899 | 12 042967 0175 3531 | 12 042967 0175 3398 | 12 042967 0175 3549 | 12 042967 0175 3387 | 12 042967 0175 3457 | 12 042967 0175 3528 | 12 042967 0175 3388 | 12 042967 0175 3498 | 12 042967 0175 3530 | 12 042967 0175 7779 | 12 042967 0175 3301 | 12 042967 0175 3488 | 12 042967 0175 3395 | 12 042967 0350 3514 | 12 042967 0175 6627 | 12 042967 0175 3384 | 12 042967 0175 3355 | 12 042967 0175 3333 | 07 042967 0085 3912 | 07 042967 0125 3791 | 07 042967 0125 4072 | 07 G 042967 0125 8124 -| 07 042967 0125 8123 | 07 042967 0125 3849 | 07 042967 0000 9427 | 07 042967 0125 3850 | 07 042967 0125 3828 | 07 042967 0125 3914 | 07 042967 0125 4059 | 07 042967 0125 2385 | 07 042967 0250 3783 | 07 042967 0125 4130 | 07 042967 0125 4000 | 07 042967 0625 3911 | 07 042967 0125 6422 | 07 G 042967 0875 4127 -| 07 042967 0125 4127 | 07 042967 0125 3786 | 07 G 042967 0250 8126 -| 07 042967 0125 3958 | 07 042967 0125 2073 | 07 042967 0125 4011 | 07 042967 0125 3974 | 07 042967 0125 2453 | 07 042967 0175 3914 | 07 042967 0175 3763 | 07 042967 0175 4005 | 07 042967 0175 8123 | 07 042967 0175 4039 | 07 042967 0525 6655 | 07 042967 0175 3991 | 07 042967 0175 3786 | 07 042967 0175 3318 | 07 042967 0175 3941 | 07 042967 0175 8125 | 07 042967 0175 8124 | 07 G 042967 0175 8126 -| 07 042967 0175 8126 | 07 042967 0175 4088 | 07 G 042967 0350 4088 -| 07 042967 0175 2861 | 07 042967 0175 3911 | 07 042967 0175 6378 | 07 042967 0175 5790 | 07 042967 0175 3933 | 07 042967 0175 3853 | 07 042967 0175 4006 | 07 042967 0175 3887 | 07 042967 0175 3892 | 07 042967 0175 2073 | 07 042967 0175 4011 | 07 042967 0175 3771 | 07 042967 0175 6441 | 08 042967 0085 6204 | 08 042967 0085 6204 | 08 042967 0085 6204 | 08 042967 0085 4546 | 08 042967 0125 8130 | 08 042967 0125 8132 | 08 042967 0125 8127 | 08 042967 0128 8131 | 08 042967 0125 4318 | 08 042967 0125 4233 | 08 042967 0125 8183 | 08 042967 0125 4156 | 08 042967 0125 4502 | 08 042967 0125 4546 | 08 042967 0125 4262 | 08 042967 0125 4244 | 08 042967 0125 3771 | 08 042967 0125 2280 | 08 042967 0125 4426 | 08 042967 0125 2266 | 08 042967 0125 4164 | 08 042967 0125 2276 | 08 042967 0125 4217 | 08 042967 0125 4487 | 08 042967 0125 4565 | 08 042967 0125 4225 | 08 042967 0125 4294 | 08 042967 0125 4195 | 08 042967 0125 4224 | 08 042967 0125 4360 | 08 042967 0125 4529 | 08 042967 0125 4268 | 08 042967 0125 4465 | 08 042967 0250 4428 | 08 042967 0125 4198 | 08 042967 0125 4327 | 08 042967 0125 4290 | 08 042967 0125 4286 | 08 042967 0125 4204 | 08 042967 0125 4243 | 08 042967 0125 4279 | 08 042967 0125 8174 | 08 042967 0125 4372 | 08 042967 0125 4185 | 08 042967 0175 4185 | 08 042967 0175 4502 | 08 042967 0175 4546 | 08 042967 0175 6774 | 08 042967 0175 8130 | 08 042967 0175 4422 | 08 042967 0175 4260 | 08 042967 0175 4164 | 08 042967 0175 4285 | 08 042967 0175 5859 | 08 042967 0175 4234 | 08 042967 0175 5862 | 08 042967 0175 8140 | 08 042967 0175 4170 | 08 042967 0175 4209 | 08 042967 0175 4351 | 08 042967 0175 4267 | 08 042967 0175 4318 | 08 042967 0175 4195 | 08 042967 0175 4268 | 08 042967 0175 4278 | 08 042967 0175 4151 | 08 042967 0175 4241 | 08 042967 0175 4345 | 08 042967 0175 4340 | 08 042967 0175 4217 | 08 042967 0175 4293 | 08 042967 0175 4373 | 08 042967 0175 4426 | 08 042967 0175 4222 | 08 042967 0175 4279 | 08 042967 0175 4205 | 08 042967 0175 6356 | 08 042967 0175 4286 | 08 042967 0175 4244 | 10 042967 0085 4617 | 10 042967 0085 4753 | 10 042967 0085 4693 | 10 042967 0050 6118 | 10 042967 0125 5016 | 10 042967 0125 4878 | 10 042967 0125 4266 | 10 042967 0125 6115 | 10 042967 0125 4820 | 10 042967 0125 4588 | 10 042967 0125 1824 | 10 042967 0125 4943 | 10 042967 0125 6670 | 10 042967 0125 6468 | 10 042967 0125 4898 | 10 042967 0125 4855 | 10 042967 0125 4893 | 10 042967 0125 4897 | 10 042967 0125 4733 | 10 042967 0125 4596 | 10 042967 0125 4641 | 10 042967 0125 4885 | 10 042967 0125 2838 | 10 042967 0125 4971 | 10 042967 0125 4626 | 10 042967 0125 4757 | 10 042967 0125 4640 | 10 042967 0125 4907 | 10 042967 0125 4955 | 10 042967 0125 4915 | 10 042967 0125 4611 | 10 042967 0125 5024 | 10 042967 0125 2892 | 10 042967 1125 5024 | 10 042967 0125 4754 | 10 042967 0125 4642 | 10 042967 0125 4639 | 10 042967 0125 4980 | 10 G 042967 0250 4980 -| 10 G 042967 0125 2111 -| 10 042967 0125 4931 | 10 042967 0125 4737 | 10 042967 0375 4607 | 10 042967 0125 4618 | 10 042967 0125 4796 | 10 042967 0175 4898 | 10 042967 0350 5991 | 10 042967 0175 2838 | 10 042967 0175 4698 | 10 042967 0175 4687 | 10 042967 0175 4843 | 10 042967 0175 8138 | 10 042967 0175 7662 | 10 042967 0175 7655 | 10 042967 0175 4798 | 10 042967 0175 4796 | 10 G 042967 0175 8119 -| 10 042967 0175 4893 | 10 042967 0175 4855 | 10 042967 0175 4733 | 10 042967 0175 7691 | 10 042967 0350 7723 | 10 042967 0175 4735 | 10 042967 0175 7688 | 10 042967 0175 4633 | 10 042967 0175 4648 | 10 042967 0175 4641 | 10 042967 0175 4669 | 10 042967 0175 4885 | 10 042967 0175 4588 | 10 042967 0175 6634 | 10 042967 0175 6468 | 10 042967 0175 7672 | 10 042967 0175 7663 | 10 042967 0175 4684 | 10 042967 0175 4878 | 10 042967 0350 4605 | 10 042967 0175 4753 | 10 042967 0175 6115 | 10 042967 0175 4852 | 10 042967 0175 4618 | 10 042967 0175 4642 | 10 042967 0175 6518 | 10 042967 0175 4892 | 11 042967 0175 9551 | 11 042967 0125 5391 | 11 042967 0125 5418 | 11 042967 0125 5371 | 11 042967 0125 5374 | 11 042967 0125 5358 | 11 042967 0125 8139 | 11 042967 0125 5252 | 11 042967 0125 5215 | 11 042967 0125 5180 | 11 G 042967 0250 5418 -| 11 042967 0375 5167 | 11 042967 0125 5160 | 11 042967 0125 2741 | 11 042967 0125 5261 | 11 042967 0125 5130 | 11 042967 0250 5156 | 11 042967 0125 5210 | 11 042967 0125 5258 | 11 042967 0125 5207 | 11 042967 0125 5111 | 11 042967 0125 5207 | 11 042967 0175 5397 | 11 042967 0175 6451 | 11 042967 0175 6329 | 11 042967 0175 5261 | 11 042967 0175 5121 | 11 042967 0175 5128 | 11 042967 0175 6078 | 11 042967 0175 6269 | 11 042967 0175 5958 | 11 042967 0175 5057 | 11 042967 0175 5111 | 11 042967 0175 5212 | 11 042967 0175 5239 | 11 042967 0175 5169 | 11 042967 0175 5172 | 11 042967 0175 5130 | 11 042967 0175 5099 | 11 042967 0175 5060 | 11 042967 0175 5184 | 11 G 042967 0175 5397 -| 11 042967 0175 5210 | 11 042967 0175 5114 | 11 042967 0175 5126 | 09 G 042967 0125 5504 -| 09 G 042967 0125 5545 -| 09 G 042967 0125 5488 -| 09 G 042967 0125 5499 -| 09 G 042967 0125 5449 -| 09 042967 0125 5726 | 09 042967 0125 5704 | 09 042967 0125 8146 | 09 042967 0125 5730 | 09 G 042967 0250 5730 -| 09 042967 0125 5662 | 09 042967 0125 5734 | 09 042967 0125 5702 | 09 G 042967 0125 5496 -| 09 G 042967 0125 5523 -| 09 G 042967 0125 5546 -| 09 G 042967 0125 5447 -| 09 G 042967 0125 5465 -| 09 G 042967 0125 5581 -| 09 G 042967 0500 5550 -| 09 G 042967 0125 5519 -| 09 G 042967 0125 5474 -| 09 G 042967 0125 5487 -| 09 G 042967 0125 5608 -| 09 G 042967 0125 5554 -| 09 G 042967 0125 5490 -| 09 G 042967 0125 5495 -| 09 G 042967 0125 5549 -| 09 G 042967 0125 5446 -| 09 G 042967 0125 5591 -| 09 G 042967 0125 5537 -| 09 G 042967 0125 5556 -| 09 G 042967 0125 5485 -| 09 G 042967 0125 5589 -| 09 G 042967 0125 5517 -| 09 G 042967 0125 5630 -| 09 G 042967 0125 4870 -| 09 G 042967 0125 5532 -| 09 G 042967 0125 3396 -| 09 G 042967 0125 5864 -| 09 G 042967 0125 6195 -| 09 G 042967 0125 5456 -| 09 G 042967 0175 5478 -| 09 G 042967 0175 5523 -| 09 G 042967 0175 5584 -| 09 G 042967 0175 5551 -| 09 G 042967 0175 6575 -| 09 G 042967 0175 6195 -| 09 G 042967 0175 5587 -| 09 G 042967 0175 5499 -| 09 G 042967 0175 6569 -| 09 G 042967 0175 6690 -| 09 G 042967 0175 5453 -| 09 G 042967 0175 5537 -| 09 G 042967 0175 5581 -| 09 G 042967 0175 5586 -| 09 G 042967 0175 5506 -| 09 G 042967 0175 5504 -| 09 G 042967 0175 5591 -| 09 G 042967 0175 5532 -| 09 G 042967 0175 5488 -| 09 G 042967 0175 5497 -| 09 G 042967 0175 6350 -| 09 G 042967 0175 5449 -| 09 G 042967 0175 5496 -| 09 G 042967 0175 5608 -| 09 G 042967 0175 5534 -| 09 G 042967 0175 5474 -| 09 G 042967 0175 5476 -| 09 G 042967 0175 5530 -| 09 G 042967 0175 5589 -| 09 G 042967 0175 5573 -| 09 G 042967 0175 5569 -| 09 G 042967 0175 5487 -| 09 G 042967 0175 5556 -| 09 G 042967 0175 5579 -| 09 G 042967 0175 5552 -| 09 G 042967 0175 5519 -| 09 G 042967 0175 5546 -| 09 G 042967 0175 5447 -| 09 G 042967 0175 5495 -| 09 G 042967 0175 6004 -| 09 G 042967 0175 5619 -| 09 G 042967 0175 5576 -| 09 G 042967 0175 5864 -| 09 G 042967 0175 5554 -| 09 G 042967 0175 5635 -| 09 G 042967 0175 5446 -| 09 G 042967 0175 5549 -| 09 G 042967 0175 5620 -| 09 G 042967 0175 5491 -| 09 G 042967 0175 5542 -| 09 G 042967 0175 5617 -| 09 G 042967 0175 5490 -| 09 G 042967 0175 5517 -| 09 G 042967 0175 5550 -| 09 G 042967 0175 5541 -| 09 G 042967 0175 1205 -| 09 G 042967 0175 5458 -| 09 G 042967 0175 5485 -| 09 G 042967 0175 5456 -| 22 G 042967 0125 7354 -| 22 042967 0125 7382 | 22 G 042967 0125 7308 -| 22 G 042967 0125 7184 -| 22 G 042967 0125 7093 -| 22 G 042967 0125 7129 -| 22 042967 0125 8363 | 22 042967 0125 8367 | 22 042967 0175 8057 | 22 G 042967 0175 9503 -| 22 G 042967 0175 7308 -| 22 G 042967 0175 7354 -| 22 042967 0175 8363 | 22 G 042967 0175 8363 -| 22 G 042967 0175 7323 -| 22 G 042967 0175 7117 -| 22 042967 0175 8004 | 22 G 042967 0175 7129 -| 22 G 042967 0175 7184 -| 23 042967 0085 7887 | 23 042967 0125 6966 | 23 042967 0125 7081 | 23 042967 0125 8111 | 23 042967 0085 6881 | 23 042967 0175 7887 | 23 042967 0175 6966 | 23 042967 0175 6851 | 24 G 042967 0095 7393 -| 24 G 042967 0050 7484 -| 24 G 042967 0100 7586 -| 24 G 042967 0025 7555 -| 24 G 042967 0075 7477 -| 24 G 042967 0020 7545 -| 24 G 042967 0065 3088 -| 24 G 042967 0080 7510 -| 24 G 042967 0100 8319 -| 24 G 042967 0105 7446 -| 24 G 042967 0175 7545 -| 24 G 042967 0175 7469 -| 24 G 042967 0175 7462 -| 24 G 042967 0175 7452 -| 24 G 042967 0175 7446 -| 24 G 042967 0175 7436 -| 24 G 042967 0175 7555 -| 24 G 042967 0175 7510 -| 24 G 042967 0175 7512 -| 24 G 042967 0175 7414 -| 24 G 042967 0175 7493 -| 24 G 042967 0175 7590 -| 24 G 042967 0175 7546 -| 24 G 042967 0525 7502 -| 24 G 042967 0175 7410 -| 25 042967 0085 7669 | 25 042967 0085 7676 | 25 042967 0085 7832 | 25 042967 0085 8241 | 25 042967 0085 8247 | 25 042967 0125 7854 | 25 042967 0125 8246 | 25 042967 0375 7706 | 25 042967 0125 7669 | 25 042967 0125 7801 | 25 042967 0125 8147 | 25 042967 0125 7639 | 25 042967 0125 7693 | 25 042967 0125 7698 | 25 042967 0125 7664 | 25 042967 0125 8213 | 25 042967 0125 7795 | 25 042967 0125 7723 | 25 042967 0125 7701 | 25 042967 0125 7684 | 25 042967 0125 6851 | 25 042967 0125 8214 | 25 042967 0375 7775 | 25 042967 0125 7843 | 25 042967 0125 7778 | 25 042967 0125 7924 | 21 042967 0125 8125 | 21 042967 0125 6730 | 21 042967 0125 5793 | 21 042967 0125 5991 | 21 042967 0125 5991 | 21 042967 0375 6344 | 21 042967 0125 6740 | 21 042967 0125 6192 | 21 042967 0125 5759 | 21 042967 0125 6347 | 21 042967 0125 6164 | 21 042967 0125 5874 | 21 042967 0125 6118 | 21 042967 0125 6617 | 21 042967 0125 3912 | 21 042967 0125 6098 | 21 042967 0125 6680 | 21 042967 0125 5958 | 21 042967 0125 5756 | 21 042967 0625 5949 | 21 042967 0375 6333 | 21 042967 0250 5948 | 21 042967 0175 8104 | 21 042967 0175 8134 | 21 042967 0175 8105 | 21 042967 0175 6657 | 21 042967 0175 5873 | 21 042967 0175 6399 | 21 042967 0175 6237 | 21 042967 0175 6118 | 21 042967 0350 6503 | 21 042967 0175 5756 | 21 042967 0175 6346 | 21 042967 0175 6747 | 21 042967 0175 6347 | 21 042967 0175 6740 | 21 042967 0175 6506 | 21 042967 0175 6670 | 21 042967 0350 5465 | 21 042967 0175 5881 | 35 042967 0100 8050 | 35 042967 0085 7995 | 35 042967 0115 8002 | 35 042967 0125 7383 | 35 042967 0125 8010 | 35 042967 0135 8006 | 35 042967 0100 7989 | 35 042967 0100 7997 | 35 042967 0130 8000 | 35 042967 0115 7990 | 35 042967 0115 8007 | 35 042967 0130 7993 | 35 042967 0045 8011 | 35 042967 0150 7994 | 22 030867 0175 8168 | 02 030967 0175 3270 | 50 G 032067 0150 1511 -| 28 032067 0075 9082 | 28 032067 0055 8899 | 28 032067 0090 8705 | 25 032867 0125 5391 | 21 G 032967 0075 3286 -| 21 G 033067 0075 3286 -| 21 G 033167 0085 3286 -| 12 040367 0175 3729 | 10 040367 0175 5048 | 12 G 040467 0125 3636 -| 12 040467 0125 3636 | 02 040667 0175 9550 | 02 040667 0175 3270 | 08 040667 0175 4573 | 24 G 040767 0080 7548 -| 10 041067 0175 9600 | 10 041067 0175 9602 | 25 041167 0125 2132 | 09 041167 0125 5651 | 50 G 041367 0715 5378 -| 50 G 041367 0000 9455 -| 09 041367 0125 5651 | 02 041367 0175 1808 | 02 G 041367 0175 1808 -| 02 041367 0175 9551 | 07 041467 0175 8125 | 02 041567 0125 9551 | 02 G 041567 0125 9551 -| 06 041567 0085 3236 | 06 041567 0085 6600 | 13 041767 0020 7586 | 25 041867 0000 9445 | 11 041967 0175 5444 | 01 042067 0125 1375 | 01 042067 0125 1376 | 08 042067 0175 4574 | 09 042067 0175 5652 | 07 042167 0000 9459 | 50 G 042167 0165 2001 -| 13 042267 0140 7461 | 01 042467 0175 1375 | 10 042467 0175 9601 | 12 042467 0125 5730 | 50 042767 0000 9427 | 50 G 042767 0610 9425 -| 50 042767 0000 9428 | |