CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL -VERSION 3 3731L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 003 JOB 1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL -VERSION 3 102 1 02 CTL 630 1 103 1 03 * 104 1 04 *EQUATES 105 1 05 * 106 1 06 INTAPE EQU %U6 %U6 107 1 07 OUTAPE EQU %U4 %U4 108 1 08 SYSTAP EQU %U1 %U1 109 1 09 INITAP EQU %U0 %U0 110 1 10 XXXX EQU 0000 0000 111 1 11 PRINT EQU 200 0200 112 1 12 LIBRN EQU 000 0000 113 1 13 * 114 1 14 *TAPE REDUNDANCY ROUTINE 115 1 15 * 116 1 16 ORG RTEND&1 2210 117 1 17 TPERR SBR XL3 4 2210 H 099 4 118 1 18 SBR REDXT&3 4 2214 H K82 4 119 1 19 MZ &9,XL3 7 2218 Y M60 099 4 120 1 20 MCW 4000-10&X3,TPINS&7 BRING IN INSTRUCTION 7 2225 M II0 K73 4 121 1 21 MN TPINS&3,BSP1&3 THAT CAUSED 7 2232 D K69 K49 4 122 1 22 MCW TPINS&7,INST2&7 REDUNDANCY 7 2239 M K73 L82 4 123 1 23 BSP1 BSP INITAP BACKSPACE TAPE 5 2246 U %U0 B 5 124 1 24 BCE WRTRD,TPINS&7,W Q. WRITE REDUNDANCY 8 2251 B L55 K73 W 5 125 1 25 MCW &9,RDCT#1 INITIALIZE COUNTER 7 2259 M M60 M61 5 126 1 26 TPINS RT INITAP,XXXX RE-READ 8 2266 M %U0 000 R 5 127 1 27 BER RDERR Q. REDUNDANCY AGAIN 5 2274 B K83 L 5 128 1 28 REDXT B XXXX EXIT 4 2279 B 000 5 129 1 29 RDERR MN TPINS&3,BSP2&3 7 2283 D K69 K93 6 130 1 30 BSP2 BSP INITAP BACKSPACE AGAIN 5 2290 U %U0 B 6 131 1 31 S &1,RDCT REDUCE COUNTER 7 2295 S M62 M61 6 132 1 32 BWZ TPINS,RDCT,B Q. 10 SUCCESSIVE READS 8 2302 V K66 M61 B 6 133 1 33 MN TPINS&3,TPHLT&6 7 2310 D K69 L23 6 134 1 34 TPHLT H XXXX,390 HALT 7 2317 . 000 390 7 135 1 35 MCW TPINS&7,*&8 7 2324 M K73 L38 7 136 1 36 RT INITAP,XXXX RE-READ 8 2331 M %U0 000 R 7 137 1 37 BSS BSP1,E DETERMINE OPTION 5 2339 B K46 E 7 138 1 38 H XXXX,302 HALT AGAIN 7 2344 . 000 302 7 139 1 39 B REDXT EXIT 4 2351 B K79 7 140 1 40 WRTRD SKP SYSTAP ERASE TAPE 5 2355 U %U1 E 8 141 1 41 BCE SBCTR,WRTCR-1,5 Q. FIFTY SKIPS 8 2360 B L92 M63 5 8 142 1 42 A &1,WRTCR#2 INCREASE COUNTER 7 2368 A M62 M64 8 143 1 43 INST2 WT INITAP,XXXX RE-WRITE 8 2375 M %U0 000 W 8 144 1 44 BER BSP1 Q. REDUNDANCY AGAIN 5 2383 B K46 L 8 145 1 45 B REDXT 4 2388 B K79 8 146 1 46 SBCTR S WRTCR RESET COUNTER 4 2392 S M64 9 147 1 47 MN TPINS&3,*&7 7 2396 D K69 M09 9 1 1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL -VERSION 3 3731L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 H XXXX,360 HALT 7 2403 . 000 360 9 149 1 49 B INST2 4 2410 B L75 9 150 1 50 * 151 1 51 * NOISE RECORD ROUTINE 152 1 52 * 153 1 53 NOISE SBR XL3 4 2414 H 099 9 154 1 54 SBR NSXT&3 4 2418 H M52 9 155 1 55 MZ &9,XL3 7 2422 Y M60 099 9 156 1 56 N2 BCE 4000-12&X3, XXXX, } SCAN FOR GROUP MARK 8 2429 B IH8 000 } GMARK 10 157 1 57 CHAIN 12 MACRO 158 BCE 1 2437 B GEN 10 159 BCE 1 2438 B GEN 10 160 BCE 1 2439 B GEN 10 161 BCE 1 2440 B GEN 10 162 BCE 1 2441 B GEN 10 163 BCE 1 2442 B GEN 10 164 BCE 1 2443 B GEN 11 165 BCE 1 2444 B GEN 11 166 BCE 1 2445 B GEN 11 167 BCE 1 2446 B GEN 11 168 BCE 1 2447 B GEN 11 169 BCE 1 2448 B GEN 11 170 1 58 NSXT B 0 4 2449 B 000 11 171 1 59 OBJCOR DCW @3@ OBJECT CORE SIZE CODE 1 2453 12 172 1 60 HIVAL DCW @ 999@ HIGHEST OBJECT ADDRESS 5 2458 12 173 1 61 MANAM DCW @#@ EQUALS # OR A 1 2459 12 174 1 62 LTORG * 2460 DCW &9 1 2460 LIT 12 RDCT DCW #01 1 2461 AREA 12 DCW &1 1 2462 LIT 12 WRTCR DCW #02 2 2464 AREA 12 175 1 63 * 176 1 64 *BEGIN OF MAIN LINE 177 1 65 * 178 1 66 BEGIN RWD INTAPE REWIND INPUT TAPE 5 2465 U %U6 R 13 179 1 67 RWD 5 REWIND 5 5 2470 U %U5 R 13 180 1 68 CS 3999 CLEAR INPUT AREA 4 2475 / I99 13 181 1 69 RTW SYSTAP,001 READ LOWER HALF 8 2479 L %U1 001 R 13 182 1 70 NOP 0 PASS 3 4 2487 N 000 13 183 1 71 BER TPERR 5 2491 B K10 L 13 184 1 72 SW GMK1,GMK2 INITIALIZE GROUP MARKS 7 2496 , I89 187 13 185 1 73 CW SYSMK2 4 2503 ) ?03 14 186 1 74 CS 080 CLEAR READ AREA 4 2507 / 080 14 187 1 75 SW EQVADD INITIALIZE TO UNDEF 4 2511 , A69 14 188 1 76 RWD OUTAPE RWD OUTPUT TAPE 5 2515 U %U4 R 14 189 1 77 MCW &FREE&13,N2&6 7 2520 M R20 M35 14 190 1 78 MCW @N@,N3 CRIPPLE TEST FOR NOISE 7 2527 M R21 573 14 191 1 79 MCW @N@,N4 7 2534 M R21 558 14 192 1 80 RT 5,FREE&1 READ IN MACRO FACTOR 8 2541 M %U5 101 R 15 193 1 81 B NOISE WHICH IS 4 2549 B M14 15 1 1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL -VERSION 3 3731L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 194 1 82 BER TPERR PASSED IN FROM PASS 2 5 2553 B K10 L 15 195 1 83 RWD 5 AND SAVE VALUE 5 2558 U %U5 R 15 196 1 84 MCW FREE&3,JOBLBL#3 7 2563 M 103 R24 15 197 1 85 ZA @101@,ALTRNO RESET ALTER NUMBER 7 2570 ? R27 184 15 198 1 86 * 199 1 87 * PROCESS JOB CARD 200 1 88 * 201 1 89 B GET GET FIRST RECORD 4 2577 B 524 16 202 1 90 BCE GENJOB,FREE&6,* Q. COMMENTS CARD 8 2581 B Q53 106 * 16 203 1 91 C FREE&18,@JOB@ Q. JOB CARD 7 2589 C 118 R30 16 204 1 92 BU GENJOB 5 2596 B Q53 / 16 205 1 93 CODJOB MCW JOBLBL,FREE&8 PICKUP FACTOOR 7 2601 M R24 108 16 206 1 94 WT OUTAPE,FREE&1 PUT JOB CARD 8 2608 M %U4 101 W 16 207 1 95 NOP 0 4 2616 N 000 17 208 1 96 BER TPERR 5 2620 B K10 L 17 209 1 97 A &1,ALTRNO 7 2625 A R31 184 17 210 1 98 B GET GET NEXT RECORD 4 2632 B 524 17 211 1 99 MCW @B@,N3 RESET NOISE ROUTINE 7 2636 M R32 573 17 212 2 00 MCW @M@,N4 7 2643 M R33 558 17 213 2 01 * 214 2 02 *PROCESS CONTROL CARD 215 2 03 * 216 2 04 C FREE&18,@CTL@ Q. CONTROL CARD 7 2650 C 118 R36 18 217 2 05 BU CHNAD 5 2657 B Q85 / 18 218 2 06 CS 0 4 2662 / 000 18 219 2 07 SBR CLEAR&3 4 2666 H O85 18 220 2 08 SBR SVSZ#3 4 2670 H R39 18 221 2 09 BWZ PROSZ,CLEAR&3,2 8 2674 V P02 O85 2 18 222 2 10 CLEAR CS 15999 4 2682 / I9I 18 223 2 11 SBR CLEAR&3 CLEAR ABOVE 4K 4 2686 H O85 19 224 2 12 C CLEAR&3,@I99@ Q. END OF CLEARING 7 2690 C O85 R42 19 225 2 13 BU CLEAR 5 2697 B O82 / 19 226 2 14 PROSZ MCW @6@,PHOLD#1 7 2702 M R43 R44 19 227 2 15 BWZ CSZ,SVSZ,B 8 2709 V P54 R39 B 19 228 2 16 MCW @5@,PHOLD 7 2717 M R45 R44 19 229 2 17 BWZ CSZ,SVSZ,K 8 2724 V P54 R39 K 20 230 2 18 MCW @4@,PHOLD 7 2732 M R46 R44 20 231 2 19 BWZ CSZ,SVSZ,S 8 2739 V P54 R39 S 20 232 2 20 MCW @3@,PHOLD 7 2747 M R47 R44 20 233 2 21 CSZ C FREE&21,PHOLD 7 2754 C 121 R44 20 234 2 22 BE INOBJ 5 2761 B P97 S 21 235 2 23 * MESSG@INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@,42 236 02 CS 332 4 2766 / 332 21 237 03 CS 1 2770 / 21 238 04 MCW @INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@,42&200 7 2771 M R89 242 21 239 05 W 1 2778 2 21 240 07 BCV *&5 5 2779 B P88 @ 21 241 08 B *&3 4 2784 B P90 21 242 09 CC 1 2 2788 F 1 22 243 2 24 MCW PHOLD,FREE&21 7 2790 M R44 121 22 1 1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL -VERSION 3 3731L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 244 2 25 INOBJ MCW FREE&22,OBJCOR SAVE OBJECT MACHINE CODE 7 2797 M 122 M53 22 245 2 26 ZA OBJCOR,XL1 7 2804 ? M53 089 22 246 2 27 S &30,XL1&1 7 2811 S R91 090 22 247 2 28 A XL1 CODE -HIVAL- 4 2818 A 089 22 248 2 29 MCW OBJTBL&X1,HIVAL-3 7 2822 M R/1 M55 23 249 2 30 C FREE&22,@3@ Q. OBJECT CORE GT 4K 7 2829 C 122 R47 23 250 2 31 BL GETMN 5 2836 B 419 T 23 251 2 32 BCE SETHI,FREE&24,1 Q. MA HARDWARE 8 2841 B Q99 124 1 23 252 2 33 B IS4K 4 2849 B Q92 23 253 2 34 GENJOB BSP INTAPE 5 2853 U %U6 B 23 254 2 35 MCW FREE&74,FREE&73 7 2858 M 174 173 24 255 2 36 MCW @JOB @,FREE&20 GENERATE JOB CARD 7 2865 M R96 120 24 256 2 37 MCW 1 2872 M 24 257 2 38 MCW FREE&74,FREE&15 BLANK AREA 7 2873 M 174 115 24 258 2 39 MCW 1 2880 M 24 259 2 40 B CODJOB 4 2881 B O01 24 260 2 41 CHNAD MCW &SUBXL,INTXT&3 INITIALIZE EXIT 7 2885 M R99 463 24 261 2 42 IS4K MCW @A@,MANAM 7 2892 M ?00 M59 25 262 2 43 SETHI MCW @03@,HIVAL-3 7 2899 M ?02 M55 25 263 2 44 B GETMN 4 2906 B 419 25 264 2 45 OBJTBL DCW @03@ 2 2911 25 265 2 46 DCW @07@ 2 2913 25 266 2 47 DCW @11@ 2 2915 25 267 2 48 DCW @15@ 2 2917 25 268 2 49 LTORG 2918 * 2918 DCW &FREE&13 3 2920 113 ADCON 26 DCW @N@ 1 2921 LIT 26 JOBLBL DCW #03 3 2924 AREA 26 DCW @101@ 3 2927 LIT 26 DCW @JOB@ 3 2930 LIT 26 DCW &1 1 2931 LIT 26 DCW @B@ 1 2932 LIT 26 DCW @M@ 1 2933 LIT 27 DCW @CTL@ 3 2936 LIT 27 SVSZ DCW #03 3 2939 AREA 27 DCW @I99@ 3 2942 LIT 27 DCW @6@ 1 2943 LIT 27 PHOLD DCW #01 1 2944 AREA 27 DCW @5@ 1 2945 LIT 27 DCW @4@ 1 2946 LIT 28 DCW @3@ 1 2947 LIT 28 DCW @INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@ 42 2989 LIT 30 DCW &30 2 2991 LIT 30 DCW @JOB @ 5 2996 LIT 30 DCW &SUBXL 3 2999 634 ADCON 30 DCW @A@ 1 3000 LIT 30 DCW @03@ 2 3002 LIT 31 269 2 50 SYSMK2 DCW @}@ SYSTEM GROUP MARK 1 3003 GMARK 31 270 2 51 XFR 000 B 000 32 1 1401 AUTOCODER-PASS 3 LEFT MAIN LINE -VERSION 3 3732L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 271 2 52 JOB 1401 AUTOCODER-PASS 3 LEFT MAIN LINE -VERSION 3 272 2 53 * 273 2 54 *INITIALIZATION OF INDEX REGISTERS 274 2 55 * 275 2 56 * XINITXL1,XL2,XL3 276 01 XL1 EQU 089 0089 277 02 089 DCW 000 3 0089 35 278 04 091 DC 00 2 0091 35 279 05 XL2 EQU 094 0094 280 06 094 DCW 000 3 0094 35 281 08 096 DC 00 2 0096 35 282 09 XL3 EQU 099 0099 283 10 099 DCW 000 3 0099 35 284 12 100 DC 0 1 0100 35 285 2 57 * 286 2 58 *FREE FORM INPUT AREA 287 2 59 * 288 2 60 ORG 101 0101 289 2 61 FREE EQU 100 0100 290 2 62 DA 1X86 0101 0186 291 2 63 1,1 0101 FIELD 292 2 64 19,19 0119 FIELD 293 2 65 16,16 0116 FIELD 294 2 66 6,6 0106 FIELD 295 2 67 21,21 0121 FIELD 296 2 68 ALTRNO 81,84 0184 FIELD 297 2 69 85,89 0189 FIELD 298 2 70 GMK2 DC @}@ 1 0187 GMARK 36 299 2 71 * 300 2 72 *FIXED FORM INPUT AREA 301 2 73 * 302 2 74 ORG 333 0333 303 2 75 INPUT EQU * 0332 304 2 76 DA 1X86 0333 0418 305 2 77 40,40 0372 FIELD 306 2 78 17,17 0349 FIELD 307 2 79 28,28 0360 FIELD 308 2 80 39,39 0371 FIELD 309 2 81 76,76 0408 FIELD 310 2 82 * 311 2 83 * GET UPPER HALF OF PASS 3 312 2 84 * 313 2 85 GETMN RTW SYSTAP,BEGIN 8 0419 L %U1 M65 R 37 314 2 86 NOP 0 4 0427 N 000 37 315 2 87 BER TPERR 5 0431 B K10 L 37 316 2 88 MCW MANAM,MASYM-3 7 0436 M M59 B93 37 317 2 89 RTW SYSTAP,OVL2 8 0443 L %U1 626 R 37 318 2 90 NOP 0 4 0451 N 000 38 319 2 91 BER TPERR 5 0455 B K10 L 38 320 2 92 INTXT B NUREC 4 0460 B 626 38 1 1401 AUTOCODER-PASS 3 LEFT MAIN LINE -VERSION 3 3732L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 321 2 93 * 322 2 94 * GET FIXED FORM OVERLAY 323 2 95 * 324 2 96 GTFIX RTW SYSTAP,OVL2 8 0464 L %U1 626 R 38 325 2 97 NOP 0 4 0472 N 000 38 326 2 98 BER TPERR 5 0476 B K10 L 38 327 2 99 BSP SYSTAP 5 0481 U %U1 B 38 328 3 00 BSP SYSTAP 5 0486 U %U1 B 39 329 3 01 BW PROFIX,FREESW 8 0491 V 661 H09 1 39 330 3 02 B RSTMOD 4 0499 B 638 39 331 3 03 * 332 3 04 * GET FREE FORM OVERLAY 333 3 05 * 334 3 06 GTFRE RTW SYSTAP,OVL2 8 0503 L %U1 626 R 39 335 3 07 NOP 0 4 0511 N 000 39 336 3 08 BER TPERR 5 0515 B K10 L 39 337 3 09 B PSTNU 4 0520 B 630 39 338 3 10 * 339 3 11 *GET ROUTINE 340 3 12 * 341 3 13 GET SBR GETXT&3 4 0524 H 553 40 342 3 14 B RDTAP 4 0528 B 554 40 343 3 15 MCW INAREA&79,FREE&80 7 0532 M I82 180 40 344 3 16 CHAIN 4 MACRO 345 MCW 1 0539 M GEN 40 346 MCW 1 0540 M GEN 40 347 MCW 1 0541 M GEN 40 348 MCW 1 0542 M GEN 40 349 3 17 MCW INAREA&85,FREE&86 7 0543 M I88 186 41 350 3 18 GETXT B XXXX 4 0550 B 000 41 351 3 19 RDTAP SBR RDXT&3 READ TAPE 4 0554 H 585 41 352 3 20 N4 MCW &INAREA&12,N2&6 7 0558 M R43 M35 41 353 3 21 RT INTAPE,INAREA 8 0565 M %U6 I03 R 41 354 3 22 N3 B NOISE CHECK FOR NOISE 4 0573 B M14 41 355 3 23 BER TPERR 5 0577 B K10 L 41 356 3 24 RDXT B XXXX 4 0582 B 000 42 357 3 25 * 358 3 26 *PUT ROUTINE 359 3 27 * 360 3 28 PUT SBR PUTXT&3 4 0586 H 625 42 361 3 29 CW FREE&21 4 0590 ) 121 42 362 3 30 WT OUTAPE,FREE&1 8 0594 M %U4 101 W 42 363 3 31 NOP 0 4 0602 N 000 42 364 3 32 BER TPERR 5 0606 B K10 L 42 365 3 33 SW FREE&21 4 0611 , 121 42 366 3 34 A &1,ALTRNO INCREASE ALTER NUMBER 7 0615 A R44 184 43 367 3 35 PUTXT B XXXX 4 0622 B 000 43 368 3 36 OVL2 DCW 0 1 0626 43 369 3 37 DCW @}@ SYSTEM GROUP MARK 1 0627 GMARK 43 370 3 38 XFR 0 B 000 44 1 1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 3734L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 371 3 39 JOB 1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 372 3 40 * 373 3 41 *BEGINNING OF NEW FREE FORM RECORD ANALYSIS 374 3 42 * 375 3 43 ORG OVL2 0626 376 3 44 NUREC B PUT 4 0626 B 586 47 377 3 45 PSTNU B GET 4 0630 B 524 47 378 3 46 SUBXL SW MODESW 4 0634 , ?02 47 379 3 47 CW FREESW 4 0638 ) H09 47 380 3 48 BCE NUREC,FREE&6,* 8 0642 B 626 106 * 47 381 3 49 BCE REG,FREE&75, 8 0650 B 991 175 47 382 3 50 BCE REG,FREE&75,L 8 0658 B 991 175 L 48 383 3 51 BCE NUREC,FREE&75,S 8 0666 B 626 175 S 48 384 3 52 BCE NUREC,FREE&75,Z 8 0674 B 626 175 Z 48 385 3 53 BCE NUREC,FREE&85,R 8 0682 B 626 185 R 48 386 3 54 C FREE&18,@CHA@ 7 0690 C 118 R47 48 387 3 55 BCE CKCHN,FREE&75,C 8 0697 B 722 175 C 49 388 3 56 BCE CKCHN,FREE&75,Y 8 0705 B 722 175 Y 49 389 3 57 BU NUREC 5 0713 B 626 / 49 390 3 58 B PRCHN 4 0718 B 727 49 391 3 59 CKCHN BU REG 5 0722 B 991 / 49 392 3 60 PRCHN ZA FREE&22,WAREA2 7 0727 ? 122 A14 49 393 3 61 BCE *&5,WAREA2,& 8 0734 B 746 A14 & 50 394 3 62 B *&8 4 0742 B 753 50 395 3 63 ZA WAREA2-1,WAREA2 7 0746 ? A13 A14 50 396 3 64 BCE *&5,FREE&75,C 8 0753 B 765 175 C 50 397 3 65 B *&8 4 0761 B 772 50 398 3 66 MCW @S@,FREE&75 7 0765 M R48 175 50 399 3 67 BCE *&5,FREE&75,Y 8 0772 B 784 175 Y 51 400 3 68 B *&8 4 0780 B 791 51 401 3 69 MCW @Z@,FREE&75 7 0784 M R49 175 51 402 3 70 B PUT 4 0791 B 586 51 403 3 71 C WAREA2,&00 ACCOUNT FOR CHAIN 00 7 0795 C A14 R51 51 404 3 72 BL *&5 5 0802 B 811 T 51 405 3 73 B PSTNU 4 0807 B 630 51 406 3 74 MCW FREE&75,HLDCD#1 7 0811 M 175 R52 52 407 3 75 MCW @C@,FREE&75 7 0818 M R53 175 52 408 3 76 BCE BLNKX,HLDCD,R REW: BCE WMMCHK,HLDCD,R 8 0825 B 848 R52 R 52 409 3 77 BCE BLNKX,HLDCD,S RES: BCE WMMCHK,HLDCD,S 8 0833 B 848 R52 S 52 410 3 78 MCW @Y@,FREE&75 7 0841 M R54 175 52 411 3 79 BLNKX MCW BLNK2,FREE&74 7 0848 M A55 174 53 412 3 80 MCW FREE&74 4 0855 M 174 53 413 3 81 MCW SAVOP 4 0859 M R88 53 414 3 82 MCW 1 0863 M 53 415 3 83 MCW 1 0864 M 53 416 3 84 MCW FREE&74,FREE&5 BLANK PAGE/LINE 7 0865 M 174 105 53 417 3 85 CHNLP B PUT 4 0872 B 586 53 418 3 86 MCW FREE&74,FREE&11 BLANK LABEL FIELD 7 0876 M 174 111 54 419 3 87 S &1,WAREA2 7 0883 S R44 A14 54 420 3 88 C WAREA2,&00 7 0890 C A14 R51 54 1 1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 3734L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 421 3 89 BL CHNLP 5 0897 B 872 T 54 422 3 90 B PSTNU 4 0902 B 630 54 423 3 91 GENPS MCW @&1 @,FREE&15 7 0906 M R57 115 54 424 3 92 B PUT 4 0913 B 586 55 425 3 93 MCW FREE&73,FREE&72 TO HIGHEST ADDRESS OF 7 0917 M 173 172 55 426 3 94 MCW @C@,FREE&75 OBJECT CORE 7 0924 M R53 175 55 427 3 95 MCW HIVAL,FREE&25 7 0931 M M58 125 55 428 3 96 MCW @EQU @ 4 0938 M R62 55 429 3 97 MCW 1 0942 M 55 430 3 98 MCW @$HIVAL &P @ 4 0943 M R72 55 431 3 99 MCW FREE&73 4 0947 M 173 56 432 4 00 MCW &NUREC,GENPS&3 7 0951 M R75 909 56 433 4 01 MCW @B@,ISHIV 7 0958 M R76 969 56 434 4 02 B NUREC 4 0965 B 626 56 435 4 03 ISHIV NOP PSTNU 4 0969 N 630 56 436 4 04 MCW HIVAL,FREE&25 SET NEW HIGHEST VALUE 7 0973 M M58 125 56 437 4 05 MCW @B@,PSSW2 7 0980 M R76 '37 57 438 4 06 B TSTRE 4 0987 B '53 57 439 4 07 REG S XL3&1 4 0991 S 100 57 440 4 08 S 1 0995 S 57 441 4 09 S 1 0996 S 57 442 4 10 C FREE&18,@ @ 7 0997 C 118 R79 57 443 4 11 BU SVUP3 5 1004 B '17 / 57 444 4 12 BCE TSTRE,FREE&19, 8 1009 B '53 119 58 445 4 13 SVUP3 MCW FREE&20,SAVOP#9 7 1017 M 120 R88 58 446 4 14 MCW 1 1024 M 58 447 4 15 C FREE&11, @$HIVAL@ HIVAL EQUATE PRESENT 7 1025 C 111 R94 58 448 4 16 BE ISHIV 5 1032 B 969 S 58 449 4 17 PSSW2 NOP TSTRE 4 1037 N '53 58 450 4 18 C FREE&10,@$P @ Q. ARITH MACRO PRESENT 7 1041 C 110 R99 58 451 4 19 BE GENPS 5 1048 B 906 S 59 452 4 20 TSTRE BCE ISREA,FREE&85,R 8 1053 B '96 185 R 59 453 4 21 B TLUOP LOOKUP MNEMONIC 4 1061 B M65 59 454 4 22 STFUN MCW FREE&15,SAVOP-5 7 1065 M 115 R83 59 455 4 23 BW NUREC,EQVADD Q. INSTRUCTION 8 1072 V 626 A69 1 59 456 4 24 C FREE&15,@3 @ 7 1080 C 115 ?01 59 457 4 25 BE EOJ 5 1087 B Q75 S 60 458 4 26 B NUREC 4 1092 B 626 60 459 4 27 ISREA SW FREE&12 4 1096 , 112 60 460 4 28 LCA FREE&15,EQVADD 7 1100 L 115 A69 60 461 4 29 CW FREE&12 4 1107 ) 112 60 462 4 30 BCE TYPCL,FREE&15,& 8 1111 B /26 115 & 60 463 4 31 CHAIN 3 MACRO 464 BCE 1 1119 B GEN 60 465 BCE 1 1120 B GEN 61 466 BCE 1 1121 B GEN 61 467 4 32 B STFUN 4 1122 B '65 61 468 4 33 TYPCL SW EQVADD-2 4 1126 , A67 61 469 4 34 BCE STFUN,FREE&12,& 8 1130 B '65 112 & 61 470 4 35 SW EQVADD-1 4 1138 , A68 61 1 1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 3734L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 471 4 36 BCE STFUN,FREE&13,& 8 1142 B '65 113 & 61 472 4 37 SW EQVADD 4 1150 , A69 62 473 4 38 B STFUN 4 1154 B '65 62 474 4 39 DCW 0 1 1158 62 475 4 40 DCW @}@ SYSTEM GROUP MARK 1 1159 GMARK 62 476 4 41 XFR 0 B 000 63 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 477 4 42 JOB 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 478 4 43 ORG OVL2 0626 479 4 44 * 480 4 45 *BEGINNING OF NEW FIXED FORM RECORD ANALYSIS 481 4 46 * 482 4 47 ENTSPS B PUT PUT LAST RECORD 4 0626 B 586 66 483 4 48 BW GTFRE,FREESW Q. FREE DONE IN FIXED 8 0630 V 503 H09 1 66 484 4 49 RSTMOD CW MODESW#1,ABSW RESET SWITCHES 7 0638 ) ?02 A10 66 485 4 50 B RDTAP GET A RECORD 4 0645 B 554 66 486 4 51 MCW INAREA&79,INPUT&80 MOVE TO FIXED FORM 7 0649 M I82 412 66 487 4 52 CHAIN 5 MACRO 488 MCW 1 0656 M GEN 66 489 MCW 1 0657 M GEN 66 490 MCW 1 0658 M GEN 67 491 MCW 1 0659 M GEN 67 492 MCW 1 0660 M GEN 67 493 4 53 PROFIX MCW INPUT&80,FREE&80 MOVE IDENTIFICATION 7 0661 M 412 180 67 494 4 54 MCW BLANK,FREE&75 SET OPERAND PORTION 7 0668 M A54 175 67 495 4 55 MCW FREE&75 OF -FREE- TO BLANKS 4 0675 M 175 67 496 4 56 MCW FREE&75,FREE&20 SET BALANCE TO BLANK 7 0679 M 175 120 67 497 4 57 MCW 1 0686 M 68 498 4 58 MCW 1 0687 M 68 499 4 59 MCW INPUT&82,FREE&86 BLANK CODE POSITIONS 7 0688 M 414 186 68 500 4 60 MCW INPUT&13,FREE&11 MOVE LANE AND PG/LINE 7 0695 M 345 111 68 501 4 61 MCW INPUT&5 NO TO -FREE- 4 0702 M 337 68 502 4 62 BCE COMCRD,INPUT&8,* Q. COMMENTS CARD 8 0706 B Y71 340 * 68 503 4 63 BCE LBERR,FREE&11,, CHECK FOR INVALID 8 0714 B 778 111 , 68 504 4 64 CHAIN 4 CHARACTERS IN LABELS MACRO 505 BCE 1 0722 B GEN 69 506 BCE 1 0723 B GEN 69 507 BCE 1 0724 B GEN 69 508 BCE 1 0725 B GEN 69 509 4 65 BCE LBERR,FREE&10,- 8 0726 B 778 110 - 69 510 4 66 CHAIN 4 MACRO 511 BCE 1 0734 B GEN 69 512 BCE 1 0735 B GEN 69 513 BCE 1 0736 B GEN 70 514 BCE 1 0737 B GEN 70 515 4 67 BCE LBERR,FREE&10,# 8 0738 B 778 110 # 70 516 4 68 CHAIN 4 MACRO 517 BCE 1 0746 B GEN 70 518 BCE 1 0747 B GEN 70 519 BCE 1 0748 B GEN 70 520 BCE 1 0749 B GEN 70 521 4 69 BCE LBERR,FREE&10,& 8 0750 B 778 110 & 71 522 4 70 CHAIN 4 MACRO 523 BCE 1 0758 B GEN 71 524 BCE 1 0759 B GEN 71 525 BCE 1 0760 B GEN 71 526 BCE 1 0761 B GEN 71 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 527 4 71 BCE LBERR,FREE&10,' 8 0762 B 778 110 ' 71 528 4 72 CHAIN 4 MACRO 529 BCE 1 0770 B GEN 71 530 BCE 1 0771 B GEN 72 531 BCE 1 0772 B GEN 72 532 BCE 1 0773 B GEN 72 533 4 73 B BCK1 4 0774 B 798 72 534 4 74 LBERR CS 332 4 0778 / 332 72 535 4 75 CS 1 0782 / 72 536 4 76 MCW @ILLEGAL LABEL - SEQUENCE NUMBER@,231 7 0783 M ?33 231 72 537 4 77 MCS ALTRNO,236 7 0790 Z 184 236 73 538 4 78 W 1 0797 2 73 539 4 79 BCK1 C INPUT&15,BLNK2 Q. ACTUAL OP CODE 7 0798 C 347 A55 73 540 4 80 BE ABSFIX PRESENT IN FIXED FORM 5 0805 B S70 S 73 541 4 81 MCW BLNK2,SAVOP 7 0810 M A55 R88 73 542 4 82 MCW INPUT&16 4 0817 M 348 73 543 4 83 MCW INPUT&16,FREE&18 MOVE MNEMONIC TO FREE 7 0821 M 348 118 73 544 4 84 TLUFIX S XL3&1 RESET INDEX LOCATIONS 4 0828 S 100 74 545 4 85 S TO ZERO 1 0832 S 74 546 4 86 S 1 0833 S 74 547 4 87 B TLUOP LOOKUP MNEMONIC 4 0834 B M65 74 548 4 88 BW FIXINS,EQVADD Q. INSTRUCTION 8 0838 V 854 A69 1 74 549 4 89 BCE FOUND,EQVADD, Q. CONTROL OP 8 0846 B T40 A69 74 550 4 90 * 551 4 91 * PROCESS INSTRUCTION 552 4 92 * 553 4 93 FIXINS BCE LKNOP,INPUT&17, Q. A OPERAND 8 0854 B 974 349 74 554 4 94 BCE FIXALF,INPUT&17,@ Q. ALPHA LITERAL 8 0862 B /84 349 @ 75 555 4 95 B SCAN SCAN A OPERAND 4 0870 B Z09 75 556 4 96 CKB BCE CKMOD,INPUT&28, Q. B OPERAND 8 0874 B 950 360 75 557 4 97 A &1,XL2 MOVE COMMA TO FREE 7 0882 A R44 094 75 558 4 98 MCW @,@,FREE&21&X2 TO SEPARATE OPERANDS 7 0889 M ?34 1K1 75 559 4 99 A &1,XL2 7 0896 A R44 094 76 560 5 00 MCW @011@,XL1 7 0903 M ?37 089 76 561 5 01 BCE FIXALF,INPUT&28,@ Q. ALPHA LITERAL 8 0910 B /84 360 @ 76 562 5 02 B SCAN SCAN B OPERAND 4 0918 B Z09 76 563 5 03 CKOP C INPUT&16,@B @ Q. BRANCH INSTRUCTION 7 0922 C 348 ?40 76 564 5 04 BE MAKBCE 5 0929 B '40 S 76 565 5 05 C INPUT&16,@ B@ Q. ACTUAL BRANCH INST 7 0934 C 348 ?43 77 566 5 06 BE MOVMOD 5 0941 B '18 S 77 567 5 07 B LKNOP 4 0946 B 974 77 568 5 08 CKMOD C INPUT&16,@B @ Q. BRANCH INSTRUCTION 7 0950 C 348 ?40 77 569 5 09 BE ALTROP 5 0957 B '51 S 77 570 5 10 C INPUT&16,@ B@ Q. ACTUAL BRANCH INST 7 0962 C 348 ?43 77 571 5 11 BE ALTROP 5 0969 B '51 S 78 572 5 12 LKNOP C INPUT&16,@NOP@ Q. NOP INSTRUCTION 7 0974 C 348 ?46 78 573 5 13 BE CKNOP 5 0981 B /46 S 78 574 5 14 BW PICKUP,ABSW Q. ACTUAL OP CODE 8 0986 V '29 A10 1 78 575 5 15 BCE PICKUP,INPUT&39, Q. D CHARACTER 8 0994 B '29 371 78 576 5 16 ISMOD BCE MOVMOD,FREE&15, Q. ILLEGAL OP 8 1002 B '18 115 79 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 577 5 17 BWZ IOTYP,FREE&15,2 Q. I/O INSTRUCTION 8 1010 V /54 115 2 79 578 5 18 MOVMOD MCW INPUT&39,FREE&23&X2 MOVE D CHARACTER TO 7 1018 M 371 1K3 79 579 5 19 MCW @,@ FREE AREA 4 1025 M ?34 79 580 5 20 PICKUP MCW INPUT&55,FREE&72 PICKUP COMMENTS 7 1029 M 387 172 79 581 5 21 B ENDFIX 4 1036 B 626 79 582 5 22 MAKBCE MCW @BCE@,FREE&18 MOVE -BCE- MNEMONIC 7 1040 M ?49 118 80 583 5 23 B ISMOD TO OPERATION FIELD 4 1047 B '02 80 584 5 24 ALTROP BCE PICKUP,INPUT&39, Q. D CHARACTER, I.E., 8 1051 B '29 371 80 585 5 25 MCW @BIN@,FREE&18 UNCONDITIONAL BRANCH 7 1059 M ?52 118 80 586 5 26 MCW @& B@,FREE&15 SET FIVE CHAR BRANCH 7 1066 M ?55 115 80 587 5 27 S XL1&1 4 1073 S 090 80 588 5 28 MCW BLNK2,FREE&20 7 1077 M A55 120 81 589 5 29 TLUBIN C BINTBL&X1,INPUT&39 SEARCH 5-CHARACTER 7 1084 C H/4 371 81 590 5 30 BE BINFND BRANCH TABLE FOR 5 1091 B /15 S 81 591 5 31 BCE MOVMOD,BINTBL&5&X1, APPROPRIATE UNIQUE 8 1096 B '18 H/9 81 592 5 32 A &5,XL1 MNEMONIC, IF NOT 7 1104 A ?56 089 81 593 5 33 B TLUBIN PRESENT LEAVE 4 1111 B '84 81 594 5 34 BINFND MCW BINTBL-1&X1,FREE&19 MNEMONIC -BIN- 7 1115 M H/3 119 82 595 5 35 MCW 1 1122 M 82 596 5 36 C FREE&18,@BSS@ Q. BRANCH SENSE SWITCH 7 1123 C 118 ?59 82 597 5 37 BE MOVMOD 5 1130 B '18 S 82 598 5 38 MCW INPUT&39,FREE&14 PICKUP DE CHARACTER 7 1135 M 371 114 82 599 5 39 B PICKUP 4 1142 B '29 82 600 5 40 CKNOP BCE PICKUP,INPUT&39, 8 1146 B '29 371 82 601 5 41 IOTYP MCW INPUT&39,FREE&14 CODE I/O INSTRUCTION 7 1154 M 371 114 83 602 5 42 MCW @&@ IN ACTUAL IN 4 1161 M ?60 83 603 5 43 MCW INPUT&39,FREE&20 OPERATION FIELD 7 1165 M 371 120 83 604 5 44 MCW FREE&15 4 1172 M 115 83 605 5 45 MCW BLANK3 4 1176 M A56 83 606 5 46 B PICKUP 4 1180 B '29 83 607 5 47 FIXALF BCE ENDALF,INPUT&27&X1,@ SCAN FOR AT SIGN 8 1184 B S18 3V9 @ 83 608 5 48 CHAIN 8 MACRO 609 BCE 1 1192 B GEN 84 610 BCE 1 1193 B GEN 84 611 BCE 1 1194 B GEN 84 612 BCE 1 1195 B GEN 84 613 BCE 1 1196 B GEN 84 614 BCE 1 1197 B GEN 84 615 BCE 1 1198 B GEN 84 616 BCE 1 1199 B GEN 85 617 5 49 VALUE A &1,XL2 PROCESS STATEMENT AS 7 1200 A R44 094 85 618 5 50 MCW @$$@,FREE&21&X2 UNPROCESSABLE ALPHA 7 1207 M ?62 1K1 85 619 5 51 B WHCHOP LITERAL ILLEGAL OPND 4 1214 B S54 85 620 5 52 ENDALF SBR WAREA3 PICKUP LITERAL AND 4 1218 H A15 85 621 5 53 S &VALUE&2,WAREA3 MOVE TO FREE FORM 7 1222 S ?65 A15 85 622 5 54 ZS WAREA3 AREA 4 1229 ! A15 85 623 5 55 A WAREA3,XL1 7 1233 A A15 089 86 624 5 56 A WAREA3,XL2 7 1240 A A15 094 86 625 5 57 MCW INPUT&17&X1,FREE&21&X2 7 1247 M 3U9 1K1 86 626 5 58 WHCHOP C XL1,@011@ EXIT ON BASIS OF WHICH 7 1254 C 089 ?37 86 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 627 5 59 BH CKB OPERAND ACTING UPON 5 1261 B 874 U 86 628 5 60 B CKOP 4 1266 B 922 86 629 5 61 ABSFIX BCE SAMFIX,INPUT&16, PRINT OUT MESSAGE ONLY 8 1270 B T28 348 87 630 5 62 MCW INPUT&16,FREE&19 ONCE THAT ACTUAL OPS 7 1278 M 348 119 87 631 5 63 MCW INPUT&39,FREE&20 ARE PRESENT IN FIXED 7 1285 M 371 120 87 632 5 64 SW1 NOP SETABS FORM IMAGES 4 1292 N T20 87 633 5 65 CS 332 THIS ACCOUNTS FOR 4 1296 / 332 87 634 5 66 CS THE POSSIBILITY THAT 1 1300 / 87 635 5 67 MCW @ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES@,270 7 1301 M A09 270 87 636 5 68 CC 1 THE USER FORGOT TO 2 1308 F 1 88 637 5 69 W USE AN ENTER 1 1310 2 88 638 5 70 CC 1 AUTOCODER STATEMENT 2 1311 F 1 88 639 5 71 MCW @B@,SW1 WHEN RETURNING TO 7 1313 M R76 S92 88 640 5 72 SETABS SW ABSW#1 FREE FORM 4 1320 , A10 88 641 5 73 B TLUFIX 4 1324 B 828 88 642 5 74 SAMFIX MCW SAVOP,FREE&20 PROCESS SAME OP CODE 7 1328 M R88 120 88 643 5 75 MCW 1 1335 M 89 644 5 76 B TLUFIX 4 1336 B 828 89 645 5 77 * 646 5 78 * BEGINNING OF PROCESS CONTROL AND DECLARATIVE OPERATION CODES 647 5 79 * 648 5 80 FOUND BW FIXINS,EQVADD DETERMINE TYPE OF 8 1340 V 854 A69 1 89 649 5 81 S XL3&1 CONTROL OP AND GO TO 4 1348 S 100 89 650 5 82 MN EQVADD-1,XL3 APPROPRIATE ROUTINE 7 1352 D A68 099 89 651 5 83 A XL3 4 1359 A 099 89 652 5 84 A XL3 4 1363 A 099 89 653 5 85 B *&1&X3 4 1367 B TG1 90 654 5 86 B BADOP DA ILLEGAL IN FIXED FORM 4 1371 B P28 90 655 5 87 B DCWSTM GO TO CONSTANT ROUTINE 4 1375 B U84 90 656 5 88 B ERHLT SHOULD NEVER OCCUR 4 1379 B U73 90 657 5 89 B ONEOP END, EX, XFR 4 1383 B X60 90 658 5 90 B ONEOP GO TO SUFFIX RTN 4 1387 B X60 90 659 5 91 B ERHLT SHOULD NEVER OCCUR 4 1391 B U73 90 660 5 92 B CKLOR GO TO ORIGIN ROUTINE 4 1395 B Y89 91 661 5 93 B DSTYP GO TO DS, EQU ROUTINE 4 1399 B X88 91 662 5 94 B INSPC GO TO SPECIAL ROUTINE 4 1403 B U21 91 663 5 95 MCW INPUT&55,FREE&59 7 1407 M 387 159 91 664 5 96 MCW TO FREE FORM AREA 1 1414 M 91 665 5 97 MCW 1 1415 M 91 666 5 98 MCW 1 1416 M 91 667 5 99 B ENDFIX 4 1417 B 626 92 668 6 00 INSPC BCE NOPND,INPUT&17, PROCESS 8 1421 B U62 349 92 669 6 01 MCW @B@,FREE&18 CC AND CCB AND SS 7 1429 M R76 118 92 670 6 02 MCW EQVADD-2,EQVADD AND SSB 7 1436 M A67 A69 92 671 6 03 LCA BLANK 4 1443 L A54 92 672 6 04 MCW EQVADD,FREE&15 7 1447 M A69 115 92 673 6 05 MCW @ &@ 4 1454 M A12 93 674 6 06 B FIXINS 4 1458 B 854 93 675 6 07 NOPND MCW INPUT&39,FREE&21 PROCESS TWO CHARACTER 7 1462 M 371 121 93 676 6 08 B ENDFIX INSTRUCTIONS 4 1469 B 626 93 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 677 6 09 ERHLT H 0,301 SYSTEM ERROR HALT 7 1473 . 000 301 93 678 6 10 B ERHLT 4 1480 B U73 93 679 6 11 * 680 6 12 *PROCESS DCW, DC STATEMENTS 681 6 13 * 682 6 14 DCWSTM BCE DCWTYP,INPUT&17,* Q. DCW* 8 1484 B V51 349 * 93 683 6 15 A BLANK,INPUT&17 ASSURE NOT BLANK 7 1492 A A54 349 94 684 6 16 MCW FREE&18,WAREA6#6 GENERATE EQUATE 7 1499 M 118 A18 94 685 6 17 MCW 1 1506 M 94 686 6 18 MCW @EQU@,FREE&18 7 1507 M A21 118 94 687 6 19 MCW @&P @ 4 1514 M A24 94 688 6 20 MCW INPUT&21,FREE&25 7 1518 M 353 125 94 689 6 21 B PUT 4 1525 B 586 94 690 6 22 MCW FREE&74,FREE&73 7 1529 M 174 173 95 691 6 23 MCW INPUT&22,FREE&11 GENERATE FREE FORM 7 1536 M 354 111 95 692 6 24 MCW WAREA6,FREE&18 DCW ACTUAL 7 1543 M A18 118 95 693 6 25 MCW 1 1550 M 95 694 6 26 DCWTYP CW INPUT&40,INPUT&39 REMOVE WORD MARKS 7 1551 ) 372 371 95 695 6 27 CW INPUT&28 4 1558 ) 360 95 696 6 28 BCE DSARTN,FREE&14,J Q. DSA STATEMENT 8 1562 B X15 114 J 96 697 6 29 BCE KNOWN,INPUT&23,& Q. IS THE LENGTH OF 8 1570 B W69 355 & 96 698 6 30 BCE KNOWN,INPUT&23,- THE CONSTANT TO BE 8 1578 B W69 355 - 96 699 6 31 BCE KNOWN,INPUT&23,@ COMPUTED BY THE 8 1586 B W69 355 @ 96 700 6 32 MN INPUT&7,XL1 PROCESSOR 7 1594 D 339 089 96 701 6 33 MN 1 1601 D 97 702 6 34 A BLANK,XL1 7 1602 A A54 089 97 703 6 35 C XL1,@032@ Q. COUNT GT 32 OR 7 1609 C 089 A27 97 704 6 36 BL CORERR LT ZERO. IF 5 1616 B W80 T 97 705 6 37 C XL1,@000@ ERROR ATTEMPT TO 7 1621 C 089 A30 97 706 6 38 BE CORERR PROCESS RECORD ANYWAY 5 1628 B W80 S 97 707 6 39 RTNDCW MCW INPUT&23&X1,FREE&21&X1 CONSTANT TO FREE FORM 7 1633 M 3V5 1S1 97 708 6 40 MCW @@@,FREE&21 ENCLOSE DCW WITHIN 7 1640 M A31 121 98 709 6 41 MCW @@@,FREE&22&X1 AT SIGNS 7 1647 M A31 1S2 98 710 6 42 RSTWM SW INPUT&40,INPUT&39 RESET WORD MARKS 7 1654 , 372 371 98 711 6 43 SW INPUT&28 4 1661 , 360 98 712 6 44 B ENDFIX 4 1665 B 626 98 713 6 45 KNOWN MCW INPUT&55,FREE&53 PICKUP ENTIRE DCW AREA 7 1669 M 387 153 98 714 6 46 B RSTWM 4 1676 B W54 99 715 6 47 CORERR S XL1&1 4 1680 S 090 99 716 6 48 LPERR BCE RTNDCW,INPUT&24&X1, SCAN FOR FIRST BLANK 8 1684 B W33 3V6 99 717 6 49 A &1,XL1 IN ATTEMPT TO CORRECT 7 1692 A R44 089 99 718 6 50 C XL1,@52@ Q) END OF RECORD 7 1699 C 089 A33 99 719 6 51 BE RTNDCW 5 1706 B W33 S 99 720 6 52 B LPERR 4 1711 B W84 99 721 6 53 * 722 6 54 * PROCESS DSA STATEMENTS 723 6 55 * 724 6 56 DSARTN S XL2&2 PICKUP FIXED FORM DSA 4 1715 S 096 100 725 6 57 MCW @011@,XL1 AND PLACE IN FREE FOR 7 1719 M ?37 089 100 726 6 58 B SCAN FORM AREA 4 1726 B Z09 100 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 727 6 59 MCW FREE&72,FREE&73 IF UNSIGNED MAKE SIGN 7 1730 M 172 173 100 728 6 60 MCW @&@ PLUS 4 1737 M ?60 100 729 6 61 BCE RSTWM,INPUT&27, Q. NO SIGN 8 1741 B W54 359 100 730 6 62 MCW INPUT&27,FREE&21 SIGN ADDRESS CONSTANT 7 1749 M 359 121 101 731 6 63 B RSTWM 4 1756 B W54 101 732 6 64 ONEOP B *&5,INPUT&17, PROCESS THOSE 8 1760 B X72 349 101 733 6 65 B SCAN INSTRUCTIONS 4 1768 B Z09 101 734 6 66 C @3 @,EQVADD THAT ONLY HAVE ONE OP 7 1772 C ?01 A69 101 735 6 67 BE PREOJ IF END CARD GO TO EOJ 5 1779 B Q67 S 101 736 6 68 B ENDFIX 4 1784 B 626 101 737 6 69 * 738 6 70 * PROCESS DS, EQU STATEMENTS 739 6 71 * 740 6 72 DSTYP BCE DSACT,INPUT&17,* IF DS IS REALLY AN 8 1788 B Y33 349 * 102 741 6 73 BCE *&5,INPUT&17, EQU CHANGE OP 8 1796 B Y08 349 102 742 6 74 B *&8 CODE, ASSURE 4 1804 B Y15 102 743 6 75 NOP BLANK,INPUT&17 OPERAND NOT BLANK 7 1808 N A54 349 102 744 6 76 DOEQU MCW @EQU@,FREE&18 7 1815 M A21 118 102 745 6 77 MCW @P@,FREE&14 7 1822 M A34 114 103 746 6 78 B ONEOP 4 1829 B X60 103 747 6 79 DSACT SW INPUT&6 PROCESS DS ACTUAL 4 1833 , 338 103 748 6 80 A BLANK,INPUT&7 7 1837 A A54 339 103 749 6 81 CW INPUT&6 4 1844 ) 338 103 750 6 82 C INPUT&7,@00@ Q. NO COUNT 7 1848 C 339 A36 103 751 6 83 BE DOEQU 5 1855 B Y15 S 103 752 6 84 MCW INPUT&7,FREE&22 7 1860 M 339 122 104 753 6 85 B ENDFIX 4 1867 B 626 104 754 6 86 * 755 6 87 *PROCESS COMMENTS CARDS 756 6 88 * 757 6 89 COMCRD MCW INPUT&55,FREE&53 PROCESS COMMENTS CARDS 7 1871 M 387 153 104 758 6 90 CHAIN 7 MACRO 759 MCW 1 1878 M GEN 104 760 MCW 1 1879 M GEN 104 761 MCW 1 1880 M GEN 104 762 MCW 1 1881 M GEN 104 763 MCW 1 1882 M GEN 105 764 MCW 1 1883 M GEN 105 765 MCW 1 1884 M GEN 105 766 6 91 B ENTSPS 4 1885 B 626 105 767 6 92 * 768 6 93 * PROCESSS ORIGIN, LTORG STATEMENTS 769 6 94 * 770 6 95 CKLOR BCE ONEOP,FREE&16,O CHANGE MNEMONIC TO 8 1889 B X60 116 O 105 771 6 96 MCW @LTORG@,FREE&20 -LTORG- IF LITERAL 7 1897 M A41 120 105 772 6 97 MCW ORG STATEMENT 1 1904 M 105 773 6 98 B ONEOP 4 1905 B X60 106 774 6 99 * 775 7 00 *SCAN ROUTINE WHICH CONVERTS FIXED FORM INTO FREE FORM 776 7 01 * 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 777 7 02 SCAN SBR SCNXT&3 4 1909 H J20 106 778 7 03 S XL3&1 RESET INDEX 3 4 1913 S 100 106 779 7 04 LOOP1 BCE CK1BK,INPUT&18&X1, Q. BLANK CHARACTER 8 1917 B Z62 3V0 106 780 7 05 CXL1 C XL3,@05@ Q. END OF ADDRESS 7 1925 C 099 A43 106 781 7 06 BE NDOPD 5 1932 B Z86 S 106 782 7 07 A &1,XL1 INCREASE ALL INDEX 7 1937 A R44 089 106 783 7 08 A &1,XL2 REGISTERS 7 1944 A R44 094 107 784 7 09 A &1,XL3 7 1951 A R44 099 107 785 7 10 B LOOP1 4 1958 B Z17 107 786 7 11 CK1BK C XL3,@04@ TOLERATE ONE BLANK 7 1962 C 099 A45 107 787 7 12 BE NDOPD 5 1969 B Z86 S 107 788 7 13 BCE *&5,INPUT&19&X1, 8 1974 B Z86 3V1 107 789 7 14 B CXL1 4 1982 B Z25 108 790 7 15 NDOPD MCW INPUT&17&X1,FREE&21&X2 MOVE ADDRESS PORTION 7 1986 M 3U9 1K1 108 791 7 16 C XL1,@011@ TO FREE FORM AREA 7 1993 C 089 ?37 108 792 7 17 S XL1&2 4 2000 S 091 108 793 7 18 BH *&8 5 2004 B !16 U 108 794 7 19 MCW @011@,XL1 7 2009 M ?37 089 108 795 7 20 BCE CKLIT2,INPUT&23&X1, Q. NO CHARACTER ADJUST 8 2016 B J88 3V5 109 796 7 21 BWZ MKMIN,INPUT&23&X1,K ASSURE CHARACTER ADJ 8 2024 V J21 3V5 K 109 797 7 22 MCW @&@,INPUT&23&X1 & OR - 7 2032 M ?60 3V5 109 798 7 23 RTN2 SW INPUT&24&X1,INPUT&23&X1 PROCESS CHARACTER 7 2039 , 3V6 3V5 109 799 7 24 A BLANK,INPUT&26&X1 ADJUSTMENT 7 2046 A A54 3V8 109 800 7 25 A &4,XL2 7 2053 A A46 094 110 801 7 26 MCW INPUT&26&X1,FREE&21&X2 7 2060 M 3V8 1K1 110 802 7 27 MCW 1 2067 M 110 803 7 28 CW INPUT&24&X1,INPUT&23&X1 7 2068 ) 3V6 3V5 110 804 7 29 NOADJ BCE FIXLIT,INPUT&17&X1,& Q. LITERAL 8 2075 B J32 3U9 & 110 805 7 30 BCE FIXLIT,INPUT&17&X1,- 8 2083 B J32 3U9 - 110 806 7 31 BCE SCNXT,INPUT&27&X1, Q. INDEXING 8 2091 B J17 3V9 111 807 7 32 A &3,XL2 PROCESS INDEXING 7 2099 A A47 094 111 808 7 33 MN INPUT&27&X1,FREE&21&X2 7 2106 D 3V9 1K1 111 809 7 34 MCW @&X@ 4 2113 M A49 111 810 7 35 SCNXT B XXXX EXIT 4 2117 B 000 111 811 7 36 MKMIN MCW @-@,INPUT&23&X1 SET CHAR ADJ SIGN 7 2121 M A50 3V5 111 812 7 37 B RTN2 TO MINUS 4 2128 B !39 112 813 7 38 FIXLIT BCE NOT11,INPUT&27&X1, PROCESS REMAINDER OF 8 2132 B J58 3V9 112 814 7 39 A &1,XL2 FIXED FORM NUMERIC 7 2140 A R44 094 112 815 7 40 MN INPUT&27&X1,FREE&21&X2 LITERAL 7 2147 D 3V9 1K1 112 816 7 41 B SCNXT 4 2154 B J17 112 817 7 42 NOT11 BCE SUBT,INPUT&26&X1, 8 2158 B J70 3V8 112 818 7 43 B SCNXT 4 2166 B J17 113 819 7 44 SUBT A @I99@,XL1 7 2170 A A53 089 113 820 7 45 A @I99@,XL2 7 2177 A A53 094 113 821 7 46 B NOT11 4 2184 B J58 113 822 7 47 CKLIT2 BCE SCNXT,INPUT&17&X1,& Q. LITERAL 8 2188 B J17 3U9 & 113 823 7 48 BCE SCNXT,INPUT&17&X1,- 8 2196 B J17 3U9 - 113 824 7 49 B NOADJ 4 2204 B !75 114 825 7 50 DCW 0 1 2208 114 826 7 51 SYSMK1 DCW @}@ SYSTEM GROUP MARK 1 2209 GMARK 114 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 827 7 52 XFR 0 B 000 115 828 7 53 RTEND EQU * 2209 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 829 7 54 JOB 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 830 7 55 * 831 7 56 *TABLE LOOKUP OF MNEMONIC OP CODE 832 7 57 * 833 7 58 ORG BEGIN 2465 834 7 59 TLUOP SBR TLUXT&3 4 2465 H O46 118 835 7 60 C FREE&18,BLANK3#3 Q. ACTUAL 7 2469 C 118 A56 118 836 7 61 BE ABSCOD OP CODE 5 2476 B P55 S 118 837 7 62 MLC FREE&18,XL2 7 2481 M 118 094 118 838 7 63 A FREE&18,XL2-1 7 2488 A 118 093 118 839 7 64 A FREE&18,XL2-2 7 2495 A 118 092 118 840 7 65 A FREE&16,XL2 TABLE LOOKUP 7 2502 A 116 094 119 841 7 66 SUB1 S &5500,XL2&1 USES ADDRESS 7 2509 S A60 095 119 842 7 67 BWZ SUB1,XL2&1,B CONVERSION TECHNIQUE 8 2516 V N09 095 B 119 843 7 68 MLCWA OPND-549&X2,EQVADD#9 7 2524 L BN9 A69 119 844 7 69 SAR GETOP&3 4 2531 Q N42 119 845 7 70 S XL2&2 4 2535 S 096 119 846 7 71 GETOP MLCWA XXXX,EQVADD SEARCH TABLE FOR 7 2539 L 000 A69 120 847 7 72 SAR GETOP&3 MNEMONIC 4 2546 Q N42 120 848 7 73 BCE BADOP,EQVADD,@ Q. OP NOT IN TABLE 8 2550 B P28 A69 @ 120 849 7 74 C EQVADD,FREE&18 Q. OP CODE FOUND 7 2558 C A69 118 120 850 7 75 BU GETOP 5 2565 B N39 / 120 851 7 76 LCA EQVADD-3,EQVADD SHIFT TABLE FUNCTION 7 2570 L A66 A69 120 852 7 77 C @N @,EQVADD Q. ENTER CARD 7 2577 C A71 A69 121 853 7 78 BE ENTER 5 2584 B O47 S 121 854 7 79 C EQVADD,@B @ Q. MLC, MLCWA TYPE 7 2589 C A69 A73 121 855 7 80 BE SPECIN 5 2596 B O83 S 121 856 7 81 C EQVADD,@2 @ Q. RAMAC INSTN 7 2601 C A69 A75 121 857 7 82 BE SPECIN 5 2608 B O83 S 121 858 7 83 SAVCOD MCW EQVADD,FREE&15 PLACE TABLE FUNCTION 7 2613 M A69 115 122 859 7 84 SBR XL3 ON RECORD PRECEDED BY 4 2620 H 099 122 860 7 85 C XL3,&FREE&11 A PLUS SIGN 7 2624 C 099 A78 122 861 7 86 BE *&8 5 2631 B O43 S 122 862 7 87 MCW @&@,000&X3 7 2636 M ?60 0?0 122 863 7 88 TLUXT B XXXX EXIT 4 2643 B 000 122 864 7 89 ENTER C FREE&23,@SPS@ DETERMINE TYPE OF 7 2647 C 123 A81 123 865 7 90 BE GTFIX ENTER CARD AND 5 2654 B 464 S 123 866 7 91 C INPUT&20,@AUTO@ GO TO APPROPRIATE 7 2659 C 352 A85 123 867 7 92 BE GTFRE ROUTINE 5 2666 B 503 S 123 868 7 93 BW PSTNU,MODESW 8 2671 V 630 ?02 1 123 869 7 94 B RSTMOD 4 2679 B 638 123 870 7 95 SPECIN BWZ MLCTYP,EQVADD-1,B Q. MLC TYPE 8 2683 V P17 A68 B 124 871 7 96 LCA EQVADD-2,EQVADD 7 2691 L A67 A69 124 872 7 97 CKEL BCE SAVCOD,FREE&19, Q. SHOULD OP BE -L- 8 2698 B O13 119 124 873 7 98 MCW @L@,EQVADD MAKE OP CODE -L- 7 2706 M A86 A69 124 874 7 99 B SAVCOD 4 2713 B O13 124 875 8 00 MLCTYP LCA @M@,EQVADD MAKE OP CODE -M- 7 2717 L A87 A69 125 876 8 01 B CKEL 4 2724 B O98 125 877 8 02 * 878 8 03 * PROCESS ILLEGAL OPERATION CODE 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 879 8 04 * 880 8 05 BADOP LCA BLANK,EQVADD MAKE OP BLANK 7 2728 L A54 A69 125 881 8 06 BW SAVCOD,FREESW Q. IN FREE FORM MODE 8 2735 V O13 H09 1 125 882 8 07 BW CKFF,MODESW Q. IN FREE FORM MODE 8 2743 V Q01 ?02 1 125 883 8 08 B SAVCOD 4 2751 B O13 125 884 8 09 ABSCOD BCE SAVCOD,FREE&19, REW: BCE OPBLK,FREE&19, 8 2755 B O13 119 126 885 8 10 LCA BLANK,EQVADD PROCESS ACTUAL OP 7 2763 L A54 A69 126 886 8 11 MCW FREE&19,EQVADD CODES 7 2770 M 119 A69 126 887 8 12 BCE SAVCOD,FREE&20, 8 2777 B O13 120 126 888 8 13 CW EQVADD 4 2785 ) A69 126 889 8 14 SW 1 2789 , 126 890 8 15 MCW FREE&20,EQVADD-1 7 2790 M 120 A68 127 891 8 16 B SAVCOD 4 2797 B O13 127 892 8 17 CKFF BCE SAVCOD,FREE&14, IF RECORD APPEARS TO B 8 2801 B O13 114 127 893 8 18 MCW FREE&80,INPUT&80 BE FIXED FORM RECORD 7 2809 M 180 412 127 894 8 19 CHAIN 9 MACRO 895 MCW 1 2816 M GEN 127 896 MCW 1 2817 M GEN 127 897 MCW 1 2818 M GEN 127 898 MCW 1 2819 M GEN 128 899 MCW 1 2820 M GEN 128 900 MCW 1 2821 M GEN 128 901 MCW 1 2822 M GEN 128 902 MCW 1 2823 M GEN 128 903 MCW 1 2824 M GEN 128 904 8 20 CS 332 4 2825 / 332 128 905 8 21 CS 1 2829 / 129 906 8 22 MCW FREE&80,PRINT&80 7 2830 M 180 280 129 907 8 23 CHAIN 4 MACRO 908 MCW 1 2837 M GEN 129 909 MCW 1 2838 M GEN 129 910 MCW 1 2839 M GEN 129 911 MCW 1 2840 M GEN 129 912 8 24 MCW @PROCESSING AS FIXED FORM RECORD@,332 7 2841 M B18 332 129 913 8 25 W 1 2848 2 130 914 8 26 SW FREESW 4 2849 , H09 130 915 8 27 BCV RESTR 5 2853 B Q62 @ 130 916 8 28 B GTFIX 4 2858 B 464 130 917 8 29 RESTR CCB GTFIX,1 5 2862 F 464 1 130 918 8 30 * 919 8 31 * END OF JOB PROCEDURE 920 8 32 * 921 8 33 PREOJ RTW SYSTAP,OVL2 SKIP PAST OVERLAY 8 2867 L %U1 626 R 130 922 8 34 EOJ B PUT PUT END CARD 4 2875 B 586 130 923 8 35 WTM OUTAPE WRITE TAPE MARK 5 2879 U %U4 M 131 924 8 36 * MESSG@PASS 3 COMPLETED@,60,K,1 925 01 CC K 2 2884 F K 131 926 02 CS 332 4 2886 / 332 131 927 03 CS 1 2890 / 131 928 04 MCW @PASS 3 COMPLETED@,60&200 7 2891 M B34 260 131 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 929 05 W 1 2898 2 131 930 06 CC 1 2 2899 F 1 131 931 8 37 CW SYSMK1 CLEAR GROUP MK W/ WM 4 2901 ) K09 132 932 8 38 CW GMK1,GMK2 7 2905 ) I89 187 132 933 8 39 RTW SYSTAP,OVL2 8 2912 L %U1 626 R 132 934 8 40 RTW SYSTAP,085 READ IN PASS 4 8 2920 L %U1 085 R 132 935 8 41 NOP 0 4 2928 N 000 132 936 8 42 BER TPERR 5 2932 B K10 L 132 937 8 43 B PASSB2 GO TO NEXT PASS 4 2937 B 200 133 938 8 44 LTORG * 2941 DCW &INAREA&12 3 2943 I15 ADCON 133 DCW &1 1 2944 LIT 133 DCW @CHA@ 3 2947 LIT 133 DCW @S@ 1 2948 LIT 133 DCW @Z@ 1 2949 LIT 133 DCW &00 2 2951 LIT 133 HLDCD DCW #01 1 2952 AREA 134 DCW @C@ 1 2953 LIT 134 DCW @Y@ 1 2954 LIT 134 DCW @&1 @ 3 2957 LIT 134 DCW @EQU @ 5 2962 LIT 134 DCW @$HIVAL &P @ 10 2972 LIT 134 DCW &NUREC 3 2975 626 ADCON 134 DCW @B@ 1 2976 LIT 135 DCW @ @ 3 2979 LIT 135 SAVOP DCW #09 9 2988 AREA 135 DCW @$HIVAL@ 6 2994 LIT 135 DCW @$P @ 5 2999 LIT 135 DCW @3 @ 2 3001 LIT 135 MODESW DCW #01 1 3002 AREA 135 DCW @ILLEGAL LABEL - SEQUENCE NUMBER@ 31 3033 LIT 136 DCW @,@ 1 3034 LIT 136 DCW @011@ 3 3037 LIT 136 DCW @B @ 3 3040 LIT 136 DCW @ B@ 3 3043 LIT 137 DCW @NOP@ 3 3046 LIT 137 DCW @BCE@ 3 3049 LIT 137 DCW @BIN@ 3 3052 LIT 137 DCW @& B@ 3 3055 LIT 137 DCW &5 1 3056 LIT 137 DCW @BSS@ 3 3059 LIT 137 DCW @&@ 1 3060 LIT 138 DCW @$$@ 2 3062 LIT 138 DCW &VALUE&2 3 3065 S02 ADCON 138 DCW @ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES@ 44 3109 LIT 140 ABSW DCW #01 1 3110 AREA 140 DCW @ &@ 2 3112 LIT 140 WAREA6 DCW #06 6 3118 AREA 140 DCW @EQU@ 3 3121 LIT 140 DCW @&P @ 3 3124 LIT 141 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @032@ 3 3127 LIT 141 DCW @000@ 3 3130 LIT 141 DCW @@@ 1 3131 LIT 141 DCW @52@ 2 3133 LIT 141 DCW @P@ 1 3134 LIT 141 DCW @00@ 2 3136 LIT 141 DCW @LTORG@ 5 3141 LIT 142 DCW @05@ 2 3143 LIT 142 DCW @04@ 2 3145 LIT 142 DCW &4 1 3146 LIT 142 DCW &3 1 3147 LIT 142 DCW @&X@ 2 3149 LIT 142 DCW @-@ 1 3150 LIT 142 DCW @I99@ 3 3153 LIT 143 BLANK3 DCW #03 3 3156 AREA 143 DCW &5500 4 3160 LIT 143 EQVADD DCW #09 9 3169 AREA 143 DCW @N @ 2 3171 LIT 143 DCW @B @ 2 3173 LIT 143 DCW @2 @ 2 3175 LIT 143 DCW &FREE&11 3 3178 111 ADCON 144 DCW @SPS@ 3 3181 LIT 144 DCW @AUTO@ 4 3185 LIT 144 DCW @L@ 1 3186 LIT 144 DCW @M@ 1 3187 LIT 144 DCW @PROCESSING AS FIXED FORM RECORD@ 31 3218 LIT 145 DCW @PASS 3 COMPLETED@ 16 3234 LIT 146 939 8 45 * 940 8 46 *TABLE OF MNEMONIC OPERATION CODES 941 8 47 * 942 8 48 ORG 3253 3253 943 8 49 DCW @@@ 1 3253 147 944 8 50 DCW #4 4 3257 147 945 8 51 DCW #2 2 3259 147 946 8 52 DCW @NNOP@ 4 3263 147 947 8 53 DCW @C XFR@ 5 3268 147 948 8 54 DCW @O LOR@ 5 3273 147 949 8 55 DCW @I JOB@ 5 3278 147 950 8 56 DCW @/CS @ 4 3282 148 951 8 57 DCW @0 DA @ 5 3287 148 952 8 58 DCW @S2WSS@ 5 3292 148 953 8 59 MASYM DCW @#MA @ 4 3296 148 954 8 60 DCW @3 END@ 5 3301 148 955 8 61 DCW @PMCM@ 4 3305 148 956 8 62 DCW @N ENT@ 5 3310 148 957 8 63 DCW @BRMRTB@ 6 3316 149 958 8 64 DCW @ABBLC@ 5 3321 149 959 8 65 DCW @ @ 1 3322 149 960 8 66 DCW @BMMBC@ 5 3327 149 961 8 67 DCW @%D @ 4 3331 149 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 962 8 68 DCW @F3WM2 WDC@ 9 3340 149 963 8 69 DCW @ FCCB@ 5 3345 149 964 8 70 DCW @S1DUDCR@ 7 3352 150 965 8 71 DCW @YMLZ@ 4 3356 150 966 8 72 DCW @@M @ 4 3360 150 967 8 73 DCW @UEUSKP@ 6 3366 150 968 8 74 DCW @O ORG@ 5 3371 150 969 8 75 DCW @HSBR@ 4 3375 150 970 8 76 DCW @K8 SS @ 6 3381 150 971 8 77 DCW @YMZ @ 4 3385 151 972 8 78 DCW @ @ 1 3386 151 973 8 79 DCW @)CW @ 4 3390 151 974 8 80 DCW @UWLWTW@ 6 3396 151 975 8 81 DCW @B MLC@ 5 3401 151 976 8 82 DCW @ZMCS@ 4 3405 151 977 8 83 DCW @UWMWT @ 6 3411 151 978 8 84 DCW @MMCW@ 4 3415 152 979 8 85 DCW @F2WM2 WDT@ 9 3424 152 980 8 86 DCW @QSAR@ 4 3428 152 981 8 87 DCW @R6WRF@ 5 3433 152 982 8 88 DCW @S1EUECR@ 7 3440 152 983 8 89 DCW @8SRF@ 4 3444 152 984 8 90 DCW @)2WM @ 5 3449 152 985 8 91 DCW @1VBW @ 5 3454 153 986 8 92 DCW @9BBC9@ 5 3459 153 987 8 93 DCW @1R @ 4 3463 153 988 8 94 DCW @URLRTW@ 6 3469 153 989 8 95 DCW @F1RMRD @ 7 3476 153 990 8 96 DCW @F1RLRDW@ 7 3483 153 991 8 97 DCW @MMU @ 4 3487 153 992 8 98 DCW @VBWZ@ 4 3491 154 993 8 99 DCW @,SW @ 4 3495 154 994 9 00 DCW @RBBPC@ 5 3500 154 995 9 01 DCW @CC @ 4 3504 154 996 9 02 DCW @C4PCB@ 5 3509 154 997 9 03 DCW @DMLN@ 4 3513 154 998 9 04 DCW @UMUWTM@ 6 3519 154 999 9 05 DCW @EMCE@ 4 3523 155 1000 9 06 DCW @C EX @ 5 3528 155 1001 9 07 DCW @ UCU @ 5 3533 155 1002 9 08 DCW @ZBBAV@ 5 3538 155 1003 9 09 DCW @5RP @ 4 3542 155 1004 9 10 DCW @.H @ 4 3546 155 1005 9 11 DCW @LLU @ 4 3550 155 1006 9 12 DCW @BWMWTB@ 6 3556 156 1007 9 13 DCW @ KSSB@ 5 3561 156 1008 9 14 DCW @KBBEF@ 5 3566 156 1009 9 15 DCW @PMRC@ 4 3570 156 1010 9 16 DCW @UBUBSP@ 6 3576 156 1011 9 17 DCW @URMRT @ 6 3582 156 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1012 9 18 DCW @SBBE @ 5 3587 156 1013 9 19 DCW @3WR @ 4 3591 157 1014 9 20 DCW @SS @ 4 3595 157 1015 9 21 DCW @BB @ 4 3599 157 1016 9 22 DCW @1 DCW@ 5 3604 157 1017 9 23 DCW @WBBE@ 4 3608 157 1018 9 24 DCW @J DSA@ 5 3613 157 1019 9 25 DCW @LLCA@ 4 3617 157 1020 9 26 DCW @A DC @ 5 3622 158 1021 9 27 DCW @F1WLWDW@ 7 3629 158 1022 9 28 DCW @7WRP@ 4 3633 158 1023 9 29 DCW @ BBIN@ 5 3638 158 1024 9 30 DCW @KVBM @ 5 3643 158 1025 9 31 DCW @PBBPB@ 5 3648 158 1026 9 32 DCW @9SPF@ 4 3652 158 1027 9 33 DCW @M SFX@ 5 3657 159 1028 9 34 DCW @4P @ 4 3661 159 1029 9 35 DCW @F0RMSD @ 7 3668 159 1030 9 36 DCW @@BBCV@ 5 3673 159 1031 9 37 DCW @!ZS @ 4 3677 159 1032 9 38 DCW @O LTO@ 5 3682 159 1033 9 39 DCW @P EQU@ 5 3687 159 1034 9 40 DCW @ BBSS@ 5 3692 160 1035 9 41 DCW @F8 CC @ 6 3698 160 1036 9 42 DCW @AA @ 4 3702 160 1037 9 43 DCW @LBBER@ 5 3707 160 1038 9 44 DCW @/BBU @ 5 3712 160 1039 9 45 DCW @BBCE@ 4 3716 160 1040 9 46 DCW @UBBH @ 5 3721 160 1041 9 47 DCW @TBBL @ 5 3726 161 1042 9 48 DCW @X DS @ 5 3731 161 1043 9 49 DCW @F2RM2 RDT@ 9 3740 161 1044 9 50 DCW @AMMBD@ 5 3745 161 1045 9 51 DCW @2W @ 4 3749 161 1046 9 52 DCW @F1WMWD @ 7 3756 161 1047 9 53 DCW @DMN @ 4 3760 161 1048 9 54 DCW @C1RCB@ 5 3765 162 1049 9 55 DCW @6WP @ 4 3769 162 1050 9 56 DCW @XMIZ@ 4 3773 162 1051 9 57 DCW #9 9 3782 162 1052 9 58 DCW #3 3 3785 162 1053 9 59 DCW @?ZA @ 4 3789 162 1054 9 60 DCW #1 1 3790 162 1055 9 61 DCW @UUURWU@ 6 3796 163 1056 9 62 DCW @URURWD@ 6 3802 163 1057 9 63 DCW @R4RF @ 5 3807 163 1058 9 64 OPND DCW #1 1 3808 163 1059 9 65 * 1060 9 66 * CONSTANTS AND TABLES 1061 9 67 * 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1062 9 68 FREESW DC 0 1 3809 163 1063 9 69 BINTBL DCW @BAV Z@ 5 3814 163 1064 9 70 DCW @BC9 9@ 5 3819 163 1065 9 71 DCW @BU /@ 5 3824 163 1066 9 72 DCW @BCV @@ 5 3829 164 1067 9 73 DCW @BE S@ 5 3834 164 1068 9 74 DCW @BEF K@ 5 3839 164 1069 9 75 DCW @BER L@ 5 3844 164 1070 9 76 DCW @BH U@ 5 3849 164 1071 9 77 DCW @BL T@ 5 3854 164 1072 9 78 DCW @BLC A@ 5 3859 164 1073 9 79 DCW @BPB P@ 5 3864 165 1074 9 80 DCW @BPCBR@ 5 3869 165 1075 9 81 DCW @BSS B@ 5 3874 165 1076 9 82 DCW @BSS C@ 5 3879 165 1077 9 83 DCW @BSS D@ 5 3884 165 1078 9 84 DCW @BSS E@ 5 3889 165 1079 9 85 DCW @BSS F@ 5 3894 165 1080 9 86 DCW @BSS G@ 5 3899 166 1081 9 87 * 1082 9 88 *TAPE INPUT AREA 1083 9 89 * 1084 9 90 DS 3 3902 1085 9 91 INAREA DA 1X86,G 3903 3988 1085 DCW @"@ 1 3989 GMARK 167 1086 9 92 GMK1 EQU * 3989 1087 9 93 * 1088 9 94 * EQUATES 1089 9 95 * 1090 9 96 BLANK EQU BLANK3-2 3154 1091 9 97 BLNK2 EQU BLANK3-1 3155 1092 9 98 ENDFIX EQU ENTSPS 0626 1093 9 99 WAREA3 EQU WAREA6-3 3115 1094 10 00 WAREA2 EQU WAREA6-4 3114 1095 10 01 EX LIBRN B 000 168 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1096 10 02 JOB 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 1097 10 03 SFX Z Z 1098 10 04 * 1099 10 05 * INITIALIZATION OF INDEX LOCATIONS 1100 10 06 * 1101 10 07 ORG 85 Z 0085 1102 10 08 GRPMK1 DC @}@ Z 1 0085 GMARK 171 1103 10 09 DC 0 Z 1 0086 171 1104 10 10 XL1 DCW 000 Z 3 0089 171 1105 10 11 DC 00 Z 2 0091 171 1106 10 12 XL2 DCW 000 Z 3 0094 171 1107 10 13 DC 00 Z 2 0096 171 1108 10 14 XL3 DCW 000 Z 3 0099 171 1109 10 15 DS 1 Z 0100 1110 10 16 * 1111 10 17 *FIXED FORM IMAGE AREA 1112 10 18 * 1113 10 19 IMAGE EQU * Z 0100 1114 10 20 DS 84 Z 0184 1115 10 21 GRPMK4 DC @}@ Z 1 0185 GMARK 172 1116 10 22 ZONE DCW @2SKB@ Z 4 0189 172 1117 10 23 EXOVFL DCW 99 CONSTANTS USED IN Z 2 0191 172 1118 10 24 EXNUMB DCW 00 MAKING IN LITERAL LABELS Z 2 0193 172 1119 10 25 PROCOR DCW #1 Z 1 0194 172 1120 10 26 TOTLBL DCW &0000 Z 4 0198 173 1121 10 27 JOBSW DCW 0 Z 1 0199 173 1122 10 28 * 1123 10 29 * READ IN CONTROL CARD OVERLAY 1124 10 30 * 1125 10 31 PASSB2 RTW SYSTAP,DOPROG Z 8 0200 L %U1 N75 R 173 1126 10 32 NOP 0 Z 4 0208 N 000 173 1127 10 33 BER TPERR Z 5 0212 B 221 L 173 1128 10 34 B START Z 4 0217 B N75 173 1129 10 35 * 1130 10 36 *TAPE REDUNDANCY ROUTINE 1131 10 37 * 1132 10 38 TPERR SBR XL3 Z 4 0221 H 099 173 1133 10 39 SBR REDXT&3 Z 4 0225 H 293 174 1134 10 40 MZ &9,XL3 Z 7 0229 Y 464 099 174 1135 10 41 MCW 4000-10&X3,TPINS&7 BRING IN INSTRUCTION Z 7 0236 M II0 284 174 1136 10 42 MN TPINS&3,BSP1&3 THAT CAUSED Z 7 0243 D 280 260 174 1137 10 43 MCW TPINS&7,INST2&7 REDUNDANCY Z 7 0250 M 284 393 174 1138 10 44 BSP1 BSP INITAP BACKSPACE TAPE Z 5 0257 U %U0 B 174 1139 10 45 BCE WRTRD,TPINS&7,W Q. WRITE REDUNDANCY Z 8 0262 B 366 284 W 175 1140 10 46 MCW &9,RDCT#1 INITIALIZE COUNTER Z 7 0270 M 464 465 175 1141 10 47 TPINS RT INITAP,XXXX RE-READ Z 8 0277 M %U0 000 R 175 1142 10 48 BER RDERR Q. REDUNDANCY Z 5 0285 B 294 L 175 1143 10 49 REDXT B XXXX EXIT Z 4 0290 B 000 175 1144 10 50 RDERR MN TPINS&3,BSP2&3 Z 7 0294 D 280 304 175 1145 10 51 BSP2 BSP INITAP BACKSPACE AGAIN Z 5 0301 U %U0 B 176 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1146 10 52 S &1,RDCT REDUCE COUNTER Z 7 0306 S 466 465 176 1147 10 53 BWZ TPINS,RDCT,B Q. 10 SUCCESSIVE RETRIES Z 8 0313 V 277 465 B 176 1148 10 54 MN TPINS&3,TPHLT&6 Z 7 0321 D 280 334 176 1149 10 55 TPHLT H XXXX,490 HALT Z 7 0328 . 000 490 176 1150 10 56 MCW TPINS&7,*&8 Z 7 0335 M 284 349 177 1151 10 57 RT INITAP,XXXX RE-READ Z 8 0342 M %U0 000 R 177 1152 10 58 BSS BSP1,E DETERMINE OPTION Z 5 0350 B 257 E 177 1153 10 59 H XXXX,402 HALT AGAIN Z 7 0355 . 000 402 177 1154 10 60 B REDXT EXIT Z 4 0362 B 290 177 1155 10 61 WRTRD SKP SYSTAP ERASE TAPE Z 5 0366 U %U1 E 177 1156 10 62 BCE SBCTR,WRTCR-1,5 Q. FIFTY SKIPS Z 8 0371 B 403 467 5 178 1157 10 63 A &1,WRTCR#2 INCREASE COUNT Z 7 0379 A 466 468 178 1158 10 64 INST2 WT INITAP,XXXX RE-WRITE Z 8 0386 M %U0 000 W 178 1159 10 65 BER BSP1 Q. REDUNDANCY AGAIN Z 5 0394 B 257 L 178 1160 10 66 B REDXT Z 4 0399 B 290 178 1161 10 67 SBCTR S WRTCR RESET COUNTER Z 4 0403 S 468 178 1162 10 68 MN TPINS&