PASS 3 COMPLETED SYMBOL TABLE ANAL 0114 AOPOUT 0669 ABIT 0111 ACTSW 1867 ACTUAL 0761 AOPADJ 0026 ADDHO 2400&X2 ADDBNK 1503 AOPROC 1618 ADDRTN 1086 ASTRSK 0708 AINDEX 0027 ARGUMT 1908 AOPOR 0536 ASTRSW 1418 AOPHO 0017 ADDRSW 1859 AOPRTN 1484 ABBIT 0113 AOPER 0022 AGAIN 1097 AOP 0070 ASTADD 1439 ADDLO 2403&X2 BUMPER 0878 BBIT 0112 BUMP 1681 BTOADD 0887 BTOLAB 0474 BRANCH 1784 BLKG12 2860 BTOLBL 1157 BRNCH2 1784 BLKAOP 0735 BLKG8K 2844 BRSRH 1464 BYPRD 1429 BMPXR3 0668 COMPRS 0390 CHRADJ 1049 CONST 0260 CLR 1024 CARD 0000 CMP16K 0409 CNVLAB 0056 COUNT 0007 CLRTAB 1813 CNVTO3 1094 COUTPT %U6 CINPUT %U5 CNVSYM 0626 CLEAR 1820 DOREF 0441 DUMP 0646 DOLABL 1358 DOLABR 1431 DBLDEF 1298 DBLSW 1864 DA 0871 DS 0295 DOIO 0635 DINPUT %U6 DOPNT 0777 DOUTPT %U5 DASW 1868 DSAPUT 1872 DONEXT 0461 DOINDX 1417 EXEND 0973 ENDOVL 1245 ENDINT 2909 ENDSW 1210 EOJOB 0997 ENDOFC 1924 ENDOFD 1868 ENDOPN 0478 FACTOR 2388 FINAL 1873 FLOAT 1221 FINALD 1813 GRPMK2 1431 GRPMRK 2874 GPMRK3 3998 GOTOE 1057 HEADSW 1180 HOLD1 1427 HOLDAR 1458 HOLDAD 1912 HGHCTR 1858 HOADD 0057 HOLD2 1468 HOLDZN 1485 HOLD4 1472 HOLD7 1426 INPUT 3917&X3 INSTR 0219 INDFTR 1869 INITAP %U0 IOADD 1179 ITERSW 1428 KEEP1 2885 LIMIT 3931 LIMAD 2902 LABRTN 1294 LITRSW 1861 LOADDR 0215 LOZNG 0530 LBLHO 0008 LSTITR 1407 LOOP1 0767 LIBRN 0000 LIST 1179 LBLREF 2401&X2 LITRAL 1325 LABEL 0013 LITTST 1090 LABADD 0061 MDTP8K 2857 MPYLP 0706 MDTP 2890 MACHSZ 2389 MRKPRC 1280 MDTP12 2873 MARK 1168 MAXSW 1860 MULT 0714 NOBIT 0110 NXTCTR 0656 NOWCTR 1848 NXTCNT 0655 NXTDGT 0740 NXTLBL 0348 NOT 0726 NEWPGE 0502 NXTPGE 0859 ORGSW 1866 ORIGDA 0926 OPRTN 1175 ORGEQU 0489 ORGCTR 1853 ORG 0376 ORGOUT 0574 ORGSAV 0432 ORGADD 0032 PROSFX 1279 PERCNT 0950 PRDSA 0318 PRCAST 0283 PASSD 1290 PRINST 0196 PNTSYM 0812 PRINT 0538 PRTXT 0631 PGXT 0884 PROCOP 0578 PRCADD 1003 PROAST 1190 PNTSW 1218 PROCSW 2395 PROCLB 1109 PROCTU 0361 PROEND 0446 READ 1788 RDCT 1244 READ2 1788 RECALL 0980 RETURN 1763 RETRY 1080 READE 1044 RSTSWA 0616 REFLOT 1256 SERCHS 2399 SWICH1 1419 SAVETP %U4 SCAN 0687 SETORG 0609 SETDBL 1745 STRBNK 1488 STLABL 0002 SPCSW 1863 SETSWS 0598 SETIO 2493 SYSTPE %U1 SETTP 2662 STRSAV 0502 SETSPC 1756 SORTAB 1148 SETFUN 1376 SYMHO 2404&X2 SUPADD 0066 SETBMP 2726 SEEBOP 0268 STADDR 0003 SETHGH 0405 SEARCH 1629 SSOP 1900 SYMBOL 2409&X2 SRHLOP 0858 SETSWL 1250 STRADD 1161 SETAOP 1435 SAVEZN 1920 STBOP 0004 STAOP 0001 SETSYM 0804 SWTAB 0433 SETAST 0208 SETDSA 0337 SETZRO 0942 SET8K 2620 STORE 1269 SCNTB 0806 SFX 0992 SYSERR 1068 TSTADD 1022 TYPE 0075 TBLM12 2867 TBLM8K 2851 TOTLAB 2393 TSTCNV 1078 TSTDBL 1207 TYPEA 1433 TSTLST 0474 TSTLBL 0718 TABLE 2409 TSTEOJ 0888 TPAD8K 2854 TPAD12 2870 TBLSRH 1661 TSTREF 0333 TPAREA 3918 TSTX00 0821 TBSZ12 2864 TSTRPT 0910 TBSZ8K 2848 TSTESW 0847 TSTPRC 0434 UNDEF 0961 UNPRSW 2394 UNPROC 1181 WRITE 1767 WRITE2 1767 WRAPSW 1862 W6AREA 1465 XR3 0099 XXXX 0000 XR1 0089 XR2 0094 ZONE 0113 ZONE2 0109 SYMBOL TABLE BUMPOP 2327 BLKCT 2330 BSP1 2040 BSP2 2084 CLRMIN 2302 CLRMAX 2299 CHKLGT 2208 FNCTN 2308 GET 1925 HOLDA 2331 INST2 2169 KBLKNG 2326 LGTXT 2243 LGTCK 2223 MAXSER 2322 MAXADD 2314 MOVEIN 1951 NXTREC 1937 PUT 1977 READCT 2338 REDXT 2073 RDPSSC 2272 RDPSSD 2247 RDRERR 2077 SFXCTR 2323 SUBCTR 2186 TPERR 2004 TABMAX 2311 TABLSZ 2318 TPAD 2334 TPHALT 2111 TPHLT2 2197 TPHLT3 2138 TPINST 2060 WRTCTR 2341 WRTRED 2149 CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 101 1 01 000 JOB AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 102 1 02 CTL 63011 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 SYSTPE EQU %U1 %U1 108 1 08 SAVETP EQU %U4 %U4 109 1 09 CINPUT EQU %U5 %U5 110 1 10 COUTPT EQU %U6 %U6 111 1 11 DOUTPT EQU %U5 %U5 112 1 12 DINPUT EQU %U6 %U6 113 1 13 TABLE EQU 2409 2409 114 1 14 ADDLO EQU TABLE-006&X2 2403 X 115 1 15 SYMHO EQU TABLE-005&X2 2404 X 116 1 16 ADDHO EQU TABLE-009&X2 2400 X 117 1 17 LBLREF EQU TABLE-008&X2 2401 X 118 1 18 SYMBOL EQU TABLE&X2 2409 X 119 1 19 CARD EQU 0 0000 120 1 20 STAOP EQU CARD&001 0001 121 1 21 STLABL EQU CARD&002 0002 122 1 22 STADDR EQU CARD&003 0003 123 1 23 STBOP EQU CARD&004 0004 124 1 24 COUNT EQU CARD&007 0007 125 1 25 LABEL EQU CARD&013 0013 126 1 26 AOPER EQU CARD&022 0022 127 1 27 AOPADJ EQU CARD&026 0026 128 1 28 AINDEX EQU CARD&027 0027 129 1 29 ORGADD EQU CARD&032 0032 130 1 30 CNVLAB EQU CARD&056 0056 131 1 31 LABADD EQU CARD&061 0061 132 1 32 SUPADD EQU CARD&066 0066 133 1 33 AOP EQU CARD&070 0070 134 1 34 TYPE EQU CARD&075 0075 135 1 35 AOPHO EQU CARD&017 0017 136 1 36 LBLHO EQU CARD&008 0008 137 1 37 HOADD EQU CARD&057 0057 138 1 38 TPAREA EQU 3918 3918 139 1 39 INPUT EQU TPAREA-001&X3 3917 X 140 1 40 LIMIT EQU TPAREA&13 3931 141 1 41 XXXX EQU 0 0000 142 1 42 GPMRK3 EQU 3998 3998 143 1 43 LIBRN EQU 0 0000 144 1 44 * 145 1 45 * 146 1 46 * GET, PUT, REDUNDANCY & 147 1 47 * CROSSOVER ROUTINES COMMON 148 1 48 * TO BOTH PASSES 149 1 49 * 150 1 50 * 151 1 51 ORG ENDOFC&1 1925 152 1 52 * 153 1 53 * GET & PUT 154 1 54 * 155 1 55 GET C BLKCT,KBLKNG 7 1925 C L30 L26 2330 2326 4 156 1 56 BE WRITE 5 1932 B X67 S 1767 4 157 1 57 NXTREC A &80,BLKCT 7 1937 A L36 L30 2336 2330 4 158 1 58 MCW BLKCT,XR3 7 1944 M L30 099 2330 099 4 159 1 59 MOVEIN MCW INPUT,CARD&80 7 1951 M IA7 080 3917*X3 080 4 160 1 60 CHAIN 9 MACRO 161 MCW 1 1958 M GEN 4 162 MCW 1 1959 M GEN 4 163 MCW 1 1960 M GEN 5 164 MCW 1 1961 M GEN 5 165 MCW 1 1962 M GEN 5 166 MCW 1 1963 M GEN 5 167 MCW 1 1964 M GEN 5 168 MCW 1 1965 M GEN 5 169 MCW 1 1966 M GEN 5 170 1 61 S XR3&001 4 1967 S 100 100 6 171 1 62 S 1 1971 S 6 172 1 63 S 1 1972 S 6 173 1 64 B ANAL 4 1973 B 114 114 6 174 1 65 PUT MCW BLKCT,XR3 7 1977 M L30 099 2330 099 6 175 1 66 MCW CARD&80,INPUT 7 1984 M 080 IA7 080 3917*X3 6 176 1 67 CHAIN 9 MACRO 177 MCW 1 1991 M GEN 6 178 MCW 1 1992 M GEN 7 179 MCW 1 1993 M GEN 7 180 MCW 1 1994 M GEN 7 181 MCW 1 1995 M GEN 7 182 MCW 1 1996 M GEN 7 183 MCW 1 1997 M GEN 7 184 MCW 1 1998 M GEN 7 185 MCW 1 1999 M GEN 8 186 1 68 B GET 4 2000 B Z25 1925 8 187 1 69 * 188 1 70 *TAPE REDUNDANCY ROUTINE 189 1 71 * 190 1 72 TPERR SBR XR1 4 2004 H 089 089 8 191 1 73 SBR REDXT&3 4 2008 H !76 2076 8 192 1 74 MZ &9,XR1 7 2012 Y L37 089 2337 089 8 193 1 75 MCW 4000-10&X1,TPINST&7 7 2019 M IZ0 !67 3990*X1 2067 8 194 1 76 MN TPINST&3,BSP1&3 7 2026 D !63 !43 2063 2043 8 195 1 77 MCW TPINST&7,INST2&7 7 2033 M !67 J76 2067 2176 9 196 1 78 BSP1 BSP INITAP 5 2040 U %U0 B 9 197 1 79 BCE WRTRED,TPINST&7,W 8 2045 B J49 !67 W 2149 2067 9 198 1 80 MCW &9,READCT#1 7 2053 M L37 L38 2337 2338 9 199 1 81 TPINST RT INITAP,XXXX 8 2060 M %U0 000 R 000 9 200 1 82 BER RDRERR 5 2068 B !77 L 2077 10 201 1 83 REDXT B XXXX 4 2073 B 000 000 10 202 1 84 RDRERR MN TPINST&3,BSP2&3 7 2077 D !63 !87 2063 2087 10 203 1 85 BSP2 BSP INITAP 5 2084 U %U0 B 10 204 1 86 S &1,READCT 7 2089 S L39 L38 2339 2338 10 205 1 87 BWZ TPINST,READCT,B 8 2096 V !60 L38 B 2060 2338 10 206 1 88 MN TPINST&3,TPHALT&6 7 2104 D !63 J17 2063 2117 11 207 1 89 TPHALT H XXXX,590 7 2111 . 000 590 000 590 11 208 1 90 MCW TPINST&7,*&8 7 2118 M !67 J32 2067 2132 11 209 1 91 RT INITAP,XXXX 8 2125 M %U0 000 R 000 11 210 1 92 BSS BSP1,E 5 2133 B !40 E 2040 11 211 1 93 TPHLT3 H XXXX,511 7 2138 . 000 511 000 511 12 212 1 94 B REDXT 4 2145 B !73 2073 12 213 1 95 WRTRED SKP SYSTPE 5 2149 U %U1 E 12 214 1 96 BCE SUBCTR,WRTCTR-1,5 8 2154 B J86 L40 5 2186 2340 12 215 1 97 A &1,WRTCTR#2 7 2162 A L39 L41 2339 2341 12 216 1 98 INST2 WT INITAP,XXXX 8 2169 M %U0 000 W 000 12 217 1 99 BER BSP1 5 2177 B !40 L 2040 13 218 2 00 B REDXT 4 2182 B !73 2073 13 219 2 01 SUBCTR S WRTCTR 4 2186 S L41 2341 13 220 2 02 MN TPINST&3,*&7 7 2190 D !63 K03 2063 2203 13 221 2 03 TPHLT2 H XXXX,560 7 2197 . 000 560 000 560 13 222 2 04 B INST2 4 2204 B J69 2169 13 223 2 05 * 224 2 06 * CHECK FOR SHORT RECORDS 225 2 07 * 226 2 08 CHKLGT SBR XR1 4 2208 H 089 089 13 227 2 09 SBR LGTXT&3 4 2212 H K46 2246 14 228 2 10 MZ &9,XR1 7 2216 Y L37 089 2337 089 14 229 2 11 LGTCK BCE 4000-12&X1,LIMIT,} 8 2223 B IY8 I31 } 3988*X1 3931 GMARK 14 230 2 12 CHAIN 12 MACRO 231 BCE 1 2231 B GEN 14 232 BCE 1 2232 B GEN 14 233 BCE 1 2233 B GEN 14 234 BCE 1 2234 B GEN 14 235 BCE 1 2235 B GEN 15 236 BCE 1 2236 B GEN 15 237 BCE 1 2237 B GEN 15 238 BCE 1 2238 B GEN 15 239 BCE 1 2239 B GEN 15 240 BCE 1 2240 B GEN 15 241 BCE 1 2241 B GEN 15 242 BCE 1 2242 B GEN 16 243 2 13 LGTXT B XXXX 4 2243 B 000 000 16 244 2 14 * 245 2 15 * CROSSOVER, C TO D 246 2 16 * 247 2 17 RDPSSD RTW SYSTPE,1 8 2247 L %U1 001 R 001 16 248 2 18 NOP XXXX 4 2255 N 000 000 16 249 2 19 BER TPERR 5 2259 B !04 L 2004 16 250 2 20 CW ENDOFD 4 2264 ) Y68 1868 16 251 2 21 B PASSD 4 2268 B S90 1290 16 252 2 22 * 253 2 23 * CROSSOVER, D TO C 254 2 24 * 255 2 25 RDPSSC RTW COUTPT,1 8 2272 L %U6 001 R 001 17 256 2 26 NOP XXXX 4 2280 N 000 000 17 257 2 27 BER TPERR 5 2284 B !04 L 2004 17 258 2 28 CW ENDOFC 4 2289 ) Z24 1924 17 259 2 29 B CLRTAB 4 2293 B Y13 1813 17 260 2 30 * 261 2 31 * COMMON CONSTANTS 262 2 32 * 263 2 33 CLRMAX DCW @I97@ 3 2299 17 264 2 34 CLRMIN DSA TABLE-010 3 2302 L99 17 265 2 35 FNCTN DCW @ @ 6 2308 18 266 2 36 TABMAX DCW @V00@ 3 2311 18 267 2 37 MAXADD DCW @ @ 3 2314 18 268 2 38 TABLSZ DCW &0150 4 2318 18 269 2 39 MAXSER DCW @ @ 4 2322 18 270 2 40 SFXCTR DCW @ @ 1 2323 18 271 2 41 KBLKNG DCW @080@ 3 2326 18 272 2 42 BUMPOP DCW @#@ 1 2327 19 273 2 43 HOLDA DCW &0000 4 2331 19 274 2 44 BLKCT EQU HOLDA-1 2330 275 2 45 TPAD DSA TPAREA 3 2334 I18 19 276 2 46 LTORG * 2335 DCW &80 2 2336 LIT 19 &9 1 2337 LIT 19 198 READCT #01 1 2338 AREA 19 &1 1 2339 LIT 19 215 WRTCTR #02 2 2341 AREA 20 277 2 47 * 278 2 48 * PROTECTED CONSTANTS 279 2 49 * 280 2 50 FACTOR EQU TABLE-021 2388 281 2 51 MACHSZ EQU TABLE-020 2389 282 2 52 TOTLAB EQU TABLE-016 2393 283 2 53 UNPRSW EQU TABLE-015 2394 284 2 54 PROCSW EQU TABLE-014 2395 285 2 55 SERCHS EQU TABLE-010 2399 286 2 56 * 287 2 57 * INITIALIZE PASS C ONE TIME 288 2 58 * 289 2 59 ORG TABLE-009 2400 290 2 60 RWD SAVETP 5 2400 U %U4 R 21 291 2 61 RWD CINPUT 5 2405 U %U5 R 21 292 2 62 RWD COUTPT 5 2410 U %U6 R 21 293 2 63 CS 3999 4 2415 / I99 3999 21 294 2 64 SW GRPMRK 4 2419 , Q74 2874 21 295 2 65 LCA @00@,PROCSW 7 2423 L Q76 L95 2876 2395 21 296 2 66 LCA &0150,SERCHS 7 2430 L Q80 L99 2880 2399 21 297 2 67 LCA @0015@,FACTOR 7 2437 L Q84 L88 2884 2388 22 298 2 68 RTW SYSTPE,1 8 2444 L %U1 001 R 001 22 299 2 69 NOP XXXX 4 2452 N 000 000 22 300 2 70 BER TPERR 5 2456 B !04 L 2004 22 301 2 71 CW ENDINT 4 2461 ) R09 2909 22 302 2 72 * 303 2 73 * SET I/O GROUP MARK 304 2 74 * 305 2 75 MCW MACHSZ,KEEP1#001 7 2465 M L89 Q85 2389 2885 22 306 2 76 A &3,KEEP1 7 2472 A Q86 Q85 2886 2885 23 307 2 77 MN KEEP1,*&004 7 2479 D Q85 M89 2885 2489 23 308 2 78 MZ ZONE2,*&007 7 2486 Y 109 M99 109 2499 23 309 2 79 SETIO LCA GRPMRK,GPMRK3 7 2493 L Q74 I98 2874 3998 23 310 2 80 BWZ SETBMP,SETIO&006,2 8 2500 V P26 M99 2 2726 2499 23 311 2 81 CS 4799 4 2508 / 79Z 4799 24 312 2 82 CS 4399 4 2512 / 39Z 4399 24 313 2 83 MCW @#@,BUMP 7 2516 M Q87 W81 2887 1681 24 314 2 84 BCE SET8K,MACHSZ,4 8 2523 B O20 L89 4 2620 2389 24 315 2 85 * 316 2 86 * 12K CONSTANTS 317 2 87 * 318 2 88 MCW BLKG12,KBLKNG 7 2531 M Q60 L26 2860 2326 24 319 2 89 MCW TBSZ12,TABLSZ 7 2538 M Q64 L18 2864 2318 24 320 2 90 MCW TBLM12,TABMAX 7 2545 M Q67 L11 2867 2311 25 321 2 91 MCW TPAD12,TPAD 7 2552 M Q70 L34 2870 2334 25 322 2 92 MCW MDTP12,MDTP#003 7 2559 M Q73 Q90 2873 2890 25 323 2 93 A &72,FACTOR 7 2566 A Q92 L88 2892 2388 25 324 2 94 BCE SETTP,MACHSZ,5 8 2573 B O62 L89 5 2662 2389 25 325 2 95 * 326 2 96 * 16K CONSTANTS 327 2 97 * 328 2 98 A &400,TABLSZ 7 2581 A Q95 L18 2895 2318 26 329 2 99 A &40,FACTOR 7 2588 A Q97 L88 2897 2388 26 330 3 00 MZ ABBIT,TABMAX 7 2595 Y 113 L11 113 2311 26 331 3 01 MZ ABBIT,TPAD 7 2602 Y 113 L34 113 2334 26 332 3 02 MZ ABBIT,MDTP 7 2609 Y 113 Q90 113 2890 26 333 3 03 B SETTP 4 2616 B O62 2662 26 334 3 04 * 335 3 05 * 8K CONSTANTS 336 3 06 * 337 3 07 SET8K MCW BLKG8K,KBLKNG 7 2620 M Q44 L26 2844 2326 27 338 3 08 MCW TBSZ8K,TABLSZ 7 2627 M Q48 L18 2848 2318 27 339 3 09 MCW TBLM8K,TABMAX 7 2634 M Q51 L11 2851 2311 27 340 3 10 MCW TPAD8K,TPAD 7 2641 M Q54 L34 2854 2334 27 341 3 11 MCW MDTP8K,MDTP 7 2648 M Q57 Q90 2857 2890 27 342 3 12 A &36,FACTOR 7 2655 A Q99 L88 2899 2388 28 343 3 13 SETTP MZ TPAD,CLRMAX 7 2662 Y L34 K99 2334 2299 28 344 3 14 MCW MDTP,MOVEIN&003 7 2669 M Q90 Z54 2890 1954 28 345 3 15 MCW MDTP,PUT&013 7 2676 M Q90 Z90 2890 1990 28 346 3 16 MCW TPAD,WRITE&006 7 2683 M L34 X73 2334 1773 28 347 3 17 MCW TPAD,READ&010 7 2690 M L34 X98 2334 1798 29 348 3 18 MCW TPAD,LIMAD#3 7 2697 M L34 R02 2334 2902 29 349 3 19 MA &13,LIMAD ??? &013 ??? MACRO 350 SW LIMAD-2 4 2704 , R00 2900 GEN 29 351 A &13,LIMAD 7 2708 A R04 R02 2904 2902 GEN 29 352 CW LIMAD-2 4 2715 ) R00 2900 GEN 29 353 3 20 MCW LIMAD,LGTCK&6 7 2719 M R02 K29 2902 2229 29 354 3 21 SETBMP MCW BUMP,BUMPOP 7 2726 M W81 L27 1681 2327 30 355 3 22 LCA GRPMRK,ENDOFC 7 2733 L Q74 Z24 2874 1924 30 356 3 23 * 357 3 24 * WRITE PASS C CHECKPOINT ON 6 358 3 25 * 359 3 26 CS 80 4 2740 / 080 080 30 360 3 27 SW CARD&001,CARD&006 7 2744 , 001 006 001 006 30 361 3 28 SW CARD&017,CARD&024 7 2751 , 017 024 017 024 30 362 3 29 SW CARD&028,CARD&035 7 2758 , 028 035 028 035 30 363 3 30 SW CARD&057,CARD&062 7 2765 , 057 062 057 062 31 364 3 31 SW CARD&068,CARD&071 7 2772 , 068 071 068 071 31 365 3 32 WTW COUTPT,1 8 2779 L %U6 001 W 001 31 366 3 33 NOP XXXX 4 2787 N 000 000 31 367 3 34 BER TPERR 5 2791 B !04 L 2004 31 368 3 35 CW ENDOFC,GRPMRK 7 2796 ) Z24 Q74 1924 2874 31 369 3 36 C TOTLAB,TABLSZ 7 2803 C L93 L18 2393 2318 32 370 3 37 MCW TABLSZ,SERCHS 7 2810 M L18 L99 2318 2399 32 371 3 38 S TOTLAB 4 2817 S L93 2393 32 372 3 39 BE CLRTAB 5 2821 B Y13 S 1813 32 373 3 40 BH CLRTAB 5 2826 B Y13 U 1813 32 374 3 41 MCW &0009,SERCHS 7 2831 M R08 L99 2908 2399 32 375 3 42 B CLRTAB 4 2838 B Y13 1813 32 376 3 43 BLKG8K DCW @400@ 3 2844 33 377 3 44 TBSZ8K DCW &0510 4 2848 33 378 3 45 TBLM8K DSA 5100 3 2851 /0| 33 379 3 46 TPAD8K DSA 7598 3 2854 E9Y 33 380 3 47 MDTP8K DSA 7597&X3 3 2857 EIX 33 381 3 48 BLKG12 DCW @800@ 3 2860 33 382 3 49 TBSZ12 DCW &0870 4 2864 33 383 3 50 TBLM12 DSA 8700 3 2867 70! 34 384 3 51 TPAD12 DSA 11198 3 2870 A9Q 34 385 3 52 MDTP12 DSA 11197&X3 3 2873 AIP 34 386 3 53 GRPMRK DC @}@ 1 2874 34 387 3 54 LTORG * 2875 DCW @00@ 2 2876 LIT 34 &0150 4 2880 LIT 34 @0015@ 4 2884 LIT 34 305 KEEP1 #01 1 2885 AREA 34 &3 1 2886 LIT 35 @#@ 1 2887 LIT 35 322 MDTP #03 3 2890 AREA 35 &72 2 2892 LIT 35 &400 3 2895 LIT 35 &40 2 2897 LIT 35 &36 2 2899 LIT 35 348 LIMAD #03 3 2902 AREA 36 &13 2 2904 LIT 36 &0009 4 2908 LIT 36 388 3 55 ENDINT DCW @}@ 1 2909 36 389 3 56 XFR LIBRN B 000 37 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 390 3 57 JOB AUTOCODER-PASS 5 MAIN LINE -VERSION 3 391 3 58 * 392 3 59 * PASS C-LOAD SYMBOL TABLE& SET ADDRESSES 393 3 60 * 394 3 61 ZONE EQU 113 0113 395 3 62 113 DCW @2SKB@ 4 0113 40 396 3 63 ZONE2 EQU 109 0109 397 3 64 109 DCW @2SKB@ 4 0109 41 398 3 65 ABBIT EQU ZONE 0113 399 3 66 BBIT EQU ZONE-001 0112 400 3 67 ABIT EQU ZONE-002 0111 401 3 68 NOBIT EQU ZONE-003 0110 402 3 69 XR1 EQU 89 0089 403 3 70 89 DCW @000@ 3 0089 42 404 3 71 XR2 EQU 94 0094 405 3 72 94 DCW @000@ 3 0094 43 406 3 73 XR3 EQU 99 0099 407 3 74 99 DCW @000@ 3 0099 44 408 3 75 ORG ZONE&001 0114 409 3 76 * 410 3 77 * DETERMINE RECORD TYPE 411 3 78 * 412 3 79 ANAL BM PUT,CARD&005 8 0114 V Z77 005 K 1977 005 45 413 3 80 BCE PUT,TYPE,% 8 0122 B Z77 075 % 1977 075 45 414 3 81 BCE INSTR,TYPE, 8 0130 B 219 075 219 075 45 415 3 82 MN TYPE,XR2 7 0138 D 075 094 075 094 45 416 3 83 BCE DA,XR2,0 8 0145 B 871 094 0 871 094 45 417 3 84 MCW @0@,INDFTR 7 0153 M Y92 Y69 1892 1869 46 418 3 85 MCW @0@,DASW 7 0160 M Y92 Y68 1892 1868 46 419 3 86 A XR2 4 0167 A 094 094 46 420 3 87 A XR2 4 0171 A 094 094 46 421 3 88 B *&001&X2 4 0175 B 1P9 179*X2 46 422 3 89 NOP XXXX 4 0179 N 000 000 46 423 3 90 B CONST 4 0183 B 260 260 46 424 3 91 B CONST 4 0187 B 260 260 47 425 3 92 B EXEND 4 0191 B 973 973 47 426 3 93 B SFX 4 0195 B 992 992 47 427 3 94 B PUT 4 0199 B Z77 1977 47 428 3 95 B ORG 4 0203 B 376 376 47 429 3 96 B DS 4 0207 B 295 295 47 430 3 97 B PUT 4 0211 B Z77 1977 47 431 3 98 B PUT 4 0215 B Z77 1977 48 432 3 99 * 433 4 00 * PROCESS INSTRUCTIONS 434 4 01 * 435 4 02 INSTR MCW @0@,INDFTR 7 0219 M Y92 Y69 1892 1869 48 436 4 03 B PRCADD 4 0226 B |03 1003 48 437 4 04 B PROCLB 4 0230 B /09 1109 48 438 4 05 BWZ PUT,STADDR,2 8 0234 V Z77 003 2 1977 003 48 439 4 06 A COUNT,NOWCTR 7 0242 A 007 Y48 007 1848 48 440 4 07 S @1@,NOWCTR 7 0249 S Y93 Y48 1893 1848 49 441 4 08 B PUT 4 0256 B Z77 1977 49 442 4 09 * 443 4 10 * PROCESS CONSTANTS & DCW 444 4 11 * 445 4 12 CONST BCE PRCAST,AOPHO,* 8 0260 B 283 017 * 283 017 49 446 4 13 MCW @1@,ACTSW 7 0268 M Y93 Y67 1893 1867 49 447 4 14 B PROCLB 4 0275 B /09 1109 49 448 4 15 B PUT 4 0279 B Z77 1977 49 449 4 16 * 450 4 17 * CONSTANTDS WITH ASTERISK ADDRESS 451 4 18 * 452 4 19 PRCAST B PRCADD 4 0283 B |03 1003 49 453 4 20 B PROCLB 4 0287 B /09 1109 50 454 4 21 B PUT 4 0291 B Z77 1977 50 455 4 22 * 456 4 23 * PROCESS DS & EQUATES 457 4 24 * 458 4 25 DS BCE PROCTU,AOPHO,% 8 0295 B 361 017 % 361 017 50 459 4 26 A AINDEX,INDFTR 7 0303 A 027 Y69 027 1869 50 460 4 27 BCE CONST,AOPHO,* 8 0310 B 260 017 * 260 017 50 461 4 28 BWZ CONST,AOPHO,2 8 0318 V 260 017 2 260 017 50 462 4 29 BWZ *&5,STAOP,2 8 0326 V 338 001 2 338 001 51 463 4 30 B CONST 4 0334 B 260 260 51 464 4 31 * 465 4 32 * EQUATE 466 4 33 * 467 4 34 B SETAOP 4 0338 B U35 1435 51 468 4 35 MCW DSAPUT,LABRTN&003 7 0342 M Y72 S97 1872 1297 51 469 4 36 BWZ UNPROC,STAOP,2 8 0349 V /81 001 2 1181 001 51 470 4 37 B CONST 4 0357 B 260 260 51 471 4 38 * 472 4 39 * DS OF INPUT DEVICE 473 4 40 * 474 4 41 PROCTU MCW AOPER-003,LABADD-001 7 0361 M 019 060 019 060 52 475 4 42 MCW @0@ 4 0368 M Y92 1892 52 476 4 43 B CONST 4 0372 B 260 260 52 477 4 44 * 478 4 45 * PROCESS ORIGIN & LITERAL ORIGIN 479 4 46 * 480 4 47 ORG BWZ SETHGH,CARD&033,B 8 0376 V 405 033 B 405 033 52 481 4 48 ZA LABADD,ORGADD 7 0384 ? 061 032 061 032 52 482 4 49 A @1@,ORGADD 7 0391 A Y93 032 1893 032 52 483 4 50 MZ ABBIT,CARD&033 7 0398 Y 113 033 113 033 53 484 4 51 SETHGH BCE ORGSAV,MAXSW,1 8 0405 B 432 Y60 1 432 1860 53 485 4 52 C NOWCTR,HGHCTR 7 0413 C Y48 Y58 1848 1858 53 486 4 53 BH ORGSAV 5 0420 B 432 U 432 53 487 4 54 ZA NOWCTR,HGHCTR 7 0425 ? Y48 Y58 1848 1858 53 488 4 55 * 489 4 56 * PROCESS SAVE COUNTER OF ORIGIN 490 4 57 * 491 4 58 ORGSAV BCE AOPOR,LBLHO, 8 0432 B 536 008 536 008 54 492 4 59 MCW @005@,XR1 7 0440 M Y96 089 1896 089 54 493 4 60 MCW &AOPOR,LABRTN&003 7 0447 M Y99 S97 1899 1297 54 494 4 61 BWZ *&005,STLABL,2 8 0454 V 466 002 2 466 002 54 495 4 62 B AOPOR 4 0462 B 536 536 54 496 4 63 BCE STRSAV,SUPADD, 8 0466 B 502 066 502 066 55 497 4 64 BTOLAB B DOLABL 4 0474 B T58 1358 55 498 4 65 B SEARCH 4 0478 B W29 1629 55 499 4 66 BCE STORE,DBLSW,1 8 0482 B S69 Y64 1 1269 1864 55 500 4 67 BCE STORE,SPCSW,0 8 0490 B S69 Y63 0 1269 1863 55 501 4 68 B UNPROC 4 0498 B /81 1181 55 502 4 69 STRSAV BCE UNPROC,ADDRSW,1 8 0502 B /81 Y59 1 1181 1859 56 503 4 70 BCE UNPROC,LITRSW,1 8 0510 B /81 Y61 1 1181 1861 56 504 4 71 MCW NOWCTR,SUPADD 7 0518 M Y48 066 1848 066 56 505 4 72 A @1@,SUPADD 7 0525 A Y93 066 1893 066 56 506 4 73 B BTOLAB 4 0532 B 474 474 56 507 4 74 * 508 4 75 * PROCESS A OPERAND OF ORIGIN 509 4 76 * 510 4 77 AOPOR BWZ *&005,STAOP,2 8 0536 V 548 001 2 548 001 57 511 4 78 B ACTUAL 4 0544 B 761 761 57 512 4 79 BCE ASTRSK,AOPHO,* 8 0548 B 708 017 * 708 017 57 513 4 80 MCW @0@,LITRSW 7 0556 M Y92 Y61 1892 1861 57 514 4 81 S NOWCTR 4 0563 S Y48 1848 57 515 4 82 BCE BLKAOP,AOPHO, 8 0567 B 735 017 735 017 57 516 4 83 * 517 4 84 * SYMBOLIC ORIGIN 518 4 85 * 519 4 86 MCW @0@,ORGSW 7 0575 M Y92 Y66 1892 1866 58 520 4 87 S XR1&001 4 0582 S 090 090 58 521 4 88 B SETAOP 4 0586 B U35 1435 58 522 4 89 BCE SETORG,ORGSW,1 8 0590 B 609 Y66 1 609 1866 58 523 4 90 SETSWS MCW @11@,MAXSW 7 0598 M Z01 Y60 1901 1860 58 524 4 91 B SCNTB&7 4 0605 B 813 813 58 525 4 92 SETORG MCW LABADD,ORGCTR 7 0609 M 061 Y53 061 1853 59 526 4 93 RSTSWA MCW @0@,ADDRSW 7 0616 M Y92 Y59 1892 1859 59 527 4 94 BCE *&005,AOPADJ-002,X 8 0623 B 635 024 X 635 024 59 528 4 95 B AOPOUT 4 0631 B 669 669 59 529 4 96 * 530 4 97 * ADJUSTMENT OF X00 531 4 98 * 532 4 99 BCE NXTCNT,AOPHO,* 8 0635 B 655 017 * 655 017 59 533 5 00 C ORGCTR,&00 7 0643 C Y53 Z03 1853 1903 60 534 5 01 BE AOPOUT 5 0650 B 669 S 669 60 535 5 02 NXTCNT MCW &00,ORGCTR 7 0655 M Z03 Y53 1903 1853 60 536 5 03 A @1@,ORGCTR-002 7 0662 A Y93 Y51 1893 1851 60 537 5 04 AOPOUT A ORGCTR,ORGADD 7 0669 A Y53 032 1853 032 60 538 5 05 ZA ORGCTR,LABADD 7 0676 ? Y53 061 1853 061 61 539 5 06 ZA ORGADD,NOWCTR 7 0683 ? 032 Y48 032 1848 61 540 5 07 S @1@,NOWCTR 7 0690 S Y93 Y48 1893 1848 61 541 5 08 MZ ABBIT,STAOP 7 0697 Y 113 001 113 001 61 542 5 09 B PUT 4 0704 B Z77 1977 61 543 5 10 * 544 5 11 * ORIGIN ASTERISK 545 5 12 * 546 5 13 ASTRSK BCE PUT,ADDRSW,1 8 0708 B Z77 Y59 1 1977 1859 62 547 5 14 BCE SETSWS,LITRSW,1 8 0716 B 598 Y61 1 598 1861 62 548 5 15 MCW NOWCTR,ORGCTR 7 0724 M Y48 Y53 1848 1853 62 549 5 16 B RSTSWA 4 0731 B 616 616 62 550 5 17 * 551 5 18 * ORIGIN MAXIMUM 552 5 19 * 553 5 20 BLKAOP BCE SETSWS,MAXSW,1 8 0735 B 598 Y60 1 598 1860 62 554 5 21 MCW HGHCTR,ORGCTR 7 0743 M Y58 Y53 1858 1853 63 555 5 22 A @1@,ORGCTR 7 0750 A Y93 Y53 1893 1853 63 556 5 23 B RSTSWA 4 0757 B 616 616 63 557 5 24 * 558 5 25 * ORIGIN ACTUAL OR PROCESSED 559 5 26 * 560 5 27 ACTUAL ZA ORGADD,NOWCTR 7 0761 ? 032 Y48 032 1848 63 561 5 28 S @1@,NOWCTR 7 0768 S Y93 Y48 1893 1848 63 562 5 29 BCE TSTX00,AOPHO,* 8 0775 B 821 017 * 821 017 64 563 5 30 MCW @0@,LITRSW 7 0783 M Y92 Y61 1892 1861 64 564 5 31 BWZ SCNTB,AOPHO,2 8 0790 V 806 017 2 806 017 64 565 5 32 BWZ SETORG,STAOP,K 8 0798 V 609 001 K 609 001 64 566 5 33 SCNTB MCW @0@,ADDRSW 7 0806 M Y92 Y59 1892 1859 64 567 5 34 S ORGCTR 4 0813 S Y53 1853 65 568 5 35 B PUT 4 0817 B Z77 1977 65 569 5 36 TSTX00 BCE PUT,AOPADJ-002,X 8 0821 B Z77 024 X 1977 024 65 570 5 37 BWZ PUT,CARD&034,B 8 0829 V Z77 034 B 1977 034 65 571 5 38 A ORGCTR,ORGADD 7 0837 A Y53 032 1853 032 65 572 5 39 BCE PUT,ADDRSW,1 8 0844 B Z77 Y59 1 1977 1859 65 573 5 40 BCE PUT,LITRSW,1 8 0852 B Z77 Y61 1 1977 1861 66 574 5 41 MZ ABBIT,CARD&34 7 0860 Y 113 034 113 034 66 575 5 42 B ACTUAL 4 0867 B 761 761 66 576 5 43 * 577 5 44 * PROCESS DA STATEMENTS 578 5 45 * 579 5 46 DA BCE ORIGDA,TYPE,0 8 0871 B 926 075 0 926 075 66 580 5 47 BCE TSTRPT,ACTSW,1 8 0879 B 910 Y67 1 910 1867 66 581 5 48 BTOADD C LABADD,SUPADD 7 0887 C 061 066 061 066 67 582 5 49 BL *&8 5 0894 B 906 T 906 67 583 5 50 MCW @005@,XR3 7 0899 M Y96 099 1896 099 67 584 5 51 B PRCADD 4 0906 B |03 1003 67 585 5 52 TSTRPT BCE PUT,TYPE,| 8 0910 B Z77 075 | 1977 075 67 586 5 53 B PROCLB 4 0918 B /09 1109 67 587 5 54 B PUT 4 0922 B Z77 1977 67 588 5 55 * 589 5 56 * DA HEADER 590 5 57 * 591 5 58 ORIGDA MCW @0@,INDFTR 7 0926 M Y92 Y69 1892 1869 68 592 5 59 A AINDEX,INDFTR 7 0933 A 027 Y69 027 1869 68 593 5 60 MCW @1@,DASW 7 0940 M Y93 Y68 1893 1868 68 594 5 61 MCW @0@,ACTSW 7 0947 M Y92 Y67 1892 1867 68 595 5 62 BCE BTOADD,AOPHO,* 8 0954 B 887 017 * 887 017 68 596 5 63 MCW @1@,ACTSW 7 0962 M Y93 Y67 1893 1867 69 597 5 64 B TSTRPT 4 0969 B 910 910 69 598 5 65 * 599 5 66 * ??? MISSING FROM LISTING IN CE MANUAL *** 600 5 67 * ??? MISSING FROM LISTING IN CE MANUAL *** 601 5 68 EXEND BWZ PUT,TYPE,B 8 0973 V Z77 075 B 1977 075 69 602 5 69 MCW @B@,BRANCH 7 0981 M Z04 X84 1904 1784 69 603 5 70 B WRITE 4 0988 B X67 1767 69 604 5 71 * 605 5 72 * PROCESS SUFFIX 606 5 73 * 607 5 74 SFX MCW AOPHO,SFXCTR 7 0992 M 017 L23 017 2323 69 608 5 75 B PUT 4 0999 B Z77 1977 70 609 5 76 * 610 5 77 * PROCESS ADDRESSES 611 5 78 * 612 5 79 PRCADD SBR ADDRTN&003 4 1003 H |89 1089 70 613 5 80 MCW @0@,ACTSW 7 1007 M Y92 Y67 1892 1867 70 614 5 81 BWZ LITTST,STLABL,K 8 1014 V |90 002 K 1090 002 70 615 5 82 TSTADD BWZ ADDRTN,STADDR,B 8 1022 V |86 003 B 1086 003 70 616 5 83 BCE ADDRTN,ADDRSW,1 8 1030 B |86 Y59 1 1086 1859 70 617 5 84 A ORGCTR,LABADD 7 1038 A Y53 061 1853 061 71 618 5 85 A ORGCTR,SUPADD 7 1045 A Y53 066 1853 066 71 619 5 86 C NOWCTR,LABADD&X3 7 1052 C Y48 0F1 1848 061*X3 71 620 5 87 BL *&008 5 1059 B |71 T 1071 71 621 5 88 ZA LABADD&X3,NOWCTR 7 1064 ? 0F1 Y48 061*X3 1848 71 622 5 89 BCE ADDRTN,LITRSW,1 8 1071 B |86 Y61 1 1086 1861 72 623 5 90 MZ ABBIT,STADDR 7 1079 Y 113 003 113 003 72 624 5 91 ADDRTN B XXXX 4 1086 B 000 000 72 625 5 92 LITTST MCW DSAPUT,LABRTN&003 7 1090 M Y72 S97 1872 1297 72 626 5 93 BCE LITRAL,TYPE,/ 8 1097 B T25 075 / 1325 075 72 627 5 94 B TSTADD 4 1105 B |22 1022 72 628 5 95 * 629 5 96 * PROCESS LABEL 630 5 97 * 631 5 98 PROCLB SBR LABRTN&003 4 1109 H S97 1297 73 632 5 99 BWZ *&005,STLABL,2 8 1113 V /25 002 2 1125 002 73 633 6 00 B LABRTN 4 1121 B S94 1294 73 634 6 01 BCE MRKPRC,LBLHO, 8 1125 B S80 008 1280 008 73 635 6 02 BCE BTOLBL,ACTSW,1 8 1133 B /57 Y67 1 1157 1867 73 636 6 03 BCE TSTDBL,LITRSW,1 8 1141 B S07 Y61 1 1207 1861 74 637 6 04 BCE TSTDBL,ADDRSW,1 8 1149 B S07 Y59 1 1207 1859 74 638 6 05 BTOLBL B DOLABL 4 1157 B T58 1358 74 639 6 06 B SEARCH 4 1161 B W29 1629 74 640 6 07 BCE DBLDEF,DBLSW,1 8 1165 B S98 Y64 1 1298 1864 74 641 6 08 BCE STORE,SPCSW,0 8 1173 B S69 Y63 0 1269 1863 75 642 6 09 * 643 6 10 * UNPROCESSED LABEL 644 6 11 * 645 6 12 UNPROC MCW @1@,UNPRSW 7 1181 M Y93 L94 1893 2394 75 646 6 13 A @1@,TOTLAB 7 1188 A Y93 L93 1893 2393 75 647 6 14 BCE SETSWL,TYPE,/ 8 1195 B S50 075 / 1250 075 75 648 6 15 B LABRTN 4 1203 B S94 1294 75 649 6 16 * 650 6 17 * SEARCH TABLE FOR DBL DEF LITERAL 651 6 18 * 652 6 19 TSTDBL BCE UNPROC,LBLHO,$ 8 1207 B /81 008 $ 1181 008 76 653 6 20 B DOLABL 4 1215 B T58 1358 76 654 6 21 B SEARCH 4 1219 B W29 1629 76 655 6 22 BCE UNPROC,DBLSW,0 8 1223 B /81 Y64 0 1181 1864 76 656 6 23 BCE UNPROC,ADDHO, 8 1231 B /81 M!0 1181 2400*X2 76 657 6 24 MZ BBIT,STLABL 7 1239 Y 112 002 112 002 76 658 6 25 B LABRTN 4 1246 B S94 1294 77 659 6 26 * 660 6 27 * UNPROCESSED LABEL OF LITERAL 661 6 28 * 662 6 29 SETSWL BCE LABRTN,LBLHO,$ 8 1250 B S94 008 $ 1294 008 77 663 6 30 MCW @11@,LITRSW 7 1258 M Z01 Y61 1901 1861 77 664 6 31 B LABRTN 4 1265 B S94 1294 77 665 6 32 * 666 6 33 * STORE LABEL IN TABLE 667 6 34 * 668 6 35 STORE LCA FNCTN,SYMBOL 7 1269 L L08 M!9 2308 2409*X2 77 669 6 36 LCA HOLDAD 4 1276 L Z12 1912 77 670 6 37 MRKPRC MZ ABBIT,STLABL 7 1280 Y 113 002 113 002 78 671 6 38 MCW @1@,PROCSW 7 1287 M Y93 L95 1893 2395 78 672 6 39 LABRTN B XXXX 4 1294 B 000 000 78 673 6 40 * 674 6 41 * DOUBLY DEFINED LABEL 675 6 42 * 676 6 43 DBLDEF BCE STORE,ADDHO, 8 1298 B S69 M!0 1269 2400*X2 78 677 6 44 MZ BBIT,STLABL 7 1306 Y 112 002 112 002 78 678 6 45 BCE LITRAL,TYPE,/ 8 1313 B T25 075 / 1325 075 79 679 6 46 B LABRTN 4 1321 B S94 1294 79 680 6 47 * 681 6 48 * DOUBLE DEFINED LITERAL 682 6 49 * 683 6 50 LITRAL BWZ LABRTN,STBOP,B 8 1325 V S94 004 B 1294 004 79 684 6 51 MCW @%@,TYPE 7 1333 M Z05 075 1905 075 79 685 6 52 S COUNT,ORGCTR 7 1340 S 007 Y53 007 1853 79 686 6 53 S COUNT,NOWCTR 7 1347 S 007 Y48 007 1848 80 687 6 54 B LABRTN 4 1354 B S94 1294 80 688 6 55 * 689 6 56 * SET UP LABEL & ADDRESS 690 6 57 * FOR TABLE SEARCH 691 6 58 * 692 6 59 DOLABL SBR DOLABR&003 4 1358 H U34 1434 80 693 6 60 MCW LABEL,FNCTN 7 1362 M 013 L08 013 2308 80 694 6 61 MCW CNVLAB,ARGUMT#3 7 1369 M 056 Z08 056 1908 80 695 6 62 SETFUN BCE *&5,FNCTN, 8 1376 B T88 L08 1388 2308 80 696 6 63 B *&8 4 1384 B T95 1395 81 697 6 64 MCW SFXCTR,FNCTN 7 1388 M L23 L08 2323 2308 81 698 6 65 MCW LABADD&X1,HOLDAD#004 7 1395 M 0W1 Z12 061*X1 1912 81 699 6 66 BCE DOINDX,HOADD&X1,0 8 1402 B U17 0V7 0 1417 057*X1 81 700 6 67 MZ ABIT,HOLDAD-003 7 1410 Y 111 Z09 111 1909 81 701 6 68 DOINDX MN INDFTR,*&004 7 1417 D Y69 U27 1869 1427 82 702 6 69 MZ ZONE,HOLDAD-001 7 1424 Y 113 Z11 113 1911 82 703 6 70 DOLABR B XXXX 4 1431 B 000 000 82 704 6 71 * 705 6 72 * PROCESS A OPERAND OF ORIGIN & EQUATE 706 6 73 * 707 6 74 SETAOP SBR AOPRTN&003 4 1435 H U87 1487 82 708 6 75 MCW &BRSRH,DOLABR&003 7 1439 M Z15 U34 1915 1434 82 709 6 76 MCW AOPER,FNCTN 7 1446 M 022 L08 022 2308 82 710 6 77 MCW AOP,ARGUMT 7 1453 M 070 Z08 070 1908 83 711 6 78 B SETFUN 4 1460 B T76 1376 83 712 6 79 BRSRH B SEARCH 4 1464 B W29 1629 83 713 6 80 BCE ADDBNK,DBLSW,1 8 1468 B V03 Y64 1 1503 1864 83 714 6 81 BCE STRBNK,SPCSW,0 8 1476 B U88 Y63 0 1488 1863 83 715 6 82 AOPRTN B XXXX 4 1484 B 000 000 83 716 6 83 * 717 6 84 * LABEL NOT IN TABLE, STORE 718 6 85 * WITH BLANK ADDRESS 719 6 86 * 720 6 87 STRBNK LCA FNCTN,SYMBOL 7 1488 L L08 M!9 2308 2409*X2 84 721 6 88 LCA @ @ 4 1495 L Z19 1919 84 722 6 89 B AOPRTN 4 1499 B U84 1484 84 723 6 90 * 724 6 91 * RETRIEVE VALUE FROM TABLE 725 6 92 * 726 6 93 ADDBNK BCE AOPRTN,ADDHO, 8 1503 B U84 M!0 1484 2400*X2 84 727 6 94 MCW @1@,ORGSW 7 1511 M Y93 Y66 1893 1866 84 728 6 95 BWZ *&5,LBLREF,2 8 1518 V V30 M!1 2 1530 2401*X2 84 729 6 96 B *&8 4 1526 B V37 1537 85 730 6 97 MZ ABIT,LBLREF 7 1530 Y 111 M!1 111 2401*X2 85 731 6 98 MCW ADDLO,LABADD 7 1537 M M!3 061 2403*X2 061 85 732 6 99 BCE AOPROC,LABADD-3,% 8 1544 B W18 058 % 1618 058 85 733 7 00 BWZ *&008,LABADD-003,2 8 1552 V V67 058 2 1567 058 85 734 7 01 MCW @1@,HOADD 7 1560 M Y93 057 1893 057 86 735 7 02 BCE AOPRTN,TYPE,O 8 1567 B U84 075 O 1484 075 86 736 7 03 * 737 7 04 * ADD CHARACTER ADJUSTMENT FOR EQUATE 738 7 05 * 739 7 06 MZ LABADD-001,SAVEZN#001 7 1575 Y 060 Z20 060 1920 86 740 7 07 A AOPADJ,LABADD 7 1582 A 026 061 026 061 86 741 7 08 MZ SAVEZN,LABADD-001 7 1589 Y Z20 060 1920 060 86 742 7 09 BCE AOPROC,AINDEX, 8 1596 B W18 027 1618 027 87 743 7 10 MN INDFTR,*&004 7 1604 D Y69 W14 1869 1614 87 744 7 11 MZ ZONE,LABADD-001 7 1611 Y 113 060 113 060 87 745 7 12 AOPROC MZ ABBIT,STAOP 7 1618 Y 113 001 113 001 87 746 7 13 B AOPRTN 4 1625 B U84 1484 87 747 7 14 * 748 7 15 * TABLE SEARCH 749 7 16 * 750 7 17 SEARCH SBR RETURN&003 4 1629 H X66 1766 87 751 7 18 MCW DBLSW&001,DBLSW 7 1633 M Y65 Y64 1865 1864 88 752 7 19 MCW TABMAX,MAXADD 7 1640 M L11 L14 2311 2314 88 753 7 20 MCW ARGUMT,XR2 7 1647 M Z08 094 1908 094 88 754 7 21 MCW SERCHS,MAXSER 7 1654 M L99 L22 2399 2322 88 755 7 22 TBLSRH C FNCTN,SYMBOL 7 1661 C L08 M!9 2308 2409*X2 88 756 7 23 BE SETDBL 5 1668 B X45 S 1745 89 757 7 24 BCE RETURN,SYMHO, 8 1673 B X63 M!4 1763 2404*X2 89 758 7 25 BUMP A @010@,XR2 7 1681 A Z23 094 1923 094 89 759 7 26 S @1@,MAXSER 7 1688 S Y93 L22 1893 2322 89 760 7 27 BM SETSPC,MAXSER 8 1695 V X56 L22 K 1756 2322 89 761 7 28 C XR2,MAXADD 7 1703 C 094 L14 094 2314 90 762 7 29 BU TBLSRH 5 1710 B W61 / 1661 90 763 7 30 BCE SETSPC,WRAPSW,1 8 1715 B X56 Y62 1 1756 1862 90 764 7 31 MCW @1@,WRAPSW 7 1723 M Y93 Y62 1893 1862 90 765 7 32 MCW ARGUMT,MAXADD 7 1730 M Z08 L14 1908 2314 90 766 7 33 S XR2&001 4 1737 S 095 095 90 767 7 34 B TBLSRH 4 1741 B W61 1661 91 768 7 35 * 769 7 36 * LABEL IN TABLE 770 7 37 * 771 7 38 SETDBL MCW @1@,DBLSW 7 1745 M Y93 Y64 1893 1864 91 772 7 39 B RETURN 4 1752 B X63 1763 91 773 7 40 * 774 7 41 * SPACE AVAILABLE 775 7 42 * 776 7 43 SETSPC MCW @1@,SPCSW 7 1756 M Y93 Y63 1893 1863 91 777 7 44 RETURN B XXXX 4 1763 B 000 000 91 778 7 45 * 779 7 46 * INPUT/OUTPUT - PASS C 780 7 47 * 781 7 48 WRITE WT COUTPT,TPAREA 8 1767 M %U6 I18 W 3918 91 782 7 49 NOP XXXX 4 1775 N 000 000 91 783 7 50 BER TPERR 5 1779 B !04 L 2004 92 784 7 51 BRANCH NOP FINAL 4 1784 N Y73 1873 92 785 7 52 READ S HOLDA 4 1788 S L31 2331 92 786 7 53 RT CINPUT,TPAREA 8 1792 M %U5 I18 R 3918 92 787 7 54 B CHKLGT 4 1800 B K08 2208 92 788 7 55 BER TPERR 5 1804 B !04 L 2004 92 789 7 56 B NXTREC 4 1809 B Z37 1937 92 790 7 57 * 791 7 58 * CLEAR TABLE AREA 792 7 59 * 793 7 60 CLRTAB MCW CLRMAX,CLEAR&003 7 1813 M K99 Y23 2299 1823 93 794 7 61 CLEAR CS XXXX 4 1820 / 000 000 93 795 7 62 SBR CLEAR&003 4 1824 H Y23 1823 93 796 7 63 C CLEAR&003,CLRMIN 7 1828 C Y23 L02 1823 2302 93 797 7 64 BU CLEAR 5 1835 B Y20 / 1820 93 798 7 65 B READ 4 1840 B X88 1788 93 799 7 66 NOWCTR DCW &00000 5 1848 93 800 7 67 ORGCTR DCW &00000 5 1853 94 801 7 68 HGHCTR DCW &00000 5 1858 94 802 7 69 ADDRSW DCW @0@ 1 1859 94 803 7 70 MAXSW DC @0@ 1 1860 94 804 7 71 LITRSW DC @0@ 1 1861 94 805 7 72 WRAPSW DCW @0@ 1 1862 94 806 7 73 SPCSW DC @0@ 1 1863 94 807 7 74 DBLSW DC @0@ 1 1864 94 808 7 75 DC @0@ 1 1865 94 809 7 76 ORGSW DCW @0@ 1 1866 94 810 7 77 ACTSW DCW @0@ 1 1867 94 811 7 78 DASW DCW @0@ 1 1868 94 812 7 79 INDFTR DCW @0@ 1 1869 95 813 7 80 DSAPUT DSA PUT 3 1872 Z77 95 814 7 81 * 815 7 82 * END OF PASS C, GET PASS D 816 7 83 * 817 7 84 FINAL WTM COUTPT 5 1873 U %U6 M 95 818 7 85 RWD CINPUT 5 1878 U %U5 R 95 819 7 86 RWD COUTPT 5 1883 U %U6 R 95 820 7 87 B RDPSSD 4 1888 B K47 2247 95 821 7 88 LTORG * 1892 DCW @0@ 1 1892 LIT 95 @1@ 1 1893 LIT 96 @005@ 3 1896 LIT 96 493 &AOPOR 3 1899 536 ADCON 96 @11@ 2 1901 LIT 96 &00 2 1903 LIT 96 @B@ 1 1904 LIT 96 @%@ 1 1905 LIT 96 694 ARGUMT #03 3 1908 AREA 97 698 HOLDAD #04 4 1912 AREA 97 708 &BRSRH 3 1915 U64 ADCON 97 @ @ 4 1919 LIT 97 739 SAVEZN #01 1 1920 AREA 97 @010@ 3 1923 LIT 97 822 7 89 ENDOFC DCW @}@ 1 1924 97 823 7 90 XFR LIBRN B 000 98 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 824 7 91 JOB AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 825 7 92 * 826 7 93 91 DCW @00000@ 5 0091 101 827 7 94 96 DCW @00000@ 5 0096 101 828 7 95 101 DCW @00000@ 5 0101 101 829 7 96 109 DCW @2SKB@ 4 0109 102 830 7 97 113 DCW @2SKB@ 4 0113 102 831 7 98 ORG ZONE&001 0114 832 7 99 * 833 8 00 * DETERMINE RECORD TYPE 834 8 01 * 835 8 02 MCW @0@,ASTRSW 7 0114 M U32 U18 1432 1418 102 836 8 03 BM PUT,CARD&005 8 0121 V Z77 005 K 1977 005 102 837 8 04 BCE PUT,TYPE,% 8 0129 B Z77 075 % 1977 075 102 838 8 05 MN TYPE,TYPEA#001 7 0137 D 075 U33 075 1433 102 839 8 06 BCE PRINST,TYPEA, 8 0144 B 196 U33 196 1433 103 840 8 07 BCE PRDSA,TYPEA,2 8 0152 B 318 U33 2 318 1433 103 841 8 08 BCE PROEND,TYPEA,3 8 0160 B 446 U33 3 446 1433 103 842 8 09 BCE PROSFX,TYPEA,4 8 0168 B S79 U33 4 1279 1433 103 843 8 10 BCE ORGEQU,TYPEA,6 8 0176 B 489 U33 6 489 1433 104 844 8 11 BCE ORGEQU,TYPEA,7 8 0184 B 489 U33 7 489 1433 104 845 8 12 B PUT 4 0192 B Z77 1977 104 846 8 13 * 847 8 14 * PROCESS INSTRUCTIONS 848 8 15 * 849 8 16 PRINST BWZ SETAST,STADDR,2 8 0196 V 208 003 2 208 003 104 850 8 17 B LOADDR 4 0204 B 215 215 104 851 8 18 SETAST MCW @1@,ASTRSW 7 0208 M U34 U18 1434 1418 104 852 8 19 * 853 8 20 * SET ASTERISK ADDRESS 854 8 21 * 855 8 22 LOADDR ZA LABADD,ASTADD#005 7 0215 ? 061 U39 061 1439 105 856 8 23 A COUNT,ASTADD 7 0222 A 007 U39 007 1439 105 857 8 24 S @1@,ASTADD 7 0229 S U34 U39 1434 1439 105 858 8 25 * 859 8 26 * TEST FOR A OPERAND 860 8 27 * 861 8 28 BCE PUT,COUNT,1 8 0236 B Z77 007 1 1977 007 105 862 8 29 BCE PUT,COUNT,2 8 0244 B Z77 007 2 1977 007 105 863 8 30 BWZ *&005,STAOP,2 8 0252 V 264 001 2 264 001 106 864 8 31 B SEEBOP 4 0260 B 268 268 106 865 8 32 B PROCOP 4 0264 B 578 578 106 866 8 33 * 867 8 34 * TEST FOR B OPERAND 868 8 35 * 869 8 36 SEEBOP BCE PUT,COUNT,4 8 0268 B Z77 007 4 1977 007 106 870 8 37 BCE PUT,COUNT,5 8 0276 B Z77 007 5 1977 007 106 871 8 38 BWZ *&005,STBOP,2 8 0284 V 296 004 2 296 004 107 872 8 39 B PUT 4 0292 B Z77 1977 107 873 8 40 MCW @003@,XR3 7 0296 M U42 099 1442 099 107 874 8 41 MCW @011@,XR1 7 0303 M U45 089 1445 089 107 875 8 42 B PROCOP 4 0310 B 578 578 107 876 8 43 B PUT 4 0314 B Z77 1977 107 877 8 44 * 878 8 45 * PROCESS DSA AND ADCON 879 8 46 * 880 8 47 PRDSA BWZ *&005,STADDR,2 8 0318 V 330 003 2 330 003 108 881 8 48 B TSTPRC 4 0326 B 434 434 108 882 8 49 MCW @1@,ASTRSW 7 0330 M U34 U18 1434 1418 108 883 8 50 SETDSA ZA LABADD,ASTADD 7 0337 ? 061 U39 061 1439 108 884 8 51 MCW @003@,XR3 7 0344 M U42 099 1442 099 108 885 8 52 MCW @011@,XR1 7 0351 M U45 089 1445 089 109 886 8 53 BWZ *&005,STBOP,2 8 0358 V 370 004 2 370 004 109 887 8 54 B PUT 4 0366 B Z77 1977 109 888 8 55 B PROCOP 4 0370 B 578 578 109 889 8 56 BWZ PUT,STBOP,2 8 0374 V Z77 004 2 1977 004 109 890 8 57 BCE CMP16K,AINDEX,- 8 0382 B 409 027 - 409 027 109 891 8 58 COMPRS MCW &PUT,OPRTN&3 7 0390 M U48 /78 1448 1178 110 892 8 59 BCE PUT,AOP&1,% 8 0397 B Z77 071 % 1977 071 110 893 8 60 B CNVTO3 4 0405 B |94 1094 110 894 8 61 * 895 8 62 * GET 16000 COMPLEMENT 896 8 63 * 897 8 64 CMP16K MCW &16000,FNCTN-001 7 0409 M U53 L07 1453 2307 110 898 8 65 S HOLDAR,FNCTN-001 7 0416 S U58 L07 1458 2307 110 899 8 66 ZA FNCTN-001,HOLDAR#005 7 0423 ? L07 U58 2307 1458 111 900 8 67 B COMPRS 4 0430 B 390 390 111 901 8 68 TSTPRC BWZ SETDSA,STBOP,2 8 0434 V 337 004 2 337 004 111 902 8 69 B PUT 4 0442 B Z77 1977 111 903 8 70 * 904 8 71 * PROCESS EX & END 905 8 72 * 906 8 73 PROEND S ASTADD 4 0446 S U39 1439 111 907 8 74 BWZ *&005,STAOP,2 8 0450 V 462 001 2 462 001 111 908 8 75 B *&005 4 0458 B 466 466 111 909 8 76 B PROCOP 4 0462 B 578 578 112 910 8 77 BCE ENDOPN,TYPE,3 8 0466 B 478 075 3 478 075 112 911 8 78 B PUT 4 0474 B Z77 1977 112 912 8 79 ENDOPN MCW @B@,BRNCH2 7 0478 M U59 X84 1459 1784 112 913 8 80 B PUT 4 0485 B Z77 1977 112 914 8 81 * 915 8 82 * PROCESS ORIGIN & EQUATE 916 8 83 * 917 8 84 ORGEQU BWZ *&005,STAOP,2 8 0489 V 501 001 2 501 001 112 918 8 85 B ORGOUT 4 0497 B 574 574 112 919 8 86 BCE ORGOUT,AOPHO, 8 0501 B 574 017 574 017 113 920 8 87 BWZ ORGOUT,AOPHO,2 8 0509 V 574 017 2 574 017 113 921 8 88 BCE ORGOUT,AOPHO,* 8 0517 B 574 017 * 574 017 113 922 8 89 BCE ORGOUT,AOPHO,% 8 0525 B 574 017 % 574 017 113 923 8 90 B PROCOP 4 0533 B 578 578 113 924 8 91 BWZ ORGOUT,STAOP,2 8 0537 V 574 001 2 574 001 114 925 8 92 MCW @0@,ITERSW 7 0545 M U32 U28 1432 1428 114 926 8 93 BCE *&008,TYPEA,7 8 0552 B 567 U33 7 567 1433 114 927 8 94 MZ BBIT,STAOP 7 0560 Y 112 001 112 001 114 928 8 95 MCW HOLDAR,LABADD 7 0567 M U58 061 1458 061 114 929 8 96 ORGOUT B PUT 4 0574 B Z77 1977 115 930 8 97 * 931 8 98 * PROCESS OPERAND SUB-ROUTINE 932 8 99 * 933 9 00 PROCOP SBR OPRTN&003 4 0578 H /78 1178 115 934 9 01 BWZ *&005,STAOP&X3,2 8 0582 V 594 0?1 2 594 001*X3 115 935 9 02 B OPRTN 4 0590 B /75 1175 115 936 9 03 BCE SETZRO,AOPHO&X1, 8 0594 B 942 0/7 942 017*X1 115 937 9 04 BCE PERCNT,AOPHO&X1,% 8 0602 B 950 0/7 % 950 017*X1 115 938 9 05 BWZ FLOAT,AOPHO&X1,2 8 0610 V S21 0/7 2 1221 017*X1 116 939 9 06 BCE PROAST,AOPHO&X1,* 8 0618 B /90 0/7 * 1190 017*X1 116 940 9 07 * 941 9 08 * CONVERT SYMBOL TO TABLE ADDRESS 942 9 09 * 943 9 10 CNVSYM BCE *&005,AOP-002&X3, 8 0626 B 638 0F8 638 068*X3 116 944 9 11 B SETSYM 4 0634 B 804 804 116 945 9 12 MCW AOPER&X1,W6AREA#006 7 0638 M 0S2 U65 022*X1 1465 116 946 9 13 BCE *&5,W6AREA, 8 0645 B 657 U65 657 1465 117 947 9 14 B *&8 4 0653 B 664 664 117 948 9 15 MCW SFXCTR,W6AREA 7 0657 M L23 U65 2323 1465 117 949 9 16 ZA &2,HOLD2#002 7 0664 ? U66 U68 1466 1468 117 950 9 17 ZA W6AREA-2,HOLD4#004 7 0671 ? U63 U72 1463 1472 117 951 9 18 A W6AREA,HOLD4 7 0678 A U65 U72 1465 1472 118 952 9 19 A W6AREA,HOLD4-002 7 0685 A U65 U70 1465 1470 118 953 9 20 MZ NOBIT,HOLD4 7 0692 Y 110 U72 110 1472 118 954 9 21 ZA FACTOR,HOLD7 7 0699 ? L88 U26 2388 1426 118 955 9 22 MPYLP MN HOLD7,HOLD1 7 0706 D U26 U27 1426 1427 118 956 9 23 ZA 1 0713 ? 118 957 9 24 MULT BCE NXTDGT,HOLD1,? 8 0714 B 740 U27 ? 740 1427 119 958 9 25 A HOLD4,HOLD7-002 7 0722 A U72 U24 1472 1424 119 959 9 26 S &1,HOLD1 7 0729 S U73 U27 1473 1427 119 960 9 27 B MULT 4 0736 B 714 714 119 961 9 28 NXTDGT S &1,HOLD2 7 0740 S U73 U68 1473 1468 119 962 9 29 BWZ MPYLP,HOLD2,B 8 0747 V 706 U68 B 706 1468 120 963 9 30 MCW @000@,AOP&X3 7 0755 M U76 0G0 1476 070*X3 120 964 9 31 BAV *&001 5 0762 B 767 Z 767 120 965 9 32 LOOP1 A &96,HOLD7-005 7 0767 A U78 U21 1478 1421 120 966 9 33 BAV LOOP1 5 0774 B 767 Z 767 120 967 9 34 MZ HOLD7-006,AOP&X3 7 0779 Y U20 0G0 1420 070*X3 120 968 9 35 MCW HOLD7-003 4 0786 M U23 1423 121 969 9 36 MN HOLD7-005,*&004 7 0790 D U21 800 1421 800 121 970 9 37 MZ ZONE2,AOP-002&X3 7 0797 Y 109 0F8 109 068*X3 121 971 9 38 * 972 9 39 * SYMBOLIC OPERAND 973 9 40 * 974 9 41 SETSYM MCW AOPER&X1,FNCTN 7 0804 M 0S2 L08 022*X1 2308 121 975 9 42 BCE *&005,FNCTN, 8 0811 B 823 L08 823 2308 121 976 9 43 B *&008 4 0819 B 830 830 121 977 9 44 MCW SFXCTR,FNCTN 7 0823 M L23 L08 2323 2308 122 978 9 45 MCW TABMAX,MAXADD 7 0830 M L11 L14 2311 2314 122 979 9 46 MCW @0@,SWICH1 7 0837 M U32 U19 1432 1419 122 980 9 47 MCW AOP&X3,XR2 7 0844 M 0G0 094 070*X3 094 122 981 9 48 MCW SERCHS,MAXSER 7 0851 M L99 L22 2399 2322 122 982 9 49 * 983 9 50 * TABLE SEARCH 984 9 51 * 985 9 52 SRHLOP C FNCTN,SYMBOL 7 0858 C L08 M!9 2308 2409*X2 123 986 9 53 BE RECALL 5 0865 B 980 S 980 123 987 9 54 BCE UNDEF,SYMHO, 8 0870 B 961 M!4 961 2404*X2 123 988 9 55 BUMPER A @010@,XR2 7 0878 A U81 094 1481 094 123 989 9 56 S @1@,MAXSER 7 0885 S U34 L22 1434 2322 123 990 9 57 BM UNDEF,MAXSER 8 0892 V 961 L22 K 961 2322 124 991 9 58 C XR2,MAXADD 7 0900 C 094 L14 094 2314 124 992 9 59 BU SRHLOP 5 0907 B 858 / 858 124 993 9 60 BCE UNDEF,SWICH1,1 8 0912 B 961 U19 1 961 1419 124 994 9 61 MCW @1@,SWICH1 7 0920 M U34 U19 1434 1419 124 995 9 62 MCW AOP&X3,MAXADD 7 0927 M 0G0 L14 070*X3 2314 125 996 9 63 S XR2&001 4 0934 S 095 095 125 997 9 64 B SRHLOP 4 0938 B 858 858 125 998 9 65 * 999 9 66 * BLANK OPERAND 1000 9 67 * 1001 9 68 SETZRO S HOLDAR 4 0942 S U58 1458 125 1002 9 69 B CHRADJ 4 0946 B |49 1049 125 1003 9 70 * 1004 9 71 * PERCENT OPERAND 1005 9 72 * 1006 9 73 PERCNT MCW AOPER-003&X1,AOP&X3 7 0950 M 0/9 0G0 019*X1 070*X3 125 1007 9 74 B MARK 4 0957 B /68 1168 125 1008 9 75 * 1009 9 76 * UNDEFINED OPERAND 1010 9 77 * 1011 9 78 UNDEF BCE OPRTN,ITERSW,0 8 0961 B /75 U28 0 1175 1428 126 1012 9 79 MCW @###@,AOP&X3 7 0969 M U84 0G0 1484 070*X3 126 1013 9 80 B OPRTN 4 0976 B /75 1175 126 1014 9 81 * 1015 9 82 * RETRIEVE VALUE FROM TABLE 1016 9 83 * 1017 9 84 RECALL BCE UNDEF,ADDHO, 8 0980 B 961 M!0 961 2400*X2 126 1018 9 85 BWZ *&5,LBLREF,2 8 0988 V |00 M!1 2 1000 2401*X2 126 1019 9 86 B *&8 4 0996 B |07 1007 126 1020 9 87 MZ ABIT,LBLREF 7 1000 Y 111 M!1 111 2401*X2 127 1021 9 88 MCW ADDLO,HOLDAR 7 1007 M M!3 U58 2403*X2 1458 127 1022 9 89 MCW @0@ 4 1014 M U32 1432 127 1023 9 90 BCE IOADD,HOLDAR-003,% 8 1018 B /79 U55 % 1179 1455 127 1024 9 91 BWZ *&008,HOLDAR-003,2 8 1026 V |41 U55 2 1041 1455 127 1025 9 92 MCW @1@,HOLDAR-4 7 1034 M U34 U54 1434 1454 128 1026 9 93 BCE TSTCNV,TYPEA,6 8 1041 B |78 U33 6 1078 1433 128 1027 9 94 * 1028 9 95 * ADD CHARACTER ADJUSTMENT 1029 9 96 * 1030 9 97 CHRADJ MZ HOLDAR-001,HOLDZN#001 7 1049 Y U57 U85 1457 1485 128 1031 9 98 BCE TSTCNV,AOPADJ-002&X1,X 8 1056 B |78 0S4 X 1078 024*X1 128 1032 9 99 A AOPADJ&X1,HOLDAR 7 1064 A 0S6 U58 026*X1 1458 128 1033 10 00 MZ HOLDZN,HOLDAR-001 7 1071 Y U85 U57 1485 1457 129 1034 10 01 TSTCNV BM MARK,TYPE 8 1078 V /68 075 K 1168 075 129 1035 10 02 BCE MARK,TYPEA,2 8 1086 B /68 U33 2 1168 1433 129 1036 10 03 * 1037 10 04 * CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR 1038 10 05 * 1039 10 06 CNVTO3 BAV *&001 5 1094 B |99 Z 1099 129 1040 10 07 A @96@,HOLDAR-003 7 1099 A U87 U55 1487 1455 129 1041 10 08 BAV CNVTO3&005 5 1106 B |99 Z 1099 130 1042 10 09 MZ HOLDAR-004,HOLDAR 7 1111 Y U54 U58 1454 1458 130 1043 10 10 MN HOLDAR-003,*&004 7 1118 D U55 /28 1455 1128 130 1044 10 11 MZ ZONE2,HOLDAR-002 7 1125 Y 109 U56 109 1456 130 1045 10 12 MZ HOLDZN,HOLDAR-001 7 1132 Y U85 U57 1485 1457 130 1046 10 13 BCE STRADD,AINDEX&X1, 8 1139 B /61 0S7 1161 027*X1 131 1047 10 14 MN AINDEX&X1,*&004 7 1147 D 0S7 /57 027*X1 1157 131 1048 10 15 MZ ZONE,HOLDAR-001 7 1154 Y 113 U57 113 1457 131 1049 10 16 STRADD MCW HOLDAR,AOP&X3 7 1161 M U58 0G0 1458 070*X3 131 1050 10 17 * 1051 10 18 * MARK OPERAND PROCESSING 1052 10 19 * 1053 10 20 MARK MZ ABBIT,STAOP&X3 7 1168 Y 113 0?1 113 001*X3 131 1054 10 21 OPRTN B XXXX 4 1175 B 000 000 132 1055 10 22 * 1056 10 23 * I/O ADDRESS IN TABLE 1057 10 24 * 1058 10 25 IOADD MCW HOLDAR-001,AOP&X3 7 1179 M U57 0G0 1457 070*X3 132 1059 10 26 B MARK 4 1186 B /68 1168 132 1060 10 27 * 1061 10 28 * ASTERISK OPERAND 1062 10 29 * 1063 10 30 PROAST BCE *&5,AOPER&X1, 8 1190 B S02 0S2 1202 022*X1 132 1064 10 31 B CNVSYM 4 1198 B 626 626 132 1065 10 32 BCE OPRTN,ASTRSW,1 8 1202 B /75 U18 1 1175 1418 132 1066 10 33 MCW ASTADD,HOLDAR 7 1210 M U39 U58 1439 1458 133 1067 10 34 B CHRADJ 4 1217 B |49 1049 133 1068 10 35 * 1069 10 36 * ACTUAL OPERAND - FLOAT TO 5 DIGITS 1070 10 37 * 1071 10 38 FLOAT BCE CNVSYM,AOPHO&X1,# 8 1221 B 626 0/7 # 626 017*X1 133 1072 10 39 BCE CNVSYM,AOPHO&X1,@ 8 1229 B 626 0/7 @ 626 017*X1 133 1073 10 40 BWZ *&005,AOPER-004&X1,2 8 1237 V S49 0/8 2 1249 018*X1 133 1074 10 41 B CNVSYM 4 1245 B 626 626 133 1075 10 42 ZA AOPER-001&X1,HOLDAR 7 1249 ? 0S1 U58 021*X1 1458 134 1076 10 43 REFLOT BCE *&005,HOLDAR,& 8 1256 B S68 U58 & 1268 1458 134 1077 10 44 B CHRADJ 4 1264 B |49 1049 134 1078 10 45 ZA HOLDAR-001,HOLDAR 7 1268 ? U57 U58 1457 1458 134 1079 10 46 B REFLOT 4 1275 B S56 1256 134 1080 10 47 * 1081 10 48 * PROCESS SUFFIX 1082 10 49 * 1083 10 50 PROSFX MCW AOPHO,SFXCTR 7 1279 M 017 L23 017 2323 134 1084 10 51 B PUT 4 1286 B Z77 1977 135 1085 10 52 * 1086 10 53 * INITIALIZE PASS D 1087 10 54 * 1088 10 55 PASSD SW GRPMK2-1 4 1290 , U30 1430 135 1089 10 56 RTW DINPUT,BYPRD 8 1294 L %U6 U29 R 1429 135 1090 10 57 CW GRPMK2-1 4 1302 ) U30 1430 135 1091 10 58 CS CARD&80 4 1306 / 080 080 135 1092 10 59 SW CARD&001,CARD&006 7 1310 , 001 006 001 006 135 1093 10 60 SW CARD&017,CARD&024 7 1317 , 017 024 017 024 135 1094 10 61 SW CARD&028,CARD&035 7 1324 , 028 035 028 035 136 1095 10 62 SW CARD&057,CARD&062 7 1331 , 057 062 057 062 136 1096 10 63 SW CARD&068,CARD&071 7 1338 , 068 071 068 071 136 1097 10 64 MCW BUMPOP,BUMPER 7 1345 M L27 878 2327 878 136 1098 10 65 MCW @6@,TPHALT&4 7 1352 M U88 J15 1488 2115 136 1099 10 66 MCW @6@,TPHLT2&4 7 1359 M U88 K01 1488 2201 137 1100 10 67 MCW @6@,TPHLT3&4 7 1366 M U88 J42 1488 2142 137 1101 10 68 MCW TPAD,WRITE2&006 7 1373 M L34 X73 2334 1773 137 1102 10 69 MCW TPAD,READ2&010 7 1380 M L34 X98 2334 1798 137 1103 10 70 MCW @ @,SFXCTR 7 1387 M U89 L23 1489 2323 137 1104 10 71 * 1105 10 72 * TEST LAST ITERATION 1106 10 73 * 1107 10 74 BCE LSTITR,PROCSW,0 8 1394 B U07 L95 0 1407 2395 138 1108 10 75 BCE 1 1402 B 138 1109 10 76 B READ2 4 1403 B X88 1788 138 1110 10 77 LSTITR MCW @1@,ITERSW 7 1407 M U34 U28 1434 1428 138 1111 10 78 B READ2 4 1414 B X88 1788 138 1112 10 79 ASTRSW DCW 0 1 1418 138 1113 10 80 SWICH1 DCW @0@ 1 1419 138 1114 10 81 HOLD7 DCW @ @ 7 1426 139 1115 10 82 HOLD1 DCW &0 1 1427 139 1116 10 83 ITERSW DCW @0@ 1 1428 139 1117 10 84 BYPRD DCW @ @ 1 1429 139 1118 10 85 GRPMK2 DC @} @ 2 1431 139 1119 10 86 SSOP EQU 1900 1900 1120 10 87 LTORG * 1432 DCW @0@ 1 1432 LIT 139 838 TYPEA #01 1 1433 AREA 139 @1@ 1 1434 LIT 139 855 ASTADD #05 5 1439 AREA 140 @003@ 3 1442 LIT 140 @011@ 3 1445 LIT 140 891 &PUT 3 1448 Z77 ADCON 140 &16000 5 1453 LIT 140 899 HOLDAR #05 5 1458 AREA 140 @B@ 1 1459 LIT 140 945 W6AREA #06 6 1465 AREA 141 &2 1 1466 LIT 141 949 HOLD2 #02 2 1468 AREA 141 950 HOLD4 #04 4 1472 AREA 141 &1 1 1473 LIT 141 @000@ 3 1476 LIT 141 &96 2 1478 LIT 141 @010@ 3 1481 LIT 142 @###@ 3 1484 LIT 142 1030 HOLDZN #01 1 1485 AREA 142 @96@ 2 1487 LIT 142 @6@ 1 1488 LIT 142 @ @ 1 1489 LIT 142 1121 10 88 * 1122 10 89 * INPUT/OUTPUT - PASS D 1123 10 90 * 1124 10 91 ORG WRITE 1767 1125 10 92 WRITE2 WT DOUTPT,TPAREA 8 1767 M %U5 I18 W 3918 143 1126 10 93 NOP XXXX 4 1775 N 000 000 143 1127 10 94 BER TPERR 5 1779 B !04 L 2004 143 1128 10 95 BRNCH2 NOP FINALD 4 1784 N Y13 1813 143 1129 10 96 READ2 S HOLDA 4 1788 S L31 2331 143 1130 10 97 RT DINPUT,TPAREA 8 1792 M %U6 I18 R 3918 143 1131 10 98 B CHKLGT 4 1800 B K08 2208 143 1132 10 99 BER TPERR 5 1804 B !04 L 2004 144 1133 11 00 B NXTREC 4 1809 B Z37 1937 144 1134 11 01 * 1135 11 02 FINALD WTM DOUTPT 5 1813 U %U5 M 144 1136 11 03 RWD DINPUT 5 1818 U %U6 R 144 1137 11 04 RWD DOUTPT 5 1823 U %U5 R 144 1138 11 05 RTW SYSTPE,333 8 1828 L %U1 333 R 333 144 1139 11 06 NOP XXXX 4 1836 N 000 000 144 1140 11 07 BER TPERR 5 1840 B !04 L 2004 145 1141 11 08 CW ENDOVL 4 1845 ) S45 1245 145 1142 11 09 MCW BUMPOP,TSTLST 7 1849 M L27 474 2327 474 145 1143 11 10 MCW BUMPOP,NOT 7 1856 M L27 726 2327 726 145 1144 11 11 B TSTREF 4 1863 B 333 333 145 1145 11 12 DCW @ @ 1 1867 145 1146 11 13 ENDOFD DCW @}@ 1 1868 145 1147 11 14 EX LIBRN B 000 146 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 1148 11 15 JOB AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 1149 11 16 * 1150 11 17 ORG 333 0333 1151 11 18 * 1152 11 19 * END OF PASS D 1153 11 20 * 1154 11 21 * PRINT LIST OF UNREFERENCED LABELS 1155 11 22 * 1156 11 23 TSTREF CS 0332 4 0333 / 332 332 149 1157 11 24 CS 1 0337 / 149 1158 11 25 S XR3&1 4 0338 S 100 100 149 1159 11 26 S 1 0342 S 149 1160 11 27 S 1 0343 S 149 1161 11 28 SW HEADSW#001 4 0344 , /80 1180 149 1162 11 29 NXTLBL BCE TSTLST,SYMHO, 8 0348 B 474 M!4 474 2404*X2 149 1163 11 30 BCE TSTLST,ADDHO, 8 0356 B 474 M!0 474 2400*X2 150 1164 11 31 BCE LOZNG,SYMHO,) 8 0364 B 530 M!4 ) 530 2404*X2 150 1165 11 32 C SYMHO,@A@ 7 0372 C M!4 /81 2404*X2 1181 150 1166 11 33 BH DOREF 5 0379 B 441 U 441 150 1167 11 34 C SYMHO,@Z@ 7 0384 C M!4 /82 2404*X2 1182 150 1168 11 35 BL DOREF 5 0391 B 441 T 441 151 1169 11 36 MN SYMHO,XR3 7 0396 D M!4 099 2404*X2 099 151 1170 11 37 BWZ SWTAB,SYMHO,B 8 0403 V 433 M!4 B 433 2404*X2 151 1171 11 38 A @010@,XR3 7 0411 A /85 099 1185 099 151 1172 11 39 BM SWTAB,SYMHO 8 0418 V 433 M!4 K 433 2404*X2 151 1173 11 40 A @010@,XR3 7 0426 A /85 099 1185 099 152 1174 11 41 SWTAB SW SORTAB&X3 4 0433 , /D8 1148*X3 152 1175 11 42 S XR3&2 4 0437 S 101 101 152 1176 11 43 DOREF BWZ *&5,LBLREF,2 8 0441 V 453 M!1 2 453 2401*X2 152 1177 11 44 B TSTLST 4 0449 B 474 474 152 1178 11 45 BW NEWPGE,HEADSW 8 0453 V 502 /80 1 502 1180 152 1179 11 46 DONEXT CW HEADSW 4 0461 ) /80 1180 152 1180 11 47 B PRINT 4 0465 B 538 538 153 1181 11 48 W 1 0469 2 153 1182 11 49 CS 216 4 0470 / 216 216 153 1183 11 50 TSTLST A @010@,XR2 7 0474 A /85 094 1185 094 153 1184 11 51 C XR2,TABMAX 7 0481 C 094 L11 094 2311 153 1185 11 52 BE DUMP 5 0488 B 646 S 646 153 1186 11 53 BCV NEWPGE 5 0493 B 502 @ 502 153 1187 11 54 B NXTLBL 4 0498 B 348 348 154 1188 11 55 NEWPGE CC 1 2 0502 F 1 154 1189 11 56 MCW @UNREFERENCED LABELS@,219 7 0504 M S04 219 1204 219 154 1190 11 57 CC T 2 0511 F T 154 1191 11 58 W 1 0513 2 154 1192 11 59 CS 0219 4 0514 / 219 219 154 1193 11 60 BW DONEXT,HEADSW 8 0518 V 461 /80 1 461 1180 154 1194 11 61 B NXTLBL 4 0526 B 348 348 155 1195 11 62 LOZNG SW LIST-1 4 0530 , /78 1178 155 1196 11 63 B DOREF 4 0534 B 441 441 155 1197 11 64 * 1198 11 65 * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABBLE 1199 11 66 * 1200 11 67 PRINT SBR PRTXT&3 4 0538 H 634 634 155 1201 11 68 MCW SYMBOL,206&X1 7 0542 M M!9 2|6 2409*X2 206*X1 155 1202 11 69 BCE DOIO,ADDHO,% 8 0549 B 635 M!0 % 635 2400*X2 155 1203 11 70 MN ADDLO,212&X1 7 0557 D M!3 2/2 2403*X2 212*X1 155 1204 11 71 MN 1 0564 D 156 1205 11 72 MN 1 0565 D 156 1206 11 73 MN 1 0566 D 156 1207 11 74 BWZ *&8,ADDHO,2 8 0567 V 582 M!0 2 582 2400*X2 156 1208 11 75 MCW @1@,208&X1 7 0575 M S05 2|8 1205 208*X1 156 1209 11 76 BWZ PRTXT,ADDLO-1,2 8 0582 V 631 M!2 2 631 2402*X2 156 1210 11 77 MN @1@,215&X1 7 0590 D S05 2/5 1205 215*X1 156 1211 11 78 MCW @&X@ 4 0597 M S07 1207 157 1212 11 79 BWZ PRTXT,ADDLO-1,S 8 0601 V 631 M!2 S 631 2402*X2 157 1213 11 80 MN @2@,215&X1 7 0609 D S08 2/5 1208 215*X1 157 1214 11 81 BWZ PRTXT,ADDLO-1,K 8 0616 V 631 M!2 K 631 2402*X2 157 1215 11 82 MN @3@,215&X1 7 0624 D S09 2/5 1209 215*X1 157 1216 11 83 PRTXT B XXXX 4 0631 B 000 000 157 1217 11 84 DOIO MCW ADDLO,212&X1 7 0635 M M!3 2/2 2403*X2 212*X1 158 1218 11 85 B PRTXT 4 0642 B 631 631 158 1219 11 86 * 1220 11 87 * PRINT SYMBOL TABLE 1221 11 88 * 1222 11 89 DUMP B NXTPGE 4 0646 B 859 859 158 1223 11 90 S XR3&1 4 0650 S 100 100 158 1224 11 91 S 1 0654 S 158 1225 11 92 S 1 0655 S 158 1226 11 93 NXTCTR SW ENDSW#1 4 0656 , S10 1210 158 1227 11 94 BW SCAN,SORTAB&1&X3 8 0660 V 687 /D9 1 687 1149*X3 159 1228 11 95 BMPXR3 BCE TSTEOJ,SORTAB&1&X3,@ 8 0668 B 888 /D9 @ 888 1149*X3 159 1229 11 96 A &1,XR3 7 0676 A S11 099 1211 099 159 1230 11 97 B NXTCTR 4 0683 B 656 656 159 1231 11 98 SCAN BCE BMPXR3,SORTAB&1&X3,! 8 0687 B 668 /D9 ! 668 1149*X3 159 1232 11 99 BCE BMPXR3,SORTAB&1&X3,| 8 0695 B 668 /D9 | 668 1149*X3 160 1233 12 00 BCE BMPXR3,SORTAB&1&X3,/ 8 0703 B 668 /D9 / 668 1149*X3 160 1234 12 01 MCW SORTAB&1&X3,TSTLBL&7 7 0711 M /D9 725 1149*X3 725 160 1235 12 02 TSTLBL BCE DOPNT,SYMHO,X 8 0718 B 777 M!4 X 777 2404*X2 160 1236 12 03 NOT A @010@,XR2 7 0726 A /85 094 1185 094 160 1237 12 04 C XR2,TABMAX 7 0733 C 094 L11 094 2311 161 1238 12 05 BU TSTLBL 5 0740 B 718 / 718 161 1239 12 06 S XR2&1 4 0745 S 095 095 161 1240 12 07 S 1 0749 S 161 1241 12 08 A &1,XR3 7 0750 A S11 099 1211 099 161 1242 12 09 CW ENDSW 4 0757 ) S10 1210 161 1243 12 10 BW PNTSYM,PNTSW 8 0761 V 812 S18 1 812 1218 161 1244 12 11 SW PNTSW 4 0769 , S18 1218 162 1245 12 12 B TSTESW 4 0773 B 847 847 162 1246 12 13 DOPNT BCE NOT,ADDHO, 8 0777 B 726 M!0 726 2400*X2 162 1247 12 14 B PRINT 4 0785 B 538 538 162 1248 12 15 SW PNTSW 4 0789 , S18 1218 162 1249 12 16 A @016@,XR1 7 0793 A S14 089 1214 089 162 1250 12 17 C XR1,@128@ 7 0800 C 089 S17 089 1217 162 1251 12 18 BU NOT 5 0807 B 726 / 726 163 1252 12 19 PNTSYM W 1 0812 2 163 1253 12 20 CW PNTSW#1 4 0813 ) S18 1218 163 1254 12 21 CS 332 4 0817 / 332 332 163 1255 12 22 CS 1 0821 / 163 1256 12 23 S XR1&1 4 0822 S 090 090 163 1257 12 24 BW *&9,ENDSW 8 0826 V 842 S10 1 842 1210 163 1258 12 25 BCE TSTEOJ,SORTAB&1&X3,@ 8 0834 B 888 /D9 @ 888 1149*X3 164 1259 12 26 BCV NXTPGE 5 0842 B 859 @ 859 164 1260 12 27 TSTESW BW NOT,ENDSW 8 0847 V 726 S10 1 726 1210 164 1261 12 28 B NXTCTR 4 0855 B 656 656 164 1262 12 29 NXTPGE SBR PGXT&3 4 0859 H 887 887 164 1263 12 30 CS 332 4 0863 / 332 332 164 1264 12 31 CS 1 0867 / 164 1265 12 32 CC 1 2 0868 F 1 165 1266 12 33 MCW @SYMBOL TABLE@,212 7 0870 M S30 212 1230 212 165 1267 12 34 W 1 0877 2 165 1268 12 35 CC K 2 0878 F K 165 1269 12 36 CS 212 4 0880 / 212 212 165 1270 12 37 PGXT B XXXX 4 0884 B 000 000 165 1271 12 38 TSTEOJ BW *&3,HEADSW 8 0888 V 898 /80 1 898 1180 165 1272 12 39 CC 1 2 0896 F 1 166 1273 12 391 CS 332 4 0898 / 332 332 166 1274 12 392 CHAIN 3 MACRO 1275 CS 1 0902 / GEN 166 1276 CS 1 0903 / GEN 166 1277 CS 1 0904 / GEN 166 1278 12 40 BCE EOJOB,ITERSW,1 8 0905 B 997 U28 1 997 1428 166 1279 12 41 * 1280 12 42 * GET PASS C 1281 12 43 * 1282 12 44 BSP SYSTPE 5 0913 U %U1 B 166 1283 12 45 BSP SYSTPE 5 0918 U %U1 B 167 1284 12 46 MCW @5@,TPHALT&4 7 0923 M S31 J15 1231 2115 167 1285 12 47 MCW @5@,TPHLT2&4 7 0930 M S31 K01 1231 2201 167 1286 12 48 MCW @5@,TPHLT3&4 7 0937 M S31 J42 1231 2142 167 1287 12 49 MCW @00@,PROCSW 7 0944 M S33 L95 1233 2395 167 1288 12 50 MCW @ @,SFXCTR 7 0951 M S34 L23 1234 2323 168 1289 12 51 * 1290 12 52 * SET NUMBER OF SEEKS FOR TABLE SEARCH 1291 12 53 * 1292 12 54 C TOTLAB,TABLSZ 7 0958 C L93 L18 2393 2318 168 1293 12 55 MCW TABLSZ,SERCHS 7 0965 M L18 L99 2318 2399 168 1294 12 56 S TOTLAB 4 0972 S L93 2393 168 1295 12 57 BE RDPSSC 5 0976 B K72 S 2272 168 1296 12 58 BH RDPSSC 5 0981 B K72 U 2272 168 1297 12 59 MCW &0009,SERCHS 7 0986 M S38 L99 1238 2399 169 1298 12 60 B RDPSSC 4 0993 B K72 2272 169 1299 12 61 * 1300 12 62 * LAST ITERATION, GET PASS C 1301 12 63 * 1302 12 64 EOJOB CW GRPMK2-1 4 0997 ) U30 1430 169 1303 12 65 CS 3999 4 1001 / I99 3999 169 1304 12 66 BCE READE,MACHSZ,3 8 1005 B |44 L89 3 1044 2389 169 1305 12 67 CS 4799 4 1013 / 79Z 4799 169 1306 12 68 CHAIN 7 MACRO 1307 CS 1 1017 / GEN 169 1308 CS 1 1018 / GEN 170 1309 CS 1 1019 / GEN 170 1310 CS 1 1020 / GEN 170 1311 CS 1 1021 / GEN 170 1312 CS 1 1022 / GEN 170 1313 CS 1 1023 / GEN 170 1314 12 681 CLR CS 3999 4 1024 / I99 3999 170 1315 12 682 SBR CLR&3 4 1028 H |27 1027 171 1316 12 683 C CLR&3,&SSOP-1 7 1032 C |27 S41 1027 1241 171 1317 12 684 BU CLR 5 1039 B |24 / 1024 171 1318 12 69 READE RTW SYSTPE,SSOP 8 1044 L %U1 Z00 R 1900 171 1319 12 70 BER SYSERR 5 1052 B |68 L 1068 171 1320 12 71 GOTOE MCW @N@,SSOP 7 1057 M S42 Z00 1242 1900 171 1321 12 72 B SSOP&1 4 1064 B Z01 1901 172 1322 12 73 SYSERR MCW &9,RDCT#1 7 1068 M S43 S44 1243 1244 172 1323 12 74 BSP SYSTPE 5 1075 U %U1 B 172 1324 12 75 RETRY RTW SYSTPE,SSOP 8 1080 L %U1 Z00 R 1900 172 1325 12 76 BER AGAIN 5 1088 B |97 L 1097 172 1326 12 77 B GOTOE 4 1093 B |57 1057 172 1327 12 78 AGAIN BSP SYSTPE 5 1097 U %U1 B 172 1328 12 79 S @1@,RDCT 7 1102 S S05 S44 1205 1244 173 1329 12 80 BWZ RETRY,RDCT,B 8 1109 V |80 S44 B 1080 1244 173 1330 12 81 H XXXX,691 7 1117 . 000 691 000 691 173 1331 12 82 RTW SYSTPE,SSOP 8 1124 L %U1 Z00 R 1900 173 1332 12 83 BSS SYSERR,E 5 1132 B |68 E 1068 173 1333 12 84 H XXXX,612 7 1137 . 000 612 000 612 174 1334 12 85 B GOTOE 4 1144 B |57 1057 174 1335 12 86 LIST DCW @ ABCDEFGHI!JKLMNOPQR|/STUVWXYZ)@@ 32 1179 175 1336 12 87 SORTAB EQU LIST-31 1148 1337 12 88 LTORG * 1180 1161 HEADSW DCW #01 1 1180 AREA 175 @A@ 1 1181 LIT 175 @Z@ 1 1182 LIT 175 @010@ 3 1185 LIT 175 1189 @UNREFERENCED LABELS@ 19 1204 LIT 176 @1@ 1 1205 LIT 176 @&X@ 2 1207 LIT 176 @2@ 1 1208 LIT 176 @3@ 1 1209 LIT 176 1226 ENDSW #01 1 1210 AREA 176 &1 1 1211 LIT 176 @016@ 3 1214 LIT 177 @128@ 3 1217 LIT 177 1253 PNTSW #01 1 1218 AREA 177 1266 @SYMBOL TABLE@ 12 1230 LIT 177 @5@ 1 1231 LIT 177 @00@ 2 1233 LIT 177 @ @ 1 1234 LIT 177 &0009 4 1238 LIT 178 1316 &SSOP-1 3 1241 Y99 ADCON 178 @N@ 1 1242 LIT 178 &9 1 1243 LIT 178 1322 RDCT #01 1 1244 AREA 178 1338 12 89 ENDOVL DCW @}@ 1 1245 178 1339 12 90 EX LIBRN B 000 179 1340 12 91 END LIBRN / 000 080 182 END OF ASSEMBLY IF EXTRA OUTPUT DESIRED, SET SENSE SWITCH F ON, AND B ON FOR CONDENSED CARDS C ON FOR LOADABLE TAPE 6 D ON FOR LISTING TAPE 3 E ON TO SUPPRESS LISTING G ON FOR NEW SOURCE DECK AND PRESS START IF NO EXTRA OUTPUT DESIRED, PRESS START CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 101 1 01 000 JOB AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 102 1 02 CTL 6311 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 SYSTPE EQU %U1 %U1 108 1 08 SAVETP EQU %U4 %U4 109 1 09 CINPUT EQU %U5 %U5 110 1 10 COUTPT EQU %U6 %U6 111 1 11 DOUTPT EQU %U5 %U5 112 1 12 DINPUT EQU %U6 %U6 113 1 13 TABLE EQU 2409 2409 114 1 14 ADDLO EQU TABLE-006&X2 2403 X 115 1 15 SYMHO EQU TABLE-005&X2 2404 X 116 1 16 ADDHO EQU TABLE-009&X2 2400 X 117 1 17 LBLREF EQU TABLE-008&X2 2401 X 118 1 18 SYMBOL EQU TABLE&X2 2409 X 119 1 19 CARD EQU 0 0000 120 1 20 STAOP EQU CARD&001 0001 121 1 21 STLABL EQU CARD&002 0002 122 1 22 STADDR EQU CARD&003 0003 123 1 23 STBOP EQU CARD&004 0004 124 1 24 COUNT EQU CARD&007 0007 125 1 25 LABEL EQU CARD&013 0013 126 1 26 AOPER EQU CARD&022 0022 127 1 27 AOPADJ EQU CARD&026 0026 128 1 28 AINDEX EQU CARD&027 0027 129 1 29 ORGADD EQU CARD&032 0032 130 1 30 CNVLAB EQU CARD&056 0056 131 1 31 LABADD EQU CARD&061 0061 132 1 32 SUPADD EQU CARD&066 0066 133 1 33 AOP EQU CARD&070 0070 134 1 34 TYPE EQU CARD&075 0075 135 1 35 AOPHO EQU CARD&017 0017 136 1 36 LBLHO EQU CARD&008 0008 137 1 37 HOADD EQU CARD&057 0057 138 1 38 TPAREA EQU 3918 3918 139 1 39 INPUT EQU TPAREA-001&X3 3917 X 140 1 40 LIMIT EQU TPAREA&13 3931 141 1 41 XXXX EQU 0 0000 142 1 42 GPMRK3 EQU 3998 3998 143 1 43 LIBRN EQU 0 0000 144 1 44 * 145 1 45 * 146 1 46 * GET, PUT, REDUNDANCY & 147 1 47 * CROSSOVER ROUTINES COMMON 148 1 48 * TO BOTH PASSES 149 1 49 * 150 1 50 * 151 1 51 ORG ENDOFC&1 1925 152 1 52 * 153 1 53 * GET & PUT 154 1 54 * 155 1 55 GET C BLKCT,KBLKNG 7 1925 C L30 L26 2330 2326 4 156 1 56 BE WRITE 5 1932 B X67 S 1767 4 157 1 57 NXTREC A &80,BLKCT 7 1937 A L36 L30 2336 2330 4 158 1 58 MCW BLKCT,XR3 7 1944 M L30 099 2330 099 4 159 1 59 MOVEIN MCW INPUT,CARD&80 7 1951 M IA7 080 3917*X3 080 4 160 1 60 CHAIN 9 MACRO 161 MCW 1 1958 M GEN 4 162 MCW 1 1959 M GEN 4 163 MCW 1 1960 M GEN 5 164 MCW 1 1961 M GEN 5 165 MCW 1 1962 M GEN 5 166 MCW 1 1963 M GEN 5 167 MCW 1 1964 M GEN 5 168 MCW 1 1965 M GEN 5 169 MCW 1 1966 M GEN 5 170 1 61 S XR3&001 4 1967 S 100 100 6 171 1 62 S 1 1971 S 6 172 1 63 S 1 1972 S 6 173 1 64 B ANAL 4 1973 B 114 114 6 174 1 65 PUT MCW BLKCT,XR3 7 1977 M L30 099 2330 099 6 175 1 66 MCW CARD&80,INPUT 7 1984 M 080 IA7 080 3917*X3 6 176 1 67 CHAIN 9 MACRO 177 MCW 1 1991 M GEN 6 178 MCW 1 1992 M GEN 7 179 MCW 1 1993 M GEN 7 180 MCW 1 1994 M GEN 7 181 MCW 1 1995 M GEN 7 182 MCW 1 1996 M GEN 7 183 MCW 1 1997 M GEN 7 184 MCW 1 1998 M GEN 7 185 MCW 1 1999 M GEN 8 186 1 68 B GET 4 2000 B Z25 1925 8 187 1 69 * 188 1 70 *TAPE REDUNDANCY ROUTINE 189 1 71 * 190 1 72 TPERR SBR XR1 4 2004 H 089 089 8 191 1 73 SBR REDXT&3 4 2008 H !76 2076 8 192 1 74 MZ &9,XR1 7 2012 Y L37 089 2337 089 8 193 1 75 MCW 4000-10&X1,TPINST&7 7 2019 M IZ0 !67 3990*X1 2067 8 194 1 76 MN TPINST&3,BSP1&3 7 2026 D !63 !43 2063 2043 8 195 1 77 MCW TPINST&7,INST2&7 7 2033 M !67 J76 2067 2176 9 196 1 78 BSP1 BSP INITAP 5 2040 U %U0 B 9 197 1 79 BCE WRTRED,TPINST&7,W 8 2045 B J49 !67 W 2149 2067 9 198 1 80 MCW &9,READCT#1 7 2053 M L37 L38 2337 2338 9 199 1 81 TPINST RT INITAP,XXXX 8 2060 M %U0 000 R 000 9 200 1 82 BER RDRERR 5 2068 B !77 L 2077 10 201 1 83 REDXT B XXXX 4 2073 B 000 000 10 202 1 84 RDRERR MN TPINST&3,BSP2&3 7 2077 D !63 !87 2063 2087 10 203 1 85 BSP2 BSP INITAP 5 2084 U %U0 B 10 204 1 86 S &1,READCT 7 2089 S L39 L38 2339 2338 10 205 1 87 BWZ TPINST,READCT,B 8 2096 V !60 L38 B 2060 2338 10 206 1 88 MN TPINST&3,TPHALT&6 7 2104 D !63 J17 2063 2117 11 207 1 89 TPHALT H XXXX,590 7 2111 . 000 590 000 590 11 208 1 90 MCW TPINST&7,*&8 7 2118 M !67 J32 2067 2132 11 209 1 91 RT INITAP,XXXX 8 2125 M %U0 000 R 000 11 210 1 92 BSS BSP1,E 5 2133 B !40 E 2040 11 211 1 93 TPHLT3 H XXXX,511 7 2138 . 000 511 000 511 12 212 1 94 B REDXT 4 2145 B !73 2073 12 213 1 95 WRTRED SKP SYSTPE 5 2149 U %U1 E 12 214 1 96 BCE SUBCTR,WRTCTR-1,5 8 2154 B J86 L40 5 2186 2340 12 215 1 97 A &1,WRTCTR#2 7 2162 A L39 L41 2339 2341 12 216 1 98 INST2 WT INITAP,XXXX 8 2169 M %U0 000 W 000 12 217 1 99 BER BSP1 5 2177 B !40 L 2040 13 218 2 00 B REDXT 4 2182 B !73 2073 13 219 2 01 SUBCTR S WRTCTR 4 2186 S L41 2341 13 220 2 02 MN TPINST&3,*&7 7 2190 D !63 K03 2063 2203 13 221 2 03 TPHLT2 H XXXX,560 7 2197 . 000 560 000 560 13 222 2 04 B INST2 4 2204 B J69 2169 13 223 2 05 * 224 2 06 * CHECK FOR SHORT RECORDS 225 2 07 * 226 2 08 CHKLGT SBR XR1 4 2208 H 089 089 13 227 2 09 SBR LGTXT&3 4 2212 H K46 2246 14 228 2 10 MZ &9,XR1 7 2216 Y L37 089 2337 089 14 229 2 11 LGTCK BCE 4000-12&X1,LIMIT,} 8 2223 B IY8 I31 } 3988*X1 3931 GMARK 14 230 2 12 CHAIN 12 MACRO 231 BCE 1 2231 B GEN 14 232 BCE 1 2232 B GEN 14 233 BCE 1 2233 B GEN 14 234 BCE 1 2234 B GEN 14 235 BCE 1 2235 B GEN 15 236 BCE 1 2236 B GEN 15 237 BCE 1 2237 B GEN 15 238 BCE 1 2238 B GEN 15 239 BCE 1 2239 B GEN 15 240 BCE 1 2240 B GEN 15 241 BCE 1 2241 B GEN 15 242 BCE 1 2242 B GEN 16 243 2 13 LGTXT B XXXX 4 2243 B 000 000 16 244 2 14 * 245 2 15 * CROSSOVER, C TO D 246 2 16 * 247 2 17 RDPSSD RTW SYSTPE,1 8 2247 L %U1 001 R 001 16 248 2 18 NOP XXXX 4 2255 N 000 000 16 249 2 19 BER TPERR 5 2259 B !04 L 2004 16 250 2 20 CW ENDOFD 4 2264 ) Y68 1868 16 251 2 21 B PASSD 4 2268 B S90 1290 16 252 2 22 * 253 2 23 * CROSSOVER, D TO C 254 2 24 * 255 2 25 RDPSSC RTW COUTPT,1 8 2272 L %U6 001 R 001 17 256 2 26 NOP XXXX 4 2280 N 000 000 17 257 2 27 BER TPERR 5 2284 B !04 L 2004 17 258 2 28 CW ENDOFC 4 2289 ) Z24 1924 17 259 2 29 B CLRTAB 4 2293 B Y13 1813 17 260 2 30 * 261 2 31 * COMMON CONSTANTS 262 2 32 * 263 2 33 CLRMAX DCW @I97@ 3 2299 17 264 2 34 CLRMIN DSA TABLE-010 3 2302 L99 17 265 2 35 FNCTN DCW @ @ 6 2308 18 266 2 36 TABMAX DCW @V00@ 3 2311 18 267 2 37 MAXADD DCW @ @ 3 2314 18 268 2 38 TABLSZ DCW &0150 4 2318 18 269 2 39 MAXSER DCW @ @ 4 2322 18 270 2 40 SFXCTR DCW @ @ 1 2323 18 271 2 41 KBLKNG DCW @080@ 3 2326 18 272 2 42 BUMPOP DCW @#@ 1 2327 19 273 2 43 HOLDA DCW &0000 4 2331 19 274 2 44 BLKCT EQU HOLDA-1 2330 275 2 45 TPAD DSA TPAREA 3 2334 I18 19 276 2 46 LTORG * 2335 DCW &80 2 2336 LIT 19 &9 1 2337 LIT 19 198 READCT #01 1 2338 AREA 19 &1 1 2339 LIT 19 215 WRTCTR #02 2 2341 AREA 20 277 2 47 * 278 2 48 * PROTECTED CONSTANTS 279 2 49 * 280 2 50 FACTOR EQU TABLE-021 2388 281 2 51 MACHSZ EQU TABLE-020 2389 282 2 52 TOTLAB EQU TABLE-016 2393 283 2 53 UNPRSW EQU TABLE-015 2394 284 2 54 PROCSW EQU TABLE-014 2395 285 2 55 SERCHS EQU TABLE-010 2399 286 2 56 * 287 2 57 * INITIALIZE PASS C ONE TIME 288 2 58 * 289 2 59 ORG TABLE-009 2400 290 2 60 RWD SAVETP 5 2400 U %U4 R 21 291 2 61 RWD CINPUT 5 2405 U %U5 R 21 292 2 62 RWD COUTPT 5 2410 U %U6 R 21 293 2 63 CS 3999 4 2415 / I99 3999 21 294 2 64 SW GRPMRK 4 2419 , Q74 2874 21 295 2 65 LCA @00@,PROCSW 7 2423 L Q76 L95 2876 2395 21 296 2 66 LCA &0150,SERCHS 7 2430 L Q80 L99 2880 2399 21 297 2 67 LCA @0015@,FACTOR 7 2437 L Q84 L88 2884 2388 22 298 2 68 RTW SYSTPE,1 8 2444 L %U1 001 R 001 22 299 2 69 NOP XXXX 4 2452 N 000 000 22 300 2 70 BER TPERR 5 2456 B !04 L 2004 22 301 2 71 CW ENDINT 4 2461 ) R09 2909 22 302 2 72 * 303 2 73 * SET I/O GROUP MARK 304 2 74 * 305 2 75 MCW MACHSZ,KEEP1#001 7 2465 M L89 Q85 2389 2885 22 306 2 76 A &3,KEEP1 7 2472 A Q86 Q85 2886 2885 23 307 2 77 MN KEEP1,*&004 7 2479 D Q85 M89 2885 2489 23 308 2 78 MZ ZONE2,*&007 7 2486 Y 109 M99 109 2499 23 309 2 79 SETIO LCA GRPMRK,GPMRK3 7 2493 L Q74 I98 2874 3998 23 310 2 80 BWZ SETBMP,SETIO&006,2 8 2500 V P26 M99 2 2726 2499 23 311 2 81 CS 4799 4 2508 / 79Z 4799 24 312 2 82 CS 4399 4 2512 / 39Z 4399 24 313 2 83 MCW @#@,BUMP 7 2516 M Q87 W81 2887 1681 24 314 2 84 BCE SET8K,MACHSZ,4 8 2523 B O20 L89 4 2620 2389 24 315 2 85 * 316 2 86 * 12K CONSTANTS 317 2 87 * 318 2 88 MCW BLKG12,KBLKNG 7 2531 M Q60 L26 2860 2326 24 319 2 89 MCW TBSZ12,TABLSZ 7 2538 M Q64 L18 2864 2318 24 320 2 90 MCW TBLM12,TABMAX 7 2545 M Q67 L11 2867 2311 25 321 2 91 MCW TPAD12,TPAD 7 2552 M Q70 L34 2870 2334 25 322 2 92 MCW MDTP12,MDTP#003 7 2559 M Q73 Q90 2873 2890 25 323 2 93 A &72,FACTOR 7 2566 A Q92 L88 2892 2388 25 324 2 94 BCE SETTP,MACHSZ,5 8 2573 B O62 L89 5 2662 2389 25 325 2 95 * 326 2 96 * 16K CONSTANTS 327 2 97 * 328 2 98 A &400,TABLSZ 7 2581 A Q95 L18 2895 2318 26 329 2 99 A &40,FACTOR 7 2588 A Q97 L88 2897 2388 26 330 3 00 MZ ABBIT,TABMAX 7 2595 Y 113 L11 113 2311 26 331 3 01 MZ ABBIT,TPAD 7 2602 Y 113 L34 113 2334 26 332 3 02 MZ ABBIT,MDTP 7 2609 Y 113 Q90 113 2890 26 333 3 03 B SETTP 4 2616 B O62 2662 26 334 3 04 * 335 3 05 * 8K CONSTANTS 336 3 06 * 337 3 07 SET8K MCW BLKG8K,KBLKNG 7 2620 M Q44 L26 2844 2326 27 338 3 08 MCW TBSZ8K,TABLSZ 7 2627 M Q48 L18 2848 2318 27 339 3 09 MCW TBLM8K,TABMAX 7 2634 M Q51 L11 2851 2311 27 340 3 10 MCW TPAD8K,TPAD 7 2641 M Q54 L34 2854 2334 27 341 3 11 MCW MDTP8K,MDTP 7 2648 M Q57 Q90 2857 2890 27 342 3 12 A &36,FACTOR 7 2655 A Q99 L88 2899 2388 28 343 3 13 SETTP MZ TPAD,CLRMAX 7 2662 Y L34 K99 2334 2299 28 344 3 14 MCW MDTP,MOVEIN&003 7 2669 M Q90 Z54 2890 1954 28 345 3 15 MCW MDTP,PUT&013 7 2676 M Q90 Z90 2890 1990 28 346 3 16 MCW TPAD,WRITE&006 7 2683 M L34 X73 2334 1773 28 347 3 17 MCW TPAD,READ&010 7 2690 M L34 X98 2334 1798 29 348 3 18 MCW TPAD,LIMAD#3 7 2697 M L34 R02 2334 2902 29 349 3 19 MA &13,LIMAD ??? &013 ??? MACRO 350 SW LIMAD-2 4 2704 , R00 2900 GEN 29 351 A &13,LIMAD 7 2708 A R04 R02 2904 2902 GEN 29 352 CW LIMAD-2 4 2715 ) R00 2900 GEN 29 353 3 20 MCW LIMAD,LGTCK&6 7 2719 M R02 K29 2902 2229 29 354 3 21 SETBMP MCW BUMP,BUMPOP 7 2726 M W81 L27 1681 2327 30 355 3 22 LCA GRPMRK,ENDOFC 7 2733 L Q74 Z24 2874 1924 30 356 3 23 * 357 3 24 * WRITE PASS C CHECKPOINT ON 6 358 3 25 * 359 3 26 CS 80 4 2740 / 080 080 30 360 3 27 SW CARD&001,CARD&006 7 2744 , 001 006 001 006 30 361 3 28 SW CARD&017,CARD&024 7 2751 , 017 024 017 024 30 362 3 29 SW CARD&028,CARD&035 7 2758 , 028 035 028 035 30 363 3 30 SW CARD&057,CARD&062 7 2765 , 057 062 057 062 31 364 3 31 SW CARD&068,CARD&071 7 2772 , 068 071 068 071 31 365 3 32 WTW COUTPT,1 8 2779 L %U6 001 W 001 31 366 3 33 NOP XXXX 4 2787 N 000 000 31 367 3 34 BER TPERR 5 2791 B !04 L 2004 31 368 3 35 CW ENDOFC,GRPMRK 7 2796 ) Z24 Q74 1924 2874 31 369 3 36 C TOTLAB,TABLSZ 7 2803 C L93 L18 2393 2318 32 370 3 37 MCW TABLSZ,SERCHS 7 2810 M L18 L99 2318 2399 32 371 3 38 S TOTLAB 4 2817 S L93 2393 32 372 3 39 BE CLRTAB 5 2821 B Y13 S 1813 32 373 3 40 BH CLRTAB 5 2826 B Y13 U 1813 32 374 3 41 MCW &0009,SERCHS 7 2831 M R08 L99 2908 2399 32 375 3 42 B CLRTAB 4 2838 B Y13 1813 32 376 3 43 BLKG8K DCW @400@ 3 2844 33 377 3 44 TBSZ8K DCW &0510 4 2848 33 378 3 45 TBLM8K DSA 5100 3 2851 /0| 33 379 3 46 TPAD8K DSA 7598 3 2854 E9Y 33 380 3 47 MDTP8K DSA 7597&X3 3 2857 EIX 33 381 3 48 BLKG12 DCW @800@ 3 2860 33 382 3 49 TBSZ12 DCW &0870 4 2864 33 383 3 50 TBLM12 DSA 8700 3 2867 70! 34 384 3 51 TPAD12 DSA 11198 3 2870 A9Q 34 385 3 52 MDTP12 DSA 11197&X3 3 2873 AIP 34 386 3 53 GRPMRK DC @}@ 1 2874 34 387 3 54 LTORG * 2875 DCW @00@ 2 2876 LIT 34 &0150 4 2880 LIT 34 @0015@ 4 2884 LIT 34 305 KEEP1 #01 1 2885 AREA 34 &3 1 2886 LIT 35 @#@ 1 2887 LIT 35 322 MDTP #03 3 2890 AREA 35 &72 2 2892 LIT 35 &400 3 2895 LIT 35 &40 2 2897 LIT 35 &36 2 2899 LIT 35 348 LIMAD #03 3 2902 AREA 36 &13 2 2904 LIT 36 &0009 4 2908 LIT 36 388 3 55 ENDINT DCW @}@ 1 2909 36 389 3 56 XFR LIBRN B 000 37 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 390 3 57 JOB AUTOCODER-PASS 5 MAIN LINE -VERSION 3 391 3 58 * 392 3 59 * PASS C-LOAD SYMBOL TABLE& SET ADDRESSES 393 3 60 * 394 3 61 ZONE EQU 113 0113 395 3 62 113 DCW @2SKB@ 4 0113 40 396 3 63 ZONE2 EQU 109 0109 397 3 64 109 DCW @2SKB@ 4 0109 41 398 3 65 ABBIT EQU ZONE 0113 399 3 66 BBIT EQU ZONE-001 0112 400 3 67 ABIT EQU ZONE-002 0111 401 3 68 NOBIT EQU ZONE-003 0110 402 3 69 XR1 EQU 89 0089 403 3 70 89 DCW @000@ 3 0089 42 404 3 71 XR2 EQU 94 0094 405 3 72 94 DCW @000@ 3 0094 43 406 3 73 XR3 EQU 99 0099 407 3 74 99 DCW @000@ 3 0099 44 408 3 75 ORG ZONE&001 0114 409 3 76 * 410 3 77 * DETERMINE RECORD TYPE 411 3 78 * 412 3 79 ANAL BM PUT,CARD&005 8 0114 V Z77 005 K 1977 005 45 413 3 80 BCE PUT,TYPE,% 8 0122 B Z77 075 % 1977 075 45 414 3 81 BCE INSTR,TYPE, 8 0130 B 219 075 219 075 45 415 3 82 MN TYPE,XR2 7 0138 D 075 094 075 094 45 416 3 83 BCE DA,XR2,0 8 0145 B 871 094 0 871 094 45 417 3 84 MCW @0@,INDFTR 7 0153 M Y92 Y69 1892 1869 46 418 3 85 MCW @0@,DASW 7 0160 M Y92 Y68 1892 1868 46 419 3 86 A XR2 4 0167 A 094 094 46 420 3 87 A XR2 4 0171 A 094 094 46 421 3 88 B *&001&X2 4 0175 B 1P9 179*X2 46 422 3 89 NOP XXXX 4 0179 N 000 000 46 423 3 90 B CONST 4 0183 B 260 260 46 424 3 91 B CONST 4 0187 B 260 260 47 425 3 92 B EXEND 4 0191 B 973 973 47 426 3 93 B SFX 4 0195 B 992 992 47 427 3 94 B PUT 4 0199 B Z77 1977 47 428 3 95 B ORG 4 0203 B 376 376 47 429 3 96 B DS 4 0207 B 295 295 47 430 3 97 B PUT 4 0211 B Z77 1977 47 431 3 98 B PUT 4 0215 B Z77 1977 48 432 3 99 * 433 4 00 * PROCESS INSTRUCTIONS 434 4 01 * 435 4 02 INSTR MCW @0@,INDFTR 7 0219 M Y92 Y69 1892 1869 48 436 4 03 B PRCADD 4 0226 B |03 1003 48 437 4 04 B PROCLB 4 0230 B /09 1109 48 438 4 05 BWZ PUT,STADDR,2 8 0234 V Z77 003 2 1977 003 48 439 4 06 A COUNT,NOWCTR 7 0242 A 007 Y48 007 1848 48 440 4 07 S @1@,NOWCTR 7 0249 S Y93 Y48 1893 1848 49 441 4 08 B PUT 4 0256 B Z77 1977 49 442 4 09 * 443 4 10 * PROCESS CONSTANTS & DCW 444 4 11 * 445 4 12 CONST BCE PRCAST,AOPHO,* 8 0260 B 283 017 * 283 017 49 446 4 13 MCW @1@,ACTSW 7 0268 M Y93 Y67 1893 1867 49 447 4 14 B PROCLB 4 0275 B /09 1109 49 448 4 15 B PUT 4 0279 B Z77 1977 49 449 4 16 * 450 4 17 * CONSTANTDS WITH ASTERISK ADDRESS 451 4 18 * 452 4 19 PRCAST B PRCADD 4 0283 B |03 1003 49 453 4 20 B PROCLB 4 0287 B /09 1109 50 454 4 21 B PUT 4 0291 B Z77 1977 50 455 4 22 * 456 4 23 * PROCESS DS & EQUATES 457 4 24 * 458 4 25 DS BCE PROCTU,AOPHO,% 8 0295 B 361 017 % 361 017 50 459 4 26 A AINDEX,INDFTR 7 0303 A 027 Y69 027 1869 50 460 4 27 BCE CONST,AOPHO,* 8 0310 B 260 017 * 260 017 50 461 4 28 BWZ CONST,AOPHO,2 8 0318 V 260 017 2 260 017 50 462 4 29 BWZ *&5,STAOP,2 8 0326 V 338 001 2 338 001 51 463 4 30 B CONST 4 0334 B 260 260 51 464 4 31 * 465 4 32 * EQUATE 466 4 33 * 467 4 34 B SETAOP 4 0338 B U35 1435 51 468 4 35 MCW DSAPUT,LABRTN&003 7 0342 M Y72 S97 1872 1297 51 469 4 36 BWZ UNPROC,STAOP,2 8 0349 V /81 001 2 1181 001 51 470 4 37 B CONST 4 0357 B 260 260 51 471 4 38 * 472 4 39 * DS OF INPUT DEVICE 473 4 40 * 474 4 41 PROCTU MCW AOPER-003,LABADD-001 7 0361 M 019 060 019 060 52 475 4 42 MCW @0@ 4 0368 M Y92 1892 52 476 4 43 B CONST 4 0372 B 260 260 52 477 4 44 * 478 4 45 * PROCESS ORIGIN & LITERAL ORIGIN 479 4 46 * 480 4 47 ORG BWZ SETHGH,CARD&033,B 8 0376 V 405 033 B 405 033 52 481 4 48 ZA LABADD,ORGADD 7 0384 ? 061 032 061 032 52 482 4 49 A @1@,ORGADD 7 0391 A Y93 032 1893 032 52 483 4 50 MZ ABBIT,CARD&033 7 0398 Y 113 033 113 033 53 484 4 51 SETHGH BCE ORGSAV,MAXSW,1 8 0405 B 432 Y60 1 432 1860 53 485 4 52 C NOWCTR,HGHCTR 7 0413 C Y48 Y58 1848 1858 53 486 4 53 BH ORGSAV 5 0420 B 432 U 432 53 487 4 54 ZA NOWCTR,HGHCTR 7 0425 ? Y48 Y58 1848 1858 53 488 4 55 * 489 4 56 * PROCESS SAVE COUNTER OF ORIGIN 490 4 57 * 491 4 58 ORGSAV BCE AOPOR,LBLHO, 8 0432 B 536 008 536 008 54 492 4 59 MCW @005@,XR1 7 0440 M Y96 089 1896 089 54 493 4 60 MCW &AOPOR,LABRTN&003 7 0447 M Y99 S97 1899 1297 54 494 4 61 BWZ *&005,STLABL,2 8 0454 V 466 002 2 466 002 54 495 4 62 B AOPOR 4 0462 B 536 536 54 496 4 63 BCE STRSAV,SUPADD, 8 0466 B 502 066 502 066 55 497 4 64 BTOLAB B DOLABL 4 0474 B T58 1358 55 498 4 65 B SEARCH 4 0478 B W29 1629 55 499 4 66 BCE STORE,DBLSW,1 8 0482 B S69 Y64 1 1269 1864 55 500 4 67 BCE STORE,SPCSW,0 8 0490 B S69 Y63 0 1269 1863 55 501 4 68 B UNPROC 4 0498 B /81 1181 55 502 4 69 STRSAV BCE UNPROC,ADDRSW,1 8 0502 B /81 Y59 1 1181 1859 56 503 4 70 BCE UNPROC,LITRSW,1 8 0510 B /81 Y61 1 1181 1861 56 504 4 71 MCW NOWCTR,SUPADD 7 0518 M Y48 066 1848 066 56 505 4 72 A @1@,SUPADD 7 0525 A Y93 066 1893 066 56 506 4 73 B BTOLAB 4 0532 B 474 474 56 507 4 74 * 508 4 75 * PROCESS A OPERAND OF ORIGIN 509 4 76 * 510 4 77 AOPOR BWZ *&005,STAOP,2 8 0536 V 548 001 2 548 001 57 511 4 78 B ACTUAL 4 0544 B 761 761 57 512 4 79 BCE ASTRSK,AOPHO,* 8 0548 B 708 017 * 708 017 57 513 4 80 MCW @0@,LITRSW 7 0556 M Y92 Y61 1892 1861 57 514 4 81 S NOWCTR 4 0563 S Y48 1848 57 515 4 82 BCE BLKAOP,AOPHO, 8 0567 B 735 017 735 017 57 516 4 83 * 517 4 84 * SYMBOLIC ORIGIN 518 4 85 * 519 4 86 MCW @0@,ORGSW 7 0575 M Y92 Y66 1892 1866 58 520 4 87 S XR1&001 4 0582 S 090 090 58 521 4 88 B SETAOP 4 0586 B U35 1435 58 522 4 89 BCE SETORG,ORGSW,1 8 0590 B 609 Y66 1 609 1866 58 523 4 90 SETSWS MCW @11@,MAXSW 7 0598 M Z01 Y60 1901 1860 58 524 4 91 B SCNTB&7 4 0605 B 813 813 58 525 4 92 SETORG MCW LABADD,ORGCTR 7 0609 M 061 Y53 061 1853 59 526 4 93 RSTSWA MCW @0@,ADDRSW 7 0616 M Y92 Y59 1892 1859 59 527 4 94 BCE *&005,AOPADJ-002,X 8 0623 B 635 024 X 635 024 59 528 4 95 B AOPOUT 4 0631 B 669 669 59 529 4 96 * 530 4 97 * ADJUSTMENT OF X00 531 4 98 * 532 4 99 BCE NXTCNT,AOPHO,* 8 0635 B 655 017 * 655 017 59 533 5 00 C ORGCTR,&00 7 0643 C Y53 Z03 1853 1903 60 534 5 01 BE AOPOUT 5 0650 B 669 S 669 60 535 5 02 NXTCNT MCW &00,ORGCTR 7 0655 M Z03 Y53 1903 1853 60 536 5 03 A @1@,ORGCTR-002 7 0662 A Y93 Y51 1893 1851 60 537 5 04 AOPOUT A ORGCTR,ORGADD 7 0669 A Y53 032 1853 032 60 538 5 05 ZA ORGCTR,LABADD 7 0676 ? Y53 061 1853 061 61 539 5 06 ZA ORGADD,NOWCTR 7 0683 ? 032 Y48 032 1848 61 540 5 07 S @1@,NOWCTR 7 0690 S Y93 Y48 1893 1848 61 541 5 08 MZ ABBIT,STAOP 7 0697 Y 113 001 113 001 61 542 5 09 B PUT 4 0704 B Z77 1977 61 543 5 10 * 544 5 11 * ORIGIN ASTERISK 545 5 12 * 546 5 13 ASTRSK BCE PUT,ADDRSW,1 8 0708 B Z77 Y59 1 1977 1859 62 547 5 14 BCE SETSWS,LITRSW,1 8 0716 B 598 Y61 1 598 1861 62 548 5 15 MCW NOWCTR,ORGCTR 7 0724 M Y48 Y53 1848 1853 62 549 5 16 B RSTSWA 4 0731 B 616 616 62 550 5 17 * 551 5 18 * ORIGIN MAXIMUM 552 5 19 * 553 5 20 BLKAOP BCE SETSWS,MAXSW,1 8 0735 B 598 Y60 1 598 1860 62 554 5 21 MCW HGHCTR,ORGCTR 7 0743 M Y58 Y53 1858 1853 63 555 5 22 A @1@,ORGCTR 7 0750 A Y93 Y53 1893 1853 63 556 5 23 B RSTSWA 4 0757 B 616 616 63 557 5 24 * 558 5 25 * ORIGIN ACTUAL OR PROCESSED 559 5 26 * 560 5 27 ACTUAL ZA ORGADD,NOWCTR 7 0761 ? 032 Y48 032 1848 63 561 5 28 S @1@,NOWCTR 7 0768 S Y93 Y48 1893 1848 63 562 5 29 BCE TSTX00,AOPHO,* 8 0775 B 821 017 * 821 017 64 563 5 30 MCW @0@,LITRSW 7 0783 M Y92 Y61 1892 1861 64 564 5 31 BWZ SCNTB,AOPHO,2 8 0790 V 806 017 2 806 017 64 565 5 32 BWZ SETORG,STAOP,K 8 0798 V 609 001 K 609 001 64 566 5 33 SCNTB MCW @0@,ADDRSW 7 0806 M Y92 Y59 1892 1859 64 567 5 34 S ORGCTR 4 0813 S Y53 1853 65 568 5 35 B PUT 4 0817 B Z77 1977 65 569 5 36 TSTX00 BCE PUT,AOPADJ-002,X 8 0821 B Z77 024 X 1977 024 65 570 5 37 BWZ PUT,CARD&034,B 8 0829 V Z77 034 B 1977 034 65 571 5 38 A ORGCTR,ORGADD 7 0837 A Y53 032 1853 032 65 572 5 39 BCE PUT,ADDRSW,1 8 0844 B Z77 Y59 1 1977 1859 65 573 5 40 BCE PUT,LITRSW,1 8 0852 B Z77 Y61 1 1977 1861 66 574 5 41 MZ ABBIT,CARD&34 7 0860 Y 113 034 113 034 66 575 5 42 B ACTUAL 4 0867 B 761 761 66 576 5 43 * 577 5 44 * PROCESS DA STATEMENTS 578 5 45 * 579 5 46 DA BCE ORIGDA,TYPE,0 8 0871 B 926 075 0 926 075 66 580 5 47 BCE TSTRPT,ACTSW,1 8 0879 B 910 Y67 1 910 1867 66 581 5 48 BTOADD C LABADD,SUPADD 7 0887 C 061 066 061 066 67 582 5 49 BL *&8 5 0894 B 906 T 906 67 583 5 50 MCW @005@,XR3 7 0899 M Y96 099 1896 099 67 584 5 51 B PRCADD 4 0906 B |03 1003 67 585 5 52 TSTRPT BCE PUT,TYPE,| 8 0910 B Z77 075 | 1977 075 67 586 5 53 B PROCLB 4 0918 B /09 1109 67 587 5 54 B PUT 4 0922 B Z77 1977 67 588 5 55 * 589 5 56 * DA HEADER 590 5 57 * 591 5 58 ORIGDA MCW @0@,INDFTR 7 0926 M Y92 Y69 1892 1869 68 592 5 59 A AINDEX,INDFTR 7 0933 A 027 Y69 027 1869 68 593 5 60 MCW @1@,DASW 7 0940 M Y93 Y68 1893 1868 68 594 5 61 MCW @0@,ACTSW 7 0947 M Y92 Y67 1892 1867 68 595 5 62 BCE BTOADD,AOPHO,* 8 0954 B 887 017 * 887 017 68 596 5 63 MCW @1@,ACTSW 7 0962 M Y93 Y67 1893 1867 69 597 5 64 B TSTRPT 4 0969 B 910 910 69 598 5 65 * 599 5 66 * ??? MISSING FROM LISTING IN CE MANUAL *** 600 5 67 * ??? MISSING FROM LISTING IN CE MANUAL *** 601 5 68 EXEND BWZ PUT,TYPE,B 8 0973 V Z77 075 B 1977 075 69 602 5 69 MCW @B@,BRANCH 7 0981 M Z04 X84 1904 1784 69 603 5 70 B WRITE 4 0988 B X67 1767 69 604 5 71 * 605 5 72 * PROCESS SUFFIX 606 5 73 * 607 5 74 SFX MCW AOPHO,SFXCTR 7 0992 M 017 L23 017 2323 69 608 5 75 B PUT 4 0999 B Z77 1977 70 609 5 76 * 610 5 77 * PROCESS ADDRESSES 611 5 78 * 612 5 79 PRCADD SBR ADDRTN&003 4 1003 H |89 1089 70 613 5 80 MCW @0@,ACTSW 7 1007 M Y92 Y67 1892 1867 70 614 5 81 BWZ LITTST,STLABL,K 8 1014 V |90 002 K 1090 002 70 615 5 82 TSTADD BWZ ADDRTN,STADDR,B 8 1022 V |86 003 B 1086 003 70 616 5 83 BCE ADDRTN,ADDRSW,1 8 1030 B |86 Y59 1 1086 1859 70 617 5 84 A ORGCTR,LABADD 7 1038 A Y53 061 1853 061 71 618 5 85 A ORGCTR,SUPADD 7 1045 A Y53 066 1853 066 71 619 5 86 C NOWCTR,LABADD&X3 7 1052 C Y48 0F1 1848 061*X3 71 620 5 87 BL *&008 5 1059 B |71 T 1071 71 621 5 88 ZA LABADD&X3,NOWCTR 7 1064 ? 0F1 Y48 061*X3 1848 71 622 5 89 BCE ADDRTN,LITRSW,1 8 1071 B |86 Y61 1 1086 1861 72 623 5 90 MZ ABBIT,STADDR 7 1079 Y 113 003 113 003 72 624 5 91 ADDRTN B XXXX 4 1086 B 000 000 72 625 5 92 LITTST MCW DSAPUT,LABRTN&003 7 1090 M Y72 S97 1872 1297 72 626 5 93 BCE LITRAL,TYPE,/ 8 1097 B T25 075 / 1325 075 72 627 5 94 B TSTADD 4 1105 B |22 1022 72 628 5 95 * 629 5 96 * PROCESS LABEL 630 5 97 * 631 5 98 PROCLB SBR LABRTN&003 4 1109 H S97 1297 73 632 5 99 BWZ *&005,STLABL,2 8 1113 V /25 002 2 1125 002 73 633 6 00 B LABRTN 4 1121 B S94 1294 73 634 6 01 BCE MRKPRC,LBLHO, 8 1125 B S80 008 1280 008 73 635 6 02 BCE BTOLBL,ACTSW,1 8 1133 B /57 Y67 1 1157 1867 73 636 6 03 BCE TSTDBL,LITRSW,1 8 1141 B S07 Y61 1 1207 1861 74 637 6 04 BCE TSTDBL,ADDRSW,1 8 1149 B S07 Y59 1 1207 1859 74 638 6 05 BTOLBL B DOLABL 4 1157 B T58 1358 74 639 6 06 B SEARCH 4 1161 B W29 1629 74 640 6 07 BCE DBLDEF,DBLSW,1 8 1165 B S98 Y64 1 1298 1864 74 641 6 08 BCE STORE,SPCSW,0 8 1173 B S69 Y63 0 1269 1863 75 642 6 09 * 643 6 10 * UNPROCESSED LABEL 644 6 11 * 645 6 12 UNPROC MCW @1@,UNPRSW 7 1181 M Y93 L94 1893 2394 75 646 6 13 A @1@,TOTLAB 7 1188 A Y93 L93 1893 2393 75 647 6 14 BCE SETSWL,TYPE,/ 8 1195 B S50 075 / 1250 075 75 648 6 15 B LABRTN 4 1203 B S94 1294 75 649 6 16 * 650 6 17 * SEARCH TABLE FOR DBL DEF LITERAL 651 6 18 * 652 6 19 TSTDBL BCE UNPROC,LBLHO,$ 8 1207 B /81 008 $ 1181 008 76 653 6 20 B DOLABL 4 1215 B T58 1358 76 654 6 21 B SEARCH 4 1219 B W29 1629 76 655 6 22 BCE UNPROC,DBLSW,0 8 1223 B /81 Y64 0 1181 1864 76 656 6 23 BCE UNPROC,ADDHO, 8 1231 B /81 M!0 1181 2400*X2 76 657 6 24 MZ BBIT,STLABL 7 1239 Y 112 002 112 002 76 658 6 25 B LABRTN 4 1246 B S94 1294 77 659 6 26 * 660 6 27 * UNPROCESSED LABEL OF LITERAL 661 6 28 * 662 6 29 SETSWL BCE LABRTN,LBLHO,$ 8 1250 B S94 008 $ 1294 008 77 663 6 30 MCW @11@,LITRSW 7 1258 M Z01 Y61 1901 1861 77 664 6 31 B LABRTN 4 1265 B S94 1294 77 665 6 32 * 666 6 33 * STORE LABEL IN TABLE 667 6 34 * 668 6 35 STORE LCA FNCTN,SYMBOL 7 1269 L L08 M!9 2308 2409*X2 77 669 6 36 LCA HOLDAD 4 1276 L Z12 1912 77 670 6 37 MRKPRC MZ ABBIT,STLABL 7 1280 Y 113 002 113 002 78 671 6 38 MCW @1@,PROCSW 7 1287 M Y93 L95 1893 2395 78 672 6 39 LABRTN B XXXX 4 1294 B 000 000 78 673 6 40 * 674 6 41 * DOUBLY DEFINED LABEL 675 6 42 * 676 6 43 DBLDEF BCE STORE,ADDHO, 8 1298 B S69 M!0 1269 2400*X2 78 677 6 44 MZ BBIT,STLABL 7 1306 Y 112 002 112 002 78 678 6 45 BCE LITRAL,TYPE,/ 8 1313 B T25 075 / 1325 075 79 679 6 46 B LABRTN 4 1321 B S94 1294 79 680 6 47 * 681 6 48 * DOUBLE DEFINED LITERAL 682 6 49 * 683 6 50 LITRAL BWZ LABRTN,STBOP,B 8 1325 V S94 004 B 1294 004 79 684 6 51 MCW @%@,TYPE 7 1333 M Z05 075 1905 075 79 685 6 52 S COUNT,ORGCTR 7 1340 S 007 Y53 007 1853 79 686 6 53 S COUNT,NOWCTR 7 1347 S 007 Y48 007 1848 80 687 6 54 B LABRTN 4 1354 B S94 1294 80 688 6 55 * 689 6 56 * SET UP LABEL & ADDRESS 690 6 57 * FOR TABLE SEARCH 691 6 58 * 692 6 59 DOLABL SBR DOLABR&003 4 1358 H U34 1434 80 693 6 60 MCW LABEL,FNCTN 7 1362 M 013 L08 013 2308 80 694 6 61 MCW CNVLAB,ARGUMT#3 7 1369 M 056 Z08 056 1908 80 695 6 62 SETFUN BCE *&5,FNCTN, 8 1376 B T88 L08 1388 2308 80 696 6 63 B *&8 4 1384 B T95 1395 81 697 6 64 MCW SFXCTR,FNCTN 7 1388 M L23 L08 2323 2308 81 698 6 65 MCW LABADD&X1,HOLDAD#004 7 1395 M 0W1 Z12 061*X1 1912 81 699 6 66 BCE DOINDX,HOADD&X1,0 8 1402 B U17 0V7 0 1417 057*X1 81 700 6 67 MZ ABIT,HOLDAD-003 7 1410 Y 111 Z09 111 1909 81 701 6 68 DOINDX MN INDFTR,*&004 7 1417 D Y69 U27 1869 1427 82 702 6 69 MZ ZONE,HOLDAD-001 7 1424 Y 113 Z11 113 1911 82 703 6 70 DOLABR B XXXX 4 1431 B 000 000 82 704 6 71 * 705 6 72 * PROCESS A OPERAND OF ORIGIN & EQUATE 706 6 73 * 707 6 74 SETAOP SBR AOPRTN&003 4 1435 H U87 1487 82 708 6 75 MCW &BRSRH,DOLABR&003 7 1439 M Z15 U34 1915 1434 82 709 6 76 MCW AOPER,FNCTN 7 1446 M 022 L08 022 2308 82 710 6 77 MCW AOP,ARGUMT 7 1453 M 070 Z08 070 1908 83 711 6 78 B SETFUN 4 1460 B T76 1376 83 712 6 79 BRSRH B SEARCH 4 1464 B W29 1629 83 713 6 80 BCE ADDBNK,DBLSW,1 8 1468 B V03 Y64 1 1503 1864 83 714 6 81 BCE STRBNK,SPCSW,0 8 1476 B U88 Y63 0 1488 1863 83 715 6 82 AOPRTN B XXXX 4 1484 B 000 000 83 716 6 83 * 717 6 84 * LABEL NOT IN TABLE, STORE 718 6 85 * WITH BLANK ADDRESS 719 6 86 * 720 6 87 STRBNK LCA FNCTN,SYMBOL 7 1488 L L08 M!9 2308 2409*X2 84 721 6 88 LCA @ @ 4 1495 L Z19 1919 84 722 6 89 B AOPRTN 4 1499 B U84 1484 84 723 6 90 * 724 6 91 * RETRIEVE VALUE FROM TABLE 725 6 92 * 726 6 93 ADDBNK BCE AOPRTN,ADDHO, 8 1503 B U84 M!0 1484 2400*X2 84 727 6 94 MCW @1@,ORGSW 7 1511 M Y93 Y66 1893 1866 84 728 6 95 BWZ *&5,LBLREF,2 8 1518 V V30 M!1 2 1530 2401*X2 84 729 6 96 B *&8 4 1526 B V37 1537 85 730 6 97 MZ ABIT,LBLREF 7 1530 Y 111 M!1 111 2401*X2 85 731 6 98 MCW ADDLO,LABADD 7 1537 M M!3 061 2403*X2 061 85 732 6 99 BCE AOPROC,LABADD-3,% 8 1544 B W18 058 % 1618 058 85 733 7 00 BWZ *&008,LABADD-003,2 8 1552 V V67 058 2 1567 058 85 734 7 01 MCW @1@,HOADD 7 1560 M Y93 057 1893 057 86 735 7 02 BCE AOPRTN,TYPE,O 8 1567 B U84 075 O 1484 075 86 736 7 03 * 737 7 04 * ADD CHARACTER ADJUSTMENT FOR EQUATE 738 7 05 * 739 7 06 MZ LABADD-001,SAVEZN#001 7 1575 Y 060 Z20 060 1920 86 740 7 07 A AOPADJ,LABADD 7 1582 A 026 061 026 061 86 741 7 08 MZ SAVEZN,LABADD-001 7 1589 Y Z20 060 1920 060 86 742 7 09 BCE AOPROC,AINDEX, 8 1596 B W18 027 1618 027 87 743 7 10 MN INDFTR,*&004 7 1604 D Y69 W14 1869 1614 87 744 7 11 MZ ZONE,LABADD-001 7 1611 Y 113 060 113 060 87 745 7 12 AOPROC MZ ABBIT,STAOP 7 1618 Y 113 001 113 001 87 746 7 13 B AOPRTN 4 1625 B U84 1484 87 747 7 14 * 748 7 15 * TABLE SEARCH 749 7 16 * 750 7 17 SEARCH SBR RETURN&003 4 1629 H X66 1766 87 751 7 18 MCW DBLSW&001,DBLSW 7 1633 M Y65 Y64 1865 1864 88 752 7 19 MCW TABMAX,MAXADD 7 1640 M L11 L14 2311 2314 88 753 7 20 MCW ARGUMT,XR2 7 1647 M Z08 094 1908 094 88 754 7 21 MCW SERCHS,MAXSER 7 1654 M L99 L22 2399 2322 88 755 7 22 TBLSRH C FNCTN,SYMBOL 7 1661 C L08 M!9 2308 2409*X2 88 756 7 23 BE SETDBL 5 1668 B X45 S 1745 89 757 7 24 BCE RETURN,SYMHO, 8 1673 B X63 M!4 1763 2404*X2 89 758 7 25 BUMP A @010@,XR2 7 1681 A Z23 094 1923 094 89 759 7 26 S @1@,MAXSER 7 1688 S Y93 L22 1893 2322 89 760 7 27 BM SETSPC,MAXSER 8 1695 V X56 L22 K 1756 2322 89 761 7 28 C XR2,MAXADD 7 1703 C 094 L14 094 2314 90 762 7 29 BU TBLSRH 5 1710 B W61 / 1661 90 763 7 30 BCE SETSPC,WRAPSW,1 8 1715 B X56 Y62 1 1756 1862 90 764 7 31 MCW @1@,WRAPSW 7 1723 M Y93 Y62 1893 1862 90 765 7 32 MCW ARGUMT,MAXADD 7 1730 M Z08 L14 1908 2314 90 766 7 33 S XR2&001 4 1737 S 095 095 90 767 7 34 B TBLSRH 4 1741 B W61 1661 91 768 7 35 * 769 7 36 * LABEL IN TABLE 770 7 37 * 771 7 38 SETDBL MCW @1@,DBLSW 7 1745 M Y93 Y64 1893 1864 91 772 7 39 B RETURN 4 1752 B X63 1763 91 773 7 40 * 774 7 41 * SPACE AVAILABLE 775 7 42 * 776 7 43 SETSPC MCW @1@,SPCSW 7 1756 M Y93 Y63 1893 1863 91 777 7 44 RETURN B XXXX 4 1763 B 000 000 91 778 7 45 * 779 7 46 * INPUT/OUTPUT - PASS C 780 7 47 * 781 7 48 WRITE WT COUTPT,TPAREA 8 1767 M %U6 I18 W 3918 91 782 7 49 NOP XXXX 4 1775 N 000 000 91 783 7 50 BER TPERR 5 1779 B !04 L 2004 92 784 7 51 BRANCH NOP FINAL 4 1784 N Y73 1873 92 785 7 52 READ S HOLDA 4 1788 S L31 2331 92 786 7 53 RT CINPUT,TPAREA 8 1792 M %U5 I18 R 3918 92 787 7 54 B CHKLGT 4 1800 B K08 2208 92 788 7 55 BER TPERR 5 1804 B !04 L 2004 92 789 7 56 B NXTREC 4 1809 B Z37 1937 92 790 7 57 * 791 7 58 * CLEAR TABLE AREA 792 7 59 * 793 7 60 CLRTAB MCW CLRMAX,CLEAR&003 7 1813 M K99 Y23 2299 1823 93 794 7 61 CLEAR CS XXXX 4 1820 / 000 000 93 795 7 62 SBR CLEAR&003 4 1824 H Y23 1823 93 796 7 63 C CLEAR&003,CLRMIN 7 1828 C Y23 L02 1823 2302 93 797 7 64 BU CLEAR 5 1835 B Y20 / 1820 93 798 7 65 B READ 4 1840 B X88 1788 93 799 7 66 NOWCTR DCW &00000 5 1848 93 800 7 67 ORGCTR DCW &00000 5 1853 94 801 7 68 HGHCTR DCW &00000 5 1858 94 802 7 69 ADDRSW DCW @0@ 1 1859 94 803 7 70 MAXSW DC @0@ 1 1860 94 804 7 71 LITRSW DC @0@ 1 1861 94 805 7 72 WRAPSW DCW @0@ 1 1862 94 806 7 73 SPCSW DC @0@ 1 1863 94 807 7 74 DBLSW DC @0@ 1 1864 94 808 7 75 DC @0@ 1 1865 94 809 7 76 ORGSW DCW @0@ 1 1866 94 810 7 77 ACTSW DCW @0@ 1 1867 94 811 7 78 DASW DCW @0@ 1 1868 94 812 7 79 INDFTR DCW @0@ 1 1869 95 813 7 80 DSAPUT DSA PUT 3 1872 Z77 95 814 7 81 * 815 7 82 * END OF PASS C, GET PASS D 816 7 83 * 817 7 84 FINAL WTM COUTPT 5 1873 U %U6 M 95 818 7 85 RWD CINPUT 5 1878 U %U5 R 95 819 7 86 RWD COUTPT 5 1883 U %U6 R 95 820 7 87 B RDPSSD 4 1888 B K47 2247 95 821 7 88 LTORG * 1892 DCW @0@ 1 1892 LIT 95 @1@ 1 1893 LIT 96 @005@ 3 1896 LIT 96 493 &AOPOR 3 1899 536 ADCON 96 @11@ 2 1901 LIT 96 &00 2 1903 LIT 96 @B@ 1 1904 LIT 96 @%@ 1 1905 LIT 96 694 ARGUMT #03 3 1908 AREA 97 698 HOLDAD #04 4 1912 AREA 97 708 &BRSRH 3 1915 U64 ADCON 97 @ @ 4 1919 LIT 97 739 SAVEZN #01 1 1920 AREA 97 @010@ 3 1923 LIT 97 822 7 89 ENDOFC DCW @}@ 1 1924 97 823 7 90 XFR LIBRN B 000 98 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 824 7 91 JOB AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 825 7 92 * 826 7 93 91 DCW @00000@ 5 0091 101 827 7 94 96 DCW @00000@ 5 0096 101 828 7 95 101 DCW @00000@ 5 0101 101 829 7 96 109 DCW @2SKB@ 4 0109 102 830 7 97 113 DCW @2SKB@ 4 0113 102 831 7 98 ORG ZONE&001 0114 832 7 99 * 833 8 00 * DETERMINE RECORD TYPE 834 8 01 * 835 8 02 MCW @0@,ASTRSW 7 0114 M U32 U18 1432 1418 102 836 8 03 BM PUT,CARD&005 8 0121 V Z77 005 K 1977 005 102 837 8 04 BCE PUT,TYPE,% 8 0129 B Z77 075 % 1977 075 102 838 8 05 MN TYPE,TYPEA#001 7 0137 D 075 U33 075 1433 102 839 8 06 BCE PRINST,TYPEA, 8 0144 B 196 U33 196 1433 103 840 8 07 BCE PRDSA,TYPEA,2 8 0152 B 318 U33 2 318 1433 103 841 8 08 BCE PROEND,TYPEA,3 8 0160 B 446 U33 3 446 1433 103 842 8 09 BCE PROSFX,TYPEA,4 8 0168 B S79 U33 4 1279 1433 103 843 8 10 BCE ORGEQU,TYPEA,6 8 0176 B 489 U33 6 489 1433 104 844 8 11 BCE ORGEQU,TYPEA,7 8 0184 B 489 U33 7 489 1433 104 845 8 12 B PUT 4 0192 B Z77 1977 104 846 8 13 * 847 8 14 * PROCESS INSTRUCTIONS 848 8 15 * 849 8 16 PRINST BWZ SETAST,STADDR,2 8 0196 V 208 003 2 208 003 104 850 8 17 B LOADDR 4 0204 B 215 215 104 851 8 18 SETAST MCW @1@,ASTRSW 7 0208 M U34 U18 1434 1418 104 852 8 19 * 853 8 20 * SET ASTERISK ADDRESS 854 8 21 * 855 8 22 LOADDR ZA LABADD,ASTADD#005 7 0215 ? 061 U39 061 1439 105 856 8 23 A COUNT,ASTADD 7 0222 A 007 U39 007 1439 105 857 8 24 S @1@,ASTADD 7 0229 S U34 U39 1434 1439 105 858 8 25 * 859 8 26 * TEST FOR A OPERAND 860 8 27 * 861 8 28 BCE PUT,COUNT,1 8 0236 B Z77 007 1 1977 007 105 862 8 29 BCE PUT,COUNT,2 8 0244 B Z77 007 2 1977 007 105 863 8 30 BWZ *&005,STAOP,2 8 0252 V 264 001 2 264 001 106 864 8 31 B SEEBOP 4 0260 B 268 268 106 865 8 32 B PROCOP 4 0264 B 578 578 106 866 8 33 * 867 8 34 * TEST FOR B OPERAND 868 8 35 * 869 8 36 SEEBOP BCE PUT,COUNT,4 8 0268 B Z77 007 4 1977 007 106 870 8 37 BCE PUT,COUNT,5 8 0276 B Z77 007 5 1977 007 106 871 8 38 BWZ *&005,STBOP,2 8 0284 V 296 004 2 296 004 107 872 8 39 B PUT 4 0292 B Z77 1977 107 873 8 40 MCW @003@,XR3 7 0296 M U42 099 1442 099 107 874 8 41 MCW @011@,XR1 7 0303 M U45 089 1445 089 107 875 8 42 B PROCOP 4 0310 B 578 578 107 876 8 43 B PUT 4 0314 B Z77 1977 107 877 8 44 * 878 8 45 * PROCESS DSA AND ADCON 879 8 46 * 880 8 47 PRDSA BWZ *&005,STADDR,2 8 0318 V 330 003 2 330 003 108 881 8 48 B TSTPRC 4 0326 B 434 434 108 882 8 49 MCW @1@,ASTRSW 7 0330 M U34 U18 1434 1418 108 883 8 50 SETDSA ZA LABADD,ASTADD 7 0337 ? 061 U39 061 1439 108 884 8 51 MCW @003@,XR3 7 0344 M U42 099 1442 099 108 885 8 52 MCW @011@,XR1 7 0351 M U45 089 1445 089 109 886 8 53 BWZ *&005,STBOP,2 8 0358 V 370 004 2 370 004 109 887 8 54 B PUT 4 0366 B Z77 1977 109 888 8 55 B PROCOP 4 0370 B 578 578 109 889 8 56 BWZ PUT,STBOP,2 8 0374 V Z77 004 2 1977 004 109 890 8 57 BCE CMP16K,AINDEX,- 8 0382 B 409 027 - 409 027 109 891 8 58 COMPRS MCW &PUT,OPRTN&3 7 0390 M U48 /78 1448 1178 110 892 8 59 BCE PUT,AOP&1,% 8 0397 B Z77 071 % 1977 071 110 893 8 60 B CNVTO3 4 0405 B |94 1094 110 894 8 61 * 895 8 62 * GET 16000 COMPLEMENT 896 8 63 * 897 8 64 CMP16K MCW &16000,FNCTN-001 7 0409 M U53 L07 1453 2307 110 898 8 65 S HOLDAR,FNCTN-001 7 0416 S U58 L07 1458 2307 110 899 8 66 ZA FNCTN-001,HOLDAR#005 7 0423 ? L07 U58 2307 1458 111 900 8 67 B COMPRS 4 0430 B 390 390 111 901 8 68 TSTPRC BWZ SETDSA,STBOP,2 8 0434 V 337 004 2 337 004 111 902 8 69 B PUT 4 0442 B Z77 1977 111 903 8 70 * 904 8 71 * PROCESS EX & END 905 8 72 * 906 8 73 PROEND S ASTADD 4 0446 S U39 1439 111 907 8 74 BWZ *&005,STAOP,2 8 0450 V 462 001 2 462 001 111 908 8 75 B *&005 4 0458 B 466 466 111 909 8 76 B PROCOP 4 0462 B 578 578 112 910 8 77 BCE ENDOPN,TYPE,3 8 0466 B 478 075 3 478 075 112 911 8 78 B PUT 4 0474 B Z77 1977 112 912 8 79 ENDOPN MCW @B@,BRNCH2 7 0478 M U59 X84 1459 1784 112 913 8 80 B PUT 4 0485 B Z77 1977 112 914 8 81 * 915 8 82 * PROCESS ORIGIN & EQUATE 916 8 83 * 917 8 84 ORGEQU BWZ *&005,STAOP,2 8 0489 V 501 001 2 501 001 112 918 8 85 B ORGOUT 4 0497 B 574 574 112 919 8 86 BCE ORGOUT,AOPHO, 8 0501 B 574 017 574 017 113 920 8 87 BWZ ORGOUT,AOPHO,2 8 0509 V 574 017 2 574 017 113 921 8 88 BCE ORGOUT,AOPHO,* 8 0517 B 574 017 * 574 017 113 922 8 89 BCE ORGOUT,AOPHO,% 8 0525 B 574 017 % 574 017 113 923 8 90 B PROCOP 4 0533 B 578 578 113 924 8 91 BWZ ORGOUT,STAOP,2 8 0537 V 574 001 2 574 001 114 925 8 92 MCW @0@,ITERSW 7 0545 M U32 U28 1432 1428 114 926 8 93 BCE *&008,TYPEA,7 8 0552 B 567 U33 7 567 1433 114 927 8 94 MZ BBIT,STAOP 7 0560 Y 112 001 112 001 114 928 8 95 MCW HOLDAR,LABADD 7 0567 M U58 061 1458 061 114 929 8 96 ORGOUT B PUT 4 0574 B Z77 1977 115 930 8 97 * 931 8 98 * PROCESS OPERAND SUB-ROUTINE 932 8 99 * 933 9 00 PROCOP SBR OPRTN&003 4 0578 H /78 1178 115 934 9 01 BWZ *&005,STAOP&X3,2 8 0582 V 594 0?1 2 594 001*X3 115 935 9 02 B OPRTN 4 0590 B /75 1175 115 936 9 03 BCE SETZRO,AOPHO&X1, 8 0594 B 942 0/7 942 017*X1 115 937 9 04 BCE PERCNT,AOPHO&X1,% 8 0602 B 950 0/7 % 950 017*X1 115 938 9 05 BWZ FLOAT,AOPHO&X1,2 8 0610 V S21 0/7 2 1221 017*X1 116 939 9 06 BCE PROAST,AOPHO&X1,* 8 0618 B /90 0/7 * 1190 017*X1 116 940 9 07 * 941 9 08 * CONVERT SYMBOL TO TABLE ADDRESS 942 9 09 * 943 9 10 CNVSYM BCE *&005,AOP-002&X3, 8 0626 B 638 0F8 638 068*X3 116 944 9 11 B SETSYM 4 0634 B 804 804 116 945 9 12 MCW AOPER&X1,W6AREA#006 7 0638 M 0S2 U65 022*X1 1465 116 946 9 13 BCE *&5,W6AREA, 8 0645 B 657 U65 657 1465 117 947 9 14 B *&8 4 0653 B 664 664 117 948 9 15 MCW SFXCTR,W6AREA 7 0657 M L23 U65 2323 1465 117 949 9 16 ZA &2,HOLD2#002 7 0664 ? U66 U68 1466 1468 117 950 9 17 ZA W6AREA-2,HOLD4#004 7 0671 ? U63 U72 1463 1472 117 951 9 18 A W6AREA,HOLD4 7 0678 A U65 U72 1465 1472 118 952 9 19 A W6AREA,HOLD4-002 7 0685 A U65 U70 1465 1470 118 953 9 20 MZ NOBIT,HOLD4 7 0692 Y 110 U72 110 1472 118 954 9 21 ZA FACTOR,HOLD7 7 0699 ? L88 U26 2388 1426 118 955 9 22 MPYLP MN HOLD7,HOLD1 7 0706 D U26 U27 1426 1427 118 956 9 23 ZA 1 0713 ? 118 957 9 24 MULT BCE NXTDGT,HOLD1,? 8 0714 B 740 U27 ? 740 1427 119 958 9 25 A HOLD4,HOLD7-002 7 0722 A U72 U24 1472 1424 119 959 9 26 S &1,HOLD1 7 0729 S U73 U27 1473 1427 119 960 9 27 B MULT 4 0736 B 714 714 119 961 9 28 NXTDGT S &1,HOLD2 7 0740 S U73 U68 1473 1468 119 962 9 29 BWZ MPYLP,HOLD2,B 8 0747 V 706 U68 B 706 1468 120 963 9 30 MCW @000@,AOP&X3 7 0755 M U76 0G0 1476 070*X3 120 964 9 31 BAV *&001 5 0762 B 767 Z 767 120 965 9 32 LOOP1 A &96,HOLD7-005 7 0767 A U78 U21 1478 1421 120 966 9 33 BAV LOOP1 5 0774 B 767 Z 767 120 967 9 34 MZ HOLD7-006,AOP&X3 7 0779 Y U20 0G0 1420 070*X3 120 968 9 35 MCW HOLD7-003 4 0786 M U23 1423 121 969 9 36 MN HOLD7-005,*&004 7 0790 D U21 800 1421 800 121 970 9 37 MZ ZONE2,AOP-002&X3 7 0797 Y 109 0F8 109 068*X3 121 971 9 38 * 972 9 39 * SYMBOLIC OPERAND 973 9 40 * 974 9 41 SETSYM MCW AOPER&X1,FNCTN 7 0804 M 0S2 L08 022*X1 2308 121 975 9 42 BCE *&005,FNCTN, 8 0811 B 823 L08 823 2308 121 976 9 43 B *&008 4 0819 B 830 830 121 977 9 44 MCW SFXCTR,FNCTN 7 0823 M L23 L08 2323 2308 122 978 9 45 MCW TABMAX,MAXADD 7 0830 M L11 L14 2311 2314 122 979 9 46 MCW @0@,SWICH1 7 0837 M U32 U19 1432 1419 122 980 9 47 MCW AOP&X3,XR2 7 0844 M 0G0 094 070*X3 094 122 981 9 48 MCW SERCHS,MAXSER 7 0851 M L99 L22 2399 2322 122 982 9 49 * 983 9 50 * TABLE SEARCH 984 9 51 * 985 9 52 SRHLOP C FNCTN,SYMBOL 7 0858 C L08 M!9 2308 2409*X2 123 986 9 53 BE RECALL 5 0865 B 980 S 980 123 987 9 54 BCE UNDEF,SYMHO, 8 0870 B 961 M!4 961 2404*X2 123 988 9 55 BUMPER A @010@,XR2 7 0878 A U81 094 1481 094 123 989 9 56 S @1@,MAXSER 7 0885 S U34 L22 1434 2322 123 990 9 57 BM UNDEF,MAXSER 8 0892 V 961 L22 K 961 2322 124 991 9 58 C XR2,MAXADD 7 0900 C 094 L14 094 2314 124 992 9 59 BU SRHLOP 5 0907 B 858 / 858 124 993 9 60 BCE UNDEF,SWICH1,1 8 0912 B 961 U19 1 961 1419 124 994 9 61 MCW @1@,SWICH1 7 0920 M U34 U19 1434 1419 124 995 9 62 MCW AOP&X3,MAXADD 7 0927 M 0G0 L14 070*X3 2314 125 996 9 63 S XR2&001 4 0934 S 095 095 125 997 9 64 B SRHLOP 4 0938 B 858 858 125 998 9 65 * 999 9 66 * BLANK OPERAND 1000 9 67 * 1001 9 68 SETZRO S HOLDAR 4 0942 S U58 1458 125 1002 9 69 B CHRADJ 4 0946 B |49 1049 125 1003 9 70 * 1004 9 71 * PERCENT OPERAND 1005 9 72 * 1006 9 73 PERCNT MCW AOPER-003&X1,AOP&X3 7 0950 M 0/9 0G0 019*X1 070*X3 125 1007 9 74 B MARK 4 0957 B /68 1168 125 1008 9 75 * 1009 9 76 * UNDEFINED OPERAND 1010 9 77 * 1011 9 78 UNDEF BCE OPRTN,ITERSW,0 8 0961 B /75 U28 0 1175 1428 126 1012 9 79 MCW @###@,AOP&X3 7 0969 M U84 0G0 1484 070*X3 126 1013 9 80 B OPRTN 4 0976 B /75 1175 126 1014 9 81 * 1015 9 82 * RETRIEVE VALUE FROM TABLE 1016 9 83 * 1017 9 84 RECALL BCE UNDEF,ADDHO, 8 0980 B 961 M!0 961 2400*X2 126 1018 9 85 BWZ *&5,LBLREF,2 8 0988 V |00 M!1 2 1000 2401*X2 126 1019 9 86 B *&8 4 0996 B |07 1007 126 1020 9 87 MZ ABIT,LBLREF 7 1000 Y 111 M!1 111 2401*X2 127 1021 9 88 MCW ADDLO,HOLDAR 7 1007 M M!3 U58 2403*X2 1458 127 1022 9 89 MCW @0@ 4 1014 M U32 1432 127 1023 9 90 BCE IOADD,HOLDAR-003,% 8 1018 B /79 U55 % 1179 1455 127 1024 9 91 BWZ *&008,HOLDAR-003,2 8 1026 V |41 U55 2 1041 1455 127 1025 9 92 MCW @1@,HOLDAR-4 7 1034 M U34 U54 1434 1454 128 1026 9 93 BCE TSTCNV,TYPEA,6 8 1041 B |78 U33 6 1078 1433 128 1027 9 94 * 1028 9 95 * ADD CHARACTER ADJUSTMENT 1029 9 96 * 1030 9 97 CHRADJ MZ HOLDAR-001,HOLDZN#001 7 1049 Y U57 U85 1457 1485 128 1031 9 98 BCE TSTCNV,AOPADJ-002&X1,X 8 1056 B |78 0S4 X 1078 024*X1 128 1032 9 99 A AOPADJ&X1,HOLDAR 7 1064 A 0S6 U58 026*X1 1458 128 1033 10 00 MZ HOLDZN,HOLDAR-001 7 1071 Y U85 U57 1485 1457 129 1034 10 01 TSTCNV BM MARK,TYPE 8 1078 V /68 075 K 1168 075 129 1035 10 02 BCE MARK,TYPEA,2 8 1086 B /68 U33 2 1168 1433 129 1036 10 03 * 1037 10 04 * CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR 1038 10 05 * 1039 10 06 CNVTO3 BAV *&001 5 1094 B |99 Z 1099 129 1040 10 07 A @96@,HOLDAR-003 7 1099 A U87 U55 1487 1455 129 1041 10 08 BAV CNVTO3&005 5 1106 B |99 Z 1099 130 1042 10 09 MZ HOLDAR-004,HOLDAR 7 1111 Y U54 U58 1454 1458 130 1043 10 10 MN HOLDAR-003,*&004 7 1118 D U55 /28 1455 1128 130 1044 10 11 MZ ZONE2,HOLDAR-002 7 1125 Y 109 U56 109 1456 130 1045 10 12 MZ HOLDZN,HOLDAR-001 7 1132 Y U85 U57 1485 1457 130 1046 10 13 BCE STRADD,AINDEX&X1, 8 1139 B /61 0S7 1161 027*X1 131 1047 10 14 MN AINDEX&X1,*&004 7 1147 D 0S7 /57 027*X1 1157 131 1048 10 15 MZ ZONE,HOLDAR-001 7 1154 Y 113 U57 113 1457 131 1049 10 16 STRADD MCW HOLDAR,AOP&X3 7 1161 M U58 0G0 1458 070*X3 131 1050 10 17 * 1051 10 18 * MARK OPERAND PROCESSING 1052 10 19 * 1053 10 20 MARK MZ ABBIT,STAOP&X3 7 1168 Y 113 0?1 113 001*X3 131 1054 10 21 OPRTN B XXXX 4 1175 B 000 000 132 1055 10 22 * 1056 10 23 * I/O ADDRESS IN TABLE 1057 10 24 * 1058 10 25 IOADD MCW HOLDAR-001,AOP&X3 7 1179 M U57 0G0 1457 070*X3 132 1059 10 26 B MARK 4 1186 B /68 1168 132 1060 10 27 * 1061 10 28 * ASTERISK OPERAND 1062 10 29 * 1063 10 30 PROAST BCE *&5,AOPER&X1, 8 1190 B S02 0S2 1202 022*X1 132 1064 10 31 B CNVSYM 4 1198 B 626 626 132 1065 10 32 BCE OPRTN,ASTRSW,1 8 1202 B /75 U18 1 1175 1418 132 1066 10 33 MCW ASTADD,HOLDAR 7 1210 M U39 U58 1439 1458 133 1067 10 34 B CHRADJ 4 1217 B |49 1049 133 1068 10 35 * 1069 10 36 * ACTUAL OPERAND - FLOAT TO 5 DIGITS 1070 10 37 * 1071 10 38 FLOAT BCE CNVSYM,AOPHO&X1,# 8 1221 B 626 0/7 # 626 017*X1 133 1072 10 39 BCE CNVSYM,AOPHO&X1,@ 8 1229 B 626 0/7 @ 626 017*X1 133 1073 10 40 BWZ *&005,AOPER-004&X1,2 8 1237 V S49 0/8 2 1249 018*X1 133 1074 10 41 B CNVSYM 4 1245 B 626 626 133 1075 10 42 ZA AOPER-001&X1,HOLDAR 7 1249 ? 0S1 U58 021*X1 1458 134 1076 10 43 REFLOT BCE *&005,HOLDAR,& 8 1256 B S68 U58 & 1268 1458 134 1077 10 44 B CHRADJ 4 1264 B |49 1049 134 1078 10 45 ZA HOLDAR-001,HOLDAR 7 1268 ? U57 U58 1457 1458 134 1079 10 46 B REFLOT 4 1275 B S56 1256 134 1080 10 47 * 1081 10 48 * PROCESS SUFFIX 1082 10 49 * 1083 10 50 PROSFX MCW AOPHO,SFXCTR 7 1279 M 017 L23 017 2323 134 1084 10 51 B PUT 4 1286 B Z77 1977 135 1085 10 52 * 1086 10 53 * INITIALIZE PASS D 1087 10 54 * 1088 10 55 PASSD SW GRPMK2-1 4 1290 , U30 1430 135 1089 10 56 RTW DINPUT,BYPRD 8 1294 L %U6 U29 R 1429 135 1090 10 57 CW GRPMK2-1 4 1302 ) U30 1430 135 1091 10 58 CS CARD&80 4 1306 / 080 080 135 1092 10 59 SW CARD&001,CARD&006 7 1310 , 001 006 001 006 135 1093 10 60 SW CARD&017,CARD&024 7 1317 , 017 024 017 024 135 1094 10 61 SW CARD&028,CARD&035 7 1324 , 028 035 028 035 136 1095 10 62 SW CARD&057,CARD&062 7 1331 , 057 062 057 062 136 1096 10 63 SW CARD&068,CARD&071 7 1338 , 068 071 068 071 136 1097 10 64 MCW BUMPOP,BUMPER 7 1345 M L27 878 2327 878 136 1098 10 65 MCW @6@,TPHALT&4 7 1352 M U88 J15 1488 2115 136 1099 10 66 MCW @6@,TPHLT2&4 7 1359 M U88 K01 1488 2201 137 1100 10 67 MCW @6@,TPHLT3&4 7 1366 M U88 J42 1488 2142 137 1101 10 68 MCW TPAD,WRITE2&006 7 1373 M L34 X73 2334 1773 137 1102 10 69 MCW TPAD,READ2&010 7 1380 M L34 X98 2334 1798 137 1103 10 70 MCW @ @,SFXCTR 7 1387 M U89 L23 1489 2323 137 1104 10 71 * 1105 10 72 * TEST LAST ITERATION 1106 10 73 * 1107 10 74 BCE LSTITR,PROCSW,0 8 1394 B U07 L95 0 1407 2395 138 1108 10 75 BCE 1 1402 B 138 1109 10 76 B READ2 4 1403 B X88 1788 138 1110 10 77 LSTITR MCW @1@,ITERSW 7 1407 M U34 U28 1434 1428 138 1111 10 78 B READ2 4 1414 B X88 1788 138 1112 10 79 ASTRSW DCW 0 1 1418 138 1113 10 80 SWICH1 DCW @0@ 1 1419 138 1114 10 81 HOLD7 DCW @ @ 7 1426 139 1115 10 82 HOLD1 DCW &0 1 1427 139 1116 10 83 ITERSW DCW @0@ 1 1428 139 1117 10 84 BYPRD DCW @ @ 1 1429 139 1118 10 85 GRPMK2 DC @} @ 2 1431 139 1119 10 86 SSOP EQU 1900 1900 1120 10 87 LTORG * 1432 DCW @0@ 1 1432 LIT 139 838 TYPEA #01 1 1433 AREA 139 @1@ 1 1434 LIT 139 855 ASTADD #05 5 1439 AREA 140 @003@ 3 1442 LIT 140 @011@ 3 1445 LIT 140 891 &PUT 3 1448 Z77 ADCON 140 &16000 5 1453 LIT 140 899 HOLDAR #05 5 1458 AREA 140 @B@ 1 1459 LIT 140 945 W6AREA #06 6 1465 AREA 141 &2 1 1466 LIT 141 949 HOLD2 #02 2 1468 AREA 141 950 HOLD4 #04 4 1472 AREA 141 &1 1 1473 LIT 141 @000@ 3 1476 LIT 141 &96 2 1478 LIT 141 @010@ 3 1481 LIT 142 @###@ 3 1484 LIT 142 1030 HOLDZN #01 1 1485 AREA 142 @96@ 2 1487 LIT 142 @6@ 1 1488 LIT 142 @ @ 1 1489 LIT 142 1121 10 88 * 1122 10 89 * INPUT/OUTPUT - PASS D 1123 10 90 * 1124 10 91 ORG WRITE 1767 1125 10 92 WRITE2 WT DOUTPT,TPAREA 8 1767 M %U5 I18 W 3918 143 1126 10 93 NOP XXXX 4 1775 N 000 000 143 1127 10 94 BER TPERR 5 1779 B !04 L 2004 143 1128 10 95 BRNCH2 NOP FINALD 4 1784 N Y13 1813 143 1129 10 96 READ2 S HOLDA 4 1788 S L31 2331 143 1130 10 97 RT DINPUT,TPAREA 8 1792 M %U6 I18 R 3918 143 1131 10 98 B CHKLGT 4 1800 B K08 2208 143 1132 10 99 BER TPERR 5 1804 B !04 L 2004 144 1133 11 00 B NXTREC 4 1809 B Z37 1937 144 1134 11 01 * 1135 11 02 FINALD WTM DOUTPT 5 1813 U %U5 M 144 1136 11 03 RWD DINPUT 5 1818 U %U6 R 144 1137 11 04 RWD DOUTPT 5 1823 U %U5 R 144 1138 11 05 RTW SYSTPE,333 8 1828 L %U1 333 R 333 144 1139 11 06 NOP XXXX 4 1836 N 000 000 144 1140 11 07 BER TPERR 5 1840 B !04 L 2004 145 1141 11 08 CW ENDOVL 4 1845 ) S45 1245 145 1142 11 09 MCW BUMPOP,TSTLST 7 1849 M L27 474 2327 474 145 1143 11 10 MCW BUMPOP,NOT 7 1856 M L27 726 2327 726 145 1144 11 11 B TSTREF 4 1863 B 333 333 145 1145 11 12 DCW @ @ 1 1867 145 1146 11 13 ENDOFD DCW @}@ 1 1868 145 1147 11 14 EX LIBRN B 000 146 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION A-ADDR B-ADDR TYPE CARD 1148 11 15 JOB AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 1149 11 16 * 1150 11 17 ORG 333 0333 1151 11 18 * 1152 11 19 * END OF PASS D 1153 11 20 * 1154 11 21 * PRINT LIST OF UNREFERENCED LABELS 1155 11 22 * 1156 11 23 TSTREF CS 0332 4 0333 / 332 332 149 1157 11 24 CS 1 0337 / 149 1158 11 25 S XR3&1 4 0338 S 100 100 149 1159 11 26 S 1 0342 S 149 1160 11 27 S 1 0343 S 149 1161 11 28 SW HEADSW#001 4 0344 , /80 1180 149 1162 11 29 NXTLBL BCE TSTLST,SYMHO, 8 0348 B 474 M!4 474 2404*X2 149 1163 11 30 BCE TSTLST,ADDHO, 8 0356 B 474 M!0 474 2400*X2 150 1164 11 31 BCE LOZNG,SYMHO,) 8 0364 B 530 M!4 ) 530 2404*X2 150 1165 11 32 C SYMHO,@A@ 7 0372 C M!4 /81 2404*X2 1181 150 1166 11 33 BH DOREF 5 0379 B 441 U 441 150 1167 11 34 C SYMHO,@Z@ 7 0384 C M!4 /82 2404*X2 1182 150 1168 11 35 BL DOREF 5 0391 B 441 T 441 151 1169 11 36 MN SYMHO,XR3 7 0396 D M!4 099 2404*X2 099 151 1170 11 37 BWZ SWTAB,SYMHO,B 8 0403 V 433 M!4 B 433 2404*X2 151 1171 11 38 A @010@,XR3 7 0411 A /85 099 1185 099 151 1172 11 39 BM SWTAB,SYMHO 8 0418 V 433 M!4 K 433 2404*X2 151 1173 11 40 A @010@,XR3 7 0426 A /85 099 1185 099 152 1174 11 41 SWTAB SW SORTAB&X3 4 0433 , /D8 1148*X3 152 1175 11 42 S XR3&2 4 0437 S 101 101 152 1176 11 43 DOREF BWZ *&5,LBLREF,2 8 0441 V 453 M!1 2 453 2401*X2 152 1177 11 44 B TSTLST 4 0449 B 474 474 152 1178 11 45 BW NEWPGE,HEADSW 8 0453 V 502 /80 1 502 1180 152 1179 11 46 DONEXT CW HEADSW 4 0461 ) /80 1180 152 1180 11 47 B PRINT 4 0465 B 538 538 153 1181 11 48 W 1 0469 2 153 1182 11 49 CS 216 4 0470 / 216 216 153 1183 11 50 TSTLST A @010@,XR2 7 0474 A /85 094 1185 094 153 1184 11 51 C XR2,TABMAX 7 0481 C 094 L11 094 2311 153 1185 11 52 BE DUMP 5 0488 B 646 S 646 153 1186 11 53 BCV NEWPGE 5 0493 B 502 @ 502 153 1187 11 54 B NXTLBL 4 0498 B 348 348 154 1188 11 55 NEWPGE CC 1 2 0502 F 1 154 1189 11 56 MCW @UNREFERENCED LABELS@,219 7 0504 M S04 219 1204 219 154 1190 11 57 CC T 2 0511 F T 154 1191 11 58 W 1 0513 2 154 1192 11 59 CS 0219 4 0514 / 219 219 154 1193 11 60 BW DONEXT,HEADSW 8 0518 V 461 /80 1 461 1180 154 1194 11 61 B NXTLBL 4 0526 B 348 348 155 1195 11 62 LOZNG SW LIST-1 4 0530 , /78 1178 155 1196 11 63 B DOREF 4 0534 B 441 441 155 1197 11 64 * 1198 11 65 * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABBLE 1199 11 66 * 1200 11 67 PRINT SBR PRTXT&3 4 0538 H 634 634 155 1201 11 68 MCW SYMBOL,206&X1 7 0542 M M!9 2|6 2409*X2 206*X1 155 1202 11 69 BCE DOIO,ADDHO,% 8 0549 B 635 M!0 % 635 2400*X2 155 1203 11 70 MN ADDLO,212&X1 7 0557 D M!3 2/2 2403*X2 212*X1 155 1204 11 71 MN 1 0564 D 156 1205 11 72 MN 1 0565 D 156 1206 11 73 MN 1 0566 D 156 1207 11 74 BWZ *&8,ADDHO,2 8 0567 V 582 M!0 2 582 2400*X2 156 1208 11 75 MCW @1@,208&X1 7 0575 M S05 2|8 1205 208*X1 156 1209 11 76 BWZ PRTXT,ADDLO-1,2 8 0582 V 631 M!2 2 631 2402*X2 156 1210 11 77 MN @1@,215&X1 7 0590 D S05 2/5 1205 215*X1 156 1211 11 78 MCW @&X@ 4 0597 M S07 1207 157 1212 11 79 BWZ PRTXT,ADDLO-1,S 8 0601 V 631 M!2 S 631 2402*X2 157 1213 11 80 MN @2@,215&X1 7 0609 D S08 2/5 1208 215*X1 157 1214 11 81 BWZ PRTXT,ADDLO-1,K 8 0616 V 631 M!2 K 631 2402*X2 157 1215 11 82 MN @3@,215&X1 7 0624 D S09 2/5 1209 215*X1 157 1216 11 83 PRTXT B XXXX 4 0631 B 000 000 157 1217 11 84 DOIO MCW ADDLO,212&X1 7 0635 M M!3 2/2 2403*X2 212*X1 158 1218 11 85 B PRTXT 4 0642 B 631 631 158 1219 11 86 * 1220 11 87 * PRINT SYMBOL TABLE 1221 11 88 * 1222 11 89 DUMP B NXTPGE 4 0646 B 859 859 158 1223 11 90 S XR3&1 4 0650 S 100 100 158 1224 11 91 S 1 0654 S 158 1225 11 92 S 1 0655 S 158 1226 11 93 NXTCTR SW ENDSW#1 4 0656 , S10 1210 158 1227 11 94 BW SCAN,SORTAB&1&X3 8 0660 V 687 /D9 1 687 1149*X3 159 1228 11 95 BMPXR3 BCE TSTEOJ,SORTAB&1&X3,@ 8 0668 B 888 /D9 @ 888 1149*X3 159 1229 11 96 A &1,XR3 7 0676 A S11 099 1211 099 159 1230 11 97 B NXTCTR 4 0683 B 656 656 159 1231 11 98 SCAN BCE BMPXR3,SORTAB&1&X3,! 8 0687 B 668 /D9 ! 668 1149*X3 159 1232 11 99 BCE BMPXR3,SORTAB&1&X3,| 8 0695 B 668 /D9 | 668 1149*X3 160 1233 12 00 BCE BMPXR3,SORTAB&1&X3,/ 8 0703 B 668 /D9 / 668 1149*X3 160 1234 12 01 MCW SORTAB&1&X3,TSTLBL&7 7 0711 M /D9 725 1149*X3 725 160 1235 12 02 TSTLBL BCE DOPNT,SYMHO,X 8 0718 B 777 M!4 X 777 2404*X2 160 1236 12 03 NOT A @010@,XR2 7 0726 A /85 094 1185 094 160 1237 12 04 C XR2,TABMAX 7 0733 C 094 L11 094 2311 161 1238 12 05 BU TSTLBL 5 0740 B 718 / 718 161 1239 12 06 S XR2&1 4 0745 S 095 095 161 1240 12 07 S 1 0749 S 161 1241 12 08 A &1,XR3 7 0750 A S11 099 1211 099 161 1242 12 09 CW ENDSW 4 0757 ) S10 1210 161 1243 12 10 BW PNTSYM,PNTSW 8 0761 V 812 S18 1 812 1218 161 1244 12 11 SW PNTSW 4 0769 , S18 1218 162 1245 12 12 B TSTESW 4 0773 B 847 847 162 1246 12 13 DOPNT BCE NOT,ADDHO, 8 0777 B 726 M!0 726 2400*X2 162 1247 12 14 B PRINT 4 0785 B 538 538 162 1248 12 15 SW PNTSW 4 0789 , S18 1218 162 1249 12 16 A @016@,XR1 7 0793 A S14 089 1214 089 162 1250 12 17 C XR1,@128@ 7 0800 C 089 S17 089 1217 162 1251 12 18 BU NOT 5 0807 B 726 / 726 163 1252 12 19 PNTSYM W 1 0812 2 163 1253 12 20 CW PNTSW#1 4 0813 ) S18 1218 163 1254 12 21 CS 332 4 0817 / 332 332 163 1255 12 22 CS 1 0821 / 163 1256 12 23 S XR1&1 4 0822 S 090 090 163 1257 12 24 BW *&9,ENDSW 8 0826 V 842 S10 1 842 1210 163 1258 12 25 BCE TSTEOJ,SORTAB&1&X3,@ 8 0834 B 888 /D9 @ 888 1149*X3 164 1259 12 26 BCV NXTPGE 5 0842 B 859 @ 859 164 1260 12 27 TSTESW BW NOT,ENDSW 8 0847 V 726 S10 1 726 1210 164 1261 12 28 B NXTCTR 4 0855 B 656 656 164 1262 12 29 NXTPGE SBR PGXT&3 4 0859 H 887 887 164 1263 12 30 CS 332 4 0863 / 332 332 164 1264 12 31 CS 1 0867 / 164 1265 12 32 CC 1 2 0868 F 1 165 1266 12 33 MCW @SYMBOL TABLE@,212 7 0870 M S30 212 1230 212 165 1267 12 34 W 1 0877 2 165 1268 12 35 CC K 2 0878 F K 165 1269 12 36 CS 212 4 0880 / 212 212 165 1270 12 37 PGXT B XXXX 4 0884 B 000 000 165 1271 12 38 TSTEOJ BW *&3,HEADSW 8 0888 V 898 /80 1 898 1180 165 1272 12 39 CC 1 2 0896 F 1 166 1273 12 391 CS 332 4 0898 / 332 332 166 1274 12 392 CHAIN 3 MACRO 1275 CS 1 0902 / GEN 166 1276 CS 1 0903 / GEN 166 1277 CS 1 0904 / GEN 166 1278 12 40 BCE EOJOB,ITERSW,1 8 0905 B 997 U28 1 997 1428 166 1279 12 41 * 1280 12 42 * GET PASS C 1281 12 43 * 1282 12 44 BSP SYSTPE 5 0913 U %U1 B 166 1283 12 45 BSP SYSTPE 5 0918 U %U1 B 167 1284 12 46 MCW @5@,TPHALT&4 7 0923 M S31 J15 1231 2115 167 1285 12 47 MCW @5@,TPHLT2&4 7 0930 M S31 K01 1231 2201 167 1286 12 48 MCW @5@,TPHLT3&4 7 0937 M S31 J42 1231 2142 167 1287 12 49 MCW @00@,PROCSW 7 0944 M S33 L95 1233 2395 167 1288 12 50 MCW @ @,SFXCTR 7 0951 M S34 L23 1234 2323 168 1289 12 51 * 1290 12 52 * SET NUMBER OF SEEKS FOR TABLE SEARCH 1291 12 53 * 1292 12 54 C TOTLAB,TABLSZ 7 0958 C L93 L18 2393 2318 168 1293 12 55 MCW TABLSZ,SERCHS 7 0965 M L18 L99 2318 2399 168 1294 12 56 S TOTLAB 4 0972 S L93 2393 168 1295 12 57 BE RDPSSC 5 0976 B K72 S 2272 168 1296 12 58 BH RDPSSC 5 0981 B K72 U 2272 168 1297 12 59 MCW &0009,SERCHS 7 0986 M S38 L99 1238 2399 169 1298 12 60 B RDPSSC 4 0993 B K72 2272 169 1299 12 61 * 1300 12 62 * LAST ITERATION, GET PASS C 1301 12 63 * 1302 12 64 EOJOB CW GRPMK2-1 4 0997 ) U30 1430 169 1303 12 65 CS 3999 4 1001 / I99 3999 169 1304 12 66 BCE READE,MACHSZ,3 8 1005 B |44 L89 3 1044 2389 169 1305 12 67 CS 4799 4 1013 / 79Z 4799 169 1306 12 68 CHAIN 7 MACRO 1307 CS 1 1017 / GEN 169 1308 CS 1 1018 / GEN 170 1309 CS 1 1019 / GEN 170 1310 CS 1 1020 / GEN 170 1311 CS 1 1021 / GEN 170 1312 CS 1 1022 / GEN 170 1313 CS 1 1023 / GEN 170 1314 12 681 CLR CS 3999 4 1024 / I99 3999 170 1315 12 682 SBR CLR&3 4 1028 H |27 1027 171 1316 12 683 C CLR&3,&SSOP-1 7 1032 C |27 S41 1027 1241 171 1317 12 684 BU CLR 5 1039 B |24 / 1024 171 1318 12 69 READE RTW SYSTPE,SSOP 8 1044 L %U1 Z00 R 1900 171 1319 12 70 BER SYSERR 5 1052 B |68 L 1068 171 1320 12 71 GOTOE MCW @N@,SSOP 7 1057 M S42 Z00 1242 1900 171 1321 12 72 B SSOP&1 4 1064 B Z01 1901 172 1322 12 73 SYSERR MCW &9,RDCT#1 7 1068 M S43 S44 1243 1244 172 1323 12 74 BSP SYSTPE 5 1075 U %U1 B 172 1324 12 75 RETRY RTW SYSTPE,SSOP 8 1080 L %U1 Z00 R 1900 172 1325 12 76 BER AGAIN 5 1088 B |97 L 1097 172 1326 12 77 B GOTOE 4 1093 B |57 1057 172 1327 12 78 AGAIN BSP SYSTPE 5 1097 U %U1 B 172 1328 12 79 S @1@,RDCT 7 1102 S S05 S44 1205 1244 173 1329 12 80 BWZ RETRY,RDCT,B 8 1109 V |80 S44 B 1080 1244 173 1330 12 81 H XXXX,691 7 1117 . 000 691 000 691 173 1331 12 82 RTW SYSTPE,SSOP 8 1124 L %U1 Z00 R 1900 173 1332 12 83 BSS SYSERR,E 5 1132 B |68 E 1068 173 1333 12 84 H XXXX,612 7 1137 . 000 612 000 612 174 1334 12 85 B GOTOE 4 1144 B |57 1057 174 1335 12 86 LIST DCW @ ABCDEFGHI!JKLMNOPQR|/STUVWXYZ)@@ 32 1179 175 1336 12 87 SORTAB EQU LIST-31 1148 1337 12 88 LTORG * 1180 1161 HEADSW DCW #01 1 1180 AREA 175 @A@ 1 1181 LIT 175 @Z@ 1 1182 LIT 175 @010@ 3 1185 LIT 175 1189 @UNREFERENCED LABELS@ 19 1204 LIT 176 @1@ 1 1205 LIT 176 @&X@ 2 1207 LIT 176 @2@ 1 1208 LIT 176 @3@ 1 1209 LIT 176 1226 ENDSW #01 1 1210 AREA 176 &1 1 1211 LIT 176 @016@ 3 1214 LIT 177 @128@ 3 1217 LIT 177 1253 PNTSW #01 1 1218 AREA 177 1266 @SYMBOL TABLE@ 12 1230 LIT 177 @5@ 1 1231 LIT 177 @00@ 2 1233 LIT 177 @ @ 1 1234 LIT 177 &0009 4 1238 LIT 178 1316 &SSOP-1 3 1241 Y99 ADCON 178 @N@ 1 1242 LIT 178 &9 1 1243 LIT 178 1322 RDCT #01 1 1244 AREA 178 1338 12 89 ENDOVL DCW @}@ 1 1245 178 1339 12 90 EX LIBRN B 000 179 1340 12 91 END LIBRN / 000 080 182 END OF ASSEMBLY IF EXTRA OUTPUT DESIRED, SET SENSE SWITCH F ON, AND B ON FOR CONDENSED CARDS C ON FOR LOADABLE TAPE 6 D ON FOR LISTING TAPE 3 E ON TO SUPPRESS LISTING G ON FOR NEW SOURCE DECK AND PRESS START IF NO EXTRA OUTPUT DESIRED, PRESS START