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 0 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION 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 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 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 4 156 1 56 BE WRITE 5 1932 B X67 S 4 157 1 57 NXTREC A &80,BLKCT 7 1937 A L36 L30 4 158 1 58 MCW BLKCT,XR3 7 1944 M L30 099 4 159 1 59 MOVEIN MCW INPUT,CARD&80 7 1951 M IA7 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 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 6 174 1 65 PUT MCW BLKCT,XR3 7 1977 M L30 099 6 175 1 66 MCW CARD&80,INPUT 7 1984 M 080 IA7 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 8 187 1 69 * 188 1 70 *TAPE REDUNDANCY ROUTINE 189 1 71 * 190 1 72 TPERR SBR XR1 4 2004 H 089 8 191 1 73 SBR REDXT&3 4 2008 H !76 8 192 1 74 MZ &9,XR1 7 2012 Y L37 089 8 193 1 75 MCW 4000-10&X1,TPINST&7 7 2019 M IZ0 !67 8 194 1 76 MN TPINST&3,BSP1&3 7 2026 D !63 !43 8 195 1 77 MCW TPINST&7,INST2&7 7 2033 M !67 J76 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 9 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 80 MCW &9,READCT#1 7 2053 M L37 L38 9 199 1 81 TPINST RT INITAP,XXXX 8 2060 M %U0 000 R 9 200 1 82 BER RDRERR 5 2068 B !77 L 10 201 1 83 REDXT B XXXX 4 2073 B 000 10 202 1 84 RDRERR MN TPINST&3,BSP2&3 7 2077 D !63 !87 10 203 1 85 BSP2 BSP INITAP 5 2084 U %U0 B 10 204 1 86 S &1,READCT 7 2089 S L39 L38 10 205 1 87 BWZ TPINST,READCT,B 8 2096 V !60 L38 B 10 206 1 88 MN TPINST&3,TPHALT&6 7 2104 D !63 J17 11 207 1 89 TPHALT H XXXX,590 7 2111 . 000 590 11 208 1 90 MCW TPINST&7,*&8 7 2118 M !67 J32 11 209 1 91 RT INITAP,XXXX 8 2125 M %U0 000 R 11 210 1 92 BSS BSP1,E 5 2133 B !40 E 11 211 1 93 TPHLT3 H XXXX,511 7 2138 . 000 511 12 212 1 94 B REDXT 4 2145 B !73 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 12 215 1 97 A &1,WRTCTR#2 7 2162 A L39 L41 12 216 1 98 INST2 WT INITAP,XXXX 8 2169 M %U0 000 W 12 217 1 99 BER BSP1 5 2177 B !40 L 13 218 2 00 B REDXT 4 2182 B !73 13 219 2 01 SUBCTR S WRTCTR 4 2186 S L41 13 220 2 02 MN TPINST&3,*&7 7 2190 D !63 K03 13 221 2 03 TPHLT2 H XXXX,560 7 2197 . 000 560 13 222 2 04 B INST2 4 2204 B J69 13 223 2 05 * 224 2 06 * CHECK FOR SHORT RECORDS 225 2 07 * 226 2 08 CHKLGT SBR XR1 4 2208 H 089 13 227 2 09 SBR LGTXT&3 4 2212 H K46 14 228 2 10 MZ &9,XR1 7 2216 Y L37 089 14 229 2 11 LGTCK BCE 4000-12&X1,LIMIT,} 8 2223 B IY8 I31 } 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 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 16 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 18 NOP XXXX 4 2255 N 000 16 249 2 19 BER TPERR 5 2259 B !04 L 16 250 2 20 CW ENDOFD 4 2264 ) Y68 16 251 2 21 B PASSD 4 2268 B S90 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 17 256 2 26 NOP XXXX 4 2280 N 000 17 257 2 27 BER TPERR 5 2284 B !04 L 17 258 2 28 CW ENDOFC 4 2289 ) Z24 17 259 2 29 B CLRTAB 4 2293 B Y13 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 DCW &9 1 2337 LIT 19 READCT DCW #01 1 2338 AREA 19 DCW &1 1 2339 LIT 19 WRTCTR DCW #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 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 293 2 63 CS 3999 4 2415 / I99 21 294 2 64 SW GRPMRK 4 2419 , Q74 21 295 2 65 LCA @00@,PROCSW 7 2423 L Q76 L95 21 296 2 66 LCA &0150,SERCHS 7 2430 L Q80 L99 21 297 2 67 LCA @0015@,FACTOR 7 2437 L Q84 L88 22 298 2 68 RTW SYSTPE,1 8 2444 L %U1 001 R 22 299 2 69 NOP XXXX 4 2452 N 000 22 300 2 70 BER TPERR 5 2456 B !04 L 22 301 2 71 CW ENDINT 4 2461 ) R09 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 22 306 2 76 A &3,KEEP1 7 2472 A Q86 Q85 23 307 2 77 MN KEEP1,*&004 7 2479 D Q85 M89 23 308 2 78 MZ ZONE2,*&007 7 2486 Y 109 M99 23 309 2 79 SETIO LCA GRPMRK,GPMRK3 7 2493 L Q74 I98 23 310 2 80 BWZ SETBMP,SETIO&006,2 8 2500 V P26 M99 2 23 311 2 81 CS 4799 4 2508 / 79Z 24 312 2 82 CS 4399 4 2512 / 39Z 24 313 2 83 MCW @#@,BUMP 7 2516 M Q87 W81 24 314 2 84 BCE SET8K,MACHSZ,4 8 2523 B O20 L89 4 24 315 2 85 * 316 2 86 * 12K CONSTANTS 317 2 87 * 318 2 88 MCW BLKG12,KBLKNG 7 2531 M Q60 L26 24 319 2 89 MCW TBSZ12,TABLSZ 7 2538 M Q64 L18 24 320 2 90 MCW TBLM12,TABMAX 7 2545 M Q67 L11 25 321 2 91 MCW TPAD12,TPAD 7 2552 M Q70 L34 25 322 2 92 MCW MDTP12,MDTP#003 7 2559 M Q73 Q90 25 323 2 93 A &72,FACTOR 7 2566 A Q92 L88 25 324 2 94 BCE SETTP,MACHSZ,5 8 2573 B O62 L89 5 25 325 2 95 * 326 2 96 * 16K CONSTANTS 327 2 97 * 328 2 98 A &400,TABLSZ 7 2581 A Q95 L18 26 329 2 99 A &40,FACTOR 7 2588 A Q97 L88 26 330 3 00 MZ ABBIT,TABMAX 7 2595 Y 113 L11 26 331 3 01 MZ ABBIT,TPAD 7 2602 Y 113 L34 26 332 3 02 MZ ABBIT,MDTP 7 2609 Y 113 Q90 26 333 3 03 B SETTP 4 2616 B O62 26 334 3 04 * 335 3 05 * 8K CONSTANTS 336 3 06 * 337 3 07 SET8K MCW BLKG8K,KBLKNG 7 2620 M Q44 L26 27 338 3 08 MCW TBSZ8K,TABLSZ 7 2627 M Q48 L18 27 339 3 09 MCW TBLM8K,TABMAX 7 2634 M Q51 L11 27 340 3 10 MCW TPAD8K,TPAD 7 2641 M Q54 L34 27 341 3 11 MCW MDTP8K,MDTP 7 2648 M Q57 Q90 27 342 3 12 A &36,FACTOR 7 2655 A Q99 L88 28 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 343 3 13 SETTP MZ TPAD,CLRMAX 7 2662 Y L34 K99 28 344 3 14 MCW MDTP,MOVEIN&003 7 2669 M Q90 Z54 28 345 3 15 MCW MDTP,PUT&013 7 2676 M Q90 Z90 28 346 3 16 MCW TPAD,WRITE&006 7 2683 M L34 X73 28 347 3 17 MCW TPAD,READ&010 7 2690 M L34 X98 29 348 3 18 MCW TPAD,LIMAD#3 7 2697 M L34 R02 29 349 3 19 MA &13,LIMAD ??? &013 ??? MACRO 350 SW LIMAD-2 4 2704 , R00 GEN 29 351 A &13,LIMAD 7 2708 A R04 R02 GEN 29 352 CW LIMAD-2 4 2715 ) R00 GEN 29 353 3 20 MCW LIMAD,LGTCK&6 7 2719 M R02 K29 29 354 3 21 SETBMP MCW BUMP,BUMPOP 7 2726 M W81 L27 30 355 3 22 LCA GRPMRK,ENDOFC 7 2733 L Q74 Z24 30 356 3 23 * 357 3 24 * WRITE PASS C CHECKPOINT ON 6 358 3 25 * 359 3 26 CS 80 4 2740 / 080 30 360 3 27 SW CARD&001,CARD&006 7 2744 , 001 006 30 361 3 28 SW CARD&017,CARD&024 7 2751 , 017 024 30 362 3 29 SW CARD&028,CARD&035 7 2758 , 028 035 30 363 3 30 SW CARD&057,CARD&062 7 2765 , 057 062 31 364 3 31 SW CARD&068,CARD&071 7 2772 , 068 071 31 365 3 32 WTW COUTPT,1 8 2779 L %U6 001 W 31 366 3 33 NOP XXXX 4 2787 N 000 31 367 3 34 BER TPERR 5 2791 B !04 L 31 368 3 35 CW ENDOFC,GRPMRK 7 2796 ) Z24 Q74 31 369 3 36 C TOTLAB,TABLSZ 7 2803 C L93 L18 32 370 3 37 MCW TABLSZ,SERCHS 7 2810 M L18 L99 32 371 3 38 S TOTLAB 4 2817 S L93 32 372 3 39 BE CLRTAB 5 2821 B Y13 S 32 373 3 40 BH CLRTAB 5 2826 B Y13 U 32 374 3 41 MCW &0009,SERCHS 7 2831 M R08 L99 32 375 3 42 B CLRTAB 4 2838 B Y13 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 GMARK 34 387 3 54 LTORG * 2875 DCW @00@ 2 2876 LIT 34 DCW &0150 4 2880 LIT 34 DCW @0015@ 4 2884 LIT 34 KEEP1 DCW #01 1 2885 AREA 34 DCW &3 1 2886 LIT 35 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @#@ 1 2887 LIT 35 MDTP DCW #03 3 2890 AREA 35 DCW &72 2 2892 LIT 35 DCW &400 3 2895 LIT 35 DCW &40 2 2897 LIT 35 DCW &36 2 2899 LIT 35 LIMAD DCW #03 3 2902 AREA 36 DCW &13 2 2904 LIT 36 DCW &0009 4 2908 LIT 36 388 3 55 ENDINT DCW @}@ 1 2909 GMARK 36 389 3 56 XFR LIBRN B 000 37 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION 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 45 413 3 80 BCE PUT,TYPE,% 8 0122 B Z77 075 % 45 414 3 81 BCE INSTR,TYPE, 8 0130 B 219 075 45 415 3 82 MN TYPE,XR2 7 0138 D 075 094 45 416 3 83 BCE DA,XR2,0 8 0145 B 871 094 0 45 417 3 84 MCW @0@,INDFTR 7 0153 M Y92 Y69 46 418 3 85 MCW @0@,DASW 7 0160 M Y92 Y68 46 419 3 86 A XR2 4 0167 A 094 46 420 3 87 A XR2 4 0171 A 094 46 421 3 88 B *&001&X2 4 0175 B 1P9 46 422 3 89 NOP XXXX 4 0179 N 000 46 423 3 90 B CONST 4 0183 B 260 46 424 3 91 B CONST 4 0187 B 260 47 425 3 92 B EXEND 4 0191 B 973 47 426 3 93 B SFX 4 0195 B 992 47 427 3 94 B PUT 4 0199 B Z77 47 428 3 95 B ORG 4 0203 B 376 47 429 3 96 B DS 4 0207 B 295 47 430 3 97 B PUT 4 0211 B Z77 47 431 3 98 B PUT 4 0215 B Z77 48 432 3 99 * 433 4 00 * PROCESS INSTRUCTIONS 434 4 01 * 435 4 02 INSTR MCW @0@,INDFTR 7 0219 M Y92 Y69 48 436 4 03 B PRCADD 4 0226 B |03 48 437 4 04 B PROCLB 4 0230 B /09 48 438 4 05 BWZ PUT,STADDR,2 8 0234 V Z77 003 2 48 439 4 06 A COUNT,NOWCTR 7 0242 A 007 Y48 48 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 440 4 07 S @1@,NOWCTR 7 0249 S Y93 Y48 49 441 4 08 B PUT 4 0256 B Z77 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 * 49 446 4 13 MCW @1@,ACTSW 7 0268 M Y93 Y67 49 447 4 14 B PROCLB 4 0275 B /09 49 448 4 15 B PUT 4 0279 B Z77 49 449 4 16 * 450 4 17 * CONSTANTDS WITH ASTERISK ADDRESS 451 4 18 * 452 4 19 PRCAST B PRCADD 4 0283 B |03 49 453 4 20 B PROCLB 4 0287 B /09 50 454 4 21 B PUT 4 0291 B Z77 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 % 50 459 4 26 A AINDEX,INDFTR 7 0303 A 027 Y69 50 460 4 27 BCE CONST,AOPHO,* 8 0310 B 260 017 * 50 461 4 28 BWZ CONST,AOPHO,2 8 0318 V 260 017 2 50 462 4 29 BWZ *&5,STAOP,2 8 0326 V 338 001 2 51 463 4 30 B CONST 4 0334 B 260 51 464 4 31 * 465 4 32 * EQUATE 466 4 33 * 467 4 34 B SETAOP 4 0338 B U35 51 468 4 35 MCW DSAPUT,LABRTN&003 7 0342 M Y72 S97 51 469 4 36 BWZ UNPROC,STAOP,2 8 0349 V /81 001 2 51 470 4 37 B CONST 4 0357 B 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 52 475 4 42 MCW @0@ 4 0368 M Y92 52 476 4 43 B CONST 4 0372 B 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 52 481 4 48 ZA LABADD,ORGADD 7 0384 ? 061 032 52 482 4 49 A @1@,ORGADD 7 0391 A Y93 032 52 483 4 50 MZ ABBIT,CARD&033 7 0398 Y 113 033 53 484 4 51 SETHGH BCE ORGSAV,MAXSW,1 8 0405 B 432 Y60 1 53 485 4 52 C NOWCTR,HGHCTR 7 0413 C Y48 Y58 53 486 4 53 BH ORGSAV 5 0420 B 432 U 53 487 4 54 ZA NOWCTR,HGHCTR 7 0425 ? Y48 Y58 53 488 4 55 * 489 4 56 * PROCESS SAVE COUNTER OF ORIGIN 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 490 4 57 * 491 4 58 ORGSAV BCE AOPOR,LBLHO, 8 0432 B 536 008 54 492 4 59 MCW @005@,XR1 7 0440 M Y96 089 54 493 4 60 MCW &AOPOR,LABRTN&003 7 0447 M Y99 S97 54 494 4 61 BWZ *&005,STLABL,2 8 0454 V 466 002 2 54 495 4 62 B AOPOR 4 0462 B 536 54 496 4 63 BCE STRSAV,SUPADD, 8 0466 B 502 066 55 497 4 64 BTOLAB B DOLABL 4 0474 B T58 55 498 4 65 B SEARCH 4 0478 B W29 55 499 4 66 BCE STORE,DBLSW,1 8 0482 B S69 Y64 1 55 500 4 67 BCE STORE,SPCSW,0 8 0490 B S69 Y63 0 55 501 4 68 B UNPROC 4 0498 B /81 55 502 4 69 STRSAV BCE UNPROC,ADDRSW,1 8 0502 B /81 Y59 1 56 503 4 70 BCE UNPROC,LITRSW,1 8 0510 B /81 Y61 1 56 504 4 71 MCW NOWCTR,SUPADD 7 0518 M Y48 066 56 505 4 72 A @1@,SUPADD 7 0525 A Y93 066 56 506 4 73 B BTOLAB 4 0532 B 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 57 511 4 78 B ACTUAL 4 0544 B 761 57 512 4 79 BCE ASTRSK,AOPHO,* 8 0548 B 708 017 * 57 513 4 80 MCW @0@,LITRSW 7 0556 M Y92 Y61 57 514 4 81 S NOWCTR 4 0563 S Y48 57 515 4 82 BCE BLKAOP,AOPHO, 8 0567 B 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 58 520 4 87 S XR1&001 4 0582 S 090 58 521 4 88 B SETAOP 4 0586 B U35 58 522 4 89 BCE SETORG,ORGSW,1 8 0590 B 609 Y66 1 58 523 4 90 SETSWS MCW @11@,MAXSW 7 0598 M Z01 Y60 58 524 4 91 B SCNTB&7 4 0605 B 813 58 525 4 92 SETORG MCW LABADD,ORGCTR 7 0609 M 061 Y53 59 526 4 93 RSTSWA MCW @0@,ADDRSW 7 0616 M Y92 Y59 59 527 4 94 BCE *&005,AOPADJ-002,X 8 0623 B 635 024 X 59 528 4 95 B AOPOUT 4 0631 B 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 * 59 533 5 00 C ORGCTR,&00 7 0643 C Y53 Z03 60 534 5 01 BE AOPOUT 5 0650 B 669 S 60 535 5 02 NXTCNT MCW &00,ORGCTR 7 0655 M Z03 Y53 60 536 5 03 A @1@,ORGCTR-002 7 0662 A Y93 Y51 60 537 5 04 AOPOUT A ORGCTR,ORGADD 7 0669 A Y53 032 60 538 5 05 ZA ORGCTR,LABADD 7 0676 ? Y53 061 61 539 5 06 ZA ORGADD,NOWCTR 7 0683 ? 032 Y48 61 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 540 5 07 S @1@,NOWCTR 7 0690 S Y93 Y48 61 541 5 08 MZ ABBIT,STAOP 7 0697 Y 113 001 61 542 5 09 B PUT 4 0704 B Z77 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 62 547 5 14 BCE SETSWS,LITRSW,1 8 0716 B 598 Y61 1 62 548 5 15 MCW NOWCTR,ORGCTR 7 0724 M Y48 Y53 62 549 5 16 B RSTSWA 4 0731 B 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 62 554 5 21 MCW HGHCTR,ORGCTR 7 0743 M Y58 Y53 63 555 5 22 A @1@,ORGCTR 7 0750 A Y93 Y53 63 556 5 23 B RSTSWA 4 0757 B 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 63 561 5 28 S @1@,NOWCTR 7 0768 S Y93 Y48 63 562 5 29 BCE TSTX00,AOPHO,* 8 0775 B 821 017 * 64 563 5 30 MCW @0@,LITRSW 7 0783 M Y92 Y61 64 564 5 31 BWZ SCNTB,AOPHO,2 8 0790 V 806 017 2 64 565 5 32 BWZ SETORG,STAOP,K 8 0798 V 609 001 K 64 566 5 33 SCNTB MCW @0@,ADDRSW 7 0806 M Y92 Y59 64 567 5 34 S ORGCTR 4 0813 S Y53 65 568 5 35 B PUT 4 0817 B Z77 65 569 5 36 TSTX00 BCE PUT,AOPADJ-002,X 8 0821 B Z77 024 X 65 570 5 37 BWZ PUT,CARD&034,B 8 0829 V Z77 034 B 65 571 5 38 A ORGCTR,ORGADD 7 0837 A Y53 032 65 572 5 39 BCE PUT,ADDRSW,1 8 0844 B Z77 Y59 1 65 573 5 40 BCE PUT,LITRSW,1 8 0852 B Z77 Y61 1 66 574 5 41 MZ ABBIT,CARD&34 7 0860 Y 113 034 66 575 5 42 B ACTUAL 4 0867 B 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 66 580 5 47 BCE TSTRPT,ACTSW,1 8 0879 B 910 Y67 1 66 581 5 48 BTOADD C LABADD,SUPADD 7 0887 C 061 066 67 582 5 49 BL *&8 5 0894 B 906 T 67 583 5 50 MCW @005@,XR3 7 0899 M Y96 099 67 584 5 51 B PRCADD 4 0906 B |03 67 585 5 52 TSTRPT BCE PUT,TYPE,| 8 0910 B Z77 075 | 67 586 5 53 B PROCLB 4 0918 B /09 67 587 5 54 B PUT 4 0922 B Z77 67 588 5 55 * 589 5 56 * DA HEADER 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 590 5 57 * 591 5 58 ORIGDA MCW @0@,INDFTR 7 0926 M Y92 Y69 68 592 5 59 A AINDEX,INDFTR 7 0933 A 027 Y69 68 593 5 60 MCW @1@,DASW 7 0940 M Y93 Y68 68 594 5 61 MCW @0@,ACTSW 7 0947 M Y92 Y67 68 595 5 62 BCE BTOADD,AOPHO,* 8 0954 B 887 017 * 68 596 5 63 MCW @1@,ACTSW 7 0962 M Y93 Y67 69 597 5 64 B TSTRPT 4 0969 B 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 69 602 5 69 MCW @B@,BRANCH 7 0981 M Z04 X84 69 603 5 70 B WRITE 4 0988 B X67 69 604 5 71 * 605 5 72 * PROCESS SUFFIX 606 5 73 * 607 5 74 SFX MCW AOPHO,SFXCTR 7 0992 M 017 L23 69 608 5 75 B PUT 4 0999 B Z77 70 609 5 76 * 610 5 77 * PROCESS ADDRESSES 611 5 78 * 612 5 79 PRCADD SBR ADDRTN&003 4 1003 H |89 70 613 5 80 MCW @0@,ACTSW 7 1007 M Y92 Y67 70 614 5 81 BWZ LITTST,STLABL,K 8 1014 V |90 002 K 70 615 5 82 TSTADD BWZ ADDRTN,STADDR,B 8 1022 V |86 003 B 70 616 5 83 BCE ADDRTN,ADDRSW,1 8 1030 B |86 Y59 1 70 617 5 84 A ORGCTR,LABADD 7 1038 A Y53 061 71 618 5 85 A ORGCTR,SUPADD 7 1045 A Y53 066 71 619 5 86 C NOWCTR,LABADD&X3 7 1052 C Y48 0F1 71 620 5 87 BL *&008 5 1059 B |71 T 71 621 5 88 ZA LABADD&X3,NOWCTR 7 1064 ? 0F1 Y48 71 622 5 89 BCE ADDRTN,LITRSW,1 8 1071 B |86 Y61 1 72 623 5 90 MZ ABBIT,STADDR 7 1079 Y 113 003 72 624 5 91 ADDRTN B XXXX 4 1086 B 000 72 625 5 92 LITTST MCW DSAPUT,LABRTN&003 7 1090 M Y72 S97 72 626 5 93 BCE LITRAL,TYPE,/ 8 1097 B T25 075 / 72 627 5 94 B TSTADD 4 1105 B |22 72 628 5 95 * 629 5 96 * PROCESS LABEL 630 5 97 * 631 5 98 PROCLB SBR LABRTN&003 4 1109 H S97 73 632 5 99 BWZ *&005,STLABL,2 8 1113 V /25 002 2 73 633 6 00 B LABRTN 4 1121 B S94 73 634 6 01 BCE MRKPRC,LBLHO, 8 1125 B S80 008 73 635 6 02 BCE BTOLBL,ACTSW,1 8 1133 B /57 Y67 1 73 636 6 03 BCE TSTDBL,LITRSW,1 8 1141 B S07 Y61 1 74 637 6 04 BCE TSTDBL,ADDRSW,1 8 1149 B S07 Y59 1 74 638 6 05 BTOLBL B DOLABL 4 1157 B T58 74 639 6 06 B SEARCH 4 1161 B W29 74 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 640 6 07 BCE DBLDEF,DBLSW,1 8 1165 B S98 Y64 1 74 641 6 08 BCE STORE,SPCSW,0 8 1173 B S69 Y63 0 75 642 6 09 * 643 6 10 * UNPROCESSED LABEL 644 6 11 * 645 6 12 UNPROC MCW @1@,UNPRSW 7 1181 M Y93 L94 75 646 6 13 A @1@,TOTLAB 7 1188 A Y93 L93 75 647 6 14 BCE SETSWL,TYPE,/ 8 1195 B S50 075 / 75 648 6 15 B LABRTN 4 1203 B S94 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 $ 76 653 6 20 B DOLABL 4 1215 B T58 76 654 6 21 B SEARCH 4 1219 B W29 76 655 6 22 BCE UNPROC,DBLSW,0 8 1223 B /81 Y64 0 76 656 6 23 BCE UNPROC,ADDHO, 8 1231 B /81 M!0 76 657 6 24 MZ BBIT,STLABL 7 1239 Y 112 002 76 658 6 25 B LABRTN 4 1246 B S94 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 $ 77 663 6 30 MCW @11@,LITRSW 7 1258 M Z01 Y61 77 664 6 31 B LABRTN 4 1265 B S94 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 77 669 6 36 LCA HOLDAD 4 1276 L Z12 77 670 6 37 MRKPRC MZ ABBIT,STLABL 7 1280 Y 113 002 78 671 6 38 MCW @1@,PROCSW 7 1287 M Y93 L95 78 672 6 39 LABRTN B XXXX 4 1294 B 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 78 677 6 44 MZ BBIT,STLABL 7 1306 Y 112 002 78 678 6 45 BCE LITRAL,TYPE,/ 8 1313 B T25 075 / 79 679 6 46 B LABRTN 4 1321 B S94 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 79 684 6 51 MCW @%@,TYPE 7 1333 M Z05 075 79 685 6 52 S COUNT,ORGCTR 7 1340 S 007 Y53 79 686 6 53 S COUNT,NOWCTR 7 1347 S 007 Y48 80 687 6 54 B LABRTN 4 1354 B S94 80 688 6 55 * 689 6 56 * SET UP LABEL & ADDRESS 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 690 6 57 * FOR TABLE SEARCH 691 6 58 * 692 6 59 DOLABL SBR DOLABR&003 4 1358 H U34 80 693 6 60 MCW LABEL,FNCTN 7 1362 M 013 L08 80 694 6 61 MCW CNVLAB,ARGUMT#3 7 1369 M 056 Z08 80 695 6 62 SETFUN BCE *&5,FNCTN, 8 1376 B T88 L08 80 696 6 63 B *&8 4 1384 B T95 81 697 6 64 MCW SFXCTR,FNCTN 7 1388 M L23 L08 81 698 6 65 MCW LABADD&X1,HOLDAD#004 7 1395 M 0W1 Z12 81 699 6 66 BCE DOINDX,HOADD&X1,0 8 1402 B U17 0V7 0 81 700 6 67 MZ ABIT,HOLDAD-003 7 1410 Y 111 Z09 81 701 6 68 DOINDX MN INDFTR,*&004 7 1417 D Y69 U27 82 702 6 69 MZ ZONE,HOLDAD-001 7 1424 Y 113 Z11 82 703 6 70 DOLABR B XXXX 4 1431 B 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 82 708 6 75 MCW &BRSRH,DOLABR&003 7 1439 M Z15 U34 82 709 6 76 MCW AOPER,FNCTN 7 1446 M 022 L08 82 710 6 77 MCW AOP,ARGUMT 7 1453 M 070 Z08 83 711 6 78 B SETFUN 4 1460 B T76 83 712 6 79 BRSRH B SEARCH 4 1464 B W29 83 713 6 80 BCE ADDBNK,DBLSW,1 8 1468 B V03 Y64 1 83 714 6 81 BCE STRBNK,SPCSW,0 8 1476 B U88 Y63 0 83 715 6 82 AOPRTN B XXXX 4 1484 B 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 84 721 6 88 LCA @ @ 4 1495 L Z19 84 722 6 89 B AOPRTN 4 1499 B U84 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 84 727 6 94 MCW @1@,ORGSW 7 1511 M Y93 Y66 84 728 6 95 BWZ *&5,LBLREF,2 8 1518 V V30 M!1 2 84 729 6 96 B *&8 4 1526 B V37 85 730 6 97 MZ ABIT,LBLREF 7 1530 Y 111 M!1 85 731 6 98 MCW ADDLO,LABADD 7 1537 M M!3 061 85 732 6 99 BCE AOPROC,LABADD-3,% 8 1544 B W18 058 % 85 733 7 00 BWZ *&008,LABADD-003,2 8 1552 V V67 058 2 85 734 7 01 MCW @1@,HOADD 7 1560 M Y93 057 86 735 7 02 BCE AOPRTN,TYPE,O 8 1567 B U84 075 O 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 86 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 740 7 07 A AOPADJ,LABADD 7 1582 A 026 061 86 741 7 08 MZ SAVEZN,LABADD-001 7 1589 Y Z20 060 86 742 7 09 BCE AOPROC,AINDEX, 8 1596 B W18 027 87 743 7 10 MN INDFTR,*&004 7 1604 D Y69 W14 87 744 7 11 MZ ZONE,LABADD-001 7 1611 Y 113 060 87 745 7 12 AOPROC MZ ABBIT,STAOP 7 1618 Y 113 001 87 746 7 13 B AOPRTN 4 1625 B U84 87 747 7 14 * 748 7 15 * TABLE SEARCH 749 7 16 * 750 7 17 SEARCH SBR RETURN&003 4 1629 H X66 87 751 7 18 MCW DBLSW&001,DBLSW 7 1633 M Y65 Y64 88 752 7 19 MCW TABMAX,MAXADD 7 1640 M L11 L14 88 753 7 20 MCW ARGUMT,XR2 7 1647 M Z08 094 88 754 7 21 MCW SERCHS,MAXSER 7 1654 M L99 L22 88 755 7 22 TBLSRH C FNCTN,SYMBOL 7 1661 C L08 M!9 88 756 7 23 BE SETDBL 5 1668 B X45 S 89 757 7 24 BCE RETURN,SYMHO, 8 1673 B X63 M!4 89 758 7 25 BUMP A @010@,XR2 7 1681 A Z23 094 89 759 7 26 S @1@,MAXSER 7 1688 S Y93 L22 89 760 7 27 BM SETSPC,MAXSER 8 1695 V X56 L22 K 89 761 7 28 C XR2,MAXADD 7 1703 C 094 L14 90 762 7 29 BU TBLSRH 5 1710 B W61 / 90 763 7 30 BCE SETSPC,WRAPSW,1 8 1715 B X56 Y62 1 90 764 7 31 MCW @1@,WRAPSW 7 1723 M Y93 Y62 90 765 7 32 MCW ARGUMT,MAXADD 7 1730 M Z08 L14 90 766 7 33 S XR2&001 4 1737 S 095 90 767 7 34 B TBLSRH 4 1741 B W61 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 91 772 7 39 B RETURN 4 1752 B X63 91 773 7 40 * 774 7 41 * SPACE AVAILABLE 775 7 42 * 776 7 43 SETSPC MCW @1@,SPCSW 7 1756 M Y93 Y63 91 777 7 44 RETURN B XXXX 4 1763 B 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 91 782 7 49 NOP XXXX 4 1775 N 000 91 783 7 50 BER TPERR 5 1779 B !04 L 92 784 7 51 BRANCH NOP FINAL 4 1784 N Y73 92 785 7 52 READ S HOLDA 4 1788 S L31 92 786 7 53 RT CINPUT,TPAREA 8 1792 M %U5 I18 R 92 787 7 54 B CHKLGT 4 1800 B K08 92 788 7 55 BER TPERR 5 1804 B !04 L 92 789 7 56 B NXTREC 4 1809 B Z37 92 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 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 93 794 7 61 CLEAR CS XXXX 4 1820 / 000 93 795 7 62 SBR CLEAR&003 4 1824 H Y23 93 796 7 63 C CLEAR&003,CLRMIN 7 1828 C Y23 L02 93 797 7 64 BU CLEAR 5 1835 B Y20 / 93 798 7 65 B READ 4 1840 B X88 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 95 821 7 88 LTORG * 1892 DCW @0@ 1 1892 LIT 95 DCW @1@ 1 1893 LIT 96 DCW @005@ 3 1896 LIT 96 DCW &AOPOR 3 1899 536 ADCON 96 DCW @11@ 2 1901 LIT 96 DCW &00 2 1903 LIT 96 DCW @B@ 1 1904 LIT 96 DCW @%@ 1 1905 LIT 96 ARGUMT DCW #03 3 1908 AREA 97 HOLDAD DCW #04 4 1912 AREA 97 DCW &BRSRH 3 1915 U64 ADCON 97 DCW @ @ 4 1919 LIT 97 SAVEZN DCW #01 1 1920 AREA 97 DCW @010@ 3 1923 LIT 97 822 7 89 ENDOFC DCW @}@ 1 1924 GMARK 97 823 7 90 XFR LIBRN B 000 98 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION 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 102 836 8 03 BM PUT,CARD&005 8 0121 V Z77 005 K 102 837 8 04 BCE PUT,TYPE,% 8 0129 B Z77 075 % 102 838 8 05 MN TYPE,TYPEA#001 7 0137 D 075 U33 102 839 8 06 BCE PRINST,TYPEA, 8 0144 B 196 U33 103 840 8 07 BCE PRDSA,TYPEA,2 8 0152 B 318 U33 2 103 841 8 08 BCE PROEND,TYPEA,3 8 0160 B 446 U33 3 103 842 8 09 BCE PROSFX,TYPEA,4 8 0168 B S79 U33 4 103 843 8 10 BCE ORGEQU,TYPEA,6 8 0176 B 489 U33 6 104 844 8 11 BCE ORGEQU,TYPEA,7 8 0184 B 489 U33 7 104 845 8 12 B PUT 4 0192 B Z77 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 104 850 8 17 B LOADDR 4 0204 B 215 104 851 8 18 SETAST MCW @1@,ASTRSW 7 0208 M U34 U18 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 105 856 8 23 A COUNT,ASTADD 7 0222 A 007 U39 105 857 8 24 S @1@,ASTADD 7 0229 S U34 U39 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 105 862 8 29 BCE PUT,COUNT,2 8 0244 B Z77 007 2 105 863 8 30 BWZ *&005,STAOP,2 8 0252 V 264 001 2 106 864 8 31 B SEEBOP 4 0260 B 268 106 865 8 32 B PROCOP 4 0264 B 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 106 870 8 37 BCE PUT,COUNT,5 8 0276 B Z77 007 5 106 871 8 38 BWZ *&005,STBOP,2 8 0284 V 296 004 2 107 872 8 39 B PUT 4 0292 B Z77 107 873 8 40 MCW @003@,XR3 7 0296 M U42 099 107 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 874 8 41 MCW @011@,XR1 7 0303 M U45 089 107 875 8 42 B PROCOP 4 0310 B 578 107 876 8 43 B PUT 4 0314 B Z77 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 108 881 8 48 B TSTPRC 4 0326 B 434 108 882 8 49 MCW @1@,ASTRSW 7 0330 M U34 U18 108 883 8 50 SETDSA ZA LABADD,ASTADD 7 0337 ? 061 U39 108 884 8 51 MCW @003@,XR3 7 0344 M U42 099 108 885 8 52 MCW @011@,XR1 7 0351 M U45 089 109 886 8 53 BWZ *&005,STBOP,2 8 0358 V 370 004 2 109 887 8 54 B PUT 4 0366 B Z77 109 888 8 55 B PROCOP 4 0370 B 578 109 889 8 56 BWZ PUT,STBOP,2 8 0374 V Z77 004 2 109 890 8 57 BCE CMP16K,AINDEX,- 8 0382 B 409 027 - 109 891 8 58 COMPRS MCW &PUT,OPRTN&3 7 0390 M U48 /78 110 892 8 59 BCE PUT,AOP&1,% 8 0397 B Z77 071 % 110 893 8 60 B CNVTO3 4 0405 B |94 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 110 898 8 65 S HOLDAR,FNCTN-001 7 0416 S U58 L07 110 899 8 66 ZA FNCTN-001,HOLDAR#005 7 0423 ? L07 U58 111 900 8 67 B COMPRS 4 0430 B 390 111 901 8 68 TSTPRC BWZ SETDSA,STBOP,2 8 0434 V 337 004 2 111 902 8 69 B PUT 4 0442 B Z77 111 903 8 70 * 904 8 71 * PROCESS EX & END 905 8 72 * 906 8 73 PROEND S ASTADD 4 0446 S U39 111 907 8 74 BWZ *&005,STAOP,2 8 0450 V 462 001 2 111 908 8 75 B *&005 4 0458 B 466 111 909 8 76 B PROCOP 4 0462 B 578 112 910 8 77 BCE ENDOPN,TYPE,3 8 0466 B 478 075 3 112 911 8 78 B PUT 4 0474 B Z77 112 912 8 79 ENDOPN MCW @B@,BRNCH2 7 0478 M U59 X84 112 913 8 80 B PUT 4 0485 B Z77 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 112 918 8 85 B ORGOUT 4 0497 B 574 112 919 8 86 BCE ORGOUT,AOPHO, 8 0501 B 574 017 113 920 8 87 BWZ ORGOUT,AOPHO,2 8 0509 V 574 017 2 113 921 8 88 BCE ORGOUT,AOPHO,* 8 0517 B 574 017 * 113 922 8 89 BCE ORGOUT,AOPHO,% 8 0525 B 574 017 % 113 923 8 90 B PROCOP 4 0533 B 578 113 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 924 8 91 BWZ ORGOUT,STAOP,2 8 0537 V 574 001 2 114 925 8 92 MCW @0@,ITERSW 7 0545 M U32 U28 114 926 8 93 BCE *&008,TYPEA,7 8 0552 B 567 U33 7 114 927 8 94 MZ BBIT,STAOP 7 0560 Y 112 001 114 928 8 95 MCW HOLDAR,LABADD 7 0567 M U58 061 114 929 8 96 ORGOUT B PUT 4 0574 B Z77 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 115 934 9 01 BWZ *&005,STAOP&X3,2 8 0582 V 594 0?1 2 115 935 9 02 B OPRTN 4 0590 B /75 115 936 9 03 BCE SETZRO,AOPHO&X1, 8 0594 B 942 0/7 115 937 9 04 BCE PERCNT,AOPHO&X1,% 8 0602 B 950 0/7 % 115 938 9 05 BWZ FLOAT,AOPHO&X1,2 8 0610 V S21 0/7 2 116 939 9 06 BCE PROAST,AOPHO&X1,* 8 0618 B /90 0/7 * 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 116 944 9 11 B SETSYM 4 0634 B 804 116 945 9 12 MCW AOPER&X1,W6AREA#006 7 0638 M 0S2 U65 116 946 9 13 BCE *&5,W6AREA, 8 0645 B 657 U65 117 947 9 14 B *&8 4 0653 B 664 117 948 9 15 MCW SFXCTR,W6AREA 7 0657 M L23 U65 117 949 9 16 ZA &2,HOLD2#002 7 0664 ? U66 U68 117 950 9 17 ZA W6AREA-2,HOLD4#004 7 0671 ? U63 U72 117 951 9 18 A W6AREA,HOLD4 7 0678 A U65 U72 118 952 9 19 A W6AREA,HOLD4-002 7 0685 A U65 U70 118 953 9 20 MZ NOBIT,HOLD4 7 0692 Y 110 U72 118 954 9 21 ZA FACTOR,HOLD7 7 0699 ? L88 U26 118 955 9 22 MPYLP MN HOLD7,HOLD1 7 0706 D U26 U27 118 956 9 23 ZA 1 0713 ? 118 957 9 24 MULT BCE NXTDGT,HOLD1,? 8 0714 B 740 U27 ? 119 958 9 25 A HOLD4,HOLD7-002 7 0722 A U72 U24 119 959 9 26 S &1,HOLD1 7 0729 S U73 U27 119 960 9 27 B MULT 4 0736 B 714 119 961 9 28 NXTDGT S &1,HOLD2 7 0740 S U73 U68 119 962 9 29 BWZ MPYLP,HOLD2,B 8 0747 V 706 U68 B 120 963 9 30 MCW @000@,AOP&X3 7 0755 M U76 0G0 120 964 9 31 BAV *&001 5 0762 B 767 Z 120 965 9 32 LOOP1 A &96,HOLD7-005 7 0767 A U78 U21 120 966 9 33 BAV LOOP1 5 0774 B 767 Z 120 967 9 34 MZ HOLD7-006,AOP&X3 7 0779 Y U20 0G0 120 968 9 35 MCW HOLD7-003 4 0786 M U23 121 969 9 36 MN HOLD7-005,*&004 7 0790 D U21 800 121 970 9 37 MZ ZONE2,AOP-002&X3 7 0797 Y 109 0F8 121 971 9 38 * 972 9 39 * SYMBOLIC OPERAND 973 9 40 * 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 974 9 41 SETSYM MCW AOPER&X1,FNCTN 7 0804 M 0S2 L08 121 975 9 42 BCE *&005,FNCTN, 8 0811 B 823 L08 121 976 9 43 B *&008 4 0819 B 830 121 977 9 44 MCW SFXCTR,FNCTN 7 0823 M L23 L08 122 978 9 45 MCW TABMAX,MAXADD 7 0830 M L11 L14 122 979 9 46 MCW @0@,SWICH1 7 0837 M U32 U19 122 980 9 47 MCW AOP&X3,XR2 7 0844 M 0G0 094 122 981 9 48 MCW SERCHS,MAXSER 7 0851 M L99 L22 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 123 986 9 53 BE RECALL 5 0865 B 980 S 123 987 9 54 BCE UNDEF,SYMHO, 8 0870 B 961 M!4 123 988 9 55 BUMPER A @010@,XR2 7 0878 A U81 094 123 989 9 56 S @1@,MAXSER 7 0885 S U34 L22 123 990 9 57 BM UNDEF,MAXSER 8 0892 V 961 L22 K 124 991 9 58 C XR2,MAXADD 7 0900 C 094 L14 124 992 9 59 BU SRHLOP 5 0907 B 858 / 124 993 9 60 BCE UNDEF,SWICH1,1 8 0912 B 961 U19 1 124 994 9 61 MCW @1@,SWICH1 7 0920 M U34 U19 124 995 9 62 MCW AOP&X3,MAXADD 7 0927 M 0G0 L14 125 996 9 63 S XR2&001 4 0934 S 095 125 997 9 64 B SRHLOP 4 0938 B 858 125 998 9 65 * 999 9 66 * BLANK OPERAND 1000 9 67 * 1001 9 68 SETZRO S HOLDAR 4 0942 S U58 125 1002 9 69 B CHRADJ 4 0946 B |49 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 125 1007 9 74 B MARK 4 0957 B /68 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 126 1012 9 79 MCW @###@,AOP&X3 7 0969 M U84 0G0 126 1013 9 80 B OPRTN 4 0976 B /75 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 126 1018 9 85 BWZ *&5,LBLREF,2 8 0988 V |00 M!1 2 126 1019 9 86 B *&8 4 0996 B |07 126 1020 9 87 MZ ABIT,LBLREF 7 1000 Y 111 M!1 127 1021 9 88 MCW ADDLO,HOLDAR 7 1007 M M!3 U58 127 1022 9 89 MCW @0@ 4 1014 M U32 127 1023 9 90 BCE IOADD,HOLDAR-003,% 8 1018 B /79 U55 % 127 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1024 9 91 BWZ *&008,HOLDAR-003,2 8 1026 V |41 U55 2 127 1025 9 92 MCW @1@,HOLDAR-4 7 1034 M U34 U54 128 1026 9 93 BCE TSTCNV,TYPEA,6 8 1041 B |78 U33 6 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 128 1031 9 98 BCE TSTCNV,AOPADJ-002&X1,X 8 1056 B |78 0S4 X 128 1032 9 99 A AOPADJ&X1,HOLDAR 7 1064 A 0S6 U58 128 1033 10 00 MZ HOLDZN,HOLDAR-001 7 1071 Y U85 U57 129 1034 10 01 TSTCNV BM MARK,TYPE 8 1078 V /68 075 K 129 1035 10 02 BCE MARK,TYPEA,2 8 1086 B /68 U33 2 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 129 1040 10 07 A @96@,HOLDAR-003 7 1099 A U87 U55 129 1041 10 08 BAV CNVTO3&005 5 1106 B |99 Z 130 1042 10 09 MZ HOLDAR-004,HOLDAR 7 1111 Y U54 U58 130 1043 10 10 MN HOLDAR-003,*&004 7 1118 D U55 /28 130 1044 10 11 MZ ZONE2,HOLDAR-002 7 1125 Y 109 U56 130 1045 10 12 MZ HOLDZN,HOLDAR-001 7 1132 Y U85 U57 130 1046 10 13 BCE STRADD,AINDEX&X1, 8 1139 B /61 0S7 131 1047 10 14 MN AINDEX&X1,*&004 7 1147 D 0S7 /57 131 1048 10 15 MZ ZONE,HOLDAR-001 7 1154 Y 113 U57 131 1049 10 16 STRADD MCW HOLDAR,AOP&X3 7 1161 M U58 0G0 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 131 1054 10 21 OPRTN B XXXX 4 1175 B 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 132 1059 10 26 B MARK 4 1186 B /68 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 132 1064 10 31 B CNVSYM 4 1198 B 626 132 1065 10 32 BCE OPRTN,ASTRSW,1 8 1202 B /75 U18 1 132 1066 10 33 MCW ASTADD,HOLDAR 7 1210 M U39 U58 133 1067 10 34 B CHRADJ 4 1217 B |49 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 # 133 1072 10 39 BCE CNVSYM,AOPHO&X1,@ 8 1229 B 626 0/7 @ 133 1073 10 40 BWZ *&005,AOPER-004&X1,2 8 1237 V S49 0/8 2 133 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1074 10 41 B CNVSYM 4 1245 B 626 133 1075 10 42 ZA AOPER-001&X1,HOLDAR 7 1249 ? 0S1 U58 134 1076 10 43 REFLOT BCE *&005,HOLDAR,& 8 1256 B S68 U58 & 134 1077 10 44 B CHRADJ 4 1264 B |49 134 1078 10 45 ZA HOLDAR-001,HOLDAR 7 1268 ? U57 U58 134 1079 10 46 B REFLOT 4 1275 B S56 134 1080 10 47 * 1081 10 48 * PROCESS SUFFIX 1082 10 49 * 1083 10 50 PROSFX MCW AOPHO,SFXCTR 7 1279 M 017 L23 134 1084 10 51 B PUT 4 1286 B Z77 135 1085 10 52 * 1086 10 53 * INITIALIZE PASS D 1087 10 54 * 1088 10 55 PASSD SW GRPMK2-1 4 1290 , U30 135 1089 10 56 RTW DINPUT,BYPRD 8 1294 L %U6 U29 R 135 1090 10 57 CW GRPMK2-1 4 1302 ) U30 135 1091 10 58 CS CARD&80 4 1306 / 080 135 1092 10 59 SW CARD&001,CARD&006 7 1310 , 001 006 135 1093 10 60 SW CARD&017,CARD&024 7 1317 , 017 024 135 1094 10 61 SW CARD&028,CARD&035 7 1324 , 028 035 136 1095 10 62 SW CARD&057,CARD&062 7 1331 , 057 062 136 1096 10 63 SW CARD&068,CARD&071 7 1338 , 068 071 136 1097 10 64 MCW BUMPOP,BUMPER 7 1345 M L27 878 136 1098 10 65 MCW @6@,TPHALT&4 7 1352 M U88 J15 136 1099 10 66 MCW @6@,TPHLT2&4 7 1359 M U88 K01 137 1100 10 67 MCW @6@,TPHLT3&4 7 1366 M U88 J42 137 1101 10 68 MCW TPAD,WRITE2&006 7 1373 M L34 X73 137 1102 10 69 MCW TPAD,READ2&010 7 1380 M L34 X98 137 1103 10 70 MCW @ @,SFXCTR 7 1387 M U89 L23 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 138 1108 10 75 BCE 1 1402 B 138 1109 10 76 B READ2 4 1403 B X88 138 1110 10 77 LSTITR MCW @1@,ITERSW 7 1407 M U34 U28 138 1111 10 78 B READ2 4 1414 B X88 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 TYPEA DCW #01 1 1433 AREA 139 DCW @1@ 1 1434 LIT 139 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD ASTADD DCW #05 5 1439 AREA 140 DCW @003@ 3 1442 LIT 140 DCW @011@ 3 1445 LIT 140 DCW &PUT 3 1448 Z77 ADCON 140 DCW &16000 5 1453 LIT 140 HOLDAR DCW #05 5 1458 AREA 140 DCW @B@ 1 1459 LIT 140 W6AREA DCW #06 6 1465 AREA 141 DCW &2 1 1466 LIT 141 HOLD2 DCW #02 2 1468 AREA 141 HOLD4 DCW #04 4 1472 AREA 141 DCW &1 1 1473 LIT 141 DCW @000@ 3 1476 LIT 141 DCW &96 2 1478 LIT 141 DCW @010@ 3 1481 LIT 142 DCW @###@ 3 1484 LIT 142 HOLDZN DCW #01 1 1485 AREA 142 DCW @96@ 2 1487 LIT 142 DCW @6@ 1 1488 LIT 142 DCW @ @ 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 143 1126 10 93 NOP XXXX 4 1775 N 000 143 1127 10 94 BER TPERR 5 1779 B !04 L 143 1128 10 95 BRNCH2 NOP FINALD 4 1784 N Y13 143 1129 10 96 READ2 S HOLDA 4 1788 S L31 143 1130 10 97 RT DINPUT,TPAREA 8 1792 M %U6 I18 R 143 1131 10 98 B CHKLGT 4 1800 B K08 143 1132 10 99 BER TPERR 5 1804 B !04 L 144 1133 11 00 B NXTREC 4 1809 B Z37 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 144 1139 11 06 NOP XXXX 4 1836 N 000 144 1140 11 07 BER TPERR 5 1840 B !04 L 145 1141 11 08 CW ENDOVL 4 1845 ) S45 145 1142 11 09 MCW BUMPOP,TSTLST 7 1849 M L27 474 145 1143 11 10 MCW BUMPOP,NOT 7 1856 M L27 726 145 1144 11 11 B TSTREF 4 1863 B 333 145 1145 11 12 DCW @ @ 1 1867 145 1146 11 13 ENDOFD DCW @}@ 1 1868 GMARK 145 1147 11 14 EX LIBRN B 000 146 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION 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 149 1157 11 24 CS 1 0337 / 149 1158 11 25 S XR3&1 4 0338 S 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 149 1162 11 29 NXTLBL BCE TSTLST,SYMHO, 8 0348 B 474 M!4 149 1163 11 30 BCE TSTLST,ADDHO, 8 0356 B 474 M!0 150 1164 11 31 BCE LOZNG,SYMHO,) 8 0364 B 530 M!4 ) 150 1165 11 32 C SYMHO,@A@ 7 0372 C M!4 /81 150 1166 11 33 BH DOREF 5 0379 B 441 U 150 1167 11 34 C SYMHO,@Z@ 7 0384 C M!4 /82 150 1168 11 35 BL DOREF 5 0391 B 441 T 151 1169 11 36 MN SYMHO,XR3 7 0396 D M!4 099 151 1170 11 37 BWZ SWTAB,SYMHO,B 8 0403 V 433 M!4 B 151 1171 11 38 A @010@,XR3 7 0411 A /85 099 151 1172 11 39 BM SWTAB,SYMHO 8 0418 V 433 M!4 K 151 1173 11 40 A @010@,XR3 7 0426 A /85 099 152 1174 11 41 SWTAB SW SORTAB&X3 4 0433 , /D8 152 1175 11 42 S XR3&2 4 0437 S 101 152 1176 11 43 DOREF BWZ *&5,LBLREF,2 8 0441 V 453 M!1 2 152 1177 11 44 B TSTLST 4 0449 B 474 152 1178 11 45 BW NEWPGE,HEADSW 8 0453 V 502 /80 1 152 1179 11 46 DONEXT CW HEADSW 4 0461 ) /80 152 1180 11 47 B PRINT 4 0465 B 538 153 1181 11 48 W 1 0469 2 153 1182 11 49 CS 216 4 0470 / 216 153 1183 11 50 TSTLST A @010@,XR2 7 0474 A /85 094 153 1184 11 51 C XR2,TABMAX 7 0481 C 094 L11 153 1185 11 52 BE DUMP 5 0488 B 646 S 153 1186 11 53 BCV NEWPGE 5 0493 B 502 @ 153 1187 11 54 B NXTLBL 4 0498 B 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 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 154 1193 11 60 BW DONEXT,HEADSW 8 0518 V 461 /80 1 154 1194 11 61 B NXTLBL 4 0526 B 348 155 1195 11 62 LOZNG SW LIST-1 4 0530 , /78 155 1196 11 63 B DOREF 4 0534 B 441 155 1197 11 64 * 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1198 11 65 * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABBLE 1199 11 66 * 1200 11 67 PRINT SBR PRTXT&3 4 0538 H 634 155 1201 11 68 MCW SYMBOL,206&X1 7 0542 M M!9 2|6 155 1202 11 69 BCE DOIO,ADDHO,% 8 0549 B 635 M!0 % 155 1203 11 70 MN ADDLO,212&X1 7 0557 D M!3 2/2 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 156 1208 11 75 MCW @1@,208&X1 7 0575 M S05 2|8 156 1209 11 76 BWZ PRTXT,ADDLO-1,2 8 0582 V 631 M!2 2 156 1210 11 77 MN @1@,215&X1 7 0590 D S05 2/5 156 1211 11 78 MCW @&X@ 4 0597 M S07 157 1212 11 79 BWZ PRTXT,ADDLO-1,S 8 0601 V 631 M!2 S 157 1213 11 80 MN @2@,215&X1 7 0609 D S08 2/5 157 1214 11 81 BWZ PRTXT,ADDLO-1,K 8 0616 V 631 M!2 K 157 1215 11 82 MN @3@,215&X1 7 0624 D S09 2/5 157 1216 11 83 PRTXT B XXXX 4 0631 B 000 157 1217 11 84 DOIO MCW ADDLO,212&X1 7 0635 M M!3 2/2 158 1218 11 85 B PRTXT 4 0642 B 631 158 1219 11 86 * 1220 11 87 * PRINT SYMBOL TABLE 1221 11 88 * 1222 11 89 DUMP B NXTPGE 4 0646 B 859 158 1223 11 90 S XR3&1 4 0650 S 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 158 1227 11 94 BW SCAN,SORTAB&1&X3 8 0660 V 687 /D9 1 159 1228 11 95 BMPXR3 BCE TSTEOJ,SORTAB&1&X3,@ 8 0668 B 888 /D9 @ 159 1229 11 96 A &1,XR3 7 0676 A S11 099 159 1230 11 97 B NXTCTR 4 0683 B 656 159 1231 11 98 SCAN BCE BMPXR3,SORTAB&1&X3,! 8 0687 B 668 /D9 ! 159 1232 11 99 BCE BMPXR3,SORTAB&1&X3,| 8 0695 B 668 /D9 | 160 1233 12 00 BCE BMPXR3,SORTAB&1&X3,/ 8 0703 B 668 /D9 / 160 1234 12 01 MCW SORTAB&1&X3,TSTLBL&7 7 0711 M /D9 725 160 1235 12 02 TSTLBL BCE DOPNT,SYMHO,X 8 0718 B 777 M!4 X 160 1236 12 03 NOT A @010@,XR2 7 0726 A /85 094 160 1237 12 04 C XR2,TABMAX 7 0733 C 094 L11 161 1238 12 05 BU TSTLBL 5 0740 B 718 / 161 1239 12 06 S XR2&1 4 0745 S 095 161 1240 12 07 S 1 0749 S 161 1241 12 08 A &1,XR3 7 0750 A S11 099 161 1242 12 09 CW ENDSW 4 0757 ) S10 161 1243 12 10 BW PNTSYM,PNTSW 8 0761 V 812 S18 1 161 1244 12 11 SW PNTSW 4 0769 , S18 162 1245 12 12 B TSTESW 4 0773 B 847 162 1246 12 13 DOPNT BCE NOT,ADDHO, 8 0777 B 726 M!0 162 1247 12 14 B PRINT 4 0785 B 538 162 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1248 12 15 SW PNTSW 4 0789 , S18 162 1249 12 16 A @016@,XR1 7 0793 A S14 089 162 1250 12 17 C XR1,@128@ 7 0800 C 089 S17 162 1251 12 18 BU NOT 5 0807 B 726 / 163 1252 12 19 PNTSYM W 1 0812 2 163 1253 12 20 CW PNTSW#1 4 0813 ) S18 163 1254 12 21 CS 332 4 0817 / 332 163 1255 12 22 CS 1 0821 / 163 1256 12 23 S XR1&1 4 0822 S 090 163 1257 12 24 BW *&9,ENDSW 8 0826 V 842 S10 1 163 1258 12 25 BCE TSTEOJ,SORTAB&1&X3,@ 8 0834 B 888 /D9 @ 164 1259 12 26 BCV NXTPGE 5 0842 B 859 @ 164 1260 12 27 TSTESW BW NOT,ENDSW 8 0847 V 726 S10 1 164 1261 12 28 B NXTCTR 4 0855 B 656 164 1262 12 29 NXTPGE SBR PGXT&3 4 0859 H 887 164 1263 12 30 CS 332 4 0863 / 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 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 165 1270 12 37 PGXT B XXXX 4 0884 B 000 165 1271 12 38 TSTEOJ BW *&3,HEADSW 8 0888 V 898 /80 1 165 1272 12 39 CC 1 2 0896 F 1 166 1273 12 391 CS 332 4 0898 / 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 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 167 1285 12 47 MCW @5@,TPHLT2&4 7 0930 M S31 K01 167 1286 12 48 MCW @5@,TPHLT3&4 7 0937 M S31 J42 167 1287 12 49 MCW @00@,PROCSW 7 0944 M S33 L95 167 1288 12 50 MCW @ @,SFXCTR 7 0951 M S34 L23 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 168 1293 12 55 MCW TABLSZ,SERCHS 7 0965 M L18 L99 168 1294 12 56 S TOTLAB 4 0972 S L93 168 1295 12 57 BE RDPSSC 5 0976 B K72 S 168 1296 12 58 BH RDPSSC 5 0981 B K72 U 168 1297 12 59 MCW &0009,SERCHS 7 0986 M S38 L99 169 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1298 12 60 B RDPSSC 4 0993 B K72 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 169 1303 12 65 CS 3999 4 1001 / I99 169 1304 12 66 BCE READE,MACHSZ,3 8 1005 B |44 L89 3 169 1305 12 67 CS 4799 4 1013 / 79Z 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 170 1315 12 682 SBR CLR&3 4 1028 H |27 171 1316 12 683 C CLR&3,&SSOP-1 7 1032 C |27 S41 171 1317 12 684 BU CLR 5 1039 B |24 / 171 1318 12 69 READE RTW SYSTPE,SSOP 8 1044 L %U1 Z00 R 171 1319 12 70 BER SYSERR 5 1052 B |68 L 171 1320 12 71 GOTOE MCW @N@,SSOP 7 1057 M S42 Z00 171 1321 12 72 B SSOP&1 4 1064 B Z01 172 1322 12 73 SYSERR MCW &9,RDCT#1 7 1068 M S43 S44 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 172 1325 12 76 BER AGAIN 5 1088 B |97 L 172 1326 12 77 B GOTOE 4 1093 B |57 172 1327 12 78 AGAIN BSP SYSTPE 5 1097 U %U1 B 172 1328 12 79 S @1@,RDCT 7 1102 S S05 S44 173 1329 12 80 BWZ RETRY,RDCT,B 8 1109 V |80 S44 B 173 1330 12 81 H XXXX,691 7 1117 . 000 691 173 1331 12 82 RTW SYSTPE,SSOP 8 1124 L %U1 Z00 R 173 1332 12 83 BSS SYSERR,E 5 1132 B |68 E 173 1333 12 84 H XXXX,612 7 1137 . 000 612 174 1334 12 85 B GOTOE 4 1144 B |57 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 HEADSW DCW #01 1 1180 AREA 175 DCW @A@ 1 1181 LIT 175 DCW @Z@ 1 1182 LIT 175 DCW @010@ 3 1185 LIT 175 DCW @UNREFERENCED LABELS@ 19 1204 LIT 176 DCW @1@ 1 1205 LIT 176 DCW @&X@ 2 1207 LIT 176 DCW @2@ 1 1208 LIT 176 DCW @3@ 1 1209 LIT 176 ENDSW DCW #01 1 1210 AREA 176 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &1 1 1211 LIT 176 DCW @016@ 3 1214 LIT 177 DCW @128@ 3 1217 LIT 177 PNTSW DCW #01 1 1218 AREA 177 DCW @SYMBOL TABLE@ 12 1230 LIT 177 DCW @5@ 1 1231 LIT 177 DCW @00@ 2 1233 LIT 177 DCW @ @ 1 1234 LIT 177 DCW &0009 4 1238 LIT 178 DCW &SSOP-1 3 1241 Y99 ADCON 178 DCW @N@ 1 1242 LIT 178 DCW &9 1 1243 LIT 178 RDCT DCW #01 1 1244 AREA 178 1338 12 89 ENDOVL DCW @}@ 1 1245 GMARK 178 1339 12 90 EX LIBRN B 000 179 1340 12 91 END LIBRN / 000 080 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 29 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ABBIT 113 ABIT 111 ACTSW 1867 ACTUAL 761 ADDBNK 1503 ADDHO 2400+X2 ADDLO 2403+X2 ADDRSW 1859 ADDRTN 1086 AGAIN 1097 AINDEX 27 ANAL 114 AOP 70 AOPADJ 26 AOPER 22 AOPHO 17 AOPOR 536 AOPOUT 669 AOPROC 1618 AOPRTN 1484 ARGUMT 1908 ASTADD 1439 ASTRSK 708 ASTRSW 1418 BBIT 112 BLKAOP 735 BLKCT 2330 BLKG12 2860 BLKG8K 2844 BMPXR3 668 BRANCH 1784 BRNCH2 1784 BRSRH 1464 BSP1 2040 BSP2 2084 BTOADD 887 BTOLAB 474 BTOLBL 1157 BUMP 1681 BUMPER 878 BUMPOP 2327 BYPRD 1429 CARD 0 CHKLGT 2208 CHRADJ 1049 CINPUT %U5 CLEAR 1820 CLR 1024 CLRMAX 2299 CLRMIN 2302 CLRTAB 1813 CMP16K 409 CNVLAB 56 CNVSYM 626 CNVTO3 1094 COMPRS 390 CONST 260 COUNT 7 COUTPT %U6 DA 871 DASW 1868 DBLDEF 1298 DBLSW 1864 DINPUT %U6 DOINDX 1417 DOIO 635 DOLABL 1358 DOLABR 1431 DONEXT 461 DOPNT 777 DOREF 441 DOUTPT %U5 DS 295 DSAPUT 1872 DUMP 646 ENDINT 2909 ENDOFC 1924 ENDOFD 1868 ENDOPN 478 ENDOVL 1245 ENDSW 1210 EOJOB 997 EXEND 973 FACTOR 2388 FINAL 1873 FINALD 1813 FLOAT 1221 FNCTN 2308 GET 1925 GOTOE 1057 GPMRK3 3998 GRPMK2 1431 GRPMRK 2874 HEADSW 1180 HGHCTR 1858 HOADD 57 HOLD1 1427 HOLD2 1468 HOLD4 1472 HOLD7 1426 HOLDA 2331 HOLDAD 1912 HOLDAR 1458 HOLDZN 1485 INDFTR 1869 INITAP %U0 INPUT 3917+X3 INST2 2169 INSTR 219 IOADD 1179 ITERSW 1428 KBLKNG 2326 KEEP1 2885 LABADD 61 LABEL 13 LABRTN 1294 LBLHO 8 LBLREF 2401+X2 LGTCK 2223 LGTXT 2243 LIBRN 0 LIMAD 2902 LIMIT 3931 LIST 1179 LITRAL 1325 LITRSW 1861 LITTST 1090 LOADDR 215 LOOP1 767 LOZNG 530 LSTITR 1407 MACHSZ 2389 MARK 1168 MAXADD 2314 MAXSER 2322 MAXSW 1860 MDTP 2890 MDTP12 2873 MDTP8K 2857 MOVEIN 1951 MPYLP 706 MRKPRC 1280 MULT 714 NEWPGE 502 NOBIT 110 NOT 726 NOWCTR 1848 NXTCNT 655 NXTCTR 656 NXTDGT 740 NXTLBL 348 NXTPGE 859 NXTREC 1937 OPRTN 1175 ORG 376 ORGADD 32 ORGCTR 1853 ORGEQU 489 ORGOUT 574 ORGSAV 432 ORGSW 1866 ORIGDA 926 PASSD 1290 PERCNT 950 PGXT 884 PNTSW 1218 PNTSYM 812 PRCADD 1003 PRCAST 283 PRDSA 318 PRINST 196 PRINT 538 PROAST 1190 PROCLB 1109 PROCOP 578 PROCSW 2395 PROCTU 361 PROEND 446 PROSFX 1279 PRTXT 631 PUT 1977 RDCT 1244 RDPSSC 2272 RDPSSD 2247 RDRERR 2077 READ 1788 READ2 1788 READCT 2338 READE 1044 RECALL 980 REDXT 2073 REFLOT 1256 RETRY 1080 RETURN 1763 RSTSWA 616 SAVETP %U4 SAVEZN 1920 SCAN 687 SCNTB 806 SEARCH 1629 SEEBOP 268 SERCHS 2399 SET8K 2620 SETAOP 1435 SETAST 208 SETBMP 2726 SETDBL 1745 SETDSA 337 SETFUN 1376 SETHGH 405 SETIO 2493 SETORG 609 SETSPC 1756 SETSWL 1250 SETSWS 598 SETSYM 804 SETTP 2662 SETZRO 942 SFX 992 SFXCTR 2323 SORTAB 1148 SPCSW 1863 SRHLOP 858 SSOP 1900 STADDR 3 STAOP 1 STBOP 4 STLABL 2 STORE 1269 STRADD 1161 STRBNK 1488 STRSAV 502 SUBCTR 2186 SUPADD 66 SWICH1 1419 SWTAB 433 SYMBOL 2409+X2 SYMHO 2404+X2 SYSERR 1068 SYSTPE %U1 TABLE 2409 TABLSZ 2318 TABMAX 2311 TBLM12 2867 TBLM8K 2851 TBLSRH 1661 TBSZ12 2864 TBSZ8K 2848 TOTLAB 2393 TPAD 2334 TPAD12 2870 TPAD8K 2854 TPAREA 3918 TPERR 2004 TPHALT 2111 TPHLT2 2197 TPHLT3 2138 TPINST 2060 TSTADD 1022 TSTCNV 1078 TSTDBL 1207 TSTEOJ 888 TSTESW 847 TSTLBL 718 TSTLST 474 TSTPRC 434 TSTREF 333 TSTRPT 910 TSTX00 821 TYPE 75 TYPEA 1433 UNDEF 961 UNPROC 1181 UNPRSW 2394 W6AREA 1465 WRAPSW 1862 WRITE 1767 WRITE2 1767 WRTCTR 2341 WRTRED 2149 XR1 89 XR2 94 XR3 99 XXXX 0 ZONE 113 ZONE2 109