~/I99~,002~A075003~)002~B0320020~B001~)099~M080099~B053~U%U1B~.~L%U1001R~B047L~)021~B007~I0~37XX~ ~U%U1B~.~L%U1020R~B001L~.020~ 020~B001~)099~M080099~B053~U%U1B~.~L%U1001R~B047L~)021~B007~I0~37XX ~L038338~N000~B007~/180 ~37XX ~L038342~N000~B007~)868 ~37XX ~L042350~N000~B007~M%U1200R ~37XX ~L039355~N000~B007~B361K ~37XX ~L039360~N000~B007~U%U1B ~37XX ~L038364~N000~B007~.369 ~37XX ~L038368~N000~B007~B478 ~37XX ~L038372~N000~B007~/332 ~37XX ~L035373~N000~B007~/ ~37XX ~L042381~N000~B007~M%U1200R ~37XX ~L038385~N000~B007~H862 ~37XX ~L039390~N000~B007~B369K ~37XX ~L038394~N000~B007~B726 ~37XX ~L039399~N000~B007~B776L ~37XX ~L041406~N000~B007~C279867 ~37XX ~L039411~N000~B007~B501S ~37XX ~L042419~N000~B007~V3698681 ~37XX ~L042427~N000~B007~B4542001 ~37XX ~L042435~N000~B007~B4662000 ~37XX ~L042443~N000~B007~B369200& ~37XX ~L039448~N000~B007~B486 ~37XX ~L035449~N000~B007~2 ~37XX ~L038453~N000~B007~B369 ~37XX ~L036455~N000~B007~F1 ~37XX ~L039460~N000~B007~B486 ~37XX ~L035461~N000~B007~2 ~37XX ~L038465~N000~B007~B369 ~37XX ~L036467~N000~B007~FK ~37XX ~L039472~N000~B007~B486 ~37XX ~L035473~N000~B007~2 ~37XX ~L038477~N000~B007~B369 ~37XX ~L038481~N000~B007~,868 ~37XX ~L038485~N000~B007~B369 ~37XX ~L038489~N000~B007~H500 ~37XX ~L041496~N000~B007~.000888 ~37XX ~L038500~N000~B007~B000 ~37XX ~L038504~N000~B007~.514 ~37XX ~L039509~N000~B007~U%U1R ~37XX ~L038513~N000~B007~.510 ~37XX ~L041520~N000~B007~H745521 ~37XX ~L038524~N000~B007~/280 ~37XX ~L038528~N000~B007~/180 ~37XX ~L038532~N000~B007~,101 ~37XX ~L042540~N000~B007~M%U1200R ~37XX ~L038544~N000~B007~H862 ~37XX ~L039549~N000~B007~B521K ~37XX ~L038553~N000~B007~B726 ~37XX ~L039558~N000~B007~B776L ~37XX ~L041565~N000~B007~M279180 ~37XX ~L035566~N000~B007~4 ~37XX ~L039571~N000~B007~B597! ~37XX ~L041578~N000~B007~M180725 ~37XX ~L036580~N000~B007~K4 ~37XX ~L041587~N000~B007~C179870 ~37XX ~L039592~N000~B007~B750S ~37XX ~L038596~N000~B007~B521 ~37XX ~L041603~N000~B007~M725180 ~37XX ~L035604~N000~B007~4 ~37XX ~L039609~N000~B007~B597! ~37XX ~L036611~N000~B007~K4 ~37XX ~L041618~N000~B007~A871873 ~37XX ~L042626~N000~B007~B6318721 ~37XX ~L038630~N000~B007~B559 ~37XX ~L041637~N000~B007~.000999 ~37XX ~L038641~N000~B007~S873 ~37XX ~L038645~N000~B007~B559 ~37XX ~L053664~)646~B007~ ~37XX ~L053683~)665~B007~ ~37XX ~L053702~)684~B007~ ~37XX ~L053721~)703~B007~ ~37XX ~L038725~)722~B007~ ~37XX ~,646646~N000~B007~ ~37XX ~L038729~N000~B007~H749 ~37XX ~L041736~N000~B007~C862876 ~37XX ~L039741~N000~B007~B746T ~37XX ~L038745~N000~B007~B369 ~37XX ~L038749~N000~B007~B000 ~37XX ~L038753~N000~B007~/180 ~37XX ~L035754~N000~B007~4 ~37XX ~L038758~N000~B007~/332 ~37XX ~L035759~N000~B007~/ ~37XX ~L041766~N000~B007~M910240 ~37XX ~L036768~N000~B007~F1 ~37XX ~L035769~N000~B007~2 ~37XX ~L036771~N000~B007~F1 ~37XX ~L038775~N000~B007~B505 ~37XX ~L038779~N000~B007~H808 ~37XX ~L039784~N000~B007~U%U1B ~37XX ~L041791~N000~B007~M911912 ~37XX ~L042799~N000~B007~M%U1200R ~37XX ~L039804~N000~B007~B809L ~37XX ~L038808~N000~B007~B000 ~37XX ~L039813~N000~B007~U%U1B ~37XX ~L041820~N000~B007~S913912 ~37XX ~L042828~N000~B007~V792912B ~37XX ~L041835~N000~B007~.000091 ~37XX ~L042843~N000~B007~M%U1200R ~37XX ~L039848~N000~B007~B780E ~37XX ~L041855~N000~B007~.000777 ~37XX ~L038859~N000~B007~B805 ~37XX ~L037862~N000~B007~ ~37XX ~L039867~N000~B007~]]]]] ~37XX ~L035868~N000~B007~ ~37XX ~L036870~N000~B007~99 ~37XX ~L035871~N000~B007~1 ~37XX ~L036873~N000~B007~ ~37XX ~L037876~N000~B007~213 ~37XX ~L066908~N000~B007~1401 AUTOCODER SYSTEM DECK PUNCH ~37XX ~L036910~)909~B007~ED ~37XX ~L035911~N000~B007~I ~37XX ~L035912~N000~B007~ ~37XX ~L035913~N000~B007~A ~37XX ~/335080~N000~B007~ ~37XX 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013711L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023711L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033711L 0 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 102 1 02 CTL 630 1 103 1 03 SYSTP EQU %U1 %U1 104 1 04 CARD EQU 0 0000 105 1 05 PRINT EQU 200 0200 106 1 06 ORG 87 0087 107 1 07 XR1 DCW 000 3 0089 4 108 1 08 DC 00 2 0091 4 109 1 09 XR2 DCW 000 3 0094 4 110 1 10 DC 00 2 0096 4 111 1 11 XR3 DCW 000 3 0099 4 112 1 12 DC 000000 6 0105 4 113 1 13 ZONE DCW 2SKB 4 0109 4 114 1 14 ABIT EQU ZONE-2 0107 115 1 15 NOBIT EQU ZONE-3 0106 116 1 16 XXXX EQU 0 0000 117 1 17 * 118 1 18 * START OF MAIN LINE 119 1 19 * 120 1 20 ORG 333 0333 &00000000000000000002SKB L023109,092097,106040,040040104000043711L 121 1 21 START RWD SYSTP 5 0333 U %U1 R 5 122 1 22 CC 1 2 0338 F 1 5 123 1 23 MCW @GENERATING 1401 AUTOCODER SYSTEM@,PRINT&32 7 0340 M 83 232 5 124 1 24 W 1 0347 2 5 125 1 25 CC 1 2 0348 F 1 5 126 1 26 CS PRINT&132 4 0350 / 332 5 127 1 27 CS 1 0354 / 5 &U%U1RF1M 832322F1/332/ L022354,338340,347348,350354104000053711L 128 1 28 MCW CARD&75,SEQNO#4 7 0355 M 075 87 6 129 1 29 * 130 1 30 * START OF NEXT BLOCK 131 1 31 * 132 1 32 NXTBK R 1 0362 1 6 133 1 33 C CARD&12,@CONTROL@ 7 0363 C 012 94 6 134 1 34 BU MACRO 5 0370 B 792 / 6 135 1 35 BWZ CKSEQ,CARD&80,2 8 0375 V 726 080 2 6 136 1 36 BCE EOJOB,CARD&78,9 8 0383 B 877 078 9 6 &M075 871C012 94B792/V7260802B8770789 L036390,362363,370375,383040104000063711L 137 1 37 SW CARD&21 4 0391 , 021 7 138 1 38 ZA CARD&25,HOLD5#5 7 0395 ? 025 99 7 139 1 39 CW CARD&21 4 0402 ) 021 7 140 1 40 * 141 1 41 * FLOAT ADDRESS TO FIVE CHARACTERS 142 1 42 * 143 1 43 FLOAT BCE *&5,HOLD5,& 8 0406 B 418 99 & 7 144 1 44 B COMP1 4 0414 B 429 7 145 1 45 ZA HOLD5-1,HOLD5 7 0418 ? 98 99 7 146 1 46 B FLOAT 4 0425 B 406 7 147 1 47 * 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 * TEST ADDRESS AGAINST HOME ADDRESS 149 1 49 * TO DEVELOP INDEX VALUE 150 1 50 * &,021?025 99)021B418 99&B429? 98 99B406 L038428,395402,406414,418425104000073711L 151 1 51 COMP1 MZ NOBIT,HOLD5 7 0429 Y 106 99 8 152 1 52 S XR1&2 4 0436 S 091 8 153 1 53 C HOLD5,@01500@ 7 0440 C 99 /04 8 154 1 54 BE DOCOR 5 0447 B 538 S 8 155 1 55 BH SUB1 5 0452 B 527 U 8 156 1 56 S @01500@,HOLD5 7 0457 S /09 99 8 &Y106 99S091C 99/04B538SB527US/09 99 L035463,436440,447452,457040104000083711L 157 1 57 MCW @16000@,WORK5#5 7 0464 M /14 /19 9 158 1 58 SUB2 S HOLD5,WORK5 7 0471 S 99 /19 9 159 1 59 * 160 1 60 * CONVERT INDEX VALUE TO 3 DIGIT MACHINE ADDRESS 161 1 61 * 162 1 62 CNVRT BAV *&1 5 0478 B 483 Z 9 163 1 63 A @96@,WORK5-3 7 0483 A /21 /16 9 164 1 64 BAV CNVRT&5 5 0490 B 483 Z 9 165 1 65 MZ WORK5-4,WORK5 7 0495 Y /15 /19 9 &M/14/19S 99/19B483ZA/21/16B483ZY/15/19 L038501,471478,483490,495040104000093711L 166 1 66 MN WORK5-3,*&4 7 0502 D /16 512 10 167 1 67 MZ ZONE,WORK5-2 7 0509 Y 109 /17 10 168 1 68 MCW WORK5,XR1 7 0516 M /19 089 10 169 1 69 B DOCOR 4 0523 B 538 10 170 1 70 SUB1 MCW @01500@,WORK5 7 0527 M /26 /19 10 171 1 71 B SUB2 4 0534 B 471 10 172 1 72 * 173 1 73 * READ CONDENSED CARDS 174 1 74 * 175 1 75 DOCOR R 1 0538 1 10 &D/16512Y109/17M/19089B538M/26/19B4711 L037538,509516,523527,534538104000103711L 176 1 76 MCW @045@,XR3 7 0539 M /29 099 11 177 1 77 MCW @042@,XR2 7 0546 M /32 094 11 178 1 78 BWZ CKSEQ,CARD&80,2 8 0553 V 726 080 2 11 179 1 79 BCE WTAP1,CARD&68,B 8 0561 B 675 068 B 11 180 1 80 BCE SETWM,CARD&40,N 8 0569 B 596 040 N 11 &M/29099M/32094V7260802B675068BB596040N L038576,546553,561569,040040104000113711L 181 1 81 C CARD&46,@001@ 7 0577 C 046 /35 12 182 1 82 BE SETWM 5 0584 B 596 S 12 183 1 83 MZ ABIT,CARD&45 7 0589 Y 107 045 12 184 1 84 * 185 1 85 * SET RETURN ADDRESS 186 1 86 * 187 1 87 SETWM MCW &DOCOR,CARD&71 7 0596 M /38 071 12 188 1 88 MCW @B@ 4 0603 M /39 12 189 1 89 * 190 1 90 * INDEX WORD MARK ADDRESSES 191 1 91 * 192 1 92 COMP2 C XR2,@063@ 7 0607 C 094 /42 12 &C046/35B596SY107045M/38071M/39C094/42 L037613,584589,596603,607040104000123711L 193 1 93 BE CARD&40 5 0614 B 040 S 13 194 1 94 A &7,XR3 7 0619 A /43 099 13 195 1 95 A &7,XR2 7 0626 A /43 094 13 196 1 96 C CARD&1&X2,@040@ 7 0633 C 0!1 /46 13 197 1 97 BE *&8 5 0640 B 652 S 13 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 98 MZ ABIT,CARD&X2 7 0645 Y 107 0!0 13 &B040SA/43099A/43094C0!1/46B652SY1070!0 L038651,619626,633640,645040104000133711L 199 1 99 C CARD&1&X3,@040@ 7 0652 C 0?1 /46 14 200 2 00 BE COMP2 5 0659 B 607 S 14 201 2 01 MZ ABIT,CARD&X3 7 0664 Y 107 0?0 14 202 2 02 B COMP2 4 0671 B 607 14 203 2 03 * 204 2 04 * WRITE CORE ON TAPE 205 2 05 * 206 2 06 WTAP1 LCA @}@,3998 7 0675 L /47 I98 14 207 2 07 WTW SYSTP,1500 8 0682 L %U1 V00 W 14 &C0?1/46B607SY1070?0B607L/47I98L%U1V00W L038689,659664,671675,682040104000143711L 208 2 08 BER WTERR 5 0690 B 973 L 15 209 2 09 * 210 2 10 * CLEAR INPUT AREA 211 2 11 * 212 2 12 MCW @I99@,CLEAR&3 7 0695 M /50 705 15 213 2 13 CLEAR CS XXXX 4 0702 / 000 15 214 2 14 SBR CLEAR&3 4 0706 H 705 15 215 2 15 C CLEAR&3,@U99@ 7 0710 C 705 /53 15 216 2 16 BU CLEAR 5 0717 B 702 / 15 217 2 17 B NXTBK 4 0722 B 362 15 218 2 18 * 219 2 19 * CHECK CARD SEQUENCE 220 2 20 * &B973LM/50705/000H705C705/53B702/B362 L036725,695702,706710,717722104000153711L 221 2 21 CKSEQ SBR SEQXT&3 4 0726 H 759 16 222 2 22 A &1,SEQNO 7 0730 A /54 87 16 223 2 23 C CARD&75,SEQNO 7 0737 C 075 87 16 224 2 24 MCW CARD&75,SEQNO 7 0744 M 075 87 16 225 2 25 BU SEQER 5 0751 B 760 / 16 226 2 26 SEQXT B XXXX 4 0756 B 000 16 227 2 27 * 228 2 28 * CARD SEQUENCE ERROR 229 2 29 * &H759A/54 87C075 87M075 87B760/B000 L034759,730737,744751,756040104000163711L 230 2 30 SEQER MCW CARD&80,PRINT&80 7 0760 M 080 280 17 231 2 31 CHAIN 6 MACRO 232 MCW 1 0767 M GEN 17 233 MCW 1 0768 M GEN 17 234 MCW 1 0769 M GEN 17 235 MCW 1 0770 M GEN 17 236 MCW 1 0771 M GEN 17 237 MCW 1 0772 M GEN 17 &M080280MMMMMM L013772,767768,769770,771772104000173711L 238 2 32 MCW @SEQUENCE ERROR@,PRINT&98 7 0773 M /68 298 18 239 2 33 W 1 0780 2 18 240 2 34 H 0,176 7 0781 . 000 176 18 241 2 35 B DOSEQ 4 0788 B 941 18 242 2 36 * 243 2 37 * PROCESS MACRO LIBRARY 244 2 38 * 245 2 39 MACRO NOP CRDER 4 0792 N 917 18 246 2 40 C CARD&20,@HEADR@ 7 0796 C 020 /73 18 247 2 41 BU CRDER 5 0803 B 917 / 18 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &M/682982.000176B941N917C020/73B917/ L035807,780781,788792,796803104000183711L 248 2 42 BWZ CKSEQ,CARD&80,2 8 0808 V 726 080 2 19 249 2 43 MCW @B@,MACRO 7 0816 M /39 792 19 250 2 44 LCA @}@,CARD&81 7 0823 L /47 081 19 251 2 45 * 252 2 46 * WRITE SKELETON INSTRUCTIONS ON TAPE 253 2 47 * 254 2 48 WTAP2 WT SYSTP,CARD&1 8 0830 M %U1 001 W 19 255 2 49 BER WTERR 5 0838 B 973 L 19 &V7260802M/39792L/47081M%U1001WB973L L035842,816823,830838,040040104000193711L 256 2 50 C CARD&11,@999999@ 7 0843 C 011 /79 20 257 2 51 BE WTTM 5 0850 B 868 S 20 258 2 52 R 1 0855 1 20 259 2 53 BWZ CKSEQ,CARD&80,2 8 0856 V 726 080 2 20 260 2 54 B WTAP2 4 0864 B 830 20 261 2 55 WTTM WTM SYSTP 5 0868 U %U1 M 20 262 2 56 B NXTBK 4 0873 B 362 20 263 2 57 * 264 2 58 * END OF GENERATION 265 2 59 * &C011/79B868S1V7260802B830U%U1MB362 L034876,850855,856864,868873104000203711L 266 2 60 EOJOB WTM SYSTP 5 0877 U %U1 M 21 267 2 61 RWD SYSTP 5 0882 U %U1 R 21 268 2 62 CW @}@ 4 0887 ) /47 21 269 2 63 CS PRINT&132 4 0891 / 332 21 270 2 64 CS 1 0895 / 21 271 2 65 MCW @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@,246 7 0896 M S25 246 21 272 2 66 W 1 0903 2 21 &U%U1MU%U1R)/47/332/MS252462 L027903,882887,891895,896903104000213711L 273 2 67 CC 1 2 0904 F 1 22 274 2 68 * 275 2 69 * FINAL HALT 276 2 70 * 277 2 71 HALT H 0,142 7 0906 . 000 142 22 278 2 72 B HALT 4 0913 B 906 22 279 2 73 * 280 2 74 * MISSING CONTROL CARD 281 2 75 * 282 2 76 CRDER CS PRINT&132 4 0917 / 332 22 283 2 77 CS 1 0921 / 22 284 2 78 MCW @SYSTEM CONTROL CARD MISSING@,PRINT&27 7 0922 M S52 227 22 285 2 79 W 1 0929 2 22 &F1.000142B906/332/MS522272 L026929,906913,917921,922929104000223711L 286 2 80 HALT2 H 0,177 7 0930 . 000 177 23 287 2 81 B HALT2 4 0937 B 930 23 288 2 82 * 289 2 83 * AFTER SEQUENCE ERROR, CHECK BALANCE OF DECK 290 2 84 * 291 2 85 DOSEQ R 1 0941 1 23 292 2 86 BWZ CKSEQ,CARD&80,2 8 0942 V 726 080 2 23 293 2 87 BCE ENDSQ,CARD&78,9 8 0950 B 962 078 9 23 294 2 88 B DOSEQ 4 0958 B 941 23 295 2 89 ENDSQ H 0,152 7 0962 . 000 152 23 &.000177B9301V7260802B9620789B941.000152L039968,937941,942950,958962104000233711L 296 2 90 B ENDSQ 4 0969 B 962 24 297 2 91 * 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 92 * WRITE REDUNDANCY ROUTINE 299 2 93 * 300 2 94 WTERR SBR WTXT&3 4 0973 H 36 24 301 2 95 SBR XR3 4 0977 H 099 24 302 2 96 MZ &9,XR3 7 0981 Y S53 099 24 303 2 97 MCW 4000-6&X3,RETRY&7 7 0988 M II4 27 24 304 2 98 BSP BSP SYSTP 5 0995 U %U1 B 24 305 2 99 SKP SYSTP 5 1000 U %U1 E 24 &B962H 36H099YS53099MII4 27U%U1BU%U1E L036 04,973977,981988,995 00104000243711L 306 3 00 BCE SUBCT,WTCT-1,1 8 1005 B 37 S54 1 25 307 3 01 A &1,WTCT#2 7 1013 A /54 S55 25 308 3 02 RETRY WT SYSTP,XXXX 8 1020 M %U1 000 W 25 309 3 03 BER BSP 5 1028 B 995 L 25 310 3 04 WTXT B XXXX 4 1033 B 000 25 311 3 05 SUBCT S WTCT 4 1037 S S55 25 &B 37S541A/54S55M%U1000WB995LB000SS55 L036 40, 13 20, 28 33, 37040104000253711L 312 3 06 H 0,161 7 1041 . 000 161 26 313 3 07 B RETRY 4 1048 B 20 26 &.000161B 20 L011 51, 48040,040040,040040104000263711L 123 DCW @GENERATING 1401 AUTOCODER SYSTEM@ 32 1083 LIT 27 128 SEQNO #04 4 1087 AREA 27 &GENERATING 1401 AUTOCODER SYSTEM L036 87, 84040,040040,040040104000273711L 133 @CONTROL@ 7 1094 LIT 28 138 HOLD5 #05 5 1099 AREA 28 153 @01500@ 5 1104 LIT 28 156 @01500@ 5 1109 LIT 28 157 @16000@ 5 1114 LIT 28 157 WORK5 #05 5 1119 AREA 28 @96@ 2 1121 LIT 28 &CONTROL 015000150016000 96 L034/21, 95/00,/05/10,/15/20104000283711L 170 @01500@ 5 1126 LIT 29 @045@ 3 1129 LIT 29 @042@ 3 1132 LIT 29 @001@ 3 1135 LIT 29 187 &DOCOR 3 1138 538 ADCON 29 @B@ 1 1139 LIT 29 @063@ 3 1142 LIT 29 &01500045042001538B063 L021/42,/27/30,/33/36,/39/40104000293711L &7 1 1143 LIT 30 @040@ 3 1146 LIT 30 @}@ 1 1147 LIT 30 @I99@ 3 1150 LIT 30 @U99@ 3 1153 LIT 30 &1 1 1154 LIT 30 238 @SEQUENCE ERROR@ 14 1168 LIT 30 &G040}I99U99ASEQUENCE ERROR L026/68,/44/47,/48/51,/54/55104000303711L 246 @HEADR@ 5 1173 LIT 31 256 @999999@ 6 1179 LIT 31 &HEADR999999 L011/79,/74040,040040,040040104000313711L &1401 AUTOCODER SYSTEM GENERATED ON TAPEL039S18,040040,040040,040040104000323711L 271 @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@ 46 1225 LIT 33 284 @SYSTEM CONTROL CARD MISSING@ 27 1252 LIT 33 &9 1 1253 LIT 33 307 WTCT #02 2 1255 AREA 33 & UNIT 1SYSTEM CONTROL CARD MISSINGI L037S55)S19S19,S26S53,S54040104000333711L & N000000,040040,040040,040040B33300343711L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00353712L &,068072)063067/061039 ,001001104000363712L 314 3 08 EX START B 333 34 1 1401 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 315 3 09 JOB 1401 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 316 3 10 SFX B 317 3 11 PASSA EQU 1650 B 1650 318 3 12 DOPSA EQU 1900 B 1900 319 3 13 SYSTP EQU %U1 B %U1 320 3 14 * 321 3 15 * BRANCH FROM TAPE LOAD BUTTON 322 3 16 * 323 3 17 ORG 1 B 0001 324 3 18 B 333 B 4 0001 B 333 37 ADDR 325 3 19 H *-3 B 4 0005 . 005 37 ADDR 326 3 20 LOADD DCW @599@ B 3 0011 37 ADDR 327 3 21 ORG 87 B 0087 &B333.005599 L011011,005009,040040,040040104000373712L 328 3 22 XR1 DCW 000 B 3 0089 38 329 3 23 DC 00 B 2 0091 38 330 3 24 DCW 000 B 3 0094 38 331 3 25 DC 00 B 2 0096 38 332 3 26 DCW 000 B 3 0099 38 333 3 27 DC 00 B 2 0101 38 334 3 28 * 335 3 29 * BEGIN PROGRAM 336 3 30 * 337 3 31 ORG 333 B 0333 &000000000000000 L015101,092097,040040,040040104000383712L 338 3 32 BER HALT1 B 5 0333 B 407 L 39 339 3 33 SW GMRK1 B 4 0338 , 835 39 340 3 34 CLEAR CS 3999 B 4 0342 / I99 39 341 3 35 SBR CLEAR&3 B 4 0346 H 345 39 342 3 36 C CLEAR&3,@U99@ B 7 0350 C 345 787 39 343 3 37 BU CLEAR B 5 0357 B 342 / 39 344 3 38 * 345 3 39 * GET PAST LIBRARY 346 3 40 * 347 3 41 LOOP1 SW GMRK1 B 4 0362 , 835 39 &B407L,835/I99H345C345787B342/,835 L033365,338342,346350,357362104000393712L 348 3 42 RT SYSTP,GMRK1-21 B 8 0366 M %U1 814 R 40 349 3 43 C GMRK1-2,@999999 HEADR@ B 7 0374 C 833 802 40 350 3 44 BU LOOP1 B 5 0381 B 362 / 40 351 3 45 SW GMRK1 B 4 0386 , 835 40 352 3 46 RT SYSTP,GMRK1-1 B 8 0390 M %U1 834 R 40 353 3 47 BEF TSTSS B 5 0398 B 418 K 40 &M%U1814RC833802B362/,835M%U1834RB418K L037402,374381,386390,398040104000403712L 354 3 48 B LOOP1 B 4 0403 B 362 41 355 3 49 * 356 3 50 * REDUNDANCY ON TAPE LOAD 357 3 51 * 358 3 52 HALT1 H 0,199 B 7 0407 . 000 199 41 359 3 53 B HALT1 B 4 0414 B 407 41 360 3 54 TSTSS BSS LIBRN,F B 5 0418 B 521 F 41 361 3 55 * 362 3 56 * RETRIEVE PASS 2 FOR ASSEMBLY RUN 363 3 57 * 364 3 58 SW GMRK1 B 4 0423 , 835 41 1 1401 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 365 3 59 LCA GMRK1,3998 B 7 0427 L 835 I98 41 366 3 60 MCW &PASSA&13,NOIS2&6 B 7 0434 M 805 658 41 367 3 61 * 368 3 62 * GET PAST LIBRARIAN 369 3 63 * &B362.000199B407B521F,835L835I98M805658 L038440,407414,418423,427434104000413712L 370 3 64 LOOP2 BCE LDPSA,BYCT,4 B 8 0441 B 476 807 4 42 371 3 65 SW 3998 B 4 0449 , I98 42 372 3 66 RTW SYSTP,PASSA B 8 0453 L %U1 W50 R 42 373 3 67 B NOISE B 4 0461 B 637 42 374 3 68 A &1,BYCT#1 B 7 0465 A 806 807 42 375 3 69 B LOOP2 B 4 0472 B 441 42 376 3 70 * 377 3 71 * PASS 2 FOUND 378 3 72 * &B4768074,I98L%U1W50RB637A806807B441 L035475,449453,461465,472040104000423712L 379 3 73 LDPSA RTW SYSTP,PASSA B 8 0476 L %U1 W50 R 43 380 3 74 B NOISE B 4 0484 B 637 43 381 3 75 BER RDERR B 5 0488 B 676 L 43 382 3 76 CW GMRK1 B 4 0493 ) 835 43 383 3 77 CLR CS PASSA-1 B 4 0497 / W49 43 384 3 78 SBR CLR&3 B 4 0501 H 500 43 385 3 79 C CLR&3,LOADD B 7 0505 C 500 011 43 &L%U1W50RB637B676L)835/W49H500C500011 L036511,484488,493497,501505104000433712L 386 3 80 BU CLR B 5 0512 B 497 / 44 387 3 81 B DOPSA B 4 0517 B Z00 44 388 3 82 * 389 3 83 * LIBRARY RUN 390 3 84 * 391 3 85 LIBRN MCW @!13@,NOIS2&6 B 7 0521 M 810 658 44 392 3 86 CW GMRK1 B 4 0528 ) 835 44 393 3 87 BSS OUTPT,B B 5 0532 B 558 B 44 394 3 88 * 395 3 89 * RETRIEVE UPDATE PROGRAM 396 3 90 * 397 3 91 RTW SYSTP,2000 B 8 0537 L %U1 !00 R 44 398 3 92 B NOISE B 4 0545 B 637 44 &B497/BZ00M810658)835B558BL%U1!00RB637 L037548,517521,528532,537545104000443712L 399 3 93 BER RDERR B 5 0549 B 676 L 45 400 3 94 B 2000 B 4 0554 B !00 45 401 3 95 * 402 3 96 * RETRIEVE OUTPUT PROGRAM 403 3 97 * 404 3 98 OUTPT RTW SYSTP,2000 B 8 0558 L %U1 !00 R 45 405 3 99 B NOISE B 4 0566 B 637 45 406 4 00 SW GMRK1 B 4 0570 , 835 45 407 4 01 LCA GMRK1,3998 B 7 0574 L 835 I98 45 &B676LB!00L%U1!00RB637,835L835I98 L032580,554558,566570,574040104000453712L 408 4 02 RTW SYSTP,2000 B 8 0581 L %U1 !00 R 46 409 4 03 B NOISE B 4 0589 B 637 46 410 4 04 RTW SYSTP,2000 B 8 0593 L %U1 !00 R 46 411 4 05 B NOISE B 4 0601 B 637 46 412 4 06 SW 3998 B 4 0605 , I98 46 413 4 07 RTW SYSTP,2000 B 8 0609 L %U1 !00 R 46 &L%U1!00RB637L%U1!00RB637,I98L%U1!00R L036616,589593,601605,609040104000463712L 414 4 08 B NOISE B 4 0617 B 637 47 1 1401 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 415 4 09 BER RDERR B 5 0621 B 676 L 47 416 4 10 CW GMRK1,3998 B 7 0626 ) 835 I98 47 417 4 11 B 2000 B 4 0633 B !00 47 418 4 12 * 419 4 13 * TEST FOR NOISE RECORDS 420 4 14 * 421 4 15 NOISE SBR NOSXT&3 B 4 0637 H 675 47 422 4 16 SBR XR1 B 4 0641 H 089 47 423 4 17 MZ &9,XR1 B 7 0645 Y 811 089 47 &B637B676L)835I98B!00H675H089Y811089 L035651,621626,633637,641645104000473712L 424 4 18 NOIS2 BCE 4000-12&X1,0,} B 8 0652 B IY8 000 } 48 425 4 19 CHAIN 12 MACRO 426 BCE B 1 0660 B GEN 48 427 BCE B 1 0661 B GEN 48 428 BCE B 1 0662 B GEN 48 429 BCE B 1 0663 B GEN 48 430 BCE B 1 0664 B GEN 48 431 BCE B 1 0665 B GEN 48 &BIY8000}BBBBBB L014665,660661,662663,664665104000483712L 432 BCE B 1 0666 B GEN 49 433 BCE B 1 0667 B GEN 49 434 BCE B 1 0668 B GEN 49 435 BCE B 1 0669 B GEN 49 436 BCE B 1 0670 B GEN 49 437 BCE B 1 0671 B GEN 49 438 4 20 NOSXT B 0 B 4 0672 B 000 49 439 4 21 * 440 4 22 * READ REDUNDANCY ROUTINE 441 4 23 * &BBBBBBB000 L010675,667668,669670,671672104000493712L 442 4 24 RDERR SBR XR1 B 4 0676 H 089 50 443 4 25 SBR RDXT&3 B 4 0680 H 726 50 444 4 26 MZ &9,XR1 B 7 0684 Y 811 089 50 445 4 27 MCW 4000-10&X1,RDTRY&7 B 7 0691 M IZ0 717 50 446 4 28 BSP BSP SYSTP B 5 0698 U %U1 B 50 447 4 29 MCW &9,RDCT#1 B 7 0703 M 811 812 50 &H089H726Y811089MIZ0717U%U1BM811812 L034709,680684,691698,703040104000503712L 448 4 30 RDTRY RTW SYSTP,0 B 8 0710 L %U1 000 R 51 449 4 31 BER *&5 B 5 0718 B 727 L 51 450 4 32 RDXT B 0 B 4 0723 B 000 51 451 4 33 BSP SYSTP B 5 0727 U %U1 B 51 452 4 34 S &1,RDCT B 7 0732 S 806 812 51 453 4 35 BWZ RDTRY,RDCT,B B 8 0739 V 710 812 B 51 &L%U1000RB727LB000U%U1BS806812V710812B L037746,718723,727732,739040104000513712L 454 4 36 H 0,191 B 7 0747 . 000 191 52 455 4 37 MCW RDTRY&7,*&8 B 7 0754 M 717 768 52 456 4 38 RTW SYSTP,0 B 8 0761 L %U1 000 R 52 457 4 39 BSS BSP,E B 5 0769 B 698 E 52 458 4 40 H 0,111 B 7 0774 . 000 111 52 459 4 41 B RDXT B 4 0781 B 723 52 460 4 42 LTORG * B 0785 &.000191M717768L%U1000RB698E.000111B723 L038784,754761,769774,781040104000523712L DCW @U99@ B 3 0787 LIT 53 349 @999999 HEADR@ B 15 0802 LIT 53 366 &PASSA&13 B 3 0805 W63 ADCON 53 &1 B 1 0806 LIT 53 1 1401 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 374 BYCT #01 B 1 0807 AREA 53 @!13@ B 3 0810 LIT 53 &9 B 1 0811 LIT 53 &U99999999 HEADRW63A !13I L027811,788803,806807,808811104000533712L 447 RDCT #01 B 1 0812 AREA 54 461 4 43 DCW #22 B 22 0834 54 462 4 44 GMRK1 DCW @}@ B 1 0835 54 & } L024835,813835,040040,040040104000543712L & N000000,040040,040040,040040B00000553712L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00563713L &,068072)063067/061039 ,001001104000573713L 463 4 45 EX 0 B B 000 55 1 1401 AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 3713L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 464 4 46 JOB 1401 AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 465 4 47 SFX R 466 4 48 SYSTP EQU %U1 R %U1 467 4 49 LTAPSW EQU 2725 R 2725 468 4 50 ORG 2000 R 2000 469 4 51 BSS LIST,G R 5 2000 B J26 G 58 470 4 52 CW ENDRT R 4 2005 ) K12 58 471 4 53 START RTW SYSTP,1 R 8 2009 L %U1 001 R 58 472 4 54 BCE START,013,} R 8 2017 B !09 013 } 58 473 4 55 CHAIN 12 MACRO 474 BCE R 1 2025 B GEN 58 475 BCE R 1 2026 B GEN 58 476 BCE R 1 2027 B GEN 58 &BJ26G)K12L%U1001RB!09013}BBB L028!27,!05!09,!17!25,!26!27104000583713L 477 BCE R 1 2028 B GEN 59 478 BCE R 1 2029 B GEN 59 479 BCE R 1 2030 B GEN 59 480 BCE R 1 2031 B GEN 59 481 BCE R 1 2032 B GEN 59 482 BCE R 1 2033 B GEN 59 483 BCE R 1 2034 B GEN 59 &BBBBBBB L007!34,!29!30,!31!32,!33!34104000593713L 484 BCE R 1 2035 B GEN 60 485 BCE R 1 2036 B GEN 60 486 4 56 BER RDERR R 5 2037 B !46 L 60 487 4 57 B 333 R 4 2042 B 333 60 488 4 58 RDERR BSP SYSTP R 5 2046 U %U1 B 60 489 4 59 MCW &9,RDCT#1 R 7 2051 M K06 K07 60 490 4 60 RDTRY RTW SYSTP,1 R 8 2058 L %U1 001 R 60 &BBB!46LB333U%U1BMK06K07L%U1001R L031!65,!36!37,!42!46,!51!58104000603713L 491 4 61 BER *&5 R 5 2066 B !75 L 61 492 4 62 B 333 R 4 2071 B 333 61 493 4 63 BSP SYSTP R 5 2075 U %U1 B 61 494 4 64 S &1,RDCT R 7 2080 S K08 K07 61 495 4 65 BWZ RDTRY,RDCT,B R 8 2087 V !58 K07 B 61 496 4 66 H 0,191 R 7 2095 . 000 191 61 &B!75LB333U%U1BSK08K07V!58K07B.000191 L036J01,!71!75,!80!87,!95040104000613713L 497 4 67 AGAIN RTW SYSTP,1 R 8 2102 L %U1 001 R 62 498 4 68 BSS RDERR,E R 5 2110 B !46 E 62 499 4 69 H 0,111 R 7 2115 . 000 111 62 500 4 70 B 333 R 4 2122 B 333 62 501 4 71 LIST SW ENDRT R 4 2126 , K12 62 502 4 72 LCA ENDRT,1998 R 7 2130 L K12 Z98 62 &L%U1001RB!46E.000111B333,K12LK12Z98 L035J36,J10J15,J22J26,J30040104000623713L 503 4 73 RTW SYSTP,333 R 8 2137 L %U1 333 R 63 504 4 74 BEF GET R 5 2145 B J54 K 63 505 4 75 B LIST R 4 2150 B J26 63 506 4 76 GET BSP SYSTP R 5 2154 U %U1 B 63 507 4 77 BSP SYSTP R 5 2159 U %U1 B 63 508 4 78 CW ENDRT,1998 R 7 2164 ) K12 Z98 63 509 4 79 SW LTAPSW R 4 2171 , P25 63 &L%U1333RBJ54KBJ26U%U1BU%U1B)K12Z98,P25 L038J74,J45J50,J54J59,J64J71104000633713L 510 4 80 MCW @333@,RDTRY&6 R 7 2175 M K11 !64 64 511 4 81 MCW @333@,AGAIN&6 R 7 2182 M K11 J08 64 512 4 82 RTW SYSTP,333 R 8 2189 L %U1 333 R 64 513 4 83 BER RDERR R 5 2197 B !46 L 64 1 1401 AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 3713L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 514 4 84 B 333 R 4 2202 B 333 64 515 4 85 LTORG * R 2206 DCW &9 R 1 2206 LIT 64 489 RDCT #01 R 1 2207 AREA 64 &MK11!64MK11J08L%U1333RB!46LB333I L033K07,J82J89,J97K02,K06K07104000643713L &1 R 1 2208 LIT 65 @333@ R 3 2211 LIT 65 516 4 86 ENDRT DCW @}@ R 1 2212 65 &A333} L005K12,K09K12,040040,040040104000653713L & N000000,040040,040040,040040B00000663713L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00673714L &,068072)063067/061039 ,001001104000683714L 517 4 87 EX 0 R B 000 66 1 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 518 4 88 JOB 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 519 4 89 SFX U 520 4 90 ORG 87 U 0087 521 4 91 XR1 DCW 000 U 3 0089 69 522 4 92 DC 00 U 2 0091 69 523 4 93 XR2 DCW 000 U 3 0094 69 524 4 94 DC 00 U 2 0096 69 525 4 95 XR3 DCW 000 U 3 0099 69 526 4 96 DC 00 U 2 0101 69 527 4 97 SYSTP EQU %U1 U %U1 528 4 98 OUTAP EQU %U6 U %U6 529 4 99 INPUT EQU 1500 U 1500 530 5 00 * 531 5 01 * BEGIN PROGRAM 532 5 02 * 533 5 03 ORG 333 U 0333 &000000000000000 L015101,092097,040040,040040104000693714L 534 5 04 SW ENDUP U 4 0333 , /39 70 535 5 05 RWD SYSTP U 5 0337 U %U1 R 70 536 5 06 RWD OUTAP U 5 0342 U %U6 R 70 537 5 07 CC 1 U 2 0347 F 1 70 538 5 08 CS 332 U 4 0349 / 332 70 539 5 09 CS U 1 0353 / 70 540 5 10 B CLEAR U 4 0354 B 21 70 &,/39U%U1RU%U6RF1/332/B 21 L025357,337342,347349,353354104000703714L 541 5 11 BSS COPY,C U 5 0358 B 525 C 71 542 5 12 * 543 5 13 * RETRIEVE UPDATE PROGRAM 544 5 14 * 545 5 15 RTW SYSTP,INPUT U 8 0363 L %U1 V00 R 71 546 5 16 SBR XR1 U 4 0371 H 089 71 547 5 17 MN 0&X1 U 4 0375 D 0 0 71 548 5 18 SW U 1 0379 , 71 549 5 19 DCW @N0000@ U 5 0384 71 550 5 20 B NOISE U 4 0385 B 759 71 &B525CL%U1V00RH089D0 0,N0000B759 L031388,363371,375379,380385104000713714L 551 5 21 BER RDERR U 5 0389 B 798 L 72 552 5 22 WTW OUTAP,INPUT U 8 0394 L %U6 V00 W 72 553 5 23 BER WTERR U 5 0402 B 928 L 72 554 5 24 B CLEAR U 4 0407 B 21 72 555 5 25 BYPSS RTW SYSTP,INPUT U 8 0411 L %U1 V00 R 72 556 5 26 C INPUT&19,@999999 HEADR@ U 7 0419 C V19 70 72 &B798LL%U6V00WB928LB 21L%U1V00RCV19 70 L037425,394402,407411,419040104000723714L 557 5 27 BU BYPSS U 5 0426 B 411 / 73 558 5 28 RTW SYSTP,INPUT U 8 0431 L %U1 V00 R 73 559 5 29 BEF GETUP U 5 0439 B 448 K 73 560 5 30 B BYPSS U 4 0444 B 411 73 561 5 31 GETUP BCE LDUPD,BYCT,3 U 8 0448 B 498 72 3 73 562 5 32 RTW SYSTP,INPUT U 8 0456 L %U1 V00 R 73 &B411/L%U1V00RB448KB411B498 723L%U1V00R L038463,431439,444448,456040104000733714L 563 5 33 DCW @N0000000000000@ U 14 0477 74 564 5 34 B NOISE U 4 0478 B 759 74 565 5 35 BER RDERR U 5 0482 B 798 L 74 566 5 36 A &1,BYCT#1 U 7 0487 A 71 72 74 567 5 37 B GETUP U 4 0494 B 448 74 1 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 568 5 38 LDUPD CS 199 U 4 0498 / 199 74 &N0000000000000B759B798LA 71 72B448/199 L038501,478482,487494,498040104000743714L 569 5 39 CS 80 U 4 0502 / 080 75 570 5 40 SW 6,16 U 7 0506 , 006 016 75 571 5 41 SW 21 U 4 0513 , 021 75 572 5 42 B HEAD U 4 0517 B N32 75 573 5 43 B BEGIN U 4 0521 B V00 75 574 5 44 * 575 5 45 * COPY SYSTEM 576 5 46 * 577 5 47 COPY RTW SYSTP,INPUT U 8 0525 L %U1 V00 R 75 578 5 48 SBR XR1 U 4 0533 H 089 75 &/080,006016,021BN32BV00L%U1V00RH089 L035536,506513,517521,525533104000753714L 579 5 49 MN 0&X1 U 4 0537 D 0 0 76 580 5 50 SW U 1 0541 , 76 581 5 51 BEF EOF U 5 0542 B 601 K 76 582 5 52 B NOISE U 4 0547 B 759 76 583 5 53 BER RDERR U 5 0551 B 798 L 76 584 5 54 * 585 5 55 * TEST END OF LIBRARY 586 5 56 * 587 5 57 SWICH NOP WTAP1 U 4 0556 N 580 76 588 5 58 SW LIBSW U 4 0560 , 79 76 &D0 0,B601KB759B798LN580, 79 L027563,541542,547551,556560104000763714L 589 5 59 C INPUT&10,@999999@ U 7 0564 C V10 78 77 590 5 60 BU WTAP1 U 5 0571 B 580 / 77 591 5 61 CW LIBSW#1 U 4 0576 ) 79 77 592 5 62 * 593 5 63 * WRITE TAPE 594 5 64 * 595 5 65 WTAP1 WTW OUTAP,INPUT U 8 0580 L %U6 V00 W 77 596 5 66 BER WTERR U 5 0588 B 928 L 77 597 5 67 * 598 5 68 * DO NEXT BLOCK 599 5 69 * 600 5 70 REOUT B CLEAR U 4 0593 B 21 77 601 5 71 B COPY U 4 0597 B 525 77 602 5 72 * 603 5 73 * END OF FILE 604 5 74 * &CV10 78B580/) 79L%U6V00WB928LB 21B525 L037600,571576,580588,593597104000773714L 605 5 75 EOF WTM OUTAP U 5 0601 U %U6 M 78 606 5 76 BW ISMOR,EOFSW#1 U 8 0606 V 727 80 1 78 607 5 77 B CLEAR U 4 0614 B 21 78 608 5 78 LCA ENDUP,3998 U 7 0618 L /39 I98 78 609 5 79 BW ERASE,UPDSW U 8 0625 V 637 /26 1 78 610 5 80 B HALT1 U 4 0633 B 669 78 611 5 81 * 612 5 82 * ERASE TAPE 613 5 83 * &U%U6MV727 801B 21L/39I98V637/261B669 L036636,606614,618625,633040104000783714L 614 5 84 ERASE SKP OUTAP U 5 0637 U %U6 E 79 615 5 85 WT OUTAP,INPUT U 8 0642 M %U6 V00 W 79 616 5 86 BCE HALT1,SKPCT-1,2 U 8 0650 B 669 81 2 79 617 5 87 A &1,SKPCT#2 U 7 0658 A 71 82 79 1 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 618 5 88 B ERASE U 4 0665 B 637 79 619 5 89 * 620 5 90 * END OF COPY RUN 621 5 91 * 622 5 92 HALT1 MCW @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@,243 U 7 0669 M /25 243 79 &U%U6EM%U6V00WB669 812A 71 82B637M/25243L039675,642650,658665,669040104000793714L 623 5 93 W U 1 0676 2 80 624 5 94 CC 1 U 2 0677 F 1 80 625 5 95 BW CPYND,UPDSW#1 U 8 0679 V 692 /26 1 80 626 5 96 RWD OUTAP U 5 0687 U %U6 R 80 627 5 97 CPYND RWD SYSTP U 5 0692 U %U1 R 80 628 5 98 H 0,122 U 7 0697 . 000 122 80 629 5 99 B CLEAR U 4 0704 B 21 80 &2F1V692/261U%U6RU%U1R.000122B 21 L032707,677679,687692,697704104000803714L 630 6 00 S SKPCT U 4 0708 S 82 81 631 6 01 MCW @N@,SWICH U 7 0712 M /27 556 81 632 6 02 SW EOFSW U 4 0719 , 80 81 633 6 03 B COPY U 4 0723 B 525 81 634 6 04 * 635 6 05 * SET UP COPY OF REST OF SYSTEM 636 6 06 * 637 6 07 ISMOR BW BDEOF,LIBSW U 8 0727 V 750 79 1 81 638 6 08 CW EOFSW U 4 0735 ) 80 81 639 6 09 MCW @B@,SWICH U 7 0739 M /28 556 81 &S 82M/27556, 80B525V750 791) 80M/28556 L038745,712719,723727,735739104000813714L 640 6 10 B REOUT U 4 0746 B 593 82 641 6 11 * 642 6 12 * FALSE END OF FILE 643 6 13 * 644 6 14 BDEOF BSP OUTAP U 5 0750 U %U6 B 82 645 6 15 B REOUT U 4 0755 B 593 82 646 6 16 * 647 6 17 * TEST FOR NOISE RECORDS 648 6 18 * 649 6 19 NOISE SBR NOSXT&3 U 4 0759 H 797 82 650 6 20 SBR XR2 U 4 0763 H 094 82 651 6 21 MZ &9,XR2 U 7 0767 Y /29 094 82 652 6 22 NOIS2 BCE 4000-26&X2,INPUT&13,} U 8 0774 B IP4 V13 } 82 653 6 23 CHAIN 12 MACRO &B593U%U6BB593H797H094Y/29094BIP4V13} L036781,750755,759763,767774104000823714L 654 BCE U 1 0782 B GEN 83 655 BCE U 1 0783 B GEN 83 656 BCE U 1 0784 B GEN 83 657 BCE U 1 0785 B GEN 83 658 BCE U 1 0786 B GEN 83 659 BCE U 1 0787 B GEN 83 660 BCE U 1 0788 B GEN 83 &BBBBBBB L007788,783784,785786,787788104000833714L 661 BCE U 1 0789 B GEN 84 662 BCE U 1 0790 B GEN 84 663 BCE U 1 0791 B GEN 84 664 BCE U 1 0792 B GEN 84 665 BCE U 1 0793 B GEN 84 666 6 24 NOSXT B 0 U 4 0794 B 000 84 667 6 25 * 1 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 668 6 26 * READ REDUNDANCY ROUTINE 669 6 27 * 670 6 28 RDERR SBR RDXT&3 U 4 0798 H 855 84 &BBBBBB000H855 L013801,790791,792793,794798104000843714L 671 6 29 SBR XR3 U 4 0802 H 099 85 672 6 30 MZ &9,XR3 U 7 0806 Y /29 099 85 673 6 31 MCW 4000-24&X3,RDTRY&7 U 7 0813 M IG6 846 85 674 6 32 MN RDTRY&3,BSP1&3 U 7 0820 D 842 830 85 675 6 33 BSP1 BSP SYSTP U 5 0827 U %U1 B 85 676 6 34 MCW &9,RDCT#1 U 7 0832 M /29 /30 85 &H099Y/29099MIG6846D842830U%U1BM/29/30 L037838,806813,820827,832040104000853714L 677 6 35 RDTRY RT SYSTP,0 U 8 0839 M %U1 000 R 86 678 6 36 BER *&5 U 5 0847 B 856 L 86 679 6 37 RDXT B 0 U 4 0852 B 000 86 680 6 38 MN RDTRY&3,BSP2&3 U 7 0856 D 842 866 86 681 6 39 BSP2 BSP SYSTP U 5 0863 U %U1 B 86 682 6 40 S &1,RDCT U 7 0868 S 71 /30 86 &M%U1000RB856LB000D842866U%U1BS 71/30 L036874,847852,856863,868040104000863714L 683 6 41 BWZ RDTRY,RDCT,B U 8 0875 V 839 /30 B 87 684 6 42 MN RDTRY&3,*&7 U 7 0883 D 842 896 87 685 6 43 H 0,190 U 7 0890 . 000 190 87 686 6 44 MCW RDTRY&7,*&8 U 7 0897 M 846 911 87 687 6 45 RT SYSTP,0 U 8 0904 M %U1 000 R 87 &V839/30BD842896.000190M846911M%U1000R L037911,883890,897904,040040104000873714L 688 6 46 BSS BSP1,E U 5 0912 B 827 E 88 689 6 47 H 0,111 U 7 0917 . 000 111 88 690 6 48 B RDXT U 4 0924 B 852 88 691 6 49 * 692 6 50 * WRITE REDUNDANCY ROUTINE 693 6 51 * 694 6 52 WTERR SBR WTXT&3 U 4 0928 H 998 88 695 6 53 SBR XR3 U 4 0932 H 099 88 696 6 54 MZ &9,XR3 U 7 0936 Y /29 099 88 697 6 55 MCW 4000-6&X3,WTTRY&7 U 7 0943 M II4 989 88 &B827E.000111B852H998H099Y/29099MII4989 L038949,917924,928932,936943104000883714L 698 6 56 MN WTTRY&3,BSP3&3 U 7 0950 D 985 960 89 699 6 57 BSP3 BSP OUTAP U 5 0957 U %U6 B 89 700 6 58 SKP SYSTP U 5 0962 U %U1 E 89 701 6 59 BCE SUBCT,WTCT-1,1 U 8 0967 B 999 /31 1 89 702 6 60 A &1,WTCT#2 U 7 0975 A 71 /32 89 &D985960U%U6BU%U1EB999/311A 71/32 L032981,957962,967975,040040104000893714L 703 6 61 WTTRY WT OUTAP,0 U 8 0982 M %U6 000 W 90 704 6 62 BER BSP3 U 5 0990 B 957 L 90 705 6 63 WTXT B 0 U 4 0995 B 000 90 706 6 64 SUBCT S WTCT U 4 0999 S /32 90 707 6 65 MN WTTRY&3,*&7 U 7 1003 D 985 16 90 708 6 66 H 0,160 U 7 1010 . 000 160 90 709 6 67 B WTTRY U 4 1017 B 982 90 710 6 68 * 711 6 69 * CLEAR OUTPUT AREA 712 6 70 * &M%U6000WB957LB000S/32D985 16.000160B982L039 20,990995,999 03, 10 17104000903714L 713 6 71 CLEAR SBR CLRXT&3 U 4 1021 H 55 91 714 6 72 MCW @I99@,CLR&3 U 7 1025 M /35 35 91 715 6 73 CLR CS 3999 U 4 1032 / I99 91 716 6 74 SBR CLR&3 U 4 1036 H 35 91 717 6 75 C CLR&3,&INPUT-1 U 7 1040 C 35 /38 91 1 1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 718 6 76 BU CLR U 5 1047 B 32 / 91 719 6 77 CLRXT B 0 U 4 1052 B 000 91 720 6 78 LTORG * U 1056 &H 55M/35 35/I99H 35C 35/38B 32/B000 L035 55, 25 32, 36 40, 47 52104000913714L 556 DCW @999999 HEADR@ U 15 1070 LIT 92 &1 U 1 1071 LIT 92 566 BYCT #01 U 1 1072 AREA 92 589 @999999@ U 6 1078 LIT 92 591 LIBSW #01 U 1 1079 AREA 92 606 EOFSW #01 U 1 1080 AREA 92 617 SKPCT #02 U 2 1082 AREA 92 &999999 HEADRA 999999 L027 82, 71 72, 73 79, 80 81104000923714L &1401 AUTOCODER SYSTEM COPIED ON TAPE UNL039/21,040040,040040,040040104000933714L 622 @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@ U 43 1125 LIT 94 625 UPDSW #01 U 1 1126 AREA 94 @N@ U 1 1127 LIT 94 @B@ U 1 1128 LIT 94 &9 U 1 1129 LIT 94 &IT 6 NBI L008/29)/22/22,/26/27,/28/29104000943714L 676 RDCT #01 U 1 1130 AREA 95 702 WTCT #02 U 2 1132 AREA 95 @I99@ U 3 1135 LIT 95 717 &INPUT-1 U 3 1138 U99 ADCON 95 721 6 79 ENDUP DCW @}@ U 1 1139 95 & I99U99} L010/39,/31/33,/36/39,040040104000953714L & N000000,040040,040040,040040B00000963714L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00973715L &,068072)063067/061039 ,001001104000983715L 722 6 80 EX 0 U B 000 96 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 723 6 81 JOB 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 724 6 82 IMAGE EQU 101 U 0101 725 6 83 * 726 6 84 * BEGIN UPDATE 727 6 85 * 728 6 86 ORG INPUT U 1500 729 6 87 BEGIN RWD SYSTP U 5 1500 U %U1 R 99 730 6 88 CW HEDSW,ENDSW U 7 1505 ) ?91 ?98 99 731 6 89 MCW &IMAGE&13,NOIS2&6 U 7 1512 M ?30 780 99 732 6 90 LCA ENDUP,IMAGE&80 U 7 1519 L /39 181 99 733 6 91 RT SYSTP,IMAGE U 8 1526 M %U1 101 R 99 &U%U1R)?91?98M?30780L/39181M%U1101R L034V33,V05V12,V19V26,040040104000993715L 734 6 92 DCW @N0000000000000@ U 14 1547 100 735 6 93 B NOISE U 4 1548 B 759 100 736 6 94 CS IMAGE&79 U 4 1552 / 180 100 737 6 95 B RDTP U 4 1556 B M17 100 738 6 96 REBEG B READ U 4 1560 B L24 100 739 6 97 BW SERCH,INSW U 8 1564 V V84 ?73 1 100 &N0000000000000B759/180BM17BL24VV84?731 L038V71,V48V52,V56V60,V64040104001003715L 740 6 98 BW SERCH,DELSW U 8 1572 V V84 ?79 1 101 741 6 99 B REBEG U 4 1580 B V60 101 742 7 00 * 743 7 01 * SEARCH FOR CORRECT SUBROUTINE 744 7 02 * 745 7 03 SERCH B DOCTL U 4 1584 B N94 101 746 7 04 C 11,@999999@ U 7 1588 C 011 ?36 101 747 7 05 BE CLNUP U 5 1595 B K40 S 101 748 7 06 C 8,NAME#3 U 7 1600 C 008 ?39 101 &VV84?791BV60BN94C011?36BK40SC008?39 L035W06,V80V84,V88V95,W00040104001013715L 749 7 07 BE FOUND U 5 1607 B X30 S 102 750 7 08 BH QUIT U 5 1612 B P75 U 102 751 7 09 MCW 8,NAME U 7 1617 M 008 ?39 102 752 7 10 S SEQNO U 4 1624 S A67 102 753 7 11 LOOP1 BW HEADR,HEDSW U 8 1628 V W56 ?91 1 102 754 7 12 B RDTP U 4 1636 B M17 102 &BX30SBP75UM008?39SA67VW56?911BM17 L033W39,W12W17,W24W28,W36040104001023715L 755 7 13 BW HEADR,HEDSW U 8 1640 V W56 ?91 1 103 756 7 14 MORE B WTAP2 U 4 1648 B M95 103 757 7 15 B LOOP1 U 4 1652 B W28 103 758 7 16 * 759 7 17 * HEADER LOCATED ON TAPE 760 7 18 * 761 7 19 HEADR BW PAST,ENDSW U 8 1656 V W89 ?98 1 103 762 7 20 C IMAGE&7,NAME U 7 1664 C 108 ?39 103 763 7 21 BE FOUND U 5 1671 B X30 S 103 &VW56?911BM95BW28VW89?981C108?39BX30S L036W75,W48W52,W56W64,W71040104001033715L 764 7 22 CW HEDSW U 4 1676 ) ?91 104 765 7 23 BL PAST U 5 1680 B W89 T 104 766 7 24 B MORE U 4 1685 B W48 104 767 7 25 * 768 7 26 * SUBROUTINE NOT ON TAPE 769 7 27 * 770 7 28 PAST BSP SYSTP U 5 1689 U %U1 B 104 771 7 29 CS IMAGE&79 U 4 1694 / 180 104 772 7 30 CW HEDSW U 4 1698 ) ?91 104 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 773 7 31 BW UNKWN,DELSW U 8 1702 V Q01 ?79 1 104 &)?91BW89TBW48U%U1B/180)?91VQ01?791 L034X09,W80W85,W89W94,W98X02104001043715L 774 7 32 C 22,@ @ U 7 1710 C 022 ?41 105 775 7 33 BU UNKWN U 5 1717 B Q01 / 105 776 7 34 BACK B PTCTL U 4 1722 B O37 105 777 7 35 B INSER U 4 1726 B Y06 105 778 7 36 * 779 7 37 * SUBROUTINE FOUND 780 7 38 * 781 7 39 FOUND C 22,@ @ U 7 1730 C 022 ?41 105 782 7 40 BU PARTL U 5 1737 B Y46 / 105 783 7 41 * 784 7 42 * DELETE AND/OR INSERT WHOLE SUBROUTINES 785 7 43 * 786 7 44 ALL MCW @DELET@,218 U 7 1742 M ?46 218 105 &C022?41BQ01/BO37BY06C022?41BY46/M?46218L039X48,X17X22,X26X30,X37X42104001053715L 787 7 45 B PTCTL U 4 1749 B O37 106 788 7 46 S SEQNO U 4 1753 S A67 106 789 7 47 LOOP2 B PRINT U 4 1757 B O72 106 790 7 48 B RDTP U 4 1761 B M17 106 791 7 49 BW EXIT,HEDSW U 8 1765 V X77 ?91 1 106 792 7 50 B LOOP2 U 4 1773 B X57 106 793 7 51 EXIT BSP SYSTP U 5 1777 U %U1 B 106 &BO37SA67BO72BM17VX77?911BX57U%U1B L033X81,X53X57,X61X65,X73X77104001063715L 794 7 52 CS IMAGE&79 U 4 1782 / 180 107 795 7 53 CW HEDSW U 4 1786 ) ?91 107 796 7 54 BW REBEG,DELSW U 8 1790 V V60 ?79 1 107 797 7 55 * 798 7 56 * INSERTION OF WHOLE SUBROUTINE 799 7 57 * 800 7 58 B DOCTL U 4 1798 B N94 107 801 7 59 B PTCTL U 4 1802 B O37 107 802 7 60 INSER S SEQNO U 4 1806 S A67 107 803 7 61 LOOP3 B READ U 4 1810 B L24 107 &/180)?91VV60?791BN94BO37SA67BL24 L032Y13,X86X90,X98Y02,Y06Y10104001073715L 804 7 62 BW SERCH,INSW U 8 1814 V V84 ?73 1 108 805 7 63 BW SERCH,DELSW U 8 1822 V V84 ?79 1 108 806 7 64 B DOOUT U 4 1830 B L07 108 807 7 65 B PRINT U 4 1834 B O72 108 808 7 66 B WTAP2 U 4 1838 B M95 108 809 7 67 B LOOP3 U 4 1842 B Y10 108 810 7 68 * 811 7 69 * DELETE AND/OR INSERT PARTS 812 7 70 * 813 7 71 PARTL S XR3&2 U 4 1846 S 101 108 &VV84?731VV84?791BL07BO72BM95BY10S101 L036Y49,Y22Y30,Y34Y38,Y42Y46104001083715L 814 7 72 BWZ SOME,21,2 U 8 1850 V Y81 021 2 109 815 7 73 C 24,@ @ U 7 1858 C 024 ?41 109 816 7 74 BE ALL U 5 1865 B X42 S 109 817 7 75 A &2,XR3 U 7 1870 A ?47 099 109 818 7 76 SW 23 U 4 1877 , 023 109 819 7 77 * 820 7 78 * SCAN FOR VALUES OF OPERANDS 821 7 79 * 822 7 80 SOME SW OPSW#1 U 4 1881 , ?48 109 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &VY810212C024?41BX42SA?47099,023,?48 L035Y84,Y58Y65,Y70Y77,Y81040104001093715L 823 7 81 TEST1 BCE TWOOP,21&X3,, U 8 1885 B Z16 0B1 , 110 824 7 82 C 22&X3,@ @ U 7 1893 C 0B2 ?41 110 825 7 83 BE TWOOP U 5 1900 B Z16 S 110 826 7 84 A &1,XR3 U 7 1905 A ?49 099 110 827 7 85 B TEST1 U 4 1912 B Y85 110 828 7 86 TWOOP ZA 20&X3,WK1#4 U 7 1916 ? 0B0 ?53 110 &BZ160B1,C0B2?41BZ16SA?49099BY85?0B0?53 L038Z22,Y93Z00,Z05Z12,Z16040104001103715L 829 7 87 A @0@,WK1 U 7 1923 A ?54 ?53 111 830 7 88 BCE NXTOP,21&X3,, U 8 1930 B Z42 0B1 , 111 831 7 89 B OUT U 4 1938 B !08 111 832 7 90 NXTOP SW 22&X3 U 4 1942 , 0B2 111 833 7 91 SBR XR2 U 4 1946 H 094 111 834 7 92 ADD A &1,XR3 U 7 1950 A ?49 099 111 &A?54?53BZ420B1,B!08,0B2H094A?49099 L034Z56,Z30Z38,Z42Z46,Z50040104001113715L 835 7 93 C 22&X3,@ @ U 7 1957 C 0B2 ?41 112 836 7 94 BU ADD U 5 1964 B Z50 / 112 837 7 95 ZA 20&X3,WK2#4 U 7 1969 ? 0B0 ?58 112 838 7 96 A @0@,WK2 U 7 1976 A ?54 ?58 112 839 7 97 C WK1,WK2 U 7 1983 C ?53 ?58 112 840 7 98 BL BADST U 5 1990 B Q59 T 112 &C0B2?41BZ50/?0B0?58A?54?58C?53?58BQ59T L038Z94,Z64Z69,Z76Z83,Z90040104001123715L 841 7 99 BE ONOP U 5 1995 B K20 S 113 842 8 00 IS2OP CW OPSW U 4 2000 ) ?48 113 843 8 01 CLRWM CW 1&X2 U 4 2004 ) 0!1 113 844 8 02 OUT CW 23 U 4 2008 ) 023 113 845 8 03 BW *&8,OPSW U 8 2012 V !27 ?48 1 113 846 8 04 MCW @DELET@,218 U 7 2020 M ?63 218 113 847 8 05 B PTCTL U 4 2027 B O37 113 848 8 06 * 849 8 07 * SEARCH FOR FIRST STATEMENT 850 8 08 * &BK20S)?48)0!1)023V!27?481M?63218BO37 L036!30,!00!04,!08!12,!20!27104001133715L 851 8 09 COMP C WK1,SEQNO U 7 2031 C ?53 A67 114 852 8 10 BE GOTIT U 5 2038 B !70 S 114 853 8 11 A &1,SEQNO U 7 2043 A ?49 A67 114 854 8 12 B WTAP2 U 4 2050 B M95 114 855 8 13 B RDTP U 4 2054 B M17 114 856 8 14 BW NTFND,HEDSW U 8 2058 V Q84 ?91 1 114 857 8 15 B COMP U 4 2066 B !31 114 858 8 16 * 859 8 17 * FIRST STATEMENT FOUND 860 8 18 * &C?53A67B!70SA?49A67BM95BM17VQ84?911B!31L039!69,!38!43,!50!54,!58!66104001143715L 861 8 19 GOTIT BW QINSR,OPSW U 8 2070 V J46 ?48 1 115 862 8 20 * 863 8 21 * SEARCH FOR SECOND STATEMENT 864 8 22 * 865 8 23 COMP2 B PRINT U 4 2078 B O72 115 866 8 24 B RDTP U 4 2082 B M17 115 867 8 25 C WK2,SEQNO U 7 2086 C ?58 A67 115 868 8 26 BH BSPC U 5 2093 B J10 U 115 869 8 27 BW NTFND,HEDSW U 8 2098 V Q84 ?91 1 115 &VJ46?481BO72BM17C?58A67BJ10UVQ84?911 L036J05,!78!82,!86!93,!98040104001153715L 870 8 28 B COMP2 U 4 2106 B !78 116 871 8 29 * 872 8 30 * SECOND STATEMENT FOUND 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 873 8 31 * 874 8 32 BSPC BSP SYSTP U 5 2110 U %U1 B 116 875 8 33 CS IMAGE&79 U 4 2115 / 180 116 876 8 34 S &1,SEQNO U 7 2119 S ?49 A67 116 877 8 35 THRU BW LOOP3,DELSW U 8 2126 V Y10 ?79 1 116 878 8 36 B DOCTL U 4 2134 B N94 116 879 8 37 B PTCTL U 4 2138 B O37 116 &B!78U%U1B/180S?49A67VY10?791BN94BO37 L036J41,J10J15,J19J26,J34J38104001163715L 880 8 38 B INSR&4 U 4 2142 B J77 117 881 8 39 * 882 8 40 * TEST INSERT OR DELETE 883 8 41 * 884 8 42 QINSR BW INSR,INSW U 8 2146 V J73 ?73 1 117 885 8 43 B PRINT U 4 2154 B O72 117 886 8 44 S &1,SEQNO U 7 2158 S ?49 A67 117 887 8 45 CS IMAGE&79 U 4 2165 / 180 117 888 8 46 B THRU U 4 2169 B J26 117 889 8 47 * 890 8 48 * INSERT STATEMENTS 891 8 49 * 892 8 50 INSR B WTAP2 U 4 2173 B M95 117 &BJ77VJ73?731BO72S?49A67/180BJ26BM95 L035J76,J46J54,J58J65,J69J73104001173715L 893 8 51 B READ U 4 2177 B L24 118 894 8 52 BW SERCH,INSW U 8 2181 V V84 ?73 1 118 895 8 53 BW SERCH,DELSW U 8 2189 V V84 ?79 1 118 896 8 54 B DOOUT U 4 2197 B L07 118 897 8 55 CW SEQSW#1 U 4 2201 ) ?64 118 898 8 56 B PRINT U 4 2205 B O72 118 899 8 57 S &1,SEQNO U 7 2209 S ?49 A67 118 &BL24VV84?731VV84?791BL07)?64BO72S?49A67L039K15,J81J89,J97K01,K05K09104001183715L 900 8 58 B INSR U 4 2216 B J73 119 901 8 59 ONOP BW IS2OP,INSW U 8 2220 V !00 ?73 1 119 902 8 60 SW OPSW U 4 2228 , ?48 119 903 8 61 B CLRWM U 4 2232 B !04 119 904 8 62 * 905 8 63 * REPLICATE LIBRARY 906 8 64 * 907 8 65 REPET B WTAP2 U 4 2236 B M95 119 908 8 66 CLNUP B RDTP U 4 2240 B M17 119 909 8 67 B WTAP2 U 4 2244 B M95 119 &BJ73V!00?731,?48B!04BM95BM17BM95 L032K47,K20K28,K32K36,K40K44104001193715L 910 8 68 BW FINAL,ENDSW U 8 2248 V K60 ?98 1 120 911 8 69 B CLNUP U 4 2256 B K40 120 912 8 70 * 913 8 71 * END OF UPDATE - GO TO COPY ROUTINE 914 8 72 * 915 8 73 FINAL WTM OUTAP U 5 2260 U %U6 M 120 916 8 74 MCW &INPUT&13,NOIS2&6 U 7 2265 M ?67 780 120 917 8 75 CW LIBSW,EOFSW U 7 2272 ) 79 80 120 918 8 76 CW UPDSW U 4 2279 ) /26 120 919 8 77 CS 332 U 4 2283 / 332 120 &VK60?981BK40U%U6MM?67780) 79 80)/26/332L039K86,K56K60,K65K72,K79K83104001203715L 920 8 78 CS U 1 2287 / 121 921 8 79 CC 1 U 2 2288 F 1 121 922 8 80 BYP1 RT SYSTP,IMAGE U 8 2290 M %U1 101 R 121 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 923 8 81 BEF REOUT U 5 2298 B 593 K 121 924 8 82 B BYP1 U 4 2303 B K90 121 925 8 83 * 926 8 84 * SET UP INSERT CARD 927 8 85 * 928 8 86 DOOUT SBR OUTXT&3 U 4 2307 H L23 121 929 8 87 MCW 80,IMAGE&79 U 7 2311 M 080 180 121 &/F1M%U1101RB593KBK90HL23M080180 L031L17,K88K90,K98L03,L07L11104001213715L 930 8 88 MCW U 1 2318 M 122 931 8 89 MCW U 1 2319 M 122 932 8 90 OUTXT B 0 U 4 2320 B 000 122 933 8 91 * 934 8 92 * READ CARD SUBROUTINE 935 8 93 * 936 8 94 READ SBR CDXT&3 U 4 2324 H M08 122 937 8 95 BW RDCD,LSTSW U 8 2328 V L40 ?85 1 122 938 8 96 B CLNUP U 4 2336 B K40 122 939 8 97 RDCD R U 1 2340 1 122 &MMB000HM08VL40?851BK401 L023L40,L19L20,L24L28,L36L40104001223715L 940 8 98 CW INSW,DELSW U 7 2341 ) ?73 ?79 123 941 8 99 C 20,@INSER@ U 7 2348 C 020 ?72 123 942 9 00 BU CKDEL U 5 2355 B L68 / 123 943 9 01 SW INSW#1 U 4 2360 , ?73 123 944 9 02 B CDXT-5 U 4 2364 B M00 123 945 9 03 CKDEL C 20,@DELET@ U 7 2368 C 020 ?78 123 946 9 04 BU CKREP U 5 2375 B L88 / 123 &)?73?79C020?72BL68/,?73BM00C020?78BL88/L039L79,L48L55,L60L64,L68L75104001233715L 947 9 05 SW DELSW#1 U 4 2380 , ?79 124 948 9 06 B CDXT-5 U 4 2384 B M00 124 949 9 07 CKREP C 20,@REPET@ U 7 2388 C 020 ?84 124 950 9 08 BE REPET U 5 2395 B K36 S 124 951 9 09 BLC LSTCD U 5 2400 B M09 A 124 952 9 10 CDXT B 0 U 4 2405 B 000 124 953 9 11 LSTCD CW LSTSW#1 U 4 2409 ) ?85 124 &,?79BM00C020?84BK36SBM09AB000)?85 L033M12,L84L88,L95M00,M05M09104001243715L 954 9 12 B CDXT U 4 2413 B M05 125 955 9 13 * 956 9 14 * READ TAPE SUBROUTINE 957 9 15 * 958 9 16 RDTP SBR RTXT&3 U 4 2417 H M94 125 959 9 17 RT SYSTP,IMAGE U 8 2421 M %U1 101 R 125 960 9 18 SW IMAGE&80 U 4 2429 , 181 125 961 9 19 DCW @N000000000@ U 10 2442 125 962 9 20 B NOISE U 4 2443 B 759 125 963 9 21 BER RDERR U 5 2447 B 798 L 125 &BM05HM94M%U1101R,181N000000000B759B798LL039M51,M17M21,M29M33,M43M47104001253715L 964 9 22 CW HEDSW,ENDSW U 7 2452 ) ?91 ?98 126 965 9 23 C IMAGE&19,@HEADR@ U 7 2459 C 120 ?90 126 966 9 24 BU RTXT U 5 2466 B M91 / 126 967 9 25 SW HEDSW#1 U 4 2471 , ?91 126 968 9 26 C IMAGE&10,@999999@ U 7 2475 C 111 ?97 126 969 9 27 BU RTXT U 5 2482 B M91 / 126 970 9 28 SW ENDSW#1 U 4 2487 , ?98 126 &)?91?98C120?90BM91/,?91C111?97BM91/,?98L039M90,M59M66,M71M75,M82M87104001263715L 971 9 29 RTXT B 0 U 4 2491 B 000 127 972 9 30 * 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 973 9 31 * WRITE TAPE SUBROUTINE 974 9 32 * 975 9 33 WTAP2 SBR WT2XT&3 U 4 2495 H N31 127 976 9 34 C IMAGE&79,BLANK U 7 2499 C 180 ?27 127 977 9 35 BE WT2XT U 5 2506 B N28 S 127 978 9 36 WT OUTAP,IMAGE U 8 2511 M %U6 101 W 127 979 9 37 BER WTERR U 5 2519 B 928 L 127 980 9 38 CS IMAGE&79 U 4 2524 / 180 127 &B000HN31C180?27BN28SM%U6101WB928L/180 L037N27,M95M99,N06N11,N19N24104001273715L 981 9 39 WT2XT B 0 U 4 2528 B 000 128 982 9 40 * 983 9 41 * PRINT HEADING 984 9 42 * 985 9 43 HEAD SBR HDXT&3 U 4 2532 H N93 128 986 9 44 CS 332 U 4 2536 / 332 128 987 9 45 CS U 1 2540 / 128 988 9 46 MCW @1401 AUTOCODER - LIBRARY CHANGES@,251 U 7 2541 M A30 251 128 989 9 47 MCW @PAGE@,275 U 7 2548 M A34 275 128 990 9 48 A &1,PGNO#3 U 7 2555 A ?49 A37 128 &B000HN93/332/MA30251MA34275A?49A37 L034N61,N32N36,N40N41,N48N55104001283715L 991 9 49 MCS PGNO,279 U 7 2562 Z A37 279 129 992 9 50 W U 1 2569 2 129 993 9 51 CC K U 2 2570 F K 129 994 9 52 CS 279 U 4 2572 / 279 129 995 9 53 MCW @SEQ LABEL OP OPERANDS@,227 U 7 2576 M A63 227 129 996 9 54 W U 1 2583 2 129 997 9 55 CC K U 2 2584 F K 129 &ZA372792FK/279MA632272FK L024N85,N69N70,N72N76,N83N84104001293715L 998 9 56 CS 228 U 4 2586 / 228 130 999 9 57 HDXT B 0 U 4 2590 B 000 130 1000 9 58 * 1001 9 59 * SET UP CONTROL CARD FOR PRINTING 1002 9 60 * 1003 9 61 DOCTL SBR CTLXT&3 U 4 2594 H O36 130 1004 9 62 CC K U 2 2598 F K 130 1005 9 63 CS 332 U 4 2600 / 332 130 1006 9 64 CS U 1 2604 / 130 1007 9 65 MCW 72,271 U 7 2605 M 072 271 130 &/228B000HO36FK/332/M072271 L026O11,N90N94,N98O00,O04O05104001303715L 1008 9 66 MCW 22,221 U 7 2612 M 022 221 131 1009 9 67 MCW 20,218 U 7 2619 M 020 218 131 1010 9 68 MCW 11,212 U 7 2626 M 011 212 131 1011 9 69 CTLXT B 0 U 4 2633 B 000 131 1012 9 70 * 1013 9 71 * PRINT CONTROL CARD 1014 9 72 * 1015 9 73 PTCTL SBR PTCXT&3 U 4 2637 H O57 131 1016 9 74 W U 1 2641 2 131 1017 9 75 CC J U 2 2642 F J 131 &M022221M020218M011212B000HO572FJ L032O43,O19O26,O33O37,O41O42104001313715L 1018 9 76 CS 332 U 4 2644 / 332 132 1019 9 77 CS U 1 2648 / 132 1020 9 78 BCV NEWPG U 5 2649 B O58 @ 132 1021 9 79 PTCXT B 0 U 4 2654 B 000 132 1022 9 80 * 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1023 9 81 * NEW PAGE 1024 9 82 * 1025 9 83 NEWPG SBR NEWXT&3 U 4 2658 H O71 132 1026 9 84 CC 1 U 2 2662 F 1 132 1027 9 85 B HEAD U 4 2664 B N32 132 &/332/BO58@B000HO71F1BN32 L024O67,O48O49,O54O58,O62O64104001323715L 1028 9 86 NEWXT B 0 U 4 2668 B 000 133 1029 9 87 * 1030 9 88 * PRINT STATEMENTS 1031 9 89 * 1032 9 90 PRINT SBR PTXT&3 U 4 2672 H P74 133 1033 9 91 SW 220,214 U 7 2676 , 220 214 133 1034 9 92 SW 207 U 4 2683 , 207 133 1035 9 93 BCE COMNT,IMAGE&5,* U 8 2687 B P32 106 * 133 1036 9 94 MCW IMAGE&71,271 U 7 2695 M 172 271 133 &B000HP74,220214,207BP32106*M172271 L034P01,O72O76,O83O87,O95040104001333715L 1037 9 95 MCW IMAGE&19,218 U 7 2702 M 120 218 134 1038 9 96 MCW IMAGE&10,212 U 7 2709 M 111 212 134 1039 9 97 TSTSQ BW SEQNC,SEQSW U 8 2716 V P45 ?64 1 134 1040 9 98 SW SEQSW U 4 2724 , ?64 134 1041 9 99 B BUMP U 4 2728 B P53 134 1042 10 00 COMNT MCW IMAGE&71,273 U 7 2732 M 172 273 134 1043 10 01 MCW U 1 2739 M 134 &M120218M111212VP45?641,?64BP53M172273M L038P39,P09P16,P24P28,P32P39104001343715L 1044 10 02 MCW U 1 2740 M 135 1045 10 03 B TSTSQ U 4 2741 B P16 135 1046 10 04 SEQNC MN SEQNO,204 U 7 2745 D A67 204 135 1047 10 05 MCS U 1 2752 Z 135 1048 10 06 BUMP A &1,SEQNO#4 U 7 2753 A ?49 A67 135 1049 10 07 W U 1 2760 2 135 1050 10 08 CS 332 U 4 2761 / 332 135 &MBP16DA67204ZA?49A672/332 L025P64,P41P45,P52P53,P60P61104001353715L 1051 10 09 CS U 1 2765 / 136 1052 10 10 BCV NEWPG U 5 2766 B O58 @ 136 1053 10 11 PTXT B 0 U 4 2771 B 000 136 1054 10 12 * 1055 10 13 * SEQUENCE ERROR 1056 10 14 * 1057 10 15 QUIT CS 332 U 4 2775 / 332 136 1058 10 16 CS U 1 2779 / 136 1059 10 17 MCW @INPUT CARDS OUT OF SEQUENCE - START OVER@,240 U 7 2780 M B07 240 136 1060 10 18 W U 1 2787 2 136 &/BO58@B000/332/MB072402 L023P87,P66P71,P75P79,P80P87104001363715L 1061 10 19 CC 1 U 2 2788 F 1 137 1062 10 20 HALT2 H 0,133 U 7 2790 . 000 133 137 1063 10 21 B HALT2 U 4 2797 B P90 137 1064 10 22 * 1065 10 23 * SUBROUTINE UNKNOWN 1066 10 24 * 1067 10 25 UNKWN BWZ ISUNK,21,2 U 8 2801 V Q21 021 2 137 1068 10 26 C 24,@ @ U 7 2809 C 024 ?41 137 1069 10 27 BE BACK U 5 2816 B X22 S 137 &F1.000133BP90VQ210212C024?41BX22S L033Q20,P90P97,Q01Q09,Q16040104001373715L 1070 10 28 ISUNK MCW @SUBROUTINE UNKNOWN@,299 U 7 2821 M B25 299 138 1071 10 29 W U 1 2828 2 138 1072 10 30 CC L U 2 2829 F L 138 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1073 10 31 CS 299 U 4 2831 / 299 138 1074 10 32 LOOP4 B READ U 4 2835 B L24 138 1075 10 33 BW SERCH,INSW U 8 2839 V V84 ?73 1 138 1076 10 34 BW SERCH,DELSW U 8 2847 V V84 ?79 1 138 &MB252992FL/299BL24VV84?731VV84?791 L034Q54,Q28Q29,Q31Q35,Q39Q47104001383715L 1077 10 35 B LOOP4 U 4 2855 B Q35 139 1078 10 36 * 1079 10 37 * BAD CONTROL CARD 1080 10 38 * 1081 10 39 BADST MCW @BAD STATEMENT@,299 U 7 2859 M B38 299 139 1082 10 40 W U 1 2866 2 139 1083 10 41 CC L U 2 2867 F L 139 1084 10 42 CS 299 U 4 2869 / 299 139 1085 10 43 CW 1&X2,23 U 7 2873 ) 0!1 023 139 1086 10 44 B LOOP4 U 4 2880 B Q35 139 1087 10 45 * 1088 10 46 * STATEMENT DOES NOT EXIST IN SUBROUTINE 1089 10 47 * &BQ35MB382992FL/299)0!1023BQ35 L029Q83,Q59Q66,Q67Q69,Q73Q80104001393715L 1090 10 48 NTFND MCW @STATEMENT DOES NOT EXIST@,299 U 7 2884 M B62 299 140 1091 10 49 W U 1 2891 2 140 1092 10 50 CC L U 2 2892 F L 140 1093 10 51 CS 299 U 4 2894 / 299 140 1094 10 52 BW END99,ENDSW U 8 2898 V R10 ?98 1 140 1095 10 53 B LOOP4 U 4 2906 B Q35 140 1096 10 54 * 1097 10 55 * END OF LIBRARY REACHED BEFORE ROUTINE FOUND 1098 10 56 * 1099 10 57 END99 MCW @SUBROUTINE UNKNOWN@,299 U 7 2910 M B80 299 140 &MB622992FL/299VR10?981BQ35MB80299 L033R16,Q91Q92,Q94Q98,R06R10104001403715L 1100 10 58 W U 1 2917 2 141 1101 10 59 CC L U 2 2918 F L 141 1102 10 60 CS 299 U 4 2920 / 299 141 1103 10 61 MCW @END OF LIBRARY REACHED@,222 U 7 2924 M C02 222 141 1104 10 62 W U 1 2931 2 141 1105 10 63 BSP SYSTP U 5 2932 U %U1 B 141 1106 10 64 CS IMAGE&79 U 4 2937 / 180 141 &2FL/299MC022222U%U1B/180 L024R40,R18R20,R24R31,R32R37104001413715L 1107 10 65 LOOP6 B READ U 4 2941 B L24 142 1108 10 66 B LOOP6 U 4 2945 B R41 142 &BL24BR41 L008R48,R45040,040040,040040104001423715L & L039R87,040040,040040,040040104001433715L 1109 10 67 DCW #50 U 50 2998 144 & L011R98)R88R88,040040,040040104001443715L 1110 10 68 BLANK DC #29 U 29 3027 145 1111 10 69 LTORG * U 3028 731 DCW &IMAGE&13 U 3 3030 114 ADCON 145 746 @999999@ U 6 3036 LIT 145 & 114999999 L038?36)R99R99,?28?31,040040104001453715L 748 NAME #03 U 3 3039 AREA 146 @ @ U 2 3041 LIT 146 786 @DELET@ U 5 3046 LIT 146 &2 U 1 3047 LIT 146 822 OPSW #01 U 1 3048 AREA 146 &1 U 1 3049 LIT 146 828 WK1 #04 U 4 3053 AREA 146 & DELETB A L017?53,?40?42,?47?48,?49?50104001463715L @0@ U 1 3054 LIT 147 837 WK2 #04 U 4 3058 AREA 147 1 1401 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 846 @DELET@ U 5 3063 LIT 147 897 SEQSW #01 U 1 3064 AREA 147 916 &INPUT&13 U 3 3067 V13 ADCON 147 941 @INSER@ U 5 3072 LIT 147 943 INSW #01 U 1 3073 AREA 147 &0 DELET V13INSER L020?73,?55?59,?64?65,?68?73104001473715L 945 @DELET@ U 5 3078 LIT 148 947 DELSW #01 U 1 3079 AREA 148 949 @REPET@ U 5 3084 LIT 148 953 LSTSW #01 U 1 3085 AREA 148 965 @HEADR@ U 5 3090 LIT 148 967 HEDSW #01 U 1 3091 AREA 148 968 @999999@ U 6 3097 LIT 148 &DELET REPET HEADR 999999 L024?97,?79?80,?85?86,?91?92104001483715L 970 ENDSW #01 U 1 3098 AREA 149 988 @1401 AUTOCODER - LIBRARY CHANGES@ U 32 3130 LIT 149 @PAGE@ U 4 3134 LIT 149 & 1401 AUTOCODER - LIBRARY CHANGESPAGE L037A34,?99A31,040040,040040104001493715L 990 PGNO #03 U 3 3137 AREA 150 995 @SEQ LABEL OP OPERANDS@ U 26 3163 LIT 150 1048 SEQNO #04 U 4 3167 AREA 150 & SEQ LABEL OP OPERANDS L033A67,A38A64,040040,040040104001503715L &INPUT CARDS OUT OF SEQUENCE - START OVEL039B06,040040,040040,040040104001513715L 1059 @INPUT CARDS OUT OF SEQUENCE - START OVER@ U 40 3207 LIT 152 1070 @SUBROUTINE UNKNOWN@ U 18 3225 LIT 152 1081 @BAD STATEMENT@ U 13 3238 LIT 152 &RSUBROUTINE UNKNOWNBAD STATEMENT L032B38)B07B07,B08B26,040040104001523715L 1090 @STATEMENT DOES NOT EXIST@ U 24 3262 LIT 153 &STATEMENT DOES NOT EXIST L024B62,040040,040040,040040104001533715L 1099 @SUBROUTINE UNKNOWN@ U 18 3280 LIT 154 &SUBROUTINE UNKNOWN L018B80,040040,040040,040040104001543715L 1103 @END OF LIBRARY REACHED@ U 22 3302 LIT 155 &END OF LIBRARY REACHED L022C02,040040,040040,040040104001553715L 1112 10 70 3998 DCW @}@ U 1 3998 156 &} L001I98,040040,040040,040040104001563715L & N000000,040040,040040,040040B00001573715L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01583716L &,068072)063067/061039 ,001001104001593716L 1113 10 71 EX 0 U B 000 157 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1114 10 72 JOB 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 1115 10 73 SFX P 1116 10 74 SYSTP EQU %U1 P %U1 1117 10 75 XR1 EQU 89 P 0089 1118 10 76 * 1119 10 77 * BEGIN PROGRAM 1120 10 78 * 1121 10 79 ORG 2000 P 2000 1122 10 80 SW ENDOT P 4 2000 , ?44 160 1123 10 81 LCA ENDOT,181 P 7 2004 L ?44 181 160 1124 10 82 CS P 1 2011 / 160 1125 10 83 CS 80 P 4 2012 / 080 160 1126 10 84 SW 6,16 P 7 2016 , 006 016 160 1127 10 85 CS 332 P 4 2023 / 332 160 1128 10 86 CS P 1 2027 / 160 &,?44L?44181//080,006016/332/ L028!27,!04!11,!12!16,!23!27104001603716L 1129 10 87 CC 1 P 2 2028 F 1 161 1130 10 88 RWD SYSTP P 5 2030 U %U1 R 161 1131 10 89 RT SYSTP,101 P 8 2035 M %U1 101 R 161 1132 10 90 CS 180 P 4 2043 / 180 161 1133 10 91 SW 106,116 P 7 2047 , 106 116 161 1134 10 92 SW 121 P 4 2054 , 121 161 1135 10 93 BSS DOALL,E P 5 2058 B L28 E 161 1136 10 94 * 1137 10 95 * PRINT AND/OR PUNCH SELECTED MACROS 1138 10 96 * &F1U%U1RM%U1101R/180,106116,121BL28E L035!62,!30!35,!43!47,!54!58104001613716L 1139 10 97 CW HDRSW P 4 2063 ) R32 162 1140 10 98 READ CC 1 P 2 2067 F 1 162 1141 10 99 B PRTHD P 4 2069 B N59 162 1142 11 00 R P 1 2073 1 162 1143 11 01 MCW @2@,OPCOD P 7 2074 M Q90 O69 162 1144 11 02 C 20,@PRINT@ P 7 2081 C 020 Q95 162 1145 11 03 BE SELMC P 5 2088 B J19 S 162 &)R32F1BN591MQ90O69C020Q95BJ19S L030!92,!67!69,!73!74,!81!88104001623716L 1146 11 04 C 20,@PUNCH@ P 7 2093 C 020 R00 163 1147 11 05 BU ERROR P 5 2100 B N06 / 163 1148 11 06 * 1149 11 07 * PUNCH OPTION 1150 11 08 * 1151 11 09 A &4,OPCOD P 7 2105 A R01 O69 163 1152 11 10 MN &4,OPSAV#1 P 7 2112 D R01 R02 163 1153 11 11 * 1154 11 12 * SEARCH FOR MACRO 1155 11 13 * 1156 11 14 SELMC C 8,NAME#3 P 7 2119 C 008 R05 163 1157 11 15 BE TSTLC P 5 2126 B K96 S 163 &C020R00BN06/AR01O69DR01R02C008R05BK96S L038J30,J00J05,J12J19,J26040104001633716L 1158 11 16 MCW 20,218 P 7 2131 M 020 218 164 1159 11 17 MCW 11,212 P 7 2138 M 011 212 164 1160 11 18 BL RDTP2 P 5 2145 B J85 T 164 1161 11 19 RWD SYSTP P 5 2150 U %U1 R 164 1162 11 20 LCA ENDOT,181 P 7 2155 L ?44 181 164 1163 11 21 RT SYSTP,101 P 8 2162 M %U1 101 R 164 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &M020218M011212BJ85TU%U1RL?44181M%U1101RL039J69,J38J45,J50J55,J62040104001643716L 1164 11 22 CS 180 P 4 2170 / 180 165 1165 11 23 SW 106,116 P 7 2174 , 106 116 165 1166 11 24 SW 121 P 4 2181 , 121 165 1167 11 25 RDTP2 RT SYSTP,101 P 8 2185 M %U1 101 R 165 1168 11 26 B NOISE P 4 2193 B P67 165 1169 11 27 BER RDERR P 5 2197 B Q06 L 165 1170 11 28 C 111,@999999@ P 7 2202 C 111 R11 165 &/180,106116,121M%U1101RBP67BQ06LC111R11L039K08,J74J81,J85J93,J97K02104001653716L 1171 11 29 BE UNKN P 5 2209 B L05 S 166 1172 11 30 C 120,@HEADR@ P 7 2214 C 120 R16 166 1173 11 31 BU RDTP2 P 5 2221 B J85 / 166 1174 11 32 C 8,108 P 7 2226 C 008 108 166 1175 11 33 BU RDTP2 P 5 2233 B J85 / 166 1176 11 34 * 1177 11 35 * DESIRED MACRO FOUND 1178 11 36 * 1179 11 37 MCW 8,NAME P 7 2238 M 008 R05 166 1180 11 38 CC K P 2 2245 F K 166 &BL05SC120R16BJ85/C008108BJ85/M008R05FK L038K46,K14K21,K26K33,K38K45104001663716L 1181 11 39 W P 1 2247 2 167 1182 11 40 S SEQNO P 4 2248 S R48 167 1183 11 41 B INSER P 4 2252 B N17 167 1184 11 42 CC K P 2 2256 F K 167 1185 11 43 PTAGN B PRINT P 4 2258 B N81 167 1186 11 44 RT SYSTP,101 P 8 2262 M %U1 101 R 167 1187 11 45 B NOISE P 4 2270 B P67 167 &2SR48BN17FKBN81M%U1101RBP67 L027K73,K48K52,K56K58,K62K70104001673716L 1188 11 46 BER RDERR P 5 2274 B Q06 L 168 1189 11 47 C 120,@HEADR@ P 7 2279 C 120 R21 168 1190 11 48 BU PTAGN P 5 2286 B K58 / 168 1191 11 49 BSP SYSTP P 5 2291 U %U1 B 168 1192 11 50 * 1193 11 51 * TEST END OF RUN 1194 11 52 * 1195 11 53 TSTLC BLC EOJOB P 5 2296 B M54 A 168 1196 11 54 B READ P 4 2301 B !67 168 1197 11 55 * 1198 11 56 * MACRO NOT ON TAPE 1199 11 57 * 1200 11 58 UNKN MCW @UNKNOWN@,299 P 7 2305 M R28 299 168 &BQ06LC120R21BK58/U%U1BBM54AB!67MR28299 L038L11,K79K86,K91K96,L01L05104001683716L 1201 11 59 W P 1 2312 2 169 1202 11 60 CS 299 P 4 2313 / 299 169 1203 11 61 MCW @999@,NAME P 7 2317 M R31 R05 169 1204 11 62 B TSTLC P 4 2324 B K96 169 1205 11 63 * 1206 11 64 * PRINT AND/OR PUNCH ALL OR PRINT HEADERS ONLY 1207 11 65 * 1208 11 66 DOALL BSS SETUP,D P 5 2328 B L60 D 169 1209 11 67 CW HDRSW#1 P 4 2333 ) R32 169 1210 11 68 BSS *&5,G P 5 2337 B L46 G 169 &2/299MR31R05BK96BL60D)R32BL46G L030L41,L13L17,L24L28,L33L37104001693716L 1211 11 69 B SETUP P 4 2342 B L60 170 1212 11 70 * 1213 11 71 * PUNCH ALL 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1214 11 72 * 1215 11 73 A &4,OPCOD P 7 2346 A R01 O69 170 1216 11 74 MN &4,OPSAV P 7 2353 D R01 R02 170 1217 11 75 SETUP B HEAD1 P 4 2360 B P19 170 1218 11 76 CW HDSW1#1 P 4 2364 ) R33 170 1219 11 77 B PRTHD P 4 2368 B N59 170 1220 11 78 RDTP RT SYSTP,101 P 8 2372 M %U1 101 R 170 &BL60AR01O69DR01R02BP19)R33BN59M%U1101R L038L79,L46L53,L60L64,L68L72104001703716L 1221 11 79 B NOISE P 4 2380 B P67 171 1222 11 80 BER RDERR P 5 2384 B Q06 L 171 1223 11 81 C 111,@999999@ P 7 2389 C 111 R39 171 1224 11 82 BE EOJOB P 5 2396 B M54 S 171 1225 11 83 C 120,@HEADR@ P 7 2401 C 120 R44 171 1226 11 84 BU DOPNT P 5 2408 B M35 / 171 1227 11 85 B INSER P 4 2413 B N17 171 &BP67BQ06LC111R39BM54SC120R44BM35/BN17 L037M16,L84L89,L96M01,M08M13104001713716L 1228 11 86 CC K P 2 2417 F K 172 1229 11 87 SBR PRTXT&3,*&6 P 7 2419 H O83 M31 172 1230 11 88 BCV NEWPG P 5 2426 B O97 @ 172 1231 11 89 S SEQNO#4 P 4 2431 S R48 172 1232 11 90 DOPNT B PRINT P 4 2435 B N81 172 1233 11 91 SW 106,116 P 7 2439 , 106 116 172 1234 11 92 SW 121 P 4 2446 , 121 172 &FKHO83M31BO97@SR48BN81,106116,121 L033M49,M19M26,M31M35,M39M46104001723716L 1235 11 93 B RDTP P 4 2450 B L72 173 1236 11 94 * 1237 11 95 * END OF JOB 1238 11 96 * 1239 11 97 EOJOB CS 332 P 4 2454 / 332 173 1240 11 98 CS P 1 2458 / 173 1241 11 99 CC K P 2 2459 F K 173 1242 12 00 MCW @END OF LIBRARY@,214 P 7 2461 M R62 214 173 1243 12 01 W P 1 2468 2 173 1244 12 02 CC 1 P 2 2469 F 1 173 &BL72/332/FKMR622142F1 L021M70,M54M58,M59M61,M68M69104001733716L 1245 12 03 CS 180 P 4 2471 / 180 174 1246 12 04 BCE CLRPH,OPSAV,4 P 8 2475 B M99 R02 4 174 1247 12 05 RWD RWD SYSTP P 5 2483 U %U1 R 174 1248 12 06 HALT H 0,155 P 7 2488 . 000 155 174 1249 12 07 B HALT P 4 2495 B M88 174 1250 12 08 CLRPH P P 1 2499 4 174 1251 12 09 SS 8 P 2 2500 K 8 174 &/180BM99R024U%U1R.000155BM884K8 L031N01,M75M83,M88M95,M99N00104001743716L 1252 12 10 B RWD P 4 2502 B M83 175 1253 12 11 * 1254 12 12 * INCORRECT INPUT CARD 1255 12 13 * 1256 12 14 ERROR H 0,144 P 7 2506 . 000 144 175 1257 12 15 B TSTLC P 4 2513 B K96 175 1258 12 16 INSER SBR INSXT&3 P 4 2517 H N58 175 1259 12 17 MCW @ @,105 P 7 2521 M R67 105 175 1260 12 18 MCW @INSER@,120 P 7 2528 M R72 120 175 &BM83.000144BK96HN58MR67105MR72120 L033N34,N06N13,N17N21,N28040104001753716L 1261 12 19 BCE *&5,OPSAV,4 P 8 2535 B N47 R02 4 176 1262 12 20 B *&2 P 4 2543 B N48 176 1263 12 21 P P 1 2547 4 176 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1264 12 22 MCW @HEADR@,120 P 7 2548 M R77 120 176 1265 12 23 INSXT B 0 P 4 2555 B 000 176 1266 12 24 * 1267 12 25 * PRINT HEADING 1268 12 26 * 1269 12 27 PRTHD SBR HDXT&3 P 4 2559 H N80 176 1270 12 28 MCW @SEQ LABEL OP OPERANDS@,227 P 7 2563 M ?03 227 176 &BN47R024BN484MR77120B000HN80M?03227 L035N69,N43N47,N48N55,N59N63104001763716L 1271 12 29 W P 1 2570 2 177 1272 12 30 CC K P 2 2571 F K 177 1273 12 31 CS 228 P 4 2573 / 228 177 1274 12 32 HDXT B 0 P 4 2577 B 000 177 1275 12 33 * 1276 12 34 * PRINT STATEMENT 1277 12 35 * 1278 12 36 PRINT SBR PRTXT&3 P 4 2581 H O83 177 1279 12 37 C 120,@HEADR@ P 7 2585 C 120 ?08 177 1280 12 38 BE DOHDR P 5 2592 B O05 S 177 &2FK/228B000HO83C120?08BO05S L027N96,N71N73,N77N81,N85N92104001773716L 1281 12 39 BW CLR,HDRSW P 8 2597 V O70 R32 1 178 1282 12 40 DOHDR CS 332 P 4 2605 / 332 178 1283 12 41 CS P 1 2609 / 178 1284 12 42 BCE COMNT,106,* P 8 2610 B O84 106 * 178 1285 12 43 MCW 172,271 P 7 2618 M 172 271 178 1286 12 44 MCW 120,218 P 7 2625 M 120 218 178 &VO70R321/332/BO84106*M172271M120218 L035O31,O05O09,O10O18,O25040104001783716L 1287 12 45 MCW 111,212 P 7 2632 M 111 212 179 1288 12 46 DOSEQ MN SEQNO,204 P 7 2639 D R48 204 179 1289 12 47 MCS P 1 2646 Z 179 1290 12 48 MN SEQNO,104 P 7 2647 D R48 104 179 1291 12 49 MCW P 1 2654 M 179 1292 12 50 A &1,SEQNO P 7 2655 A ?09 R48 179 1293 12 51 MCW @ @,105 P 7 2662 M ?10 105 179 &M111212DR48204ZDR48104MA?09R48M?10105 L037O68,O39O46,O47O54,O55O62104001793716L 1294 12 52 OPCOD W P 1 2669 2 180 1295 12 53 CLR CS 332 P 4 2670 / 332 180 1296 12 54 CS P 1 2674 / 180 1297 12 55 BCV NEWPG P 5 2675 B O97 @ 180 1298 12 56 PRTXT B 0 P 4 2680 B 000 180 1299 12 57 COMNT MCW 172,273 P 7 2684 M 172 273 180 1300 12 58 MCW P 1 2691 M 180 &2/332/BO97@B000M172273M L023O91,O70O74,O75O80,O84O91104001803716L 1301 12 59 MCW P 1 2692 M 181 1302 12 60 B DOSEQ P 4 2693 B O39 181 1303 12 61 * 1304 12 62 * START NEW PAGE 1305 12 63 * 1306 12 64 NEWPG CC 1 P 2 2697 F 1 181 1307 12 65 BW *&5,HDSW1 P 8 2699 V P11 R33 1 181 1308 12 66 B HEAD1 P 4 2707 B P19 181 1309 12 67 B PRTHD P 4 2711 B N59 181 1310 12 68 B PRTXT P 4 2715 B O80 181 1311 12 69 * 1312 12 70 * PRINT MAIN HEADING 1313 12 71 * 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &MBO39F1VP11R331BP19BN59BO80 L027P18,O93O97,O99P07,P11P15104001813716L 1314 12 72 HEAD1 SBR HD2XT&3 P 4 2719 H P66 182 1315 12 73 CS 332 P 4 2723 / 332 182 1316 12 74 CS P 1 2727 / 182 1317 12 75 MCW @1401 AUTOCODER - LIBRARY@,243 P 7 2728 M ?34 243 182 1318 12 76 MCW @PAGE@,275 P 7 2735 M ?38 275 182 1319 12 77 A &1,PGNO#3 P 7 2742 A ?09 ?41 182 1320 12 78 MCS PGNO,279 P 7 2749 Z ?41 279 182 &HP66/332/M?34243M?38275A?09?41Z?41279 L037P55,P23P27,P28P35,P42P49104001823716L 1321 12 79 W P 1 2756 2 183 1322 12 80 CC L P 2 2757 F L 183 1323 12 81 CS 299 P 4 2759 / 299 183 1324 12 82 HD2XT B 0 P 4 2763 B 000 183 1325 12 83 * 1326 12 84 * TEST FOR NOISE RECORDS 1327 12 85 * 1328 12 86 NOISE SBR NOSXT&3 P 4 2767 H Q05 183 1329 12 87 SBR XR1 P 4 2771 H 089 183 1330 12 88 MZ &9,XR1 P 7 2775 Y ?42 089 183 &2FL/299B000HQ05H089Y?42089 L026P81,P57P59,P63P67,P71P75104001833716L 1331 12 89 BCE 4000-12&X1,113,} P 8 2782 B IY8 113 } 184 1332 12 90 CHAIN 12 MACRO 1333 BCE P 1 2790 B GEN 184 1334 BCE P 1 2791 B GEN 184 1335 BCE P 1 2792 B GEN 184 1336 BCE P 1 2793 B GEN 184 1337 BCE P 1 2794 B GEN 184 1338 BCE P 1 2795 B GEN 184 &BIY8113}BBBBBB L014P95,P90P91,P92P93,P94P95104001843716L 1339 BCE P 1 2796 B GEN 185 1340 BCE P 1 2797 B GEN 185 1341 BCE P 1 2798 B GEN 185 1342 BCE P 1 2799 B GEN 185 1343 BCE P 1 2800 B GEN 185 1344 BCE P 1 2801 B GEN 185 1345 12 91 NOSXT B 0 P 4 2802 B 000 185 1346 12 92 * 1347 12 93 * READ REDUNDANCY ROUTINE 1348 12 94 * &BBBBBBB000 L010Q05,P97P98,P99Q00,Q01Q02104001853716L 1349 12 95 RDERR SBR RDXT&3 P 4 2806 H Q38 186 1350 12 96 BSP BSP SYSTP P 5 2810 U %U1 B 186 1351 12 97 MCW &9,RDCT#1 P 7 2815 M ?42 ?43 186 1352 12 98 RDTRY RT SYSTP,101 P 8 2822 M %U1 101 R 186 1353 12 99 BER *&5 P 5 2830 B Q39 L 186 1354 13 00 RDXT B 0 P 4 2835 B 000 186 1355 13 01 BSP SYSTP P 5 2839 U %U1 B 186 &HQ38U%U1BM?42?43M%U1101RBQ39LB000U%U1B L038Q43,Q10Q15,Q22Q30,Q35Q39104001863716L 1356 13 02 S &1,RDCT P 7 2844 S ?09 ?43 187 1357 13 03 BWZ RDTRY,RDCT,B P 8 2851 V Q22 ?43 B 187 1358 13 04 H 0,191 P 7 2859 . 000 191 187 1359 13 05 RT SYSTP,101 P 8 2866 M %U1 101 R 187 1360 13 06 BSS BSP,E P 5 2874 B Q10 E 187 &S?09?43VQ22?43B.000191M%U1101RBQ10E L035Q78,Q51Q59,Q66Q74,040040104001873716L 1361 13 07 H 0,111 P 7 2879 . 000 111 188 1362 13 08 B RDXT P 4 2886 B Q35 188 1363 13 09 LTORG * P 2890 1 1401 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @2@ P 1 2890 LIT 188 1144 @PRINT@ P 5 2895 LIT 188 1146 @PUNCH@ P 5 2900 LIT 188 &4 P 1 2901 LIT 188 1152 OPSAV #01 P 1 2902 AREA 188 &.000111BQ352PRINTPUNCHD L024R02,Q86Q90,Q91Q96,R01R02104001883716L 1156 NAME #03 P 3 2905 AREA 189 1170 @999999@ P 6 2911 LIT 189 1172 @HEADR@ P 5 2916 LIT 189 1189 @HEADR@ P 5 2921 LIT 189 1200 @UNKNOWN@ P 7 2928 LIT 189 @999@ P 3 2931 LIT 189 1209 HDRSW #01 P 1 2932 AREA 189 & 999999HEADRHEADRUNKNOWN999 L030R32,R06R12,R17R22,R29R32104001893716L 1218 HDSW1 #01 P 1 2933 AREA 190 1223 @999999@ P 6 2939 LIT 190 1225 @HEADR@ P 5 2944 LIT 190 1231 SEQNO #04 P 4 2948 AREA 190 1242 @END OF LIBRARY@ P 14 2962 LIT 190 1259 @ @ P 5 2967 LIT 190 & 999999HEADR END OF LIBRARY L035R67,R34R40,R45R49,R63040104001903716L 1260 @INSER@ P 5 2972 LIT 191 1264 @HEADR@ P 5 2977 LIT 191 1270 @SEQ LABEL OP OPERANDS@ P 26 3003 LIT 191 &INSERHEADRSEQ LABEL OP OPERANDS L036?03,R73R78,040040,040040104001913716L 1279 @HEADR@ P 5 3008 LIT 192 &1 P 1 3009 LIT 192 @ @ P 1 3010 LIT 192 1317 @1401 AUTOCODER - LIBRARY@ P 24 3034 LIT 192 @PAGE@ P 4 3038 LIT 192 1319 PGNO #03 P 3 3041 AREA 192 &9 P 1 3042 LIT 192 &HEADRA 1401 AUTOCODER - LIBRARYPAGE IL039?42,?09?10,?11?35,?39?42104001923716L 1351 RDCT #01 P 1 3043 AREA 193 1364 13 10 ENDOT DCW @}@ P 1 3044 193 & } L002?44,?44040,040040,040040104001933716L & N000000,040040,040040,040040B00001943716L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01953716L &,068072)063067/061039 ,001001104001963716L 1365 13 11 EX 0 P B 000 194 & /000080 01973716L 1366 13 12 END 0 P / 000 080 197 1 3 ERRORS 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013722L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023722L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033722L 0 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 001 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 102 1 02 CTL 630 1 103 1 03 SFX I 104 1 04 OTHER EQU START I 0101 105 1 05 MINUS2 EQU 2 I 0002 106 1 06 MINUS3 EQU 3 I 0003 107 1 07 DIOCSB EQU LABDIO-4 I 0576 108 1 08 ORG 1 I 0001 109 1 09 MAINX DA 1X86 I 0001 0086 4 ADDR 110 1 10 LMAINX EQU * I 0086 111 1 11 XINIT INDEX1,INDEX2,INDEX3 MACRO 112 01 INDEX1 EQU 089 I 0089 GEN 113 02 089 DCW 000 I 3 0089 GEN 4 114 04 091 DC 00 I 2 0091 GEN 4 115 05 INDEX2 EQU 094 I 0094 GEN 116 06 094 DCW 000 I 3 0094 GEN 4 117 08 096 DC 00 I 2 0096 GEN 4 118 09 INDEX3 EQU 099 I 0099 GEN 119 10 099 DCW 000 I 3 0099 GEN 4 120 12 100 DC 0 I 1 0100 GEN 4 121 1 12 * 122 1 13 * START OF MAIN LINE 123 1 14 * 124 1 15 ORG 101 I 0101 125 1 16 START RWD 4 I 5 0101 U %U4 R 4 126 1 17 RWD 5 I 5 0106 U %U5 R 4 127 1 18 RWD 6 I 5 0111 U %U6 R 4 &00000000000000U%U4RU%U5RU%U6R L029115,001092,097101,106111104000043722L 128 1 19 BSS OVLAY2,B I 5 0116 B P32 B 5 129 1 20 B REDREC I 4 0121 B 774 5 130 1 21 C MAINX&17, @JOB@ I 7 0125 C 018 W05 5 131 1 22 BU CMCTL I 5 0132 B 157 / 5 132 1 23 CC 1 I 2 0137 F 1 5 133 1 24 MCW 80,280 I 7 0139 M 080 280 5 134 1 25 W I 1 0146 2 5 &BP32BB774C018W05B157/F1M0802802 L031146,121125,132137,139146104000053722L 135 1 26 CC 1 I 2 0147 F 1 6 136 1 27 B WRTREC I 4 0149 B 721 6 137 1 28 B REDREC I 4 0153 B 774 6 138 1 29 CMCTL C MAINX&17, @CTL@ I 7 0157 C 018 W08 6 139 1 30 BU FIND I 5 0164 B 642 / 6 140 1 31 BCE ROBIN,MAINX&23,1 I 8 0169 B 623 024 1 6 141 1 32 MN MAINX&21,*&8 I 7 0177 D 022 191 6 &F1B721B774C018W08B642/B6230241D022191 L037183,149153,157164,169177104000063722L 142 1 33 BCE ROBIN,@456@, I 8 0184 B 623 W11 7 143 1 34 CHAIN 2 MACRO 144 BCE I 1 0192 B GEN 7 145 BCE I 1 0193 B GEN 7 146 1 350 B BLUE I 4 0194 B 627 7 147 1 36 ORG 201 I 0201 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 37 DA 1X132 I 0201 0332 7 149 1 38 6,6 I 0206 FIELD 7 150 1 39 DTFTAB EQU LABDTF-1 I 0349 151 1 40 ORG 333 I 0333 &B623W11 BBB627 L014197,192193,194201,206040104000073722L 152 1 41 EITHER B NEXREC I 4 0333 B 681 8 153 1 42 * 154 1 43 * CONTROL CARD INFORMATION 155 1 44 * 156 1 45 SPECL DCW @*@ I 1 0337 8 157 1 46 SYMNM DCW #3 I 3 0340 8 158 1 47 * 159 1 48 * DTF MAJOR TABLE 160 1 49 * 161 1 50 DCW @,@ I 1 0341 8 162 1 51 DCW @;@ COBOL YES I 1 0342 8 163 1 52 DCW @;@ EXITS YES I 1 0343 8 164 1 53 FILENM DCW #6 I 6 0349 8 &B681* ,;; L017349,337338,341342,343344104000083722L 165 1 54 LABDTF DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 9 166 1 55 DCW @;@ 2 OUTPUT 2 I 1 0351 9 167 1 56 DCW @;@ 3 TAPE 3 I 1 0352 9 168 1 57 DCW @;@ 4 READER 4 I 1 0353 9 169 1 58 DCW @;@ 5 PUNCH 5 I 1 0354 9 170 1 59 DCW @;@ 6 PRINTER 6 I 1 0355 9 171 1 60 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 9 &;;;;;;; L007356,351352,353354,355356104000093722L 172 1 61 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 10 173 1 62 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 10 174 1 63 DCW @;@ 10 NUMBER 10 CARDPOC I 1 0359 10 175 1 64 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 10 176 1 65 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 10 177 1 66 DCW @;@ 13 UNBLOCKED 13 I 1 0362 10 178 1 67 DCW @;@ 14 MIXED 14 I 1 0363 10 &;;;;;;; L007363,358359,360361,362363104000103722L 179 1 68 DCW @;@ 15 VARIABLE 15 I 1 0364 11 180 1 69 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 11 181 1 70 DCW @;@ 20 NUMBER 17 PADDING I 1 0369 11 182 1 71 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 11 183 1 72 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 11 184 1 73 DCW @ ;@ 35-44 20 I 10 0393 11 &; ;; ; ; ; L030393,365369,370374,384040104000113722L 185 1 74 DCW @ ;@ 45-54 LABEL 21 WORKAREA I 10 0403 12 186 1 75 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 12 187 1 76 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 12 188 1 77 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 12 189 1 78 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 12 190 1 79 DCW @ ;@ 77-80 HASH 26 I 4 0429 12 191 1 80 DCW @;@ 81 STANDARD 27 TYPELABEL I 1 0430 12 & ;; ; ;; ;; L037430,404405,415425,426430104000123722L 192 1 81 DCW @;@ 82 NONSTANDARD 28 I 1 0431 13 193 1 82 DCW @;@ 83 TM 29 I 1 0432 13 194 1 83 DCW @;@ 84 ALL 30 CHECKLABEL I 1 0433 13 195 1 84 DCW @;@ 85 IDENT 31 I 1 0434 13 196 1 85 DCW @ ;@ I 3 0437 13 197 1 86 DCW @ ;@ I 5 0442 13 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 87 DCW @ ;@ I 10 0452 13 &;;;; ; ; ; L022452,432433,434435,438443104000133722L 199 1 88 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 14 200 1 89 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 14 201 1 90 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 14 202 1 91 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 14 & ; ; ; ; L035487,458468,478040,040040104000143722L 203 1 92 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 15 204 1 93 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 15 205 1 94 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 15 & ; ; ; L030517,498508,040040,040040104000153722L 206 1 95 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 16 207 1 96 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 16 208 1 97 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 16 209 1 98 DCW @;@ 199 UNLOAD 37 REWIND I 1 0548 16 210 1 99 DCW @;@ 200 NOREWD 38 I 1 0549 16 211 2 00 DCW @;@ 9 201 OVERFLOW I 1 0550 16 212 2 01 DCW @;@ 12 202 I 1 0551 16 & ; ; ;;;;; L034551,528538,548549,550551104000163722L 213 2 02 DCW @ ;@ 203-205 NUMBER REELSEQP I 3 0554 17 214 2 03 DCW @;@ 206 FORMCNTL I 1 0555 17 215 2 04 DCW #9 I 9 0564 17 216 2 05 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 17 217 2 06 DCW @ @ I 1 0566 17 218 2 07 ENDDTF DCW @ @ I 1 0567 17 219 2 08 * 220 2 09 * DIOCS MAJOR TABLE 221 2 10 * 222 2 11 DCW @,@ I 1 0568 17 223 2 12 DIVIDE EQU * I 0568 & ;; ; , L017568,555556,565566,567568104000173722L 224 2 13 DCW @;@ 40 PAR OUT TAPEUSE I 1 0569 18 225 2 14 DCW @;@ 39 PAR INP TAPEUSE I 1 0570 18 226 2 15 DCW @;@ 38 PAR YES EXITS I 1 0571 18 227 2 16 LABDIO DCW #9 DIOCSORG I 9 0580 18 228 2 17 DCW @;@ 5 I 1 0581 18 229 2 18 DCW @;@ 6 OVERLAP FEATURES I 1 0582 18 230 2 19 DCW @;@ 7 TAPE IODEVICES I 1 0583 18 &;;; ;;; L015583,570571,572581,582583104000183722L 231 2 20 DCW @;@ 8 READER I 1 0584 19 232 2 21 DCW @;@ 9 PUNCH I 1 0585 19 233 2 22 DCW @;@ 10 PRINTER I 1 0586 19 234 2 23 DCW @;@ 11 STANDARD LABELDEF I 1 0587 19 235 2 24 DCW @;@ 12 NONSTANDARD I 1 0588 19 236 2 25 DCW @;@ 13 MIXED I 1 0589 19 237 2 26 DCW @;@ 14 CHECK I 1 0590 19 &;;;;;;; L007590,585586,587588,589590104000193722L 238 2 27 DCW @;@ 15 IDENT I 1 0591 20 239 2 28 DCW @;@ 16 TM I 1 0592 20 240 2 29 DCW @;@ 17 YES ALTDRIVE I 1 0593 20 241 2 30 DCW @;@ 18 1 EXITS I 1 0594 20 242 2 31 DCW @;@ 19 2 I 1 0595 20 243 2 32 DCW @;@ 20 3 I 1 0596 20 244 2 33 DCW @;@ 21 4 I 1 0597 20 &;;;;;;; L007597,592593,594595,596597104000203722L 245 2 34 DCW @;@ 22 5 I 1 0598 21 246 2 35 DCW @;@ 23 6 I 1 0599 21 247 2 36 DCW @;@ 24 7 I 1 0600 21 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 37 DCW @;@ 25 8 I 1 0601 21 249 2 38 DCW @;@ RDLIN LABELDEF I 1 0602 21 250 2 39 DCW @;@ 27 729 DRIVETYPE I 1 0603 21 251 2 40 DCW @;@ 28 7330 I 1 0604 21 &;;;;;;; L007604,599600,601602,603604104000213722L 252 2 41 DCW @;@ 29 NORWD RWDOPTION I 1 0605 22 253 2 42 DCW @;@ 30 UNLOAD I 1 0606 22 254 2 43 DCW @;@ 31 TAPE,# READERROR I 1 0607 22 255 2 44 DCW @;@ 32 SCAN I 1 0608 22 256 2 45 DCW @;@ 33 PROCESS I 1 0609 22 257 2 46 DCW @;@ CLEAN READERROR I 1 0610 22 258 2 47 DCW @;@ 35 YES INPVAR I 1 0611 22 &;;;;;;; L007611,606607,608609,610611104000223722L 259 2 48 DCW @;@ 36 YES INPFXNO I 1 0612 23 260 2 49 DCW @;@ 37 RECORD COUNTS I 1 0613 23 261 2 50 DCW @;@ 38 HASH I 1 0614 23 262 2 51 DCW #5 I 5 0619 23 263 2 52 DCW @;@ 39-44 CHECKPOINT I 1 0620 23 264 2 53 DCW @;@ 45 RELEASE FEATURES I 1 0621 23 265 2 54 ENDDIO DCW @;@ 46 STORAGE I 1 0622 23 266 2 55 * 267 2 56 * &;;; ;;; L011622,613614,615620,621622104000233722L 268 2 57 ROBIN S SPECL I 4 0623 S 337 24 269 5 575 BLUE MCW MAINX&25,NORDRL#1 I 7 0627 M 026 W12 24 270 2 58 THRU B WRTREC I 4 0634 B 721 24 271 2 59 B REDREC I 4 0638 B 774 24 272 2 60 FIND C MAINX&19,KDIOCS I 7 0642 C 020 V71 24 273 2 61 BE GOTIT I 5 0649 B 670 S 24 274 2 62 * 275 2 63 * 276 2 64 * READ IN PHASE 2 277 2 65 * 278 2 66 * 279 2 67 BCE THRU,MAINX&5,* I 8 0654 B 634 006 * 24 &S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,649654104000243722L 280 2 68 PREPS2 B SAVCD I 4 0662 B O98 25 281 2 69 B PASS2 I 4 0666 B V06 25 282 2 70 GOTIT MCW @M@,LENGTH I 7 0670 M W13 743 25 283 2 72 WHOM B WRTREC I 4 0677 B 721 25 284 2 73 NEXREC B REDREC I 4 0681 B 774 25 285 2 74 GAMMA BCE WHOM,MAINX&5,* I 8 0685 B 677 006 * 25 286 2 75 C MAINX&17,@DTF@ I 7 0693 C 018 W16 25 &BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,685693104000253722L 287 2 76 BE DTFND I 5 0700 B 713 S 26 288 2 77 B WRTREC I 4 0705 B 721 26 289 2 78 B UPPER I 4 0709 B 821 26 290 2 79 DTFND B SAVCD I 4 0713 B O98 26 291 2 80 B CRDOUT I 4 0717 B J68 26 292 2 81 * 293 2 82 * WRITE ROUTINE 294 2 83 * 295 2 84 WRTREC SBR WRTEXT&3 I 4 0721 H 761 26 296 2 85 MCW LMAINX,LOPUT-1 I 7 0725 M 086 I97 26 &B713SB721B821BO98BJ68H761M086I97 L032731,705709,713717,721725104000263722L 297 2 86 SW LOPUT I 4 0732 , I98 27 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 87 MCW GMWMRK,LOPUT I 7 0736 M 773 I98 27 299 2 88 LENGTH NOP @W@,OUTPT&74 I 7 0743 N W17 I86 27 300 2 89 SHORT B CTAPE I 4 0750 B S22 27 301 2 90 NOP TDF6 I 4 0754 N 764 27 302 2 91 WRTEXT B 0 I 4 0758 B 000 27 303 2 92 TDF6 DCW 000 I 3 0764 27 &,I98M773I98NW17I86BS22N764B000000 L033764,736743,750754,758762104000273722L 304 2 93 WT 6,OUTPT I 8 0765 M %U6 I12 W 28 305 2 94 GMWMRK DC @}@ I 1 0773 28 306 2 95 * 307 2 96 * READ ROUTINE 308 2 97 * 309 2 98 REDREC SBR REDEXT&3 I 4 0774 H 809 28 310 2 99 CS LMAINX I 4 0778 / 086 28 311 3 00 BSS RTWED,C I 5 0782 B 798 C 28 312 3 01 BLC DTFOUT I 5 0787 B M46 A 28 313 3 02 R I 1 0792 1 28 314 3 03 SSB REDEXT,1 I 5 0793 K 806 1 28 &M%U6I12W}H809/086B798CBM46A1K8061 L033797,774778,782787,792793104000283722L 315 3 04 RTWED B CTAPE I 4 0798 B S22 29 316 3 05 NOP TDF4 I 4 0802 N 812 29 317 3 06 REDEXT B 0 I 4 0806 B 000 29 318 3 07 TDF4 DCW &DTFOUT I 3 0812 M46 29 319 3 08 RT 4,MAINX I 8 0813 M %U4 001 R 29 320 3 09 * 321 3 10 * LOOK UP LABEL 322 3 11 * 323 3 12 UPPER CW SCNSW#1 I 4 0821 ) W18 29 324 3 13 BCE NEXREC,MAINX&20, I 8 0825 B 681 021 29 &BS22N812B000M46M%U4001R)W18B681021 L035832,802806,810813,821825104000293722L 325 3 14 SBR CHAIR&3,LSTPAR I 7 0833 H O66 O75 30 326 3 15 S INDEX2&1 I 4 0840 S 095 30 327 3 16 SBR INDEX3,LBLTBL I 7 0844 H 099 H46 30 328 3 17 COMPR C MAINX&7,0&X3 I 7 0851 C 008 0?0 30 329 3 18 SBR INDEX3 I 4 0858 H 099 30 330 3 19 BE COMEQ I 5 0862 B 984 S 30 &HO66O75S095H099H46C0080?0H099B984S L034866,840844,851858,862040104000303722L 331 3 20 BCE NEXREC,0&X3,@ I 8 0867 B 681 0?0 @ 31 332 3 21 A @7@,INDEX2 I 7 0875 A W19 094 31 333 3 22 B COMPR I 4 0882 B 851 31 334 3 23 BRTBL B ACTSCN I 4 0886 B /13 31 335 3 24 DCW &DIOCSB&36 INPFXNO I 3 0892 612 31 336 3 25 B REASB I 4 0893 B /73 31 337 3 26 DCW #3 READERROR I 3 0899 31 &B6810?0@AW19094B851B/13612B/73 L033899,875882,886890,893897104000313722L 338 3 27 B OPDSCN I 4 0900 B O14 32 339 3 28 DCW &RWDTB RWDOPTION I 3 0906 F95 32 340 3 29 B OPDSCN I 4 0907 B O14 32 341 3 30 DCW &DRITB DRIVETYPE I 3 0913 F82 32 342 3 31 B OPDSCN I 4 0914 B O14 32 343 3 32 DCW &COUTB COUNTS I 3 0920 G08 32 344 3 33 B ACTSCN I 4 0921 B /13 32 &BO14F95BO14F82BO14G08B/13 L025924,904907,911914,918921104000323722L 345 3 34 DCW &DIOCSB&35 VARINP I 3 0927 611 33 346 3 35 B EXISB I 4 0928 B 992 33 347 3 36 DCW #3 I 3 0934 33 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 3 37 B ACTSCN I 4 0935 B /13 33 349 3 38 DCW &DIOCSB&17 ALTDRIVE I 3 0941 593 33 350 3 39 B OPDSCN I 4 0942 B O14 33 351 3 40 DCW &LABTB LABELDEF I 3 0948 F20 33 &611B992 B/13593BO14F20 L024948,928932,935939,942946104000333722L 352 3 41 B OPDSCN I 4 0949 B O14 34 353 3 42 DCW &IODTB IODEVICES I 3 0955 E77 34 354 3 43 B OPDSCN I 4 0956 B O14 34 355 3 44 DCW &FEATB FEATURES I 3 0962 E52 34 356 3 45 B DIOSB DIOCSORG I 4 0963 B /47 34 357 3 46 DCW &DIOCSB&5 I 3 0969 581 34 358 3 47 B DIOSB I 4 0970 B /47 34 &BO14E77BO14E52B/47581B/47 L025973,953956,960963,967970104000343722L 359 3 48 DCW DIOCSB&44 I 3 0976 620 35 360 3 49 B OPDSCN I 4 0977 B O14 35 361 3 50 DCW &TAPTB I 3 0983 E33 35 362 3 51 COMEQ S INDEX3&1 I 4 0984 S 100 35 363 3 52 B BRTBL&X2 I 4 0988 B 8Q6 35 364 3 53 * 365 3 54 EXISB LCA @$@,DIVIDE&3 I 7 0992 L W20 571 35 366 3 55 B OPDSCN I 4 0999 B O14 35 &620BO14E33S100B8Q6LW20571BO14 L029 02,977981,984988,992999104000353722L 367 3 56 DCW &EXITB EXITS I 3 1005 F69 36 368 3 57 * 369 3 58 NEWSCN SBR NWEXT&3 I 4 1006 H /04 36 370 3 59 MCW @ @,OPDAR#3 I 7 1010 M W23 W26 36 371 3 60 S INDEX2&1 I 4 1017 S 095 36 372 3 61 NWSCNL C MAINX&21&X3,@ @ I 7 1021 C 0B2 W28 36 373 3 62 SW MAINX&20 I 4 1028 , 021 36 374 3 63 BE FDBLK I 5 1032 B 90 S 36 &F69H/04MW23W26S095C0B2W28,021B 90S L034 36, 06 10, 17 21, 28 32104000363722L 375 3 64 BCE FOUND,MAINX&20&X3,, I 8 1037 B /05 0B1 , 37 376 3 65 C INDEX3,@52@ I 7 1045 C 099 W30 37 377 3 66 BE BLKFD I 5 1052 B 97 S 37 378 3 67 MCW MAINX&20&X3,OPDAR-2&X2 I 7 1057 M 0B1 WK4 37 379 3 68 A @1@,INDEX2 I 7 1064 A W31 094 37 &B/050B1,C099W30B 97SM0B1WK4AW31094 L034 70, 45 52, 57 64,040040104000373722L 380 3 69 BCE FOUND,INDEX2,3 I 8 1071 B /05 094 3 38 381 3 70 A @1@,INDEX3 I 7 1079 A W31 099 38 382 3 71 B NWSCNL I 4 1086 B 21 38 383 3 72 FDBLK A @1@,INDEX3 I 7 1090 A W31 099 38 384 3 73 BLKFD SW SCNSW I 4 1097 , W18 38 385 3 74 NWEXT B 0 I 4 1101 B 000 38 386 3 75 FOUND B SCANX I 4 1105 B N55 38 &B/050943AW31099B 21AW31099,W18B000BN55 L038/08, 79 86, 90 97,/01/05104000383722L 387 3 76 B NWEXT I 4 1109 B /01 39 388 3 77 * 389 3 78 * ACTUAL SCAN FOR YES 390 3 79 * 391 3 80 ACTSCN SBR INDEX1 I 4 1113 H 089 39 392 3 81 MCW 2&X1,INDEX1 I 7 1117 M 0 2 089 39 393 3 82 C MAINX&22,@YES@ I 7 1124 C 023 W34 39 394 3 83 BU ACTOUT I 5 1131 B /43 / 39 395 3 84 LCA @$@,0&X1 I 7 1136 L W20 0 0 39 396 3 85 ACTOUT B EITHER I 4 1143 B 333 39 397 3 86 * 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 3 87 * DIOCSORG 399 3 88 * &B/01H089M0 2089C023W34B/43/LW200 0B333 L038/46,/13/17,/24/31,/36/43104000393722L 400 3 89 DIOSB SBR INDEX1 I 4 1147 H 089 40 401 3 90 MCW 2&X1,INDEX1 I 7 1151 M 0 2 089 40 402 3 91 B SCANX I 4 1158 B N55 40 403 3 92 LCA MAINX&18&X3,0&X1 I 7 1162 L 0A9 0 0 40 404 3 93 B NEXREC I 4 1169 B 681 40 405 3 94 * 406 3 95 * READERROR 407 3 96 * 408 3 97 REASB SBR CHAIR&3,CHTAP I 7 1173 H O66 /87 40 409 3 98 B OPDSCN I 4 1180 B O14 40 &H089M0 2089BN55L0A90 0B681HO66/87BO14 L037/83,/51/58,/62/69,/73/80104000403722L 410 3 99 DCW &REATB I 3 1186 G27 41 411 4 00 CHTAP C OPDAR,@TAP@ I 7 1187 C W26 W37 41 412 4 01 BU LSTPAR I 5 1194 B O75 / 41 413 4 02 B SCANX I 4 1199 B N55 41 414 4 03 BCE LSTPAR,MAINX&18&X3, I 8 1203 B O75 0A9 41 415 4 04 MCW MAINX&18&X3,DIOCSB&31 I 7 1211 M 0A9 607 41 416 4 05 B LSTPAR I 4 1218 B O75 41 417 4 06 * 418 4 07 * COMBINATION READ/ WRITE ROUTINE 419 4 08 * &G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S18104000413722L 420 4 09 CTAPE SBR INDEX2 I 4 1222 H 094 42 421 4 10 SBR ICONPR&3 I 4 1226 H T43 42 422 4 11 MCW 3&X2,INDEX2 I 7 1230 M 0!3 094 42 423 4 12 MCW 8&X2,ITAPEC&7 I 7 1237 M 0!8 T01 42 424 4 13 MCW 0&X2,IEORC&3 I 7 1244 M 0!0 T13 42 425 4 14 SW ICOMPR&4 I 4 1251 , T19 42 &H094HT43M0!3094M0!8T01M0!0T13,T19 L033S54,S26S30,S37S44,S51040104000423722L 426 4 15 MCW 7&X2,ICOMPR&6 I 7 1255 M 0!7 T21 43 427 4 16 A @12@,ICOMPR&6 I 7 1262 A W39 T21 43 428 4 17 CW ICOMPR&4 I 4 1269 ) T19 43 429 4 18 MN ITAPEC&3,IHALT&6 I 7 1273 D S97 U28 43 430 4 19 MN ITAPEC&7,IHALT&6 I 7 1280 D T01 U28 43 431 4 20 MCW @9@,IERRCT#1 I 7 1287 M W40 W41 43 &M0!7T21AW39T21)T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S87040104000433722L 432 4 21 ITAPEC RT 0,0 I 8 1294 M %U0 000 R 44 433 4 22 BCE IOMETS,ITAPEC&7,W I 8 1302 B T35 T01 W 44 434 4 23 IEORC BEF 0 I 5 1310 B 000 K 44 435 4 24 ICOMPR BCE ITAPEC,0,} I 8 1315 B S94 000 } 44 436 4 25 CHAIN 12 MACRO 437 BCE I 1 1323 B GEN 44 438 BCE I 1 1324 B GEN 44 439 BCE I 1 1325 B GEN 44 &M%U0000RBT35T01WB000KBS94000}BBB L032T25,T02T10,T15T23,T24T25104000443722L 440 BCE I 1 1326 B GEN 45 441 BCE I 1 1327 B GEN 45 442 BCE I 1 1328 B GEN 45 443 BCE I 1 1329 B GEN 45 444 BCE I 1 1330 B GEN 45 445 BCE I 1 1331 B GEN 45 446 BCE I 1 1332 B GEN 45 &BBBBBBB L007T32,T27T28,T29T30,T31T32104000453722L 447 BCE I 1 1333 B GEN 46 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 BCE I 1 1334 B GEN 46 449 4 26 IOMETS BER IRWRED I 5 1335 B T44 L 46 450 4 27 ICONPR B 0 I 4 1340 B 000 46 451 4 28 IRWRED S @1@,IERRCT I 7 1344 S W31 W41 46 452 4 29 MN ITAPEC&3,*&4 I 7 1351 D S97 T61 46 453 4 30 BSP 0 I 5 1358 U %U0 B 46 &BBBT44LB000SW31W41DS97T61U%U0B L030T62,T34T35,T40T44,T51T58104000463722L 454 4 31 BCE ITROW,ITAPEC&7,W I 8 1363 B T83 T01 W 47 455 4 32 BM IHALT,IERRCT I 8 1371 V U22 W41 K 47 456 4 33 B ITAPEC I 4 1379 B S94 47 457 4 34 ITROW A @1@,IERASC#2 I 7 1383 A W31 W43 47 458 4 35 SKP 6 I 5 1390 U %U6 E 47 &BT83T01WVU22W41KBS94AW31W43U%U6E L032T94,T71T79,T83T90,040040104000473722L 459 4 36 BCE ICHALT,IERASC-1,5 I 8 1395 B U07 W42 5 48 460 4 37 B ITAPEC-7 I 4 1403 B S87 48 461 4 38 ICHALT S IERASC I 4 1407 S W43 48 462 4 39 H 0,202 I 7 1411 . 000 202 48 463 4 40 B ITAPEC-7 I 4 1418 B S87 48 464 4 41 IHALT H 0,200 I 7 1422 . 000 200 48 465 4 42 BSS ITAPEC-7,E I 5 1429 B S87 E 48 &BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U29104000483722L 466 4 43 MCW ITAPEC&7,*&8 I 7 1434 M T01 U48 49 467 4 44 RT 0,0 I 8 1441 M %U0 000 R 49 468 4 45 H 0,201 I 7 1449 . 000 201 49 469 4 46 B ICONPR I 4 1456 B T40 49 470 4 47 PASSI LCA ENDDIO,ENDDTF I 7 1460 L 622 567 49 471 4 48 LCA I 1 1467 L 49 &MT01U48M%U0000R.000201BT40L622567L L034U67,U41U49,U56U60,U67040104000493722L 472 4 49 SBR EITHER&3,DIFREC I 7 1468 H 336 M06 50 473 4 50 MCW &DTFTAB&X1,OPDFND&6 I 7 1475 M W46 O93 50 474 4 51 LCA 186,LMAINX I 7 1482 L 186 086 50 475 4 52 B WRTREC I 4 1489 B 721 50 476 4 53 B DTFNM I 4 1493 B L91 50 477 4 54 ALTBY B BYPSS I 4 1497 B C49 50 478 4 55 BSP 4 I 5 1501 U %U4 B 50 &H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V01104000503722L 479 4 56 PASS2 RT 1,3997 I 8 1506 M %U1 I97 R 51 480 4 57 RT 1,3997 I 8 1514 M %U1 I97 R 51 481 4 58 SBR TDF1&7,341 I 7 1522 H P30 341 51 482 4 59 B CTAPE I 4 1529 B S22 51 483 4 60 NOP TDF1 I 4 1533 N P23 51 484 4 61 B OVLY3 I 4 1537 B 341 51 485 4 62 * 486 4 63 NUMERC SBR INDEX1 I 4 1541 H 089 51 &M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V41104000513722L 487 4 64 MCW 2&X1,INDEX1 I 7 1545 M 0 2 089 52 488 4 65 SW MAINX&20 I 4 1552 , 021 52 489 4 66 MCW MAINX&20,DTFTAB&X1 I 7 1556 M 021 3U9 52 490 4 67 B DIFREC I 4 1563 B M06 52 491 4 68 KDIOCS DCW @DIOCS@ I 5 1571 52 492 4 69 BLORB B SCANX I 4 1572 B N55 52 493 4 70 A MAINX&18&X3,BLOWA-1 I 7 1576 A 0A9 W01 52 &M0 2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V76104000523722L 494 4 71 LCA BLOWA-1,DTFTAB&24 I 7 1583 L W01 373 53 495 4 72 S BLOWA I 4 1590 S W02 53 496 4 73 B EITHER I 4 1594 B 333 53 497 4 74 BLOWA DCW &00000 I 5 1602 53 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 75 LTORG * I 1603 DCW @JOB@ I 3 1605 LIT 53 @CTL@ I 3 1608 LIT 53 @456@ I 3 1611 LIT 53 &LW01373SW02B3330000?JOBCTL456 L029W11,V90V94,V98W03,W06W09104000533722L 269 NORDRL #01 I 1 1612 AREA 54 @M@ I 1 1613 LIT 54 @DTF@ I 3 1616 LIT 54 @W@ I 1 1617 LIT 54 323 SCNSW #01 I 1 1618 AREA 54 @7@ I 1 1619 LIT 54 @$@ I 1 1620 LIT 54 & MDTFW 7$ L009W20,W13W14,W17W18,W19W20104000543722L @ @ I 3 1623 LIT 55 370 OPDAR #03 I 3 1626 AREA 55 @ @ I 2 1628 LIT 55 @52@ I 2 1630 LIT 55 @1@ I 1 1631 LIT 55 @YES@ I 3 1634 LIT 55 @TAP@ I 3 1637 LIT 55 & 521YESTAP L017W37,W24W27,W29W31,W32W35104000553722L @12@ I 2 1639 LIT 56 @9@ I 1 1640 LIT 56 431 IERRCT #01 I 1 1641 AREA 56 457 IERASC #02 I 2 1643 AREA 56 473 &DTFTAB&X1 I 3 1646 3U9 ADCON 56 499 4 76 ORG 1649 I 1649 &129 3U9 L009W46,W40W41,W42W44,040040104000563722L 500 4 77 OVER DCW @}@ I 1 1649 57 &} L001W49,040040,040040,040040104000573722L & N000000,040040,040040,040040B00000583722L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00593721L &,068072)063067/061039 ,001001104000603721L 501 4 78 EX I B 000 58 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 502 4 79 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 503 4 80 ORG 1650 I 1650 504 4 81 SFX I 505 4 82 * 506 4 83 * DTF TABLE OF BRANCHES 507 4 84 * 508 4 85 DTFINT SBR INDEX3,DTFLAB I 7 1650 H 099 H03 61 509 4 86 SBR CHAIR&3,LSTPAR I 7 1657 H O66 O75 61 510 4 87 BCE DIFREC,MAINX&20, I 8 1664 B M06 021 61 511 4 88 CW SCNSW I 4 1672 ) W18 61 512 4 89 C MAINX&6,@EX@ I 7 1676 C 007 H48 61 513 4 90 BE EXIRB I 5 1683 B !31 S 61 &H099H03HO66O75BM06021 )W18C007H48B!31S L038W87,W57W64,W72W76,W83040104000613721L 514 4 91 S INDEX2&1 I 4 1688 S 095 62 515 4 92 SEEK C MAINX&7,0&X3 I 7 1692 C 008 0?0 62 516 4 93 SBR INDEX3 I 4 1699 H 099 62 517 4 94 BE AGREE I 5 1703 B Z35 S 62 518 4 95 BCE DIFREC,0&X3,@ I 8 1708 B M06 0?0 @ 62 519 4 96 A @7@,INDEX2 I 7 1716 A H49 094 62 520 4 97 B SEEK I 4 1723 B W92 62 &S095C0080?0H099BZ35SBM060?0@AH49094BW92L039X26,W92W99,X03X08,X16X23104000623721L 521 4 98 DTFBR B OPDSCN I 4 1727 B O14 63 522 4 99 DCW REWXZ REWIND I 3 1733 E00 63 523 5 00 B ACTUAL I 4 1734 B !89 63 524 5 01 DCW &DTFTAB&205 REELSEQ I 3 1740 554 63 525 5 02 B ACTUAL I 4 1741 B !89 63 526 5 03 DCW &DTFTAB&108 SERIALNUM I 3 1747 457 63 527 5 04 B HEARB I 4 1748 B N37 63 &BO14E00B!89554B!89457BN37 L025X51,X31X34,X38X41,X45X48104000633721L 528 5 05 DCW &DTFTAB&103 I 3 1754 452 64 529 5 06 B OPDSCN I 4 1755 B O14 64 530 5 07 DCW &CHEXZ CHECKLABEL I 3 1761 D87 64 531 5 08 B OPDSCN I 4 1762 B O14 64 532 5 09 DCW &TYPXZ TYPELABEL I 3 1768 D74 64 533 5 10 B TOTRB I 4 1769 B Z81 64 534 5 11 DCW #3 TOTALS I 3 1775 64 &452BO14D87BO14D74BZ81 L024X75,X55X59,X62X66,X69X73104000643721L 535 5 12 B ACTUAL I 4 1776 B !89 65 536 5 13 DCW &DTFTAB&75 WLRADDR I 3 1782 424 65 537 5 14 B ACTUAL I 4 1783 B !89 65 538 5 15 DCW &DTFTAB&65 EOFADDR I 3 1789 414 65 539 5 16 B INDRB I 4 1790 B !71 65 540 5 17 DCW #3 INDEXREG I 3 1796 65 541 5 18 B ACTUAL I 4 1797 B !89 65 &B!89424B!89414B!71 B!89 L025Y00,X80X83,X87X90,X94X97104000653721L 542 5 19 DCW &DTFTAB&54 WORKAREA I 3 1803 403 66 543 5 20 B IOARB I 4 1804 B Z47 66 544 5 21 DCW &DTFTAB&44 IOAREAS I 3 1810 393 66 545 5 22 B BLORB I 4 1811 B V72 66 546 5 23 DCW &DTFTAB&24 BLOCKSIZE I 3 1817 373 66 547 5 24 B NUMERC I 4 1818 B V41 66 548 5 25 DCW @020@ PADDING I 3 1824 66 &403BZ47393BV72373BV41020 L024Y24,Y04Y08,Y11Y15,Y18Y22104000663721L 549 5 26 B ACTUAL I 4 1825 B !89 67 550 5 27 DCW &DTFTAB&19 SIXEREC I 3 1831 368 67 551 5 28 B OPDSCN I 4 1832 B O14 67 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 552 5 29 DCW &RECXZ RECFORM I 3 1838 D55 67 553 5 30 B NUMERC I 4 1839 B V41 67 554 5 31 DCW @011@ ALTTAPE I 3 1845 67 555 5 32 B NUMERC I 4 1846 B V41 67 &B!89368BO14D55BV41011BV41 L025Y49,Y29Y32,Y36Y39,Y43Y46104000673721L 556 5 33 DCW @010@ CARDPOC I 3 1852 68 557 5 34 B OPDSCN I 4 1853 B O14 68 558 5 35 DCW &MODXZ MODEPAR I 3 1859 D30 68 559 5 36 B OPDSCN I 4 1860 B O14 68 560 5 37 DCW &FILXZ FILETUPE I 3 1866 D23 68 561 5 38 B NUMERC I 4 1867 B V41 68 562 5 39 DCW @009@ CHANDRIVE I 3 1873 68 &010BO14D30BO14D23BV41009 L024Y73,Y53Y57,Y60Y64,Y67Y71104000683721L 563 5 40 B ACTUAL I 4 1874 B !89 69 564 5 41 DCW DTFTAB&198 VARBUILD I 3 1880 547 69 565 5 42 B ACTSCN I 4 1881 B /13 69 566 5 43 DCW &DTFTAB-7 I 3 1887 342 69 567 5 44 B NUMERC I 4 1888 B V41 69 568 5 45 DCW @206@ I 3 1894 69 569 5 46 B OVERB I 4 1895 B !06 69 &B!89547B/13342BV41206B!06 L025Y98,Y78Y81,Y85Y88,Y92Y95104000693721L 570 5 47 DCW #1 I 1 1899 70 571 5 48 ORG 1900 I 1900 572 5 49 RTW 1,1 I 8 1900 L %U1 001 R 70 573 5 50 BER HALT I 5 1908 B Z21 L 70 574 5 51 CW OVER I 4 1913 ) W49 70 575 5 52 B OTHER I 4 1917 B 101 70 576 5 53 HALT BSP 1 I 5 1921 U %U1 B 70 577 5 54 NOP 288 I 4 1926 N 288 70 & L%U1001RBZ21L)W49B101U%U1BN288 L031Z29,Z00Z08,Z13Z17,Z21Z26104000703721L 578 5 55 H I 1 1930 . 71 579 5 56 B 1900 I 4 1931 B Z00 71 580 5 57 * 581 5 58 AGREE S INDEX3&1 I 4 1935 S 100 71 582 5 59 SW MAINX&20 I 4 1939 , 021 71 583 5 60 B DTFBR&X2 I 4 1943 B XK7 71 584 5 61 * IOAREAS 585 5 62 * 586 5 63 IOARB B SCANX I 4 1947 B N55 71 587 5 64 LCA MAINX&18&X3,DTFTAB&44 I 7 1951 L 0A9 393 71 &.BZ00S100,021BXK7BN55L0A9393 L028Z57,Z31Z35,Z39Z43,Z47Z51104000713721L 588 5 65 BW EITHER,SCNSW I 8 1958 V 333 W18 1 72 589 5 66 B SCANX I 4 1966 B N55 72 590 5 67 LCA MAINX&18&X3,DTFTAB&34 I 7 1970 L 0A9 383 72 591 5 68 B EITHER I 4 1977 B 333 72 592 5 69 * 593 5 70 * TOTALS 594 5 71 * 595 5 72 TOTRB SBR CHAIR&3,TOTJK I 7 1981 H O66 Z95 72 596 5 73 B OPDSCN I 4 1988 B O14 72 597 5 74 DCW &TOTXZ I 3 1994 E20 72 &V333W181BN55L0A9383B333HO66Z95BO14E20 L037Z94,Z66Z70,Z77Z81,Z88Z92104000723721L 598 5 75 TOTJK LCA MAINX&18&X3,DTFTAB&80 I 7 1995 L 0A9 429 73 599 5 76 B LSTPAR I 4 2002 B O75 73 600 5 77 OVERB SBR CHAIR&3,OVEJK I 7 2006 H O66 !20 73 601 5 78 B OPDSCN I 4 2013 B O14 73 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 602 5 79 DCW &OVEXZ OVERFLOW I 3 2019 E13 73 603 5 80 OVEJK LCA MAINX&18&X3,DTFTAB&216 I 7 2020 L 0A9 565 73 604 5 81 B LSTPAR I 4 2027 B O75 73 605 5 82 * 606 5 83 * EXITS ROUTINE 607 5 84 * &L0A9429BO75HO66!20BO14E13L0A9565BO75 L036!30,!02!06,!13!17,!20!27104000733721L 608 5 85 EXIRB MCW @1 8@,INDEX2 I 7 2031 M H52 094 74 609 5 86 MN MAINX&7,INDEX2-1 I 7 2038 D 008 093 74 610 5 87 S INDEX3&1 I 4 2045 S 100 74 611 5 88 B SCANX I 4 2049 B N55 74 612 5 89 LCA MAINX&18&X3,DTFTAB&X2 I 7 2053 L 0A9 3M9 74 613 5 90 LCA @$@,DTFTAB-6 I 7 2060 L H53 343 74 &MH52094D008093S100BN55L0A93M9LH53343 L036!66,!38!45,!49!53,!60040104000743721L 614 5 91 B DIFREC I 4 2067 B M06 75 615 5 92 * 616 5 93 * INDEX REGISTER 617 5 94 * 618 5 95 INDRB MN MAINX&21,DTFTAB&55 I 7 2071 D 022 404 75 619 5 96 MZ @ @,DTFTAB&55 I 7 2078 Y H54 404 75 620 5 97 B DIFREC I 4 2085 B M06 75 621 5 98 * 622 5 99 * LOAD PARAMETERS - ACTUAL 623 6 00 * 624 6 01 ACTUAL SBR INDEX1 I 4 2089 H 089 75 625 6 015 BW EITHER,SCNSW I 8 2093 V 333 W18 1 75 &BM06D022404YH54404BM06H089V333W181 L034J00,!71!78,!85!89,!93040104000753721L 626 6 02 MCW 2&X1,INDEX1 I 7 2101 M 0 2 089 76 627 6 03 SEARCH B SCANX I 4 2108 B N55 76 628 6 04 LCA MAINX&18&X3,0&X1 I 7 2112 L 0A9 0 0 76 629 6 05 SBR INDEX1 I 4 2119 H 089 76 630 6 06 BW DIFREC,SCNSW I 8 2123 V M06 W18 1 76 631 6 07 B SEARCH I 4 2131 B J08 76 632 6 08 NEWWRT SBR WRTEXT&3 I 4 2135 H 761 76 &M0 2089BN55L0A90 0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J35104000763721L 633 6 09 MCW LMAINX,LOPUT-1 I 7 2139 M 086 I97 77 634 6 10 SW OUTPT&80 I 4 2146 , I92 77 635 6 11 MCW GMWMRK,OUTPT&80 I 7 2150 M 773 I92 77 636 6 12 LONG MCW @*@,OUTPT&73 I 7 2157 M H55 I85 77 637 6 13 B SHORT I 4 2164 B 750 77 638 6 14 * 639 6 15 * OUTPUT MACRO STATEMENT FOR DIOC 640 6 16 * 641 6 17 CRDOUT MN @5@,TDF6&4 I 7 2168 D H56 768 77 &M086I97,I92M773I92MH55I85B750DH56768 L036J74,J46J50,J57J64,J68040104000773721L 642 6 18 CS LMAINX I 4 2175 / 086 78 643 6 19 MCW @55555@,MAINX&19 I 7 2179 M H61 020 78 644 6 20 SBR INDEX3,ENDDIO I 7 2186 H 099 622 78 645 6 21 B GOOD&4 I 4 2193 B K01 78 646 6 22 GOOD CS LMAINX I 4 2197 / 086 78 647 6 23 SW 1 I 4 2201 , 001 78 648 6 24 SBR INDEX1,MAINX&20 I 7 2205 H 089 021 78 &/086MH61020H099622BK01/086,001H089021 L037K11,J79J86,J93J97,K01K05104000783721L 649 6 25 MCW @ @,MAINX&72 I 7 2212 M H62 073 79 650 6 26 LODPAR MCW 0&X3,WKAREA-1 I 7 2219 M 0?0 L89 79 651 6 27 SBR INDEX2 I 4 2226 H 094 79 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 652 6 28 MCW INDEX1,SAVXL1#3 I 7 2230 M 089 H65 79 653 6 29 MCM 1&X2,0&X1 I 7 2237 P 0!1 0 0 79 654 6 30 SBR INDEX1 I 4 2244 H 089 79 &MH62073M0?0L89H094M089H65P0!10 0H089 L036K47,K19K26,K30K37,K44040104000793721L 655 6 31 MCW @, @,0&X1 I 7 2248 M H67 0 0 80 656 6 32 BCE CONTIN,MAINX&72, I 8 2255 B L01 073 80 657 6 33 MCW SAVXL1,INDEX1 I 7 2263 M H65 089 80 658 6 34 SW 0&X1 I 4 2270 , 0 0 80 659 6 35 MCW @ @,MAINX&79 I 7 2274 M H69 080 80 660 6 36 MCW MAINX&78 I 4 2281 M 079 80 &MH670 0BL01073 MH65089,0 0MH69080M079 L037K84,K55K63,K70K74,K81040104000803721L 661 6 37 CW 0&X1 I 4 2285 ) 0 0 81 662 6 38 B NEWWRT I 4 2289 B J35 81 663 6 39 CW OUTPT&80 I 4 2293 ) I92 81 664 6 40 B GOOD I 4 2297 B J97 81 665 6 41 CONTIN MCW 0&X3,0&X3 I 7 2301 M 0?0 0?0 81 666 6 42 SBR INDEX3 I 4 2308 H 099 81 667 6 43 COMBLK C 0&X3,@ @ I 7 2312 C 0?0 H54 81 &)0 0BJ35)I92BJ97M0?00?0H099C0?0H54 L034L18,K89K93,K97L01,L08L12104000813721L 668 6 44 SAR INDEX3 I 4 2319 Q 099 82 669 6 45 BE COMBLK I 5 2323 B L12 S 82 670 6 46 A @1@,INDEX3 I 7 2328 A H70 099 82 671 6 47 B ALLDIO,0&X3,, I 8 2335 B L47 0?0 , 82 672 6 48 B LODPAR I 4 2343 B K19 82 673 6 49 ALLDIO MCW @ @,0&X1 I 7 2347 M H69 0 0 82 &Q099BL12SAH70099BL470?0,BK19MH690 0 L035L53,L23L28,L35L43,L47040104000823721L 674 6 50 MCW @ @,MAINX&72 I 7 2354 M H54 073 83 675 6 51 B NEWWRT I 4 2361 B J35 83 676 6 52 CW OUTPT&80 I 4 2365 ) I92 83 677 6 53 MN @6@,TDF6&4 I 7 2369 D H71 768 83 678 6 54 BETTER B PASSI I 4 2376 B U60 83 679 6 55 WKAREA DCW @ @ I 11 2390 83 &MH54073BJ35)I92DH71768BU60 L037L90,L61L65,L69L76,L80040104000833721L 680 6 56 DTFNM S INDEX3&1 I 4 2391 S 100 84 681 6 57 B SCANX I 4 2395 B N55 84 682 6 58 LCA MAINX&18&X3,FILENM I 7 2399 L 0A9 349 84 683 6 59 DIFREC B REDREC I 4 2406 B 774 84 684 6 60 DELTA BCE ALPHA,MAINX&5,* I 8 2410 B M30 006 * 84 685 6 61 C MAINX&19,@ @ I 7 2418 C 020 H76 84 686 6 62 BU DTFOUT I 5 2425 B M46 / 84 &S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M25104000843721L 687 6 63 ALPHA B WRTREC I 4 2430 B 721 85 688 6 64 BCE DIFREC,MAINX&5,* I 8 2434 B M06 006 * 85 689 6 65 B DTFINT I 4 2442 B W50 85 690 6 66 DTFOUT MN @5@,TDF6&4 I 7 2446 D H56 768 85 691 6 67 SBR INDEX3,ENDDTF I 7 2453 H 099 567 85 692 6 68 B SAVCD I 4 2460 B O98 85 &B721BM06006*BW50DH56768H099567BO98 L034M63,M34M42,M46M53,M60040104000853721L 693 6 69 SBR WALK&3,ALTBY I 7 2464 H Q99 U97 86 694 6 70 C MAINX&17,@DTF@ I 7 2471 C 018 H79 86 695 6 71 CS LMAINX I 4 2478 / 086 86 696 6 72 MCW @33333@,MAINX&19 I 7 2482 M H84 020 86 697 6 73 BE SETDSW I 5 2489 B N05 S 86 698 6 74 RIVER SBR BETTER&3,PASS2 I 7 2494 H L79 V06 86 &HQ99U97C018H79/086MH84020BN05SHL79V06 L037N00,M71M78,M82M89,M94040104000863721L 699 6 75 B GOOD&4 I 4 2501 B K01 87 700 6 76 SETDSW SBR BETTER&3,RNDTF I 7 2505 H L79 N16 87 701 6 77 B GOOD&4 I 4 2512 B K01 87 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 702 6 78 RNDTF RTW 1,341 I 8 2516 L %U1 341 R 87 703 6 79 BSP 1 I 5 2524 U %U1 B 87 704 6 80 CW DTFGM I 4 2529 ) 568 87 705 6 81 B PASSI I 4 2533 B U60 87 &BK01HL79N16BK01L%U1341RU%U1B)568BU60 L036N36,N05N12,N16N24,N29N33104000873721L 706 6 82 HEARB B SCANX I 4 2537 B N55 88 707 6 83 MCW MAINX&18&X3,DTFTAB&103 I 7 2541 M 0A9 452 88 708 6 84 B ACTUAL I 4 2548 B !89 88 709 6 85 DCW &DTFTAB&93 I 3 2554 442 88 710 6 86 * 711 6 87 * SCAN FOR A COMMA OR TWO BLANKS 712 6 88 * 713 6 89 SCANX SBR CLUBS&3 I 4 2555 H O13 88 714 6 90 SCANL SW MAINX&20 I 4 2559 , 021 88 715 6 91 C MAINX&21&X3,@ @ I 7 2563 C 0B2 H69 88 &BN55M0A9452B!89442HO13,021C0B2H69 L033N69,N41N48,N52N55,N59N63104000883721L 716 6 92 A @1@,INDEX3 I 7 2570 A H70 099 89 717 6 93 BE SETIT I 5 2577 B O02 S 89 718 6 94 BCE SETWMS,MAINX&19&X3,, I 8 2582 B O06 0B0 , 89 719 6 95 C INDEX3,@52@ I 7 2590 C 099 H86 89 720 6 96 BU SCANL I 5 2597 B N59 / 89 721 6 97 SETIT SW SCNSW I 4 2602 , W18 89 &AH70099BO02SBO060B0,C099H86BN59/,W18 L036O05,N77N82,N90N97,O02040104000893721L 722 6 98 SETWMS SW MAINX&20&X3 I 4 2606 , 0B1 90 723 6 99 CLUBS B 0 I 4 2610 B 000 90 724 7 00 * 725 7 01 * SCAN OPERAND TABLE 726 7 02 * 727 7 03 * 728 7 04 OPDSCN SBR INDEX2 I 4 2614 H 094 90 729 7 05 MCW 2&X2,SAVX2 I 7 2618 M 0!2 H89 90 730 7 06 OPDRTN B NEWSCN I 4 2625 B 06 90 731 7 07 MCW SAVX2#3,INDEX2 I 7 2629 M H89 094 90 732 7 08 SEEKOP C OPDAR,0&X2 I 7 2636 C W26 0!0 90 &,0B1B000H094M0!2H89B 06MH89094CW260!0 L037O42,O10O14,O18O25,O29O36104000903721L 733 7 09 SBR INDEX2 I 4 2643 H 094 91 734 7 10 MCW 0&X2,INDEX1 I 7 2647 M 0!0 089 91 735 7 11 SAR INDEX2 I 4 2654 Q 094 91 736 7 12 BE OPDFND I 5 2658 B O87 S 91 737 7 13 CHAIR BCE LSTPAR,0&X2,@ I 8 2663 B O75 0!0 @ 91 738 7 14 B SEEKOP I 4 2671 B O36 91 &H094M0!0089Q094BO87SBO750!0@BO36 L032O74,O47O54,O58O63,O71040104000913721L 739 7 15 LSTPAR BW EITHER,SCNSW I 8 2675 V 333 W18 1 92 740 7 16 B OPDRTN I 4 2683 B O25 92 741 7 17 OPDFND LCA @$@,DIOCSB&X1 I 7 2687 L H53 5X6 92 742 7 18 B LSTPAR I 4 2694 B O75 92 743 7 19 SAVCD SBR SVCDX&3 I 4 2698 H P20 92 744 7 20 CS 186 I 4 2702 / 186 92 745 7 21 SW 101 I 4 2706 , 101 92 &V333W181BO25LH535X6BO75HP20/186,101 L035P09,O83O87,O94O98,P02P06104000923721L 746 7 22 MCW LMAINX,186 I 7 2710 M 086 186 93 747 7 23 SVCDX B 0 I 4 2717 B 000 93 748 7 24 * 749 7 25 * READ IN OVERLAY TWO 750 7 26 * 751 7 27 TDF1 DCW #3 I 3 2723 93 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 752 7 28 RTW 1,101 I 8 2724 L %U1 101 R 93 753 7 29 OVLAY2 SW GMOVL2 I 4 2732 , 332 93 754 7 30 MCW GMWMRK,GMOVL2 I 7 2736 M 773 332 93 &M086186B000 L%U1101R,332M773332 L033P42,P17P21,P24P32,P36040104000933721L 755 7 31 RT 1,101 I 8 2743 M %U1 101 R 94 756 7 32 B CTAPE I 4 2751 B S22 94 757 7 33 NOP TDF1 I 4 2755 N P23 94 758 7 34 B PUNCH I 4 2759 B 101 94 759 7 35 * 760 7 36 * ALTER PART OF IOCS 761 7 37 * 762 7 38 ALTER B CTAPE I 4 2763 B S22 94 763 7 39 NOP TDF4A I 4 2767 N A35 94 764 7 40 MCW OUTPT&7,SYMNM I 7 2771 M I19 340 94 &M%U1101RBS22NP23B101BS22NA35MI19340 L035P77,P51P55,P59P63,P67P71104000943721L 765 7 41 BSS OUTCL,C I 5 2778 B 119 C 95 766 7 42 BSP 4 I 5 2783 U %U4 B 95 767 7 43 SBR RIVER&6,TUNEL I 7 2788 H N00 Q88 95 768 7 44 SBR PREPS2&3 I 4 2795 H 665 95 769 7 45 R I 1 2799 1 95 770 7 46 C MAINX&17,@ALT@ I 7 2800 C 018 H92 95 771 7 47 BU WALK I 5 2807 B Q96 / 95 &B119CU%U4BHN00Q88H6651C018H92BQ96/ L034Q11,P83P88,P95P99,Q00Q07104000953721L 772 7 48 HOMAL B SAVXX I 4 2812 B C19 96 773 7 49 B PACKX I 4 2816 B R43 96 774 7 50 NOALTB B CTAPE I 4 2820 B S22 96 775 7 51 NOP TDF4A I 4 2824 N A35 96 776 7 52 C OUTPT&83,HLDA1 I 7 2828 C I95 I02 96 777 7 53 BE CHECK I 5 2835 B ?05 S 96 778 7 54 PROPRE C OUTPT&17,@JOB@ I 7 2840 C I29 H95 96 &BC19BR43BS22NA35CI95I02B?05SCI29H95 L035Q46,Q16Q20,Q24Q28,Q35Q40104000963721L 779 7 55 ALTS1 BU ALTS2E I 5 2847 B Q60 / 97 780 7 56 B NOPJB I 4 2852 B 205 97 781 7 57 B NOTER I 4 2856 B 220 97 782 7 58 ALTS2E C OUTPT&17,@CTL@ I 7 2860 C I29 H98 97 783 7 59 ALTS2 BE OUTCL I 5 2867 B 119 S 97 784 7 60 SOLVED MCW OUTPT&85,LMAINX I 7 2872 M I97 086 97 785 7 61 SW READS I 4 2879 , I10 97 &BQ60/B205B220CI29H98B119SMI97086,I10 L036Q82,Q52Q56,Q60Q67,Q72Q79104000973721L 786 7 62 ALTIO BSS REGEN,G I 5 2883 B A44 G 98 787 7 63 TUNEL BW BSPT4,READS I 8 2888 V R04 I10 1 98 788 7 64 WALK B SAVCD I 4 2896 B O98 98 789 7 65 B ALTBY I 4 2900 B U97 98 790 7 66 BSPT4 BW REGL,XCARDS I 8 2904 V R27 I09 1 98 791 7 67 MN @5@,TDF6&4 I 7 2912 D H56 768 98 &BA44GVR04I101BO98BU97VR27I091DH56768 L036R18,Q88Q96,R00R04,R12040104000983721L 792 7 68 B NEWWRT I 4 2919 B J35 99 793 7 69 B REGL&5 I 4 2923 B R32 99 794 7 70 REGL BSP 4 I 5 2927 U %U4 B 99 795 7 71 LCA AREASV,186 I 7 2932 L 331 186 99 796 7 72 B ALTBY I 4 2939 B U97 99 797 7 73 PACKX SBR PACKS&3 I 4 2943 H ?04 99 798 7 74 SW BALTR I 4 2947 , I03 99 &BJ35BR32U%U4BL331186BU97H?04,I03 L032R50,R23R27,R32R39,R43R47104000993721L 799 7 75 CW SCNSW I 4 2951 ) W18 100 800 7 76 S INDEX3&1 I 4 2955 S 100 100 801 7 77 B SCANX I 4 2959 B N55 100 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 802 7 78 ZA MAINX&18&X3,HLDA1#4 I 7 2963 ? 0A9 I02 100 803 7 79 BW PARKS,SCNSW I 8 2970 V R93 W18 1 100 804 7 80 B SCANX I 4 2978 B N55 100 805 7 81 ZA MAINX&18&X3,HLDB I 7 2982 ? 0A9 I07 100 &)W18S100BN55?0A9I02VR93W181BN55?0A9I07 L038R88,R55R59,R63R70,R78R82104001003721L 806 7 82 CW BALTR#1 I 4 2989 ) I03 101 807 7 83 PARKS CS LMAINX I 4 2993 / 086 101 808 7 84 SW 1 I 4 2997 , 001 101 809 7 85 PACKS B 0 I 4 3001 B 000 101 810 7 86 * 811 7 87 * ALTER NUMBER COMPARES EQUAL 812 7 88 * 813 7 89 CHECK BW WRTAL,BALTR I 8 3005 V ?37 I03 1 101 814 7 90 DBLAL C OUTPT&83,HLDB#4 I 7 3013 C I95 I07 101 815 7 91 BE WRTAL I 5 3020 B ?37 S 101 &)I03/086,001B000V?37I031CI95I07B?37S L036?24,R93R97,?01?05,?13?20104001013721L 816 7 92 B CTAPE I 4 3025 B S22 102 817 7 93 NOP TDF4A I 4 3029 N A35 102 818 7 94 B DBLAL I 4 3033 B ?13 102 819 7 95 WRTAL BLC TUNEL I 5 3037 B Q88 A 102 820 7 96 R I 1 3042 1 102 821 7 97 C MAINX&17,@ALT@ I 7 3043 C 018 H92 102 822 7 98 BE HOMAL I 5 3050 B Q12 S 102 &BS22NA35B?13BQ88A1C018H92BQ12S L030?54,?29?33,?37?42,?43?50104001023721L 823 7 99 C MAINX&17,@JOB@ I 7 3055 C 018 H95 103 824 8 00 ALTS3 BU ALTS4E I 5 3062 B ?75 / 103 825 8 01 B NOPJB I 4 3067 B 205 103 826 8 02 B RSOLV I 4 3071 B 175 103 827 8 03 ALTS4E C MAINX&17,@CTL@ I 7 3075 C 018 H98 103 828 8 04 ALTS4 BE CRDCL I 5 3082 B 138 S 103 &C018H95B?75/B205B175C018H98B138S L032?86,?62?67,?71?75,?82040104001033721L 829 8 05 BW TUFF,BALTR I 8 3087 V A03 I03 1 104 830 8 06 CW READS I 4 3095 ) I10 104 831 8 07 B ALTIO I 4 3099 B Q83 104 832 8 08 TUFF B SAVXX I 4 3103 B C19 104 833 8 09 CW XCARDS I 4 3107 ) I09 104 834 8 10 SBR RSOLV&7,SOLVED I 7 3111 H 182 Q72 104 835 8 101 SBR CHUCK&3 I 4 3118 H 234 104 &VA03I031)I10BQ83BC19)I09H182Q72H234 L035A21,?95?99,A03A07,A11A18104001043721L 836 8 102 MCW @N@,NOSOL I 7 3122 M I08 131 105 837 8 11 B PROPRE I 4 3129 B Q40 105 838 8 12 * 839 8 13 * TDF FOR READING 86 CHARACTER RECORDS 840 8 14 * 841 8 15 TDF4A DCW TUNEL I 3 3135 Q88 105 842 8 16 RT 4,OUTPT I 8 3136 M %U4 I12 R 105 843 8 17 * 844 8 18 * REGENERATION OF DIOCS AND DTF 845 8 19 * 846 8 20 REGEN BW ORDN,XCARDS I 8 3144 V A85 I09 1 105 847 8 21 SBR NEXREC&3,SPCAS I 7 3152 H 684 A74 105 &MI08131BQ40Q88M%U4I12RVA85I091H684A74 L037A58,A29A33,A36A44,A52040104001053721L 848 8 22 SBR ALDIO-1,SOFT I 7 3159 H B02 B68 106 849 8 23 CW READS I 4 3166 ) I10 106 850 8 24 B FIND I 4 3170 B 642 106 851 8 25 SPCAS MCW AREASV,LMAINX I 7 3174 M 331 086 106 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 852 8 26 SW XCARDS#1 I 4 3181 , I09 106 853 8 27 ORDN SBR NEXREC&3,ALDIO I 7 3185 H 684 B03 106 &HB02B68)I10B642M331086,I09H684B03 L033A91,A66A70,A74A81,A85040104001063721L 854 8 28 SBR DIFREC&3,ALDTF I 7 3192 H M09 C08 107 855 8 29 B FIND I 4 3199 B 642 107 856 8 30 ALDIO CS LMAINX I 4 3203 / 086 107 857 8 31 BW RDT4A,READS I 8 3207 V B41 I10 1 107 858 8 32 BLC LUNET I 5 3215 B C34 A 107 859 8 33 R I 1 3220 1 107 860 8 34 C MAINX&17,@ALT@ I 7 3221 C 018 H92 107 &HM09C08B642/086VB41I101BC34A1C018H92 L036B27,A99B03,B07B15,B20B21104001073721L 861 8 35 BU SOFT I 5 3228 B B68 / 108 862 8 36 B SAVXX I 4 3233 B C19 108 863 8 37 B PACKX I 4 3237 B R43 108 864 8 38 RDT4A B BYPSS I 4 3241 B C49 108 865 8 39 C OUTPT&83,HLDA1 I 7 3245 C I95 I02 108 866 8 40 FINAL BE DBLCK I 5 3252 B B72 S 108 867 8 41 SW READS I 4 3257 , I10 108 &BB68/BC19BR43BC49CI95I02BB72S,I10 L033B60,B33B37,B41B45,B52B57104001083721L 868 8 42 FINAL2 MCW OUTPT&85,LMAINX I 7 3261 M I97 086 109 869 8 43 SOFT B GAMMA I 4 3268 B 685 109 870 8 44 DBLCK CW READS#1 I 4 3272 ) I10 109 871 8 45 BW FINAL2,BALTR I 8 3276 V B61 I03 1 109 872 8 46 TRPCK C OUTPT&83,HLDB I 7 3284 C I95 I07 109 873 8 47 BE ALDIO I 5 3291 B B03 S 109 874 8 48 B CTAPE I 4 3296 B S22 109 &MI97086B685)I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B96104001093721L 875 8 49 NOP TDF4A I 4 3300 N A35 110 876 8 50 B TRPCK I 4 3304 B B84 110 877 8 51 * 878 8 52 * DTF ON ALTER MODE 879 8 53 * 880 8 54 ALDTF SBR SOFT&3,DELTA I 7 3308 H B71 M10 110 881 8 55 B ALDIO I 4 3315 B B03 110 882 8 56 SAVXX SBR SAVXT&3 I 4 3319 H C33 110 883 8 57 MCW LMAINX,AREASV I 7 3323 M 086 331 110 884 8 58 SAVXT B 0 I 4 3330 B 000 110 &NA35BB84HB71M10BB03HC33M086331B000 L034C33,C04C08,C15C19,C23C30104001103721L 885 8 59 LUNET SW READS I 4 3334 , I10 111 886 8 60 MCW @N@,FINAL I 7 3338 M I08 B52 111 887 8 61 B RDT4A I 4 3345 B B41 111 888 8 62 BYPSS SBR BYPSX&3 I 4 3349 H C80 111 889 8 63 B CTAPE I 4 3353 B S22 111 890 8 64 NOP TDF4A I 4 3357 N A35 111 891 8 65 BCE BYPSS&4,OUTPT&74,Y I 8 3361 B C53 I86 Y 111 &,I10MI08B52BB41HC80BS22NA35BC53I86Y L035C68,C38C45,C49C53,C57C61104001113721L 892 8 66 BCE BYPSS&4,OUTPT&74,Z I 8 3369 B C53 I86 Z 112 893 8 67 BYPSX B 0 I 4 3377 B 000 112 894 8 68 * 895 8 69 * DTF TABLE OF OPERANDS 896 8 70 * 897 8 71 DCW @@@ FILETYP I 1 3381 112 898 8 72 DCW @001@ I 3 3384 112 899 8 73 DCW @INP@ INPUT I 3 3387 112 900 8 74 DCW @002@ I 3 3390 112 901 8 75 DCW @OUT@ OUTPUT I 3 3393 112 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &BC53I86ZB000@001INP002OUT L025C93,C77C81,C82C85,C88C91104001123721L 902 8 76 DCW @003@ I 3 3396 113 903 8 77 DCW @TAP@ TAPE I 3 3399 113 904 8 78 DCW @004@ I 3 3402 113 905 8 79 DCW @REA@ READER I 3 3405 113 906 8 80 DCW @005@ I 3 3408 113 907 8 81 DCW @PUN@ PUNCH I 3 3411 113 908 8 82 DCW @008@ I 3 3414 113 &003TAP004REA005PUN008 L021D14,C97D00,D03D06,D09D12104001133721L 909 8 83 DCW @CHE@ I 3 3417 114 910 8 84 DCW @006@ I 3 3420 114 911 8 85 FILXZ DCW @PRI@ PRINTER I 3 3423 114 912 8 86 DCW @@@ MODEPAR I 1 3424 114 913 8 87 DCW @007@ I 3 3427 114 914 8 88 MODXZ DCW @LOA@ I 3 3430 114 915 8 89 DCW @@@ RECFORM I 1 3431 114 &CHE006PRI@007LOA@ L017D31,D18D21,D24D25,D28D31104001143721L 916 8 90 DCW @012@ I 3 3434 115 917 8 91 DCW @BLO@ BLOCKED I 3 3437 115 918 8 92 DCW @013@ I 3 3440 115 919 8 93 DCW @UNB@ UNBLOCKED I 3 3443 115 920 8 94 DCW @014@ I 3 3446 115 921 8 95 DCW @FIX@ FIXED I 3 3449 115 922 8 96 DCW @015@ I 3 3452 115 &012BLO013UNB014FIX015 L021D52,D35D38,D41D44,D47D50104001153721L 923 8 97 RECXZ DCW @VAR@ VARIABLE I 3 3455 116 924 8 98 DCW @@@ TYPELABEL I 1 3456 116 925 8 99 DCW @081@ I 3 3459 116 926 9 00 DCW @STA@ STANDARD I 3 3462 116 927 9 01 DCW @082@ I 3 3465 116 928 9 02 DCW @NON@ NONSTANDARD I 3 3468 116 929 9 03 DCW @083@ I 3 3471 116 &VAR@081STA082NON083 L019D71,D56D57,D60D63,D66D69104001163721L 930 9 04 TYPXZ DCW @TM @ TM I 3 3474 117 931 9 05 DCW @@@ CHECKLABEL I 1 3475 117 932 9 06 DCW @084@ I 3 3478 117 933 9 07 DCW @ALL@ ALL I 3 3481 117 934 9 08 DCW @085@ I 3 3484 117 935 9 09 CHEXZ DCW @IDE@ IDENT I 3 3487 117 936 9 10 DCW @@@ REWIND I 1 3488 117 &TM @084ALL085IDE@ L017D88,D75D76,D79D82,D85D88104001173721L 937 9 11 DCW @199@ I 3 3491 118 938 9 12 DCW @UNL@ UNLOAD I 3 3494 118 939 9 13 DCW @200@ I 3 3497 118 940 9 14 REWXZ DCW @NOR@ NOREWD I 3 3500 118 941 9 15 DCW @@@ I 1 3501 118 942 9 16 DCW @201@ I 3 3504 118 943 9 17 DCW @9 @ I 3 3507 118 &199UNL200NOR@2019 L019E07,D92D95,D98E01,E02E05104001183721L 944 9 18 DCW @202@ I 3 3510 119 945 9 19 OVEXZ DCW @12 @ I 3 3513 119 946 9 20 DCW @@@ I 1 3514 119 947 9 21 DCW @076@ I 3 3517 119 948 9 22 TOTXZ DCW @REC@ I 3 3520 119 949 9 23 * 950 9 24 * DIOCS OPERAND TABLE 951 9 25 * 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 952 9 26 DCW @@@ I 1 3521 119 953 9 27 DCW -MINUS3&4 I 3 3524 I9C 119 &20212 @076REC@I9C L017E24,E11E14,E15E18,E21E22104001193721L 954 9 28 DCW @OUT@ I 3 3527 120 955 9 29 DCW -MINUS2&4 I 3 3530 I9D 120 956 9 30 TAPTB DCW @INP@ I 3 3533 120 957 9 31 DCW @@@ I 1 3534 120 958 9 32 DCW @045@ I 3 3537 120 959 9 33 DCW @REL@ I 3 3540 120 960 9 34 DCW @046@ I 3 3543 120 &OUTI9DINP@045REL046 L019E43,E28E31,E34E35,E38E41104001203721L 961 9 35 DCW @STO@ I 3 3546 121 962 9 36 DCW @006@ I 3 3549 121 963 9 37 FEATB DCW @OVE@ OVERLAP I 3 3552 121 964 9 38 DCW @@@ I 1 3553 121 965 9 39 DCW @007@ I 3 3556 121 966 9 40 DCW @TAP@ TAPE I 3 3559 121 967 9 41 DCW @008@ I 3 3562 121 &STO006OVE@007TAP008 L019E62,E47E50,E53E54,E57E60104001213721L 968 9 42 DCW @REA@ READER I 3 3565 122 969 9 43 DCW @009@ I 3 3568 122 970 9 44 DCW @PUN@ PUNCH I 3 3571 122 971 9 45 DCW @010@ I 3 3574 122 972 9 46 IODTB DCW @PRI@ PRINTER I 3 3577 122 973 9 47 DCW @@@ I 1 3578 122 974 9 48 DCW @011@ I 3 3581 122 &REA009PUN010PRI@011 L019E81,E66E69,E72E75,E78E79104001223721L 975 9 49 DCW @STA@ STANDARD I 3 3584 123 976 9 50 DCW @012@ I 3 3587 123 977 9 51 DCW @NON@ NONSTANDARD I 3 3590 123 978 9 52 DCW @013@ I 3 3593 123 979 9 53 DCW @MIX@ MIXED I 3 3596 123 980 9 54 DCW @014@ I 3 3599 123 981 9 55 DCW @CHE@ CHECK I 3 3602 123 &STA012NON013MIX014CHE L021F02,E85E88,E91E94,E97F00104001233721L 982 9 56 DCW @015@ I 3 3605 124 983 9 57 DCW @IDE@ IDENT I 3 3608 124 984 9 58 DCW @026@ I 3 3611 124 985 9 59 DCW @RDL@ I 3 3614 124 986 9 60 DCW @016@ I 3 3617 124 987 9 61 LABTB DCW @TM @ TM I 3 3620 124 988 9 62 DCW @@@ I 1 3621 124 &015IDE026RDL016TM @ L019F21,F06F09,F12F15,F18F21104001243721L 989 9 63 DCW @018@ I 3 3624 125 990 9 64 DCW @1 @ EXIT 1 I 3 3627 125 991 9 65 DCW @019@ I 3 3630 125 992 9 66 DCW @2 @ EXIT 2 I 3 3633 125 993 9 67 DCW @020@ I 3 3636 125 994 9 68 DCW @3 @ EXIT 3 I 3 3639 125 995 9 69 DCW @021@ I 3 3642 125 &0181 0192 0203 021 L021F42,F25F28,F31F34,F37F40104001253721L 996 9 70 DCW @4 @ EXIT 4 I 3 3645 126 997 9 71 DCW @022@ I 3 3648 126 998 9 72 DCW @5 @ EXIT 5 I 3 3651 126 999 9 73 DCW @023@ I 3 3654 126 1000 9 74 DCW @6 @ EXIT 6 I 3 3657 126 1001 9 75 DCW @024@ I 3 3660 126 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1002 9 76 DCW @7 @ EXIT 7 I 3 3663 126 &4 0225 0236 0247 L021F63,F46F49,F52F55,F58F61104001263721L 1003 9 77 DCW @025@ I 3 3666 127 1004 9 78 EXITB DCW @8 @ EXIT 8 I 3 3669 127 1005 9 79 DCW @@@ I 1 3670 127 1006 9 80 DCW @027@ I 3 3673 127 1007 9 81 DCW @729@ 729 I 3 3676 127 1008 9 82 DCW @028@ I 3 3679 127 1009 9 83 DRITB DCW @733@ 7330 I 3 3682 127 &0258 @027729028733 L019F82,F67F70,F71F74,F77F80104001273721L 1010 9 84 DCW @@@ I 1 3683 128 1011 9 85 DCW @029@ I 3 3686 128 1012 9 86 DCW @NOR@ NO RWED I 3 3689 128 1013 9 87 DCW @030@ I 3 3692 128 1014 9 88 RWDTB DCW @UNL@ UNLOAD I 3 3695 128 1015 9 89 DCW @@@ I 1 3696 128 1016 9 90 DCW @037@ I 3 3699 128 &@029NOR030UNL@037 L017F99,F84F87,F90F93,F96F97104001283721L 1017 9 91 DCW @REC@ RECORD I 3 3702 129 1018 9 92 DCW @038@ I 3 3705 129 1019 9 93 COUTB DCW @HAS@ HASH I 3 3708 129 1020 9 94 DCW @@@ I 1 3709 129 1021 9 95 DCW @034@ I 3 3712 129 1022 9 96 DCW @CLE@ I 3 3715 129 1023 9 97 DCW @033@ I 3 3718 129 &REC038HAS@034CLE033 L019G18,G03G06,G09G10,G13G16104001293721L 1024 9 98 DCW @PRO@ I 3 3721 130 1025 9 99 DCW @032@ I 3 3724 130 1026 10 00 REATB DCW @SCA@ I 3 3727 130 1027 10 01 * 1028 10 02 * DTF TABLE OF LABELS 1029 10 03 * 1030 10 04 DCW @@@ I 1 3728 130 1031 10 05 DCW @OVE@ OVERFLOW I 3 3731 130 1032 10 06 DCW @FOR@ FORMSCNTL I 3 3734 130 1033 10 07 DCW @COB@ COBOL I 3 3737 130 &PRO032SCA@OVEFORCOB L019G37,G22G25,G28G29,G32G35104001303721L 1034 10 08 DCW @VAR@ VARBUILD I 3 3740 131 1035 10 09 DCW @CHA@ CHANDRIVE I 3 3743 131 1036 10 10 DCW @FIL@ FILETYPE I 3 3746 131 1037 10 11 DCW @MOD@ MODEPAR I 3 3749 131 1038 10 12 DCW @CAR@ CARDROC I 3 3752 131 1039 10 13 DCW @ALT@ ALTTAPE I 3 3755 131 1040 10 14 DCW @REC@ RECFORM I 3 3758 131 &VARCHAFILMODCARALTREC L021G58,G41G44,G47G50,G53G56104001313721L 1041 10 15 DCW @SIZ@ SIZEREC I 3 3761 132 1042 10 16 DCW @PAD@ PADDING I 3 3764 132 1043 10 17 DCW @BLO@ BLOCKSIZE I 3 3767 132 1044 10 18 DCW @IOA@ IOAREAS I 3 3770 132 1045 10 19 DCW @WOR@ WORKAREA I 3 3773 132 1046 10 20 DCW @IND@ INDEXREC I 3 3776 132 1047 10 21 DCW @EOF@ EOFADDR I 3 3779 132 &SIZPADBLOIOAWORINDEOF L021G79,G62G65,G68G71,G74G77104001323721L 1048 10 22 DCW @WLR@ WLRADDR I 3 3782 133 1049 10 23 DCW @TOT@ TOTALS I 3 3785 133 1050 10 24 DCW @TYP@ TYPELABEL I 3 3788 133 1051 10 25 DCW @CHE@ CHECKLABEL I 3 3791 133 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1052 10 26 DCW @HEA@ HEADER I 3 3794 133 1053 10 27 DCW @SER@ SERIALNUM I 3 3797 133 1054 10 28 DCW @REE@ REELSEQ I 3 3800 133 &WLRTOTTYPCHEHEASERREE L021H00,G83G86,G89G92,G95G98104001333721L 1055 10 29 DTFLAB DCW @REW@ REWIND I 3 3803 134 1056 10 30 * 1057 10 31 * 1058 10 32 * LABEL TABLE 1059 10 33 * 1060 10 34 DCW @@@ I 1 3804 134 1061 10 35 DCW @TAP@ TAPEUSE I 3 3807 134 1062 10 36 DCW @CHE@ CHECKPOINT I 3 3810 134 1063 10 37 DCW @DIO@ DIOCSORG I 3 3813 134 1064 10 38 DCW @FEA@ FEATURES I 3 3816 134 1065 10 39 DCW @IOD@ IODEVICES I 3 3819 134 &REW@TAPCHEDIOFEAIOD L019H19,H04H05,H08H11,H14H17104001343721L 1066 10 40 DCW @LAB@ LABELDEF I 3 3822 135 1067 10 41 DCW @ALT@ ALTTAPE I 3 3825 135 1068 10 42 DCW @EXI@ EXITS I 3 3828 135 1069 10 43 DCW @VAR@ VARBUILD I 3 3831 135 1070 10 44 DCW @COU@ COUNTS I 3 3834 135 1071 10 45 DCW @DRI@ DRIVETYPE I 3 3837 135 1072 10 46 DCW @RWD@ RWDOPTION I 3 3840 135 &LABALTEXIVARCOUDRIRWD L021H40,H23H26,H29H32,H35H38104001353721L 1073 10 47 DCW @REA@ READERROR I 3 3843 136 1074 10 48 LBLTBL DCW @INP@ INPFXNO I 3 3846 136 1075 10 49 LTORG * I 3847 DCW @EX@ I 2 3848 LIT 136 @7@ I 1 3849 LIT 136 @1 8@ I 3 3852 LIT 136 @$@ I 1 3853 LIT 136 @ @ I 1 3854 LIT 136 &REAINPEX71 8$ L014H54,H44H47,H49H50,H53H54104001363721L @*@ I 1 3855 LIT 137 @5@ I 1 3856 LIT 137 643 @55555@ I 5 3861 LIT 137 @ @ I 1 3862 LIT 137 652 SAVXL1 #03 I 3 3865 AREA 137 @, @ I 2 3867 LIT 137 @ @ I 2 3869 LIT 137 &*555555 , L015H69,H56H57,H62H63,H66H68104001373721L @1@ I 1 3870 LIT 138 @6@ I 1 3871 LIT 138 685 @ @ I 5 3876 LIT 138 @DTF@ I 3 3879 LIT 138 696 @33333@ I 5 3884 LIT 138 @52@ I 2 3886 LIT 138 731 SAVX2 #03 I 3 3889 AREA 138 &16 DTF3333352 L020H89,H71H72,H77H80,H85H87104001383721L @ALT@ I 3 3892 LIT 139 @JOB@ I 3 3895 LIT 139 @CTL@ I 3 3898 LIT 139 802 HLDA1 #04 I 4 3902 AREA 139 806 BALTR #01 I 1 3903 AREA 139 814 HLDB #04 I 4 3907 AREA 139 @N@ I 1 3908 LIT 139 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &ALTJOBCTL N L019I08,H93H96,H99I03,I04I08104001393721L 852 XCARDS #01 I 1 3909 AREA 140 870 READS #01 I 1 3910 AREA 140 1076 10 50 * 1077 10 51 * OUTPUT AREA 1078 10 52 * 1079 10 53 ORG 3912 I 3912 1080 10 54 OUTPT DA 1X86,G I 3912 3997 140 & L002I10,I10I12,040040,040040104001403721L DCW @}@ I 1 3998 GMARK 141 1081 10 55 LOPUT EQU * I 3998 &} L001I98,040040,040040,040040104001413721L & N000000,040040,040040,040040B00001423721L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01433723L &,068072)063067/061039 ,001001104001443723L 1082 10 56 EX I B 000 142 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1083 10 57 JOB 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 1084 10 58 SFX I 1085 10 59 ORG 341 I 0341 1086 10 60 DCW @,@ I 1 0341 145 1087 10 61 DCW @;@ EXITS YES I 1 0342 145 1088 10 62 DCW @;@ COBOL YES I 1 0343 145 1089 10 63 DCW #6 I 6 0349 145 1090 10 64 DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 145 1091 10 65 DCW @;@ 2 OUTPUT 2 I 1 0351 145 1092 10 66 DCW @;@ 3 TAPE 3 I 1 0352 145 &,;; ;;; L012352,342343,344350,351352104001453723L 1093 10 67 DCW @;@ 4 READER 4 I 1 0353 146 1094 10 68 DCW @;@ 5 PUNCH 5 I 1 0354 146 1095 10 69 DCW @;@ 6 PRINTER 6 I 1 0355 146 1096 10 70 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 146 1097 10 71 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 146 1098 10 72 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 146 1099 10 73 DCW @;@ 10 NUMBER 10 CARDPOC I 1 0359 146 &;;;;;;; L007359,354355,356357,358359104001463723L 1100 10 74 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 147 1101 10 75 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 147 1102 10 76 DCW @;@ 13 UNBLOCKED 13 I 1 0362 147 1103 10 77 DCW @;@ 14 MIXED 14 I 1 0363 147 1104 10 78 DCW @;@ 15 VARIABLE 15 I 1 0364 147 1105 10 79 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 147 1106 10 80 DCW @;@ 20 NUMBER 17 PADDING I 1 0369 147 &;;;;; ;; L010369,361362,363364,365369104001473723L 1107 10 81 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 148 1108 10 82 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 148 1109 10 83 DCW @ ;@ 35-44 20 I 10 0393 148 1110 10 84 DCW @ ;@ 45-54 LABEL 21 WORKAREA I 10 0403 148 1111 10 85 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 148 & ; ; ; ;; L035404,374384,394404,040040104001483723L 1112 10 86 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 149 1113 10 87 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 149 1114 10 88 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 149 1115 10 89 DCW @ ;@ 77-80 HASH 26 I 4 0429 149 1116 10 90 DCW @;@ 81 STANDARD 27 TYPELABEL I 1 0430 149 1117 10 91 DCW @;@ 82 NONSTANDARD 28 I 1 0431 149 1118 10 92 DCW @;@ 83 TM 29 I 1 0432 149 & ; ;; ;;;; L028432,415425,426430,431432104001493723L 1119 10 93 DCW @;@ 84 ALL 30 CHECKLABEL I 1 0433 150 1120 10 94 DCW @;@ 85 IDENT 31 I 1 0434 150 1121 10 95 DCW @ ;@ I 3 0437 150 1122 10 96 DCW @ ;@ I 5 0442 150 1123 10 97 DCW @ ;@ I 10 0452 150 1124 10 98 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 150 1125 10 99 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 150 &;; ; ; ; ; ; L035467,434435,438443,453458104001503723L 1126 11 00 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 151 1127 11 01 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 151 1128 11 02 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 151 & ; ; ; L030497,478488,040040,040040104001513723L 1129 11 03 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 152 1130 11 04 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 152 1131 11 05 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 152 & ; ; ; L030527,508518,040040,040040104001523723L 1132 11 06 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 153 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1133 11 07 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 153 1134 11 08 DCW @;@ 199 UNLOAD 37 REWIND I 1 0548 153 1135 11 09 DCW @;@ 200 NOREWD 38 I 1 0549 153 1136 11 10 DCW @;@ 9 201 OVERFLOW I 1 0550 153 1137 11 11 DCW @;@ 12 202 I 1 0551 153 1138 11 12 DCW @ ;@ 203-205 NUMBER REELSEQ I 3 0554 153 & ; ;;;;; ; L027554,538548,549550,551552104001533723L 1139 11 13 DCW @;@ 206 FORMCNTL I 1 0555 154 1140 11 14 DCW #9 I 9 0564 154 1141 11 15 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 154 1142 11 16 DCW @ @ I 1 0566 154 1143 11 17 DCW @ @ I 1 0567 154 1144 11 18 DTFGM DCW @}@ I 1 0568 154 &; ; } L014568,556565,566567,568040104001543723L & N000000,040040,040040,040040B00001553723L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01563724L &,068072)063067/061039 ,001001104001573724L 1145 11 19 EX I B 000 155 1 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 3724L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1146 11 20 JOB 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 1147 11 21 SFX I 1148 11 22 ORG 101 I 0101 1149 11 23 * 1150 11 24 * 1151 11 25 * CTL CARD ON TAPE 4 1152 11 26 * 1153 11 27 PUNCH CW GMOVL2 I 4 0101 ) 332 158 1154 11 28 BSP 1 I 5 0105 U %U1 B 158 1155 11 29 BSP 1 I 5 0110 U %U1 B 158 1156 11 30 B ALTER I 4 0115 B P63 158 1157 11 31 OUTCL MCW OUTPT&85,LMAINX I 7 0119 M I97 086 158 1158 11 32 BSS PREPS2,C I 5 0126 B 662 C 158 1159 11 33 NOSOL SBR RSOLV&7,NOALTB I 7 0131 H 182 Q20 158 1160 11 34 * 1161 11 35 * CTL CARD FROM CARDS 1162 11 36 * &)332U%U1BU%U1BBP63MI97086B662CH182Q20 L037137,105110,115119,126131104001583724L 1163 11 37 CRDCL BCE LEAVE,MAINX&23,1 I 8 0138 B 167 024 1 159 1164 11 38 MN MAINX&21,*&8 I 7 0146 D 022 160 159 1165 11 39 BCE LEAVE,@456@, I 8 0153 B 167 237 159 1166 11 40 CHAIN 2 MACRO 1167 BCE I 1 0161 B GEN 159 1168 BCE I 1 0162 B GEN 159 1169 11 41 B LETBE I 4 0163 B 171 159 1170 11 42 LEAVE S SPECL I 4 0167 S 337 159 &B1670241D022160B167237 BBB171S337 L033170,146153,161162,163167104001593724L 1171 11 43 LETBE B NOPCL I 4 0171 B 183 160 1172 11 44 RSOLV B WRTREC I 4 0175 B 721 160 1173 11 45 B WRTAL I 4 0179 B ?37 160 1174 11 46 * 1175 11 47 NOPCL SBR NPCLX&3 I 4 0183 H 204 160 1176 11 48 MCW @N@,ALTS2 I 7 0187 M 238 Q67 160 1177 11 49 MCW @N@,ALTS4 I 7 0194 M 238 ?82 160 1178 11 50 NPCLX B 0 I 4 0201 B 000 160 &B183B721B?37H204M238Q67M238?82B000 L034204,175179,183187,194201104001603724L 1179 11 51 NOPJB SBR NPJBX&3 I 4 0205 H 219 161 1180 11 52 SW ALTS1&4,ALTS3&4 I 7 0209 , Q51 ?66 161 1181 11 53 NPJBX B 0 I 4 0216 B 000 161 1182 11 54 NOTER MCW OUTPT&85,LMAINX I 7 0220 M I97 086 161 1183 11 55 B WRTREC I 4 0227 B 721 161 1184 11 56 CHUCK B NOALTB I 4 0231 B Q20 161 1185 11 57 LTORG * I 0235 DCW @456@ I 3 0237 LIT 161 &H219,Q51?66B000MI97086B721BQ20456 L033237,209216,220227,231235104001613724L @N@ I 1 0238 LIT 162 1186 11 58 ORG 246 I 0246 1187 11 59 DA 1X86 I 0246 0331 162 1188 11 60 AREASV EQU * I 0331 &N L001238,246040,040040,040040104001623724L 1189 11 61 GMOVL2 DCW @}@ I 1 0332 163 &} L001332,040040,040040,040040104001633724L & N000000,040040,040040,040040B00001643724L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01653725L &,068072)063067/061039 ,001001104001663725L 1190 11 62 EX I B 000 164 1 1401 AUTOCODER - PASS 2 - END OVERLAY - VERSION 3 3725L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1191 11 63 JOB 1401 AUTOCODER - PASS 2 - END OVERLAY - VERSION 3 1192 11 64 SFX I 1193 11 65 ORG 341 I 0341 1194 11 66 OVLY3 MN @5@,TDF6&4 I 7 0341 D 432 768 167 1195 11 73 SBR LONG&3,@N@ I 7 0348 H J60 433 167 1196 11 74 LCA 186,LMAINX I 7 0355 L 186 086 167 1197 11 75 B NEWWRT I 4 0362 B J35 167 1198 11 76 CW OUTPT&80 I 4 0366 ) I92 167 1199 11 77 SW GMOVL4 I 4 0370 , 606 167 &D432768HJ60433L186086BJ35)I92,606 L033373,348355,362366,370040104001673725L 1200 11 78 MCW GMWMRK,GMOVL4 I 7 0374 M 773 606 168 1201 11 79 B CTAPE I 4 0381 B S22 168 1202 11 80 NOP TDF9 I 4 0385 N 412 168 1203 11 81 CW GMOVL4 I 4 0389 ) 606 168 1204 11 82 RWD 5 I 5 0393 U %U5 R 168 1205 11 83 B CTAPE I 4 0398 B S22 168 1206 11 84 NOP TDFSYS I 4 0402 N 423 168 &M773606BS22N412)606U%U5RBS22N423 L032405,381385,389393,398402104001683725L 1207 11 85 B 1900 I 4 0406 B Z00 169 1208 11 86 TDF9 DCW #3 I 3 0412 169 1209 11 87 WTW 5,OVLY4 I 8 0413 L %U5 434 W 169 1210 11 88 TDFSYS DCW #3 I 3 0423 169 1211 11 89 RTW 1,1650 I 8 0424 L %U1 W50 R 169 1212 11 92 * 1213 11 93 LTORG * I 0432 DCW @5@ I 1 0432 LIT 169 @N@ I 1 0433 LIT 169 1214 11 94 OVLY4 EQU *&1 I 0434 1215 11 95 SFX X 1216 11 96 * END OF JOB 1217 11 97 * &BZ00 L%U5434W L%U1W50R5N L028433,410413,421424,432433104001693725L 1218 11 98 C CALLTX,BLANKS-2 X 7 0434 C !73 W14 170 1219 11 99 BE STENDX X 5 0441 B 450 S 170 1220 12 00 B SUREXX X 4 0446 B T08 170 1221 12 01 STENDX B SBROTX X 4 0450 B O33 170 1222 12 02 RWD 5 X 5 0454 U %U5 R 170 1223 12 03 BSP 1 X 5 0459 U %U1 B 170 1224 12 04 BSP 1 X 5 0464 U %U1 B 170 &C!73W14B450SBT08BO33U%U5RU%U1BU%U1B L035468,441446,450454,459464104001703725L 1225 12 05 WTM 6 X 5 0469 U %U6 M 171 1226 12 06 RWD 6 X 5 0474 U %U6 R 171 1227 12 07 MCW SYMNMX,MAINX&2 X 7 0479 M W01 003 171 1228 12 08 LCA LOPUT&1,MAINX&35 X 7 0486 L I98 036 171 1229 12 09 WT 5,MAINX X 8 0493 M %U5 001 W 171 1230 12 10 WTM 5 X 5 0501 U %U5 M 171 &U%U6MU%U6RMW01003LI98036M%U5001WU%U5M L037505,474479,486493,501040104001713725L 1231 12 11 RWD 4 X 5 0506 U %U4 R 172 1232 12 12 CW LIPUT&1,MAINX&35 X 7 0511 ) 187 036 172 1233 12 13 CW 100 X 4 0518 ) 100 172 1234 12 14 BYPASX RT 1,3997 X 8 0522 M %U1 I97 R 172 1235 12 15 SW LOPUT&1 X 4 0530 , I98 172 1236 12 16 BEF CBSP2X X 5 0534 B 543 K 172 1237 12 17 B BYPASX X 4 0539 B 522 172 &U%U4R)187036)100M%U1I97R,I98B543KB522 L037542,511518,522530,534539104001723725L 1238 12 18 CBSP2X RT 1,3997 X 8 0543 M %U1 I97 R 173 1 1401 AUTOCODER - PASS 2 - END OVERLAY - VERSION 3 3725L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1239 12 19 SW LOPUT&1 X 4 0551 , I98 173 1240 12 20 S &1,CBSP1X X 7 0555 S 605 604 173 1241 12 21 BM CBSP3X,CBSP1X X 8 0562 V 574 604 K 173 1242 12 22 B CBSP2X X 4 0570 B 543 173 1243 12 23 * 1244 12 24 * LOAD PASS THREE 1245 12 25 * 1246 12 26 CBSP3X CS PARTB X 4 0574 / 466 173 1247 12 27 CS X 1 0578 / 173 &M%U1I97R,I98S605604V574604KB543/466/ L036578,551555,562570,574578104001733725L 1248 12 28 CS X 1 0579 / 174 1249 12 29 B CTAPE X 4 0580 B W50 174 1250 12 30 NOP TDFEOJ X 4 0584 N 594 174 1251 12 31 B 2465 X 4 0588 B M65 174 1252 12 32 TDFEOJ DCW &CCHALT X 3 0594 Y34 174 1253 12 33 RTW 1,2210 X 8 0595 L %U1 K10 R 174 1254 12 34 CBSP1X DCW @11@ X 2 0604 174 1255 12 35 * 1256 12 36 LTORG * X 0605 &/BW50N594BM65Y34L%U1K10R11 L026604,580584,588592,595603104001743725L DCW &1 X 1 0605 LIT 175 1257 12 37 GMOVL4 DCW @}@ X 1 0606 175 &A} L002606,606040,040040,040040104001753725L & N000000,040040,040040,040040B00001763725L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01773728L &,068072)063067/061039 ,001001104001783728L 1258 12 38 EX X B 000 176 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1259 12 39 JOB 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 1260 12 40 * 1261 12 41 * AREA DEFINITIONS 1262 12 42 * 1263 12 43 SFX B 1264 12 44 ORG 1 B 0001 1265 12 45 DA 1X86 MAIN B 0001 0086 179 ADDR 1266 12 46 EQU * LMAIN B 0086 1267 12 47 ORG 87 B 0087 1268 12 48 DCW 000 INDEX1 B 3 0089 179 1269 12 49 DC 00 B 2 0091 179 1270 12 50 DCW 000 INDEX2 B 3 0094 179 1271 12 51 DC 00 B 2 0096 179 1272 12 52 DCW 000 INDEX3 B 3 0099 179 1273 12 53 DC 00 B 2 0101 179 1274 12 54 ORG 100 B 0100 &000000000000000 L015101,001092,097040,040040104001793728L 1275 12 55 DC @}@ B 1 0100 180 1276 12 56 DA 1X86 INPUT B 0101 0186 180 &} L001100)100100,101040,040040104001803728L 1277 12 57 DC @}@ LIPUT&1 B 1 0187 181 1278 12 58 DC 0 ZEROX B 1 0188 181 1279 12 59 DC 0 CARDSX B 1 0189 181 1280 12 60 DCW @***@ HLDSBX B 3 0192 181 1281 12 61 * 1282 12 62 * INITIALIZATION 1283 12 63 * 1284 12 64 ORG 101 B 0101 &}00*** L006192)187187,190040,040040104001813728L 1285 12 65 VOICE CS CALLTX B 4 0101 / !73 182 1286 12 66 CS B 1 0105 / 182 1287 12 67 IOCALT CS LMAINX B 4 0106 / 086 182 1288 12 68 B CTAPEX B 4 0110 B W50 182 1289 12 69 NOP TDFIO5 B 4 0114 N 132 182 1290 12 70 BCE IOCEOF,MAINXX&73,N B 8 0118 B 141 074 N 182 1291 12 71 B YOURS B 4 0126 B 541 182 &/!73//086BW50N132B141074NB541 L029129,105106,110114,118126104001823728L 1292 12 72 TDFIO5 DCW &IOCEOF B 3 0132 141 183 1293 12 73 RT 5,MAINXX B 8 0133 M %U5 001 R 183 1294 12 74 IOCEOF MCW @1@,HAPPYX&4 B 7 0141 M 172 N74 183 1295 12 75 MCW @/086@ B 4 0148 M 176 183 1296 12 76 B OKAY B 4 0152 B 467 183 1297 12 77 STRING CS LMAINX B 4 0156 / 086 183 1298 12 78 B CTAPEX B 4 0160 B W50 183 &141M%U5001RM172N74M176B467/086BW50 L034163,133141,148152,156160104001833728L 1299 12 79 NOP TDFIO5 B 4 0164 N 132 184 1300 12 80 B HAPPYX&5 B 4 0168 B N75 184 1301 12 81 LTORG * B 0172 DCW @1@ B 1 0172 LIT 184 @/086@ B 4 0176 LIT 184 1302 12 82 * 1303 12 83 * PARAMETER TABLE 1304 12 84 * 1305 12 85 ORG 201 B 0201 1306 12 86 DA 1X266 B 0201 0466 184 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1307 12 87 261,266 PARTBB B 0466 FIELD 184 1308 12 88 * 1309 12 89 * PROCESS EX 1310 12 90 * &N132BN751/086 L013176,168172,173201,461040104001843728L 1311 12 91 OKAY SBR SWITCH&3,CMALTB B 7 0467 H L04 510 185 1312 12 92 EXSET C CALLTX,BLANKS-2 Q. ANY CALLS B 7 0474 C !73 W14 185 1313 12 93 BE PREEM B 5 0481 B 506 S 185 1314 12 94 ATLSA B SUREXX B 4 0486 B T08 185 1315 12 95 B PREEM B 4 0490 B 506 185 1316 12 96 LORGS C CALLTX,BLANKS-2 Q. ANY CALLS B 7 0494 C !73 W14 185 1317 12 97 BU HAULIT B 5 0501 B S64 / 185 &HL04510C!73W14B506SBT08B506C!73W14BS64/L039505,474481,486490,494501104001853728L 1318 12 98 PREEM B CARDS B 4 0506 B 525 186 1319 12 99 * 1320 13 00 * INPUT ROUTINE 1321 13 01 * 1322 13 02 CMALT BSS LSTCD,C Q. NO ALTERS B 5 0510 B 686 C 186 1323 13 03 BSS LSTCD,A Q. NO MORE ALTERS B 5 0515 B 686 A 186 1324 13 04 CS LMAINX B 4 0520 / 086 186 1325 13 05 R B 1 0524 1 186 1326 13 06 CARDS SBR PREEM&3,SBROTX B 7 0525 H 509 O33 186 1327 13 07 MCW @SCR@,CHARCR B 7 0532 M 15 U62 186 &B525B686CB686A/0861H509O33M 15U62 L033538,510515,520524,525532104001863728L 1328 13 08 MCW B 1 0539 M 187 1329 13 09 MCW B 1 0540 M 187 1330 13 10 YOURS C MAINXX&17,@ALT@ B 7 0541 C 018 18 187 1331 13 11 BCE TREAD,MAINXX&5,* B 8 0548 B 697 006 * 187 1332 13 12 BU TREAD B 5 0556 B 697 / 187 1333 13 13 S INDEX1&1 B 4 0561 S 090 187 1334 13 14 B SCANXX B 4 0565 B M19 187 &MMC018 18B697006*B697/S090BM19 L030568,540541,548556,561565104001873728L 1335 13 15 ZA MAINXX&18&X1,HLDA1#4 B 7 0569 ? 0/9 22 188 1336 13 16 ALTR4 B CTAPEX GET NEXT RECORD B 4 0576 B W50 188 1337 13 17 NOP TDFRAL B 4 0580 N 922 188 1338 13 18 MCW @R@,OUTPTX&84 B 7 0584 M 23 I96 188 1339 13 19 SW LOPUTX&1 B 4 0591 , I98 188 1340 13 20 C OUTPTX&83,HLDA1 B 7 0595 C I95 22 188 1341 13 21 CALTR BE ALTR3 Q. ALTER NUMBER EQUAL TO B 5 0602 B 631 S 188 &?0/9 22BW50N922M 23I96,I98CI95 22B631S L038606,576580,584591,595602104001883728L 1342 13 22 C OUTPTX&17,@END@ NUMBER ON ALTER CARD B 7 0607 C I29 26 189 1343 13 23 BE ENDST NO. WRITE TAPE B 5 0614 B 02 S 189 1344 13 24 B CTAPEX B 4 0619 B W50 189 1345 13 25 NOP TDF6 X B 4 0623 N O24 189 1346 13 26 B ALTR4 B 4 0627 B 576 189 1347 13 27 ALTR3 BCE ALTR5,MAINXX&19&X1,, B 8 0631 B 651 0S0 , 189 1348 13 28 B CTAPEX Q. DLEETION B 4 0639 B W50 189 &CI29 26B 02SBW50NO24B576B6510S0,BW50 L036642,614619,623627,631639104001893728L 1349 13 29 NOP TDF6 X B 4 0643 N O24 190 1350 13 30 B SWITCH B 4 0647 B L01 190 1351 13 31 ALTR5 B SCANXX B 4 0651 B M19 190 1352 13 32 ZA MAINXX&18&X1,HLDA1 B 7 0655 ? 0/9 22 190 1353 13 33 ALTR6 C OUTPTX&83,HLDA1 B 7 0662 C I95 22 190 1354 13 34 BE MACRO DELETE UNTIL SECOND ALTER B 5 0669 B 931 S 190 1355 13 35 B CTAPEX NUMBER IS REACHED B 4 0674 B W50 190 &NO24BL01BM19?0/9 22CI95 22B931SBW50 L035677,647651,655662,669674104001903728L 1356 13 36 NOP TDFRAL B 4 0678 N 922 191 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1357 13 37 B ALTR6 B 4 0682 B 662 191 1358 13 38 LSTCD MCW @N@,CALTR B 7 0686 M 27 602 191 1359 13 39 B ALTR4 B 4 0693 B 576 191 1360 13 40 * 1361 13 41 * MAJOR PROCESSING 1362 13 42 * 1363 13 43 TREAD SW 1 B 4 0697 , 001 191 1364 13 44 SBR BRNCHX&3,SWITCH B 7 0701 H O99 L01 191 1365 13 45 BCE HOMEXX,MAINXX&5,* B 8 0708 B O48 006 * 191 &N922B662M 27602B576,001HO99L01BO48006* L038715,682686,693697,701708104001913728L 1366 13 46 C MAINXX&17,@MLC@ B 7 0716 C 018 30 192 1367 13 47 BE HOMEXX B 5 0723 B O48 S 192 1368 13 48 C MAINXX&17,@CHA@ B 7 0728 C 018 33 192 1369 13 49 BE CHAINX B 5 0735 B H11 S 192 1370 13 50 C MAINXX&17,@ENT@ Q. ENTER CARD B 7 0740 C 018 36 192 1371 13 51 BE ENTST B 5 0747 B 879 S 192 &C018 30BO48SC018 33BH11SC018 36B879S L036751,723728,735740,747040104001923728L 1372 13 52 SWMA1 C MAINXX&17,@MA @ Q. MODIFY ADDRESS MACRO B 7 0752 C 018 39 193 1373 13 53 SWMA2 BE MASETX B 5 0759 B U33 S 193 1374 13 54 C MAINXX&17,@EX @ Q. EX CARD B 7 0764 C 018 42 193 1375 13 55 BE EXSET B 5 0771 B 474 S 193 1376 13 56 C MAINXX&17,@END@ Q. END CARD B 7 0776 C 018 26 193 1377 13 57 BE ENDSTX B 5 0783 B U78 S 193 &C018 39BU33SC018 42B474SC018 26BU78S L036787,759764,771776,783040104001933728L 1378 13 58 C MAINXX&18,WHOOPS Q. CALL STATEMENT B 7 0788 C 019 W05 194 1379 13 59 BE CALLNX B 5 0795 B J51 S 194 1380 13 60 C MAINXX&19,INCLDX B 7 0800 C 020 U59 194 1381 13 61 BE CALLNX B 5 0807 B J51 S 194 1382 13 62 C MAINXX&19,LITORG-1 B 7 0812 C 020 T57 194 1383 13 63 BE LORGS B 5 0819 B 494 S 194 &C019W05BJ51SC020U59BJ51SC020T57B494S L036823,795800,807812,819040104001943728L 1384 13 64 SBR INDEX3,TABLEI Q. GET, PUT, OPEN OR CLOSE B 7 0824 H 099 T74 195 1385 13 65 COMIOC C MAINXX&17,0&X3 B 7 0831 C 018 0?0 195 1386 13 66 SBR INDEX3 B 4 0838 H 099 195 1387 13 67 BE MSUBTX B 5 0842 B P00 S 195 1388 13 68 BCE OUTIOC,0&X3,# B 8 0847 B 859 0?0 # 195 1389 13 69 B COMIOC B 4 0855 B 831 195 &H099T74C0180?0H099BP00SB8590?0#B831 L035858,831838,842847,855040104001953728L 1390 13 70 OUTIOC BCE HOMEXX,MAINXX&19, B 8 0859 B O48 020 196 1391 13 71 BCE HOMEXX,MAINXX&15, B 8 0867 B O48 016 196 1392 13 72 B MSUBTX NO. MACRO B 4 0875 B P00 196 1393 13 73 * 1394 13 74 * PROCESS FIXED FORM RECORD 1395 13 75 * 1396 13 76 ENTST B SBROTX B 4 0879 B O33 196 1397 13 77 R B 1 0883 1 196 1398 13 78 BCE ENTST,MAINXX&7,* B 8 0884 B 879 008 * 196 &BO48020 BO48016 BP00BO331B879008* L033891,867875,879883,884040104001963728L 1399 13 79 C MAINXX&15,@END@ Q. END CARD B 7 0892 C 016 26 197 1400 13 80 BE ENDSTX B 5 0899 B U78 S 197 1401 13 81 C MAINXX&15,@ENT@ Q. NEW MODE B 7 0904 C 016 36 197 1402 13 82 BU ENTST B 5 0911 B 879 / 197 1403 13 83 B PREEM B 4 0916 B 506 197 1404 13 84 TDFRAL DCW 000 B 3 0922 197 1405 13 85 DCW @M%U4I12R@ B 8 0930 197 1406 13 86 * 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1407 13 87 * DELETE ENTIRE MACRO 1408 13 88 * &C016 26BU78SC016 36B879/B506000M%U4I12RL039930,899904,911916,920923104001973728L 1409 13 89 MACRO BCE OUTMC,OUTPTX&74,R B 8 0931 B 943 I86 R 198 1410 13 90 B SWITCH B 4 0939 B L01 198 1411 13 91 OUTMC B CTAPEX B 4 0943 B W50 198 1412 13 92 NOP TDFRAL B 4 0947 N 922 198 1413 13 93 C OUTPTX&19,BLANKS B 7 0951 C I31 W16 198 1414 13 94 MCOUT BE OUTMC B 5 0958 B 943 S 198 1415 13 95 MCW @N@,MCOUT B 7 0963 M 27 958 198 &B943I86RBL01BW50N922CI31W16B943SM 27958L039969,939943,947951,958963104001983728L 1416 13 96 BCE OUTMC,OUTPTX&74,S B 8 0970 B 943 I86 S 199 1417 13 97 BCE OUTMC,OUTPTX&74,C B 8 0978 B 943 I86 C 199 1418 13 98 BSP 4 B 5 0986 U %U4 B 199 1419 13 99 MCW OUTMC,MCOUT B 7 0991 M 943 958 199 1420 14 00 B CMALT B 4 0998 B 510 199 1421 14 01 * 1422 14 02 * PROCESS END CARD 1423 14 03 * 1424 14 04 ENDST MCW LOPUTX,LMAINX B 7 1002 M I97 086 199 &B943I86SB943I86CU%U4BM943958B510MI97086L039 08,978986,991998, 02040104001993728L 1425 14 05 B ENDSTX B 4 1009 B U78 200 1426 14 06 LTORG * B 1013 DCW @SCR@ B 3 1015 LIT 200 @ALT@ B 3 1018 LIT 200 1335 HLDA1 #04 B 4 1022 AREA 200 @R@ B 1 1023 LIT 200 @END@ B 3 1026 LIT 200 @N@ B 1 1027 LIT 200 &BU78SCRALT RENDN L019 27, 13 16, 19 23, 24 27104002003728L @MLC@ B 3 1030 LIT 201 @CHA@ B 3 1033 LIT 201 @ENT@ B 3 1036 LIT 201 @MA @ B 3 1039 LIT 201 @EX @ B 3 1042 LIT 201 1427 14 07 GM2XXX DCW @}@ B 1 1043 201 1428 14 08 NUORIG EQU *&1 B 1044 &MLCCHAENTMA EX } L016 43, 31 34, 37 40, 43040104002013728L & N000000,040040,040040,040040B00002023728L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02033727L &,068072)063067/061039 ,001001104002043727L 1429 14 09 EX B B 000 202 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 32 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1430 14 10 JOB 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 1431 14 11 * 1432 14 12 * AREA DEFINITION 1433 14 13 * 1434 14 14 SFX A 1435 14 15 ORG 1 A 0001 1436 14 16 MAINXX DA 1X86 A 0001 0086 205 ADDR 1437 14 17 ORG 87 A 0087 1438 14 18 DCW @000@ A 3 0089 205 1439 14 19 DC 00 A 2 0091 205 1440 14 20 DCW @000@ A 3 0094 205 1441 14 21 DC 00 A 2 0096 205 1442 14 22 DCW @000@ A 3 0099 205 1443 14 23 DC 00 A 2 0101 205 1444 14 24 ORG 101 A 0101 1445 14 25 DA 1X86 INPUTX A 0101 0186 205 1446 14 26 LIPUTX EQU * A 0186 &000000000000000 L015101,001092,097101,040040104002053727L 1447 14 27 DC @}@ A 1 0187 206 1448 14 28 ZEROXX DC 0 A 1 0188 206 1449 14 29 CARDSX DC 0 A 1 0189 206 1450 14 30 HLDSBX DCW @***@ A 3 0192 206 1451 14 31 * 1452 14 32 * INITIALIZATION 1453 14 33 * 1454 14 34 ORG 100 A 0100 &}00*** L006192)187187,190040,040040104002063727L 1455 14 35 DC @}@ A 1 0100 207 1456 14 36 START CS CALLTX A 4 0101 / !73 207 1457 14 37 CS A 1 0105 / 207 1458 14 371 BCE *&5,CARDSX,1 A 8 0106 B 118 189 1 207 1459 14 372 B RED A 4 0114 B 132 207 &}/!73/B1181891B132 L018117)100100,101105,106114104002073727L 1460 14 373 MCW @N@,RHO&1 A 7 0118 M 959 764 208 1461 14 374 MCW @N@,TSTEN&5 A 7 0125 M 959 780 208 1462 14 380 RED SW NTPER&4 A 4 0132 , 885 208 1463 14 39 SW TSTEN&4 A 4 0136 , 779 208 1464 14 40 SW OUTS2&4 A 4 0140 , 762 208 1465 14 41 BCE READT,IOCSAV-3,* A 8 0144 B 467 H07 * 208 &M959764M959780,885,779,762B467H07* L034151,125132,136140,144040104002083727L 1466 14 42 MCW @N@,SWMA1 A 7 0152 M 959 526 209 1467 14 43 MCW @N@,SWMA2 A 7 0159 M 959 533 209 1468 14 44 B READT A 4 0166 B 467 209 1469 14 45 ORG 201 A 0201 1470 14 46 DA 1X266 A 0201 0466 209 1471 14 47 PARTBX 261,266 A 0466 FIELD 209 1472 14 48 * 1473 14 49 * MAJOR PROCESSING 1474 14 50 * &M959526M959533B467 L018169,159166,201461,040040104002093727L 1475 14 51 READT B TWEDB GET NEXT RECORD A 4 0467 B 653 210 1476 14 52 TREAD SW 1 A 4 0471 , 001 210 1477 14 53 SBR BRNCHX&3,READT A 7 0475 H O99 467 210 1478 14 54 BCE OUTS2,MAINXX&5,* Q. COMMENTS CARD A 8 0482 B 758 006 * 210 1479 14 55 C MAINXX&19,@CHAIN@ A 7 0490 C 020 964 210 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 33 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1480 14 56 BE CHAINX A 5 0497 B H11 S 210 &B653,001HO99467B758006*C020964BH11S L035501,471475,482490,497040104002103727L 1481 14 57 C MAINXX&19,@MLCWA@ A 7 0502 C 020 969 211 1482 14 58 BE OUTS2 A 5 0509 B 758 S 211 1483 14 59 C MAINXX&17,@ENT@ Q. ENTER CARD A 7 0514 C 018 972 211 1484 14 60 BE ENTST A 5 0521 B 795 S 211 1485 14 61 SWMA1 C MAINXX&19,@MA @ Q. MODIFY ADDRESS MACRO A 7 0526 C 020 977 211 1486 14 62 SWMA2 BE MASETX A 5 0533 B U33 S 211 &C020969B758SC018972B795SC020977BU33S L036537,509514,521526,533040104002113727L 1487 14 63 C MAINXX&19,@EX @ Q. EX CARD A 7 0538 C 020 982 212 1488 14 64 BE EXSET A 5 0545 B 857 S 212 1489 14 65 C MAINXX&17,@END@ Q. END CARD A 7 0550 C 018 985 212 1490 14 66 BE ENDSTX A 5 0557 B U78 S 212 1491 14 67 C MAINXX&18,WHOOPS A 7 0562 C 019 W05 212 1492 14 68 BE CALLNX Q. CALL STATEMENT A 5 0569 B J51 S 212 &C020982B857SC018985BU78SC019W05BJ51S L036573,545550,557562,569040104002123727L 1493 14 69 C MAINXX&19,INCLDX A 7 0574 C 020 U59 213 1494 14 70 BE CALLNX A 5 0581 B J51 S 213 1495 14 71 C MAINXX&19,@LTORG@ A 7 0586 C 020 990 213 1496 14 72 BE LORGS Q. LTORG CARD A 5 0593 B 918 S 213 1497 14 73 SBR INDEX3,TABLEI A 7 0598 H 099 T74 213 1498 14 74 FEW C MAINXX&17,0&X3 A 7 0605 C 018 0?0 213 &C020U59BJ51SC020990B918SH099T74C0180?0 L038611,581586,593598,605040104002133727L 1499 14 75 SBR INDEX3 A 4 0612 H 099 214 1500 14 76 BE MSUBTX A 5 0616 B P00 S 214 1501 14 77 BCE MANY,0&X3,# A 8 0621 B 633 0?0 # 214 1502 14 78 B FEW A 4 0629 B 605 214 1503 14 79 MANY BCE OUTS2,MAINXX&19, A 8 0633 B 758 020 214 1504 14 80 BCE OUTS2,MAINXX&15, A 8 0641 B 758 016 214 &H099BP00SB6330?0#B605B758020 B758016 L037648,616621,629633,641040104002143727L 1505 14 81 B MSUBTX NO. MACRO A 4 0649 B P00 215 1506 14 82 * 1507 14 83 * INPUT ROUTINE 1508 14 84 * 1509 14 85 TWEDB SBR TWDB1&3 A 4 0653 H 696 215 1510 14 86 CS LMAINX A 4 0657 / 086 215 1511 14 87 B RTWED A 4 0661 B 677 215 1512 14 88 CHART C A 1 0665 C 215 1513 14 89 BSS EOF4,A Q. LAST CARD A 5 0666 B 934 A 215 1514 14 90 R A 1 0671 1 215 &BP00H696/086B677CB934A1 L023671,653657,661665,666671104002153727L 1515 14 91 SSB TWDB1,1 A 5 0672 K 693 1 216 1516 14 92 RTWED B CTAPEX A 4 0677 B W50 216 1517 14 93 NOP TDF4 A 4 0681 N 699 216 1518 14 94 BCE CHANGE,MAINXX&73,N A 8 0685 B 708 074 N 216 1519 14 95 TWDB1 B TREAD A 4 0693 B 471 216 1520 14 96 TDF4 DCW &EOF4 A 3 0699 934 216 1521 14 97 DCW @M%U5001R@ A 8 0707 216 &K6931BW50N699B708074NB471934M%U5001R L036707,677681,685693,697700104002163727L 1522 14 98 CHANGE CW CHART,TSTEN&4 A 7 0708 ) 665 779 217 1523 14 99 MN @4@,TDF4&4 A 7 0715 D 991 703 217 1524 15 00 CW OUTS2&4,NTPER&4 A 7 0722 ) 762 885 217 1525 15 01 C CALLTX,BLANK A 7 0729 C !73 999 217 1526 15 02 BE HOOHA A 5 0736 B 745 S 217 1527 15 03 B SUREXX A 4 0741 B T08 217 &)665779D991703)762885C!73999B745SBT08 L037744,715722,729736,741040104002173727L 1528 15 04 HOOHA MCW @SCR@,CHARCR A 7 0745 M 994 U62 218 1529 15 05 MCW A 1 0752 M 218 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 34 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1530 15 06 MCW A 1 0753 M 218 1531 15 07 B TWDB1 A 4 0754 B 693 218 1532 15 08 * 1533 15 09 * READ RELEASE 1534 15 10 * 1535 15 11 OUTS2 BSS OUTSBX,C Q. TAPE INPUT A 5 0758 B O41 C 218 1536 15 12 RHO NOP A 1 0763 N 218 1537 15 13 MCW @8@,RHO A 7 0764 M 995 763 218 &M994U62MMB693BO41CNM995763 L026770,752753,754758,763764104002183727L 1538 15 14 B OUTSBX A 4 0771 B O41 219 1539 15 15 * 1540 15 16 * FIXED FORM RECORDS 1541 15 17 * 1542 15 18 TSTEN BSS ENTST,C Q. TAPE INPUT A 5 0775 B 795 C 219 1543 15 19 SRF NO. START RAD FEED A 1 0780 8 219 1544 15 20 SBR NOSIR&3,ANTST A 7 0781 H 917 803 219 1545 15 21 MCW @N@,BUT1XX A 7 0788 M 959 O37 219 1546 15 22 ENTST B SBROTX A 4 0795 B O33 219 1547 15 23 B TWEDB A 4 0799 B 653 219 &BO41B795C8H917803M959O37BO33B653 L032802,775780,781788,795799104002193727L 1548 15 24 ANTST MCW @B@,BUT1XX A 7 0803 M 996 O37 220 1549 15 25 SBR NOSIR&3,TREAD A 7 0810 H 917 471 220 1550 15 26 BCE TSTEN,MAINXX&7,* A 8 0817 B 775 008 * 220 1551 15 27 C MAINXX&15,@END@ Q. END CARD A 7 0825 C 016 985 220 1552 15 28 BE ENDSTX A 5 0832 B U78 S 220 &M996O37H917471B775008*C016985BU78S L034836,810817,825832,040040104002203727L 1553 15 29 C MAINXX&15,@ENT@ Q. NEW MODE A 7 0837 C 016 972 221 1554 15 30 BU TSTEN A 5 0844 B 775 / 221 1555 15 31 B SBROTX A 4 0849 B O33 221 1556 15 32 B READT A 4 0853 B 467 221 1557 15 33 * 1558 15 34 * PROCESS EX 1559 15 35 * 1560 15 36 EXSET C CALLTX,BLANK#3 Q. ANY CALLS A 7 0857 C !73 999 221 1561 15 37 BE OUTS2 A 5 0864 B 758 S 221 1562 15 38 B SUREXX A 4 0869 B T08 221 &C016972B775/BO33B467C!73999B758SBT08 L036872,844849,853857,864869104002213727L 1563 15 39 B SBROTX A 4 0873 B O33 222 1564 15 40 B READT A 4 0877 B 467 222 1565 15 41 * 1566 15 42 * READ RELEASE REDUNDANCY ROUTINE 1567 15 43 * 1568 15 44 NTPER BSS YESIR,C Q. TAPE INPUT A 5 0881 B 896 C 222 1569 15 45 R A 1 0886 1 222 1570 15 46 SS 1 A 2 0887 K 1 222 1571 15 47 MCW @N@,RHO A 7 0889 M 959 763 222 1572 15 48 YESIR SBR COMETS&3,CRWRED A 7 0896 H X65 X71 222 &BO33B467B896C1K1M959763HX65X71 L030902,877881,886887,889896104002223727L 1573 15 49 SBR CCONPR&3,NOSIR A 7 0903 H X70 914 223 1574 15 50 B CRWRED A 4 0910 B X71 223 1575 15 51 NOSIR B TREAD A 4 0914 B 471 223 1576 15 52 * 1577 15 53 * PROCESS LTORG 1578 15 54 * 1579 15 55 LORGS C CALLTX,BLANK Q. ANY CALLS A 7 0918 C !73 999 223 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 35 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1580 15 56 BU HAULIT A 5 0925 B S64 / 223 1581 15 57 B OUTS2 A 4 0930 B 758 223 1582 15 58 EOF4 CS LMAINX A 4 0934 / 086 223 &HX70914BX71B471C!73999BS64/B758/086 L035937,910914,918925,930934104002233727L 1583 15 59 SW 1 A 4 0938 , 001 224 1584 15 60 MCW @END$$$@,MAINXX&18 A 7 0942 M 05 019 224 1585 15 61 B ENDSTX A 4 0949 B U78 224 1586 15 62 ANTPER DCW &NTPERA A 3 0955 881 224 1587 15 63 ACRWED DCW &CRWRED A 3 0958 X71 224 1588 15 64 LTORG * A 0959 DCW @N@ A 1 0959 LIT 224 1479 @CHAIN@ A 5 0964 LIT 224 &,001M 05019BU78881X71NCHAIN L027964,942949,953956,959960104002243727L 1481 @MLCWA@ A 5 0969 LIT 225 @ENT@ A 3 0972 LIT 225 1485 @MA @ A 5 0977 LIT 225 1487 @EX @ A 5 0982 LIT 225 @END@ A 3 0985 LIT 225 1495 @LTORG@ A 5 0990 LIT 225 @4@ A 1 0991 LIT 225 &MLCWAENTMA EX ENDLTORG4 L027991,970973,978983,986991104002253727L @SCR@ A 3 0994 LIT 226 @8@ A 1 0995 LIT 226 @B@ A 1 0996 LIT 226 1560 BLANK #03 A 3 0999 AREA 226 1584 @END$$$@ A 6 1005 LIT 226 1589 15 65 * 1590 15 66 * MAIN LINE PROCESSING ANNEX 1591 15 67 * 1592 15 68 SFX X 1593 15 69 ORG NUORIG X 1044 &SCR8B END$$$ L014 05,995996,997 00,040040104002263727L 1594 15 70 EOF1B RWD 1 X 5 1044 U %U1 R 227 1595 15 71 S PREVS X 4 1049 S H72 227 1596 15 72 B SWITCH X 4 1053 B L01 227 1597 15 73 * 1598 15 74 * PROCESS LOZENGED FIELD 6 - 20 1599 15 75 * 1600 15 76 LOZENG BM MLBLZ,MAINX&2&X1 Q. INTERNAL LABEL X 8 1057 V D68 0 3 K 227 1601 15 77 B LABEL X 4 1065 B /19 227 1602 15 78 MCW BLANKS,MAINX&4&X1 X 7 1069 M W16 0 5 227 1603 15 79 MCW INDEX1,SAVX1#3 X 7 1076 M 089 W11 227 &U%U1RSH72BL01VD680 3KB/19MW160 5M089W11L039 82, 49 53, 57 65, 69 76104002273727L 1604 15 80 MCW INDEX3,INDEX2 X 7 1083 M 099 094 228 1605 15 81 B SBGRD X 4 1090 B G46 228 1606 15 82 A SAVX1,INDEX1 X 7 1094 A W11 089 228 1607 15 83 MCW 0&X3,MAINX&X1 X 7 1101 M 0?0 0 1 228 1608 15 84 MCW SAVX1,INDEX1 X 7 1108 M W11 089 228 1609 15 85 B UPENGL X 4 1115 B A48 228 1610 15 86 * 1611 15 87 * LOCATE PARAMETERS 1612 15 88 * &M099094BG46AW11089M0?00 1MW11089BA48 L036/18, 90 94,/01/08,/15040104002283727L 1613 15 89 LABEL SBR LEXIT&3 X 4 1119 H S63 229 1614 15 90 MCW BLANKS#5,INDEX3 X 7 1123 M W16 099 229 1615 15 91 MCW BLANKS,CNTP X 7 1130 M W16 W19 229 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 36 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1616 15 92 MN MAINX&1&X1,CNTP X 7 1137 D 0 2 W19 229 1617 15 93 CIRCL S &1,CNTP X 7 1144 S W17 W19 229 &HS63MW16099MW16W19D0 2W19SW17W19 L032/50,/23/30,/37/44,040040104002293727L 1618 15 94 BM TENSR,CNTP X 8 1151 V /70 W19 K 230 1619 15 95 A @3@,INDEX3 X 7 1159 A W18 099 230 1620 15 96 B CIRCL X 4 1166 B /44 230 1621 15 97 TENSR BCE CHZON,DECTB-2&X3,0 X 8 1170 B !74 UI0 0 230 1622 15 98 MCW BLANKS,CNTP#1 X 7 1178 M W16 W19 230 &V/70W19KAW18099B/44B!74UI00MW16W19 L034/84,/59/66,/70/78,040040104002303727L 1623 15 99 MCW DECTB&X3,INDEX3 X 7 1185 M UI2 099 231 1624 16 00 MN MAINX&2&X1,CNTP X 7 1192 D 0 3 W19 231 1625 16 01 MOVINP S &1,CNTP X 7 1199 S W17 W19 231 1626 16 02 MCW 0&X3,0&X3 X 7 1206 M 0?0 0?0 231 1627 16 03 SAR WAREA#3 X 4 1213 Q W22 231 &MUI2099D0 3W19SW17W19M0?00?0QW22 L032S16,/92/99,S06S13,040040104002313727L 1628 16 04 BCE CHZON,0&X3,, Q. MISSING PARAMETER X 8 1217 B !74 0?0 , 232 1629 16 05 BM PUTIN,CNTP Q. PARAMETER LOCATED X 8 1225 V S44 W19 K 232 1630 16 06 MCW WAREA,INDEX3 X 7 1233 M W22 099 232 1631 16 07 B MOVINP X 4 1240 B /99 232 1632 16 08 PUTIN BCE CHZON,0&X3,; X 8 1244 B !74 0?0 ; 232 &B!740?0,VS44W19KMW22099B/99B!740?0; L035S51,S25S33,S40S44,040040104002323727L 1633 16 09 BWZ DELET,MAINX&2&X1,S X 8 1252 V D41 0 3 S 233 1634 16 10 LEXIT B 0 X 4 1260 B 000 233 1635 16 11 * 1636 16 12 * PROCESS LTORG 1637 16 13 * 1638 16 14 HAULIT MCW @ORG @,MAINX&19 REPLACE LTORG WITH ORG X 7 1264 M W27 020 233 1639 16 15 MCW @L@,MAINX&74 X 7 1271 M W28 075 233 1640 16 16 B SBROT X 4 1278 B O33 233 1641 16 17 B EXITC X 4 1282 B D79 233 1642 16 18 CS LMAIN X 4 1286 / 086 233 &VD410 3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S86104002333727L 1643 16 19 MCW LITORG,MAINX&20 GENERATE LTORG* X 7 1290 M T58 021 234 1644 16 20 MCW CHARCC,MAINX&74 X 7 1297 M U61 075 234 1645 16 21 B WHYYY X 4 1304 B K97 234 1646 16 22 * 1647 16 23 * PREPARATION FOR LTORG,EX,EX OR IOCS 1648 16 24 * 1649 16 25 SUREX SBR SIMPLE&3 X 4 1308 H T41 234 1650 16 26 SW 1 X 4 1312 , 001 234 1651 16 27 CS LIPUTX X 4 1316 / 186 234 1652 16 28 LCA LMAINX,LIPUTX X 7 1320 L 086 186 234 &MT58021MU61075BK97HT41,001/186L086186 L037T26,S97T04,T08T12,T16T20104002343727L 1653 16 29 B EXITCX X 4 1327 B D79 235 1654 16 30 LCA LIPUTX,LMAINX X 7 1331 L 186 086 235 1655 16 31 SIMPLE B 0 X 4 1338 B 000 235 1656 16 32 TDFEXT DCW &RWDEXT X 3 1344 D83 235 1657 16 33 DCW @M%U1001R@ X 8 1352 235 1658 16 34 LITORG DCW @LTORG*@ X 6 1358 235 1659 16 35 * 1660 16 36 * IOCS TABLE 1661 16 37 * 1662 16 38 DCW @#@ X 1 1359 235 &BD79L186086B000D83M%U1001RLTORG*# L033T59,T31T38,T42T45,T53T59104002353727L 1663 16 39 DCW @RLS@ X 3 1362 236 1664 16 40 DCW @GET@ X 3 1365 236 1665 16 41 DCW @PUT@ X 3 1368 236 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 37 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1666 16 42 DCW @DTF@ X 3 1371 236 1667 16 43 TABLEI DCW @OPE@ X 3 1374 236 1668 16 44 * 1669 16 45 * GENERATE UNKNOWN MACRO CARD 1670 16 46 * 1671 16 47 NOROT SBR NROTC&3 X 4 1375 H U14 236 1672 16 48 CS LMAINX X 4 1379 / 086 236 &RLSGETPUTDTFOPEHU14/086 L023T82,T63T66,T69T72,T75T79104002363727L 1673 16 49 MCW @B@,MAINX&85 X 7 1383 M W29 086 237 1674 16 50 MCW @UNKNOWN@,MAINX&19 X 7 1390 M W36 020 237 1675 16 51 MCW CHARCC,MAINX&74 X 7 1397 M U61 075 237 1676 16 52 MCW @*@,MAINX&5 X 7 1404 M W37 006 237 1677 16 53 NROTC B 0 X 4 1411 B 000 237 1678 16 54 POTS MCW @B@,SWITCH X 7 1415 M W29 L01 237 &MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U15040104002373727L 1679 16 55 MCW @N@,NEXTCD X 7 1422 M W38 N66 238 1680 16 56 B COOKER X 4 1429 B E90 238 1681 16 57 * 1682 16 58 * MODIFY ADDRESS MACRO 1683 16 59 * 1684 16 60 MASET MCW CHARCR,MAINX&74 X 7 1433 M U62 075 238 1685 16 61 B SBROTX X 4 1440 B O33 238 1686 16 62 MCW @D@,MAINX&17 X 7 1444 M W39 018 238 1687 16 63 B SGC X 4 1451 B P18 238 1688 16 64 INCLDX DCW @INCLD@ X 5 1459 238 &MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U55104002383727L 1689 16 65 CHARCS DCW @Z@ X 1 1460 239 1690 16 66 CHARCC DCW @Y@ X 1 1461 239 1691 16 67 CHARCR DCW @W@ X 1 1462 239 1692 16 68 KINGS B NOROT X 4 1463 B T75 239 1693 16 69 MCW HLDSB,MAINX&10 X 7 1467 M 192 011 239 1694 16 70 B WHYYY X 4 1474 B K97 239 1695 16 71 ENDSTX B CTAPE X 4 1478 B W50 239 &ZYWBT75M192011BK97BW50 L022U81,U61U62,U63U67,U74U78104002393727L 1696 16 72 NOP TDF5 X 4 1482 N V89 240 1697 16 73 B OVLY4I X 4 1486 B 434 240 1698 16 74 DECTB DCW &PARTB X 3 1492 466 240 &NV89B434466 L011U92,U86U90,U93U96,U99V02104002403727L 1699 16 75 DA 9X3 X 1493 1519 241 1700 16 76 ENDDC EQU * X 1519 1701 16 77 MOVEC LCA @;@,0&X3 X 7 1520 L W40 0?0 241 1702 16 78 SBR INDEX3 X 4 1527 H 099 241 &LW400?0H099 L011V30,V05V08,V11V14,V17V27104002413727L 1703 16 79 A @3@,INDEX2&1 X 7 1531 A W18 095 242 1704 16 80 BCE MIDLE,INDEX2&1,3 X 8 1538 B H22 095 3 242 1705 16 81 LOWER A @1@,INDEX1 X 7 1546 A W41 089 242 1706 16 82 SW MAINX&20&X1 X 4 1553 , 0S1 242 1707 16 83 BCE MOVEC,MAINX&20&X1,, X 8 1557 B V20 0S1 , 242 &AW18095BH220953AW41089,0S1BV200S1, L034V64,V38V46,V53V57,040040104002423727L 1708 16 84 WEEDD MCW INDEX2&1,IOCSAV X 7 1565 M 095 H10 243 1709 16 85 B WEEDBX X 4 1572 B N39 243 1710 16 86 MCW IOCSAV,INDEX2&1 X 7 1576 M H10 095 243 1711 16 87 B COMSN X 4 1583 B P79 243 1712 16 88 TDF5 DCW #3 X 3 1589 243 1713 16 89 RTW 5,OVLY4I X 8 1590 L %U5 434 R 243 1714 16 90 NEWEST DC 0 X 1 1598 243 1715 16 91 SYMNM DCW @000@ X 3 1601 243 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 38 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &M095H10BN39MH10095BP79 L%U5434R0000 L037W01,V72V76,V83V87,V90V99104002433727L 1716 16 92 WHOOPS DCW @CALL@ X 4 1605 244 1717 16 93 ADDCAL DCW &CALLTX X 3 1608 !73 244 1718 16 94 LTORG * X 1609 1603 SAVX1 DCW #03 X 3 1611 AREA 244 1614 BLANKS #05 X 5 1616 AREA 244 &1 X 1 1617 LIT 244 @3@ X 1 1618 LIT 244 1622 CNTP #01 X 1 1619 AREA 244 &CALL!73 A3 L018W19,W06W09,W12W17,W18W19104002443727L 1627 WAREA #03 X 3 1622 AREA 245 1638 @ORG @ X 5 1627 LIT 245 @L@ X 1 1628 LIT 245 @B@ X 1 1629 LIT 245 1674 @UNKNOWN@ X 7 1636 LIT 245 @*@ X 1 1637 LIT 245 @N@ X 1 1638 LIT 245 & ORG LBUNKNOWN*N L019W38,W23W28,W29W30,W37W38104002453727L @D@ X 1 1639 LIT 246 @;@ X 1 1640 LIT 246 @1@ X 1 1641 LIT 246 1719 16 95 ORG 1649 X 1649 &D;1 L003W41,W40W41,040040,040040104002463727L 1720 16 96 GM1 DCW @}@ X 1 1649 247 &} L001W49,040040,040040,040040104002473727L & N000000,040040,040040,040040B00002483727L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02493726L &,068072)063067/061039 ,001001104002503726L 1721 16 97 EX X B 000 248 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 39 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1722 16 98 JOB 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 1723 16 99 SFX X 1724 17 00 * 1725 17 01 * GENERALIZED TAPE INPUT/OUTPUT ROUTINE 1726 17 02 * 1727 17 03 ORG 1650 X 1650 1728 17 04 CTAPEX SBR INDEX2 X 4 1650 H 094 251 1729 17 05 SBR CCONPR&3 X 4 1654 H X70 251 1730 17 06 MCW 3&X2,INDEX2 X 7 1658 M 0!3 094 251 1731 17 07 MCW 8&X2,CTAPEC&7 X 7 1665 M 0!8 X29 251 1732 17 08 MCW 0&X2,CEORC&3 X 7 1672 M 0!0 X41 251 1733 17 09 SW CCOMPR&4 X 4 1679 , X47 251 &H094HX70M0!3094M0!8X29M0!0X41,X47 L033W82,W54W58,W65W72,W79040104002513726L 1734 17 10 MCW 7&X2,CCOMPR&6 X 7 1683 M 0!7 X49 252 1735 17 11 A @12@,CCOMPR&6 X 7 1690 A Y93 X49 252 1736 17 12 CW CCOMPR&4 X 4 1697 ) X47 252 1737 17 13 MN CTAPEC&3,CHALT&6 X 7 1701 D X25 Y55 252 1738 17 14 MN CTAPEC&7,CHALT&6 X 7 1708 D X29 Y55 252 1739 17 15 MCW @9@,CERRCT#1 X 7 1715 M Y94 Y95 252 &M0!7X49AY93X49)X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X15040104002523726L 1740 17 16 CTAPEC RT 0,0 X 8 1722 M %U0 000 R 253 1741 17 17 BCE COMETS,CTAPEC&7,W X 8 1730 B X62 X29 W 253 1742 17 18 CEORC BEF 0 X 5 1738 B 000 K 253 1743 17 19 CCOMPR BCE CTAPEC,0,} X 8 1743 B X22 000 } 253 1744 17 20 B X 1 1751 B 253 1745 17 21 B X 1 1752 B 253 1746 17 22 B X 1 1753 B 253 &M%U0000RBX62X29WB000KBX22000}BBB L032X53,X30X38,X43X51,X52X53104002533726L 1747 17 23 B X 1 1754 B 254 1748 17 24 B X 1 1755 B 254 1749 17 25 B X 1 1756 B 254 1750 17 26 B X 1 1757 B 254 1751 17 27 B X 1 1758 B 254 1752 17 28 B X 1 1759 B 254 1753 17 29 B X 1 1760 B 254 &BBBBBBB L007X60,X55X56,X57X58,X59X60104002543726L 1754 17 30 B X 1 1761 B 255 1755 17 31 COMETS BER CRWRED X 5 1762 B X71 L 255 1756 17 32 CCONPR B 0 X 4 1767 B 000 255 1757 17 33 CRWRED S @1@,CERRCT X 7 1771 S Y96 Y95 255 1758 17 34 MN CTAPEC&3,*&4 X 7 1778 D X25 X88 255 1759 17 35 BSP 0 X 5 1785 U %U0 B 255 1760 17 36 BCE CTROW,CTAPEC&7,W X 8 1790 B Y10 X29 W 255 &BBX71LB000SY96Y95DX25X88U%U0BBY10X29W L037X97,X62X67,X71X78,X85X90104002553726L 1761 17 37 BM CHALT,CERRCT X 8 1798 V Y49 Y95 K 256 1762 17 38 B CTAPEC X 4 1806 B X22 256 1763 17 39 CTROW A @1@,CERASC#2 X 7 1810 A Y96 Y98 256 1764 17 40 SKP 6 X 5 1817 U %U6 E 256 1765 17 41 BCE CCHALT,CERASC-1,5 X 8 1822 B Y34 Y97 5 256 1766 17 42 B CTAPEC-7 X 4 1830 B X15 256 &VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15 L036Y33,Y06Y10,Y17Y22,Y30040104002563726L 1767 17 43 CCHALT S CERASC X 4 1834 S Y98 257 1768 17 44 H 0,202 X 7 1838 . 000 202 257 1769 17 45 B CTAPEC-7 X 4 1845 B X15 257 1770 17 46 CHALT H 0,200 X 7 1849 . 000 200 257 1771 17 47 BSS CTAPEC-7,E X 5 1856 B X15 E 257 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 40 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1772 17 48 MCW CTAPEC&7,*&8 X 7 1861 M X29 Y75 257 &SY98.000202BX15.000200BX15EMX29Y75 L034Y67,Y38Y45,Y49Y56,Y61040104002573726L 1773 17 49 RT 0,0 X 8 1868 M %U0 000 R 258 1774 17 50 H 0,201 X 7 1876 . 000 201 258 1775 17 51 B CCONPR X 4 1883 B X67 258 1776 17 52 HEADR DCW @HEADR@ X 5 1891 258 1777 17 53 LTORG * X 1892 DCW @12@ X 2 1893 LIT 258 @9@ X 1 1894 LIT 258 1739 CERRCT #01 X 1 1895 AREA 258 &M%U0000R.000201BX67HEADR129 L028Y95,Y76Y83,Y87Y92,Y94Y95104002583726L @1@ X 1 1896 LIT 259 1763 CERASC #02 X 2 1898 AREA 259 1778 17 54 * 1779 17 55 * INITIALIZATION 1780 17 56 * 1781 17 57 ORG 1900 X 1900 &1 L003Y98,Y97040,040040,040040104002593726L 1782 17 58 STARTX MCW 340,IOCSAV X 7 1900 M 340 H10 260 1783 17 59 MCW X 1 1907 M 260 1784 17 595 MCW NORDRL,HOLE#1 X 7 1908 M W12 !55 260 1785 17 60 B CTAPE X 4 1915 B W50 260 1786 17 61 NOP TDFSS X 4 1919 N Z68 260 1787 17 62 CW GM1 X 4 1923 ) W49 260 1788 17 63 SW 3998 X 4 1927 , I98 260 &M340H10MMW12!55BW50NZ68)W49,I98 L031Z30,Z07Z08,Z15Z19,Z23Z27104002603726L 1789 17 64 MCW LIPUT&1,3998 X 7 1931 M 187 I98 261 1790 17 65 CW 3995,3997 X 7 1938 ) I95 I97 261 1791 17 66 BSS ALTERX,B X 5 1945 B Z77 B 261 1792 17 67 RWD 1 X 5 1950 U %U1 R 261 1793 17 675 MCW HOLE,CARDSX X 7 1955 M !55 189 261 1794 17 68 B STARTA X 4 1962 B 101 261 1795 17 69 TDFSS DCW &CCHALT X 3 1968 Y34 261 &M187I98)I95I97BZ77BU%U1RM!55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z66104002613726L 1796 17 70 DCW @L%U1001R@ X 8 1976 262 1797 17 71 ALTERX B CTAPEX X 4 1977 B W50 262 1798 17 72 NOP TDFSS X 4 1981 N Z68 262 1799 17 73 CW GM2XXX X 4 1985 ) 43 262 1800 17 74 RWD 1 X 5 1989 U %U1 R 262 1801 17 75 MCW IOCSAV,SYMNM X 7 1994 M H10 W01 262 1802 17 76 MCW &IOCALT,SWITCH&3 X 7 2001 M !58 L04 262 &L%U1001RBW50NZ68) 43U%U1RMH10W01M!58L04L039!07,Z77Z81,Z85Z89,Z94!01104002623726L 1803 17 77 SBR HAPPY&3,STRING X 7 2008 H N73 156 263 1804 17 78 MCW @N@,OUTSB X 7 2015 M !59 O41 263 1805 17 79 MCW @N@,BUT1X X 7 2022 M !59 O37 263 1806 17 80 MCW @N@,BUT2X X 7 2029 M !59 O89 263 1807 17 81 BCE VOICEB,IOCSAV-3,* X 8 2036 B 101 H07 * 263 &HN73156M!59O41M!59O37M!59O89B101H07* L036!43,!15!22,!29!36,040040104002633726L 1808 17 82 MCW @N@,SWMA2B X 7 2044 M !59 759 264 1809 17 83 B VOICEB X 4 2051 B 101 264 1810 17 84 LTORG * X 2055 1784 HOLE DCW #01 X 1 2055 AREA 264 1802 &IOCALT X 3 2058 106 ADCON 264 @N@ X 1 2059 LIT 264 1811 17 85 ORG 1900 X 1900 1812 17 86 DA 1X174 X 1900 2073 264 1813 17 87 CALLT EQU * X 2073 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 41 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1814 17 88 * 1815 17 89 * PROCESS MISSING PARAMETERS WITH REGARD TO ZONE 1816 17 90 * &M!59759B101 106N L016!59,!51!55,!56!59,Z00040104002643726L 1817 17 91 CHZON BWZ SLASH,MAINX&2&X1,S X 8 2074 V J08 0 3 S 265 1818 17 92 BWZ DELET,MAINX&2&X1,B X 8 2082 V D41 0 3 B 265 1819 17 93 MCW @B@,MAINX&85 X 7 2090 M H44 086 265 1820 17 94 ZONBR CW MAINX&X1,MAINX&3&X1 X 7 2097 ) 0 1 0 4 265 1821 17 95 ZONCH B DEFND X 4 2104 B ?41 265 &VJ080 3SVD410 3BMH44086)0 10 4B?41 L034J07,!82!90,!97J04,040040104002653726L 1822 17 96 SLASH MCW BLANKS-2,MAINX&2&X1 X 7 2108 M W14 0 3 266 1823 17 97 B ZONBR X 4 2115 B !97 266 1824 17 98 SUBSET MCW @N@,SWITCH X 7 2119 M H45 L01 266 1825 17 99 MCW @B@,NEXTCD X 7 2126 M H44 N66 266 1826 18 00 MCW CHARCS,MAINX&74 X 7 2133 M U60 075 266 1827 18 01 B CALIT X 4 2140 B J58 266 &MW140 3B!97MH45L01MH44N66MU60075BJ58 L036J43,J15J19,J26J33,J40040104002663726L 1828 18 02 MASKS MCW @B@,NOCAL X 7 2144 M H44 K20 267 1829 18 03 * 1830 18 04 * PROCESSING CALL STATEMENT 1831 18 05 * 1832 18 06 CALLN MCW CHARCR,MAINX&74 X 7 2151 M U62 075 267 1833 18 07 CALIT MCW ADDCAL,INDEX2 BEGIN SCAN OF CALL TABLE X 7 2158 M W08 094 267 1834 18 08 SW MAINXX&20 X 4 2165 , 021 267 1835 18 09 YSCALX BCE XXXX,INDEX2-2,Y Q. CALL TABLE EXCEEDED X 8 2169 B K90 092 Y 267 &MH44K20MU62075MW08094,021BK90092Y L033J76,J51J58,J65J69,040040104002673726L 1836 18 10 C 0&X2,@ @ X 7 2177 C 0!0 H48 268 1837 18 11 BE SPADEX X 5 2184 B K09 S 268 1838 18 12 C 0&X2,MAINX&22 X 7 2189 C 0!0 023 268 1839 18 13 SAR INDEX2 X 4 2196 Q 094 268 1840 18 14 BE QUEEN X 5 2200 B K16 S 268 1841 18 15 B YSCALX X 4 2205 B J69 268 1842 18 16 SPADEX MCW MAINX&22,0&X2 X 7 2209 M 023 0!0 268 &C0!0H48BK09SC0!0023Q094BK16SBJ69M0230!0L039K15,J84J89,J96K00,K05K09104002683726L 1843 18 17 QUEEN CW MAINXX&20 X 4 2216 ) 021 269 1844 18 18 NOCALX NOP SKELCX X 4 2220 N R17 269 1845 18 19 B SBROT X 4 2224 B O33 269 1846 18 20 BCE SWITCH,MAINX&19,D Q. INCLD STATEMENT X 8 2228 B L01 020 D 269 1847 18 21 * 1848 18 22 * LOAD PARAMETERS INTO TABLE 1849 18 23 * 1850 18 24 MCW MAINX&10,PARTB X 7 2236 M 011 466 269 1851 18 25 SBR INDEX3 X 4 2243 H 099 269 1852 18 26 S INDEX1&1 X 4 2247 S 090 269 &)021NR17BO33BL01020DM011466H099S090 L035K50,K20K24,K28K36,K43K47104002693726L 1853 18 27 DIMNDX B SCANXX X 4 2251 B M19 270 1854 18 28 SW 1 X 4 2255 , 001 270 1855 18 29 LCA MAINX&18&X1,0&X3 X 7 2259 L 0/9 0?0 270 1856 18 30 SBR INDEX3 X 4 2266 H 099 270 1857 18 31 BCE HEARTX,MAINX&19&X1, X 8 2270 B L09 0S0 270 1858 18 32 BCE WEEDBX,MAINX&19&X1,, X 8 2278 B N39 0S0 , 270 1859 18 33 B DIMNDX X 4 2286 B K51 270 &BM19,001L0/90?0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K86104002703726L 1860 18 34 XXXX MCW @7@,MAINX&85 X 7 2290 M H49 086 271 1861 18 35 WHYYY B SBROT X 4 2297 B O33 271 1862 18 36 SWITCH B READTA X 4 2301 B 467 271 1863 18 37 B POTS X 4 2305 B U15 271 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 42 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1864 18 38 * 1865 18 39 * GENERATE BRANCH AND DCW,S 1866 18 40 * 1867 18 41 HEARTX LCA @ @,0&X3 X 7 2309 L H50 0?0 271 1868 18 42 CS LMAINX X 4 2316 / 086 271 1869 18 43 MCW PARTB,MAINX&10 X 7 2320 M 466 011 271 &MH49086BO33B467BU15LH500?0/086M466011 L037L26,K97L01,L05L09,L16L20104002713726L 1870 18 44 MCW PARTB-6,MAINX&24 X 7 2327 M 460 025 272 1871 18 45 SAR INDEX3 X 4 2334 Q 099 272 1872 18 46 MCW @B@,MAINX&15 X 7 2338 M H44 016 272 1873 18 47 SLAM MCW CHARCC,MAINX&74 X 7 2345 M U61 075 272 1874 18 48 MCW INDEX3,SAVXL2#3 X 7 2352 M 099 H53 272 1875 18 49 MCW SAVXL2,INDEX3 X 7 2359 M H53 099 272 &M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L59040104002723726L 1876 18 50 CW MAINX&23 X 4 2366 ) 024 273 1877 18 51 B SBROT X 4 2370 B O33 273 1878 18 52 CS LMAINX X 4 2374 / 086 273 1879 18 53 BCE SWITCH,0&X3, X 8 2378 B L01 0?0 273 1880 18 54 MCW @DCW@,MAINX&17 X 7 2386 M H56 018 273 1881 18 55 MCW INDEX3,INDEX2 X 7 2393 M 099 094 273 1882 18 56 B SBGRDX X 4 2400 B G46 273 &)024BO33/086BL010?0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M00104002733726L 1883 18 57 MCW 0&X3,MAINX&20&X1 X 7 2404 M 0?0 0S1 274 1884 18 58 SAR INDEX3 X 4 2411 Q 099 274 1885 18 59 B SLAM X 4 2415 B L45 274 1886 18 60 * 1887 18 61 * SCAN FOR COMMA, TWO BLANKS, OR AN @ 1888 18 62 * 1889 18 63 SCANXX SBR CLUBS&3 X 4 2419 H N12 274 1890 18 64 SCANL SW MAINX&20 X 4 2423 , 021 274 1891 18 65 BCE SCNAT,MAINX&20&X1,@ X 8 2427 B N13 0S1 @ 274 1892 18 66 BCE CETWMS,MAINX&20&X1,, X 8 2435 B M98 0S1 , 274 &M0?00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M35104002743726L 1893 18 67 C MAINX&20&X1,@ @ X 7 2443 C 0S1 H58 275 1894 18 68 BE CLUBS X 5 2450 B N09 S 275 1895 18 69 CXIT1 A @1@,INDEX1 X 7 2455 A H59 089 275 1896 18 70 C INDEX1,@52@ X 7 2462 C 089 H61 275 1897 18 71 BU SCANL X 5 2469 B M23 / 275 1898 18 72 C MAINX&71,@ @ X 7 2474 C 072 H58 275 &C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M74040104002753726L 1899 18 73 BE CLUBS X 5 2481 B N09 S 276 1900 18 74 BCE CLUBS,MAINX&71, X 8 2486 B N09 072 276 1901 18 75 B CXIT X 4 2494 B N02 276 1902 18 76 CETWMS SW MAINX&21&X1 X 4 2498 , 0S2 276 1903 18 77 CXIT A @1@,INDEX1 X 7 2502 A H59 089 276 1904 18 78 CLUBS B 0 X 4 2509 B 000 276 1905 18 79 SCNAT ZA @510@,INDEX1&1 X 7 2513 ? H64 090 276 &BN09SBN09072 BN02,0S2AH59089B000?H64090L039N19,M86M94,M98N02,N09N13104002763726L 1906 18 80 ATLOK BCE CXIT1,MAINX&20&X1,@ X 8 2520 B M55 0S1 @ 277 1907 18 81 S &10,INDEX1&1 X 7 2528 S H66 090 277 1908 18 82 B ATLOK X 4 2535 B N20 277 1909 18 83 * 1910 18 84 * OBTAIN MORE PARAMETERS FROM ADDITIONAL RECORDS 1911 18 85 * 1912 18 86 WEEDBX SBR WEDXT&3 X 4 2539 H O21 277 1913 18 87 B NEWEED X 4 2543 B N54 277 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 43 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1914 18 88 WEDDBX A @1@,INDEX1 X 7 2547 A H59 089 277 &BM550S1@SH66090BN20HO21BN54AH59089 L034N53,N28N35,N39N43,N47040104002773726L 1915 18 89 NEWEED C INDEX1,@52@ X 7 2554 C 089 H61 278 1916 18 90 BU LOOPW X 5 2561 B O06 / 278 1917 18 91 NEXTCD NOP CALLCD X 4 2566 N G80 278 1918 18 92 HAPPY B TWEDBA READ NEXT RECORD X 4 2570 B 653 278 1919 18 93 NOP X 1 2574 N 278 1920 18 94 MCW CHARCR,MAINX&74 X 7 2575 M U62 075 278 1921 18 95 THRU B SBROTX X 4 2582 B O33 278 &C089H61BO06/NG80B653NMU62075BO33 L032N85,N61N66,N70N74,N75N82104002783726L 1922 18 96 BCE HAPPY,MAINX&5,* X 8 2586 B N70 006 * 279 1923 18 97 S INDEX1&1 X 4 2594 S 090 279 1924 18 98 BCE MOVEC,MAINX&20,, Q. FIRST PARAMETER MISSSING X 8 2598 B V20 021 , 279 1925 18 99 LOOPW BCE WEDDBX,MAINX&20&X1, X 8 2606 B N47 0S1 279 1926 19 00 SW MAINX&20&X1 X 4 2614 , 0S1 279 1927 19 01 WEDXT B 0 X 4 2618 B 000 279 1928 19 02 TDF6 DCW &CCHALT X 3 2624 Y34 279 &BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O22104002793726L 1929 19 03 DCW @M%U6I12W@ X 8 2632 280 1930 19 04 * 1931 19 05 * OUTPUT ROUTINE 1932 19 06 * 1933 19 07 SBROTX SBR BRNCH&3 X 4 2633 H O99 280 1934 19 08 BUT1X B HOMEX X 4 2637 B O48 280 1935 19 09 OUTSB MCW ANTPER,COMETS&3 X 7 2641 M 955 X65 280 1936 19 10 HOMEX MCW LMAIN,LOPUT X 7 2648 M 086 I97 280 1937 19 11 BCE BUT2X,OUTPT&73,* X 8 2655 B O89 I85 * 280 &M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O55040104002803726L 1938 19 12 MCW BLANKS-3,OUTPT&73 X 7 2663 M W13 I85 281 1939 19 13 SW LOPUT&1 X 4 2670 , I98 281 1940 19 14 MCW LIPUT&1,LOPUT&1 X 7 2674 M 187 I98 281 1941 19 15 B CTAPEX X 4 2681 B W50 281 1942 19 16 NOP TDF6 X 4 2685 N O24 281 1943 19 17 BUT2X MCW ACRWED,COMETS&3 X 7 2689 M 958 X65 281 1944 19 18 BRNCH B 0 X 4 2696 B 000 281 1945 19 19 * 1946 19 20 * PROCESS PARAMETERS FOR SUBSTITUTIONS 1947 19 21 * &MW13I85,I98M187I98BW50NO24M958X65B000 L037O99,O70O74,O81O85,O89O96104002813726L 1948 19 22 MSUBTX MCW @R@,MAINX&74 X 7 2700 M H67 075 282 1949 19 23 B SBROTX X 4 2707 B O33 282 1950 19 24 A @1@,SYMNM X 7 2711 A H59 W01 282 1951 19 25 SGC MCW MAINX&17,HLDSB X 7 2718 M 018 192 282 1952 19 26 S ENDDC X 4 2725 S V19 282 1953 19 27 CHAIN 8 MACRO 1954 S X 1 2729 S GEN 282 1955 S X 1 2730 S GEN 282 &MH67075BO33AH59W01M018192SV19SS L031P30,P07P11,P18P25,P29P30104002823726L 1956 S X 1 2731 S GEN 283 1957 S X 1 2732 S GEN 283 1958 S X 1 2733 S GEN 283 1959 S X 1 2734 S GEN 283 1960 S X 1 2735 S GEN 283 1961 S X 1 2736 S GEN 283 1962 19 28 S INDEX2&2 X 4 2737 S 096 283 &SSSSSSS096 L010P40,P32P33,P34P35,P36P37104002833726L 1963 19 29 A @3@,INDEX2&1 X 7 2741 A H68 095 284 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 44 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1964 19 30 MCW MAINX&10,PARTB X 7 2748 M 011 466 284 1965 19 31 SBR INDEX3 X 4 2755 H 099 284 1966 19 32 S INDEX1&1 X 4 2759 S 090 284 1967 19 33 BCE BTREND,MAINX&20, X 8 2763 B Q25 021 284 1968 19 34 BCE MOVEC,MAINX&20,, X 8 2771 B V20 021 , 284 &AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P71040104002843726L 1969 19 35 COMSN A @3@,INDEX2&1 X 7 2779 A H68 095 285 1970 19 36 BCE ABOVE,INDEX2&1,3 X 8 2786 B H33 095 3 285 1971 19 37 BELOW B SCANXX X 4 2794 B M19 285 1972 19 38 LCA MAINX&18&X1,0&X3 X 7 2798 L 0/9 0?0 285 1973 19 39 SBR INDEX3 X 4 2805 H 099 285 1974 19 40 BCE MOVEC,MAINX&20&X1,, X 8 2809 B V20 0S1 , 285 &AH68095BH330953BM19L0/90?0H099BV200S1, L038Q16,P86P94,P98Q05,Q09040104002853726L 1975 19 41 BCE WEEDD,MAINX&19&X1,, X 8 2817 B V65 0S0 , 286 1976 19 42 BTREND LCA @,@,0&X3 X 7 2825 L H69 0?0 286 1977 19 43 CS LMAINX X 4 2832 / 086 286 1978 19 44 C PREVS#3,HLDSB X 7 2836 C H72 192 286 1979 19 45 MCW @999@,PREVS X 7 2843 M H75 H72 286 1980 19 46 BE HARMN X 5 2850 B R65 S 286 &BV650S0,LH690?0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q50040104002863726L 1981 19 47 BH RDTP1 X 5 2855 B Q65 U 287 1982 19 48 EOF1 RWD 1 X 5 2860 U %U1 R 287 1983 19 49 * 1984 19 50 * SUBSTITUTIONS 1985 19 51 * 1986 19 52 RDTP1 SW 100 X 4 2865 , 100 287 1987 19 53 B CTAPE X 4 2869 B W50 287 1988 19 54 NOP TDFLIB X 4 2873 N B18 287 1989 19 55 C MAINX&19,HEADR X 7 2877 C 020 Y91 287 1990 19 56 BU RDTP1 X 5 2884 B Q65 / 287 &BQ65UU%U1R,100BW50NB18C020Y91BQ65/ L034Q88,Q60Q65,Q69Q73,Q77Q84104002873726L 1991 19 57 C MAINX&7,@999@ X 7 2889 C 008 H75 288 1992 19 58 BE KINGS X 5 2896 B U63 S 288 1993 19 59 C MAINX&7,HLDSB X 7 2901 C 008 192 288 1994 19 60 BU RDTP1 X 5 2908 B Q65 / 288 1995 19 61 B HARMN X 4 2913 B R65 288 1996 19 62 SKELC MCW @N@,NOCAL X 7 2917 M H45 K20 288 &C008H75BU63SC008192BQ65/BR65MH45K20 L035R23,Q96R01,R08R13,R17040104002883726L 1997 19 63 MCW CHARCS,MAINX&74 X 7 2924 M U60 075 289 1998 19 64 B SBROT X 4 2931 B O33 289 1999 19 65 BCE HARMN,MAINX&19,D X 8 2935 B R65 020 D 289 2000 19 66 MCW @B @,MAINX&19 X 7 2943 M H80 020 289 2001 19 67 BOUTS CW ZEROX X 4 2950 ) 188 289 2002 19 68 MCW CHARCC,MAINX&74 X 7 2954 M U61 075 289 &MU60075BO33BR65020DMH80020)188MU61075 L037R60,R31R35,R43R50,R54040104002893726L 2003 19 69 B SBROTX X 4 2961 B O33 290 2004 19 70 HARMN CS LMAINX X 4 2965 / 086 290 2005 19 71 SW 1,100 X 7 2969 , 001 100 290 2006 19 72 MCW LIPUT&1,100 X 7 2976 M 187 100 290 2007 19 73 B CTAPEX X 4 2983 B W50 290 2008 19 74 NOP TDFLB2 X 4 2987 N B29 290 2009 19 75 C MAINX&19,HEADR X 7 2991 C 020 Y91 290 &BO33/086,001100M187100BW50NB29C020Y91 L037R97,R65R69,R76R83,R87R91104002903726L 2010 19 76 MCW MAINX&7,PREVS X 7 2998 M 008 H72 291 2011 19 77 BE SWITCH X 5 3005 B L01 S 291 2012 19 78 C MAINX&7,@)00@ X 7 3010 C 008 H83 291 2013 19 79 BU LZFND X 5 3017 B ?26 / 291 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 45 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2014 19 80 SW ZEROX X 4 3022 , 188 291 2015 19 81 * 2016 19 82 * RIGHT TO LEFT SCAN FOR LOZENGES 2017 19 83 * 2018 19 84 LZFND ZA @690@,INDEX1&1 X 7 3026 ? H86 090 291 &M008H72BL01SC008H83B?26/,188?H86090 L035?32,?05?10,?17?22,?26040104002913726L 2019 19 85 LOZSC BCE LZCNT,MAINX&X1,) X 8 3033 B B38 0 1 ) 292 2020 19 86 DEFND S &10,INDEX1&1 X 7 3041 S H66 090 292 2021 19 87 C INDEX1,@15@ X 7 3048 C 089 H88 292 2022 19 88 BU LOZSC X 5 3055 B ?33 / 292 2023 19 89 S INDEX1&1 X 4 3060 S 090 292 2024 19 90 CLEANC B SCANXX X 4 3064 B M19 292 &BB380 1)SH66090C089H88B?33/S090BM19 L035?67,?41?48,?55?60,?64040104002923726L 2025 19 91 CW MAINX&20,MAINX&20&X1 X 7 3068 ) 021 0S1 293 2026 19 92 C INDEX1,@51@ X 7 3075 C 089 H90 293 2027 19 93 BL ENDCLN X 5 3082 B A26 T 293 2028 19 94 C MAINXX&20&X1,@ @ X 7 3087 C 0S1 H58 293 2029 19 95 BU CLEANC X 5 3094 B ?64 / 293 2030 19 96 BCE ENDCLN,MAINX&5,* X 8 3099 B A26 006 * 293 &)0210S1C089H90BA26TC0S1H58B?64/BA26006*L039A06,?75?82,?87?94,?99040104002933726L 2031 19 97 SW MAINX&20&X1 X 4 3107 , 0S1 294 2032 19 98 MCW BLANKS-4,MAINXX&71 X 7 3111 M W12 072 294 2033 19 99 MCW MAINXX&71 X 4 3118 M 072 294 2034 20 00 CW MAINXX&20&X1 X 4 3122 ) 0S1 294 2035 20 01 * 2036 20 02 * RIGHT TO LEFT SCAN FOR LOZENGES 6 - 20 2037 20 03 * 2038 20 04 ENDCLN MCW @015@,INDEX1 X 7 3126 M H93 089 294 2039 20 05 SBR ZONCH&3,UPENGL X 7 3133 H J07 A48 294 &,0S1MW12072M072)0S1MH93089HJ07A48 L033A39,A11A18,A22A26,A33040104002943726L 2040 20 06 ENGLOZ BCE LOZENG,MAINX&X1,) X 8 3140 B 57 0 1 ) 295 2041 20 07 UPENGL S &10,INDEX1&1 X 7 3148 S H66 090 295 2042 20 08 C INDEX1,@04@ X 7 3155 C 089 H95 295 2043 20 09 BU ENGLOZ X 5 3162 B A40 / 295 2044 20 10 OUTSD SBR ZONCH&3,DEFND X 7 3167 H J07 ?41 295 &B 570 1)SH66090C089H95BA40/HJ07?41 L034A73,A48A55,A62A67,040040104002953726L 2045 20 11 SHIFTL NOP PARTB,MAINX&10 X 7 3174 N 466 011 296 2046 20 12 MCW @N@,SHIFTL X 7 3181 M H45 A74 296 2047 20 13 C MAINX&18,WHOOPS X 7 3188 C 019 W05 296 2048 20 14 BE MASKS X 5 3195 B J44 S 296 2049 20 15 C MAINX&19,INCLD X 7 3200 C 020 U59 296 2050 20 16 BE MASKS X 5 3207 B J44 S 296 &N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B07040104002963726L 2051 20 17 B BOUTS X 4 3212 B R50 297 2052 20 18 TDFLIB DCW &KINGS X 3 3218 U63 297 2053 20 19 DCW @M%U1001R@ X 8 3226 297 2054 20 20 TDFLB2 DCW &EOF1B X 3 3229 44 297 2055 20 21 DCW @M%U1001R@ X 8 3237 297 2056 20 22 * 2057 20 23 * PROCESS LOZENGED FIELD 21 - 72 2058 20 24 * 2059 20 25 LZCNT BCE DEFND,MAINX&1&X1, X 8 3238 B ?41 0 2 297 &BR50U63M%U1001R 44M%U1001RB?410 2 L034B45,B16B19,B27B30,B38040104002973726L 2060 20 26 SW MAINX&X1,MAINX&3&X1 X 7 3246 , 0 1 0 4 298 2061 20 27 BM STSYM,MAINX&2&X1 X 8 3253 V C56 0 3 K 298 2062 20 28 B LABEL X 4 3261 B /19 298 2063 20 29 MCW INDEX3,SAVX3#3 X 7 3265 M 099 H98 298 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 46 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2064 20 30 S INDEX3,WAREA X 7 3272 S 099 W22 298 &,0 10 4VC560 3KB/19M099H98S099W22 L033B78,B53B61,B65B72,040040104002983726L 2065 20 31 MZ BLANKS,WAREA X 7 3279 Y W16 W22 299 2066 20 32 MCW @I99@,INDEX3 X 7 3286 M I01 099 299 2067 20 33 S WAREA,INDEX3 X 7 3293 S W22 099 299 2068 20 34 MCW @I@,INDEX3-2 X 7 3300 M I02 097 299 2069 20 35 C INDEX3,@I9F@ X 7 3307 C 099 I05 299 &YW16W22MI01099SW22099MI02097C099I05 L035C13,B86B93,C00C07,040040104002993726L 2070 20 36 BL SPTYP X 5 3314 B C78 T 300 2071 20 37 MCW MAINX&76&X3,MAINX&72 X 7 3319 M 0G7 073 300 2072 20 38 SBR MOVE3&6 X 4 3326 H C47 300 2073 20 39 LMN CW MAINX&3&X1 X 4 3330 ) 0 4 300 2074 20 40 MCW SAVX3,INDEX3 X 7 3334 M H98 099 300 2075 20 41 MOVE3 MCW 0&X3,0 X 7 3341 M 0?0 000 300 2076 20 42 CW MAINX&X1 X 4 3348 ) 0 1 300 &BC78TM0G7073HC47)0 4MH98099M0?0000)0 1 L038C51,C19C26,C30C34,C41C48104003003726L 2077 20 43 B DEFND X 4 3352 B ?41 301 2078 20 44 STSYM MCW MAINX&68,MAINX&71 X 7 3356 M 069 072 301 2079 20 45 MCW SYMNM X 4 3363 M W01 301 2080 20 46 CW MAINX&X1,MAINX&3&X1 X 7 3367 ) 0 1 0 4 301 2081 20 47 B DEFND X 4 3374 B ?41 301 2082 20 48 * 2083 20 49 * SPECIAL PROCESSING OF ONE AND TWO CHARACTER OPERANDS 2084 20 50 * 2085 20 51 SPTYP LCA MAINX&72,OUTPT&72 X 7 3378 L 073 I84 301 &B?41M069072MW01)0 10 4B?41L073I84 L033C84,C56C63,C67C74,C78040104003013726L 2086 20 52 CW MAINX&X1,MAINX&3&X1 X 7 3385 ) 0 1 0 4 302 2087 20 53 MCW BLANKS-2,MAINX&71 X 7 3392 M W14 072 302 2088 20 54 BCE HOUSE,INDEX3,H X 8 3399 B D22 099 H 302 2089 20 55 MCW OUTPT&72,MAINX&71 X 7 3407 M I84 072 302 2090 20 56 SBR MOVE3&6 X 4 3414 H C47 302 2091 20 57 B SPOUT X 4 3418 B D33 302 &)0 10 4MW14072BD22099HMI84072HC47BD33 L037D21,C92C99,D07D14,D18040104003023726L 2092 20 58 HOUSE MCW OUTPT&72,MAINX&70 X 7 3422 M I84 071 303 2093 20 59 SBR MOVE3&6 X 4 3429 H C47 303 2094 20 60 SPOUT CW OUTPT&3&X1 X 4 3433 ) I/5 303 2095 20 61 B LMN X 4 3437 B C30 303 2096 20 62 DELET BW LBLMV,ZEROX X 8 3441 V D53 188 1 303 2097 20 63 B HARMN X 4 3449 B R65 303 2098 20 64 LBLMV MCW @M@,SHIFTL X 7 3453 M I06 A74 303 &MI84071HC47)I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D53104003033726L 2099 20 65 CW ZEROX X 4 3460 ) 188 304 2100 20 66 B HARMN X 4 3464 B R65 304 2101 20 67 MLBLZ MCW SYMNM,MAINX&10 X 7 3468 M W01 011 304 2102 20 68 B OUTSD X 4 3475 B A67 304 2103 20 69 * 2104 20 70 * PULL IN CALLED SUBROUTINES AT LTORG, END OR EXECUTE CARDS 2105 20 71 * 2106 20 72 EXITC SBR CEXIT1&3 X 4 3479 H G45 304 2107 20 73 RWDEXT RWD 1 X 5 3483 U %U1 R 304 2108 20 74 CWPRC CW NEWEST X 4 3488 ) V98 304 &)188BR65MW01011BA67HG45U%U1R)V98 L032D91,D64D68,D75D79,D83D88104003043726L 2109 20 75 TPRD1 SW 100 X 4 3492 , 100 305 2110 20 76 MCW LIPUT&1,100 X 7 3496 M 187 100 305 2111 20 77 B CTAPEX X 4 3503 B W50 305 2112 20 78 NOP TDFEXT X 4 3507 N T44 305 2113 20 79 C MAINX&19,HEADR X 7 3511 C 020 Y91 305 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 47 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2114 20 80 BU TPRD1 X 5 3518 B D92 / 305 2115 20 81 SOLUT C MAINX&7,@999@ X 7 3523 C 008 H75 305 &,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E23104003053726L 2116 20 82 BE EOF1A X 5 3530 B F56 S 306 2117 20 83 OPPENT MCW ADDCAL,INDEX1 X 7 3535 M W08 089 306 2118 20 84 PRTNER BCE TPRD1,INDEX1-2,Y X 8 3542 B D92 087 Y 306 2119 20 85 SW MAINX&5 X 4 3550 , 006 306 2120 20 86 C 0&X1,MAINX&7 X 7 3554 C 0 0 008 306 2121 20 87 SAR INDEX1 X 4 3561 Q 089 306 &BF56SMW08089BD92087Y,006C0 0008Q089 L035E64,E35E42,E50E54,E61040104003063726L 2122 20 88 BU PRTNER X 5 3565 B E42 / 307 2123 20 89 BW TPRD1,1&X1 X 8 3570 V D92 0 1 1 307 2124 20 90 CW MAINX&5 X 4 3578 ) 006 307 2125 20 91 SW 1&X1 X 4 3582 , 0 1 307 2126 20 92 SW NEWEST X 4 3586 , V98 307 2127 20 93 COOKER B CTAPEX X 4 3590 B W50 307 2128 20 94 NOP TDFEXT X 4 3594 N T44 307 &BE42/VD920 11)006,0 1,V98BW50NT44 L033E97,E70E78,E82E86,E90E94104003073726L 2129 20 95 C MAINX&18,WHOOPS X 7 3598 C 019 W05 308 2130 20 96 BE SUBSET X 5 3605 B J19 S 308 2131 20 97 C MAINXX&19,INCLD X 7 3610 C 020 U59 308 2132 20 98 BE SUBSET X 5 3617 B J19 S 308 2133 20 99 C MAINX&19,HEADR X 7 3622 C 020 Y91 308 2134 21 00 BE SOLUT X 5 3629 B E23 S 308 &C019W05BJ19SC020U59BJ19SC020Y91BE23S L036F33,F05F10,F17F22,F29040104003083726L 2135 21 01 MCW CHARCC,MAINX&74 X 7 3634 M U61 075 309 2136 21 02 LCA LOPUT&1,100 X 7 3641 L I98 100 309 2137 21 03 B SBROT X 4 3648 B O33 309 2138 21 04 B COOKER X 4 3652 B E90 309 2139 21 05 EOF1A MCW ADDCAL,INDEX1 X 7 3656 M W08 089 309 2140 21 06 COMBL BCE CEXIT,INDEX1-2,Y X 8 3663 B G26 087 Y 309 &MU61075LI98100BO33BE90MW08089BG26087Y L037F70,F41F48,F52F56,F63040104003093726L 2141 21 07 C 0&X1,@ @ X 7 3671 C 0 0 H48 310 2142 21 08 SAR INDEX1 X 4 3678 Q 089 310 2143 21 09 BE CEXIT X 5 3682 B G26 S 310 2144 21 10 BW COMBL,1&X1 X 8 3687 V F63 0 1 1 310 2145 21 11 BW RWDEXT,NEWEST X 8 3695 V D83 V98 1 310 2146 21 12 * 2147 21 13 * CREATE COMMENTS CARD FOR UNKNOWN SUBROUTINES 2148 21 14 * 2149 21 15 UNKNWN B NOROT X 4 3703 B T75 310 &C0 0H48Q089BG26SVF630 11VD83V981BT75 L036G06,F78F82,F87F95,G03040104003103726L 2150 21 16 SW 1&X1 X 4 3707 , 0 1 311 2151 21 17 MCW 3&X1,MAINX&10 X 7 3711 M 0 3 011 311 2152 21 18 B SBROT X 4 3718 B O33 311 2153 21 19 B COMBL X 4 3722 B F63 311 2154 21 20 CEXIT CS CALLT X 4 3726 / !73 311 2155 21 21 CS X 1 3730 / 311 2156 21 22 CW 100 X 4 3731 ) 100 311 &,0 1M0 3011BO33BF63/!73/)100 L028G34,G11G18,G22G26,G30G31104003113726L 2157 21 23 MCW @999@,PREVS X 7 3735 M H75 H72 312 2158 21 24 CEXIT1 B 0 X 4 3742 B 000 312 2159 21 25 SBGRD SBR GRAND&3 X 4 3746 H G57 312 2160 21 26 S INDEX1&1 X 4 3750 S 090 312 2161 21 27 GRAND BW 0,0&X2 X 8 3754 V 000 0!0 1 312 2162 21 28 S @10@,INDEX2&1 X 7 3762 S I08 095 312 &MH75H72B000HG57S090V0000!01SI08095 L034G68,G42G46,G50G54,G62040104003123726L 2163 21 29 A @1@,INDEX1 X 7 3769 A H59 089 313 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 48 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2164 21 30 B GRAND X 4 3776 B G54 313 2165 21 31 CALLCD CS LMAINX X 4 3780 / 086 313 2166 21 32 B CTAPE X 4 3784 B W50 313 2167 21 33 NOP TDFEXT X 4 3788 N T44 313 2168 21 34 MCW CHARCS,MAINX&74 X 7 3792 M U60 075 313 2169 21 35 SW 1 X 4 3799 , 001 313 &AH59089BG54/086BW50NT44MU60075,001 L034H02,G76G80,G84G88,G92G99104003133726L 2170 21 36 B THRU X 4 3803 B N82 314 2171 21 37 IOCSAV DCW #4 X 4 3810 314 2172 21 38 CHAINX MCW @R@,MAINX&74 X 7 3811 M H67 075 314 2173 21 39 B WHYYY X 4 3818 B K97 314 2174 21 40 MIDLE MCW INDEX3,DECTB&X2 X 7 3822 M 099 UR2 314 2175 21 41 B LOWER X 4 3829 B V46 314 2176 21 42 ABOVE MCW INDEX3,DECTB&X2 X 7 3833 M 099 UR2 314 &BN82 MH67075BK97M099UR2BV46M099UR2 L037H39,H07H11,H18H22,H29H33104003143726L 2177 21 43 B BELOW X 4 3840 B P94 315 2178 21 44 LTORG * X 3844 DCW @B@ X 1 3844 LIT 315 @N@ X 1 3845 LIT 315 @ @ X 3 3848 LIT 315 @7@ X 1 3849 LIT 315 @ @ X 1 3850 LIT 315 1874 SAVXL2 #03 X 3 3853 AREA 315 &BP94BN 7 L014H53,H44H45,H46H49,H50H51104003153726L @DCW@ X 3 3856 LIT 316 @ @ X 2 3858 LIT 316 @1@ X 1 3859 LIT 316 @52@ X 2 3861 LIT 316 @510@ X 3 3864 LIT 316 &10 X 2 3866 LIT 316 @R@ X 1 3867 LIT 316 &DCW 1525101?R L014H67,H57H59,H60H62,H65H67104003163726L @3@ X 1 3868 LIT 317 @,@ X 1 3869 LIT 317 1978 PREVS #03 X 3 3872 AREA 317 @999@ X 3 3875 LIT 317 2000 @B @ X 5 3880 LIT 317 @)00@ X 3 3883 LIT 317 @690@ X 3 3886 LIT 317 &3, 999B )00690 L019H86,H69H70,H73H76,H81H84104003173726L @15@ X 2 3888 LIT 318 @51@ X 2 3890 LIT 318 @015@ X 3 3893 LIT 318 @04@ X 2 3895 LIT 318 2063 SAVX3 #03 X 3 3898 AREA 318 @I99@ X 3 3901 LIT 318 @I@ X 1 3902 LIT 318 &155101504 I99I L016I02,H89H91,H94H96,H99I02104003183726L @I9F@ X 3 3905 LIT 319 @M@ X 1 3906 LIT 319 @10@ X 2 3908 LIT 319 2179 21 45 * 2180 21 46 * OUTPUT AREA 2181 21 47 * 2182 21 48 ORG 3912 X 3912 2183 21 49 OUTPT DA 1X86,G X 3912 3997 319 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 49 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &I9FM10 L006I08,I06I07,I12040,040040104003193726L DCW @}@ X 1 3998 GMARK 320 2184 21 50 LOPUT EQU *-1 X 3997 &} L001I98,040040,040040,040040104003203726L & N000000,040040,040040,040040B00003213726L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03223726L &,068072)063067/061039 ,001001104003233726L 2185 21 51 EX X B 000 321 & /Z00080 03243726L 2186 21 52 END START X / Z00 080 324 1 3 ERRORS 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013731L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023731L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033731L 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 &H099HK82YM60099MII0K73DK69K49MK73L82 L036K45,K14K18,K25K32,K39040104000043731L 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. REDUNDANT AGAIN 5 2274 B K83 L 5 128 1 28 REDXT B XXXX EXIT 4 2279 B 000 5 &U%U0BBL55K73WMM60M61M%U0000RBK83LB000 L037K82,K51K59,K66K74,K79040104000053731L 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 &DK69K93U%U0BSM62M61VK66M61BDK69L23 L034L16,K90K95,L02L10,040040104000063731L 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 &.000390MK73L38M%U0000RBK46E.000302BK79 L038L54,L24L31,L39L44,L51040104000073731L 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. REDUNDANT AGAIN 5 2383 B K46 L 8 145 1 45 B REDXT 4 2388 B K79 8 &U%U1EBL92M635AM62M64M%U0000WBK46LBK79 L037L91,L60L68,L75L83,L88040104000083731L 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 &SM64DK69M09.000360BL75H099HM52YM60099 L037M28,L96M03,M10M14,M18M22104000093731L 156 1 56 N2 BCE 4000-12&X3, XXXX,} SCAN FOR GROUP MARK 8 2429 B IH8 000 } 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 &BIH8000}BBBBBB L014M42,M37M38,M39M40,M41M42104000103731L 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 XXXX 4 2449 B 000 11 &BBBBBBB000 L010M52,M44M45,M46M47,M48M49104000113731L 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 125 RDCT #01 1 2461 AREA 12 &1 1 2462 LIT 12 142 WRTCR #02 2 2464 AREA 12 175 1 63 * 176 1 64 *BEGIN OF MAIN LINE 177 1 65 * &3 999#I A L012M64,M54M59,M60M61,M62M63104000123731L 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 OF 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 &U%U6RU%U5R/I99L%U1001RN000BK10L,I89187 L038N02,M70M75,M79M87,M91M96104000133731L 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 &)?03/080,A69U%U4RMR20M35MR21573MR21558 L038N40,N07N11,N15N20,N27N34104000143731L 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 ON 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 * &M%U5101RBM14BK10LU%U5RM103R24?R27184 L036N76,N49N53,N58N63,N70040104000153731L 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 FACTOR 7 2601 M R24 108 16 206 1 94 WT OUTAPE,FREE&1 PUT JOB CARD 8 2608 M %U4 101 W 16 &B524BQ53106*C118R30BQ53/MR24108M%U4101WL039O15,N81N89,N96O01,O08040104000163731L 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 * &N000BK10LAR31184B524MR32573MR33558 L034O49,O20O25,O32O36,O43040104000173731L 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 &C118R36BQ85//000HO85HR39VP02O852/I9I L036O85,O57O62,O66O70,O74O82104000183731L 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 &HO85CO85R42BO82/MR43R44VP54R39BMR45R44 L038P23,O90O97,P02P09,P17040104000193731L 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 &VP54R39KMR46R44VP54R39SMR47R44C121R44 L037P60,P32P39,P47P54,040040104000203731L 234 2 22 BE INOBJ 5 2761 B P97 S 21 235 2 23 MESSG @INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@,42 MACRO 236 02 CS 332 4 2766 / 332 GEN 21 237 03 CS 1 2770 / GEN 21 238 04 MCW @INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@,42&200 7 2771 M R89 242 GEN 21 239 05 W 1 2778 2 GEN 21 240 07 BCV *&5 5 2779 B P88 @ GEN 21 241 08 B *&3 4 2784 B P90 GEN 21 &BP97S/332/MR892422BP88@BP90 L027P87,P66P70,P71P78,P79P84104000213731L 242 09 CC 1 2 2788 F 1 GEN 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 MACH 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 &F1MR44121M122M53?M53089SR91090A089 L034Q21,P90P97,Q04Q11,Q18040104000223731L 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 &MR/1M55C122R47B419TBQ991241BQ92U%U6B L036Q57,Q29Q36,Q41Q49,Q53040104000233731L 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 &M174173MR96120MM174115MBO01MR99463 L034Q91,Q65Q72,Q73Q80,Q81Q85104000243731L 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 &M?00M59M?02M55B41903071115 L026R17,Q99R06,R10R12,R14R16104000253731L 189 DCW &FREE&13 3 2920 113 ADCON 26 @N@ 1 2921 LIT 26 196 JOBLBL #03 3 2924 AREA 26 @101@ 3 2927 LIT 26 @JOB@ 3 2930 LIT 26 &1 1 2931 LIT 26 @B@ 1 2932 LIT 26 &113N 101JOBAB L015R32,R21R22,R25R28,R31R32104000263731L @M@ 1 2933 LIT 27 @CTL@ 3 2936 LIT 27 220 SVSZ #03 3 2939 AREA 27 @I99@ 3 2942 LIT 27 @6@ 1 2943 LIT 27 226 PHOLD #01 1 2944 AREA 27 @5@ 1 2945 LIT 27 &MCTL I996 5 L013R45,R34R37,R40R43,R44R45104000273731L @4@ 1 2946 LIT 28 @3@ 1 2947 LIT 28 &43 L002R47,R47040,040040,040040104000283731L &INCORRECT PROCESSOR MACHINE SIZE SPECIFL039R86,040040,040040,040040104000293731L 238 @INCORRECT PROCESSOR MACHINE SIZE SPECIFIED@ 42 2989 LIT 30 &30 2 2991 LIT 30 255 @JOB @ 5 2996 LIT 30 260 &SUBXL 3 2999 634 ADCON 30 @A@ 1 3000 LIT 30 &IED3?JOB 634A L014?00)R87R87,R90R92,R97?00104000303731L @03@ 2 3002 LIT 31 269 2 50 SYSMK2 DCW @}@ SYSTEM GROUP MARK 1 3003 31 &03} L003?03,?03040,040040,040040104000313731L & N000000,040040,040040,040040B00000323731L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00333732L &,068072)063067/061039 ,001001104000343732L 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 LOCATIONS 274 2 55 * 275 2 56 XINIT XL1,XL2,XL3 MACRO 276 01 XL1 EQU 089 0089 GEN 277 02 089 DCW 000 3 0089 GEN 35 278 04 091 DC 00 2 0091 GEN 35 279 05 XL2 EQU 094 0094 GEN 280 06 094 DCW 000 3 0094 GEN 35 281 08 096 DC 00 2 0096 GEN 35 282 09 XL3 EQU 099 0099 GEN 283 10 099 DCW 000 3 0099 GEN 35 284 12 100 DC 0 1 0100 GEN 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 35 291 2 63 1,1 0101 FIELD 35 292 2 64 19,19 0119 FIELD 35 293 2 65 16,16 0116 FIELD 35 &00000000000000 L014100,092097,101101,119116104000353732L 294 2 66 6,6 0106 FIELD 36 295 2 67 21,21 0121 FIELD 36 296 2 68 ALTRNO 81,84 0184 FIELD 36 297 2 69 85,85 0185 FIELD 36 & L001001,106121,181185,040040104000363732L 298 2 70 GMK2 DC @}@ 1 0187 37 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 37 305 2 77 40,40 0372 FIELD 37 306 2 78 17,17 0349 FIELD 37 307 2 79 28,28 0360 FIELD 37 &} L001187)187187,333372,349360104000373732L 308 2 80 39,39 0371 FIELD 38 309 2 81 76,76 0408 FIELD 38 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 38 314 2 86 NOP 0 4 0427 N 000 38 315 2 87 BER TPERR 5 0431 B K10 L 38 316 2 88 MCW MANAM,MASYM-3 7 0436 M M59 B93 38 317 2 89 RTW SYSTAP,OVL2 8 0443 L %U1 626 R 38 &L%U1M65RN000BK10LMM59B93L%U1626R L032450,371408,427431,436443104000383732L 318 2 90 NOP 0 4 0451 N 000 39 319 2 91 BER TPERR 5 0455 B K10 L 39 320 2 92 INTXT B NUREC 4 0460 B 626 39 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 39 325 2 97 NOP 0 4 0472 N 000 39 326 2 98 BER TPERR 5 0476 B K10 L 39 327 2 99 BSP SYSTAP 5 0481 U %U1 B 39 &N000BK10LB626L%U1626RN000BK10LU%U1B L035485,455460,464472,476481104000393732L 328 3 00 BSP SYSTAP 5 0486 U %U1 B 40 329 3 01 BW PROFIX,FREESW 8 0491 V 661 H09 1 40 330 3 02 B RSTMOD 4 0499 B 638 40 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 40 335 3 07 NOP 0 4 0511 N 000 40 336 3 08 BER TPERR 5 0515 B K10 L 40 337 3 09 B PSTNU 4 0520 B 630 40 338 3 10 * 339 3 11 *GET ROUTINE 340 3 12 * &U%U1BV661H091B638L%U1626RN000BK10LB630 L038523,491499,503511,515520104000403732L 341 3 13 GET SBR GETXT&3 4 0524 H 553 41 342 3 14 B RDTAP 4 0528 B 554 41 343 3 15 MCW INAREA&79,FREE&80 7 0532 M I82 180 41 344 3 16 CHAIN 4 MACRO 345 MCW 1 0539 M GEN 41 346 MCW 1 0540 M GEN 41 347 MCW 1 0541 M GEN 41 348 MCW 1 0542 M GEN 41 &H553B554MI82180MMMM L019542,528532,539540,541542104000413732L 349 3 17 MCW INAREA&85,FREE&86 7 0543 M I88 186 42 350 3 18 GETXT B XXXX 4 0550 B 000 42 351 3 19 RDTAP SBR RDXT&3 READ TAPE 4 0554 H 585 42 352 3 20 N4 MCW &INAREA&12,N2&6 7 0558 M R43 M35 42 353 3 21 RT INTAPE,INAREA 8 0565 M %U6 I03 R 42 354 3 22 N3 B NOISE CHECK FOR NOISE 4 0573 B M14 42 355 3 23 BER TPERR 5 0577 B K10 L 42 &MI88186B000H585MR43M35M%U6I03RBM14BK10LL039581,550554,558565,573577104000423732L 356 3 24 RDXT B XXXX 4 0582 B 000 43 357 3 25 * 358 3 26 *PUT ROUTINE 359 3 27 * 360 3 28 PUT SBR PUTXT&3 4 0586 H 625 43 361 3 29 CW FREE&21 4 0590 ) 121 43 362 3 30 WT OUTAPE,FREE&1 8 0594 M %U4 101 W 43 363 3 31 NOP 0 4 0602 N 000 43 364 3 32 BER TPERR 5 0606 B K10 L 43 365 3 33 SW FREE&21 4 0611 , 121 43 &B000H625)121M%U4101WN000BK10L,121 L033614,586590,594602,606611104000433732L 366 3 34 A &1,ALTRNO INCREASE ALTER NUMBER 7 0615 A R44 184 44 367 3 35 PUTXT B XXXX 4 0622 B 000 44 368 3 36 OVL2 DCW 0 1 0626 44 369 3 37 DCW @}@ SYSTEM GROUP MARK 1 0627 44 &AR44184B0000} L013627,622626,627040,040040104000443732L & N000000,040040,040040,040040B00000453732L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00463734L &,068072)063067/061039 ,001001104000473734L 370 3 38 XFR 0 B 000 45 1 1401 AUTOCODER-PASS 3 LEFT MAIN LINE -VERSION 3 3734L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 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 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 48 377 3 45 PSTNU B GET 4 0630 B 524 48 378 3 46 SUBXL SW MODESW 4 0634 , ?02 48 379 3 47 CW FREESW 4 0638 ) H09 48 380 3 48 BCE NUREC,FREE&6,* 8 0642 B 626 106 * 48 381 3 49 BCE REG,FREE&75, 8 0650 B 991 175 48 &B586B524,?02)H09B626106*B991175 L032657,630634,638642,650040104000483734L 382 3 50 BCE REG,FREE&75,L 8 0658 B 991 175 L 49 383 3 51 BCE NUREC,FREE&75,S 8 0666 B 626 175 S 49 384 3 52 BCE NUREC,FREE&75,Z 8 0674 B 626 175 Z 49 385 3 53 BCE NUREC,FREE&85,R 8 0682 B 626 185 R 49 386 3 54 C FREE&18,@CHA@ 7 0690 C 118 R47 49 &B991175LB626175SB626175ZB626185RC118R47L039696,666674,682690,040040104000493734L 387 3 55 BCE CKCHN,FREE&75,C 8 0697 B 722 175 C 50 388 3 56 BCE CKCHN,FREE&75,Y 8 0705 B 722 175 Y 50 389 3 57 BU NUREC 5 0713 B 626 / 50 390 3 58 B PRCHN 4 0718 B 727 50 391 3 59 CKCHN BU REG 5 0722 B 991 / 50 392 3 60 PRCHN ZA FREE&22,WAREA2 7 0727 ? 122 A14 50 &B722175CB722175YB626/B727B991/?122A14 L037733,705713,718722,727040104000503734L 393 3 61 BCE *&5,WAREA2,& 8 0734 B 746 A14 & 51 394 3 62 B *&8 4 0742 B 753 51 395 3 63 ZA WAREA2-1,WAREA2 7 0746 ? A13 A14 51 396 3 64 BCE *&5,FREE&75,C 8 0753 B 765 175 C 51 397 3 65 B *&8 4 0761 B 772 51 398 3 66 MCW @S@,FREE&75 7 0765 M R48 175 51 &B746A14&B753?A13A14B765175CB772MR48175 L038771,742746,753761,765040104000513734L 399 3 67 BCE *&5,FREE&75,Y 8 0772 B 784 175 Y 52 400 3 68 B *&8 4 0780 B 791 52 401 3 69 MCW @Z@,FREE&75 7 0784 M R49 175 52 402 3 70 B PUT 4 0791 B 586 52 403 3 71 C WAREA2,&00 ACCOUNT FOR CHAIN 00 7 0795 C A14 R51 52 404 3 72 BL *&5 5 0802 B 811 T 52 405 3 73 B PSTNU 4 0807 B 630 52 &B784175YB791MR49175B586CA14R51B811TB630L039810,780784,791795,802807104000523734L 406 3 74 MCW FREE&75,HLDCD#1 7 0811 M 175 R52 53 407 3 75 MCW @C@,FREE&75 7 0818 M R53 175 53 408 3 76 BCE BLNKX,HLDCD,R 8 0825 B 848 R52 R 53 409 3 77 BCE BLNKX,HLDCD,S 8 0833 B 848 R52 S 53 410 3 78 MCW @Y@,FREE&75 7 0841 M R54 175 53 &M175R52MR53175B848R52RB848R52SMR54175 L037847,818825,833841,040040104000533734L 411 3 79 BLNKX MCW BLNK2,FREE&74 7 0848 M A55 174 54 412 3 80 MCW FREE&74 4 0855 M 174 54 413 3 81 MCW SAVOP 4 0859 M R88 54 414 3 82 MCW 1 0863 M 54 415 3 83 MCW 1 0864 M 54 416 3 84 MCW FREE&74,FREE&5 BLANK PAGE/LINE 7 0865 M 174 105 54 417 3 85 CHNLP B PUT 4 0872 B 586 54 &MA55174M174MR88MMM174105B586 L028875,855859,863864,865872104000543734L 418 3 86 MCW FREE&74,FREE&11 BLANK LABEL FIELD 7 0876 M 174 111 55 419 3 87 S &1,WAREA2 7 0883 S R44 A14 55 420 3 88 C WAREA2,&00 7 0890 C A14 R51 55 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 421 3 89 BL CHNLP 5 0897 B 872 T 55 422 3 90 B PSTNU 4 0902 B 630 55 423 3 91 GENPS MCW @&1 @,FREE&15 7 0906 M R57 115 55 &M174111SR44A14CA14R51B872TB630MR57115 L037912,883890,897902,906040104000553734L 424 3 92 B PUT 4 0913 B 586 56 425 3 93 MCW FREE&73,FREE&72 TO HIGHEST ADDRESS OF 7 0917 M 173 172 56 426 3 94 MCW @C@,FREE&75 OBJECT CORE 7 0924 M R53 175 56 427 3 95 MCW HIVAL,FREE&25 7 0931 M M58 125 56 428 3 96 MCW @EQU @ 4 0938 M R62 56 429 3 97 MCW 1 0942 M 56 430 3 98 MCW @$HIVAL &P @ 4 0943 M R72 56 &B586M173172MR53175MM58125MR62MMR72 L034946,917924,931938,942943104000563734L 431 3 99 MCW FREE&73 4 0947 M 173 57 432 4 00 MCW &NUREC,GENPS&3 7 0951 M R75 909 57 433 4 01 MCW @B@,ISHIV 7 0958 M R76 969 57 434 4 02 B NUREC 4 0965 B 626 57 435 4 03 ISHIV NOP PSTNU 4 0969 N 630 57 436 4 04 MCW HIVAL,FREE&25 SET NEW HIGHEST VALUE 7 0973 M M58 125 57 &M173MR75909MR76969B626N630MM58125 L033979,951958,965969,973040104000573734L 437 4 05 MCW @B@,PSSW2 7 0980 M R76 37 58 438 4 06 B TSTRE 4 0987 B 53 58 439 4 07 REG S XL3&1 4 0991 S 100 58 440 4 08 S 1 0995 S 58 441 4 09 S 1 0996 S 58 442 4 10 C FREE&18,@ @ 7 0997 C 118 R79 58 443 4 11 BU SVUP3 5 1004 B 17 / 58 &MR76 37B 53S100SSC118R79B 17/ L029 08,987991,995996,997 04104000583734L 444 4 12 BCE TSTRE,FREE&19, 8 1009 B 53 119 59 445 4 13 SVUP3 MCW FREE&20,SAVOP#9 7 1017 M 120 R88 59 446 4 14 MCW 1 1024 M 59 447 4 15 C FREE&11, @$HIVAL@ Q. HIVAL EQUATE PRESNT 7 1025 C 111 R94 59 448 4 16 BE ISHIV 5 1032 B 969 S 59 449 4 17 PSSW2 NOP TSTRE 4 1037 N 53 59 450 4 18 C FREE&10,@$P @ Q. ARITH MACRO PRESENT 7 1041 C 110 R99 59 &B 53119 M120R88MC111R94B969SN 53C110R99L039 47, 17 24, 25 32, 37 41104000593734L 451 4 19 BE GENPS 5 1048 B 906 S 60 452 4 20 TSTRE BCE ISREA,FREE&85,R 8 1053 B 96 185 R 60 453 4 21 B TLUOP LOOKUP MNEMONIC 4 1061 B M65 60 454 4 22 STFUN MCW FREE&15,SAVOP-5 7 1065 M 115 R83 60 455 4 23 BW NUREC,EQVADD Q. INSTRUCTION 8 1072 V 626 A69 1 60 456 4 24 C FREE&15,@3 @ 7 1080 C 115 ?01 60 &B906SB 96185RBM65M115R83V626A691C115?01L039 86, 53 61, 65 72, 80040104000603734L 457 4 25 BE EOJ 5 1087 B Q75 S 61 458 4 26 B NUREC 4 1092 B 626 61 459 4 27 ISREA SW FREE&12 4 1096 , 112 61 460 4 28 LCA FREE&15,EQVADD 7 1100 L 115 A69 61 461 4 29 CW FREE&12 4 1107 ) 112 61 462 4 30 BCE TYPCL,FREE&15,& 8 1111 B /26 115 & 61 463 4 31 CHAIN 3 MACRO 464 BCE 1 1119 B GEN 61 &BQ75SB626,112L115A69)112B/26115&B L033/19, 92 96,/00/07,/11/19104000613734L 465 BCE 1 1120 B GEN 62 466 BCE 1 1121 B GEN 62 467 4 32 B STFUN 4 1122 B 65 62 468 4 33 TYPCL SW EQVADD-2 4 1126 , A67 62 469 4 34 BCE STFUN,FREE&12,& 8 1130 B 65 112 & 62 470 4 35 SW EQVADD-1 4 1138 , A68 62 1 1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 3734L PAGE 10 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 & 62 &BBB 65,A67B 65112&,A68B 65113& L030/49,/21/22,/26/30,/38/42104000623734L 472 4 37 SW EQVADD 4 1150 , A69 63 473 4 38 B STFUN 4 1154 B 65 63 474 4 39 DCW 0 1 1158 63 475 4 40 DCW @}@ SYSTEM GROUP MARK 1 1159 63 &,A69B 650} L010/59,/54/58,/59040,040040104000633734L & N000000,040040,040040,040040B00000643734L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00653735L &,068072)063067/061039 ,001001104000663735L 476 4 41 XFR 0 B 000 64 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 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 67 483 4 48 BW GTFRE,FREESW Q. FREE DONE IN FIXED 8 0630 V 503 H09 1 67 484 4 49 RSTMOD CW MODESW#1,ABSW RESET SWITCHES 7 0638 ) ?02 A10 67 485 4 50 B RDTAP GET A RECORD 4 0645 B 554 67 486 4 51 MCW INAREA&79,INPUT&80 MOVE TO FIXED FORM 7 0649 M I82 412 67 487 4 52 CHAIN 5 MACRO 488 MCW 1 0656 M GEN 67 489 MCW 1 0657 M GEN 67 &B586V503H091)?02A10B554MI82412MM L032657,630638,645649,656657104000673735L 490 MCW 1 0658 M GEN 68 491 MCW 1 0659 M GEN 68 492 MCW 1 0660 M GEN 68 493 4 53 PROFIX MCW INPUT&80,FREE&80 MOVE IDENTIFICATION 7 0661 M 412 180 68 494 4 54 MCW BLANK,FREE&75 SET OPERAND PORTION 7 0668 M A54 175 68 495 4 55 MCW FREE&75 OF -FREE- TO BLANKS 4 0675 M 175 68 496 4 56 MCW FREE&75,FREE&20 SET BALANCE TO BLANK 7 0679 M 175 120 68 &MMMM412180MA54175M175M175120 L028685,659660,661668,675679104000683735L 497 4 57 MCW 1 0686 M 69 498 4 58 MCW 1 0687 M 69 499 4 59 MCW INPUT&82,FREE&86 BLANK CODE POSITIONS 7 0688 M 414 186 69 500 4 60 MCW INPUT&13,FREE&11 MOVE LABEL AND PG/LINE 7 0695 M 345 111 69 501 4 61 MCW INPUT&5 NO TO -FREE- 4 0702 M 337 69 502 4 62 BCE COMCRD,INPUT&8,* Q. COMMENTS CARD 8 0706 B Y71 340 * 69 503 4 63 BCE LBERR,FREE&11,, CHECK FOR INVALID 8 0714 B 778 111 , 69 504 4 64 CHAIN 4 CHARACTERS IN LABELS MACRO &MMM414186M345111M337BY71340*B778111, L036721,687688,695702,706714104000693735L 505 BCE 1 0722 B GEN 70 506 BCE 1 0723 B GEN 70 507 BCE 1 0724 B GEN 70 508 BCE 1 0725 B GEN 70 509 4 65 BCE LBERR,FREE&10,- 8 0726 B 778 110 - 70 510 4 66 CHAIN 4 MACRO 511 BCE 1 0734 B GEN 70 512 BCE 1 0735 B GEN 70 &BBBBB778110-BB L014735,723724,725726,734735104000703735L 513 BCE 1 0736 B GEN 71 514 BCE 1 0737 B GEN 71 515 4 67 BCE LBERR,FREE&10,# 8 0738 B 778 110 # 71 516 4 68 CHAIN 4 MACRO 517 BCE 1 0746 B GEN 71 518 BCE 1 0747 B GEN 71 519 BCE 1 0748 B GEN 71 520 BCE 1 0749 B GEN 71 &BBB778110#BBBB L014749,737738,746747,748749104000713735L 521 4 69 BCE LBERR,FREE&10,& 8 0750 B 778 110 & 72 522 4 70 CHAIN 4 MACRO 523 BCE 1 0758 B GEN 72 524 BCE 1 0759 B GEN 72 525 BCE 1 0760 B GEN 72 526 BCE 1 0761 B GEN 72 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 527 4 71 BCE LBERR,FREE&10, 8 0762 B 778 110 72 528 4 72 CHAIN 4 MACRO 529 BCE 1 0770 B GEN 72 &B778110&BBBBB778110 B L021770,758759,760761,762770104000723735L 530 BCE 1 0771 B GEN 73 531 BCE 1 0772 B GEN 73 532 BCE 1 0773 B GEN 73 533 4 73 B BCK1 4 0774 B 798 73 534 4 74 LBERR CS 332 4 0778 / 332 73 535 4 75 CS 1 0782 / 73 536 4 76 MCW @ILLEGAL LABEL - SEQUENCE NUMBER@,231 7 0783 M ?33 231 73 &BBBB798/332/M?33231 L019789,772773,774778,782783104000733735L 537 4 77 MCS ALTRNO,236 7 0790 Z 184 236 74 538 4 78 W 1 0797 2 74 539 4 79 BCK1 C INPUT&15,BLNK2 Q. ACTUAL OP CODE 7 0798 C 347 A55 74 540 4 80 BE ABSFIX PRESENT IN FIXED FORM 5 0805 B S70 S 74 541 4 81 MCW BLNK2,SAVOP 7 0810 M A55 R88 74 542 4 82 MCW INPUT&16 4 0817 M 348 74 543 4 83 MCW INPUT&16,FREE&18 MOVE MNEMONIC TO FREE 7 0821 M 348 118 74 &Z1842362C347A55BS70SMA55R88M348M348118 L038827,797798,805810,817821104000743735L 544 4 84 TLUFIX S XL3&1 RESET INDEX LOCATIONS 4 0828 S 100 75 545 4 85 S TO ZERO 1 0832 S 75 546 4 86 S 1 0833 S 75 547 4 87 B TLUOP LOOKUP MNEMONIC 4 0834 B M65 75 548 4 88 BW FIXINS,EQVADD Q. INSTRUCTION 8 0838 V 854 A69 1 75 549 4 89 BCE FOUND,EQVADD, Q. CONTROL OP 8 0846 B T40 A69 75 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 75 &S100SSBM65V854A691BT40A69 B974349 L034861,832833,834838,846854104000753735L 554 4 94 BCE FIXALF,INPUT&17,@ Q. ALPHA LITERAL 8 0862 B /84 349 @ 76 555 4 95 B SCAN SCAN A OPERAND 4 0870 B Z09 76 556 4 96 CKB BCE CKMOD,INPUT&28, Q. B OPERAND 8 0874 B 950 360 76 557 4 97 A &1,XL2 MOVE COMMA TO FREE 7 0882 A R44 094 76 558 4 98 MCW @,@,FREE&21&X2 TO SEPARATE OPERANDS 7 0889 M ?34 1K1 76 &B/84349@BZ09B950360 AR44094M?341K1 L034895,870874,882889,040040104000763735L 559 4 99 A &1,XL2 7 0896 A R44 094 77 560 5 00 MCW @011@,XL1 7 0903 M ?37 089 77 561 5 01 BCE FIXALF,INPUT&28,@ Q. ALPHA LITERAL 8 0910 B /84 360 @ 77 562 5 02 B SCAN SCAN B OPERAND 4 0918 B Z09 77 563 5 03 CKOP C INPUT&16,@B @ Q. BRANCH INSTRUCTION 7 0922 C 348 ?40 77 564 5 04 BE MAKBCE 5 0929 B 40 S 77 &AR44094M?37089B/84360@BZ09C348?40B 40S L038933,903910,918922,929040104000773735L 565 5 05 C INPUT&16,@ B@ Q. ACTUAL BRANCH INST 7 0934 C 348 ?43 78 566 5 06 BE MOVMOD 5 0941 B 18 S 78 567 5 07 B LKNOP 4 0946 B 974 78 568 5 08 CKMOD C INPUT&16,@B @ Q. BRANCH INSTRUCTION 7 0950 C 348 ?40 78 569 5 09 BE ALTROP 5 0957 B 51 S 78 570 5 10 C INPUT&16,@ B@ Q. ACTUAL BRANCH INST 7 0962 C 348 ?43 78 &C348?43B 18SB974C348?40B 51SC348?43 L035968,941946,950957,962040104000783735L 571 5 11 BE ALTROP 5 0969 B 51 S 79 572 5 12 LKNOP C INPUT&16,@NOP@ Q. NOP INSTRUCTION 7 0974 C 348 ?46 79 573 5 13 BE CKNOP 5 0981 B /46 S 79 574 5 14 BW PICKUP,ABSW Q. ACTUAL OP CODE 8 0986 V 29 A10 1 79 575 5 15 BCE PICKUP,INPUT&39, Q. D CHARACTER 8 0994 B 29 371 79 &B 51SC348?46B/46SV 29A101B 29371 L033 01,974981,986994,040040104000793735L 576 5 16 ISMOD BCE MOVMOD,FREE&15, Q. ILLEGAL OP 8 1002 B 18 115 80 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 577 5 17 BWZ IOTYP,FREE&15,2 Q. I/O INSTRUCTION 8 1010 V /54 115 2 80 578 5 18 MOVMOD MCW INPUT&39,FREE&23&X2 MOVE D CHARACTER TO 7 1018 M 371 1K3 80 579 5 19 MCW @,@ FREE AREA 4 1025 M ?34 80 580 5 20 PICKUP MCW INPUT&55,FREE&72 PICKUP COMMENTS 7 1029 M 387 172 80 581 5 21 B ENDFIX 4 1036 B 626 80 &B 18115 V/541152M3711K3M?34M387172B626 L038 39, 10 18, 25 29, 36040104000803735L 582 5 22 MAKBCE MCW @BCE@,FREE&18 MOVE -BCE- MNEMONIC 7 1040 M ?49 118 81 583 5 23 B ISMOD TO OPERATION FIELD 4 1047 B 02 81 584 5 24 ALTROP BCE PICKUP,INPUT&39, Q. D CHARACTER, I.E., 8 1051 B 29 371 81 585 5 25 MCW @BIN@,FREE&18 UNCONDITIONAL BRANCH 7 1059 M ?52 118 81 586 5 26 MCW @& B@,FREE&15 SET FIVE CHAR BRANCH 7 1066 M ?55 115 81 587 5 27 S XL1&1 4 1073 S 090 81 &M?49118B 02B 29371 M?52118M?55115S090 L037 76, 47 51, 59 66, 73040104000813735L 588 5 28 MCW BLNK2,FREE&20 7 1077 M A55 120 82 589 5 29 TLUBIN C BINTBL&X1,INPUT&39 SEARCH 5-CHARACTER 7 1084 C H/4 371 82 590 5 30 BE BINFND BRANCH TABLE FOR 5 1091 B /15 S 82 591 5 31 BCE MOVMOD,BINTBL&5&X1, APPROPRIATE UNIQUE 8 1096 B 18 H/9 82 592 5 32 A &5,XL1 MNEMONIC. IF NOT 7 1104 A ?56 089 82 593 5 33 B TLUBIN PRESENT LEAVE 4 1111 B 84 82 &MA55120CH/4371B/15SB 18H/9 A?56089B 84 L038/14, 84 91, 96/04,/11040104000823735L 594 5 34 BINFND MCW BINTBL-1&X1,FREE&19 MNEMONIC -BIN- 7 1115 M H/3 119 83 595 5 35 MCW 1 1122 M 83 596 5 36 C FREE&18,@BSS@ Q. BRANCH SENSE SWITCH 7 1123 C 118 ?59 83 597 5 37 BE MOVMOD 5 1130 B 18 S 83 598 5 38 MCW INPUT&39,FREE&14 PICKUP D CHARACTER 7 1135 M 371 114 83 599 5 39 B PICKUP 4 1142 B 29 83 600 5 40 CKNOP BCE PICKUP,INPUT&39, 8 1146 B 29 371 83 &MH/3119MC118?59B 18SM371114B 29B 29371 L039/53,/22/23,/30/35,/42/46104000833735L 601 5 41 IOTYP MCW INPUT&39,FREE&14 CODE I/O INSTRUCTIONS 7 1154 M 371 114 84 602 5 42 MCW @&@ IN ACTUAL IN 4 1161 M ?60 84 603 5 43 MCW INPUT&39,FREE&20 OPERATION FIELD 7 1165 M 371 120 84 604 5 44 MCW FREE&15 4 1172 M 115 84 605 5 45 MCW BLANK3 4 1176 M A56 84 606 5 46 B PICKUP 4 1180 B 29 84 607 5 47 FIXALF BCE ENDALF,INPUT&27&X1,@ SCAN FOR ENDING @ SIGN 8 1184 B S18 3V9 @ 84 608 5 48 CHAIN 8 MACRO &M371114M?60M371120M115MA56B 29BS183V9@ L038/91,/61/65,/72/76,/80/84104000843735L 609 BCE 1 1192 B GEN 85 610 BCE 1 1193 B GEN 85 611 BCE 1 1194 B GEN 85 612 BCE 1 1195 B GEN 85 613 BCE 1 1196 B GEN 85 614 BCE 1 1197 B GEN 85 615 BCE 1 1198 B GEN 85 &BBBBBBB L007/98,/93/94,/95/96,/97/98104000853735L 616 BCE 1 1199 B GEN 86 617 5 49 VALUE A &1,XL2 PROCESS STATEMENT AS 7 1200 A R44 094 86 618 5 50 MCW @$$@,FREE&21&X2 UNPROCESSABLE ALPHA 7 1207 M ?62 1K1 86 619 5 51 B WHCHOP LITERAL ILLEGAL OPND 4 1214 B S54 86 620 5 52 ENDALF SBR WAREA3 PICKUP LITERAL AND 4 1218 H A15 86 621 5 53 S &VALUE&2,WAREA3 MOVE TO FREE FORM 7 1222 S ?65 A15 86 622 5 54 ZS WAREA3 AREA 4 1229 ! A15 86 &BAR44094M?621K1BS54HA15S?65A15!A15 L034S32,S00S07,S14S18,S22S29104000863735L 623 5 55 A WAREA3,XL1 7 1233 A A15 089 87 624 5 56 A WAREA3,XL2 7 1240 A A15 094 87 625 5 57 MCW INPUT&17&X1,FREE&21&X2 7 1247 M 3U9 1K1 87 626 5 58 WHCHOP C XL1,@011@ EXIT ON BASIS OF WHICH 7 1254 C 089 ?37 87 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 627 5 59 BH CKB OPERAND ACTING UPON 5 1261 B 874 U 87 628 5 60 B CKOP 4 1266 B 922 87 &AA15089AA15094M3U91K1C089?37B874UB922 L037S69,S40S47,S54S61,S66040104000873735L 629 5 61 ABSFIX BCE SAMFIX,INPUT&16, PRINT OUT MESSAGE ONLY 8 1270 B T28 348 88 630 5 62 MCW INPUT&16,FREE&19 ONCE THAT ACTUAL OPS 7 1278 M 348 119 88 631 5 63 MCW INPUT&39,FREE&20 ARE PRESENT IN FIXED 7 1285 M 371 120 88 632 5 64 SW1 NOP SETABS FORM IMAGES 4 1292 N T20 88 633 5 65 CS 332 THIS ACCOUNTS FOR 4 1296 / 332 88 634 5 66 CS THE POSSIBILITY THAT 1 1300 / 88 635 5 67 MCW @ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES@,270 7 1301 M A09 270 88 &BT28348 M348119M371120NT20/332/MA09270 L038T07,S78S85,S92S96,T00T01104000883735L 636 5 68 CC 1 THE USER FORGOT TO 2 1308 F 1 89 637 5 69 W USE AN ENTER 1 1310 2 89 638 5 70 CC 1 AUTOCODER STATEMENT 2 1311 F 1 89 639 5 71 MCW @B@,SW1 WHEN RETURNING TO 7 1313 M R76 S92 89 640 5 72 SETABS SW ABSW#1 FREE FORM 4 1320 , A10 89 641 5 73 B TLUFIX 4 1324 B 828 89 642 5 74 SAMFIX MCW SAVOP,FREE&20 PROCESS SAME OP CODE 7 1328 M R88 120 89 &F12F1MR76S92,A10B828MR88120 L027T34,T10T11,T13T20,T24T28104000893735L 643 5 75 MCW 1 1335 M 90 644 5 76 B TLUFIX 4 1336 B 828 90 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 90 649 5 81 S XL3&1 CONTROL OP AND GO TO 4 1348 S 100 90 650 5 82 MN EQVADD-1,XL3 APPROPRIATE ROUTINE 7 1352 D A68 099 90 651 5 83 A XL3 4 1359 A 099 90 652 5 84 A XL3 4 1363 A 099 90 &MB828V854A691S100DA68099A099A099 L032T66,T36T40,T48T52,T59T63104000903735L 653 5 85 B *&1&X3 4 1367 B TG1 91 654 5 86 B BADOP DA ILLEGAL IN FIXED FM 4 1371 B P28 91 655 5 87 B DCWSTM GO TO CONSTANT RTN 4 1375 B U84 91 656 5 88 B ERHLT SHOULD NEVER OCCUR 4 1379 B U73 91 657 5 89 B ONEOP END, EX, XFR 4 1383 B X60 91 658 5 90 B ONEOP GO TO SUFFIX RTN 4 1387 B X60 91 659 5 91 B ERHLT SHOULD NEVER OCCUR 4 1391 B U73 91 &BTG1BP28BU84BU73BX60BX60BU73 L028T94,T71T75,T79T83,T87T91104000913735L 660 5 92 B CKLOR GO TO ORIGIN RTN 4 1395 B Y89 92 661 5 93 B DSTYP GO TO DS, EQU RTN 4 1399 B X88 92 662 5 94 B INSPC GO TO SPECIAL ROUTINE 4 1403 B U21 92 663 5 95 MCW INPUT&55,FREE&59 7 1407 M 387 159 92 664 5 96 MCW TO FREE FORM AREA 1 1414 M 92 665 5 97 MCW 1 1415 M 92 666 5 98 MCW 1 1416 M 92 &BY89BX88BU21M387159MMM L022U16,T99U03,U07U14,U15U16104000923735L 667 5 99 B ENDFIX 4 1417 B 626 93 668 6 00 INSPC BCE NOPND,INPUT&17, PROCESS 8 1421 B U62 349 93 669 6 01 MCW @B@,FREE&18 CC AND CCB AND SS 7 1429 M R76 118 93 670 6 02 MCW EQVADD-2,EQVADD AND SSB 7 1436 M A67 A69 93 671 6 03 LCA BLANK 4 1443 L A54 93 672 6 04 MCW EQVADD,FREE&15 7 1447 M A69 115 93 &B626BU62349 MR76118MA67A69LA54MA69115 L037U53,U21U29,U36U43,U47040104000933735L 673 6 05 MCW @ &@ 4 1454 M A12 94 674 6 06 B FIXINS 4 1458 B 854 94 675 6 07 NOPND MCW INPUT&39,FREE&21 PROCESS TWO CHARACTER 7 1462 M 371 121 94 676 6 08 B ENDFIX INSTRUCTIONS 4 1469 B 626 94 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 677 6 09 ERHLT H 0,301 SYSTEM ERROR HALT 7 1473 . 000 301 94 678 6 10 B ERHLT 4 1480 B U73 94 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 * 94 &MA12B854M371121B626.000301BU73BV51349* L038U91,U58U62,U69U73,U80U84104000943735L 683 6 15 A BLANK,INPUT&17 ASSURE NOT BLANK 7 1492 A A54 349 95 684 6 16 MCW FREE&18,WAREA6#6 GENERATE EQUATE 7 1499 M 118 A18 95 685 6 17 MCW FOR DCW ACTUAL 1 1506 M 95 686 6 18 MCW @EQU@,FREE&18 7 1507 M A21 118 95 687 6 19 MCW @&P @ 4 1514 M A24 95 688 6 20 MCW INPUT&21,FREE&25 7 1518 M 353 125 95 689 6 21 B PUT 4 1525 B 586 95 &AA54349M118A18MMA21118MA24M353125B586 L037V28,U99V06,V07V14,V18V25104000953735L 690 6 22 MCW FREE&74,FREE&73 7 1529 M 174 173 96 691 6 23 MCW INPUT&22,FREE&11 GENERATE FREE FORM 7 1536 M 354 111 96 692 6 24 MCW WAREA6,FREE&18 DCW ACTUAL 7 1543 M A18 118 96 693 6 25 MCW 1 1550 M 96 694 6 26 DCWTYP CW INPUT&40,INPUT&39 REMOVE WORD MARKS 7 1551 ) 372 371 96 695 6 27 CW INPUT&28 4 1558 ) 360 96 &M174173M354111MA18118M)372371)360 L033V61,V36V43,V50V51,V58040104000963735L 696 6 28 BCE DSARTN,FREE&14,J Q. DSA STATEMENT 8 1562 B X15 114 J 97 697 6 29 BCE KNOWN,INPUT&23,& Q. IS THE LENGTH OF 8 1570 B W69 355 & 97 698 6 30 BCE KNOWN,INPUT&23,- THE CONSTANT TO BE 8 1578 B W69 355 - 97 699 6 31 BCE KNOWN,INPUT&23,@ COMPUTED BY THE 8 1586 B W69 355 @ 97 700 6 32 MN INPUT&7,XL1 PROCESSOR 7 1594 D 339 089 97 &BX15114JBW69355&BW69355-BW69355@D339089L039W00,V70V78,V86V94,040040104000973735L 701 6 33 MN 1 1601 D 98 702 6 34 A BLANK,XL1 7 1602 A A54 089 98 703 6 35 C XL1,@032@ Q. COUNT GT 32 OR 7 1609 C 089 A27 98 704 6 36 BL CORERR LT ZERO. IF 5 1616 B W80 T 98 705 6 37 C XL1,@000@ ERROR ATTEMPT TO 7 1621 C 089 A30 98 706 6 38 BE CORERR PROCESS RECORD ANYWAY 5 1628 B W80 S 98 707 6 39 RTNDCW MCW INPUT&23&X1,FREE&21&X1 CONSTANT TO FREE FORM 7 1633 M 3V5 1S1 98 &DAA54089C089A27BW80TC089A30BW80SM3V51S1L039W39,W02W09,W16W21,W28W33104000983735L 708 6 40 MCW @@@,FREE&21 ENCLOSE DCW WITHIN 7 1640 M A31 121 99 709 6 41 MCW @@@,FREE&22&X1 AT SIGNS 7 1647 M A31 1S2 99 710 6 42 RSTWM SW INPUT&40,INPUT&39 RESET WORD MARKS 7 1654 , 372 371 99 711 6 43 SW INPUT&28 4 1661 , 360 99 712 6 44 B ENDFIX 4 1665 B 626 99 713 6 45 KNOWN MCW INPUT&55,FREE&53 PICKUP ENTIRE DCW AREA 7 1669 M 387 153 99 &MA31121MA311S2,372371,360B626M387153 L036W75,W47W54,W61W65,W69040104000993735L 714 6 46 B RSTWM 4 1676 B W54 100 715 6 47 CORERR S XL1&1 4 1680 S 090 100 716 6 48 LPERR BCE RTNDCW,INPUT&24&X1, SCAN FOR FIRST BLANK 8 1684 B W33 3V6 100 717 6 49 A &1,XL1 IN ATTEMPT TO CORRECT 7 1692 A R44 089 100 718 6 50 C XL1,@52@ Q) END OF RECORD 7 1699 C 089 A33 100 719 6 51 BE RTNDCW 5 1706 B W33 S 100 720 6 52 B LPERR 4 1711 B W84 100 721 6 53 * 722 6 54 * PROCESS DSA STATEMENTS 723 6 55 * &BW54S090BW333V6 AR44089C089A33BW33SBW84L039X14,W80W84,W92W99,X06X11104001003735L 724 6 56 DSARTN S XL2&2 PICKUP FIXED FORM DSA 4 1715 S 096 101 725 6 57 MCW @011@,XL1 AND PLACE IN FREE FOR 7 1719 M ?37 089 101 726 6 58 B SCAN FORM AREA 4 1726 B Z09 101 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 727 6 59 MCW FREE&72,FREE&73 IF UNSIGNED MAKE SIGN 7 1730 M 172 173 101 728 6 60 MCW @&@ PLUS 4 1737 M ?60 101 729 6 61 BCE RSTWM,INPUT&27, Q. NO SIGN 8 1741 B W54 359 101 &S096M?37089BZ09M172173M?60BW54359 L034X48,X19X26,X30X37,X41040104001013735L 730 6 62 MCW INPUT&27,FREE&21 SIGN ADDRESS CONSTANT 7 1749 M 359 121 102 731 6 63 B RSTWM 4 1756 B W54 102 732 6 64 ONEOP B *&5,INPUT&17, PROCESS THOSE 8 1760 B X72 349 102 733 6 65 B SCAN INSTRUCTIONS 4 1768 B Z09 102 734 6 66 C @3 @,EQVADD THAT ONLY HAVE ONE OP 7 1772 C ?01 A69 102 735 6 67 BE PREOJ IF END CARD GOT TO EOJ 5 1779 B Q67 S 102 736 6 68 B ENDFIX 4 1784 B 626 102 737 6 69 * 738 6 70 * PROCESS DS, EQU STATEMENTS 739 6 71 * &M359121BW54BX72349 BZ09C?01A69BQ67SB626L039X87,X56X60,X68X72,X79X84104001023735L 740 6 72 DSTYP BCE DSACT,INPUT&17,* IF DS IS REALLY AN 8 1788 B Y33 349 * 103 741 6 73 BCE *&5,INPUT&17, EQU CHANGE OP 8 1796 B Y08 349 103 742 6 74 B *&8 CODE. ASSURE 4 1804 B Y15 103 743 6 75 NOP BLANK,INPUT&17 OPERAND NOT BLANK 7 1808 N A54 349 103 744 6 76 DOEQU MCW @EQU@,FREE&18 7 1815 M A21 118 103 &BY33349*BY08349 BY15NA54349MA21118 L034Y21,X96Y04,Y08Y15,040040104001033735L 745 6 77 MCW @P@,FREE&14 7 1822 M A34 114 104 746 6 78 B ONEOP 4 1829 B X60 104 747 6 79 DSACT SW INPUT&6 PROCESS DS ACTUAL 4 1833 , 338 104 748 6 80 A BLANK,INPUT&7 7 1837 A A54 339 104 749 6 81 CW INPUT&6 4 1844 ) 338 104 750 6 82 C INPUT&7,@00@ Q. NO COUNT 7 1848 C 339 A36 104 751 6 83 BE DOEQU 5 1855 B Y15 S 104 &MA34114BX60,338AA54339)338C339A36BY15S L038Y59,Y29Y33,Y37Y44,Y48Y55104001043735L 752 6 84 MCW INPUT&7,FREE&22 7 1860 M 339 122 105 753 6 85 B ENDFIX 4 1867 B 626 105 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 105 758 6 90 CHAIN 7 MACRO 759 MCW 1 1878 M GEN 105 760 MCW 1 1879 M GEN 105 761 MCW 1 1880 M GEN 105 762 MCW 1 1881 M GEN 105 &M339122B626M387153MMMM L022Y81,Y67Y71,Y78Y79,Y80Y81104001053735L 763 MCW 1 1882 M GEN 106 764 MCW 1 1883 M GEN 106 765 MCW 1 1884 M GEN 106 766 6 91 B ENTSPS 4 1885 B 626 106 767 6 92 * 768 6 93 * PROCESS ORIGIN, LTORG STATEMENTS 769 6 94 * 770 6 95 CKLOR BCE ONEOP,FREE&16,O CHANGE MNEMONIC TO 8 1889 B X60 116 O 106 771 6 96 MCW @LTORG@,FREE&20 -LTORG- IF LITERAL 7 1897 M A41 120 106 772 6 97 MCW ORG STATEMENT 1 1904 M 106 &MMMB626BX60116OMA41120M L023Z04,Y83Y84,Y85Y89,Y97Z04104001063735L 773 6 98 B ONEOP 4 1905 B X60 107 774 6 99 * 775 7 00 *SCAN ROUTINE WHICH CONVERTS FIXED FORM RECORDS INTO FREE FORM 776 7 01 * 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 777 7 02 SCAN SBR SCNXT&3 4 1909 H J20 107 778 7 03 S XL3&1 RESET INDEX 3 4 1913 S 100 107 779 7 04 LOOP1 BCE CK1BK,INPUT&18&X1, Q. BLANK CHARACTER 8 1917 B Z62 3V0 107 780 7 05 CXL1 C XL3,@05@ Q. END OF ADDRESS 7 1925 C 099 A43 107 781 7 06 BE NDOPD 5 1932 B Z86 S 107 782 7 07 A &1,XL1 INCREASE ALL INDEX 7 1937 A R44 089 107 &BX60HJ20S100BZ623V0 C099A43BZ86SAR44089L039Z43,Z09Z13,Z17Z25,Z32Z37104001073735L 783 7 08 A &1,XL2 REGISTERS 7 1944 A R44 094 108 784 7 09 A &1,XL3 7 1951 A R44 099 108 785 7 10 B LOOP1 4 1958 B Z17 108 786 7 11 CK1BK C XL3,@04@ TOLERATE ONE BLANK 7 1962 C 099 A45 108 787 7 12 BE NDOPD IN ADDRESS 5 1969 B Z86 S 108 788 7 13 BCE *&5,INPUT&19&X1, 8 1974 B Z86 3V1 108 &AR44094AR44099BZ17C099A45BZ86SBZ863V1 L038Z81,Z51Z58,Z62Z69,Z74040104001083735L 789 7 14 B CXL1 4 1982 B Z25 109 790 7 15 NDOPD MCW INPUT&17&X1,FREE&21&X2 MOVE ADDRESS PORTION 7 1986 M 3U9 1K1 109 791 7 16 C XL1,@011@ TO FREE FORM AREA 7 1993 C 089 ?37 109 792 7 17 S XL1&2 4 2000 S 091 109 793 7 18 BH *&8 5 2004 B !16 U 109 794 7 19 MCW @011@,XL1 7 2009 M ?37 089 109 &BZ25M3U91K1C089?37S091B!16UM?37089 L034!15,Z86Z93,!00!04,!09040104001093735L 795 7 20 BCE CKLIT2,INPUT&23&X1, Q. NO CHARACTER ADJ 8 2016 B J88 3V5 110 796 7 21 BWZ MKMIN,INPUT&23&X1,K ASSURE CHAR ADJ 8 2024 V J21 3V5 K 110 797 7 22 MCW @&@,INPUT&23&X1 & OR - 7 2032 M ?60 3V5 110 798 7 23 RTN2 SW INPUT&24&X1,INPUT&23&X1 PROCESS CHARACTER 7 2039 , 3V6 3V5 110 799 7 24 A BLANK,INPUT&26&X1 ADJUSTMENT 7 2046 A A54 3V8 110 &BJ883V5 VJ213V5KM?603V5,3V63V5AA543V8 L037!52,!24!32,!39!46,040040104001103735L 800 7 25 A &4,XL2 7 2053 A A46 094 111 801 7 26 MCW INPUT&26&X1,FREE&21&X2 7 2060 M 3V8 1K1 111 802 7 27 MCW 1 2067 M 111 803 7 28 CW INPUT&24&X1,INPUT&23&X1 7 2068 ) 3V6 3V5 111 804 7 29 NOADJ BCE FIXLIT,INPUT&17&X1,& Q. LITERAL 8 2075 B J32 3U9 & 111 805 7 30 BCE FIXLIT,INPUT&17&X1,- 8 2083 B J32 3U9 - 111 &AA46094M3V81K1M)3V63V5BJ323U9&BJ323U9- L038!90,!60!67,!68!75,!83040104001113735L 806 7 31 BCE SCNXT,INPUT&27&X1, Q. INDEXING 8 2091 B J17 3V9 112 807 7 32 A &3,XL2 PROCESS INDEXING 7 2099 A A47 094 112 808 7 33 MN INPUT&27&X1,FREE&21&X2 7 2106 D 3V9 1K1 112 809 7 34 MCW @&X@ 4 2113 M A49 112 810 7 35 SCNXT B XXXX EXIT 4 2117 B 000 112 811 7 36 MKMIN MCW @-@,INPUT&23&X1 SET CHAR ADJ SIGN 7 2121 M A50 3V5 112 &BJ173V9 AA47094D3V91K1MA49B000MA503V5 L037J27,!99J06,J13J17,J21040104001123735L 812 7 37 B RTN2 TO MINUS 4 2128 B !39 113 813 7 38 FIXLIT BCE NOT11,INPUT&27&X1, PROCESS REMAINDER OF 8 2132 B J58 3V9 113 814 7 39 A &1,XL2 FIXED FORM NUMERIC 7 2140 A R44 094 113 815 7 40 MN INPUT&27&X1,FREE&21&X2 LITERAL 7 2147 D 3V9 1K1 113 816 7 41 B SCNXT 4 2154 B J17 113 817 7 42 NOT11 BCE SUBT,INPUT&26&X1, 8 2158 B J70 3V8 113 &B!39BJ583V9 AR44094D3V91K1BJ17BJ703V8 L038J65,J32J40,J47J54,J58040104001133735L 818 7 43 B SCNXT 4 2166 B J17 114 819 7 44 SUBT A @I99@,XL1 7 2170 A A53 089 114 820 7 45 A @I99@,XL2 7 2177 A A53 094 114 821 7 46 B NOT11 4 2184 B J58 114 822 7 47 CKLIT2 BCE SCNXT,INPUT&17&X1,& Q. LITERAL 8 2188 B J17 3U9 & 114 823 7 48 BCE SCNXT,INPUT&17&X1,- 8 2196 B J17 3U9 - 114 &BJ17AA53089AA53094BJ58BJ173U9&BJ173U9- L038K03,J70J77,J84J88,J96040104001143735L 824 7 49 B NOADJ 4 2204 B !75 115 825 7 50 DCW 0 1 2208 115 826 7 51 SYSMK1 DCW @}@ SYSTEM GROUP MARK 1 2209 115 1 1401 AUTOCODER-PASS 3 PROCESS FIX FORM -VERSION 3 3735L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &B!750} L006K09,K08K09,040040,040040104001153735L & N000000,040040,040040,040040B00001163735L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01173735L &,068072)063067/061039 ,001001104001183735L 827 7 52 XFR 0 B 000 116 828 7 53 RTEND EQU * 2209 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 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 119 835 7 60 C FREE&18,BLANK3#3 Q. ACTUAL 7 2469 C 118 A56 119 836 7 61 BE ABSCOD OP CODE 5 2476 B P55 S 119 837 7 62 MLC FREE&18,XL2 7 2481 M 118 094 119 838 7 63 A FREE&18,XL2-1 7 2488 A 118 093 119 839 7 64 A FREE&18,XL2-2 7 2495 A 118 092 119 &HO46C118A56BP55SM118094A118093A118092 L037N01,M69M76,M81M88,M95040104001193733L 840 7 65 A FREE&16,XL2 TABLE LOOKUP 7 2502 A 116 094 120 841 7 66 SUB1 S &5500,XL2&1 USES ADDRESS 7 2509 S A60 095 120 842 7 67 BWZ SUB1,XL2&1,B CONVERSION TECHNIQUE 8 2516 V N09 095 B 120 843 7 68 MLCWA OPND-549&X2,EQVADD#9 7 2524 L BN9 A69 120 844 7 69 SAR GETOP&3 4 2531 Q N42 120 845 7 70 S XL2&2 4 2535 S 096 120 &A116094SA60095VN09095BLBN9A69QN42S096 L037N38,N09N16,N24N31,N35040104001203733L 846 7 71 GETOP MLCWA XXXX,EQVADD SEARCH TABLE FOR 7 2539 L 000 A69 121 847 7 72 SAR GETOP&3 MNEMONIC 4 2546 Q N42 121 848 7 73 BCE BADOP,EQVADD,@ Q. OP NOT IN TABLE 8 2550 B P28 A69 @ 121 849 7 74 C EQVADD,FREE&18 Q. OP CODE FOUND 7 2558 C A69 118 121 850 7 75 BU GETOP 5 2565 B N39 / 121 851 7 76 LCA EQVADD-3,EQVADD SHIFT TABLE FUNCTION 7 2570 L A66 A69 121 &L000A69QN42BP28A69@CA69118BN39/LA66A69 L038N76,N46N50,N58N65,N70040104001213733L 852 7 77 C @N @,EQVADD Q. ENTER CARD 7 2577 C A71 A69 122 853 7 78 BE ENTER 5 2584 B O47 S 122 854 7 79 C EQVADD,@B @ Q.MLC, MLCWA TYPE 7 2589 C A69 A73 122 855 7 80 BE SPECIN 5 2596 B O83 S 122 856 7 81 C EQVADD,@2 @ Q. RAMAC INSTN 7 2601 C A69 A75 122 857 7 82 BE SPECIN 5 2608 B O83 S 122 &CA71A69BO47SCA69A73BO83SCA69A75BO83S L036O12,N84N89,N96O01,O08040104001223733L 858 7 83 SAVCOD MCW EQVADD,FREE&15 PLACE TABLE FUNCTION 7 2613 M A69 115 123 859 7 84 SBR XL3 ON RECORD PRECEDED BY 4 2620 H 099 123 860 7 85 C XL3,&FREE&11 A PLUS SIGN 7 2624 C 099 A78 123 861 7 86 BE *&8 5 2631 B O43 S 123 862 7 87 MCW @&@,000&X3 7 2636 M ?60 0?0 123 863 7 88 TLUXT B XXXX EXIT 4 2643 B 000 123 &MA69115H099C099A78BO43SM?600?0B000 L034O46,O20O24,O31O36,O43040104001233733L 864 7 89 ENTER C FREE&23,@SPS@ DETERMINE TYPE OF 7 2647 C 123 A81 124 865 7 90 BE GTFIX ENTER CARD AND 5 2654 B 464 S 124 866 7 91 C INPUT&20,@AUTO@ GO TO APPROPRIATE 7 2659 C 352 A85 124 867 7 92 BE GTFRE ROUTINE 5 2666 B 503 S 124 868 7 93 BW PSTNU,MODESW 8 2671 V 630 ?02 1 124 869 7 94 B RSTMOD 4 2679 B 638 124 &C123A81B464SC352A85B503SV630?021B638 L036O82,O54O59,O66O71,O79040104001243733L 870 7 95 SPECIN BWZ MLCTYP,EQVADD-1,B Q. MLC TYPE 8 2683 V P17 A68 B 125 871 7 96 LCA EQVADD-2,EQVADD 7 2691 L A67 A69 125 872 7 97 CKEL BCE SAVCOD,FREE&19, Q. SHOULD OP BE -L- 8 2698 B O13 119 125 873 7 98 MCW @L@,EQVADD MAKE OP CODE -L- 7 2706 M A86 A69 125 874 7 99 B SAVCOD 4 2713 B O13 125 &VP17A68BLA67A69BO13119 MA86A69BO13 L034P16,O91O98,P06P13,040040104001253733L 875 8 00 MLCTYP LCA @M@,EQVADD MAKE OP -M- 7 2717 L A87 A69 126 876 8 01 B CKEL 4 2724 B O98 126 877 8 02 * 878 8 03 * PROCESS ILLEGAL OPERATION CODE 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 879 8 04 * 880 8 05 BADOP LCA BLANK,EQVADD MAKE OP BLANK 7 2728 L A54 A69 126 881 8 06 BW SAVCOD,FREESW Q. IN FREE FORM MODE 8 2735 V O13 H09 1 126 882 8 07 BW CKFF,MODESW Q. IN FREE FORM MODE 8 2743 V Q01 ?02 1 126 883 8 08 B SAVCOD 4 2751 B O13 126 &LA87A69BO98LA54A69VO13H091VQ01?021BO13 L038P54,P24P28,P35P43,P51040104001263733L 884 8 09 ABSCOD BCE SAVCOD,FREE&19, 8 2755 B O13 119 127 885 8 10 LCA BLANK,EQVADD PROCESS ACTUAL OP 7 2763 L A54 A69 127 886 8 11 MCW FREE&19,EQVADD CODES 7 2770 M 119 A69 127 887 8 12 BCE SAVCOD,FREE&20, 8 2777 B O13 120 127 888 8 13 CW EQVADD 4 2785 ) A69 127 889 8 14 SW 1 2789 , 127 &BO13119 LA54A69M119A69BO13120 )A69, L035P89,P63P70,P77P85,P89040104001273733L 890 8 15 MCW FREE&20,EQVADD-1 7 2790 M 120 A68 128 891 8 16 B SAVCOD 4 2797 B O13 128 892 8 17 CKFF BCE SAVCOD,FREE&14, IF RECORD APPEARS TO B 8 2801 B O13 114 128 893 8 18 MCW FREE&80,INPUT&80 BE FIXED FORM RECORD 7 2809 M 180 412 128 894 8 19 CHAIN 9 MACRO 895 MCW 1 2816 M GEN 128 896 MCW 1 2817 M GEN 128 897 MCW 1 2818 M GEN 128 &M120A68BO13BO13114 M180412MMM L029Q18,P97Q01,Q09Q16,Q17Q18104001283733L 898 MCW 1 2819 M GEN 129 899 MCW 1 2820 M GEN 129 900 MCW 1 2821 M GEN 129 901 MCW 1 2822 M GEN 129 902 MCW 1 2823 M GEN 129 903 MCW 1 2824 M GEN 129 904 8 20 CS 332 4 2825 / 332 129 &MMMMMM/332 L010Q28,Q20Q21,Q22Q23,Q24Q25104001293733L 905 8 21 CS 1 2829 / 130 906 8 22 MCW FREE&80,PRINT&80 7 2830 M 180 280 130 907 8 23 CHAIN 4 MACRO 908 MCW 1 2837 M GEN 130 909 MCW 1 2838 M GEN 130 910 MCW 1 2839 M GEN 130 911 MCW 1 2840 M GEN 130 912 8 24 MCW @PROCESSING AS FIXED FORM RECORD@,332 7 2841 M B18 332 130 &/M180280MMMMMB18332 L019Q47,Q30Q37,Q38Q39,Q40Q41104001303733L 913 8 25 W 1 2848 2 131 914 8 26 SW FREESW 4 2849 , H09 131 915 8 27 BCV RESTR 5 2853 B Q62 @ 131 916 8 28 B GTFIX 4 2858 B 464 131 917 8 29 RESTR CCB GTFIX, 1 5 2862 F 464 1 131 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 131 922 8 34 EOJ B PUT PUT END CARD 4 2875 B 586 131 &2,H09BQ62@B464F4641L%U1626RB586 L031Q78,Q49Q53,Q58Q62,Q67Q75104001313733L 923 8 35 WTM OUTAPE WRITE TAPE MARK 5 2879 U %U4 M 132 924 8 36 MESSG @PASS 3 COMPLETED@,60,K,1 MACRO 925 01 CC K 2 2884 F K GEN 132 926 02 CS 332 4 2886 / 332 GEN 132 927 03 CS 1 2890 / GEN 132 928 04 MCW @PASS 3 COMPLETED@,60&200 7 2891 M B34 260 GEN 132 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 929 05 W 1 2898 2 GEN 132 930 06 CC 1 2 2899 F 1 GEN 132 &U%U4MFK/332/MB342602F1 L022R00,Q84Q86,Q90Q91,Q98Q99104001323733L 931 8 37 CW SYSMK1 CLEAR GROUP MK W/ WM 4 2901 ) K09 133 932 8 38 CW GMK1,GMK2 7 2905 ) I89 187 133 933 8 39 RTW SYSTAP,OVL2 8 2912 L %U1 626 R 133 934 8 40 RTW SYSTAP,085 READ IN PASS 4 8 2920 L %U1 085 R 133 935 8 41 NOP 0 4 2928 N 000 133 936 8 42 BER TPERR 5 2932 B K10 L 133 &)K09)I89187L%U1626RL%U1085RN000BK10L L036R36,R05R12,R20R28,R32040104001333733L 937 8 43 B PASSB2 GO TO NEXT PASS 4 2937 B 200 134 938 8 44 LTORG * 2941 352 DCW &INAREA&12 3 2943 I15 ADCON 134 &1 1 2944 LIT 134 @CHA@ 3 2947 LIT 134 @S@ 1 2948 LIT 134 @Z@ 1 2949 LIT 134 &00 2 2951 LIT 134 &B200I15ACHASZ0? L015R51,R41R44,R45R48,R49R50104001343733L 406 HLDCD #01 1 2952 AREA 135 @C@ 1 2953 LIT 135 @Y@ 1 2954 LIT 135 @&1 @ 3 2957 LIT 135 428 @EQU @ 5 2962 LIT 135 430 @$HIVAL &P @ 10 2972 LIT 135 432 &NUREC 3 2975 626 ADCON 135 & CY&1 EQU $HIVAL &P 626 L024R75,R53R54,R55R58,R63R73104001353733L @B@ 1 2976 LIT 136 @ @ 3 2979 LIT 136 445 SAVOP #09 9 2988 AREA 136 447 @$HIVAL@ 6 2994 LIT 136 450 @$P @ 5 2999 LIT 136 @3 @ 2 3001 LIT 136 484 MODESW #01 1 3002 AREA 136 &B $HIVAL$P 3 L027?02,R77R80,R89R95,?00?02104001363733L 536 @ILLEGAL LABEL - SEQUENCE NUMBER@ 31 3033 LIT 137 @,@ 1 3034 LIT 137 @011@ 3 3037 LIT 137 @B @ 3 3040 LIT 137 &ILLEGAL LABEL - SEQUENCE NUMBER,011B L038?40,?34?35,?38040,040040104001373733L @ B@ 3 3043 LIT 138 @NOP@ 3 3046 LIT 138 @BCE@ 3 3049 LIT 138 @BIN@ 3 3052 LIT 138 @& B@ 3 3055 LIT 138 &5 1 3056 LIT 138 @BSS@ 3 3059 LIT 138 & BNOPBCEBIN& BEBSS L019?59,?44?47,?50?53,?56?57104001383733L @&@ 1 3060 LIT 139 @$$@ 2 3062 LIT 139 621 &VALUE&2 3 3065 S02 ADCON 139 &&$$S02 L006?65,?61?63,040040,040040104001393733L &ACTUAL OP CODES PRESENT IN FIXED FORM IL039A04,040040,040040,040040104001403733L 635 @ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES@ 44 3109 LIT 141 640 ABSW #01 1 3110 AREA 141 @ &@ 2 3112 LIT 141 684 WAREA6 #06 6 3118 AREA 141 @EQU@ 3 3121 LIT 141 &MAGES & EQU L017A21)A05A05,A10A11,A13A19104001413733L @&P @ 3 3124 LIT 142 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 @032@ 3 3127 LIT 142 @000@ 3 3130 LIT 142 @@@ 1 3131 LIT 142 @52@ 2 3133 LIT 142 @P@ 1 3134 LIT 142 @00@ 2 3136 LIT 142 &&P 032000@52P00 L015A36,A25A28,A31A32,A34A35104001423733L 771 @LTORG@ 5 3141 LIT 143 @05@ 2 3143 LIT 143 @04@ 2 3145 LIT 143 &4 1 3146 LIT 143 &3 1 3147 LIT 143 @&X@ 2 3149 LIT 143 @-@ 1 3150 LIT 143 <ORG0504DC&X- L014A50,A42A44,A46A47,A48A50104001433733L @I99@ 3 3153 LIT 144 835 BLANK3 #03 3 3156 AREA 144 &5500 4 3160 LIT 144 843 EQVADD #09 9 3169 AREA 144 @N @ 2 3171 LIT 144 @B @ 2 3173 LIT 144 @2 @ 2 3175 LIT 144 &I99 550? N B 2 L025A75,A54A57,A61A70,A72A74104001443733L 860 &FREE&11 3 3178 111 ADCON 145 @SPS@ 3 3181 LIT 145 @AUTO@ 4 3185 LIT 145 @L@ 1 3186 LIT 145 @M@ 1 3187 LIT 145 &111SPSAUTOLM L012A87,A79A82,A86A87,040040104001453733L 912 @PROCESSING AS FIXED FORM RECORD@ 31 3218 LIT 146 &PROCESSING AS FIXED FORM RECORD L031B18,040040,040040,040040104001463733L 928 @PASS 3 COMPLETED@ 16 3234 LIT 147 939 8 45 * 940 8 46 *TABLE OF MNEMONIC OPERATION CODES 941 8 47 * 942 8 48 ORG 3253 3253 &PASS 3 COMPLETED L016B34,040040,040040,040040104001473733L 943 8 49 DCW @@@ 1 3253 148 944 8 50 DCW #4 4 3257 148 945 8 51 DCW #2 2 3259 148 946 8 52 DCW @NNOP@ 4 3263 148 947 8 53 DCW @C XFR@ 5 3268 148 948 8 54 DCW @O LOR@ 5 3273 148 949 8 55 DCW @I JOB@ 5 3278 148 &@ NNOPC XFRO LORI JOB L026B78,B54B58,B60B64,B69B74104001483733L 950 8 56 DCW @/CS @ 4 3282 149 951 8 57 DCW @0 DA @ 5 3287 149 952 8 58 DCW @S2WSS@ 5 3292 149 953 8 59 MASYM DCW @#MA @ 4 3296 149 954 8 60 DCW @3 END@ 5 3301 149 955 8 61 DCW @PMCM@ 4 3305 149 956 8 62 DCW @N ENT@ 5 3310 149 &/CS 0 DA S2WSS#MA 3 ENDPMCMN ENT L032C10,B83B88,B93B97,C02C06104001493733L 957 8 63 DCW @BRMRTB@ 6 3316 150 958 8 64 DCW @ABBLC@ 5 3321 150 959 8 65 DCW @ @ 1 3322 150 960 8 66 DCW @BMMBC@ 5 3327 150 961 8 67 DCW @%D @ 4 3331 150 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 962 8 68 DCW @F3WM2 WDC@ 9 3340 150 963 8 69 DCW @ FCCB@ 5 3345 150 &BRMRTBABBLC BMMBC%D F3WM2 WDC FCCB L035C45,C17C22,C23C28,C32C41104001503733L 964 8 70 DCW @S1DUDCR@ 7 3352 151 965 8 71 DCW @YMLZ@ 4 3356 151 966 8 72 DCW @@M @ 4 3360 151 967 8 73 DCW @UEUSKP@ 6 3366 151 968 8 74 DCW @O ORG@ 5 3371 151 969 8 75 DCW @HSBR@ 4 3375 151 970 8 76 DCW @K8 SS @ 6 3381 151 &S1DUDCRYMLZ@M UEUSKPO ORGHSBRK8 SS L036C81,C53C57,C61C67,C72C76104001513733L 971 8 77 DCW @YMZ @ 4 3385 152 972 8 78 DCW @ @ 1 3386 152 973 8 79 DCW @)CW @ 4 3390 152 974 8 80 DCW @UWLWTW@ 6 3396 152 975 8 81 DCW @B MLC@ 5 3401 152 976 8 82 DCW @ZMCS@ 4 3405 152 977 8 83 DCW @UWMWT @ 6 3411 152 &YMZ )CW UWLWTWB MLCZMCSUWMWT L030D11,C86C87,C91C97,D02D06104001523733L 978 8 84 DCW @MMCW@ 4 3415 153 979 8 85 DCW @F2WM2 WDT@ 9 3424 153 980 8 86 DCW @QSAR@ 4 3428 153 981 8 87 DCW @R6WRF@ 5 3433 153 982 8 88 DCW @S1EUECR@ 7 3440 153 983 8 89 DCW @8SRF@ 4 3444 153 984 8 90 DCW @)2WM @ 5 3449 153 &MMCWF2WM2 WDTQSARR6WRFS1EUECR8SRF)2WM L038D49,D16D25,D29D34,D41D45104001533733L 985 8 91 DCW @1VBW @ 5 3454 154 986 8 92 DCW @9BBC9@ 5 3459 154 987 8 93 DCW @1R @ 4 3463 154 988 8 94 DCW @URLRTW@ 6 3469 154 989 8 95 DCW @F1RMRD @ 7 3476 154 990 8 96 DCW @F1RLRDW@ 7 3483 154 991 8 97 DCW @MMU @ 4 3487 154 &1VBW 9BBC91R URLRTWF1RMRD F1RLRDWMMU L038D87,D55D60,D64D70,D77D84104001543733L 992 8 98 DCW @VBWZ@ 4 3491 155 993 8 99 DCW @,SW @ 4 3495 155 994 9 00 DCW @RBBPC@ 5 3500 155 995 9 01 DCW @CC @ 4 3504 155 996 9 02 DCW @C4PCB@ 5 3509 155 997 9 03 DCW @DMLN@ 4 3513 155 998 9 04 DCW @UMUWTM@ 6 3519 155 &VBWZ,SW RBBPCCC C4PCBDMLNUMUWTM L032E19,D92D96,E01E05,E10E14104001553733L 999 9 05 DCW @EMCE@ 4 3523 156 1000 9 06 DCW @C EX @ 5 3528 156 1001 9 07 DCW @ UCU @ 5 3533 156 1002 9 08 DCW @ZBBAV@ 5 3538 156 1003 9 09 DCW @5RP @ 4 3542 156 1004 9 10 DCW @.H @ 4 3546 156 1005 9 11 DCW @LLU @ 4 3550 156 &EMCEC EX UCU ZBBAV5RP .H LLU L031E50,E24E29,E34E39,E43E47104001563733L 1006 9 12 DCW @BWMWTB@ 6 3556 157 1007 9 13 DCW @ KSSB@ 5 3561 157 1008 9 14 DCW @KBBEF@ 5 3566 157 1009 9 15 DCW @PMRC@ 4 3570 157 1010 9 16 DCW @UBUBSP@ 6 3576 157 1011 9 17 DCW @URMRT @ 6 3582 157 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 1012 9 18 DCW @SBBE @ 5 3587 157 &BWMWTB KSSBKBBEFPMRCUBUBSPURMRT SBBE L037E87,E57E62,E67E71,E77E83104001573733L 1013 9 19 DCW @3WR @ 4 3591 158 1014 9 20 DCW @SS @ 4 3595 158 1015 9 21 DCW @BB @ 4 3599 158 1016 9 22 DCW @1 DCW@ 5 3604 158 1017 9 23 DCW @WBBE@ 4 3608 158 1018 9 24 DCW @J DSA@ 5 3613 158 1019 9 25 DCW @LLCA@ 4 3617 158 &3WR SS BB 1 DCWWBBEJ DSALLCA L030F17,E92E96,F00F05,F09F14104001583733L 1020 9 26 DCW @A DC @ 5 3622 159 1021 9 27 DCW @F1WLWDW@ 7 3629 159 1022 9 28 DCW @7WRP@ 4 3633 159 1023 9 29 DCW @ BBIN@ 5 3638 159 1024 9 30 DCW @KVBM @ 5 3643 159 1025 9 31 DCW @PBBPB@ 5 3648 159 1026 9 32 DCW @9SPF@ 4 3652 159 &A DC F1WLWDW7WRP BBINKVBM PBBPB9SPF L035F52,F23F30,F34F39,F44F49104001593733L 1027 9 33 DCW @M SFX@ 5 3657 160 1028 9 34 DCW @4P @ 4 3661 160 1029 9 35 DCW @F0RMSD @ 7 3668 160 1030 9 36 DCW @@BBCV@ 5 3673 160 1031 9 37 DCW @!ZS @ 4 3677 160 1032 9 38 DCW @O LTO@ 5 3682 160 1033 9 39 DCW @P EQU@ 5 3687 160 &M SFX4P F0RMSD @BBCV!ZS O LTOP EQU L035F87,F58F62,F69F74,F78F83104001603733L 1034 9 40 DCW @ BBSS@ 5 3692 161 1035 9 41 DCW @F8 CC @ 6 3698 161 1036 9 42 DCW @AA @ 4 3702 161 1037 9 43 DCW @LBBER@ 5 3707 161 1038 9 44 DCW @/BBU @ 5 3712 161 1039 9 45 DCW @BBCE@ 4 3716 161 1040 9 46 DCW @UBBH @ 5 3721 161 & BBSSF8 CC AA LBBER/BBU BBCEUBBH L034G21,F93F99,G03G08,G13G17104001613733L 1041 9 47 DCW @TBBL @ 5 3726 162 1042 9 48 DCW @X DS @ 5 3731 162 1043 9 49 DCW @F2RM2 RDT@ 9 3740 162 1044 9 50 DCW @AMMBD@ 5 3745 162 1045 9 51 DCW @2W @ 4 3749 162 1046 9 52 DCW @F1WMWD @ 7 3756 162 1047 9 53 DCW @DMN @ 4 3760 162 &TBBL X DS F2RM2 RDTAMMBD2W F1WMWD DMN L039G60,G27G32,G41G46,G50G57104001623733L 1048 9 54 DCW @C1RCB@ 5 3765 163 1049 9 55 DCW @6WP @ 4 3769 163 1050 9 56 DCW @XMIZ@ 4 3773 163 1051 9 57 DCW #9 9 3782 163 1052 9 58 DCW #3 3 3785 163 1053 9 59 DCW @?ZA @ 4 3789 163 1054 9 60 DCW #1 1 3790 163 &C1RCB6WP XMIZ ?ZA L030G90,G66G70,G74G83,G86G90104001633733L 1055 9 61 DCW @UUURWU@ 6 3796 164 1056 9 62 DCW @URURWD@ 6 3802 164 1057 9 63 DCW @R4RF @ 5 3807 164 1058 9 64 OPND DCW #1 1 3808 164 1059 9 65 * 1060 9 66 * CONSTANTS AND TABLES 1061 9 67 * 1 1401 AUTOCODER-PASS 3 RIGHT MAIN LINE -VERSION 3 3733L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1062 9 68 FREESW DC 0 1 3809 164 1063 9 69 BINTBL DCW @BAV Z@ 5 3814 164 1064 9 70 DCW @BC9 9@ 5 3819 164 1065 9 71 DCW @BU /@ 5 3824 164 &UUURWUURURWDR4RF 0BAV ZBC9 9BU / L034H24,G97H03,H08H10,H15H20104001643733L 1066 9 72 DCW @BCV @@ 5 3829 165 1067 9 73 DCW @BE S@ 5 3834 165 1068 9 74 DCW @BEF K@ 5 3839 165 1069 9 75 DCW @BER L@ 5 3844 165 1070 9 76 DCW @BH U@ 5 3849 165 1071 9 77 DCW @BL T@ 5 3854 165 1072 9 78 DCW @BLC A@ 5 3859 165 &BCV @BE SBEF KBER LBH UBL TBLC A L035H59,H30H35,H40H45,H50H55104001653733L 1073 9 79 DCW @BPB P@ 5 3864 166 1074 9 80 DCW @BPCBR@ 5 3869 166 1075 9 81 DCW @BSS B@ 5 3874 166 1076 9 82 DCW @BSS C@ 5 3879 166 1077 9 83 DCW @BSS D@ 5 3884 166 1078 9 84 DCW @BSS E@ 5 3889 166 1079 9 85 DCW @BSS F@ 5 3894 166 &BPB PBPCBRBSS BBSS CBSS DBSS EBSS F L035H94,H65H70,H75H80,H85H90104001663733L 1080 9 86 DCW @BSS G@ 5 3899 167 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 167 &BSS G L005H99,I03040,040040,040040104001673733L DCW @}@ 1 3989 GMARK 168 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 &} L001I89,040040,040040,040040104001683733L & N000000,040040,040040,040040B00001693733L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01703741L &,068072)063067/061039 ,001001104001713741L 1095 10 01 EX LIBRN B 000 169 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 1096 10 02 JOB 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 1097 10 03 SFX Z 1098 10 04 * 1099 10 05 * INITIALIZATION OF INDEX LOCATIONS 1100 10 06 * 1101 10 07 ORG 085 Z 0085 1102 10 08 GRPMK1 DC @}@ Z 1 0085 172 1103 10 09 DC 0 Z 1 0086 172 1104 10 10 XL1 DCW 000 Z 3 0089 172 1105 10 11 DC 00 Z 2 0091 172 1106 10 12 XL2 DCW 000 Z 3 0094 172 1107 10 13 DC 00 Z 2 0096 172 1108 10 14 XL3 DCW 000 Z 3 0099 172 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 &}00000000000000 L015099)085085,087092,097040104001723741L 1115 10 21 GRPMK4 DC @}@ Z 1 0185 173 1116 10 22 ZONE DCW @2SKB@ Z 4 0189 173 1117 10 23 EXOVFL DCW 99 CONSTANTS USED IN Z 2 0191 173 1118 10 24 EXNUMB DCW 00 MAKING LITERAL LABELS Z 2 0193 173 1119 10 25 PROCOR DCW #1 Z 1 0194 173 &}2SKB9900 L010194)185185,186190,192194104001733741L 1120 10 26 TOTLBL DCW &0000 Z 4 0198 174 1121 10 27 JOBSW DCW 0 Z 1 0199 174 1122 10 28 * 1123 10 29 * READ IN CONTROL CARD OVERLAP 1124 10 30 * 1125 10 31 PASSB2 RTW SYSTAP,DOPROG Z 8 0200 L %U1 N75 R 174 1126 10 32 NOP 0 Z 4 0208 N 000 174 1127 10 33 BER TPERR Z 5 0212 B 221 L 174 1128 10 34 B START Z 4 0217 B N75 174 1129 10 35 * 1130 10 36 *TAPE REDUNDANCY ROUTINE 1131 10 37 * 1132 10 38 TPERR SBR XL3 Z 4 0221 H 099 174 &000?0L%U1N75RN000B221LBN75H099 L030224,199200,208212,217221104001743741L 1133 10 39 SBR REDXT&3 Z 4 0225 H 293 175 1134 10 40 MZ &9,XL3 Z 7 0229 Y 464 099 175 1135 10 41 MCW 4000-10&X3,TPINS&7 BRING IN INSTRUCTION Z 7 0236 M II0 284 175 1136 10 42 MN TPINS&3,BSP1&3 THAT COUSED Z 7 0243 D 280 260 175 1137 10 43 MCW TPINS&7,INST2&7 REDUNDANCY Z 7 0250 M 284 393 175 1138 10 44 BSP1 BSP INITAP BACKSPACE TAPE Z 5 0257 U %U0 B 175 &H293Y464099MII0284D280260M284393U%U0B L037261,229236,243250,257040104001753741L 1139 10 45 BCE WRTRD,TPINS&7,W Q. WRITE REDUNDANCY Z 8 0262 B 366 284 W 176 1140 10 46 MCW &9,RDCT#1 INITIALIZE COUNTER Z 7 0270 M 464 465 176 1141 10 47 TPINS RT INITAP,XXXX RE-READ Z 8 0277 M %U0 000 R 176 1142 10 48 BER RDERR Q. REDUNDANT AGAIN Z 5 0285 B 294 L 176 1143 10 49 REDXT B XXXX EXIT Z 4 0290 B 000 176 1144 10 50 RDERR MN TPINS&3,BSP2&3 Z 7 0294 D 280 304 176 &B366284WM464465M%U0000RB294LB000D280304L039300,270277,285290,294040104001763741L 1145 10 51 BSP2 BSP INITAP BACKSPACE AGAIN Z 5 0301 U %U0 B 177 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 27 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 177 1147 10 53 BWZ TPINS,RDCT,B Q. 10 SUCCESSIVE READS Z 8 0313 V 277 465 B 177 1148 10 54 MN TPINS&3,TPHLT&6 Z 7 0321 D 280 334 177 1149 10 55 TPHLT H XXXX,490 HALT Z 7 0328 . 000 490 177 &U%U0BS466465V277465BD280334.000490 L034334,306313,321328,040040104001773741L 1150 10 56 MCW TPINS&7,*&8 Z 7 0335 M 284 349 178 1151 10 57 RT INITAP,XXXX RE-READ Z 8 0342 M %U0 000 R 178 1152 10 58 BSS BSP1,E DETERMINE OPTION Z 5 0350 B 257 E 178 1153 10 59 H XXXX,402 HALT AGAIN Z 7 0355 . 000 402 178 1154 10 60 B REDXT EXIT Z 4 0362 B 290 178 1155 10 61 WRTRD SKP SYSTAP ERASE TAPE Z 5 0366 U %U1 E 178 &M284349M%U0000RB257E.000402B290U%U1E L036370,342350,355362,366040104001783741L 1156 10 62 BCE SBCTR,WRTCR-1,5 Q. FIFTY SKIPS Z 8 0371 B 403 467 5 179 1157 10 63 A &1,WRTCR#2 INCREASE COUNTER Z 7 0379 A 466 468 179 1158 10 64 INST2 WT INITAP,XXXX RE-WRITE Z 8 0386 M %U0 000 W 179 1159 10 65 BER BSP1 Q. REDUNDANT AGAIN Z 5 0394 B 257 L 179 1160 10 66 B REDXT Z 4 0399 B 290 179 1161 10 67 SBCTR S WRTCR RESET COUNTER Z 4 0403 S 468 179 &B4034675A466468M%U0000WB257LB290S468 L036406,379386,394399,403040104001793741L 1162 10 68 MN TPINS&3,*&7 Z 7 0407 D 280 420 180 1163 10 69 H XXXX,460 HALT Z 7 0414 . 000 460 180 1164 10 70 B INST2 Z 4 0421 B 386 180 1165 10 71 * 1166 10 72 * NOISE RECORD ROUTINE 1167 10 73 * 1168 10 74 NOISE SBR XL3 Z 4 0425 H 099 180 1169 10 75 SBR NSXT&3 Z 4 0429 H 463 180 1170 10 76 MZ &9,XL3 Z 7 0433 Y 464 099 180 &D280420.000460B386H099H463Y464099 L033439,414421,425429,433040104001803741L 1171 10 77 N2 BCE 4000-12&X3,XXXX,} SCAN FOR GROUP MARK Z 8 0440 B IH8 000 } 181 1172 10 78 CHAIN 12 MACRO 1173 BCE Z 1 0448 B GEN 181 1174 BCE Z 1 0449 B GEN 181 1175 BCE Z 1 0450 B GEN 181 1176 BCE Z 1 0451 B GEN 181 1177 BCE Z 1 0452 B GEN 181 1178 BCE Z 1 0453 B GEN 181 &BIH8000}BBBBBB L014453,448449,450451,452453104001813741L 1179 BCE Z 1 0454 B GEN 182 1180 BCE Z 1 0455 B GEN 182 1181 BCE Z 1 0456 B GEN 182 1182 BCE Z 1 0457 B GEN 182 1183 BCE Z 1 0458 B GEN 182 1184 BCE Z 1 0459 B GEN 182 1185 10 79 NSXT B XXXX Z 4 0460 B 000 182 1186 10 80 LTORG * Z 0464 &BBBBBBB000 L010463,455456,457458,459460104001823741L DCW &9 Z 1 0464 LIT 183 1140 RDCT #01 Z 1 0465 AREA 183 &1 Z 1 0466 LIT 183 1157 WRTCR #02 Z 2 0468 AREA 183 1187 10 81 * 1188 10 82 *END OF CONTROL CARD ANALYSIS, READ IN MAIN LINE 1189 10 83 * 1190 10 84 CWI98 CW 3998 Z 4 0469 ) I98 183 1191 10 85 SW JOBSW Z 4 0473 , 199 183 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1192 10 86 B PUT Z 4 0477 B 610 183 &I A )I98,199B610 L017480,465466,467469,473477104001833741L 1193 10 87 RTNJB CW JOBSW Z 4 0481 ) 199 184 1194 10 88 B WRTP Z 4 0485 B 578 184 1195 10 89 LDOPTB RTW SYSTAP,DOPROG READ IN MAIN LINE Z 8 0489 L %U1 N75 R 184 1196 10 90 NOP 0 OVERLAP Z 4 0497 N 000 184 1197 10 91 BER TPERR Z 5 0501 B 221 L 184 1198 10 92 CW GRPMK5,GRPMK8 Z 7 0506 ) N74 H99 184 1199 10 93 MLC @0@,FACTOR-3 Z 7 0513 M M83 H45 184 1200 10 94 * 1201 10 95 *START OF MAIN LINE 1202 10 96 * &)199B578L%U1N75RN000B221L)N74H99MM83H45L039519,485489,497501,506513104001843741L 1203 10 97 BYPASS B GET PROCESS BYPASSED CARDS Z 4 0520 B 538 185 1204 10 98 S XL3&1 Z 4 0524 S 100 185 1205 10 99 S Z 1 0528 S 185 1206 11 00 S Z 1 0529 S 185 1207 11 01 B CKCOM Z 4 0530 B 706 185 1208 11 02 * 1209 11 03 *BEGINNING OF NEW CARD ANALYSIS 1210 11 04 * 1211 11 05 NUREC B PUT PUT LAST RECORD Z 4 0534 B 610 185 1212 11 06 GET SBR GETXT&3 GET ROUTINE Z 4 0538 H 577 185 &B538S100SSB706B610H577 L022541,524528,529530,534538104001853741L 1213 11 07 CS INPUT&80 Z 4 0542 / 080 186 1214 11 08 SW INPUT&21 Z 4 0546 , 021 186 1215 11 09 SBR N2&6,INPUT&13 Z 7 0550 H 446 013 186 1216 11 10 RT INTAP,INPUT&1 READ TAPE Z 8 0557 M %U4 001 R 186 1217 11 11 B NOISE CHECK FOR NOISE Z 4 0565 B 425 186 1218 11 12 BER TPERR Z 5 0569 B 221 L 186 1219 11 13 GETXT B XXXX EXIT Z 4 0574 B 000 186 1220 11 14 * 1221 11 15 *IMAGE TO OUTPUT AREA 1222 11 16 * &/080,021H446013M%U4001RB425B221LB000 L036577,546550,557565,569574104001863741L 1223 11 17 WRTP SBR WRTXT&3 Z 4 0578 H 609 187 1224 11 18 WT OUTAP,OUTPUT&1 WRITE TAPE Z 8 0582 M %U5 I18 W 187 1225 11 19 NOP 0 Z 4 0590 N 000 187 1226 11 20 BER TPERR Z 5 0594 B 221 L 187 1227 11 21 MLC @000@,HOLDC Z 7 0599 M M86 M91 187 1228 11 22 WRTXT B XXXX Z 4 0606 B 000 187 1229 11 23 PUT SBR PUTXT&3 PUT ROUTINE Z 4 0610 H 705 187 &H609M%U5I18WN000B221LMM86M91B000H705 L036613,582590,594599,606610104001873741L 1230 11 24 MLC HOLDC,XL3 Z 7 0614 M M91 099 188 1231 11 25 MLC IMAGE&80,OUTPUT&80&X3 WORK AREA TO OUTPUT Z 7 0621 M 180 II7 188 1232 11 26 CHAIN 10 MACRO 1233 MLC Z 1 0628 M GEN 188 1234 MLC Z 1 0629 M GEN 188 1235 MLC Z 1 0630 M GEN 188 1236 MLC Z 1 0631 M GEN 188 1237 MLC Z 1 0632 M GEN 188 &MM91099M180II7MMMMM L019632,621628,629630,631632104001883741L 1238 MLC Z 1 0633 M GEN 189 1239 MLC Z 1 0634 M GEN 189 1240 MLC Z 1 0635 M GEN 189 1241 MLC Z 1 0636 M GEN 189 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1242 MLC Z 1 0637 M GEN 189 1243 11 27 TPYET A &80,HOLDC#3 Z 7 0638 A M88 M91 189 1244 11 28 CKTAP BCE WRTP,XL3-2,0 Q. WRITE YET Z 8 0645 B 578 097 0 189 &MMMMMAM88M91B5780970 L020652,634635,636637,638645104001893741L 1245 11 29 BW DCWXT, DCWSW2 Q. DCW GT 30 CHARS Z 8 0653 V J85 H92 1 190 1246 11 30 BW SPGLIN,INITSW Q. DA RECORD Z 8 0661 V 692 H87 1 190 1247 11 31 CS INPUT&80 CLEAR IMAGE AND Z 4 0669 / 080 190 1248 11 32 SW INPUT&21 INPUT AREAS Z 4 0673 , 021 190 1249 11 33 MRCM INPUT&1,IMAGE&1 Z 7 0677 P 001 101 190 1250 11 34 BW RTNJB,JOBSW Q. JOB CARD Z 8 0684 V 481 199 1 190 &VJ85H921V692H871/080,021P001101V4811991L039691,661669,673677,684040104001903741L 1251 11 35 SPGLIN S IMAGE&5 WIPE OUT PG/LIN NUMBR Z 4 0692 S 105 191 1252 11 36 S XL3&1 ZERO INDEX Z 4 0696 S 100 191 1253 11 37 S LOCATIONS Z 1 0700 S 191 1254 11 38 S Z 1 0701 S 191 1255 11 39 PUTXT B XXXX EXIT Z 4 0702 B 000 191 1256 11 40 SAVE2 ORG * Z 0706 0706 1257 11 41 CKCOM BCE BYPASS,INPUT&6,* Q. COMMENTS CARD Z 8 0706 B 520 006 * 191 1258 11 42 MN INPUT&75,CK2&7 Z 7 0714 D 075 735 191 &S105S100SSB000B520006*D075735 L029720,696700,701702,706714104001913741L 1259 11 43 MZ INPUT&75,CK2&7 Z 7 0721 Y 075 735 192 1260 11 44 CK2 BCE BYPASS,@RSWZ@,0 Z 8 0728 B 520 M95 0 192 1261 11 45 CHAIN 3 MACRO 1262 BCE Z 1 0736 B GEN 192 1263 BCE Z 1 0737 B GEN 192 1264 BCE Z 1 0738 B GEN 192 1265 11 46 MLC INPUT&84,IMAGE&80 ALTER NO TO FIXED FORM Z 7 0739 M 084 180 192 1266 11 47 BWZ *&5,INPUT&6,2 Q. IS THERE LABEL Z 8 0746 V 758 006 2 192 &Y075735B520M950BBBM084180V7580062 L033753,728736,737738,739746104001923741L 1267 11 48 B PROLBL PROCESS LABEL Z 4 0754 B V38 193 1268 11 49 MCW INPUT&18,IMAGE&16 MNEMONIC TO FIXED FORM Z 7 0758 M 018 116 193 1269 11 50 SW SCANSW RESET SCAN SWITCH Z 4 0765 , N15 193 1270 11 51 MLC @000@,FREEA#3 Z 7 0769 M M86 M98 193 1271 11 52 LCA BLANK4,EQUADD RETRIEVE TABLE FUNCTN Z 7 0776 L H62 N11 193 1272 11 53 MCW @I9I@,XL1 THAT WAS Z 7 0783 M N01 089 193 &BV38M018116,N15MM86M98LH62N11MN01089 L036789,758765,769776,783040104001933741L 1273 11 54 PLSCAN BCE PLUSFD,INPUT&15&X1,& GENERATED BY PASS 3 Z 8 0790 B 817 0/5 & 194 1274 11 55 GOBK C XL1,@I9G@ Z 7 0798 C 089 N04 194 1275 11 56 A @I99@,XL1 Z 7 0805 A N07 089 194 1276 11 57 BL PLSCAN Z 5 0812 B 790 T 194 1277 11 58 PLUSFD BCE GOBK,INPUT&14&X1,& Z 8 0817 B 798 0/4 & 194 1278 11 59 SW EQUADD&1&X1 Z 4 0825 , N/2 194 &B8170/5&C089N04AN07089B790TB7980/4&,N/2L039828,798805,812817,825040104001943741L 1279 11 60 MCW INPUT&15,EQUADD#4 Z 7 0829 M 015 N11 195 1280 11 61 S XL1&2 Z 4 0836 S 091 195 1281 11 62 BW INSTR,EQUADD Q. REGULAR INSTRUCTION Z 8 0840 V N75 N11 1 195 1282 11 63 BCE CTRLOP,EQUADD, Q. CONTROL OP Z 8 0848 B C61 N11 195 1283 11 64 B INSTR Z 4 0856 B N75 195 1284 11 65 * 1285 11 66 *SCAN FOR COMMA OR BLANK 1286 11 67 * 1287 11 68 COMSCN SBR CSCNXT&3 INDEX LOCATION 3 Z 4 0860 H 932 195 1288 11 69 S XL3&1 CONTAINS TOTAL Z 4 0864 S 100 195 &M015N11S091VN75N111BC61N11 BN75H932S100L039867,836840,848856,860864104001953741L 1289 11 70 SW INPUT&21&X2,SCANSW POSITIONS SCANNED Z 7 0868 , 0K1 N15 196 1290 11 71 TSTCOM A &1,XL2 INCLUDING COMMA OR Z 7 0875 A N12 094 196 1291 11 72 A &1,XL3 BLANK FOR OPERAND Z 7 0882 A N12 099 196 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1292 11 73 BCE PRSCXT,INPUT&20&X2,, INDEX LOCATION 2 Z 8 0889 B 925 0K0 , 196 1293 11 74 C INPUT&21&X2,BLANK2 CONTAINS TOTAL Z 7 0897 C 0K1 H60 196 &,0K1N15AN12094AN12099B9250K0,C0K1H60 L036903,875882,889897,040040104001963741L 1294 11 75 BE CSCNXT POSITIONS SCANNED FOR Z 5 0904 B 929 S 197 1295 11 76 C XL2,@54@ ALL OPERANDS Z 7 0909 C 094 N14 197 1296 11 77 BE SCNERR SCANSW SHOWS WHETHER Z 5 0916 B 933 S 197 1297 11 78 B TSTCOM SCAN TERMINATED BY Z 4 0921 B 875 197 1298 11 79 PRSCXT CW SCANSW#1 COMMA OR TWO BLANKS Z 4 0925 ) N15 197 1299 11 80 CSCNXT B XXXX Z 4 0929 B 000 197 1300 11 81 SCNERR MZ BBIT,IMAGE&5 Z 7 0933 Y 188 105 197 &B929SC094N14B933SB875)N15B000Y188105 L036939,909916,921925,929933104001973741L 1301 11 82 BCE CSCNXT,IMAGE&75,3 Z 8 0940 B 929 175 3 198 1302 11 83 B NUREC Z 4 0948 B 534 198 1303 11 84 * 1304 11 85 *CONVERT FREE TO FIXED FORM 1305 11 86 * 1306 11 87 FR2FIX SBR FR2FXT&3 Z 4 0952 H S32 198 1307 11 88 MCW BLANK,W6AREA Z 7 0956 M H59 H77 198 1308 11 89 MCW XL2&1,XL3&1 Z 7 0963 M 095 100 198 1309 11 90 SCNDEX C XL3,@04@ ANY CHARACTER ADJ Z 7 0970 C 099 N17 198 &B9291753B534HS32MH59H77M095100C099N17 L037976,948952,956963,970040104001983741L 1310 11 91 BH DOADRS OR INDEXING Z 5 0977 B /50 U 199 1311 11 92 BE CKADJ Z 5 0982 B 17 S 199 1312 11 93 C INPUT&18&X3,@&X@ Q. INDEXING Z 7 0987 C 0A8 N19 199 1313 11 94 BU CKADJ PROCESS INDEXING Z 5 0994 B 17 / 199 1314 11 95 MN INPUT&19&X3,IMAGE&27&X1 Z 7 0999 D 0A9 1S7 199 1315 11 96 A &K4K-3,XL3 Z 7 1006 A N22 099 199 &B/50UB 17SC0A8N19B 17/D0A91S7AN22099 L036 12,982987,994999, 06040104001993741L 1316 11 97 B SCNDEX Z 4 1013 B 970 200 1317 11 98 CKADJ BCE CKMIN,INPUT&18&X3,& Z 8 1017 B /34 0A8 & 200 1318 11 99 SCANB EQU *-1 CHARACTER ADJUSTMENT Z 1023 1319 12 00 BCE OR AREA DEFINITION Z 1 1025 B 200 1320 12 01 BCE LITERAL CODE Z 1 1026 B 200 1321 12 02 DOMIN BCE ISADJ,INPUT&18&X3,- Z 8 1027 B 51 0A8 - 200 1322 12 03 BCE Z 1 1035 B 200 1323 12 04 BCE Z 1 1036 B 200 &B970B/340A8&BBB 510A8-BB L024 36, 17 25, 26 27, 35 36104002003741L 1324 12 05 BCE ISADJ,INPUT&18&X3,# Z 8 1037 B 51 0A8 # 201 1325 12 06 BCE Z 1 1045 B 201 1326 12 07 BCE Z 1 1046 B 201 1327 12 08 B DOADRS Z 4 1047 B /50 201 1328 12 09 ISADJ SBR W3AREA PROCESS CHARACTER Z 4 1051 H H74 201 1329 12 10 PROADJ S &SCANB,W3AREA ADJUSTMENT Z 7 1055 S N25 H74 201 1330 12 11 MLC XL2,HOLD3 Z 7 1062 M 094 H65 201 &B 510A8#BBB/50HH74SN25H74M094H65 L032 68, 45 46, 47 51, 55 62104002013741L 1331 12 12 MLNS W3AREA,XL2 Z 7 1069 D H74 094 202 1332 12 13 MLC @00@ Z 4 1076 M N27 202 1333 12 14 MLC INPUT&19&X3,W3AREA-4&X2 Z 7 1080 M 0A9 HP0 202 1334 12 15 S XL2&1,XL3&1 Z 7 1087 S 095 100 202 1335 12 16 MZ INPUT&20&X3,W3AREA-4&X2 Z 7 1094 Y 0B0 HP0 202 1336 12 17 MN INPUT&20&X3,W6AREA Z 7 1101 D 0B0 H77 202 &DH74094MN27M0A9HP0S095100Y0B0HP0D0B0H77L039/07, 76 80, 87 94,/01040104002023741L 1337 12 18 SW IMAGE&24&X1 Z 4 1108 , 1S4 203 1338 12 19 A W3AREA-4&X2,IMAGE&26&X1 ADD CHAR ADJUSTMENT TO Z 7 1112 A HP0 1S6 203 1339 12 20 CW IMAGE&24&X1 FIXED FORM Z 4 1119 ) 1S4 203 1340 12 21 MLC HOLD3,XL2 Z 7 1123 M H65 094 203 1341 12 22 B SCNDEX Z 4 1130 B 970 203 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1342 12 23 CKMIN SBR W3AREA ACCOUNT FOR POSSIBLE Z 4 1134 H H74 203 1343 12 24 BCE DOMIN,INPUT&18&X3,- MULTI-CHAR ADJ OF Z 8 1138 B 27 0A8 - 203 &,1S4AHP01S6)1S4MH65094B970HH74B 270A8- L038/45,/12/19,/23/30,/34/38104002033741L 1344 12 25 B PROADJ &1-2 TYPE Z 4 1146 B 55 204 1345 12 26 DOADRS S FREEA,XL3 PROCESS ADDRESS Z 7 1150 S M98 099 204 1346 12 27 C XL3,&007 Q. OLLEGAL ADDRESS Z 7 1157 C 099 N30 204 1347 12 28 BL FIXER LENGTH Z 5 1164 B S33 T 204 1348 12 29 A FREEA,XL3 Z 7 1169 A M98 099 204 1349 12 30 MZ BLANK,XL3 Z 7 1176 Y H59 099 204 &B 55SM98099C099N30BS33TAM98099YH59099 L037/82,/50/57,/64/69,/76040104002043741L 1350 12 31 MCW @ @,INPUT&20&X3 Z 7 1183 M N31 0B0 205 1351 12 32 MLC FREEA,XL3 Z 7 1190 M M98 099 205 1352 12 33 MRCM INPUT&21&X3,IMAGE&17&X1 MOVE ADDRESS TO IMAGE Z 7 1197 P 0B1 1/7 205 1353 12 34 SBR XL3 Z 4 1204 H 099 205 1354 12 35 MZ ABBIT,XL3 Z 7 1208 Y 189 099 205 1355 12 36 MCW BLANK,4000-1&X3 Z 7 1215 M H59 II9 205 &MN310B0MM98099P0B11/7H099Y189099MH59II9L039S21,/90/97,S04S08,S15040104002053741L 1356 12 37 MN W6AREA,IMAGE&23&X1 Z 7 1222 D H77 1S3 206 1357 12 38 FR2FXT B XXXX EXIT Z 4 1229 B 000 206 1358 12 39 FIXER SW FIXSW#1 Z 4 1233 , N32 206 1359 12 40 OPDER MCW @000@,XL3 CODE STATEMENT Z 7 1237 M M86 099 206 1360 12 41 MZ ABIT,IMAGE&5 BAD BUT PROCESSABLE Z 7 1244 Y 187 105 206 1361 12 42 BCE *&8,XL1,0 Z 8 1251 B S66 089 0 206 &DH771S3B000,N32MM86099Y187105BS660890 L037S58,S29S33,S37S44,S51040104002063741L 1362 12 43 MCW @003@,XL3 Z 7 1259 M N35 099 207 1363 12 44 MCW @###@,IMAGE&70&X3 Z 7 1266 M N38 1G0 207 1364 12 45 MZ ABBIT,IMAGE&1&X3 Z 7 1273 Y 189 1?1 207 1365 12 46 BW FR2FXT,FIXSW Z 8 1280 V S29 N32 1 207 1366 12 47 B LTER2 Z 4 1288 B U09 207 1367 12 48 * 1368 12 49 *SCAN FOR @ SIGN 1369 12 50 * 1370 12 51 SCANAT SBR SCNATX&3 Z 4 1292 H T85 207 &MN35099MN381G0Y1891?1VS29N321BU09HT85 L037S95,S66S73,S80S88,S92040104002073741L 1371 12 52 SW INPUT&21&X2,SCANSW SCAN IS EXECUTED FROM Z 7 1296 , 0K1 N15 208 1372 12 53 ZA @510@,XL3&1 RIGHT TO LEFT Z 7 1303 ? N41 100 208 1373 12 54 A1ALF BCE NDASCN,INPUT&21&X3,@ Z 8 1310 B T29 0B1 @ 208 1374 12 55 S &10,XL3&1 Z 7 1318 S N43 100 208 1375 12 56 B A1ALF Z 4 1325 B T10 208 &,0K1N15?N41100BT290B1@SN43100BT10 L033T28,T03T10,T18T25,040040104002083741L 1376 12 57 NDASCN C XL2,XL3 Q. NO ENDING @ SIGN Z 7 1329 C 094 099 209 1377 12 58 BE LTERR Z 5 1336 B T94 S 209 1378 12 59 BCE SETSW,INPUT&22&X3,, Q. IS ENDING @ SIGN Z 8 1341 B T86 0B2 , 209 1379 12 60 C INPUT&23&X3,BLANK2 FOLLOWED BY COMMA OR Z 7 1349 C 0B3 H60 209 1380 12 61 BU LTERR TWO BLANKS Z 5 1356 B T94 / 209 1381 12 62 SXL S XL2&1,XL3&1 Z 7 1361 S 095 100 209 &C094099BT94SBT860B2,C0B3H60BT94/S095100L039T67,T36T41,T49T56,T61040104002093741L 1382 12 63 A &2,XL3 Z 7 1368 A N44 099 210 1383 12 64 A XL3,XL2 Z 7 1375 A 099 094 210 1384 12 65 SCNATX B XXXX EXIT Z 4 1382 B 000 210 1385 12 66 SETSW CW SCANSW Z 4 1386 ) N15 210 1386 12 67 B SXL Z 4 1390 B T61 210 1387 12 68 * 1388 12 69 *IMPROPERLY CODED STATEMENT ROUTINE 1389 12 70 * 1390 12 71 LTERR MLZS ABIT,IMAGE&5 MARK STATEMENT Z 7 1394 Y 187 105 210 1391 12 72 CW FIXSW BAD BUT PROCESSABLE Z 4 1401 ) N32 210 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 32 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &AN44099A099094B000)N15BT61Y187105)N32 L037U04,T75T82,T86T90,T94U01104002103741L 1392 12 73 B OPDER Z 4 1405 B S37 211 1393 12 74 LTER2 B COMSCN Z 4 1409 B 860 211 1394 12 75 MCW @@@,INPUT&20&X3 Z 7 1413 M N45 0B0 211 1395 12 76 A &1,XL3 Z 7 1420 A N12 099 211 1396 12 77 B SCNATX Z 4 1427 B T82 211 1397 12 78 * 1398 12 79 *PLACE LITERALS ON MASTER TAPE 1399 12 80 * 1400 12 81 CALL BW CKLOR,LITSW#1 Q. ANY LITERALS Z 8 1431 V U85 N46 1 211 &BS37B860MN450B0AN12099BT82VU85N461 L034U38,U09U13,U20U27,U31040104002113741L 1401 12 82 RT SYSTAP,INPUT&1 READ IN PROCESS Z 8 1439 M %U1 001 R 212 1402 12 83 RTW SYSTAP,DOPROG LITERALS OVERLAP Z 8 1447 L %U1 N75 R 212 1403 12 84 NOP 0 Z 4 1455 N 000 212 1404 12 85 BER TPERR Z 5 1459 B 221 L 212 1405 12 86 B OVLLIT GO TO ROUTINE Z 4 1464 B N75 212 1406 12 87 RECALL RTW SYSTAP,DOPROG RECALL MAIN LINE Z 8 1468 L %U1 N75 R 212 &M%U1001RL%U1N75RN000B221LBN75L%U1N75R L037U75,U47U55,U59U64,U68040104002123741L 1407 12 88 NOP 0 OVERLAP Z 4 1476 N 000 213 1408 12 89 BER TPERR Z 5 1480 B 221 L 213 1409 12 90 CKLOR BCE BYPASS,IMAGE&75, Q. LITERAL ORIGIN Z 8 1485 B 520 175 213 1410 12 91 BCE NUREC,IMAGE&75,C Q. EXECUTE Z 8 1493 B 534 175 C 213 1411 12 92 RT SYSTAP,INPUT&1 SKIP PAST OVERLAPS Z 8 1501 M %U1 001 R 213 &N000B221LB520175 B534175CM%U1001R L033V08,U80U85,U93V01,040040104002133741L 1412 12 93 RT SYSTAP,INPUT&1 AND READ IN END OF Z 8 1509 M %U1 001 R 214 1413 12 94 RTW SYSTAP,EOJRT JOB OVERLAP Z 8 1517 L %U1 706 R 214 1414 12 95 NOP 0 Z 4 1525 N 000 214 1415 12 96 BER TPERR Z 5 1529 B 221 L 214 1416 12 97 B EOJRT Z 4 1534 B 706 214 1417 12 98 * 1418 12 99 *GENERATE ENTRY ADDRESS FOR LABELS 1419 13 00 * 1420 13 01 PROLBL SBR XTLABL&3 Z 4 1538 H V77 214 &M%U1001RL%U1706RN000B221LB706HV77 L033V41,V17V25,V29V34,V38040104002143741L 1421 13 02 MLC INPUT&11,IMAGE&13 Z 7 1542 M 011 113 215 1422 13 03 MLC IMAGE&13,W6AREA Z 7 1549 M 113 H77 215 1423 13 04 B PROLAB Z 4 1556 B W47 215 1424 13 05 MLC W3AREA,IMAGE&56 Z 7 1560 M H74 156 215 1425 13 06 A &1,TOTLBL Z 7 1567 A N12 198 215 1426 13 07 XTLABL B XXXX Z 4 1574 B 000 215 1427 13 08 * 1428 13 09 *CONVERT FREE FORM NUMBER TO FIVE CHARACTERS 1429 13 10 * &M011113M113H77BW47MH74156AN12198B000 L036V77,V49V56,V60V67,V74040104002153741L 1430 13 11 CVRT5 SBR CVT5XT&3 Z 4 1578 H V93 216 1431 13 12 BCE *&5,W5AREA,& Z 8 1582 B V94 H76 & 216 1432 13 13 CVT5XT B XXXX Z 4 1590 B 000 216 1433 13 14 ZA W5AREA-1,W5AREA Z 7 1594 ? H75 H76 216 1434 13 15 B CVRT5&4 Z 4 1601 B V82 216 1435 13 16 * 1436 13 17 * CHECK FOR FINAL OPERAND 1437 13 18 * 1438 13 19 FNLOP SBR FNLXT&3 Q. FINAL OPERAND Z 4 1605 H W27 216 1439 13 20 BW FNLXT,SCANSW FOLLOWED BY TWO Z 8 1609 V W24 N15 1 216 &HV93BV94H76&B000?H75H76BV82HW27VW24N151L039W16,V82V90,V94W01,W05W09104002163741L 1440 13 21 MZ ABIT,IMAGE&5 BLANKS Z 7 1617 Y 187 105 217 1441 13 22 FNLXT B XXXX Z 4 1624 B 000 217 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 33 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1442 13 23 * 1443 13 24 *CONVERT FLOATING A OPERAND ACTUAL ADDRESS TO FIVE CHARACTERS 1444 13 25 * 1445 13 26 CVTFLA SBR FLAXT&3 Z 4 1628 H W46 217 1446 13 27 ZA IMAGE&21,W5AREA Z 7 1632 ? 121 H76 217 1447 13 28 B CVRT5 LINK TO SUBROUTINE Z 4 1639 B V78 217 1448 13 29 FLAXT B XXXX Z 4 1643 B 000 217 1449 13 30 * 1450 13 31 *CONVERT SYMBOLS TO THREE CHARACTER ENTRY ADDRESS 1451 13 32 * 1452 13 33 PROLAB SBR LBLXT&3 Z 4 1647 H Y10 217 &Y187105B000HW46?121H76BV78B000HY10 L034W50,W24W28,W32W39,W43W47104002173741L 1453 13 34 ZA &2,HOLD2 Z 7 1651 ? N44 H64 218 1454 13 35 BCE *&5,W6AREA, ADD SUFFIX CHAR TO Z 8 1658 B W70 H77 218 1455 13 36 B *&8 LABELS FIVE CHARS Z 4 1666 B W77 218 1456 13 37 MCW SFXHLD,W6AREA OR LESS Z 7 1670 M H86 H77 218 1457 13 38 ZA W6AREA-2,HOLD4 Z 7 1677 ? H75 H71 218 &?N44H64BW70H77 BW77MH86H77?H75H71 L033W83,W58W66,W70W77,040040104002183741L 1458 13 39 A W6AREA,HOLD4 FOLD SYMBOL TO Z 7 1684 A H77 H71 219 1459 13 40 A W6AREA,HOLD4-2 FOUR CHARACTERS Z 7 1691 A H77 H69 219 1460 13 41 MLZS BLANK,HOLD4 Z 7 1698 Y H59 H71 219 1461 13 42 ZA FACTOR,HOLD7 MULTIPLY BY FACTOR Z 7 1705 ? H48 H84 219 1462 13 43 MPYLP MLNS HOLD7,HOLD1 Z 7 1712 D H84 H85 219 1463 13 44 ZA Z 1 1719 ? 219 &AH77H71AH77H69YH59H71?H48H84DH84H85? L036X19,W91W98,X05X12,X19040104002193741L 1464 13 45 MULT BCE NXTDGT,HOLD1,? Z 8 1720 B X46 H85 ? 220 1465 13 46 A HOLD4,HOLD7-2 Z 7 1728 A H71 H82 220 1466 13 47 S &1,HOLD1 Z 7 1735 S N12 H85 220 1467 13 48 B MULT Z 4 1742 B X20 220 1468 13 49 NXTDGT S &1,HOLD2 Z 7 1746 S N12 H64 220 &BX46H85?AH71H82SN12H85BX20SN12H64 L033X52,X28X35,X42X46,040040104002203741L 1469 13 50 BWZ MPYLP,HOLD2,B Z 8 1753 V X12 H64 B 221 1470 13 51 S W5AREA Z 4 1761 S H76 221 1471 13 52 BAV *&1 Z 5 1765 B X70 Z 221 1472 13 53 LOOP1 A &96,HOLD7-5 FOLD FIVE CHARACTER Z 7 1770 A N48 H79 221 1473 13 54 BAV LOOP1 RESULT TO THREE Z 5 1777 B X70 Z 221 1474 13 55 MLZS HOLD7-6,W3AREA CHARACTER TABLE ENTRY Z 7 1782 Y H78 H74 221 &VX12H64BSH76BX70ZAN48H79BX70ZYH78H74 L036X88,X61X65,X70X77,X82040104002213741L 1475 13 56 MLC HOLD7-3 ADDRESS Z 4 1789 M H81 222 1476 13 57 MLNS HOLD7-5,*&4 Z 7 1793 D H79 Y03 222 1477 13 58 MLZS ZONE,W3AREA-2 Z 7 1800 Y 189 H72 222 1478 13 59 LBLXT B XXXX Z 4 1807 B 000 222 1479 13 60 * 1480 13 61 *PROCESS DCW, DC, DSA CARDS 1481 13 62 * 1482 13 63 DCWCD BCE DCWALF,INPUT&21,@ Q. ALPHA CONSTANT Z 8 1811 B K44 021 @ 222 1483 13 64 BCE ARDEF,INPUT&21,# Q. AREA DEFINITION Z 8 1819 B L01 021 # 222 &MH81DH79Y03Y189H72B000BK44021@BL01021# L038Y26,X93Y00,Y07Y11,Y19040104002223741L 1484 13 65 BCE CKDCW,INPUT&21,& Q. NUMERIC LITERAL Z 8 1827 B Y58 021 & 223 1485 13 66 BCE CKDCW,INPUT&21,- Z 8 1835 B Y58 021 - 223 1486 13 67 MLC INPUT&72,INPUT&73 SHIFT RIGHT Z 7 1843 M 072 073 223 1487 13 68 MCW @&@ Z 4 1850 M N49 223 1488 13 69 SW DCWSW SET NO ZONING SWITCH Z 4 1854 , H89 223 1489 13 70 CKDCW B COMSCN SCAN FOR BLANK Z 4 1858 B 860 223 &BY58021&BY58021-M072073MN49,H89B860 L035Y61,Y35Y43,Y50Y54,Y58040104002233741L 1490 13 71 BCE ISDSA,INPUT&22,@ Q. ADCON OF LITERAL Z 8 1862 B Y90 022 @ 224 1491 13 72 B FNLOP CHECK LAST OPERAND Z 4 1870 B W05 224 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 34 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1492 13 73 BCE ISDSA,IMAGE&75,J Q. DSA STATEMENT Z 8 1874 B Y90 175 J 224 1493 13 74 BWZ ISDCW,INPUT&22,2 Q. DC, DCW STATEMENT Z 8 1882 V K71 022 2 224 1494 13 75 * 1495 13 76 *PROCESS DSA CARDS, SUBSET OF DCW 1496 13 77 * 1497 13 78 ISDSA MLC @011@,XL1 Z 7 1890 M N52 089 224 &BY90022@BW05BY90175JVK710222MN52089 L035Y96,Y70Y74,Y82Y90,040040104002243741L 1498 13 79 MLNS &2,IMAGE&75 CODE RECORD Z 7 1897 D N44 175 225 1499 13 80 MZ INPUT&21,IMAGE&27 Z 7 1904 Y 021 127 225 1500 13 81 MCW BLANK,INPUT&21 Z 7 1911 M H59 021 225 1501 13 82 BWZ *&5,IMAGE&75,K Z 8 1918 V Z30 175 K 225 1502 13 83 B *&8 Z 4 1926 B Z37 225 &DN44175Y021127MH59021VZ30175KBZ37 L033Z29,Z04Z11,Z18Z26,040040104002253741L 1503 13 84 MZ BLANK,IMAGE&75 Z 7 1930 Y H59 175 226 1504 13 85 SW DSASW2 SET DSA SWITCH Z 4 1937 , H91 226 1505 13 86 MLC @001@,FREEA Z 7 1941 M N55 M98 226 1506 13 87 MCW INPUT&34,IMAGE&53 Z 7 1948 M 034 153 226 1507 13 88 BCE DSADC,INPUT&22,@ Z 8 1955 B L54 022 @ 226 &YH59175,H91MN55M98M034153BL54022@ L033Z62,Z37Z41,Z48Z55,040040104002263741L 1508 13 89 BCE DSADC,INPUT&22,& Z 8 1963 B L54 022 & 227 1509 13 90 BCE DSADC,INPUT&22,- Z 8 1971 B L54 022 - 227 1510 13 91 B FR2FIX CONVERT FREE TO FIXED Z 4 1979 B 952 227 1511 13 92 MZ IMAGE&27,INPUT&21 Z 7 1983 Y 127 021 227 1512 13 93 DSAX1 MZ IMAGE&27,IMAGE&40 Z 7 1990 Y 127 140 227 &BL54022&BL54022-B952Y127021Y127140 L034Z96,Z71Z79,Z83Z90,040040104002273741L 1513 13 94 MLC @03@,IMAGE&7 INSERT COUNT Z 7 1997 M N57 107 228 1514 13 95 MLC @03@,XL2 Z 7 2004 M N57 094 228 1515 13 96 CKAOP BCE DCWAST,INPUT&6, Q. ANY LABEL Z 8 2011 B !68 006 228 1516 13 97 BWZ DCWAST,IMAGE&75,S Q. LITERAL Z 8 2019 V !68 175 S 228 1517 13 98 BWZ *&5,INPUT&6,2 Q. ACTUAL ADDRESS Z 8 2027 V !39 006 2 228 &MN57107MN57094B!68006 V!68175SV!390062 L038!34,!04!11,!19!27,040040104002283741L 1518 13 99 B DCWAST Z 4 2035 B !68 229 1519 14 00 MLC INPUT&10,IMAGE&21 PROCESS ACTUAL Z 7 2039 M 010 121 229 1520 14 01 B CVTFLA ADDRESS Z 4 2046 B W28 229 1521 14 02 DCWACT MLC W5AREA,IMAGE&21 ADDRESS TO FIXED Z 7 2050 M H76 121 229 1522 14 03 MLC W5AREA,IMAGE&61 FORM Z 7 2057 M H76 161 229 1523 14 04 B CKMACR Z 4 2064 B !89 229 &B!68M010121BW28MH76121MH76161B!89 L033!67,!39!46,!50!57,!64040104002293741L 1524 14 05 DCWAST A XL2,ORGCTR BUMP ORIGIN COUNTER Z 7 2068 A 094 H58 230 1525 14 06 BMPCTR MCW @*@,IMAGE&17 SET TO DCW * Z 7 2075 M N58 117 230 1526 14 07 DSETAD A ORGCTR,IMAGE&61 ASSIGN ADDRESS Z 7 2082 A H58 161 230 1527 14 08 CKMACR BCE NUREC,IMAGE&75,P Q. EQU STATEMENT Z 8 2089 B 534 175 P 230 1528 14 09 BCE NUREC,IMAGE&75,X Q. DS STATEMENT Z 8 2097 B 534 175 X 230 &A094H58MN58117AH58161B534175PB534175X L037J04,!75!82,!89!97,040040104002303741L 1529 14 10 BW DCWXT,DSASW2 Q. DSA STATEMENT Z 8 2105 V J85 H91 1 231 1530 14 11 MLC INPUT&51,IMAGE&53 MOVE CONSTANT TO Z 7 2113 M 051 153 231 1531 14 12 MLC FIXED FORM Z 1 2120 M 231 1532 14 13 MLC Z 1 2121 M 231 1533 14 14 MLC XL2,IMAGE&7 COUNT TO FIXED FORM Z 7 2122 M 094 107 231 1534 14 15 C XL2,@030@ Q. COUNT GREATER THAN Z 7 2129 C 094 N61 231 1535 14 16 BH DCWXT 30 Z 5 2136 B J85 U 231 &VJ85H911M051153MMM094107C094N61BJ85U L036J40,J13J20,J21J22,J29J36104002313741L 1536 14 17 MN @8@,INPUT&75 WRITE FREE FORM RECORD Z 7 2141 D N62 075 232 1537 14 18 BWZ *&8,IMAGE&75,B ON TAPE Z 8 2148 V J63 175 B 232 1538 14 19 MZ IMAGE&75,INPUT&75 Z 7 2156 Y 175 075 232 1539 14 20 MCW HOLDC,XL3 Z 7 2163 M M91 099 232 1540 14 21 MCW INPUT&80,OUTPUT&80&X3 Z 7 2170 M 080 II7 232 &DN62075VJ63175BY175075MM91099M080II7 L036J76,J48J56,J63J70,040040104002323741L 1541 14 22 SW DCWSW2 Z 4 2177 , H92 233 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 35 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1542 14 23 B TPYET Z 4 2181 B 638 233 1543 14 24 DCWXT CW DSASW2,DCWSW2 RESET SWITCHES Z 7 2185 ) H91 H92 233 1544 14 25 BW *&5,LITSW2 Z 8 2192 V K04 H90 1 233 1545 14 26 B NUREC Z 4 2200 B 534 233 1546 14 27 BCE LITRTN,INPUT&21,@ Z 8 2204 B P31 021 @ 233 &,H92B638)H91H92VK04H901B534BP31021@ L035K11,J81J85,J92K00,K04040104002333741L 1547 14 28 BCE LTGEN,INPUT&22,& Q. ADCON OF LITERAL Z 8 2212 B M00 022 & 234 1548 14 29 BCE LTGEN,INPUT&22,- Z 8 2220 B M00 022 - 234 1549 14 30 BCE LTGEN,INPUT&22,@ Z 8 2228 B M00 022 @ 234 1550 14 31 B LITRTN Z 4 2236 B P31 234 1551 14 32 PDCWLF S XL2&2 Z 4 2240 S 096 234 1552 14 33 DCWALF B SCANAT SCAN FOR ENDING @ SIGN Z 4 2244 B S92 234 &BM00022&BM00022-BM00022@BP31S096BS92 L036K47,K20K28,K36K40,K44040104002343741L 1553 14 34 B FNLOP CHECK LAST OPERAND Z 4 2248 B W05 235 1554 14 35 BW ACNRT,DSASW2 Q. ADCON OF LITERAL Z 8 2252 V L62 H91 1 235 1555 14 36 S &30,XL2&1 Z 7 2260 S N64 095 235 1556 14 37 B CKAOP Z 4 2267 B !11 235 1557 14 38 ISDCW S &20,XL2&1 Z 7 2271 S N66 095 235 1558 14 39 BW NOZONE,DCWSW Q. CONSTANT ZONED Z 8 2278 V K93 H89 1 235 &BW05VL62H911SN64095B!11SN66095VK93H891 L038K85,K52K60,K67K71,K78040104002353741L 1559 14 40 MLZS INPUT&21,INPUT&21&X2 ZONE CONSTANT Z 7 2286 Y 021 0K1 236 1560 14 41 NOZONE CW DCWSW Z 4 2293 ) H89 236 1561 14 42 B CKAOP Z 4 2297 B !11 236 1562 14 43 ARDEF SW INPUT&22 PROCESS AREA Z 4 2301 , 022 236 1563 14 44 ZA INPUT&24,W5AREA Z 7 2305 ? 024 H76 236 1564 14 45 B CVRT5 Z 4 2312 B V78 236 1565 14 46 MLZS ABBIT,IMAGE&4 CODE RECORD Z 7 2316 Y 189 104 236 &Y0210K1)H89B!11,022?024H76BV78Y189104 L037L22,K93K97,L01L05,L12L16104002363741L 1566 14 47 MLNS W5AREA,XL2 Z 7 2323 D H76 094 237 1567 14 48 MLC Z 1 2330 M 237 1568 14 49 C XL2,@053@ Q. ILLEGAL LENGTH Z 7 2331 C 094 N69 237 1569 14 50 BH CKAOP Z 5 2338 B !11 U 237 1570 14 51 MZ BBIT,IMAGE&5 MARK BAD STATEMENT Z 7 2343 Y 188 105 237 1571 14 52 B CKAOP Z 4 2350 B !11 237 1572 14 53 DSADC BCE PDCWLF,INPUT&22,@ Q. ADCON OF ALPHA LIT Z 8 2354 B K40 022 @ 237 &DH76094MC094N69B!11UY188105B!11BK40022@L039L61,L30L31,L38L43,L50L54104002373741L 1573 14 54 ACNRT S &10,XL3&1 Z 7 2362 S N43 100 238 1574 14 55 MCW XL3,W3AREA Z 7 2369 M 099 H74 238 1575 14 56 C XL3,@006@ Q. LARGE LITERAL Z 7 2376 C 099 N72 238 1576 14 57 BL DOBIG Z 5 2383 B A57 T 238 1577 14 58 BCE XALF1,INPUT&22,@ Q. ALPHA LITERAL Z 8 2388 B ?93 022 @ 238 1578 14 59 B XLIT1 Z 4 2396 B B82 238 &SN43100M099H74C099N72BA57TB?93022@BB82 L038L99,L69L76,L83L88,L96040104002383741L 1579 14 60 LTGEN B PUT PUT ADCON Z 4 2400 B 610 239 1580 14 61 MCW @/@,IMAGE&75 SET UP LITERAL Z 7 2404 M N73 175 239 1581 14 62 MCW LAREA&72,INPUT&72 TO BE PROCESSED Z 7 2411 M H31 072 239 1582 14 63 MCW NOTE. ADDRESS CONSTANT Z 1 2418 M 239 1583 14 64 MCW LOGIC MAKES IT Z 1 2419 M 239 1584 14 65 MCW RECURSIVE Z 1 2420 M 239 1585 14 66 MCW LAREA&74,LAREA&73 Z 7 2421 M H33 H32 239 &B610MN73175MH31072MMMMH33H32 L028M27,M04M11,M18M19,M20M21104002393741L 1586 14 67 B PROLBL Z 4 2428 B V38 240 1587 14 68 S XL2&2 Z 4 2432 S 096 240 1588 14 69 S Z 1 2436 S 240 1589 14 70 B DCWCD Z 4 2437 B Y11 240 1590 14 71 * 1591 14 72 *CALL IN DA ROUTINE 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 36 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1592 14 73 * 1593 14 74 DARTN RTW SYSTAP,DOPROG CALL DA ROUTINE Z 8 2441 L %U1 N75 R 240 1594 14 75 NOP 0 Z 4 2449 N 000 240 1595 14 76 BER TPERR Z 5 2453 B 221 L 240 &BV38S096SBY11L%U1N75RN000B221L L030M57,M32M36,M37M41,M49M53104002403741L 1596 14 77 B DASTMT GO TO DA ROUTINE Z 4 2458 B N75 241 1597 14 78 FINDA RTW SYSTAP,DOPROG Z 8 2462 L %U1 N75 R 241 1598 14 79 NOP 0 Z 4 2470 N 000 241 1599 14 80 BER TPERR Z 5 2474 B 221 L 241 1600 14 81 B CKCOM Z 4 2479 B 706 241 1601 14 82 LTORG * Z 2483 DCW @0@ Z 1 2483 LIT 241 @000@ Z 3 2486 LIT 241 &BN75L%U1N75RN000B221LB7060000 L029M86,M62M70,M74M79,M83M84104002413741L &80 Z 2 2488 LIT 242 1243 HOLDC #03 Z 3 2491 AREA 242 @RSWZ@ Z 4 2495 LIT 242 1270 FREEA #03 Z 3 2498 AREA 242 @I9I@ Z 3 2501 LIT 242 @I9G@ Z 3 2504 LIT 242 @I99@ Z 3 2507 LIT 242 &8? RSWZ I9II9GI99 L021N07,M89M92,M96M99,N02N05104002423741L 1279 EQUADD #04 Z 4 2511 AREA 243 &1 Z 1 2512 LIT 243 @54@ Z 2 2514 LIT 243 1298 SCANSW #01 Z 1 2515 AREA 243 @04@ Z 2 2517 LIT 243 @&X@ Z 2 2519 LIT 243 1315 &K4K-3 Z 3 2522 I97 ADCON 243 & A54 04&XI97 L015N22,N12N13,N15N16,N18N20104002433741L 1329 &SCANB Z 3 2525 23 ADCON 244 @00@ Z 2 2527 LIT 244 &007 Z 3 2530 LIT 244 @ @ Z 1 2531 LIT 244 1358 FIXSW #01 Z 1 2532 AREA 244 @003@ Z 3 2535 LIT 244 @###@ Z 3 2538 LIT 244 & 230000G 003### L016N38,N26N28,N31N32,N33N36104002443741L @510@ Z 3 2541 LIT 245 &10 Z 2 2543 LIT 245 &2 Z 1 2544 LIT 245 @@@ Z 1 2545 LIT 245 1400 LITSW #01 Z 1 2546 AREA 245 &96 Z 2 2548 LIT 245 @&@ Z 1 2549 LIT 245 &5101?B@ 9F& L011N49,N42N44,N45N46,N47N49104002453741L @011@ Z 3 2552 LIT 246 @001@ Z 3 2555 LIT 246 @03@ Z 2 2557 LIT 246 @*@ Z 1 2558 LIT 246 @030@ Z 3 2561 LIT 246 @8@ Z 1 2562 LIT 246 &30 Z 2 2564 LIT 246 &01100103*03083? L015N64,N53N56,N58N59,N62N63104002463741L &20 Z 2 2566 LIT 247 @053@ Z 3 2569 LIT 247 @006@ Z 3 2572 LIT 247 1 1401 AUTOCODER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 37 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @/@ Z 1 2573 LIT 247 1602 14 83 GRPMK5 DCW @}@ SYSTEM GROUP MARK Z 1 2574 247 &2?053006/} L010N74,N67N70,N73N74,040040104002473741L & N000000,040040,040040,040040B00002483741L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02493742L &,068072)063067/061039 ,001001104002503742L 1603 14 84 EX DOZERO Z B 000 248 1 1401 AUTOCODER-PASS 4 PROCESS JOB/CTL -VERSION 3 3742L PAGE 38 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1604 14 85 JOB 1401 AUTOCODER-PASS 4 PROCESS JOB/CTL -VERSION 3 1605 14 86 * 1606 14 87 *PROCESS CONTROL CARD 1607 14 88 * 1608 14 89 DOPROG ORG * Z 2575 2575 1609 14 90 START CS INPUT&84 Z 4 2575 / 084 251 1610 14 91 CS 3999 Z 4 2579 / I99 251 1611 14 92 SW INPUT&21,INPUT&81 SET WORD MARKS IN Z 7 2583 , 021 081 251 1612 14 93 SW IMAGE&1,IMAGE&6 FIXED FORM IMAGE AREA Z 7 2590 , 101 106 251 1613 14 94 SW IMAGE&8,IMAGE&14 Z 7 2597 , 108 114 251 1614 14 95 SW IMAGE&17,IMAGE&28 Z 7 2604 , 117 128 251 &/084/I99,021081,101106,108114,117128 L036O10,N79N83,N90N97,O04040104002513742L 1615 14 96 SW IMAGE&39,IMAGE&57 Z 7 2611 , 139 157 252 1616 14 97 SW IMAGE&62,IMAGE&67 Z 7 2618 , 162 167 252 1617 14 98 SW IMAGE&23 Z 4 2625 , 123 252 1618 14 99 SW GRPMK1,GRPMK8 INITIALIZE GROUP MARKS Z 7 2629 , 085 H99 252 1619 15 00 SW GRPMK3,GRPMK4 Z 7 2636 , H44 185 252 1620 15 01 CW INITSW Z 4 2643 ) H87 252 &,139157,162167,123,085H99,H44185)H87 L036O46,O18O25,O29O36,O43040104002523742L 1621 15 02 RWD INTAP Z 5 2647 U %U4 R 253 1622 15 03 RWD OUTAP Z 5 2652 U %U5 R 253 1623 15 04 RWD LITAPE Z 5 2657 U %U6 R 253 1624 15 05 MLC @000@,HOLDC Z 7 2662 M R16 M91 253 1625 15 06 B GET GET JOB CARD Z 4 2669 B 538 253 1626 15 07 MCW INPUT&80,IMAGE&21 PROCESS JOB CARD Z 7 2673 M 080 121 253 &U%U4RU%U5RU%U6RMR16M91B538M080121 L033O79,O52O57,O62O69,O73040104002533742L 1627 15 08 MCW @I@,IMAGE&75 IDENTIFICATION Z 7 2680 M R17 175 254 1628 15 09 SW 3998 Z 4 2687 , I98 254 1629 15 10 B GET GET SECOND RECORD Z 4 2691 B 538 254 1630 15 11 BCE NOCTL,INPUT&6,* Q. COMMENTS CARD Z 8 2695 B Q71 006 * 254 1631 15 12 C INPUT&18,@CTL@ Q. CONTROL CARD Z 7 2703 C 018 R20 254 1632 15 13 BU NOCTL Z 5 2710 B Q71 / 254 &MR17175,I98B538BQ71006*C018R20BQ71/ L035P14,O87O91,O95P03,P10040104002543742L 1633 15 14 MLNS INPUT&21,CTL3&7 CHECK PROCESSOR SIZE Z 7 2715 D 021 P29 255 1634 15 15 CTL3 BCE CTL2,CKPRO, FOR VALID CODE Z 8 2722 B P37 R13 255 1635 15 16 BCE Z 1 2730 B 255 1636 15 17 BCE Z 1 2731 B 255 1637 15 18 BCE Z 1 2732 B 255 1638 15 19 B NOCTL Z 4 2733 B Q71 255 1639 15 20 CTL2 MLC INPUT&21,PROCOR INITIALIZE AREAS Z 7 2737 M 021 194 255 &D021P29BP37R13 BBBBQ71M021194 L029P43,P22P30,P31P32,P33P37104002553742L 1640 15 21 ZA INPUT&21,XL1 Z 7 2744 ? 021 089 256 1641 15 22 S &30,XL1&1 PROCESSOR MACHINE Z 7 2751 S R22 090 256 1642 15 23 A XL1 SIZE Z 4 2758 A 089 256 1643 15 24 A XL1 Z 4 2762 A 089 256 1644 15 25 MLC FCTBL&X1,FACTOR Z 7 2766 M QZ7 H48 256 1645 15 26 MLC @0@,FACTOR-3 Z 7 2773 M R23 H45 256 &?021089SR22090A089A089MQZ7H48MR23H45 L036P79,P51P58,P62P66,P73040104002563742L 1646 15 27 MLC FCTBL-3&X1,CKTAP&7 Z 7 2780 M QZ4 652 257 1647 15 28 BCE IS16K,INPUT&21,6 Q. 16K PROCESSOR Z 8 2787 B Q52 021 6 257 1648 15 29 BCE IS16K,INPUT&21,5 Q. 16K PROCESSOR Z 8 2795 B Q52 021 5 257 1649 15 30 BCE IS8K,INPUT&21,4 Q. 8K PROCESSOR Z 8 2803 B Q33 021 4 257 1650 15 31 MLC @3@,PROCOR Z 7 2811 M R24 194 257 1651 15 32 * 1652 15 33 * INITIALIZE OUTPUT AREA AND SET UP BLOCKING SIZE 1653 15 34 * 1 1401 AUTOCODER-PASS 4 PROCESS JOB/CTL -VERSION 3 3742L PAGE 39 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &MQZ4652BQ520216BQ520215BQ330214MR24194 L038Q17,P87P95,Q03Q11,040040104002573742L 1654 15 35 IS4K LCA GRPMK8,3998 SET GROUP MARK AT END Z 7 2818 L H99 I98 258 1655 15 36 B PUT Z 4 2825 B 610 258 1656 15 37 B LDOPTB OF OUTPUT AREA Z 4 2829 B 489 258 1657 15 38 IS8K LCA GRPMK8,4318 Z 7 2833 L H99 31Y 258 1658 15 39 MCW @%@ Z 4 2840 M R25 258 1659 15 40 MCW 4317 Z 4 2844 M 31X 258 1660 15 41 B CWI98 Z 4 2848 B 469 258 &LH99I98B610B489LH9931YMR25M31XB469 L034Q51,Q25Q29,Q33Q40,Q44Q48104002583742L 1661 15 42 IS16K LCA GRPMK8,4718 Z 7 2852 L H99 71Y 259 1662 15 43 MCW @%@ Z 4 2859 M R25 259 1663 15 44 MCW 4717 Z 4 2863 M 71X 259 1664 15 45 B CWI98 Z 4 2867 B 469 259 1665 15 46 NOCTL MLC FCTBL,FACTOR PROCESS WHEN NO Z 7 2871 M Q97 H48 259 1666 15 47 MLC @3@,PROCOR CONTROL CARD Z 7 2878 M R24 194 259 1667 15 48 BSP INTAP Z 5 2885 U %U4 B 259 &LH9971YMR25M71XB469MQ97H48MR24194U%U4B L038Q89,Q59Q63,Q67Q71,Q78Q85104002593742L 1668 15 49 B IS4K Z 4 2890 B Q18 260 1669 15 50 FCTBL DCW 0015 Z 4 2897 260 1670 15 51 DCW 3051 Z 4 2901 260 1671 15 52 DCW 7087 Z 4 2905 260 1672 15 53 DCW 7127 Z 4 2909 260 1673 15 54 CKPRO DCW 3456 Z 4 2913 260 1674 15 55 LTORG * Z 2914 DCW @000@ Z 3 2916 LIT 260 &BQ1800153051708771273456000 L027R16,Q94Q98,R02R06,R10R14104002603742L @I@ Z 1 2917 LIT 261 @CTL@ Z 3 2920 LIT 261 &30 Z 2 2922 LIT 261 @0@ Z 1 2923 LIT 261 @3@ Z 1 2924 LIT 261 @%@ Z 1 2925 LIT 261 1675 15 56 * 1676 15 57 *M A I N L I N E C O N S T A N T S A N D W O R K A R E A S 1677 15 58 * 1678 15 59 *LITERAL HOLD AREA 1679 15 60 * 1680 15 61 ORG SAVE Z 3760 1681 15 62 LAREA EQU * Z 3759 &ICTL3?03% L009R25,R18R21,R23R24,R25040104002613742L 1682 15 63 DCW &00000 Z 5 3764 262 1683 15 64 DCW #10 Z 10 3774 262 1684 15 65 DCW @DCW @ Z 5 3779 262 1685 15 66 DCW #1 Z 1 3780 262 1686 15 67 DS 53 Z 3833 &0000? DCW L021G80,G65G75,G80040,040040104002623742L 1687 15 68 DCW @/@ Z 1 3834 263 1688 15 69 DS 9 Z 3843 &/ L001H34,040040,040040,040040104002633742L 1689 15 70 GRPMK3 DC @}@ Z 1 3844 264 1690 15 71 HLDLIT EQU LAREA&1 Z 3760 1691 15 72 * 1692 15 73 *CONSTANTS AND WORK AREAS 1693 15 74 * 1694 15 75 FACTOR DCW @0000@ LABEL CONVERSION FACTR Z 4 3848 264 1695 15 76 BIGCTR DCW @00000@ BIG LITERAL LABEL CNTR Z 5 3853 264 1696 15 77 ORGCTR DCW @00332@ ORIGIN COUNTER Z 5 3858 264 1 1401 AUTOCODER-PASS 4 PROCESS JOB/CTL -VERSION 3 3742L PAGE 40 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1697 15 78 BLANK4 DCW #4 BLANKS Z 4 3862 264 &}00000000000332 L019H62)H44H44,H45H49,H54H59104002643742L 1698 15 79 B2CNTR DCW #5 WORK AREA Z 5 3867 265 1699 15 80 HOLD4 DCW #4 WORK AREA Z 4 3871 265 1700 15 81 W6AREA DCW #6 WORK AREA Z 6 3877 265 1701 15 82 HOLD7 DCW #7 USED FOR LABEL Z 7 3884 265 1702 15 83 HOLD1 DCW &0 CONVERSION ONLY Z 1 3885 265 1703 15 84 SFXHLD DCW 0 SUFFIX CHARACTER Z 1 3886 265 1704 15 85 INITSW DCW 0 DA SWITCH Z 1 3887 265 & ?00 L025H87,H68H72,H78H85,H86H87104002653742L 1705 15 86 MARKSW DC 0 DA SWITCH Z 1 3888 266 1706 15 87 DCWSW DC 0 DCW SWITCH Z 1 3889 266 1707 15 88 LITSW2 DC 0 LITERAL SWITCH Z 1 3890 266 1708 15 89 DSASW2 DC 0 DSA SWITCH Z 1 3891 266 1709 15 90 DCWSW2 DC 0 DCW SWITCH Z 1 3892 266 1710 15 91 GRPMK8 EQU 3899 Z 3899 &00000 L005H92)H88H88,040040,040040104002663742L 1711 15 92 3899 DCW @}@ SYSTEM GROUP MARK Z 1 3899 267 &} L001H99,040040,040040,040040104002673742L & N000000,040040,040040,040040B00002683742L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02693743L &,068072)063067/061039 ,001001104002703743L 1712 15 93 EX DOZERO Z B 000 268 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 41 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1713 15 94 JOB 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 1714 15 95 * 1715 15 96 *PROCESS INSTRUCTION STATEMENTS 1716 15 97 * 1717 15 98 ORG DOPROG Z 2575 1718 15 99 INSTR MCW EQUADD,IMAGE&67 GET ACTUAL OP Z 7 2575 M N11 167 271 1719 16 00 CW LENSW#1 RESET SWITCH Z 4 2582 ) G34 271 1720 16 01 MLC @01@,IMAGE&7 SET COUNT TO ONE Z 7 2586 M G36 107 271 1721 16 02 BW *&5,EQUADD Q. REGULAR OP CODE Z 8 2593 V O05 N11 1 271 1722 16 03 B AUGMNT Z 4 2601 B R06 271 1723 16 04 DOCNT BCE DONE,INPUT&21&X2, Q. IS THERE OPERAND Z 8 2605 B P31 0K1 271 &MN11167)G34MG36107VO05N111BR06BP310K1 L038O12,N82N86,N93O01,O05040104002713743L 1724 16 05 BCE XISALF,INPUT&21&X2,@ Q. ALPHAMERIC LITERAL Z 8 2613 B ?77 0K1 @ 272 1725 16 06 LCA BLANK2&1,INPUT&20&X2 WIPE OUT PREV OPERAND Z 7 2621 L H61 0K0 272 1726 16 07 B COMSCN SCAN FOR COMMA, BLANK Z 4 2628 B 860 272 1727 16 08 MLC XL3,W3AREA Z 7 2632 M 099 H74 272 1728 16 09 MLC FREEA,XL3 Z 7 2639 M M98 099 272 &B?770K1@LH610K0B860M099H74MM98099 L033O45,O21O28,O32O39,040040104002723743L 1729 16 10 BCE XISLIT,INPUT&21&X3,& Q. NUMERIC LITERAL OR Z 8 2646 B B51 0B1 & 273 1730 16 11 BCE XISLIT,INPUT&21&X3,- ADDRESS CONSTANT Z 8 2654 B B51 0B1 - 273 1731 16 12 B FR2FIX CONVERT FREE TO FIXED Z 4 2662 B 952 273 1732 16 13 BCE SMLTYP,IMAGE&23&X1,# Q. AREA DEF LITERAL Z 8 2666 B ?40 1S3 # 273 1733 16 14 CKDONE A &3,IMAGE&7 ADD THREE TO COUNT Z 7 2674 A G37 107 273 &BB510B1&BB510B1-B952B?401S3#AG37107 L035O80,O54O62,O66O74,040040104002733743L 1734 16 15 BW FREMOD,LENSW Q. FIVE CHAR INST Z 8 2681 V P39 G34 1 274 1735 16 16 C XL1,@010@ Q. B OPERAND JUST Z 7 2689 C 089 G40 274 1736 16 17 BL DONE PROCESSED Z 5 2696 B P31 T 274 1737 16 18 MLC @011@,XL1 Z 7 2701 M G43 089 274 1738 16 19 BW *&5,SCANSW Q. TWO BLABKS AFTER OP Z 8 2708 V P20 N15 1 274 1739 16 20 B ELMBLK ELIMINATE BLANKS Z 4 2716 B Q83 274 &VP39G341C089G40BP31TMG43089VP20N151BQ83L039P19,O89O96,P01P08,P16040104002743743L 1740 16 21 INTXL1 MCW XL2,FREEA Z 7 2720 M 094 M98 275 1741 16 22 B DOCNT Z 4 2727 B O05 275 1742 16 23 DONE BW CKMOD1,SCANSW Q. D MODIFIER IN Z 8 2731 V Q03 N15 1 275 1743 16 24 FREMOD MLC INPUT&21&X2,IMAGE&39 OPERAND FIELD Z 7 2739 M 0K1 139 275 1744 16 25 BCE *&5,IMAGE&39, Q. D MODIFIER OFFSET Z 8 2746 B P58 139 275 1745 16 26 B C1 ONE POSITION Z 4 2754 B P80 275 &M094M98BO05VQ03N151M0K1139BP58139 BP80 L038P57,P27P31,P39P46,P54040104002753743L 1746 16 27 BCE C1,INPUT&22&X2, IF BOTH POSITIONS Z 8 2758 B P80 0K2 276 1747 16 28 MCW INPUT&22&X2,IMAGE&39 BLANK ASSUME FIRST Z 7 2766 M 0K2 139 276 1748 16 29 A &1,XL2 BLANK SIGNIFICANT Z 7 2773 A G44 094 276 1749 16 30 C1 C INPUT&23&X2,BLANK2 Q. D MODIFIER Z 7 2780 C 0K3 H60 276 1750 16 31 BE ISMOD FOLLOWED BY TWO Z 5 2787 B Q11 S 276 &BP800K2 M0K2139AG44094C0K3H60BQ11S L034P91,P66P73,P80P87,040040104002763743L 1751 16 32 MZ ABIT,IMAGE&5 BLANKS Z 7 2792 Y 187 105 277 1752 16 33 B ISMOD Z 4 2799 B Q11 277 1753 16 34 CKMOD1 BCE DOIADD,IMAGE&39, Q. D CHARACTER Z 8 2803 B Q32 139 277 1754 16 35 ISMOD A &1,IMAGE&7 PROCESS D CHARACTER Z 7 2811 A G44 107 277 1755 16 36 MLC IMAGE&7,XL2 Z 7 2818 M 107 094 277 &Y187105BQ11BQ32139 AG44107M107094 L033Q24,P99Q03,Q11Q18,040040104002773743L 1756 16 37 MLC IMAGE&39,IMAGE&66&X2 Z 7 2825 M 139 1O6 278 1757 16 38 DOIADD MLC ORGCTR,IMAGE&61 ASSIGN ADDRESS AND Z 7 2832 M H58 161 278 1758 16 39 A &1,IMAGE&61 BUMP UP COUNTER Z 7 2839 A G44 161 278 1759 16 40 A IMAGE&7,ORGCTR Z 7 2846 A 107 H58 278 1760 16 41 MLC BLANK,IMAGE&75 CODE RECORD Z 7 2853 M H59 175 278 1761 16 42 B NUREC Z 4 2860 B 534 278 &M1391O6MH58161AG44161A107H58MH59175B534L039Q63,Q32Q39,Q46Q53,Q60040104002783743L 1762 16 43 LOOPBL A &1,XL2 WEED OUT BLANKS Z 7 2864 A G44 094 279 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 42 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1763 16 44 C XL2,@51@ BETWEEN OPERANDS Z 7 2871 C 094 G46 279 1764 16 45 BL ERRBLK Z 5 2878 B Q95 T 279 1765 16 46 ELMBLK BCE LOOPBL,INPUT&21&X2, Z 8 2883 B Q64 0K1 279 1766 16 47 B INTXL1 Z 4 2891 B P20 279 1767 16 48 ERRBLK MZ ABIT,IMAGE&5 Z 7 2895 Y 187 105 279 &AG44094C094G46BQ95TBQ640K1 BP20Y187105 L038R01,Q71Q78,Q83Q91,Q95040104002793743L 1768 16 49 B CKDONE Z 4 2902 B O74 280 1769 16 50 * 1770 16 51 *PROCESS UNIQUE MNEMONICS 1771 16 52 * 1772 16 53 AUGMNT MCW EQUADD-1,IMAGE&39 D MOD TO IMAGE AREA Z 7 2906 M N10 139 280 1773 16 54 BCE ISFIVE,EQUADD-1, Q. BIN TYPE Z 8 2913 B ?32 N10 280 1774 16 55 CKREG BW DOCNT,EQUADD-1 Q. TYPICAL UNIQUE MNEM Z 8 2921 V O05 N10 1 280 1775 16 56 BW TAPAUG,EQUADD-2 Q. TAPE TYPE Z 8 2929 V R52 N09 1 280 &BO74MN10139B?32N10 VO05N101VR52N091 L035R36,R06R13,R21R29,040040104002803743L 1776 16 57 MCW EQUADD-2,IMAGE&70 ERGO RAMAC TYPE Z 7 2937 M N09 170 281 1777 16 58 MLC @%@ Z 4 2944 M G47 281 1778 16 59 B OPDONE Z 4 2948 B ?21 281 1779 16 60 TAPAUG C INPUT&21,@0@ PROCESS TAPE TYPE OF Z 7 2952 C 021 G48 281 1780 16 61 BH DOCNT UNIQUE MNEMONICS Z 5 2959 B O05 U 281 1781 16 62 BCE MSCSW,INPUT&22,, CHECK FOR PROPERLY Z 8 2964 B R95 022 , 281 &MN09170MG47B?21C021G48BO05UBR95022, L035R71,R44R48,R52R59,R64040104002813743L 1782 16 63 C INPUT&23,BLANK2 CODED A OPERAND Z 7 2972 C 023 H60 282 1783 16 64 BE GETPOP Z 5 2979 B R99 S 282 1784 16 65 MCW @###@,IMAGE&70 Z 7 2984 M G51 170 282 1785 16 66 B OPDONE Z 4 2991 B ?21 282 1786 16 665 MSCSW CW SCANSW Z 4 2995 ) N15 282 1787 16 67 GETPOP MN INPUT&21,IMAGE&70 Z 7 2999 D 021 170 282 1788 16 68 MCW EQUADD-2 Z 4 3006 M N09 282 &C023H60BR99SMG51170B?21)N15D021170MN09 L038?09,R79R84,R91R95,R99?06104002823743L 1789 16 69 MLC @%@ Z 4 3010 M G47 283 1790 16 70 MLC @002@,XL2 Z 7 3014 M G54 094 283 1791 16 72 OPDONE MLZS ABBIT,IMAGE&1 MARK A OPERAND DONE Z 7 3021 Y 189 101 283 1792 16 73 B CKDONE Z 4 3028 B O74 283 1793 16 74 ISFIVE SW LENSW SET SWITCH FOR FIVE Z 4 3032 , G34 283 1794 16 75 B CKREG CHAR INSTRUCTION Z 4 3036 B R21 283 1795 16 76 * 1796 16 77 *PROCESS AREA DEFINITION LITERAL 1797 16 78 * 1798 16 79 SMLTYP SW IMAGE&24&X1 MOVE LENGTH TO Z 4 3040 , 1S4 283 &MG47MG54094Y189101BO74,G34BR21,1S4 L034?43,?14?21,?28?32,?36?40104002833743L 1799 16 80 MLC IMAGE&26&X1,LAREA&24 LITERAL HOLD AREA Z 7 3044 M 1S6 G83 284 1800 16 81 MLC @#@ Z 4 3051 M G55 284 1801 16 82 CW IMAGE&24&X1 REMOVE LENGTH FROM Z 4 3055 ) 1S4 284 1802 16 83 MCW BLANK4,IMAGE&26&X1 CHAR ADJ PORTION Z 7 3059 M H62 1S6 284 1803 16 84 MCW INPUT&84,LAREA&4 OF OPERAND AND SAVE Z 7 3066 M 084 G63 284 1804 16 85 B WRTLIT ALTER NUMBER Z 4 3073 B A89 284 1805 16 86 * 1806 16 87 *PROCESS ALPHAMERIC LITERALS 1807 16 88 * 1808 16 89 XISALF B SCANAT SCAN FOR @ SIGN Z 4 3077 B S92 284 &M1S6G83MG55)1S4MH621S6M084G63BA89BS92 L037?80,?51?55,?59?66,?73?77104002843743L 1809 16 90 C XL3,@07@ Q. BIG LITERAL Z 7 3081 C 099 G57 285 1810 16 91 BL DOBIG Z 5 3088 B A57 T 285 1811 16 92 XALF1 A XL3,XL1 Z 7 3093 A 099 089 285 1812 16 93 MCW INPUT&19&X2,IMAGE&15&X1 GENERATE UNIQUE LABEL Z 7 3100 M 0J9 1/5 285 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 43 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1813 16 94 BCE GM1,FREE&18&X2,} AND STRIP ZONING Z 8 3107 B A43 0J8 } 285 1814 16 95 BCE OFF GROUP MARKS IN Z 1 3115 B 285 1815 16 96 BCE LITERAL TO ELIMINATE Z 1 3116 B 285 &C099G57BA57TA099089M0J91/5BA430J8}BB L036A16,?88?93,A00A07,A15A16104002853743L 1816 16 97 BCE CONFLICT Z 1 3117 B 286 1817 16 98 ADD S XL3&1,XL1&1 WITH NOISE RECORD Z 7 3118 S 100 090 286 1818 16 99 MZ EXOVFL-1,IMAGE&17&X1 ROUTINE Z 7 3125 Y 190 1/7 286 1819 17 00 SETEX MCW EXNUMB-1,IMAGE&22&X1 GIVE LITERAL SECTION Z 7 3132 M 192 1S2 286 1820 17 01 B PROLIT CODE Z 4 3139 B A82 286 1821 17 02 GM1 MZ BLANK4,IMAGE&14&X1 Z 7 3143 Y H62 1/4 286 1822 17 03 MZ Z 1 3150 Y 286 &BS100090Y1901/7M1921S2BA82YH621/4Y L034A50,A18A25,A32A39,A43A50104002863743L 1823 17 04 MZ Z 1 3151 Y 287 1824 17 05 MZ Z 1 3152 Y 287 1825 17 06 B ADD Z 4 3153 B A18 287 1826 17 07 * 1827 17 08 *PROCESS BIG LITERALS 1828 17 09 * 1829 17 10 DOBIG MLC BIGCTR,IMAGE&22&X1 GENERATE BIG LITERAL Z 7 3157 M H53 1S2 287 1830 17 11 MLC @$@ LABEL Z 4 3164 M G58 287 1831 17 12 A &1,BIGCTR Z 7 3168 A G44 H53 287 1832 17 13 MCW INPUT&84,LAREA&4 SAVE ALTER NUMBER Z 7 3175 M 084 G63 287 1833 17 14 * 1834 17 15 *PLACE LITERALS IN HOLD AREA AND WRITE OUT ON LITERAL TAPE 1835 17 16 * &YYBA18MH531S2MG58AG44H53M084G63 L031A81,A52A53,A57A64,A68A75104002873743L 1836 17 17 PROLIT MLC INPUT&19&X2,LAREA&19&X3 LITERAL TO HOLD AREA Z 7 3182 M 0J9 GG8 288 1837 17 18 WRTLIT MLC IMAGE&22&X1,LAREA&11 LITERAL LABEL TO AREA Z 7 3189 M 1S2 G70 288 1838 17 19 BW DSAX1,LITSW2 Z 8 3196 V Z90 H90 1 288 1839 17 20 WT LITAPE,HLDLIT WRITE OUT LITERAL Z 8 3204 M %U6 G60 W 288 1840 17 21 NOP 0 Z 4 3212 N 000 288 1841 17 22 BER TPERR Z 5 3216 B 221 L 288 &M0J9GG8M1S2G70VZ90H901M%U6G60WN000B221LL039B20,A89A96,B04B12,B16040104002883743L 1842 17 23 MCW BLANK4,LAREA&4 CLEAR HOLD AREA Z 7 3221 M H62 G63 289 1843 17 24 MLC LAREA&74,LAREA&73 Z 7 3228 M H33 H32 289 1844 17 25 CW LITSW SET SW TO INDICATE AT Z 4 3235 ) N46 289 1845 17 26 BW DSAX1,DSASW2 Q. RECURSIVE DCW Z 8 3239 V Z90 H91 1 289 1846 17 27 B CKDONE LEAST ONE LIT EXISTS Z 4 3247 B O74 289 1847 17 28 * 1848 17 29 *PROCESS NUMERIC LITERALS 1849 17 30 * 1850 17 31 XISLIT C INPUT&22&X3,@0@ Q. ADDRESS CONSTANT Z 7 3251 C 0B2 G48 289 &MH62G63MH33H32)N46VZ90H911BO74C0B2G48 L037B57,B28B35,B39B47,B51040104002893743L 1851 17 32 MLC W3AREA,XL3 Z 7 3258 M H74 099 290 1852 17 33 BH DOBIG Z 5 3265 B A57 U 290 1853 17 34 C XL3,@07@ Q. BIG LITERAL Z 7 3270 C 099 G57 290 1854 17 35 BL DOBIG Z 5 3277 B A57 T 290 1855 17 36 XLIT1 A XL1,XL3 PROCESS SMALL NUMERIC Z 7 3282 A 089 099 290 1856 17 37 MLC INPUT&19&X2,IMAGE&14&X3 LITERALS Z 7 3289 M 0J9 1A4 290 &MH74099BA57UC099G57BA57TA089099M0J91A4 L038B95,B65B70,B77B82,B89040104002903743L 1857 17 38 MZ EXOVFL-1,IMAGE&21&X1 GENERATE UNIQUE LABEL Z 7 3296 Y 190 1S1 291 1858 17 39 MLC FREEA,XL3 FOR LITERAL Z 7 3303 M M98 099 291 1859 17 40 MLZS INPUT&21&X3,IMAGE&18&X1 Z 7 3310 Y 0B1 1/8 291 1860 17 41 MLC W3AREA,XL3 Z 7 3317 M H74 099 291 1861 17 42 B SETEX Z 4 3324 B A32 291 1862 17 43 * 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 44 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1863 17 44 *GENERATE LABEL ENTRY ADDRESS FOR SYMBOLIC OPERANDS 1864 17 45 * 1865 17 46 PROPND SBR BOPXT&3 Z 4 3328 H C60 291 &Y1901S1MM98099Y0B11/8MH74099BA32HC60 L036C31,C03C10,C17C24,C28040104002913743L 1866 17 47 BCE BOPXT,IMAGE&17 Z 7 3332 B C57 117 292 1867 17 48 MCW IMAGE&22,W6AREA Z 7 3339 M 122 H77 292 1868 17 49 B PROLAB LINK TO SUBROUTINE Z 4 3346 B W47 292 1869 17 50 MLC W3AREA,IMAGE&70 Z 7 3350 M H74 170 292 1870 17 51 BOPXT B XXXX Z 4 3357 B 000 292 1871 17 52 * 1872 17 53 *DETERMINE TYPE OF CONTROL OP 1873 17 54 * 1874 17 55 CTRLOP MCW EQUADD-1,IMAGE&75 CODE RECORD Z 7 3361 M N10 175 292 &BC57117M122H77BW47MH74170B000MN10175 L036C67,C39C46,C50C57,C61040104002923743L 1875 17 56 S XL3&1 Z 4 3368 S 100 293 1876 17 57 MN EQUADD-1,XL3 BRANCH TO APPROPRIATE Z 7 3372 D N10 099 293 1877 17 58 A XL3 ROUTINE Z 4 3379 A 099 293 1878 17 59 A XL3 Z 4 3383 A 099 293 1879 17 60 B *&1&X3 Z 4 3387 B CI1 293 1880 17 61 B DARTN Z 4 3391 B M41 293 1881 17 62 B DCWCD Z 4 3395 B Y11 293 &S100DN10099A099A099BCI1BM41BY11 L031C98,C72C79,C83C87,C91C95104002933743L 1882 17 63 B ERRHLT Z 4 3399 B D63 294 1883 17 64 B EXEND Z 4 3403 B G10 294 1884 17 65 B DOSFX Z 4 3407 B F92 294 1885 17 66 B ERRHLT Z 4 3411 B D63 294 1886 17 67 B ORGSTM Z 4 3415 B D74 294 1887 17 68 B DSSTMT Z 4 3419 B F00 294 1888 17 69 B INSPC Z 4 3423 B D38 294 &BD63BG10BF92BD63BD74BF00BD38 L028D26,D03D07,D11D15,D19D23104002943743L 1889 17 70 MCW INPUT&80,IMAGE&21 Z 7 3427 M 080 121 295 1890 17 71 B NUREC Z 4 3434 B 534 295 1891 17 72 INSPC MCW EQUADD-2,IMAGE&67 PROCESS CC, SS Z 7 3438 M N09 167 295 1892 17 73 MCW BLANK2,IMAGE&75 TYPE OF Z 7 3445 M H60 175 295 1893 17 74 MLC @01@,IMAGE&7 INSTRUCTIONS Z 7 3452 M G36 107 295 1894 17 75 B FREMOD Z 4 3459 B P39 295 &M080121B534MN09167MH60175MG36107BP39 L036D62,D34D38,D45D52,D59040104002953743L 1895 17 76 ERRHLT H 0,0402 SYSTEM ERROR HALT Z 7 3463 . 000 402 296 1896 17 77 B ERRHLT SHOULD NEVER OCCUR Z 4 3470 B D63 296 1897 17 78 * 1898 17 79 *PROCESS LITERAL ORIGIN AND ORIGIN CARDS 1899 17 80 * 1900 17 81 ORGSTM B COMSCN SCAN FOR BLANK Z 4 3474 B 860 296 1901 17 82 B FNLOP CHECK LAST OPERAND Z 4 3478 B W05 296 1902 17 83 B FR2FIX FREE TO FIXED FORM Z 4 3482 B 952 296 1903 17 84 BCE SUBORG,IMAGE&24,X Q. ADJUSTMENT &XOD Z 8 3486 B E63 124 X 296 1904 17 85 BCE ORGPRO,IMAGE&17,* Q. ASTERISK OPERAND Z 8 3494 B E89 117 * 296 &.000402BD63B860BW05B952BE63124XBE89117*L039E01,D70D74,D78D82,D86D94104002963743L 1905 17 86 ZS &1,ORGCTR SET COUNTER TO -1 Z 7 3502 ! G44 H58 297 1906 17 87 BCE ORGADJ,IMAGE&17, Q. BLANK OPERAND Z 8 3509 B E33 117 297 1907 17 88 BWZ ORGCVT,IMAGE&17,2 Q. ACTUAL ORIGIN Z 8 3517 V E78 117 2 297 1908 17 89 S XL2&1 PROCESS A OPERAND OF Z 4 3525 S 095 297 1909 17 90 B PROPND SYMBOLIC ORIGIN Z 4 3529 B C28 297 1910 17 91 ORGADJ A IMAGE&26,ORGCTR ADD CHAR ADJUSTMENT Z 7 3533 A 126 H58 297 &!G44H58BE33117 VE781172S095BC28A126H58 L038E39,E09E17,E25E29,E33040104002973743L 1911 17 92 TYPORG MLC ORGCTR,IMAGE&61 SAVE ORIGIN VALUE Z 7 3540 M H58 161 298 1912 17 93 BCE NUREC,INPUT&16,O Q. ORIGIN CARD Z 8 3547 B 534 016 O 298 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 45 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1913 17 94 B PUT PUT LTORG RECORD Z 4 3555 B 610 298 1914 17 95 B CALL GO TO LITERAL ROUTINE Z 4 3559 B U31 298 1915 17 96 SUBORG ZS &1,ORGCTR SET COUNTER TO -1 Z 7 3563 ! G44 H58 298 1916 17 97 B PROPND PROCESS A OPERAND Z 4 3570 B C28 298 1917 17 98 B TYPORG Z 4 3574 B E40 298 &MH58161B534016OB610BU31!G44H58BC28BE40 L038E77,E47E55,E59E63,E70E74104002983743L 1918 17 99 ORGCVT B CVTFLA RESET COUNTER TO ACTL Z 4 3578 B W28 299 1919 18 00 A W5AREA,ORGCTR ADDRESS LESS ONE Z 7 3582 A H76 H58 299 1920 18 01 ORGPRO MZ ABBIT,IMAGE&1 MARK A OPERAND Z 7 3589 Y 189 101 299 1921 18 02 B ORGADJ PROCESSED Z 4 3596 B E33 299 1922 18 03 * 1923 18 04 *PROCESS DS STATEMENTS 1924 18 05 * 1925 18 06 DSSTMT B COMSCN SCAN FOR COMMA/BLANK Z 4 3600 B 860 299 1926 18 07 B FNLOP CHECK LAST OPERAND Z 4 3604 B W05 299 1927 18 08 B FR2FIX CONVERT TO FIXED FORM Z 4 3608 B 952 299 &BW28AH76H58Y189101BE33B860BW05B952 L034F11,E82E89,E96F00,F04F08104002993743L 1928 18 09 BWZ CKEQU,INPUT&21,2 Q. ACTUAL OPERAND Z 8 3612 V F55 021 2 300 1929 18 10 BCE CK4ADJ,IMAGE&17,* Q. ASTERISK OPERAND Z 8 3620 B F44 117 * 300 1930 18 11 BCE NUREC,IMAGE&17,% Q. I/O OPERAND Z 8 3628 B 534 117 % 300 1931 18 12 B PROPND GENERATE LABEL ADDRESS Z 4 3636 B C28 300 1932 18 13 B NUREC Z 4 3640 B 534 300 1933 18 14 CK4ADJ ZA IMAGE&26,IMAGE&61 PICKUP CHARACTER Z 7 3644 ? 126 161 300 &VF550212BF44117*B534117%BC28B534?126161L039F50,F20F28,F36F40,F44040104003003743L 1934 18 15 B DSETAD ADJUSTMENT Z 4 3651 B !82 301 1935 18 16 CKEQU ZA IMAGE&21,W5AREA CONVERT ACTUAL OPND OF Z 7 3655 ? 121 H76 301 1936 18 17 B CVRT5 EQU AND DS Z 4 3662 B V78 301 1937 18 18 A IMAGE&26,W5AREA ADD CHARACTER ADJ Z 7 3666 A 126 H76 301 1938 18 19 BCE DCWACT,IMAGE&75,P Q. EQU CODE Z 8 3673 B !50 175 P 301 1939 18 20 A W5AREA,ORGCTR PROCESS DS Z 7 3681 A H76 H58 301 &B!82?121H76BV78A126H76B!50175PAH76H58 L037F87,F55F62,F66F73,F81040104003013743L 1940 18 21 B BMPCTR Z 4 3688 B !75 302 1941 18 22 * 1942 18 23 *PROCESS SUFFIX STATEMENTS 1943 18 24 * 1944 18 25 DOSFX MLC INPUT&21,IMAGE&17 SABE SUFFIX Z 7 3692 M 021 117 302 1945 18 26 MCW INPUT&21,SFXHLD CHARACTER Z 7 3699 M 021 H86 302 1946 18 27 B NUREC Z 4 3706 B 534 302 1947 18 28 * 1948 18 29 *PROCESS EXECUTE, END STATEMENTS 1949 18 30 * 1950 18 31 EXEND B COMSCN SCAN FOR COMMA/BLANK Z 4 3710 B 860 302 1951 18 32 B FNLOP CHECK LAST OPERAND Z 4 3714 B W05 302 1952 18 33 B FR2FIX CONVERT TO FIXED FORM Z 4 3718 B 952 302 &B!75M021117M021H86B534B860BW05B952 L034G21,F92F99,G06G10,G14G18104003023743L 1953 18 34 BCE NUREC,INPUT&16,X Z 8 3722 B 534 016 X 303 1954 18 35 B CALL MERGE LITERALS Z 4 3730 B U31 303 1955 18 36 LTORG * Z 3734 1719 LENSW DCW #01 Z 1 3734 AREA 303 @01@ Z 2 3736 LIT 303 &3 Z 1 3737 LIT 303 @010@ Z 3 3740 LIT 303 @011@ Z 3 3743 LIT 303 &B534016XBU31 01C010011 L022G43,G30G34,G35G37,G38G41104003033743L &1 Z 1 3744 LIT 304 @51@ Z 2 3746 LIT 304 1 1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 3743L PAGE 46 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @%@ Z 1 3747 LIT 304 @0@ Z 1 3748 LIT 304 @###@ Z 3 3751 LIT 304 @002@ Z 3 3754 LIT 304 @#@ Z 1 3755 LIT 304 &A51%0###002# L012G55,G45G47,G48G49,G52G55104003043743L @07@ Z 2 3757 LIT 305 @$@ Z 1 3758 LIT 305 1956 18 37 GRPMK2 DCW @}@ SYSTEM GROUP MARK Z 1 3759 305 1957 18 38 SAVE EQU *&1 Z 3760 &07$} L004G59,G58G59,040040,040040104003053743L & N000000,040040,040040,040040B00003063743L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03073744L &,068072)063067/061039 ,001001104003083744L 1958 18 39 EX DOZERO Z B 000 306 1 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 3744L PAGE 47 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1959 18 40 JOB 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 1960 18 41 * 1961 18 42 *PROCESS DA STATEMENTS 1962 18 43 * 1963 18 44 ORG DOPROG Z 2575 1964 18 45 DASTMT BSP SYSTAP RE-POSITION SYSTEM Z 5 2575 U %U1 B 309 1965 18 46 BSP SYSTAP TAPE Z 5 2580 U %U1 B 309 1966 18 47 SW NUMSW,DACSW Q. FIRST CHAR -X- Z 7 2585 , F31 F55 309 1967 18 48 SW FRMKSW,DGMKSW SET SWITICHES Z 7 2592 , F58 F57 309 1968 18 49 BCE DAERR,INPUT&21,X Z 8 2599 B C14 021 X 309 &U%U1BU%U1B,F31F55,F58F57BC14021X L032O06,N80N85,N92N99,040040104003093744L 1969 18 50 EXSCAN BCE NDXSCN,INPUT&22&X2,X SCAN FOR -X- IN -BXL- Z 8 2607 B O34 0K2 X 310 1970 18 51 BCE DAERR,XL2,4 Z 8 2615 B C14 094 4 310 1971 18 52 A &1,XL2 Z 7 2623 A F18 094 310 1972 18 53 B EXSCAN Z 4 2630 B O07 310 1973 18 54 NDXSCN A INPUT&21&X2,BLKCTR GET BLOCKING FACTOR Z 7 2634 A 0K1 F17 310 &BO340K2XBC140944AF18094BO07A0K1F17 L034O40,O15O23,O30O34,040040104003103744L 1974 18 55 A &2,XL2 Z 7 2641 A F19 094 311 1975 18 56 B COMSCN Z 4 2648 B 860 311 1976 18 57 ZA INPUT&19&X2,RECNTR#5 GET RECORD LENGTH Z 7 2652 ? 0J9 F24 311 1977 18 58 FINHED BCE DAINDX,INPUT&21&X2,X Q. INDEXING Z 8 2659 B C73 0K1 X 311 1978 18 59 BCE DAGMRK,INPUT&21&X2,G Q. GROUP MARK Z 8 2667 B C91 0K1 G 311 &AF19094B860?0J9F24BC730K1XBC910K1G L034O74,O48O52,O59O67,040040104003113744L 1979 18 60 BCE DAFMRK,INPUT&21&X2, Q. RECORD MARK Z 8 2675 B D06 0K1 312 1980 18 61 BCE DACLR,INPUT&21&X2,C Q. CLEAR OPTION Z 8 2683 B C65 0K1 C 312 1981 18 62 BCE CMPSZ,INPUT&20&X2, Q. NO OTHER OPTIONS Z 8 2691 B P06 0K0 312 1982 18 63 MZ ABIT,IMAGE&5 MARK BAD STATEMENT Z 7 2699 Y 187 105 312 1983 18 64 CMPSZ S W5AREA Z 4 2706 S H76 312 &BD060K1 BC650K1CBP060K0 Y187105SH76 L035P09,O83O91,O99P06,040040104003123744L 1984 18 65 MCW BLKCTR,B2CNTR COMPUTE SIZE OF AREA Z 7 2710 M F17 H67 313 1985 18 66 DAREP S &1,B2CNTR AND STORE IN B2CNTR Z 7 2717 S F18 H67 313 1986 18 67 BM SFANS, B2CNTR Z 8 2724 V P43 H67 K 313 1987 18 68 A RECNTR,W5AREA Z 7 2732 A F24 H76 313 1988 18 69 B DAREP Z 4 2739 B P17 313 &MF17H67SF18H67VP43H67KAF24H76BP17 L033P42,P17P24,P32P39,040040104003133744L 1989 18 70 SFANS MCW W5AREA,B2CNTR Z 7 2743 M H76 H67 314 1990 18 71 MLC @*@,IMAGE&17 Z 7 2750 M F25 117 314 1991 18 72 BCE DASTR,INPUT&6, DETERMINE WHETHER Z 8 2757 B P73 006 314 1992 18 73 BWZ DANUM,INPUT&6,2 LOCATION OF DA IS Z 8 2765 V P98 006 2 314 1993 18 74 DASTR MLC ORGCTR,DALOC#5 ACTUAL OR ASTERISK Z 7 2773 M H58 F30 314 &MH76H67MF25117BP73006 VP980062MH58F30 L037P79,P50P57,P65P73,040040104003143744L 1994 18 75 A &1,DALOC PROCESS DA* Z 7 2780 A F18 F30 315 1995 18 76 A W5AREA,ORGCTR BUMP ORIGIN COUNTER Z 7 2787 A H76 H58 315 1996 18 77 B ENDDA Z 4 2794 B Q20 315 1997 18 78 DANUM MLC INPUT&10,IMAGE&21 PROCESS ACTUAL DA Z 7 2798 M 010 121 315 1998 18 79 CW NUMSW#1 SET ACTUAL DA SWITCH Z 4 2805 ) F31 315 1999 18 80 B CVTFLA Z 4 2809 B W28 315 &AF18F30AH76H58BQ20M010121)F31BW28 L033Q12,P87P94,P98Q05,Q09040104003153744L 2000 18 81 MLC W5AREA,DALOC Z 7 2813 M H76 F30 316 2001 18 82 ENDDA MLC DALOC,IMAGE&66 GENERATE HIGH ORDER Z 7 2820 M F30 166 316 2002 18 83 MLC DALOC LOCATION OF DA Z 4 2827 M F30 316 2003 18 84 A RECNTR,IMAGE&66 Z 7 2831 A F24 166 316 2004 18 85 S &1,IMAGE&66 Z 7 2838 S F18 166 316 2005 18 86 S &1,DALOC Z 7 2845 S F18 F30 316 &MH76F30MF30166MF30AF24166SF18166SF18F30L039Q51,Q20Q27,Q31Q38,Q45040104003163744L 2006 18 87 CW HEDSW#1 Z 4 2852 ) F32 317 2007 18 88 BW DALOOP,DACSW Q. CLEAR OPTION Z 8 2856 V ?37 F55 1 317 2008 18 89 MCW IMAGE&80,DAHLD SAVE IMAGE Z 7 2864 M 180 G54 317 1 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 3744L PAGE 48 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2009 18 90 CHAIN 10 MACRO 2010 MCW Z 1 2871 M GEN 317 2011 MCW Z 1 2872 M GEN 317 2012 MCW Z 1 2873 M GEN 317 2013 MCW Z 1 2874 M GEN 317 &)F32V?37F551M180G54MMMM L023Q74,Q56Q64,Q71Q72,Q73Q74104003173744L 2014 MCW Z 1 2875 M GEN 318 2015 MCW Z 1 2876 M GEN 318 2016 MCW Z 1 2877 M GEN 318 2017 MCW Z 1 2878 M GEN 318 2018 MCW Z 1 2879 M GEN 318 2019 MCW Z 1 2880 M GEN 318 2020 18 91 MCW @A@,IMAGE&75 CODE DC STATEMENT AND Z 7 2881 M F33 175 318 &MMMMMMMF33175 L013Q87,Q76Q77,Q78Q79,Q80Q81104003183744L 2021 18 92 MCW BLANK4,IMAGE&80 TO CLEAR ENTIRE DA Z 7 2888 M H62 180 319 2022 18 93 MCW BLANK4,IMAGE&55 AREA Z 7 2895 M H62 155 319 2023 18 94 MCW BLANK4,IMAGE&27 NOTE - EACH DC IS 19 Z 7 2902 M H62 127 319 2024 18 95 SW INITSW CHARACTERS Z 4 2909 , H87 319 2025 18 96 MCW BLANK4,IMAGE&11 OPTIMIZING THE Z 7 2913 M H62 111 319 2026 18 97 MCW @DC @,IMAGE&16 CONDENSED CARD Z 7 2920 M F36 116 319 &MH62180MH62155MH62127,H87MH62111MF36116L039R26,Q95R02,R09R13,R20040104003193744L 2027 18 98 MCW @19@,IMAGE&7 Z 7 2927 M F38 107 320 2028 18 99 MCW DALOC,IMAGE&61 Z 7 2934 M F30 161 320 2029 19 00 CKNDQ C B2CNTR,&0020 Z 7 2941 C H67 F42 320 2030 19 01 BH DOLST Z 5 2948 B R82 U 320 2031 19 02 A &19,IMAGE&61 Z 7 2953 A F44 161 320 &MF38107MF30161CH67F42BR82UAF44161 L033R59,R34R41,R48R53,040040104003203744L 2032 19 03 MZ ABBIT,IMAGE&1 Z 7 2960 Y 189 101 321 2033 19 04 B PUT Z 4 2967 B 610 321 2034 19 05 S &19,B2CNTR Z 7 2971 S F44 H67 321 2035 19 06 B CKNDQ Z 4 2978 B R41 321 2036 19 07 DOLST C B2CNTR,&0000 Z 7 2982 C H67 F48 321 2037 19 08 BE RTMGE Z 5 2989 B ?20 S 321 &Y189101B610SF44H67BR41CH67F48B?20S L034R93,R67R71,R78R82,R89040104003213744L 2038 19 09 MN B2CNTR,IMAGE&7 Z 7 2994 D H67 107 322 2039 19 10 MN Z 1 3001 D 322 2040 19 11 A B2CNTR,IMAGE&61 Z 7 3002 A H67 161 322 2041 19 12 MZ ABBIT,IMAGE&1 Z 7 3009 Y 189 101 322 2042 19 13 B PUT Z 4 3016 B 610 322 2043 19 14 RTMGE MCW DAHLD,IMAGE&80 RESTORE IMAGE AREA Z 7 3020 M G54 180 322 2044 19 15 CHAIN 10 MACRO 2045 MCW Z 1 3027 M GEN 322 &DH67107DAH67161Y189101B610MG54180M L034?27,?01?02,?09?16,?20?27104003223744L 2046 MCW Z 1 3028 M GEN 323 2047 MCW Z 1 3029 M GEN 323 2048 MCW Z 1 3030 M GEN 323 2049 MCW Z 1 3031 M GEN 323 2050 MCW Z 1 3032 M GEN 323 2051 MCW Z 1 3033 M GEN 323 2052 MCW Z 1 3034 M GEN 323 &MMMMMMM L007?34,?29?30,?31?32,?33?34104003233744L 2053 MCW Z 1 3035 M GEN 324 2054 MCW Z 1 3036 M GEN 324 2055 19 16 DALOOP SW INITSW Z 4 3037 , H87 324 2056 19 17 ZA &1,B2CNTR Z 7 3041 ? F18 H67 324 2057 19 18 DAPUT C B2CNTR,BLKCTR GENERATE -B- NUMBER Z 7 3048 C H67 F17 324 2058 19 19 BH PUTIT Z 5 3055 B B70 U 324 1 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 3744L PAGE 49 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2059 19 20 DAGET CW INITSW Z 4 3060 ) H87 324 &MM,H87?F18H67CH67F17BB70U)H87 L029?63,?36?37,?41?48,?55?60104003243744L 2060 19 21 BW DAPUT2,HEDSW Q. DA HEADER Z 8 3064 V ?90 F32 1 325 2061 19 22 MCW IMAGE&66,GMKADD#5 SAVE LAST ADDRESS Z 7 3072 M 166 F53 325 2062 19 23 A &1,GMKADD AS POTENTIAL GROUP Z 7 3079 A F18 F53 325 2063 19 24 SW HEDSW MARK ADDRESS Z 4 3086 , F32 325 2064 19 25 DAPUT2 B PUT Z 4 3090 B 610 325 2065 19 26 BW CKFNLG,MARKSW Q. REC MARK LOOP Z 8 3094 V E02 H88 1 325 &V?90F321M166F53AF18F53,F32B610VE02H881 L038A01,?72?79,?86?90,?94040104003253744L 2066 19 27 GET1 B GET Z 4 3102 B 538 326 2067 19 28 BCE GET1,INPUT&6,* Z 8 3106 B A02 006 * 326 2068 19 29 C INPUT&19,BLANK4 Q. FIELD CARD Z 7 3114 C 019 H62 326 2069 19 30 BU CKFMRK Z 5 3121 B D21 / 326 2070 19 31 MCW INPUT&84,IMAGE&80 PICKUP ALTER NUMBER Z 7 3126 M 084 180 326 2071 19 32 BCE *&5,INPUT&6, Q. LABEL Z 8 3133 B A45 006 326 &B538BA02006*C019H62BD21/M084180BA45006 L039A40,A06A14,A21A26,A33040104003263744L 2072 19 33 B PROLBL PROCESS LABEL Z 4 3141 B V38 327 2073 19 34 MLC &0,IMAGE&75 CODE RECORD Z 7 3145 M F54 175 327 2074 19 35 S XL2&1 FIND LIMITS OF FIELD Z 4 3152 S 095 327 2075 19 36 B COMSCN Z 4 3156 B 860 327 2076 19 37 ZA INPUT&19&X2,IMAGE&66 Z 7 3160 ? 0J9 166 327 2077 19 38 C RECNTR,IMAGE&66 Q. DOES FIELD EXCEED Z 7 3167 C F24 166 327 2078 19 39 BH TFERR LIMIT OF DA Z 5 3174 B C39 U 327 &BV38MF54175S095B860?0J9166CF24166BC39U L038A78,A45A52,A56A60,A67A74104003273744L 2079 19 40 BCE SUBFLD,INPUT&20&X2, Q. SUBFIELD Z 8 3179 B B52 0K0 328 2080 19 41 B COMSCN Z 4 3187 B 860 328 2081 19 42 B FNLOP Z 4 3191 B W05 328 2082 19 43 ZA INPUT&19&X2,IMAGE&61 Z 7 3195 ? 0J9 161 328 2083 19 44 C RECNTR,IMAGE&61 Q. DOES FIELD EXCEED Z 7 3202 C F24 161 328 2084 19 45 BH TFERR LIMIT OF DA Z 5 3209 B C39 U 328 &BB520K0 B860BW05?0J9161CF24161BC39U L035B13,A87A91,A95B02,B09040104003283744L 2085 19 46 C IMAGE&61,IMAGE&66 Q. FIELDS SPECIFIED IN Z 7 3214 C 161 166 329 2086 19 47 BH FLDERR IN CORRECT ORDER Z 5 3221 B C54 U 329 2087 19 48 ADDREC A DALOC,IMAGE&61 CREATE ADDRESS FOR Z 7 3226 A F30 161 329 2088 19 49 A DALOC,IMAGE&66 FIELDS Z 7 3233 A F30 166 329 2089 19 50 BM DAGET,IMAGE&75 Q. SUB FIELD Z 8 3240 V ?60 175 K 329 2090 19 51 B DALOOP Z 4 3248 B ?37 329 &C161166BC54UAF30161AF30166V?60175KB?37 L038B51,B21B26,B33B40,B48040104003293744L 2091 19 52 SUBFLD MLZS BBIT,IMAGE&75 PROCESS SUBFIELDS Z 7 3252 Y 188 175 330 2092 19 53 MLC IMAGE&66,IMAGE&61 Z 7 3259 M 166 161 330 2093 19 54 B ADDREC Z 4 3266 B B26 330 2094 19 55 PUTIT B PUT Z 4 3270 B 610 330 2095 19 56 BW *&8,MARKSW Q. RECORD MARK LOOP Z 8 3274 V B89 H88 1 330 2096 19 57 MZ ABIT,IMAGE&75 CODE REPEATS Z 7 3282 Y 187 175 330 &Y188175M166161BB26B610VB89H881Y187175 L037B88,B59B66,B70B74,B82040104003303744L 2097 19 58 A &1,B2CNTR Z 7 3289 A F18 H67 331 2098 19 59 A RECNTR,IMAGE&61 COMPUTE FIELD LIMITS Z 7 3296 A F24 161 331 2099 19 60 A RECNTR,IMAGE&66 Z 7 3303 A F24 166 331 2100 19 61 B DAPUT Z 4 3310 B ?48 331 2101 19 62 DAERR MLZS ABBIT,IMAGE&4 IMPROPERLY CODED DA Z 7 3314 Y 189 104 331 2102 19 63 ZA &1,BLKCTR HEADER ROUTINE Z 7 3321 ? F18 F17 331 &AF18H67AF24161AF24166B?48Y189104?F18F17L039C27,B96C03,C10C14,C21040104003313744L 2103 19 64 ZA &1,RECNTR Z 7 3328 ? F18 F24 332 2104 19 65 B CMPSZ Z 4 3335 B P06 332 2105 19 66 TFERR SBR *&11 MARK ERROR Z 4 3339 H C53 332 2106 19 67 MZ ABIT,IMAGE&5 Z 7 3343 Y 187 105 332 2107 19 68 B XXXX Z 4 3350 B 000 332 2108 19 69 FLDERR MZ BBIT,IMAGE&5 IMPROPERLY CODED DA Z 7 3354 Y 188 105 332 1 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 3744L PAGE 50 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2109 19 70 B DAPUT2 FIELD ROUTINE Z 4 3361 B ?90 332 &?F18F24BP06HC53Y187105B000Y188105B?90 L037C64,C35C39,C43C50,C54C61104003323744L 2110 19 71 DACLR CW DACSW#1 PROCESS CLEAR OPTION Z 4 3365 ) F55 333 2111 19 72 B DATWO ON HEADER RECORD Z 4 3369 B C95 333 2112 19 73 DAINDX MLNS INPUT&22&X2,IMAGE&27 PROCESS INDEXING ON Z 7 3373 D 0K2 127 333 2113 19 74 A &3,XL2 HEADER RECORD Z 7 3380 A F56 094 333 2114 19 75 B FINHED Z 4 3387 B O59 333 2115 19 76 DAGMRK CW DGMKSW#1 INITIALIZE TO SHOW Z 4 3391 ) F57 333 2116 19 77 DATWO A &2,XL2 THERE IS GROUP Z 7 3395 A F19 094 333 &)F55BC95D0K2127AF56094BO59)F57AF19094 L037D01,C69C73,C80C87,C91C95104003333744L 2117 19 78 B FINHED MARK AFTER AREA Z 4 3402 B O59 334 2118 19 79 DAFMRK A &1,RECNTR INITIALIZE TO SHOW Z 7 3406 A F18 F24 334 2119 19 80 CW FRMKSW#1 PRESENCE OF RECORD Z 4 3413 ) F58 334 2120 19 81 B DATWO MARKS BETWEEN RECORDS Z 4 3417 B C95 334 2121 19 82 CKFMRK SW MARKSW Z 4 3421 , H88 334 2122 19 83 BW CKFNLG,FRMKSW Q. RECORD MARKS Z 8 3425 V E02 F58 1 334 2123 19 84 MLC @@ @@,IMAGE&25 GENERATE -B- NUMBER Z 7 3433 M F61 125 334 &BO59AF18F24)F58BC95,H88VE02F581MF61125 L038D39,D06D13,D17D21,D25D33104003343744L 2124 19 85 MLC @DC *@,IMAGE&17 OF RECORD MARKS Z 7 3440 M F65 117 335 2125 19 86 MLC Z 1 3447 M 335 2126 19 87 MLC &1,IMAGE&75 Z 7 3448 M F18 175 335 2127 19 88 MLC @01@,IMAGE&7 Z 7 3455 M F67 107 335 2128 19 89 MLC DALOC,IMAGE&61 Z 7 3462 M F30 161 335 2129 19 90 A RECNTR,IMAGE&61 Z 7 3469 A F24 161 335 &MF65117MMF18175MF67107MF30161AF24161 L036D75,D47D48,D55D62,D69040104003353744L 2130 19 91 BW DALOOP,NUMSW Z 8 3476 V ?37 F31 1 336 2131 19 92 MCW BLANK,IMAGE&17 Z 7 3484 M H59 117 336 2132 19 93 MZ ABBIT,IMAGE&3 Z 7 3491 Y 189 103 336 2133 19 94 B DALOOP Z 4 3498 B ?37 336 2134 19 95 CKFNLG BW CALLOP,DGMKSW Q. SET GROUP MARK Z 8 3502 V E93 F57 1 336 &V?37F311MH59117Y189103B?37VE93F571 L034E09,D84D91,D98E02,040040104003363744L 2135 19 96 MLC @DCW@,IMAGE&16 GENERATE RECORD TO SET Z 7 3510 M F70 116 337 2136 19 97 MLC @1@,IMAGE&75 GROUP MARK AT END OF Z 7 3517 M F71 175 337 2137 19 98 MLC @01@,IMAGE&7 DA STATEMENT Z 7 3524 M F67 107 337 2138 19 99 MCW GMKADD,IMAGE&61 Z 7 3531 M F53 161 337 2139 20 00 MLC @@}@@,IMAGE&25 Z 7 3538 M F74 125 337 &MF70116MF71175MF67107MF53161MF74125 L035E44,E17E24,E31E38,040040104003373744L 2140 20 01 BW GMKAST,NUMSW Z 8 3545 V E75 F31 1 338 2141 20 02 MCW BLANK,IMAGE&17 Z 7 3553 M H59 117 338 2142 20 03 MZ ABBIT,IMAGE&3 Z 7 3560 Y 189 103 338 2143 20 04 PUTGMK B PUT PUT GROUP MARK RECORD Z 4 3567 B 610 338 2144 20 05 B CALLOP GO BACK TO MAIN LINE Z 4 3571 B E93 338 2145 20 06 GMKAST A &1,ORGCTR Z 7 3575 A F18 H58 338 &VE75F311MH59117Y189103B610BE93AF18H58 L037E81,E53E60,E67E71,E75040104003383744L 2146 20 07 MCW @*@,IMAGE&17 Z 7 3582 M F25 117 339 2147 20 08 B PUTGMK Z 4 3589 B E67 339 2148 20 09 CALLOP BSP INTAP Z 5 3593 U %U4 B 339 2149 20 10 B GET Z 4 3598 B 538 339 2150 20 11 CW MARKSW,GRPMK6 Z 7 3602 ) H88 G55 339 2151 20 12 B FINDA Z 4 3609 B M62 339 2152 20 13 BLKCTR DCW &00000 Z 5 3617 339 2153 20 14 LTORG * Z 3618 &MF25117BE67U%U4BB538)H88G55BM620000? L036F17,E89E93,E98F02,F09F13104003393744L DCW &1 Z 1 3618 LIT 340 &2 Z 1 3619 LIT 340 1976 RECNTR #05 Z 5 3624 AREA 340 @*@ Z 1 3625 LIT 340 1993 DALOC #05 Z 5 3630 AREA 340 1 1401 AUTOCODER-PASS 4 PROCESS DA -VERSION 3 3744L PAGE 51 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1998 NUMSW #01 Z 1 3631 AREA 340 2006 HEDSW #01 Z 1 3632 AREA 340 &AB * L015F32,F19F20,F25F26,F31F32104003403744L @A@ Z 1 3633 LIT 341 @DC @ Z 3 3636 LIT 341 @19@ Z 2 3638 LIT 341 &0020 Z 4 3642 LIT 341 &19 Z 2 3644 LIT 341 &0000 Z 4 3648 LIT 341 2061 GMKADD #05 Z 5 3653 AREA 341 &ADC 19002?1I000? L021F53,F34F37,F39F43,F45F49104003413744L &0 Z 1 3654 LIT 342 2110 DACSW #01 Z 1 3655 AREA 342 &3 Z 1 3656 LIT 342 2115 DGMKSW #01 Z 1 3657 AREA 342 2119 FRMKSW #01 Z 1 3658 AREA 342 @@ @@ Z 3 3661 LIT 342 @DC *@ Z 4 3665 LIT 342 &? C @ @DC * L012F65,F55F56,F57F58,F59F62104003423744L @01@ Z 2 3667 LIT 343 @DCW@ Z 3 3670 LIT 343 @1@ Z 1 3671 LIT 343 @@}@@ Z 3 3674 LIT 343 2154 20 15 DA 1X80 Z 3675 3754 343 2155 20 16 DAHLD 80 Z 3754 SBFLD &01DCW1@}@ L009F74,F68F71,F72F75,040040104003433744L 2156 20 17 GRPMK6 DCW @}@ SYSTEM GROUP MARK Z 1 3755 344 &} L001G55,040040,040040,040040104003443744L & N000000,040040,040040,040040B00003453744L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03463745L &,068072)063067/061039 ,001001104003473745L 2157 20 18 EX DOZERO Z B 000 345 1 1401 AUTOCODER-PASS 4 PROCESS LITERALS -VERSION 3 3745L PAGE 52 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2158 20 19 JOB 1401 AUTOCODER-PASS 4 PROCESS LITERALS -VERSION 3 2159 20 20 ORG DOPROG Z 2575 2160 20 21 OVLLIT WTM LITAPE Z 5 2575 U %U6 M 348 2161 20 22 WTW LITAPE,IMAGE&1 SAVE IMAGE AREA Z 8 2580 L %U6 101 W 348 2162 20 23 NOP 0 Z 4 2588 N 000 348 2163 20 24 BER TPERR Z 5 2592 B 221 L 348 2164 20 25 BEF *&1 RESET EOF TRIGGER Z 5 2597 B O02 K 348 2165 20 26 WTW LITAPE,IMAGE&1 NOTE - MUST WRITE OUT Z 8 2602 L %U6 101 W 348 2166 20 27 NOP 0 IMAGE AREA TWICE Z 4 2610 N 000 348 &U%U6ML%U6101WN000B221LBO02KL%U6101WN000L039O13,N80N88,N92N97,O02O10104003483745L 2167 20 28 BER TPERR BECAUSE EOF TREATED Z 5 2614 B 221 L 349 2168 20 29 * AS NOISE RECORD 2169 20 30 RWD LITAPE Z 5 2619 U %U6 R 349 2170 20 31 BSP SYSTAP POSITION SYSTEM TAPE Z 5 2624 U %U1 B 349 2171 20 32 BSP SYSTAP TO BRING BACK Z 5 2629 U %U1 B 349 2172 20 33 BSP SYSTAP MAIN LINE Z 5 2634 U %U1 B 349 2173 20 34 CW GRPMK7 Z 4 2639 ) Q27 349 2174 20 35 CS INPUT&80 BLANK INPUT AND FIXED Z 4 2643 / 080 349 &B221LU%U6RU%U1BU%U1BU%U1B)Q27/080 L033O46,O19O24,O29O34,O39O43104003493745L 2175 20 36 SW INPUT&16,LITSW2 FORM AREA Z 7 2647 , 016 H90 350 2176 20 37 MRCM INPUT&1,IMAGE&1 Z 7 2654 P 001 101 350 2177 20 38 MLC BLANK4,IMAGE&80 Z 7 2661 M H62 180 350 2178 20 39 S XL2&2 Z 4 2668 S 096 350 2179 20 40 S Z 1 2672 S 350 2180 20 41 MLC @DCW@,IMAGE&16 Z 7 2673 M Q15 116 350 &,016H90P001101MH62180S096SMQ15116 L033O79,O54O61,O68O72,O73040104003503745L 2181 20 42 LITGB MCW &INPUT&13,N2&6 Z 7 2680 M Q18 446 351 2182 20 43 RT LITAPE,INPUT&1 READ IN LITERAL Z 8 2687 M %U6 001 R 351 2183 20 44 B NOISE CHECK FOR NOISE Z 4 2695 B 425 351 2184 20 45 BER TPERR Z 5 2699 B 221 L 351 2185 20 46 BEF RTNLIT Q. ANY MORE LITERALS Z 5 2704 B P39 K 351 2186 20 47 MCW INPUT&4,IMAGE&70 CODE MOTHER RECD NUMBR Z 7 2709 M 004 170 351 &MQ18446M%U6001RB425B221LBP39KM004170 L036P15,O87O95,O99P04,P09040104003513745L 2187 20 48 MLC @/@,IMAGE&75 CODE RECORD Z 7 2716 M Q19 175 352 2188 20 49 B PROLBL PROCESS LABEL Z 4 2723 B V38 352 2189 20 50 B DCWCD PROCESS STATEMENT Z 4 2727 B Y11 352 2190 20 51 LITRTN B PUT PUT RECORD Z 4 2731 B 610 352 2191 20 52 B LITGB Z 4 2735 B O80 352 2192 20 53 RTNLIT MCW &IMAGE&13,N2&6 Z 7 2739 M Q22 446 352 2193 20 54 RTW LITAPE,IMAGE&1 REGENERATE IMAGE AREA Z 8 2746 L %U6 101 R 352 &MQ19175BV38BY11B610BO80MQ22446L%U6101R L038P53,P23P27,P31P35,P39P46104003523745L 2194 20 55 B NOISE CHECK FOR NOISE Z 4 2754 B 425 353 2195 20 56 BER TPERR Z 5 2758 B 221 L 353 2196 20 57 RWD LITAPE Z 5 2763 U %U6 R 353 2197 20 58 SW LITSW RESET LITERAL SWITCH Z 4 2768 , N46 353 2198 20 59 CW LITSW2 Z 4 2772 ) H90 353 2199 20 60 A &10,EXNUMB SECTION TO GUARANTEE Z 7 2776 A Q24 193 353 2200 20 61 BCE *&5,EXNUMB-1,0 UNIQUENESS OF Z 8 2783 B P95 192 0 353 &B425B221LU%U6R,N46)H90AQ24193BP951920 L037P90,P58P63,P68P72,P76P83104003533745L 2201 20 62 B RECALL LITERAL LABELS UP TO Z 4 2791 B U68 354 2202 20 63 A &96,EXOVFL 80 LTORG OR EX CARDS Z 7 2795 A Q26 191 354 2203 20 64 A &96,EXOVFL Z 7 2802 A Q26 191 354 2204 20 65 B RECALL Z 4 2809 B U68 354 2205 20 66 LTORG * Z 2813 DCW @DCW@ Z 3 2815 LIT 354 2181 &INPUT&13 Z 3 2818 013 ADCON 354 1 1401 AUTOCODER-PASS 4 PROCESS LITERALS -VERSION 3 3745L PAGE 53 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @/@ Z 1 2819 LIT 354 &BU68AQ26191AQ26191BU68DCW013/ L029Q19,P95Q02,Q09Q13,Q16Q19104003543745L 2192 &IMAGE&13 Z 3 2822 113 ADCON 355 &10 Z 2 2824 LIT 355 &96 Z 2 2826 LIT 355 2206 20 67 GRPMK7 DCW @}@ SYSTEM GROUP MARK Z 1 2827 355 &1131?9F} L008Q27,Q23Q25,Q27040,040040104003553745L & N000000,040040,040040,040040B00003563745L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03573746L &,068072)063067/061039 ,001001104003583746L 2207 20 68 EX DOZERO Z B 000 356 1 1401 AUTOCODER-PASS 4 END OF PASS OVERLAY -VERSION 3 3746L PAGE 54 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2208 20 69 JOB 1401 AUTOCODER-PASS 4 END OF PASS OVERLAY -VERSION 3 2209 20 70 ORG SAVE2 Z 0706 2210 20 71 EOJRT RWD LITAPE Z 5 0706 U %U6 R 359 2211 20 72 B PUT PUT END CARD Z 4 0711 B 610 359 2212 20 73 WT OUTAP,OUTPUT&1 ASSURE LAST RECORD Z 8 0715 M %U5 I18 W 359 2213 20 74 NOP 0 IS WRITTEN Z 4 0723 N 000 359 2214 20 75 BER TPERR WHEN BLOCKING Z 5 0727 B 221 L 359 2215 20 76 WTM OUTAP Z 5 0732 U %U5 M 359 2216 20 77 RWD OUTAP Z 5 0737 U %U5 R 359 &U%U6RB610M%U5I18WN000B221LU%U5MU%U5R L036741,711715,723727,732737104003593746L 2217 20 79 CS INPUT&85 CLEAR ALL GROUP Z 4 0742 / 085 360 2218 20 80 CW GRPMK2,GRPMK3 MARKS Z 7 0746 ) G59 H44 360 2219 20 81 CW GRPMK4 Z 4 0753 ) 185 360 2220 20 82 RTW SYSTAP,PASSC1 READ PASS 5 Z 8 0757 L %U1 Z25 R 360 2221 20 83 NOP 0 Z 4 0765 N 000 360 2222 20 84 BER TPERR Z 5 0769 B 221 L 360 2223 20 85 LCA TOTLBL,2393 PASS INFORMATION TO Z 7 0774 L 198 L93 360 &/085)G59H44)185L%U1Z25RN000B221LL198L93L039780,746753,757765,769774104003603746L 2224 20 86 LCA PROCOR,2389 PASS 5 Z 7 0781 L 194 L89 361 2225 20 87 B PASSC2 GO TO PASS 5 Z 4 0788 B M00 361 2226 20 88 DCW 0 Z 1 0792 361 2227 20 89 DCW @}@ SYSTEM GROUP MARK Z 1 0793 361 &L194L89BM000} L013793,788792,793040,040040104003613746L & N000000,040040,040040,040040B00003623746L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03633746L &,068072)063067/061039 ,001001104003643746L 2228 20 90 EX 0 Z B 000 362 2229 20 91 * 2230 20 92 * EQUATES 2231 20 93 * 2232 20 94 INTAP EQU %U4 Z %U4 2233 20 95 OUTAP EQU %U5 Z %U5 2234 20 96 LITAPE EQU %U6 Z %U6 2235 20 97 K4K EQU 4000 Z 4000 2236 20 98 W3AREA EQU W6AREA-3 EQUATES Z 3874 2237 20 99 W5AREA EQU W6AREA-1 Z 3876 2238 21 00 BLANK EQU BLANK4-3 Z 3859 2239 21 01 BLANK2 EQU BLANK4-2 Z 3860 2240 21 02 HOLD2 EQU B2CNTR-3 Z 3864 2241 21 03 HOLD3 EQU B2CNTR-2 Z 3865 2242 21 04 ABIT EQU ZONE-2 Z 0187 2243 21 05 BBIT EQU ZONE-1 Z 0188 2244 21 06 ABBIT EQU ZONE Z 0189 2245 21 07 XXXX EQU 000 Z 0000 2246 21 08 INPUT EQU 000 Z 0000 2247 21 09 OUTPUT EQU 3917 Z 3917 2248 21 10 PASSC1 EQU 1925 Z 1925 2249 21 11 PASSC2 EQU 2400 Z 2400 2250 21 12 DOZERO EQU 000 Z 0000 2251 21 13 FREE EQU INPUT Z 0000 & /N75080 03653746L 2252 21 14 END START Z / N75 080 365 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013751L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023751L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033751L 0 1401 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 1401 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 1401 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&080 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 &CL30L26BX67SAL36L30ML30099MIA7080MM L035Z59,Z32Z37,Z44Z51,Z58Z59104000043751L 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 &MMMMMMM L007Z66,Z61Z62,Z63Z64,Z65Z66104000053751L 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&080,INPUT 7 1984 M 080 IA7 6 176 1 67 CHAIN 9 MACRO 177 MCW 1 1991 M GEN 6 &S100SSB114ML30099M080IA7M L025Z91,Z71Z72,Z73Z77,Z84Z91104000063751L 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 &MMMMMMM L007Z98,Z93Z94,Z95Z96,Z97Z98104000073751L 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 &MBZ25H089H!76YL37089MIZ0!67D!63!43 L034!32,!00!04,!08!12,!19!26104000083751L 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 1401 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 &M!67J76U%U0BBJ49!67WML37L38M%U0000R L035!67,!40!45,!53!60,040040104000093751L 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 &B!77LB000D!63!87U%U0BSL39L38V!60L38B L036J03,!73!77,!84!89,!96040104000103751L 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 &D!63J17.000590M!67J32M%U0000RB!40E L034J37,J11J18,J25J33,040040104000113751L 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 &.000511B!73U%U1EBJ86L405AL39L41M%U0000WL039J76,J45J49,J54J62,J69040104000123751L 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 &B!40LB!73SL41D!63K03.000560BJ69H089 L035K11,J82J86,J90J97,K04K08104000133751L 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 } 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 &HK46YL37089BIY8I31}BBBB L023K34,K16K23,K31K32,K33K34104000143751L 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 &BBBBBBB L007K41,K36K37,K38K39,K40K41104000153751L 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 1401 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 * &BB000L%U1001RN000B!04L)Y68BS90 L030K71,K43K47,K55K59,K64K68104000163751L 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 &L%U6001RN000B!04L)Z24BY13I97L99 L031L02,K80K84,K89K93,K97L00104000173751L 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 & V00 015? 080 L024L26,L09L12,L15L19,L23L24104000183751L 272 2 42 BUMPOP DCW @#@ 1 2327 19 273 2 43 HOLDA DCW &0000 4 2331 19 274 2 44 BLKCT EQU HOLDA-001 2330 275 2 45 TPAD DSA TPAREA 3 2334 I18 19 276 2 46 LTORG * 2335 DCW &80 2 2336 LIT 19 &9 1 2337 LIT 19 198 READCT #01 1 2338 AREA 19 &1 1 2339 LIT 19 �?I188?I A L013L39,L28L32,L35L37,L38L39104000193751L 215 WRTCTR #02 2 2341 AREA 20 277 2 47 * 278 2 48 * PROTECTED CONSTANTS 279 2 49 * 280 2 50 FACTOR EQU TABLE-021 2388 281 2 51 MACHSZ EQU TABLE-020 2389 282 2 52 TOTLAB EQU TABLE-016 2393 283 2 53 UNPRSW EQU TABLE-015 2394 284 2 54 PROCSW EQU TABLE-014 2395 285 2 55 SERCHS EQU TABLE-010 2399 286 2 56 * 287 2 57 * INITIALIZE PASS C ONE TIME 288 2 58 * 289 2 59 ORG TABLE-009 2400 & L002L41,040040,040040,040040104000203751L 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 1401 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 , Q66 21 295 2 65 LCA @00@,PROCSW 7 2423 L Q68 L95 21 296 2 66 LCA &0150,SERCHS 7 2430 L Q72 L99 21 &U%U4RU%U5RU%U6R/I99,Q66LQ68L95LQ72L99 L037M36,M05M10,M15M19,M23M30104000213751L 297 2 67 LCA @0015@,FACTOR 7 2437 L Q76 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 ) R01 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 Q77 22 &LQ76L88L%U1001RN000B!04L)R01ML89Q77 L035M71,M44M52,M56M61,M65040104000223751L 306 2 76 A &3,KEEP1 7 2472 A Q78 Q77 23 307 2 77 MN KEEP1,*&004 7 2479 D Q77 M89 23 308 2 78 MZ ZONE2,*&007 7 2486 Y 109 M99 23 309 2 79 SETIO LCA GRPMRK,GPMRK3 7 2493 L Q66 I98 23 310 2 80 BWZ SETBMP,SETIO&006,2 8 2500 V P18 M99 2 23 &AQ78Q77DQ77M89Y109M99LQ66I98VP18M992 L036N07,M79M86,M93N00,040040104000233751L 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 Q79 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 Q52 L26 24 319 2 89 MCW TBSZ12,TABLSZ 7 2538 M Q56 L18 24 &/79Z/39ZMQ79W81BO20L894MQ52L26MQ56L18 L037N44,N12N16,N23N31,N38040104000243751L 320 2 90 MCW TBLM12,TABMAX 7 2545 M Q59 L11 25 321 2 91 MCW TPAD12,TPAD 7 2552 M Q62 L34 25 322 2 92 MCW MDTP12,MDTP#003 7 2559 M Q65 Q82 25 323 2 93 A &72,FACTOR 7 2566 A Q84 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 * &MQ59L11MQ62L34MQ65Q82AQ84L88BO62L895 L036N80,N52N59,N66N73,040040104000253751L 328 2 98 A &400,TABLSZ 7 2581 A Q87 L18 26 329 2 99 A &40,FACTOR 7 2588 A Q89 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 Q82 26 333 3 03 B SETTP 4 2616 B O62 26 334 3 04 * 335 3 05 * 8K CONSTANTS 336 3 06 * &AQ87L18AQ89L88Y113L11Y113L34Y113Q82BO62L039O19,N88N95,O02O09,O16040104000263751L 337 3 07 SET8K MCW BLKG8K,KBLKNG 7 2620 M Q36 L26 27 338 3 08 MCW TBSZ8K,TABLSZ 7 2627 M Q40 L18 27 339 3 09 MCW TBLM8K,TABMAX 7 2634 M Q43 L11 27 340 3 10 MCW TPAD8K,TPAD 7 2641 M Q46 L34 27 341 3 11 MCW MDTP8K,MDTP 7 2648 M Q49 Q82 27 &MQ36L26MQ40L18MQ43L11MQ46L34MQ49Q82 L035O54,O27O34,O41O48,040040104000273751L 342 3 12 A &36,FACTOR 7 2655 A Q91 L88 28 1 1401 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 Q82 Z54 28 345 3 15 MCW MDTP,PUT&013 7 2676 M Q82 Z90 28 346 3 16 MCW TPAD,WRITE&006 7 2683 M L34 X73 28 &AQ91L88YL34K99MQ82Z54MQ82Z90ML34X73 L035O89,O62O69,O76O83,040040104000283751L 347 3 17 MCW TPAD,READ&010 7 2690 M L34 X98 29 348 3 18 MCW TPAD,LIMAD#3 7 2697 M L34 Q94 29 349 3 19 MA &13,LIMAD 7 2704 # Q96 Q94 29 350 3 20 MCW LIMAD,LGTCK&6 7 2711 M Q94 K29 29 351 3 21 SETBMP MCW BUMP,BUMPOP 7 2718 M W81 L27 29 &ML34X98ML34Q94#Q96Q94MQ94K29MW81L27 L035P24,O97P04,P11P18,040040104000293751L 352 3 22 LCA GRPMRK,ENDOFC 7 2725 L Q66 Z24 30 353 3 23 * 354 3 24 * WRITE PASS C CHECKPOINT ON 6 355 3 25 * 356 3 26 CS 80 4 2732 / 080 30 357 3 27 SW CARD&001,CARD&006 7 2736 , 001 006 30 358 3 28 SW CARD&017,CARD&024 7 2743 , 017 024 30 359 3 29 SW CARD&028,CARD&035 7 2750 , 028 035 30 360 3 30 SW CARD&057,CARD&062 7 2757 , 057 062 30 &LQ66Z24/080,001006,017024,028035,057062L039P63,P32P36,P43P50,P57040104000303751L 361 3 31 SW CARD&068,CARD&071 7 2764 , 068 071 31 362 3 32 WTW COUTPT,1 8 2771 L %U6 001 W 31 363 3 33 NOP XXXX 4 2779 N 000 31 364 3 34 BER TPERR 5 2783 B !04 L 31 365 3 35 CW ENDOFC,GRPMRK 7 2788 ) Z24 Q66 31 366 3 36 C TOTLAB,TABLSZ 7 2795 C L93 L18 31 &,068071L%U6001WN000B!04L)Z24Q66CL93L18 L038Q01,P71P79,P83P88,P95040104000313751L 367 3 37 MCW TABLSZ,SERCHS 7 2802 M L18 L99 32 368 3 38 S TOTLAB 4 2809 S L93 32 369 3 39 BE CLRTAB 5 2813 B Y13 S 32 370 3 40 BH CLRTAB 5 2818 B Y13 U 32 371 3 41 MCW &0009,SERCHS 7 2823 M R00 L99 32 372 3 42 B CLRTAB 4 2830 B Y13 32 373 3 43 BLKG8K DCW @400@ 3 2836 32 &ML18L99SL93BY13SBY13UMR00L99BY13400 L035Q36,Q09Q13,Q18Q23,Q30Q34104000323751L 374 3 44 TBSZ8K DCW &0510 4 2840 33 375 3 45 TBLM8K DSA 5100 3 2843 /0 33 376 3 46 TPAD8K DSA 7598 3 2846 E9Y 33 377 3 47 MDTP8K DSA 7597&X3 3 2849 EIX 33 378 3 48 BLKG12 DCW @800@ 3 2852 33 379 3 49 TBSZ12 DCW &0870 4 2856 33 380 3 50 TBLM12 DSA 8700 3 2859 70! 33 &051?/0 E9YEIX800087?70! L023Q59,Q41Q44,Q47Q50,Q53Q57104000333751L 381 3 51 TPAD12 DSA 11198 3 2862 A9Q 34 382 3 52 MDTP12 DSA 11197&X3 3 2865 AIP 34 383 3 53 GRPMRK DC @}@ 1 2866 34 384 3 54 LTORG * 2867 DCW @00@ 2 2868 LIT 34 &0150 4 2872 LIT 34 @0015@ 4 2876 LIT 34 305 KEEP1 #01 1 2877 AREA 34 &3 1 2878 LIT 34 &A9QAIP}00015?0015 C L019Q78,Q63Q67,Q69Q73,Q77Q78104000343751L @#@ 1 2879 LIT 35 322 MDTP #03 3 2882 AREA 35 &72 2 2884 LIT 35 1 1401 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &400 3 2887 LIT 35 &40 2 2889 LIT 35 &36 2 2891 LIT 35 348 LIMAD #03 3 2894 AREA 35 &# 7B40?4?3F L016Q94,Q80Q83,Q85Q88,Q90Q92104000353751L &13 2 2896 LIT 36 &0009 4 2900 LIT 36 385 3 55 ENDINT DCW @}@ 1 2901 36 &1C000I} L007R01,Q97R01,040040,040040104000363751L & N000000,040040,040040,040040B00000373751L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00383752L &,068072)063067/061039 ,001001104000393752L 386 3 56 XFR LIBRN B 000 37 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 387 3 57 JOB 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 388 3 58 * 389 3 59 * PASS C-LOAD SYMBOL TABLE & SET ADDRESSES 390 3 60 * 391 3 61 ZONE EQU 113 0113 392 3 62 113 DCW @2SKB@ 4 0113 40 393 3 63 ZONE2 EQU 109 0109 &2SKB L004113,040040,040040,040040104000403752L 394 3 64 109 DCW @2SKB@ 4 0109 41 395 3 65 ABBIT EQU ZONE 0113 396 3 66 BBIT EQU ZONE-001 0112 397 3 67 ABIT EQU ZONE-002 0111 398 3 68 NOBIT EQU ZONE-003 0110 399 3 69 XR1 EQU 89 0089 &2SKB L004109,040040,040040,040040104000413752L 400 3 70 89 DCW @000@ 3 0089 42 401 3 71 XR2 EQU 94 0094 &000 L003089,040040,040040,040040104000423752L 402 3 72 94 DCW @000@ 3 0094 43 403 3 73 XR3 EQU 99 0099 &000 L003094,040040,040040,040040104000433752L 404 3 74 99 DCW @000@ 3 0099 44 405 3 75 ORG ZONE&001 0114 406 3 76 * 407 3 77 * DETERMINE RECORD TYPE 408 3 78 * &000 L003099,040040,040040,040040104000443752L 409 3 79 ANAL BM PUT,CARD&005 8 0114 V Z77 005 K 45 410 3 80 BCE PUT,TYPE,% 8 0122 B Z77 075 % 45 411 3 81 BCE INSTR,TYPE, 8 0130 B 219 075 45 412 3 82 MN TYPE,XR2 7 0138 D 075 094 45 413 3 83 BCE DA,XR2,0 8 0145 B 871 094 0 45 &VZ77005KBZ77075%B219075 D075094B8710940L039152,122130,138145,040040104000453752L 414 3 84 MCW @0@,INDFTR 7 0153 M Y92 Y69 46 415 3 85 MCW @0@,DASW 7 0160 M Y92 Y68 46 416 3 86 A XR2 4 0167 A 094 46 417 3 87 A XR2 4 0171 A 094 46 418 3 88 B *&001&X2 4 0175 B 1P9 46 419 3 89 NOP XXXX 4 0179 N 000 46 420 3 90 B CONST 4 0183 B 260 46 &MY92Y69MY92Y68A094A094B1P9N000B260 L034186,160167,171175,179183104000463752L 421 3 91 B CONST 4 0187 B 260 47 422 3 92 B EXEND 4 0191 B 973 47 423 3 93 B SFX 4 0195 B 992 47 424 3 94 B PUT 4 0199 B Z77 47 425 3 95 B ORG 4 0203 B 376 47 426 3 96 B DS 4 0207 B 295 47 427 3 97 B PUT 4 0211 B Z77 47 &B260B973B992BZ77B376B295BZ77 L028214,191195,199203,207211104000473752L 428 3 98 B PUT 4 0215 B Z77 48 429 3 99 * 430 4 00 * PROCESS INSTRUCTIONS 431 4 01 * 432 4 02 INSTR MCW @0@,INDFTR 7 0219 M Y92 Y69 48 433 4 03 B PRCADD 4 0226 B 03 48 434 4 04 B PROCLB 4 0230 B /09 48 435 4 05 BWZ PUT,STADDR,2 8 0234 V Z77 003 2 48 436 4 06 A COUNT,NOWCTR 7 0242 A 007 Y48 48 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &BZ77MY92Y69B 03B/09VZ770032A007Y48 L034248,219226,230234,242040104000483752L 437 4 07 S @1@,NOWCTR 7 0249 S Y93 Y48 49 438 4 08 B PUT 4 0256 B Z77 49 439 4 09 * 440 4 10 * PROCESS CONSTANTS & DSA 441 4 11 * 442 4 12 CONST BCE PRCAST,AOPHO,* 8 0260 B 283 017 * 49 443 4 13 MCW @1@,ACTSW 7 0268 M Y93 Y67 49 444 4 14 B PROCLB 4 0275 B /09 49 445 4 15 B PUT 4 0279 B Z77 49 446 4 16 * 447 4 17 * CONSTANTS WITH ASTERISK ADDRESS 448 4 18 * 449 4 19 PRCAST B PRCADD 4 0283 B 03 49 &SY93Y48BZ77B283017*MY93Y67B/09BZ77B 03 L038286,256260,268275,279283104000493752L 450 4 20 B PROCLB 4 0287 B /09 50 451 4 21 B PUT 4 0291 B Z77 50 452 4 22 * 453 4 23 * PROCESS DS & EQUATES 454 4 24 * 455 4 25 DS BCE PROCTU,AOPHO,% 8 0295 B 361 017 % 50 456 4 26 A AINDEX,INDFTR 7 0303 A 027 Y69 50 457 4 27 BCE CONST,AOPHO,* 8 0310 B 260 017 * 50 458 4 28 BWZ CONST,AOPHO,2 8 0318 V 260 017 2 50 &B/09BZ77B361017%A027Y69B260017*V2600172L039325,291295,303310,318040104000503752L 459 4 29 BWZ *&005,STAOP,2 8 0326 V 338 001 2 51 460 4 30 B CONST 4 0334 B 260 51 461 4 31 * 462 4 32 * EQUATE 463 4 33 * 464 4 34 B SETAOP 4 0338 B U35 51 465 4 35 MCW DSAPUT,LABRTN&003 7 0342 M Y72 S97 51 466 4 36 BWZ UNPROC,STAOP,2 8 0349 V /81 001 2 51 467 4 37 B CONST 4 0357 B 260 51 468 4 38 * 469 4 39 * DS OF INPUT DEVICE 470 4 40 * &V3380012B260BU35MY72S97V/810012B260 L035360,334338,342349,357040104000513752L 471 4 41 PROCTU MCW AOPER-003,LABADD-001 7 0361 M 019 060 52 472 4 42 MCW @0@ 4 0368 M Y92 52 473 4 43 B CONST 4 0372 B 260 52 474 4 44 * 475 4 45 * PROCESS ORIGIN & LITERAL ORIGIN 476 4 46 * 477 4 47 ORG BWZ SETHGH,CARD&033,B 8 0376 V 405 033 B 52 478 4 48 ZA LABADD,ORGADD 7 0384 ? 061 032 52 479 4 49 A @1@,ORGADD 7 0391 A Y93 032 52 &M019060MY92B260V405033B?061032AY93032 L037397,368372,376384,391040104000523752L 480 4 50 MZ ABBIT,CARD&033 7 0398 Y 113 033 53 481 4 51 SETHGH BCE ORGSAV,MAXSW,1 8 0405 B 432 Y60 1 53 482 4 52 C NOWCTR,HGHCTR 7 0413 C Y48 Y58 53 483 4 53 BH ORGSAV 5 0420 B 432 U 53 484 4 54 ZA NOWCTR,HGHCTR 7 0425 ? Y48 Y58 53 485 4 55 * 486 4 56 * PROCESS SAVE COUNTER OF ORIGIN 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 487 4 57 * &Y113033B432Y601CY48Y58B432U?Y48Y58 L034431,405413,420425,040040104000533752L 488 4 58 ORGSAV BCE AOPOR,LBLHO, 8 0432 B 536 008 54 489 4 59 MCW @005@,XR1 7 0440 M Y96 089 54 490 4 60 MCW &AOPOR,LABRTN&003 7 0447 M Y99 S97 54 491 4 61 BWZ *&005,STLABL,2 8 0454 V 466 002 2 54 492 4 62 B AOPOR 4 0462 B 536 54 &B536008 MY96089MY99S97V4660022B536 L034465,440447,454462,040040104000543752L 493 4 63 BCE STRSAV,SUPADD, 8 0466 B 502 066 55 494 4 64 BTOLAB B DOLABL 4 0474 B T58 55 495 4 65 B SEARCH 4 0478 B W29 55 496 4 66 BCE STORE,DBLSW,1 8 0482 B S69 Y64 1 55 497 4 67 BCE STORE,SPCSW,0 8 0490 B S69 Y63 0 55 498 4 68 B UNPROC 4 0498 B /81 55 &B502066 BT58BW29BS69Y641BS69Y630B/81 L036501,474478,482490,498040104000553752L 499 4 69 STRSAV BCE UNPROC,ADDRSW,1 8 0502 B /81 Y59 1 56 500 4 70 BCE UNPROC,LITRSW,1 8 0510 B /81 Y61 1 56 501 4 71 MCW NOWCTR,SUPADD 7 0518 M Y48 066 56 502 4 72 A @1@,SUPADD 7 0525 A Y93 066 56 503 4 73 B BTOLAB 4 0532 B 474 56 504 4 74 * 505 4 75 * PROCESS A OPERAND OF ORIGIN 506 4 76 * &B/81Y591B/81Y611MY48066AY93066B474 L034535,510518,525532,040040104000563752L 507 4 77 AOPOR BWZ *&005,STAOP,2 8 0536 V 548 001 2 57 508 4 78 B ACTUAL 4 0544 B 761 57 509 4 79 BCE ASTRSK,AOPHO,* 8 0548 B 708 017 * 57 510 4 80 MCW @0@,LITRSW 7 0556 M Y92 Y61 57 511 4 81 S NOWCTR 4 0563 S Y48 57 512 4 82 BCE BLKAOP,AOPHO, 8 0567 B 735 017 57 513 4 83 * 514 4 84 * SYMBOLIC ORIGIN 515 4 85 * &V5480012B761B708017*MY92Y61SY48B735017 L039574,544548,556563,567040104000573752L 516 4 86 MCW @0@,ORGSW 7 0575 M Y92 Y66 58 517 4 87 S XR1&001 4 0582 S 090 58 518 4 88 B SETAOP 4 0586 B U35 58 519 4 89 BCE SETORG,ORGSW,1 8 0590 B 609 Y66 1 58 520 4 90 SETSWS MCW @11@,MAXSW 7 0598 M Z01 Y60 58 521 4 91 B SCNTB&7 4 0605 B 813 58 &MY92Y66S090BU35B609Y661MZ01Y60B813 L034608,582586,590598,605040104000583752L 522 4 92 SETORG MCW LABADD,ORGCTR 7 0609 M 061 Y53 59 523 4 93 RSTSWA MCW @0@,ADDRSW 7 0616 M Y92 Y59 59 524 4 94 BCE *&005,AOPADJ-002,X 8 0623 B 635 024 X 59 525 4 95 B AOPOUT 4 0631 B 669 59 526 4 96 * 527 4 97 * ADJUSTMENT OF X00 528 4 98 * 529 4 99 BCE NXTCNT,AOPHO,* 8 0635 B 655 017 * 59 &M061Y53MY92Y59B635024XB669B655017* L034642,616623,631635,040040104000593752L 530 5 00 C ORGCTR,&00 7 0643 C Y53 Z03 60 531 5 01 BE AOPOUT 5 0650 B 669 S 60 532 5 02 NXTCNT MCW &00,ORGCTR 7 0655 M Z03 Y53 60 533 5 03 A @1@,ORGCTR-002 7 0662 A Y93 Y51 60 534 5 04 AOPOUT A ORGCTR,ORGADD 7 0669 A Y53 032 60 &CY53Z03B669SMZ03Y53AY93Y51AY53032 L033675,650655,662669,040040104000603752L 535 5 05 ZA ORGCTR,LABADD 7 0676 ? Y53 061 61 536 5 06 ZA ORGADD,NOWCTR 7 0683 ? 032 Y48 61 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 537 5 07 S @1@,NOWCTR 7 0690 S Y93 Y48 61 538 5 08 MZ ABBIT,STAOP 7 0697 Y 113 001 61 539 5 09 B PUT 4 0704 B Z77 61 540 5 10 * 541 5 11 * ORIGIN ASTERISK 542 5 12 * &?Y53061?032Y48SY93Y48Y113001BZ77 L032707,683690,697704,040040104000613752L 543 5 13 ASTRSK BCE PUT,ADDRSW,1 8 0708 B Z77 Y59 1 62 544 5 14 BCE SETSWS,LITRSW,1 8 0716 B 598 Y61 1 62 545 5 15 MCW NOWCTR,ORGCTR 7 0724 M Y48 Y53 62 546 5 16 B RSTSWA 4 0731 B 616 62 547 5 17 * 548 5 18 * ORIGIN MAXIMUM 549 5 19 * 550 5 20 BLKAOP BCE SETSWS,MAXSW,1 8 0735 B 598 Y60 1 62 &BZ77Y591B598Y611MY48Y53B616B598Y601 L035742,716724,731735,040040104000623752L 551 5 21 MCW HGHCTR,ORGCTR 7 0743 M Y58 Y53 63 552 5 22 A @1@,ORGCTR 7 0750 A Y93 Y53 63 553 5 23 B RSTSWA 4 0757 B 616 63 554 5 24 * 555 5 25 * ORIGIN ACTUAL OR PROCESSED 556 5 26 * 557 5 27 ACTUAL ZA ORGADD,NOWCTR 7 0761 ? 032 Y48 63 558 5 28 S @1@,NOWCTR 7 0768 S Y93 Y48 63 &MY58Y53AY93Y53B616?032Y48SY93Y48 L032774,750757,761768,040040104000633752L 559 5 29 BCE TSTXOO,AOPHO,* 8 0775 B 821 017 * 64 560 5 30 MCW @0@,LITRSW 7 0783 M Y92 Y61 64 561 5 31 BWZ SCNTB,AOPHO,2 8 0790 V 806 017 2 64 562 5 32 BWZ SETORG,STAOP,K 8 0798 V 609 001 K 64 563 5 33 SCNTB MCW @0@,ADDRSW 7 0806 M Y92 Y59 64 &B821017*MY92Y61V8060172V609001KMY92Y59 L038812,783790,798806,040040104000643752L 564 5 34 S ORGCTR 4 0813 S Y53 65 565 5 35 B PUT 4 0817 B Z77 65 566 5 36 TSTXOO BCE PUT,AOPADJ-002,X 8 0821 B Z77 024 X 65 567 5 37 BWZ PUT,CARD&034,B 8 0829 V Z77 034 B 65 568 5 38 A ORGCTR,ORGADD 7 0837 A Y53 032 65 569 5 39 BCE PUT,ADDRSW,1 8 0844 B Z77 Y59 1 65 &SY53BZ77BZ77024XVZ77034BAY53032BZ77Y591L039851,817821,829837,844040104000653752L 570 5 40 BCE PUT,LITRSW,1 8 0852 B Z77 Y61 1 66 571 5 41 MZ ABBIT,CARD&034 7 0860 Y 113 034 66 572 5 42 B ACTUAL 4 0867 B 761 66 573 5 43 * 574 5 44 * PROCESS DA STATEMENTS 575 5 45 * 576 5 46 DA BCE ORIGDA,TYPE,0 8 0871 B 926 075 0 66 577 5 47 BCE TSTRPT,ACTSW,1 8 0879 B 910 Y67 1 66 &BZ77Y611Y113034B761B9260750B910Y671 L035886,860867,871879,040040104000663752L 578 5 48 BTOADD C LABADD,SUPADD 7 0887 C 061 066 67 579 5 49 BL *&8 5 0894 B 906 T 67 580 5 50 MCW @005@,XR3 7 0899 M Y96 099 67 581 5 51 B PRCADD 4 0906 B 03 67 582 5 52 TSTRPT BCE PUT,TYPE, 8 0910 B Z77 075 67 583 5 53 B PROCLB 4 0918 B /09 67 584 5 54 B PUT 4 0922 B Z77 67 585 5 55 * 586 5 56 * DA HEADER 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 587 5 57 * &C061066B906TMY96099B 03BZ77075 B/09BZ77L039925,894899,906910,918922104000673752L 588 5 58 ORIGDA MCW @0@,INDFTR 7 0926 M Y92 Y69 68 589 5 59 A AINDEX,INDFTR 7 0933 A 027 Y69 68 590 5 60 MCW @1@,DASW 7 0940 M Y93 Y68 68 591 5 61 MCW @0@,ACTSW 7 0947 M Y92 Y67 68 592 5 62 BCE BTOADD,AOPHO,* 8 0954 B 887 017 * 68 &MY92Y69A027Y69MY93Y68MY92Y67B887017* L036961,933940,947954,040040104000683752L 593 5 63 MCW @1@,ACTSW 7 0962 M Y93 Y67 69 594 5 64 B TSTRPT 4 0969 B 910 69 595 5 65 * 596 5 66 * PROCESS EX & END 597 5 67 * 598 5 68 EXEND BWZ PUT,TYPE,B 8 0973 V Z77 075 B 69 599 5 69 MCW @B@,BRANCH 7 0981 M Z04 X84 69 600 5 70 B WRITE 4 0988 B X67 69 601 5 71 * 602 5 72 * PROCESS SUFFIX 603 5 73 * 604 5 74 SFX MCW AOPHO,SFXCTR 7 0992 M 017 L23 69 &MY93Y67B910VZ77075BMZ04X84BX67M017L23 L037998,969973,981988,992040104000693752L 605 5 75 B PUT 4 0999 B Z77 70 606 5 76 * 607 5 77 * PROCESS ADDRESSES 608 5 78 * 609 5 79 PRCADD SBR ADDRTN&003 4 1003 H 89 70 610 5 80 MCW @0@,ACTSW 7 1007 M Y92 Y67 70 611 5 81 BWZ LITTST,STLABL,K 8 1014 V 90 002 K 70 612 5 82 TSTADD BWZ ADDRTN,STADDR,B 8 1022 V 86 003 B 70 613 5 83 BCE ADDRTN,ADDRSW,1 8 1030 B 86 Y59 1 70 &BZ77H 89MY92Y67V 90002KV 86003BB 86Y591L039 37, 03 07, 14 22, 30040104000703752L 614 5 84 A ORGCTR,LABADD 7 1038 A Y53 061 71 615 5 85 A ORGCTR,SUPADD 7 1045 A Y53 066 71 616 5 86 C NOWCTR,LABADD&X3 7 1052 C Y48 0F1 71 617 5 87 BL *&008 5 1059 B 71 T 71 618 5 88 ZA LABADD&X3,NOWCTR 7 1064 ? 0F1 Y48 71 &AY53061AY53066CY480F1B 71T?0F1Y48 L033 70, 45 52, 59 64,040040104000713752L 619 5 89 BCE ADDRTN,LITRSW,1 8 1071 B 86 Y61 1 72 620 5 90 MZ ABBIT,STADDR 7 1079 Y 113 003 72 621 5 91 ADDRTN B XXXX 4 1086 B 000 72 622 5 92 LITTST MCW DSAPUT,LABRTN&003 7 1090 M Y72 S97 72 623 5 93 BCE LITRAL,TYPE,/ 8 1097 B T25 075 / 72 624 5 94 B TSTADD 4 1105 B 22 72 625 5 95 * 626 5 96 * PROCESS LABEL 627 5 97 * &B 86Y611Y113003B000MY72S97BT25075/B 22 L038/08, 79 86, 90 97,/05040104000723752L 628 5 98 PROCLB SBR LABRTN&003 4 1109 H S97 73 629 5 99 BWZ *&005,STLABL,2 8 1113 V /25 002 2 73 630 6 00 B LABRTN 4 1121 B S94 73 631 6 01 BCE MRKPRC,LBLHO, 8 1125 B S80 008 73 632 6 02 BCE BTOLBL,ACTSW,1 8 1133 B /57 Y67 1 73 &HS97V/250022BS94BS80008 B/57Y671 L032/40,/13/21,/25/33,040040104000733752L 633 6 03 BCE TSTDBL,LITRSW,1 8 1141 B S07 Y61 1 74 634 6 04 BCE TSTDBL,ADDRSW,1 8 1149 B S07 Y59 1 74 635 6 05 BTOLBL B DOLABL 4 1157 B T58 74 636 6 06 B SEARCH 4 1161 B W29 74 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 637 6 07 BCE DBLDEF,DBLSW,1 8 1165 B S98 Y64 1 74 &BS07Y611BS07Y591BT58BW29BS98Y641 L032/72,/49/57,/61/65,040040104000743752L 638 6 08 BCE STORE,SPCSW,0 8 1173 B S69 Y63 0 75 639 6 09 * 640 6 10 * UNPROCESSED LABEL 641 6 11 * 642 6 12 UNPROC MCW @1@,UNPRSW 7 1181 M Y93 L94 75 643 6 13 A @1@,TOTLAB 7 1188 A Y93 L93 75 644 6 14 BCE SETSWL,TYPE,/ 8 1195 B S50 075 / 75 645 6 15 B LABRTN 4 1203 B S94 75 646 6 16 * 647 6 17 * SEARCH TABLE FOR DBL DEF LITERAL 648 6 18 * &BS69Y630MY93L94AY93L93BS50075/BS94 L034S06,/81/88,/95S03,040040104000753752L 649 6 19 TSTDBL BCE UNPROC,LBLHO,$ 8 1207 B /81 008 $ 76 650 6 20 B DOLABL 4 1215 B T58 76 651 6 21 B SEARCH 4 1219 B W29 76 652 6 22 BCE UNPROC,DBLSW,0 8 1223 B /81 Y64 0 76 653 6 23 BCE UNPROC,ADDHO, 8 1231 B /81 M!0 76 654 6 24 MZ BBIT,STLABL 7 1239 Y 112 002 76 &B/81008$BT58BW29B/81Y640B/81M!0 Y112002L039S45,S15S19,S23S31,S39040104000763752L 655 6 25 B LABRTN 4 1246 B S94 77 656 6 26 * 657 6 27 * UNPROCESSED LABEL OF LITERAL 658 6 28 * 659 6 29 SETSWL BCE LABRTN,LBLHO,$ 8 1250 B S94 008 $ 77 660 6 30 MCW @11@,LITRSW 7 1258 M Z01 Y61 77 661 6 31 B LABRTN 4 1265 B S94 77 662 6 32 * 663 6 33 * STORE LABEL IN TABLE 664 6 34 * 665 6 35 STORE LCA FNCTN,SYMBOL 7 1269 L L08 M!9 77 666 6 36 LCA HOLDAD 4 1276 L Z12 77 &BS94BS94008$MZ01Y61BS94LL08M!9LZ12 L034S79,S50S58,S65S69,S76040104000773752L 667 6 37 MRKPRC MZ ABBIT,STLABL 7 1280 Y 113 002 78 668 6 38 MCW @1@,PROCSW 7 1287 M Y93 L95 78 669 6 39 LABRTN B XXXX 4 1294 B 000 78 670 6 40 * 671 6 41 * DOUBLY DEFINED LABEL 672 6 42 * 673 6 43 DBLDEF BCE STORE,ADDHO, 8 1298 B S69 M!0 78 674 6 44 MZ BBIT,STLABL 7 1306 Y 112 002 78 &Y113002MY93L95B000BS69M!0 Y112002 L033T12,S87S94,S98T06,040040104000783752L 675 6 45 BCE LITRAL,TYPE,/ 8 1313 B T25 075 / 79 676 6 46 B LABRTN 4 1321 B S94 79 677 6 47 * 678 6 48 * DOUBLY DEFINED LITERAL 679 6 49 * 680 6 50 LITRAL BWZ LABRTN,STBOP,B 8 1325 V S94 004 B 79 681 6 51 MCW @%@,TYPE 7 1333 M Z05 075 79 682 6 52 S COUNT,ORGCTR 7 1340 S 007 Y53 79 &BT25075/BS94VS94004BMZ05075S007Y53 L034T46,T21T25,T33T40,040040104000793752L 683 6 53 S COUNT,NOWCTR 7 1347 S 007 Y48 80 684 6 54 B LABRTN 4 1354 B S94 80 685 6 55 * 686 6 56 * SET UP LABEL & ADDRESS 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 687 6 57 * FOR TABLE SEARCH 688 6 58 * 689 6 59 DOLABL SBR DOLABR&003 4 1358 H U34 80 690 6 60 MCW LABEL,FNCTN 7 1362 M 013 L08 80 691 6 61 MCW CNVLAB,ARGUMT#003 7 1369 M 056 Z08 80 692 6 62 SETFUN BCE *&005,FNCTN, 8 1376 B T88 L08 80 &S007Y48BS94HU34M013L08M056Z08BT88L08 L037T83,T54T58,T62T69,T76040104000803752L 693 6 63 B *&008 4 1384 B T95 81 694 6 64 MCW SFXCTR,FNCTN 7 1388 M L23 L08 81 695 6 65 MCW LABADD&X1,HOLDAD#004 7 1395 M 0W1 Z12 81 696 6 66 BCE DOINDX,HOADD&X1,0 8 1402 B U17 0V7 0 81 697 6 67 MZ ABIT,HOLDAD-003 7 1410 Y 111 Z09 81 &BT95ML23L08M0W1Z12BU170V70Y111Z09 L033U16,T88T95,U02U10,040040104000813752L 698 6 68 DOINDX MN INDFTR,*&004 7 1417 D Y69 U27 82 699 6 69 MZ ZONE,HOLDAD-001 7 1424 Y 113 Z11 82 700 6 70 DOLABR B XXXX 4 1431 B 000 82 701 6 71 * 702 6 72 * PROCESS A OPERAND OF ORIGIN & EQUATE 703 6 73 * 704 6 74 SETAOP SBR AOPRTN&003 4 1435 H U87 82 705 6 75 MCW &BRSRH,DOLABR&003 7 1439 M Z15 U34 82 706 6 76 MCW AOPER,FNCTN 7 1446 M 022 L08 82 &DY69U27Y113Z11B000HU87MZ15U34M022L08 L036U52,U24U31,U35U39,U46040104000823752L 707 6 77 MCW AOP,ARGUMT 7 1453 M 070 Z08 83 708 6 78 B SETFUN 4 1460 B T76 83 709 6 79 BRSRH B SEARCH 4 1464 B W29 83 710 6 80 BCE ADDBNK,DBLSW,1 8 1468 B V03 Y64 1 83 711 6 81 BCE STRBNK,SPCSW,0 8 1476 B U88 Y63 0 83 712 6 82 AOPRTN B XXXX 4 1484 B 000 83 713 6 83 * 714 6 84 * LABEL NOT IN TABLE, STORE 715 6 85 * WITH BLANK ADDRESS 716 6 86 * &M070Z08BT76BW29BV03Y641BU88Y630B000 L035U87,U60U64,U68U76,U84040104000833752L 717 6 87 STRBNK LCA FNCTN,SYMBOL 7 1488 L L08 M!9 84 718 6 88 LCA @ @ 4 1495 L Z19 84 719 6 89 B AOPRTN 4 1499 B U84 84 720 6 90 * 721 6 91 * RETRIEVE VALUE FROM TABLE 722 6 92 * 723 6 93 ADDBNK BCE AOPRTN,ADDHO, 8 1503 B U84 M!0 84 724 6 94 MCW @1@,ORGSW 7 1511 M Y93 Y66 84 725 6 95 BWZ *&5,LBLREF,2 8 1518 V V30 M!1 2 84 &LL08M!9LZ19BU84BU84M!0 MY93Y66VV30M!12 L038V25,U95U99,V03V11,V18040104000843752L 726 6 96 B *&8 4 1526 B V37 85 727 6 97 MZ ABIT,LBLREF 7 1530 Y 111 M!1 85 728 6 98 MCW ADDLO,LABADD 7 1537 M M!3 061 85 729 6 99 BCE AOPROC,LABADD-3,% 8 1544 B W18 058 % 85 730 7 00 BWZ *&008,LABADD-003,2 8 1552 V V67 058 2 85 &BV37Y111M!1MM!3061BW18058%VV670582 L034V59,V30V37,V44V52,040040104000853752L 731 7 01 MCW @1@,HOADD 7 1560 M Y93 057 86 732 7 02 BCE AOPRTN,TYPE,O 8 1567 B U84 075 O 86 733 7 03 * 734 7 04 * ADD CHARACTER ADJUSTMENT FOR EQUATE 735 7 05 * 736 7 06 MZ LABADD-001,SAVEZN#001 7 1575 Y 060 Z20 86 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 737 7 07 A AOPADJ,LABADD 7 1582 A 026 061 86 738 7 08 MZ SAVEZN,LABADD-001 7 1589 Y Z20 060 86 &MY93057BU84075OY060Z20A026061YZ20060 L036V95,V67V75,V82V89,040040104000863752L 739 7 09 BCE AOPROC,AINDEX, 8 1596 B W18 027 87 740 7 10 MN INDFTR,*&004 7 1604 D Y69 W14 87 741 7 11 MZ ZONE,LABADD-001 7 1611 Y 113 060 87 742 7 12 AOPROC MZ ABBIT,STAOP 7 1618 Y 113 001 87 743 7 13 B AOPRTN 4 1625 B U84 87 744 7 14 * 745 7 15 * TABLE SEARCH 746 7 16 * 747 7 17 SEARCH SBR RETURN&003 4 1629 H X66 87 &BW18027 DY69W14Y113060Y113001BU84HX66 L037W32,W04W11,W18W25,W29040104000873752L 748 7 18 MCW DBLSW&001,DBLSW 7 1633 M Y65 Y64 88 749 7 19 MCW TABMAX,MAXADD 7 1640 M L11 L14 88 750 7 20 MCW ARGUMT,XR2 7 1647 M Z08 094 88 751 7 21 MCW SERCHS,MAXSER 7 1654 M L99 L22 88 752 7 22 TBLSRH C FNCTN,SYMBOL 7 1661 C L08 M!9 88 &MY65Y64ML11L14MZ08094ML99L22CL08M!9 L035W67,W40W47,W54W61,040040104000883752L 753 7 23 BE SETDBL 5 1668 B X45 S 89 754 7 24 BCE RETURN,SYMHO, 8 1673 B X63 M!4 89 755 7 25 BUMP A @010@,XR2 7 1681 A Z23 094 89 756 7 26 S @1@,MAXSER 7 1688 S Y93 L22 89 757 7 27 BM SETSPC,MAXSER 8 1695 V X56 L22 K 89 &BX45SBX63M!4 AZ23094SY93L22VX56L22K L035X02,W73W81,W88W95,040040104000893752L 758 7 28 C XR2,MAXADD 7 1703 C 094 L14 90 759 7 29 BU TBLSRH 5 1710 B W61 / 90 760 7 30 BCE SETSPC,WRAPSW,1 8 1715 B X56 Y62 1 90 761 7 31 MCW @1@,WRAPSW 7 1723 M Y93 Y62 90 762 7 32 MCW ARGUMT,MAXADD 7 1730 M Z08 L14 90 763 7 33 S XR2&001 4 1737 S 095 90 &C094L14BW61/BX56Y621MY93Y62MZ08L14S095 L038X40,X10X15,X23X30,X37040104000903752L 764 7 34 B TBLSRH 4 1741 B W61 91 765 7 35 * 766 7 36 * LABEL IN TABLE 767 7 37 * 768 7 38 SETDBL MCW @1@,DBLSW 7 1745 M Y93 Y64 91 769 7 39 B RETURN 4 1752 B X63 91 770 7 40 * 771 7 41 * SPACE AVAILABLE 772 7 42 * 773 7 43 SETSPC MCW @1@,SPCSW 7 1756 M Y93 Y63 91 774 7 44 RETURN B XXXX 4 1763 B 000 91 775 7 45 * 776 7 46 * INPUT/OUTPUT - PASS C 777 7 47 * 778 7 48 WRITE WT COUTPT,TPAREA 8 1767 M %U6 I18 W 91 779 7 49 NOP XXXX 4 1775 N 000 91 &BW61MY93Y64BX63MY93Y63B000M%U6I18WN000 L038X78,X45X52,X56X63,X67X75104000913752L 780 7 50 BER TPERR 5 1779 B !04 L 92 781 7 51 BRANCH NOP FINAL 4 1784 N Y73 92 782 7 52 READ S HOLDA 4 1788 S L31 92 783 7 53 RT CINPUT,TPAREA 8 1792 M %U5 I18 R 92 784 7 54 B CHKLGT 4 1800 B K08 92 785 7 55 BER TPERR 5 1804 B !04 L 92 786 7 56 B NXTREC 4 1809 B Z37 92 1 1401 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 787 7 57 * 788 7 58 * CLEAR TABLE AREA 789 7 59 * &B!04LNY73SL31M%U5I18RBK08B!04LBZ37 L034Y12,X84X88,X92Y00,Y04Y09104000923752L 790 7 60 CLRTAB MCW CLRMAX,CLEAR&003 7 1813 M K99 Y23 93 791 7 61 CLEAR CS XXXX 4 1820 / 000 93 792 7 62 SBR CLEAR&003 4 1824 H Y23 93 793 7 63 C CLEAR&003,CLRMIN 7 1828 C Y23 L02 93 794 7 64 BU CLEAR 5 1835 B Y20 / 93 795 7 65 B READ 4 1840 B X88 93 796 7 66 NOWCTR DCW &00000 5 1848 93 &MK99Y23/000HY23CY23L02BY20/BX880000? L036Y48,Y20Y24,Y28Y35,Y40Y44104000933752L 797 7 67 ORGCTR DCW &00000 5 1853 94 798 7 68 HGHCTR DCW &00000 5 1858 94 799 7 69 ADDRSW DCW @0@ 1 1859 94 800 7 70 MAXSW DC @0@ 1 1860 94 801 7 71 LITRSW DC @0@ 1 1861 94 802 7 72 WRAPSW DCW @0@ 1 1862 94 803 7 73 SPCSW DC @0@ 1 1863 94 804 7 74 DBLSW DC @0@ 1 1864 94 805 7 75 DC @0@ 1 1865 94 806 7 76 ORGSW DCW @0@ 1 1866 94 807 7 77 ACTSW DCW @0@ 1 1867 94 808 7 78 DASW DCW @0@ 1 1868 94 &0000?0000?0000000000 L020Y68,Y54Y59,Y62Y66,Y67Y68104000943752L 809 7 79 INDFTR DCW @0@ 1 1869 95 810 7 80 DSAPUT DSA PUT 3 1872 Z77 95 811 7 81 * 812 7 82 * END OF PASS C, GET PASS D 813 7 83 * 814 7 84 FINAL WTM COUTPT 5 1873 U %U6 M 95 815 7 85 RWD CINPUT 5 1878 U %U5 R 95 816 7 86 RWD COUTPT 5 1883 U %U6 R 95 817 7 87 B RDPSSD 4 1888 B K47 95 818 7 88 LTORG * 1892 DCW @0@ 1 1892 LIT 95 &0Z77U%U6MU%U5RU%U6RBK470 L024Y92,Y70Y73,Y78Y83,Y88Y92104000953752L @1@ 1 1893 LIT 96 @005@ 3 1896 LIT 96 490 &AOPOR 3 1899 536 ADCON 96 @11@ 2 1901 LIT 96 &00 2 1903 LIT 96 @B@ 1 1904 LIT 96 @%@ 1 1905 LIT 96 &1005536110?B% L013Z05,Y94Y97,Z00Z02,Z04Z05104000963752L 691 ARGUMT #03 3 1908 AREA 97 695 HOLDAD #04 4 1912 AREA 97 705 &BRSRH 3 1915 U64 ADCON 97 @ @ 4 1919 LIT 97 736 SAVEZN #01 1 1920 AREA 97 @010@ 3 1923 LIT 97 819 7 89 ENDOFC DCW @}@ 1 1924 97 & U64 010} L019Z24,Z09Z13,Z16Z20,Z21Z24104000973752L & N000000,040040,040040,040040B00000983752L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00993761L &,068072)063067/061039 ,001001104001003761L 820 7 90 XFR LIBRN B 000 98 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 821 7 91 JOB 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 822 7 92 * 823 7 93 91 DCW @00000@ 5 0091 101 824 7 94 96 DCW @00000@ 5 0096 101 825 7 95 101 DCW @00000@ 5 0101 101 &000000000000000 L015101,092097,040040,040040104001013761L 826 7 96 109 DCW @2SKB@ 4 0109 102 827 7 97 113 DCW @2SKB@ 4 0113 102 828 7 98 ORG ZONE&001 0114 829 7 99 * 830 8 00 * DETERMINE RECORD TYPE 831 8 01 * 832 8 02 MCW @0@,ASTRSW 7 0114 M U32 U18 102 833 8 03 BM PUT,CARD&005 8 0121 V Z77 005 K 102 834 8 04 BCE PUT,TYPE,% 8 0129 B Z77 075 % 102 835 8 05 MN TYPE,TYPEA#001 7 0137 D 075 U33 102 &2SKB2SKBMU32U18VZ77005KBZ77075%D075U33 L038143,110114,121129,137040104001023761L 836 8 06 BCE PRINST,TYPEA, 8 0144 B 196 U33 103 837 8 07 BCE PRDSA,TYPEA,2 8 0152 B 318 U33 2 103 838 8 08 BCE PROEND,TYPEA,3 8 0160 B 446 U33 3 103 839 8 09 BCE PROSFX,TYPEA,4 8 0168 B S79 U33 4 103 &B196U33 B318U332B446U333BS79U334 L032175,152160,168040,040040104001033761L 840 8 10 BCE ORGEQU,TYPEA,6 8 0176 B 489 U33 6 104 841 8 11 BCE ORGEQU,TYPEA,7 8 0184 B 489 U33 7 104 842 8 12 B PUT 4 0192 B Z77 104 843 8 13 * 844 8 14 * PROCESS INSTRUCTIONS 845 8 15 * 846 8 16 PRINST BWZ SETAST,STADDR,2 8 0196 V 208 003 2 104 847 8 17 B LOADDR 4 0204 B 215 104 848 8 18 SETAST MCW @1@,ASTRSW 7 0208 M U34 U18 104 849 8 19 * 850 8 20 * SET ASTERISK ADDRESS 851 8 21 * &B489U336B489U337BZ77V2080032B215MU34U18L039214,184192,196204,208040104001043761L 852 8 22 LOADDR ZA LABADD,ASTADD#005 7 0215 ? 061 U39 105 853 8 23 A COUNT,ASTADD 7 0222 A 007 U39 105 854 8 24 S @1@,ASTADD 7 0229 S U34 U39 105 855 8 25 * 856 8 26 * TEST FOR A OPERAND 857 8 27 * 858 8 28 BCE PUT,COUNT,1 8 0236 B Z77 007 1 105 859 8 29 BCE PUT,COUNT,2 8 0244 B Z77 007 2 105 &?061U39A007U39SU34U39BZ770071BZ770072 L037251,222229,236244,040040104001053761L 860 8 30 BWZ *&005,STAOP,2 8 0252 V 264 001 2 106 861 8 31 B SEEBOP 4 0260 B 268 106 862 8 32 B PROCOP 4 0264 B 578 106 863 8 33 * 864 8 34 * TEST FOR B OPERAND 865 8 35 * 866 8 36 SEEBOP BCE PUT,COUNT,4 8 0268 B Z77 007 4 106 867 8 37 BCE PUT,COUNT,5 8 0276 B Z77 007 5 106 &V2640012B268B578BZ770074BZ770075 L032283,260264,268276,040040104001063761L 868 8 38 BWZ *&005,STBOP,2 8 0284 V 296 004 2 107 869 8 39 B PUT 4 0292 B Z77 107 870 8 40 MCW @003@,XR3 7 0296 M U42 099 107 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 871 8 41 MCW @011@,XR1 7 0303 M U45 089 107 872 8 42 B PROCOP 4 0310 B 578 107 873 8 43 B PUT 4 0314 B Z77 107 874 8 44 * 875 8 45 * PROCESS DSA AND ADCON 876 8 46 * &V2960042BZ77MU42099MU45089B578BZ77 L034317,292296,303310,314040104001073761L 877 8 47 PRDSA BWZ *&005,STADDR,2 8 0318 V 330 003 2 108 878 8 48 B TSTPRC 4 0326 B 434 108 879 8 49 MCW @1@,ASTRSW 7 0330 M U34 U18 108 880 8 50 SETDSA ZA LABADD,ASTADD 7 0337 ? 061 U39 108 881 8 51 MCW @003@,XR3 7 0344 M U42 099 108 &V3300032B434MU34U18?061U39MU42099 L033350,326330,337344,040040104001083761L 882 8 52 MCW @011@,XR1 7 0351 M U45 089 109 883 8 53 BWZ *&005,STBOP,2 8 0358 V 370 004 2 109 884 8 54 B PUT 4 0366 B Z77 109 885 8 55 B PROCOP 4 0370 B 578 109 886 8 56 BWZ PUT,STBOP,2 8 0374 V Z77 004 2 109 887 8 57 BCE CMP16K,AINDEX,- 8 0382 B 409 027 - 109 &MU45089V3700042BZ77B578VZ770042B409027-L039389,358366,370374,382040104001093761L 888 8 58 COMPRS MCW &PUT,OPRTN&3 7 0390 M U48 /78 110 889 8 59 BCE PUT,AOP&1,% 8 0397 B Z77 071 % 110 890 8 60 B CNVTO3 4 0405 B 94 110 891 8 61 * 892 8 62 * GET 16000 COMPLEMENT 893 8 63 * 894 8 64 CMP16K MCW &16000,FNCTN-001 7 0409 M U53 L07 110 895 8 65 S HOLDAR,FNCTN-001 7 0416 S U58 L07 110 &MU48/78BZ77071%B 94MU53L07SU58L07 L033422,397405,409416,040040104001103761L 896 8 66 ZA FNCTN-001,HOLDAR#005 7 0423 ? L07 U58 111 897 8 67 B COMPRS 4 0430 B 390 111 898 8 68 TSTPRC BWZ SETDSA,STBOP,2 8 0434 V 337 004 2 111 899 8 69 B PUT 4 0442 B Z77 111 900 8 70 * 901 8 71 * PROCESS EX & END 902 8 72 * 903 8 73 PROEND S ASTADD 4 0446 S U39 111 904 8 74 BWZ *&005,STAOP,2 8 0450 V 462 001 2 111 905 8 75 B *&005 4 0458 B 466 111 &?L07U58B390V3370042BZ77SU39V4620012B466L039461,430434,442446,450458104001113761L 906 8 76 B PROCOP 4 0462 B 578 112 907 8 77 BCE ENDOPN,TYPE,3 8 0466 B 478 075 3 112 908 8 78 B PUT 4 0474 B Z77 112 909 8 79 ENDOPN MCW @B@,BRNCH2 7 0478 M U59 X84 112 910 8 80 B PUT 4 0485 B Z77 112 911 8 81 * 912 8 82 * PROCESS ORIGIN & EQUATE 913 8 83 * 914 8 84 ORGEQU BWZ *&005,STAOP,2 8 0489 V 501 001 2 112 915 8 85 B ORGOUT 4 0497 B 574 112 &B578B4780753BZ77MU59X84BZ77V5010012B574L039500,466474,478485,489497104001123761L 916 8 86 BCE ORGOUT,AOPHO, 8 0501 B 574 017 113 917 8 87 BWZ ORGOUT,AOPHO,2 8 0509 V 574 017 2 113 918 8 88 BCE ORGOUT,AOPHO,* 8 0517 B 574 017 * 113 919 8 89 BCE ORGOUT,AOPHO,% 8 0525 B 574 017 % 113 920 8 90 B PROCOP 4 0533 B 578 113 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &B574017 V5740172B574017*B574017%B578 L036536,509517,525533,040040104001133761L 921 8 91 BWZ ORGOUT,STAOP,2 8 0537 V 574 001 2 114 922 8 92 MCW @0@,ITERSW 7 0545 M U32 U28 114 923 8 93 BCE *&008,TYPEA,7 8 0552 B 567 U33 7 114 924 8 94 MZ BBIT,STAOP 7 0560 Y 112 001 114 925 8 95 MCW HOLDAR,LABADD 7 0567 M U58 061 114 &V5740012MU32U28B567U337Y112001MU58061 L037573,545552,560567,040040104001143761L 926 8 96 ORGOUT B PUT 4 0574 B Z77 115 927 8 97 * 928 8 98 * PROCESS OPERAND SUB-ROUTINE 929 8 99 * 930 9 00 PROCOP SBR OPRTN&003 4 0578 H /78 115 931 9 01 BWZ *&005,STAOP&X3,2 8 0582 V 594 0?1 2 115 932 9 02 B OPRTN 4 0590 B /75 115 933 9 03 BCE SETZRO,AOPHO&X1, 8 0594 B 942 0/7 115 934 9 04 BCE PERCNT,AOPHO&X1,% 8 0602 B 950 0/7 % 115 &BZ77H/78V5940?12B/75B9420/7 B9500/7% L036609,578582,590594,602040104001153761L 935 9 05 BWZ FLOAT,AOPHO&X1,2 8 0610 V S21 0/7 2 116 936 9 06 BCE PROAST,AOPHO&X1,* 8 0618 B /90 0/7 * 116 937 9 07 * 938 9 08 * CONVERT SYMBOL TO TABLE ADDRESS 939 9 09 * 940 9 10 CNVSYM BCE *&005,AOP-002&X3, 8 0626 B 638 0F8 116 941 9 11 B SETSYM 4 0634 B 804 116 942 9 12 MCW AOPER&X1,W6AREA#006 7 0638 M 0S2 U65 116 &VS210/72B/900/7*B6380F8 B804M0S2U65 L035644,618626,634638,040040104001163761L 943 9 13 BCE *&5,W6AREA, 8 0645 B 657 U65 117 944 9 14 B *&8 4 0653 B 664 117 945 9 15 MCW SFXCTR,W6AREA 7 0657 M L23 U65 117 946 9 16 ZA &2,HOLD2#002 7 0664 ? U66 U68 117 947 9 17 ZA W6AREA-002,HOLD4#004 7 0671 ? U63 U72 117 &B657U65 B664ML23U65?U66U68?U63U72 L033677,653657,664671,040040104001173761L 948 9 18 A W6AREA,HOLD4 7 0678 A U65 U72 118 949 9 19 A W6AREA,HOLD4-002 7 0685 A U65 U70 118 950 9 20 MZ NOBIT,HOLD4 7 0692 Y 110 U72 118 951 9 21 ZA FACTOR,HOLD7 7 0699 ? L88 U26 118 952 9 22 MPYLP MN HOLD7,HOLD1 7 0706 D U26 U27 118 953 9 23 ZA 1 0713 ? 118 &AU65U72AU65U70Y110U72?L88U26DU26U27? L036713,685692,699706,713040104001183761L 954 9 24 MULT BCE NXTDGT,HOLD1,? 8 0714 B 740 U27 ? 119 955 9 25 A HOLD4,HOLD7-002 7 0722 A U72 U24 119 956 9 26 S &1,HOLD1 7 0729 S U73 U27 119 957 9 27 B MULT 4 0736 B 714 119 958 9 28 NXTDGT S &1,HOLD2 7 0740 S U73 U68 119 &B740U27?AU72U24SU73U27B714SU73U68 L033746,722729,736740,040040104001193761L 959 9 29 BWZ MPYLP,HOLD2,B 8 0747 V 706 U68 B 120 960 9 30 MCW @000@,AOP&X3 7 0755 M U76 0G0 120 961 9 31 BAV *&001 5 0762 B 767 Z 120 962 9 32 LOOP1 A &96,HOLD7-005 7 0767 A U78 U21 120 963 9 33 BAV LOOP1 5 0774 B 767 Z 120 964 9 34 MZ HOLD7-006,AOP&X3 7 0779 Y U20 0G0 120 &V706U68BMU760G0B767ZAU78U21B767ZYU200G0L039785,755762,767774,779040104001203761L 965 9 35 MCW HOLD7-003 4 0786 M U23 121 966 9 36 MN HOLD7-005,*&004 7 0790 D U21 800 121 967 9 37 MZ ZONE2,AOP-002&X3 7 0797 Y 109 0F8 121 968 9 38 * 969 9 39 * SYMBOLIC OPERAND 970 9 40 * 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 971 9 41 SETSYM MCW AOPER&X1,FNCTN 7 0804 M 0S2 L08 121 972 9 42 BCE *&005,FNCTN, 8 0811 B 823 L08 121 973 9 43 B *&008 4 0819 B 830 121 &MU23DU21800Y1090F8M0S2L08B823L08 B830 L037822,790797,804811,819040104001213761L 974 9 44 MCW SFXCTR,FNCTN 7 0823 M L23 L08 122 975 9 45 MCW TABMAX,MAXADD 7 0830 M L11 L14 122 976 9 46 MCW @0@,SWICH1 7 0837 M U32 U19 122 977 9 47 MCW AOP&X3,XR2 7 0844 M 0G0 094 122 978 9 48 MCW SERCHS,MAXSER 7 0851 M L99 L22 122 979 9 49 * 980 9 50 * TABLE SEARCH 981 9 51 * &ML23L08ML11L14MU32U19M0G0094ML99L22 L035857,830837,844851,040040104001223761L 982 9 52 SRHLOP C FNCTN,SYMBOL 7 0858 C L08 M!9 123 983 9 53 BE RECALL 5 0865 B 980 S 123 984 9 54 BCE UNDEF,SYMHO, 8 0870 B 961 M!4 123 985 9 55 BUMPER A @010@,XR2 7 0878 A U81 094 123 986 9 56 S @1@,MAXSER 7 0885 S U34 L22 123 &CL08M!9B980SB961M!4 AU81094SU34L22 L034891,865870,878885,040040104001233761L 987 9 57 BM UNDEF,MAXSER 8 0892 V 961 L22 K 124 988 9 58 C XR2,MAXADD 7 0900 C 094 L14 124 989 9 59 BU SRHLOP 5 0907 B 858 / 124 990 9 60 BCE UNDEF,SWICH1,1 8 0912 B 961 U19 1 124 991 9 61 MCW @1@,SWICH1 7 0920 M U34 U19 124 &V961L22KC094L14B858/B961U191MU34U19 L035926,900907,912920,040040104001243761L 992 9 62 MCW AOP&X3,MAXADD 7 0927 M 0G0 L14 125 993 9 63 S XR2&001 4 0934 S 095 125 994 9 64 B SRHLOP 4 0938 B 858 125 995 9 65 * 996 9 66 * BLANK OPERAND 997 9 67 * 998 9 68 SETZRO S HOLDAR 4 0942 S U58 125 999 9 69 B CHRADJ 4 0946 B 49 125 1000 9 70 * 1001 9 71 * PERCENT OPERAND 1002 9 72 * 1003 9 73 PERCNT MCW AOPER-003&X1,AOP&X3 7 0950 M 0/9 0G0 125 1004 9 74 B MARK 4 0957 B /68 125 1005 9 75 * 1006 9 76 * UNDEFINED OPERAND 1007 9 77 * &M0G0L14S095B858SU58B 49M0/90G0B/68 L034960,934938,942946,950957104001253761L 1008 9 78 UNDEF BCE OPRTN,ITERSW,0 8 0961 B /75 U28 0 126 1009 9 79 MCW @###@,AOP&X3 7 0969 M U84 0G0 126 1010 9 80 B OPRTN 4 0976 B /75 126 1011 9 81 * 1012 9 82 * RETRIEVE VALUE FROM TABLE 1013 9 83 * 1014 9 84 RECALL BCE UNDEF,ADDHO, 8 0980 B 961 M!0 126 1015 9 85 BWZ *&5,LBLREF,2 8 0988 V 00 M!1 2 126 1016 9 86 B *&8 4 0996 B 07 126 &B/75U280MU840G0B/75B961M!0 V 00M!12B 07L039999,969976,980988,996040104001263761L 1017 9 87 MZ ABIT,LBLREF 7 1000 Y 111 M!1 127 1018 9 88 MCW ADDLO,HOLDAR 7 1007 M M!3 U58 127 1019 9 89 MCW @0@ 4 1014 M U32 127 1020 9 90 BCE IOADD,HOLDAR-003,% 8 1018 B /79 U55 % 127 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1021 9 91 BWZ *&008,HOLDAR-003,2 8 1026 V 41 U55 2 127 &Y111M!1MM!3U58MU32B/79U55%V 41U552 L034 33, 07 14, 18 26,040040104001273761L 1022 9 92 MCW @1@,HOLDAR-004 7 1034 M U34 U54 128 1023 9 93 BCE TSTCNV,TYPEA,6 8 1041 B 78 U33 6 128 1024 9 94 * 1025 9 95 * ADD CHARACTER ADJUSTMENT 1026 9 96 * 1027 9 97 CHRADJ MZ HOLDAR-001,HOLDZN#001 7 1049 Y U57 U85 128 1028 9 98 BCE TSTCNV,AOPADJ-002&X1,X 8 1056 B 78 0S4 X 128 1029 9 99 A AOPADJ&X1,HOLDAR 7 1064 A 0S6 U58 128 &MU34U54B 78U336YU57U85B 780S4XA0S6U58 L037 70, 41 49, 56 64,040040104001283761L 1030 10 00 MZ HOLDZN,HOLDAR-001 7 1071 Y U85 U57 129 1031 10 01 TSTCNV BM MARK,TYPE 8 1078 V /68 075 K 129 1032 10 02 BCE MARK,TYPEA,2 8 1086 B /68 U33 2 129 1033 10 03 * 1034 10 04 * CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR 1035 10 05 * 1036 10 06 CNVTO3 BAV *&001 5 1094 B 99 Z 129 1037 10 07 A @96@,HOLDAR-003 7 1099 A U87 U55 129 &YU85U57V/68075KB/68U332B 99ZAU87U55 L035/05, 78 86, 94 99,040040104001293761L 1038 10 08 BAV CNVTO3&005 5 1106 B 99 Z 130 1039 10 09 MZ HOLDAR-004,HOLDAR 7 1111 Y U54 U58 130 1040 10 10 MN HOLDAR-003,*&004 7 1118 D U55 /28 130 1041 10 11 MZ ZONE2,HOLDAR-002 7 1125 Y 109 U56 130 1042 10 12 MZ HOLDZN,HOLDAR-001 7 1132 Y U85 U57 130 &B 99ZYU54U58DU55/28Y109U56YU85U57 L033/38,/11/18,/25/32,040040104001303761L 1043 10 13 BCE STRADD,AINDEX&X1, 8 1139 B /61 0S7 131 1044 10 14 MN AINDEX&X1,*&004 7 1147 D 0S7 /57 131 1045 10 15 MZ ZONE,HOLDAR-001 7 1154 Y 113 U57 131 1046 10 16 STRADD MCW HOLDAR,AOP&X3 7 1161 M U58 0G0 131 1047 10 17 * 1048 10 18 * MARK OPERAND PROCESSED 1049 10 19 * 1050 10 20 MARK MZ ABBIT,STAOP&X3 7 1168 Y 113 0?1 131 &B/610S7 D0S7/57Y113U57MU580G0Y1130?1 L036/74,/47/54,/61/68,040040104001313761L 1051 10 21 OPRTN B XXXX 4 1175 B 000 132 1052 10 22 * 1053 10 23 * I/O ADDRESS IN TABLE 1054 10 24 * 1055 10 25 IOADD MCW HOLDAR-001,AOP&X3 7 1179 M U57 0G0 132 1056 10 26 B MARK 4 1186 B /68 132 1057 10 27 * 1058 10 28 * ASTERISK OPERAND 1059 10 29 * 1060 10 30 PROAST BCE *&5,AOPER&X1, 8 1190 B S02 0S2 132 1061 10 31 B CNVSYM 4 1198 B 626 132 1062 10 32 BCE OPRTN,ASTRSW,1 8 1202 B /75 U18 1 132 &B000MU570G0B/68BS020S2 B626B/75U181 L035S09,/79/86,/90/98,S02040104001323761L 1063 10 33 MCW ASTADD,HOLDAR 7 1210 M U39 U58 133 1064 10 34 B CHRADJ 4 1217 B 49 133 1065 10 35 * 1066 10 36 * ACTUAL OPERAND - FLOAT TO 5 DIGITS 1067 10 37 * 1068 10 38 FLOAT BCE CNVSYM,AOPHO&X1,# 8 1221 B 626 0/7 # 133 1069 10 39 BCE CNVSYM,AOPHO&X1,@ 8 1229 B 626 0/7 @ 133 1070 10 40 BWZ *&005,AOPER-004&X1,2 8 1237 V S49 0/8 2 133 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1071 10 41 B CNVSYM 4 1245 B 626 133 &MU39U58B 49B6260/7#B6260/7@VS490/82B626L039S48,S17S21,S29S37,S45040104001333761L 1072 10 42 ZA AOPER-001&X1,HOLDAR 7 1249 ? 0S1 U58 134 1073 10 43 REFLOT BCE *&005,HOLDAR,& 8 1256 B S68 U58 & 134 1074 10 44 B CHRADJ 4 1264 B 49 134 1075 10 45 ZA HOLDAR-001,HOLDAR 7 1268 ? U57 U58 134 1076 10 46 B REFLOT 4 1275 B S56 134 1077 10 47 * 1078 10 48 * PROCESS SUFFIX 1079 10 49 * 1080 10 50 PROSFX MCW AOPHO,SFXCTR 7 1279 M 017 L23 134 &?0S1U58BS68U58&B 49?U57U58BS56M017L23 L037S85,S56S64,S68S75,S79040104001343761L 1081 10 51 B PUT 4 1286 B Z77 135 1082 10 52 * 1083 10 53 * INITIALIZE PASS D 1084 10 54 * 1085 10 55 PASSD SW GPMRK2-1 4 1290 , U30 135 1086 10 56 RTW DINPUT,BYPRD 8 1294 L %U6 U29 R 135 1087 10 57 CW GPMRK2-1 4 1302 ) U30 135 1088 10 58 CS CARD&080 4 1306 / 080 135 1089 10 59 SW CARD&001,CARD&006 7 1310 , 001 006 135 1090 10 60 SW CARD&017,CARD&024 7 1317 , 017 024 135 &BZ77,U30L%U6U29R)U30/080,001006,017024 L038T23,S90S94,T02T06,T10T17104001353761L 1091 10 61 SW CARD&028,CARD&035 7 1324 , 028 035 136 1092 10 62 SW CARD&057,CARD&062 7 1331 , 057 062 136 1093 10 63 SW CARD&068,CARD&071 7 1338 , 068 071 136 1094 10 64 MCW BUMPOP,BUMPER 7 1345 M L27 878 136 1095 10 65 MCW @6@,TPHALT&4 7 1352 M U88 J15 136 &,028035,057062,068071ML27878MU88J15 L035T58,T31T38,T45T52,040040104001363761L 1096 10 66 MCW @6@,TPHLT2&4 7 1359 M U88 K01 137 1097 10 67 MCW @6@,TPHLT3&4 7 1366 M U88 J42 137 1098 10 68 MCW TPAD,WRITE2&006 7 1373 M L34 X73 137 1099 10 69 MCW TPAD,READ2&010 7 1380 M L34 X98 137 1100 10 70 MCW @ @,SFXCTR 7 1387 M U89 L23 137 1101 10 71 * 1102 10 72 * TEST LAST ITERATION 1103 10 73 * &MU88K01MU88J42ML34X73ML34X98MU89L23 L035T93,T66T73,T80T87,040040104001373761L 1104 10 74 BCE LSTITR,PROCSW,0 8 1394 B U07 L95 0 138 1105 10 75 BCE 1 1402 B 138 1106 10 76 B READ2 4 1403 B X88 138 1107 10 77 LSTITR MCW @1@,ITERSW 7 1407 M U34 U28 138 1108 10 78 B READ2 4 1414 B X88 138 1109 10 79 ASTRSW DCW 0 1 1418 138 1110 10 80 SWICH1 DCW @0@ 1 1419 138 &BU07L950BBX88MU34U28BX8800 L026U19,U02U03,U07U14,U18U19104001383761L 1111 10 81 HOLD7 DCW @ @ 7 1426 139 1112 10 82 HOLD1 DCW &0 1 1427 139 1113 10 83 ITERSW DCW @0@ 1 1428 139 1114 10 84 BYPRD DCW @ @ 1 1429 139 1115 10 85 GPMRK2 DC @} @ 2 1431 139 1116 10 86 SSOP EQU 1900 1900 1117 10 87 LTORG * 1432 DCW @0@ 1 1432 LIT 139 835 TYPEA #01 1 1433 AREA 139 @1@ 1 1434 LIT 139 1 1401 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD & ?0 } 0 1 L015U34,U27U28,U29U32,U33U34104001393761L 852 ASTADD #05 5 1439 AREA 140 @003@ 3 1442 LIT 140 @011@ 3 1445 LIT 140 888 &PUT 3 1448 Z77 ADCON 140 &16000 5 1453 LIT 140 896 HOLDAR #05 5 1458 AREA 140 @B@ 1 1459 LIT 140 & 003011Z771600? B L025U59,U40U43,U46U49,U54U59104001403761L 942 W6AREA #06 6 1465 AREA 141 &2 1 1466 LIT 141 946 HOLD2 #02 2 1468 AREA 141 947 HOLD4 #04 4 1472 AREA 141 &1 1 1473 LIT 141 @000@ 3 1476 LIT 141 &96 2 1478 LIT 141 & B A0009F L019U78,U66U67,U69U73,U74U77104001413761L @010@ 3 1481 LIT 142 @###@ 3 1484 LIT 142 1027 HOLDZN #01 1 1485 AREA 142 @96@ 2 1487 LIT 142 @6@ 1 1488 LIT 142 @ @ 1 1489 LIT 142 1118 10 88 * 1119 10 89 * INPUT/OUTPUT - PASS D 1120 10 90 * 1121 10 91 ORG WRITE 1767 &010### 966 L011U89,U82U85,U86U88,U89040104001423761L 1122 10 92 WRITE2 WT DOUTPT,TPAREA 8 1767 M %U5 I18 W 143 1123 10 93 NOP XXXX 4 1775 N 000 143 1124 10 94 BER TPERR 5 1779 B !04 L 143 1125 10 95 BRNCH2 NOP FINALD 4 1784 N Y13 143 1126 10 96 READ2 S HOLDA 4 1788 S L31 143 1127 10 97 RT DINPUT,TPAREA 8 1792 M %U6 I18 R 143 1128 10 98 B CHKLGT 4 1800 B K08 143 &M%U5I18WN000B!04LNY13SL31M%U6I18RBK08 L037Y03,X75X79,X84X88,X92Y00104001433761L 1129 10 99 BER TPERR 5 1804 B !04 L 144 1130 11 00 B NXTREC 4 1809 B Z37 144 1131 11 01 * 1132 11 02 FINALD WTM DOUTPT 5 1813 U %U5 M 144 1133 11 03 RWD DINPUT 5 1818 U %U6 R 144 1134 11 04 RWD DOUTPT 5 1823 U %U5 R 144 1135 11 05 RTW SYSTPE,333 8 1828 L %U1 333 R 144 1136 11 06 NOP XXXX 4 1836 N 000 144 &B!04LBZ37U%U5MU%U6RU%U5RL%U1333RN000 L036Y39,Y09Y13,Y18Y23,Y28Y36104001443761L 1137 11 07 BER TPERR 5 1840 B !04 L 145 1138 11 08 CW ENDOVL 4 1845 ) S45 145 1139 11 09 MCW BUMPOP,TSTLST 7 1849 M L27 474 145 1140 11 10 MCW BUMPOP,NOT 7 1856 M L27 726 145 1141 11 11 B TSTREF 4 1863 B 333 145 1142 11 12 DCW @ @ 1 1867 145 1143 11 13 ENDOFD DCW @}@ 1 1868 145 &B!04L)S45ML27474ML27726B333 } L029Y68,Y45Y49,Y56Y63,Y67Y68104001453761L & N000000,040040,040040,040040B00001463761L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01473762L &,068072)063067/061039 ,001001104001483762L 1144 11 14 EX LIBRN B 000 146 1 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1145 11 15 JOB 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 1146 11 16 * 1147 11 17 ORG 333 0333 1148 11 18 * 1149 11 19 * END OF PASS D 1150 11 20 * 1151 11 21 * PRINT LIST OF UNREFERENCED LABELS 1152 11 22 * 1153 11 23 TSTREF CS 0332 4 0333 / 332 149 1154 11 24 CS 1 0337 / 149 1155 11 25 S XR3&1 4 0338 S 100 149 1156 11 26 S 1 0342 S 149 1157 11 27 S 1 0343 S 149 1158 11 28 SW HEADSW#001 4 0344 , /80 149 1159 11 29 NXTLBL BCE TSTLST,SYMHO, 8 0348 B 474 M!4 149 &/332/S100SS,/80B474M!4 L023355,337338,342343,344348104001493762L 1160 11 30 BCE TSTLST,ADDHO, 8 0356 B 474 M!0 150 1161 11 31 BCE LOZNG,SYMHO,) 8 0364 B 530 M!4 ) 150 1162 11 32 C SYMHO,@A@ 7 0372 C M!4 /81 150 1163 11 33 BH DOREF 5 0379 B 441 U 150 1164 11 34 C SYMHO,@Z@ 7 0384 C M!4 /82 150 &B474M!0 B530M!4)CM!4/81B441UCM!4/82 L035390,364372,379384,040040104001503762L 1165 11 35 BL DOREF 5 0391 B 441 T 151 1166 11 36 MN SYMHO,XR3 7 0396 D M!4 099 151 1167 11 37 BWZ SWTAB,SYMHO,B 8 0403 V 433 M!4 B 151 1168 11 38 A @010@,XR3 7 0411 A /85 099 151 1169 11 39 BM SWTAB,SYMHO 8 0418 V 433 M!4 K 151 &B441TDM!4099V433M!4BA/85099V433M!4K L035425,396403,411418,040040104001513762L 1170 11 40 A @010@,XR3 7 0426 A /85 099 152 1171 11 41 SWTAB SW SORTAB&X3 4 0433 , /D8 152 1172 11 42 S XR3&2 4 0437 S 101 152 1173 11 43 DOREF BWZ *&5,LBLREF,2 8 0441 V 453 M!1 2 152 1174 11 44 B TSTLST 4 0449 B 474 152 1175 11 45 BW NEWPGE,HEADSW 8 0453 V 502 /80 1 152 1176 11 46 DONEXT CW HEADSW 4 0461 ) /80 152 &A/85099,/D8S101V453M!12B474V502/801)/80L039464,433437,441449,453461104001523762L 1177 11 47 B PRINT 4 0465 B 538 153 1178 11 48 W 1 0469 2 153 1179 11 49 CS 216 4 0470 / 216 153 1180 11 50 TSTLST A @010@,XR2 7 0474 A /85 094 153 1181 11 51 C XR2,TABMAX 7 0481 C 094 L11 153 1182 11 52 BE DUMP 5 0488 B 646 S 153 1183 11 53 BCV NEWPGE 5 0493 B 502 @ 153 &B5382/216A/85094C094L11B646SB502@ L033497,469470,474481,488493104001533762L 1184 11 54 B NXTLBL 4 0498 B 348 154 1185 11 55 NEWPGE CC 1 2 0502 F 1 154 1186 11 56 MCW @UNREFERENCED LABELS@,219 7 0504 M S04 219 154 1187 11 57 CC T 2 0511 F T 154 1188 11 58 W 1 0513 2 154 1189 11 59 CS 0219 4 0514 / 219 154 1190 11 60 BW DONEXT,HEADSW 8 0518 V 461 /80 1 154 &B348F1MS04219FT2/219V461/801 L028525,502504,511513,514518104001543762L 1191 11 61 B NXTLBL 4 0526 B 348 155 1192 11 62 LOZNG SW LIST-1 4 0530 , /78 155 1193 11 63 B DOREF 4 0534 B 441 155 1194 11 64 * 1 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1195 11 65 * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABLE 1196 11 66 * 1197 11 67 PRINT SBR PRTXT&3 4 0538 H 634 155 1198 11 68 MCW SYMBOL,206&X1 7 0542 M M!9 2 6 155 1199 11 69 BCE DOIO,ADDHO,% 8 0549 B 635 M!0 % 155 1200 11 70 MN ADDLO,212&X1 7 0557 D M!3 2/2 155 &B348,/78B441H634MM!92 6B635M!0%DM!32/2 L038563,530534,538542,549557104001553762L 1201 11 71 MN 1 0564 D 156 1202 11 72 MN 1 0565 D 156 1203 11 73 MN 1 0566 D 156 1204 11 74 BWZ *&8,ADDHO,2 8 0567 V 582 M!0 2 156 1205 11 75 MCW @1@,208&X1 7 0575 M S05 2 8 156 1206 11 76 BWZ PRTXT,ADDLO-1,2 8 0582 V 631 M!2 2 156 1207 11 77 MN @1@,215&X1 7 0590 D S05 2/5 156 &DDDV582M!02MS052 8V631M!22DS052/5 L033596,565566,567575,582590104001563762L 1208 11 78 MCW @&X@ 4 0597 M S07 157 1209 11 79 BWZ PRTXT,ADDLO-1,S 8 0601 V 631 M!2 S 157 1210 11 80 MN @2@,215&X1 7 0609 D S08 2/5 157 1211 11 81 BWZ PRTXT,ADDLO-1,K 8 0616 V 631 M!2 K 157 1212 11 82 MN @3@,215&X1 7 0624 D S09 2/5 157 1213 11 83 PRTXT B XXXX 4 0631 B 000 157 &MS07V631M!2SDS082/5V631M!2KDS092/5B000 L038634,601609,616624,631040104001573762L 1214 11 84 DOIO MCW ADDLO,212&X1 7 0635 M M!3 2/2 158 1215 11 85 B PRTXT 4 0642 B 631 158 1216 11 86 * 1217 11 87 * PRINT SYMBOL TABLE 1218 11 88 * 1219 11 89 DUMP B NXTPGE 4 0646 B 859 158 1220 11 90 S XR3&1 4 0650 S 100 158 1221 11 91 S 1 0654 S 158 1222 11 92 S 1 0655 S 158 1223 11 93 NXTCTR SW ENDSW#1 4 0656 , S10 158 &MM!32/2B631B859S100SS,S10 L025659,642646,650654,655656104001583762L 1224 11 94 BW SCAN,SORTAB&1&X3 8 0660 V 687 /D9 1 159 1225 11 95 BMPXR3 BCE TSTEOJ,SORTAB&1&X3,@ 8 0668 B 888 /D9 @ 159 1226 11 96 A &1,XR3 7 0676 A S11 099 159 1227 11 97 B NXTCTR 4 0683 B 656 159 1228 11 98 SCAN BCE BMPXR3,SORTAB&1&X3,! 8 0687 B 668 /D9 ! 159 &V687/D91B888/D9@AS11099B656B668/D9! L035694,668676,683687,040040104001593762L 1229 11 99 BCE BMPXR3,SORTAB&1&X3, 8 0695 B 668 /D9 160 1230 12 00 BCE BMPXR3,SORTAB&1&X3,/ 8 0703 B 668 /D9 / 160 1231 12 01 MCW SORTAB&1&X3,TSTLBL&7 7 0711 M /D9 725 160 1232 12 02 TSTLBL BCE DOPNT,SYMHO,X 8 0718 B 777 M!4 X 160 1233 12 03 NOT A @010@,XR2 7 0726 A /85 094 160 &B668/D9 B668/D9/M/D9725B777M!4XA/85094 L038732,703711,718726,040040104001603762L 1234 12 04 C XR2,TABMAX 7 0733 C 094 L11 161 1235 12 05 BU TSTLBL 5 0740 B 718 / 161 1236 12 06 S XR2&1 4 0745 S 095 161 1237 12 07 S 1 0749 S 161 1238 12 08 A &1,XR3 7 0750 A S11 099 161 1239 12 09 CW ENDSW 4 0757 ) S10 161 1240 12 10 BW PNTSYM,PNTSW 8 0761 V 812 S18 1 161 &C094L11B718/S095SAS11099)S10V812S181 L036768,740745,749750,757761104001613762L 1241 12 11 SW PNTSW 4 0769 , S18 162 1242 12 12 B TSTESW 4 0773 B 847 162 1243 12 13 DOPNT BCE NOT,ADDHO, 8 0777 B 726 M!0 162 1244 12 14 B PRINT 4 0785 B 538 162 1 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1245 12 15 SW PNTSW 4 0789 , S18 162 1246 12 16 A @016@,XR1 7 0793 A S14 089 162 1247 12 17 C XR1,@128@ 7 0800 C 089 S17 162 &,S18B847B726M!0 B538,S18AS14089C089S17 L038806,773777,785789,793800104001623762L 1248 12 18 BU NOT 5 0807 B 726 / 163 1249 12 19 PNTSYM W 1 0812 2 163 1250 12 20 CW PNTSW#1 4 0813 ) S18 163 1251 12 21 CS 332 4 0817 / 332 163 1252 12 22 CS 1 0821 / 163 1253 12 23 S XR1&1 4 0822 S 090 163 1254 12 24 BW *&9,ENDSW 8 0826 V 842 S10 1 163 &B726/2)S18/332/S090V842S101 L027833,812813,817821,822826104001633762L 1255 12 25 BCE TSTEOJ,SORTAB&1&X3,@ 8 0834 B 888 /D9 @ 164 1256 12 26 BCV NXTPGE 5 0842 B 859 @ 164 1257 12 27 TSTESW BW NOT,ENDSW 8 0847 V 726 S10 1 164 1258 12 28 B NXTCTR 4 0855 B 656 164 1259 12 29 NXTPGE SBR PGXT&3 4 0859 H 887 164 1260 12 30 CS 332 4 0863 / 332 164 1261 12 31 CS 1 0867 / 164 &B888/D9@B859@V726S101B656H887/332/ L034867,842847,855859,863867104001643762L 1262 12 32 CC 1 2 0868 F 1 165 1263 12 33 MCW @SYMBOL TABLE@,212 7 0870 M S30 212 165 1264 12 34 W 1 0877 2 165 1265 12 35 CC K 2 0878 F K 165 1266 12 36 CS 212 4 0880 / 212 165 1267 12 37 PGXT B XXXX 4 0884 B 000 165 1268 12 38 TSTEOJ BW *&3,HEADSW 8 0888 V 898 /80 1 165 &F1MS302122FK/212B000V898/801 L028895,870877,878880,884888104001653762L 1269 12 39 CC 1 2 0896 F 1 166 1270 12 391 CS 332 4 0898 / 332 166 1271 12 392 CHAIN 3 MACRO 1272 CS 1 0902 / GEN 166 1273 CS 1 0903 / GEN 166 1274 CS 1 0904 / GEN 166 1275 12 40 BCE EOJOB,ITERSW,1 8 0905 B 997 U28 1 166 1276 12 41 * 1277 12 42 * GET PASS C 1278 12 43 * 1279 12 44 BSP SYSTPE 5 0913 U %U1 B 166 &F1/332///B997U281U%U1B L022917,898902,903904,905913104001663762L 1280 12 45 BSP SYSTPE 5 0918 U %U1 B 167 1281 12 46 MCW @5@,TPHALT&4 7 0923 M S31 J15 167 1282 12 47 MCW @5@,TPHLT2&4 7 0930 M S31 K01 167 1283 12 48 MCW @5@,TPHLT3&4 7 0937 M S31 J42 167 1284 12 49 MCW @00@,PROCSW 7 0944 M S33 L95 167 &U%U1BMS31J15MS31K01MS31J42MS33L95 L033950,923930,937944,040040104001673762L 1285 12 50 MCW @ @,SFXCTR 7 0951 M S34 L23 168 1286 12 51 * 1287 12 52 * SET NUMBER OF SEEKS FOR TABLE SEARCH 1288 12 53 * 1289 12 54 C TOTLAB,TABLSZ 7 0958 C L93 L18 168 1290 12 55 MCW TABLSZ,SERCHS 7 0965 M L18 L99 168 1291 12 56 S TOTLAB 4 0972 S L93 168 1292 12 57 BE RDPSSC 5 0976 B K72 S 168 1293 12 58 BH RDPSSC 5 0981 B K72 U 168 &MS34L23CL93L18ML18L99SL93BK72SBK72U L035985,958965,972976,981040104001683762L 1294 12 59 MCW &0009,SERCHS 7 0986 M S38 L99 169 1 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1295 12 60 B RDPSSC 4 0993 B K72 169 1296 12 61 * 1297 12 62 * LAST ITERATION, GET PASS E 1298 12 63 * 1299 12 64 EOJOB CW GPMRK2-1 4 0997 ) U30 169 1300 12 65 CS 3999 4 1001 / I99 169 1301 12 66 BCE READE,MACHSZ,3 8 1005 B 44 L89 3 169 1302 12 67 CS 4799 4 1013 / 79Z 169 1303 12 68 CHAIN 7 MACRO 1304 CS 1 1017 / GEN 169 &MS38L99BK72)U30/I99B 44L893/79Z/ L032 17,993997, 01 05, 13 17104001693762L 1305 CS 1 1018 / GEN 170 1306 CS 1 1019 / GEN 170 1307 CS 1 1020 / GEN 170 1308 CS 1 1021 / GEN 170 1309 CS 1 1022 / GEN 170 1310 CS 1 1023 / GEN 170 1311 12 681 CLR CS 3999 4 1024 / I99 170 &///////I99 L010 27, 19 20, 21 22, 23 24104001703762L 1312 12 682 SBR CLR&3 4 1028 H 27 171 1313 12 683 C CLR&3,&SSOP-1 7 1032 C 27 S41 171 1314 12 684 BU CLR 5 1039 B 24 / 171 1315 12 69 READE RTW SYSTPE,SSOP 8 1044 L %U1 Z00 R 171 1316 12 70 BER SYSERR 5 1052 B 68 L 171 1317 12 71 GOTOE MCW @N@,SSOP 7 1057 M S42 Z00 171 &H 27C 27S41B 24/L%U1Z00RB 68LMS42Z00 L036 63, 32 39, 44 52, 57040104001713762L 1318 12 72 B SSOP&1 4 1064 B Z01 172 1319 12 73 SYSERR MCW &9,RDCT#1 7 1068 M S43 S44 172 1320 12 74 BSP SYSTPE 5 1075 U %U1 B 172 1321 12 75 RETRY RTW SYSTPE,SSOP 8 1080 L %U1 Z00 R 172 1322 12 76 BER AGAIN 5 1088 B 97 L 172 1323 12 77 B GOTOE 4 1093 B 57 172 1324 12 78 AGAIN BSP SYSTPE 5 1097 U %U1 B 172 &BZ01MS43S44U%U1BL%U1Z00RB 97LB 57U%U1B L038/01, 68 75, 80 88, 93 97104001723762L 1325 12 79 S @1@,RDCT 7 1102 S S05 S44 173 1326 12 80 BWZ RETRY,RDCT,B 8 1109 V 80 S44 B 173 1327 12 81 H XXXX,691 7 1117 . 000 691 173 1328 12 82 RTW SYSTPE,SSOP 8 1124 L %U1 Z00 R 173 1329 12 83 BSS SYSERR,E 5 1132 B 68 E 173 &SS05S44V 80S44B.000691L%U1Z00RB 68E L035/36,/09/17,/24/32,040040104001733762L 1330 12 84 H XXXX,612 7 1137 . 000 612 174 1331 12 85 B GOTOE 4 1144 B 57 174 &.000612B 57 L011/47,/44040,040040,040040104001743762L 1332 12 86 LIST DCW @ ABCDEFGHI!JKLMNOPQR /STUVWXYZ)@@ 32 1179 175 1333 12 87 SORTAB EQU LIST-31 1148 1334 12 88 LTORG * 1180 1158 HEADSW DCW #01 1 1180 AREA 175 @A@ 1 1181 LIT 175 @Z@ 1 1182 LIT 175 @010@ 3 1185 LIT 175 & ABCDEFGHI!JKLMNOPQR /STUVWXYZ)@ AZ010 L038/85,/80/81,/82/83,040040104001753762L 1186 @UNREFERENCED LABELS@ 19 1204 LIT 176 @1@ 1 1205 LIT 176 @&X@ 2 1207 LIT 176 @2@ 1 1208 LIT 176 @3@ 1 1209 LIT 176 1223 ENDSW #01 1 1210 AREA 176 1 1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &1 1 1211 LIT 176 &UNREFERENCED LABELS1&X23 A L026S11,S05S06,S08S09,S10S11104001763762L @016@ 3 1214 LIT 177 @128@ 3 1217 LIT 177 1250 PNTSW #01 1 1218 AREA 177 1263 @SYMBOL TABLE@ 12 1230 LIT 177 @5@ 1 1231 LIT 177 @00@ 2 1233 LIT 177 @ @ 1 1234 LIT 177 &016128 SYMBOL TABLE500 L023S34,S15S18,S19S31,S32S34104001773762L &0009 4 1238 LIT 178 1313 &SSOP-1 3 1241 Y99 ADCON 178 @N@ 1 1242 LIT 178 &9 1 1243 LIT 178 1319 RDCT #01 1 1244 AREA 178 1335 12 89 ENDOVL DCW @}@ 1 1245 178 &000IY99NI } L011S45,S39S42,S43S44,S45040104001783762L & N000000,040040,040040,040040B00001793762L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01803762L &,068072)063067/061039 ,001001104001813762L 1336 12 90 EX LIBRN B 000 179 & /000080 01823762L 1337 12 91 END LIBRN / 000 080 182 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013771L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023771L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033771L 0 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 102 1 02 CTL 630 1 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 SYSTAP EQU %U1 %U1 108 1 08 ORIGTP EQU %U4 %U4 109 1 09 WORKTP EQU %U5 %U5 110 1 10 XTRATP EQU %U6 %U6 111 1 11 FIXFRM EQU 0 0000 112 1 12 STLABL EQU FIXFRM&2 0002 113 1 13 STSTMT EQU FIXFRM&5 0005 114 1 14 COUNT EQU FIXFRM&7 0007 115 1 15 ORGADD EQU FIXFRM&32 0032 116 1 16 LABADD EQU FIXFRM&61 0061 117 1 17 SUPADD EQU FIXFRM&66 0066 118 1 18 OP EQU FIXFRM&67 0067 119 1 19 AOP EQU FIXFRM&70 0070 120 1 20 BOP EQU FIXFRM&73 0073 121 1 21 DMOD EQU FIXFRM&74 0074 122 1 22 TYPE EQU FIXFRM&75 0075 123 1 23 ALTER EQU FIXFRM&80 0080 124 1 24 XXXX EQU 0 0000 125 1 25 PRINT EQU 200 0200 126 1 26 ALT EQU PRINT&4 0204 127 1 27 PG EQU PRINT&7 0207 128 1 28 LIN EQU PRINT&11 0211 129 1 29 LAB EQU PRINT&19 0219 130 1 30 OPCODE EQU PRINT&25 0225 131 1 31 OPRAND EQU PRINT&78 0278 132 1 32 SUFFIX EQU PRINT&80 0280 133 1 33 CT EQU PRINT&84 0284 134 1 34 LOCN EQU PRINT&90 0290 135 1 35 INOP EQU PRINT&93 0293 136 1 36 INAOP EQU PRINT&97 0297 137 1 37 INBOP EQU PRINT&101 0301 138 1 38 INDMOD EQU PRINT&103 0303 139 1 39 KIND EQU PRINT&109 0309 140 1 40 CARDNO EQU PRINT&114 0314 141 1 41 PUNCH EQU 100 0100 142 1 42 LIBRN EQU 0 0000 143 1 43 ZONE EQU 189 0189 144 1 44 XR1 EQU 89 0089 145 1 45 XR2 EQU 94 0094 146 1 46 XR3 EQU 99 0099 147 1 47 * 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 * INITIALIZATION ROUTINE 149 1 49 * 150 1 50 ORG 1900 1900 151 1 51 SSOP DCW @B@ 1 1900 4 152 1 52 CS 332 4 1901 / 332 4 153 1 53 CS 1 1905 / 4 154 1 54 CS 1 1906 / 4 155 1 55 CS 1 1907 / 4 156 1 56 RTW SYSTAP,400 8 1908 L %U1 400 R 4 157 1 57 NOP XXXX 4 1916 N 000 4 &B/332///L%U1400RN000 L020Z19,Z01Z05,Z06Z07,Z08Z16104000043771L 158 1 58 BER TPERRI 5 1920 B M03 L 5 159 1 59 CW ENDIN2,LSTOP1 7 1925 ) X99 O93 5 160 1 60 SW ENDIN 4 1932 , I98 5 161 1 61 LCA ENDIN,333 7 1936 L I98 333 5 162 1 62 LCA ENDIN,181 7 1943 L I98 181 5 163 1 63 MCW SSOP,TSTSIZ 7 1950 M Z00 407 5 &BM03L)X99O93,I98LI98333LI98181MZ00407 L037Z56,Z25Z32,Z36Z43,Z50040104000053771L 164 1 64 MCW SSOP,SSAVE1 7 1957 M Z00 O91 6 165 1 65 CW ENDIN 4 1964 ) I98 6 166 1 66 RWD ORIGTP 5 1968 U %U4 R 6 167 1 67 RWD WORKTP 5 1973 U %U5 R 6 168 1 68 RWD XTRATP 5 1978 U %U6 R 6 169 1 69 SW PUNCH&72,PUNCH&76 7 1983 , 172 176 6 &MZ00O91)I98U%U4RU%U5RU%U6R,172176 L033Z89,Z64Z68,Z73Z78,Z83040104000063771L 170 1 70 A &1,PUNCH&75 7 1990 A O96 175 7 171 1 71 B READ4 4 1997 B T15 7 172 1 72 * 173 1 73 * CHECK FOR JOB CARD 174 1 74 * 175 1 75 C MNEMON-2,@JOB@ 7 2001 C H48 O99 7 176 1 76 BU CKCTL 5 2008 B !78 / 7 177 1 77 CW JOBSW#1 4 2013 ) P00 7 178 1 78 RT WORKTP,180 8 2017 M %U5 180 R 7 &AO96175BT15CH48O99B!78/)P00M%U5180R L035!24,Z97!01,!08!13,!17040104000073771L 179 1 79 LCA 333,181 7 2025 L 333 181 8 180 1 80 MCW OPERND,JOBSAV 7 2032 M I02 O85 8 181 1 81 MCW IMAGE&80,PUNCH&80 7 2039 M I10 180 8 182 1 82 MCW ALTNO,JOBALT#4 7 2046 M I14 P04 8 183 1 83 MCW PAGENO,JOBPAG#2 7 2053 M H32 P06 8 &L333181MI02O85MI10180MI14P04MH32P06 L035!59,!32!39,!46!53,040040104000083771L 184 1 84 MCW LINENO,JOBLIN#3 7 2060 M H35 P09 9 185 1 85 MCW LABEL,JOBLAB#6 7 2067 M H41 P15 9 186 1 86 B READ4 4 2074 B T15 9 187 1 87 * 188 1 88 * CHECK FOR CONTROL CARD 189 1 89 * 190 1 90 CKCTL C MNEMON-2,@CTL@ 7 2078 C H48 P18 9 191 1 91 BU TSTSIZ 5 2085 B 407 / 9 192 1 92 CW CTLSW#1 4 2090 ) P19 9 &MH35P09MH41P15BT15CH48P18B407/)P19 L034!93,!67!74,!78!85,!90040104000093771L 193 1 93 MCW IMAGE&30,CTLSAV#10 7 2094 M H60 P29 10 194 1 94 MCW ALTNO,CTLALT#4 7 2101 M I14 P33 10 195 1 95 MCW PAGENO,CTLPAG#2 7 2108 M H32 P35 10 196 1 96 MCW LINENO,CTLLIN#3 7 2115 M H35 P38 10 197 1 97 B READ4 4 2122 B T15 10 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 98 * 199 1 99 * TEST OUTPUT OPTION DESIRED 200 2 00 * &MH60P29MI14P33MH32P35MH35P38BT15 L032J25,J01J08,J15J22,040040104000103771L 201 2 01 CHKOP BCE OPNTAP,LSTAPE,1 8 2126 B K14 P24 1 11 202 2 02 TSTOP BCE TSTSIZ,OUTOPN,0 8 2134 B 407 P22 0 11 203 2 03 BCE CONDOP,OUTOPN,1 8 2142 B 400 P22 1 11 204 2 04 BCE TSTSIZ,OUTOPN,2 8 2150 B 407 P22 2 11 &BK14P241B407P220B400P221B407P222 L032J57,J34J42,J50040,040040104000113771L 205 2 05 BCE CONDOP,OUTOPN,3 8 2158 B 400 P22 3 12 206 2 06 BCE TSTSIZ,OUTOPN,4 8 2166 B 407 P22 4 12 207 2 07 BCE CONDOP,OUTOPN,5 8 2174 B 400 P22 5 12 208 2 08 BCE TSTSIZ,OUTOPN,6 8 2182 B 407 P22 6 12 &B400P223B407P224B400P225B407P226 L032J89,J66J74,J82040,040040104000123771L 209 2 09 BCE CONDOP,OUTOPN,7 8 2190 B 400 P22 7 13 210 2 10 BCE TSTSIZ,OUTOPN, 8 2198 B 407 P22 13 211 2 11 CW CTLSW1#1 4 2206 ) P39 13 212 2 12 B TSTSIZ 4 2210 B 407 13 213 2 13 OPNTAP CW TAPOP1 4 2214 ) O92 13 214 2 14 B TSTOP 4 2218 B J34 13 215 2 15 * 216 2 16 * SETUP & GET MAIN PROGRAM 217 2 17 * 218 2 18 GETMAN BSP ORIGTP 5 2222 U %U4 B 13 &B400P227B407P22 )P39B407)O92BJ34U%U4B L037K26,J98K06,K10K14,K18K22104000133771L 219 2 19 SW FIXFRM&1,FIXFRM&6 7 2227 , 001 006 14 220 2 20 SW FIXFRM&8,FIXFRM&14 7 2234 , 008 014 14 221 2 21 SW FIXFRM&23,FIXFRM&57 7 2241 , 023 057 14 222 2 22 SW FIXFRM&62,FIXFRM&67 7 2248 , 062 067 14 223 2 23 SW FIXFRM&68,FIXFRM&71 7 2255 , 068 071 14 224 2 24 SW FIXFRM&74 4 2262 , 074 14 &,001006,008014,023057,062067,068071,074L039K65,K34K41,K48K55,K62040104000143771L 225 2 25 CW 181,333 7 2266 ) 181 333 15 226 2 26 MCW KBLK1,HOLDA1-1 7 2273 M O27 O23 15 227 2 27 LCA @L0 , , , 1 @,PUNCH&71 7 2280 L P71 171 15 228 2 28 LCA @2SKB@,ZONE 7 2287 L P75 189 15 229 2 29 LCA @00000@,XR3&2 7 2294 L P80 101 15 230 2 30 LCA XR3&2 4 2301 L 101 15 &)181333MO27O23LP71171LP75189LP80101L101L039L04,K73K80,K87K94,L01040104000153771L 231 2 31 LCA 1 2305 L 16 232 2 32 SW GRPMK3 4 2306 , O95 16 233 2 33 BCE SETOUT,CNDSW1,1 8 2310 B L49 O33 1 16 234 2 34 BW *&5,LSTOP1 8 2318 V L30 O93 1 16 235 2 35 B SETOUT 4 2326 B L49 16 236 2 36 BW *&5,TAPOP1 8 2330 V L42 O92 1 16 237 2 37 B SETOUT 4 2338 B L49 16 &L,O95BL49O331VL30O931BL49VL42O921BL49 L037L41,L06L10,L18L26,L30L38104000163771L 238 2 38 MCW @1@,NOOUT1 7 2342 M P81 O94 17 239 2 39 SETOUT MCW OUTOPN,OPNSV1 7 2349 M P22 O90 17 240 2 40 WTW XTRATP,SAVCN1 8 2356 L %U6 O21 W 17 241 2 41 NOP XXXX 4 2364 N 000 17 242 2 42 BER TPERRI 5 2368 B M03 L 17 243 2 43 RWD XTRATP 5 2373 U %U6 R 17 &MP81O94MP22O90L%U6O21WN000BM03LU%U6R L036L77,L49L56,L64L68,L73040104000173771L 244 2 44 CW GRPMK3 4 2378 ) O95 18 245 2 45 RTW SYSTAP,201 8 2382 L %U1 201 R 18 246 2 46 NOP XXXX 4 2390 N 000 18 247 2 47 BER TPERRI 5 2394 B M03 L 18 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 48 B INIT2 4 2399 B 201 18 249 2 49 * 250 2 50 * TAPE REDUNDANCY ROUTINE 251 2 51 * 252 2 52 TPERRI SBR XR2 4 2403 H 094 18 253 2 53 SBR REDXI&3 4 2407 H M75 18 &)O95L%U1201RN000BM03LB201H094HM75 L033M10,L82L90,L94L99,M03M07104000183771L 254 2 54 MZ &9,XR2 7 2411 Y P82 094 19 255 2 55 MCW 4000-10&X2,TPINSI&7 7 2418 M IR0 M66 19 256 2 56 MN TPINSI&3,BSPI&3 7 2425 D M62 M42 19 257 2 57 MCW TPINSI&7,INST2I&7 7 2432 M M66 N75 19 258 2 58 BSPI BSP INITAP 5 2439 U %U0 B 19 &YP82094MIR0M66DM62M42MM66N75U%U0B L033M43,M18M25,M32M39,040040104000193771L 259 2 59 BCE WRTRDI,TPINSI&7,W 8 2444 B N48 M66 W 20 260 2 60 MCW &9,READCI#1 7 2452 M P82 P83 20 261 2 61 TPINSI RT INITAP,XXXX 8 2459 M %U0 000 R 20 262 2 62 BER RDRERI 5 2467 B M76 L 20 263 2 63 REDXI B XXXX 4 2472 B 000 20 264 2 64 RDRERI MN TPINSI&3,BSP2I&3 7 2476 D M62 M86 20 &BN48M66WMP82P83M%U0000RBM76LB000DM62M86L039M82,M52M59,M67M72,M76040104000203771L 265 2 65 BSP2I BSP INITAP 5 2483 U %U0 B 21 266 2 66 S &1,READCI 7 2488 S O96 P83 21 267 2 67 BWZ TPINSI,READCI,B 8 2495 V M59 P83 B 21 268 2 68 MN TPINSI&3,TPHALI&6 7 2503 D M62 N16 21 269 2 69 TPHALI H XXXX,790 7 2510 . 000 790 21 &U%U0BSO96P83VM59P83BDM62N16.000790 L034N16,M88M95,N03N10,040040104000213771L 270 2 70 MCW TPINSI&7,*&8 7 2517 M M66 N31 22 271 2 71 RT INITAP,XXXX 8 2524 M %U0 000 R 22 272 2 72 BSS BSPI,E 5 2532 B M39 E 22 273 2 73 H XXXX,711 7 2537 . 000 711 22 274 2 74 B REDXI 4 2544 B M72 22 275 2 75 WRTRDI SKP SYSTAP 5 2548 U %U1 E 22 &MM66N31M%U0000RBM39E.000711BM72U%U1E L036N52,N24N32,N37N44,N48040104000223771L 276 2 76 BCE SUBCTI,WRTCTI-1,5 8 2553 B N85 P84 5 23 277 2 77 A &1,WRTCTI#2 7 2561 A O96 P85 23 278 2 78 INST2I WT INITAP,XXXX 8 2568 M %U0 000 W 23 279 2 79 BER BSPI 5 2576 B M39 L 23 280 2 80 B REDXI 4 2581 B M72 23 281 2 81 SUBCTI S WRTCTI 4 2585 S P85 23 &BN85P845AO96P85M%U0000WBM39LBM72SP85 L036N88,N61N68,N76N81,N85040104000233771L 282 2 82 MN TPINSI&3,*&7 7 2589 D M62 O02 24 283 2 83 H XXXX,760 7 2596 . 000 760 24 284 2 84 B INST2I 4 2603 B N68 24 285 2 85 CLRLEG DCW @CLEAR STORAGE @ 14 2620 24 286 2 86 HOLDA1 DCW &0000 4 2624 24 287 2 87 KBLK1 DCW @080@ 3 2627 24 &DM62O02.000760BN68CLEAR STORAGE 000?080L039O27,N96O03,O07O21,O25040104000243771L 288 2 88 CORSIZ DCW @ 3999@ 5 2632 25 289 2 89 CNDSW1 DCW @0@ 1 2633 25 & 39990 L006O33,O33040,040040,040040104000253771L & L039O72,040040,040040,040040104000263771L 290 2 90 JOBSAV DCW #52 52 2685 27 291 2 91 ERRCT1 DCW @0000@ 4 2689 27 292 2 92 OPNSV1 DCW @ @ 1 2690 27 293 2 93 SSAVE1 DCW @ @ 1 2691 27 294 2 94 TAPOP1 DCW @ @ 1 2692 27 & 0000 L020O92)O73O73,O86O90,O91O92104000273771L 295 2 95 LSTOP1 DCW @ @ 1 2693 28 296 2 96 NOOUT1 DCW @ @ 1 2694 28 297 2 97 GRPMK3 DC @}@ 1 2695 28 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 98 SAVCN1 EQU HOLDA1-3 2621 299 2 99 LTORG * 2696 DCW &1 1 2696 LIT 28 @JOB@ 3 2699 LIT 28 177 JOBSW #01 1 2700 AREA 28 182 JOBALT #04 4 2704 AREA 28 183 JOBPAG #02 2 2706 AREA 28 & }AJOB L014P06,O94O96,O97P00,P01P05104000283771L 184 JOBLIN #03 3 2709 AREA 29 185 JOBLAB #06 6 2715 AREA 29 @CTL@ 3 2718 LIT 29 192 CTLSW #01 1 2719 AREA 29 193 CTLSAV #10 10 2729 AREA 29 194 CTLALT #04 4 2733 AREA 29 195 CTLPAG #02 2 2735 AREA 29 & CTL L029P35,P10P16,P19P20,P30P34104000293771L 196 CTLLIN #03 3 2738 AREA 30 211 CTLSW1 #01 1 2739 AREA 30 227 @L0 , , , 1 @ 32 2771 LIT 30 & L0 , , , 1 L036P71,P39P40,040040,040040104000303771L @2SKB@ 4 2775 LIT 31 229 @00000@ 5 2780 LIT 31 @1@ 1 2781 LIT 31 &9 1 2782 LIT 31 260 READCI #01 1 2783 AREA 31 277 WRTCTI #02 2 2785 AREA 31 300 3 00 ORG 3831 3831 301 3 01 INPUT4 DA 1X86 3831 3916 31 &2SKB000001I L014P85,P76P81,P82P83,P84H31104000313771L 302 3 02 PAGENO 1,2 3832 FIELD 32 303 3 03 LINENO 3,5 3835 FIELD 32 304 3 04 LABEL 6,11 3841 FIELD 32 305 3 05 MNEMON 16,20 3850 FIELD 32 306 3 06 OPERND 21,72 3902 FIELD 32 307 3 07 ALTNO 81,84 3914 FIELD 32 308 3 08 IMAGE EQU INPUT4-1 3830 309 3 09 FIXINP EQU IMAGE&87&X3 3917 X 310 3 10 INPUT5 EQU FIXINP&1&X0 3918 311 3 11 PROSIZ EQU CTLSAV-9 2720 312 3 12 OBJSIZ EQU CTLSAV-8 2721 313 3 13 OUTOPN EQU CTLSAV-7 2722 314 3 14 LSTAPE EQU CTLSAV-5 2724 315 3 15 ENDIN EQU 3998 3998 & L001001,H31H33,H36H46,H51I11104000323771L 316 3 16 3998 DCW @}@ 1 3998 33 &} L001I98,040040,040040,040040104000333771L & N000000,040040,040040,040040B00000343771L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00353772L &,068072)063067/061039 ,001001104000363772L 317 3 17 XFR LIBRN B 000 34 1 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 318 3 18 JOB 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 319 3 19 ORG 400 0400 320 3 20 * 321 3 21 * CONDENSE OPTION 322 3 22 * 323 3 23 CONDOP MCW @1@,CNDSW1 7 0400 M T64 O33 37 324 3 24 * 325 3 25 * TEST OBJECT MACHINE SIZE 326 3 26 * 327 3 27 TSTSIZ BSS SENSW,F 5 0407 B /03 F 37 328 3 28 BW *&3,LSTOP1 8 0412 V 422 O93 1 37 329 3 29 CC 1 2 0420 F 1 37 330 3 30 MCW @1@,PRINT&15 7 0422 M T64 215 37 331 3 31 MCW CLRLEG 4 0429 M O20 37 &MT64O33B/03FV422O931F1MT64215MO20 L033432,407412,420422,429040104000373772L 332 3 32 MCW @1@,200 7 0433 M T64 200 38 333 3 33 BW IS4K,CTLSW 8 0440 V 544 P19 1 38 334 3 34 C OBJSIZ,@3@ 7 0448 C P21 T65 38 335 3 35 BL OVER4K 5 0455 B 464 T 38 336 3 36 B IS4K 4 0460 B 544 38 337 3 37 OVER4K C OBJSIZ,@6@ 7 0464 C P21 T66 38 &MT64200V544P191CP21T65B464TB544CP21T66 L038470,440448,455460,464040104000383772L 338 3 38 BL BADCTL 5 0471 B 540 T 39 339 3 39 MCW @,053053N000000N00001026@,PUNCH&52 7 0476 M T89 152 39 340 3 40 LCA @,008015,022026,030037,044,049@ 4 0483 L U18 39 341 3 41 MCW PUNCH&52,PRINT&72 7 0487 M 152 272 39 342 3 42 B PRTPNH 4 0494 B S17 39 343 3 43 MCW @1,001/001117I0?@,PUNCH&71 7 0498 M U33 171 39 344 3 44 MCW @#071029C029056B026/B001/099@ 4 0505 M U60 39 &B540TMT89152LU18M152272BS17MU33171MU60 L038508,476483,487494,498505104000393772L 345 3 45 LCA @L068116,105106,110117B101/I9I@ 4 0509 L U89 40 346 3 46 BCE IS8K,OBJSIZ,4 8 0513 B 651 P21 4 40 347 3 47 BCE IS12K,OBJSIZ,5 8 0521 B 669 P21 5 40 348 3 48 MCW @15@,CORSIZ-3 7 0529 M U91 O29 40 349 3 49 B CLRST2 4 0536 B 683 40 350 3 50 BADCTL CW CTLSW1 4 0540 ) P39 40 &LU89B651P214B669P215MU91O29B683)P39 L035543,513521,529536,540040104000403772L 351 3 51 IS4K MCW @,0570571026@,PUNCH&44 7 0544 M V02 144 41 352 3 52 LCA @,008015,019026,030,034041,045,053@ 4 0551 L V35 41 353 3 53 MCW PUNCH&44,PRINT&64 7 0555 M 144 264 41 354 3 54 B PRTPNH 4 0562 B S17 41 355 3 55 MCW @B0010270B0261,001/001113I0@,PUNCH&70 7 0566 M V61 170 41 356 3 56 LCA @L068112,102106,113/101099/I99,027A070028)027@ 4 0573 L W05 41 &MV02144LV35M144264BS17MV61170LW05 L033576,551555,562566,573040104000413772L 357 3 57 BCE CLRST2,OBJSIZ,3 8 0577 B 683 P21 3 42 358 3 58 MZ @S@,PUNCH&27 7 0585 Y W06 127 42 359 3 59 MCW @1@,CORSIZ-3 7 0592 M T64 O29 42 360 3 60 BCE CLRST2,OBJSIZ,2 8 0599 B 683 P21 2 42 361 3 61 MCW @T@,PUNCH&27 7 0607 M W07 127 42 &B683P213YW06127MT64O29B683P212MW07127 L037613,585592,599607,040040104000423772L 362 3 62 MCW @3@,CORSIZ-2 7 0614 M T65 O30 43 363 3 63 BCE CLRST2,OBJSIZ,1 8 0621 B 683 P21 1 43 364 3 64 CW CTLSW1 4 0629 ) P39 43 365 3 65 MCW @I@,PUNCH&27 7 0633 M W08 127 43 366 3 66 MCW @39@,CORSIZ-2 7 0640 M W10 O30 43 367 3 67 B CLRST2 4 0647 B 683 43 1 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &MT65O30B683P211)P39MW08127MW10O30B683 L037650,621629,633640,647040104000433772L 368 3 68 IS8K MZ @S@,PUNCH&29 7 0651 Y W06 129 44 369 3 69 MCW @7@,CORSIZ-3 7 0658 M W11 O29 44 370 3 70 B CLRST2 4 0665 B 683 44 371 3 71 IS12K MZ @K@,PUNCH&29 7 0669 Y W12 129 44 372 3 72 MCW @11@,CORSIZ-3 7 0676 M W14 O29 44 373 3 73 CLRST2 MCW PUNCH&71,PRINT&91 7 0683 M 171 291 44 &YW06129MW11O29B683YW12129MW14O29M171291L039689,658665,669676,683040104000443772L 374 3 74 MCW @2@,PRINT&15 7 0690 M W15 215 45 375 3 75 MCW CLRLEG 4 0697 M O20 45 376 3 76 B PRTPNH 4 0701 B S17 45 377 3 77 MCW @,0010011040@,PUNCH&71 7 0705 M W26 171 45 378 3 78 MCW @,061068,072/061039@,PUNCH&46 7 0712 M W44 146 45 379 3 79 LCA @,008015,022029,036040,047054@ 4 0719 L W72 45 &MW15215MO20BS17MW26171MW44146LW72 L033722,697701,705712,719040104000453772L 380 3 80 MCW PUNCH&71,PRINT&91 7 0723 M 171 291 46 381 3 81 MCW @BOOTSTRAP@,PRINT&9 7 0730 M W81 209 46 382 3 82 B PRTPNH 4 0737 B S17 46 383 3 83 BW *&3,LSTOP1 8 0741 V 751 O93 1 46 384 3 84 CC K 2 0749 F K 46 385 3 85 BW DOHEAD,CTLSW 8 0751 V 818 P19 1 46 386 3 86 * 387 3 87 * TEST PROCESSOR MACHINE SIZE 388 3 88 * &M171291MW81209BS17V751O931FKV818P191 L036758,730737,741749,751040104000463772L 389 3 89 C PROSIZ,@3@ 7 0759 C P20 T65 47 390 3 90 BE DOHEAD 5 0766 B 818 S 47 391 3 91 BH BADPRO 5 0771 B 814 U 47 392 3 92 C PROSIZ,@6@ 7 0776 C P20 T66 47 393 3 93 BL BADPRO 5 0783 B 814 T 47 394 3 94 MCW @400@,KBLK1 7 0788 M W84 O27 47 &CP20T65B818SB814UCP20T66B814TMW84O27 L036794,766771,776783,788040104000473772L 395 3 95 BCE DOHEAD,PROSIZ,4 8 0795 B 818 P20 4 48 396 3 96 A @400@,KBLK1 7 0803 A W84 O27 48 397 3 97 B DOHEAD 4 0810 B 818 48 398 3 98 BADPRO CW CTLSW1 4 0814 ) P39 48 399 3 99 * 400 4 00 * PRINT HEADING, JOB & CONTROL CARDS 401 4 01 * 402 4 02 DOHEAD MCW @1@,PRINT&114 7 0818 M T64 314 48 403 4 03 MCW @PAGE@,PRINT&109 7 0825 M W88 309 48 &B818P204AW84O27B818)P39MT64314MW88309 L037831,803810,814818,825040104000483772L 404 4 04 MCW JOBSAV,OPRAND 7 0832 M O85 278 49 405 4 05 MCW PUNCH&80,LOCN 7 0839 M 180 290 49 406 4 06 MCW @0@,200 7 0846 M W89 200 49 407 4 07 B PRINT2 4 0853 B 61 49 408 4 08 BW *&3,LSTOP1 8 0857 V 867 O93 1 49 409 4 09 CC K 2 0865 F K 49 410 4 10 CS PRINT&78 4 0867 / 278 49 &MO85278M180290MW89200B 61V867O931FK/278L039870,839846,853857,865867104000493772L 411 4 11 MCW @SFX CT LOCN INSTRUCTION TYPE CARD@,PRINT&114 7 0871 M X25 314 50 412 4 12 MCW @SEQ PG LIN LABEL OP OPERANDS@,PRINT&34 7 0878 M X58 234 50 413 4 13 MCW @0@,200 7 0885 M W89 200 50 414 4 14 B PRINT2 4 0892 B 61 50 415 4 15 CS PRINT&132 4 0896 / 332 50 416 4 16 CS 1 0900 / 50 417 4 17 B PRINT2 4 0901 B 61 50 1 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &MX25314MX58234MW89200B 61/332/B 61 L034904,878885,892896,900901104000503772L 418 4 18 BW TSTCTL,JOBSW 8 0905 V 970 P00 1 51 419 4 19 MCS JOBALT,ALT 7 0913 Z P04 204 51 420 4 20 MCS JOBPAG,PG 7 0920 Z P06 207 51 421 4 21 MZ JOBPAG,PG 7 0927 Y P06 207 51 422 4 22 MCW JOBLIN,LIN 7 0934 M P09 211 51 &V970P001ZP04204ZP06207YP06207MP09211 L036940,913920,927934,040040104000513772L 423 4 23 MCW JOBLAB,LAB 7 0941 M P15 219 52 424 4 24 MCW @JOB@,OPCODE-2 7 0948 M X61 223 52 425 4 25 MCW JOBSAV,OPRAND 7 0955 M O85 278 52 426 4 26 B PRINT2 4 0962 B 61 52 427 4 27 CS OPRAND 4 0966 / 278 52 428 4 28 TSTCTL BW NOCNTL,CTLSW 8 0970 V 50 P19 1 52 &MP15219MX61223MO85278B 61/278V 50P191 L037977,948955,962966,970040104000523772L 429 4 29 MCS CTLALT,ALT 7 0978 Z P33 204 53 430 4 30 MCS CTLPAG,PG 7 0985 Z P35 207 53 431 4 31 MZ CTLPAG,PG 7 0992 Y P35 207 53 432 4 32 MCW CTLLIN,LIN 7 0999 M P38 211 53 433 4 33 MCW CTLSAV,PRINT&36 7 1006 M P29 236 53 &ZP33204ZP35207YP35207MP38211MP29236 L035 12,985992,999 06,040040104000533772L 434 4 34 MCW @CTL@,OPCODE-2 7 1013 M X64 223 54 435 4 35 BW CTLPNT,CTLSW1 8 1020 V 42 P39 1 54 436 4 36 MCW @BAD STATEMENT@,PRINT&128 7 1028 M X77 328 54 437 4 37 ERRCTL A &1,ERRCT1 7 1035 A X78 O89 54 438 4 38 CTLPNT B PRINT2 4 1042 B 61 54 439 4 39 B GETMAN 4 1046 B K22 54 &MX64223V 42P391MX77328AX78O89B 61BK22 L037 49, 20 28, 35 42, 46040104000543772L 440 4 40 NOCNTL MCW @NO CONTROL CARD@,PRINT&130 7 1050 M X93 330 55 441 4 41 B ERRCTL 4 1057 B 35 55 442 4 42 PRINT2 SBR PNT2XT&3 4 1061 H /02 55 443 4 43 BW *&2,LSTOP1 8 1065 V 74 O93 1 55 444 4 44 W 1 1073 2 55 445 4 45 BW PNT2XT,TAPOP1 8 1074 V 99 O92 1 55 &MX93330B 35H/02V 74O9312V 99O921 L032 81, 57 61, 65 73, 74040104000553772L 446 4 46 WT 3,200 8 1082 M %U3 200 W 56 447 4 47 NOP XXXX 4 1090 N 000 56 448 4 48 BER TPERRI 5 1094 B M03 L 56 449 4 49 PNT2XT B XXXX 4 1099 B 000 56 450 4 50 * 451 4 51 * TEST SENSE SWITCHES FOR OUTPUT OPTIONS 452 4 52 * 453 4 53 SENSW LCA @0@,OUTOPN 7 1103 L W89 P22 56 454 4 54 LCA @0@,CNDSW1 7 1110 L W89 O33 56 &M%U3200WN000BM03LB000LW89P22LW89O33 L035/16, 90 94, 99/03,/10040104000563772L 455 4 55 MCW @ @,LSTAPE 7 1117 M X94 P24 57 456 4 56 SW TAPOP1 4 1124 , O92 57 457 4 57 BSS ADD1,B 5 1128 B /68 B 57 458 4 58 TSTSSC BSS ADD2,C 5 1133 B /79 C 57 459 4 59 TSTSSG BSS ADD4,G 5 1138 B /90 G 57 460 4 60 TSTSSD BSS LSTAP,D 5 1143 B S01 D 57 461 4 61 TSTSSE BSS SUPLST,E 5 1148 B S09 E 57 &MX94P24,O92B/68BB/79CB/90GBS01DBS09E L036/52,/24/28,/33/38,/43/48104000573772L 462 4 62 SSXT CW OUTOPN 4 1153 ) P22 58 463 4 63 MCW @N@,TSTSIZ 7 1157 M X95 407 58 464 4 64 B CHKOP 4 1164 B J26 58 465 4 65 ADD1 A &1,OUTOPN 7 1168 A X78 P22 58 466 4 66 B TSTSSC 4 1175 B /33 58 467 4 67 ADD2 A &2,OUTOPN 7 1179 A X96 P22 58 1 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 468 4 68 B TSTSSG 4 1186 B /38 58 &)P22MX95407BJ26AX78P22B/33AX96P22B/38 L037/89,/57/64,/68/75,/79/86104000583772L 469 4 69 ADD4 A &4,OUTOPN 7 1190 A X97 P22 59 470 4 70 B TSTSSD 4 1197 B /43 59 471 4 71 LSTAP CW TAPOP1 4 1201 ) O92 59 472 4 72 B TSTSSE 4 1205 B /48 59 473 4 73 SUPLST SW LSTOP1 4 1209 , O93 59 474 4 74 B SSXT 4 1213 B /53 59 475 4 75 * 476 4 76 * PRINT AND/OR PUNCH 477 4 77 * 478 4 78 PRTPNH SBR EXIT&3 4 1217 H T14 59 &AX97P22B/43)O92B/48,O93B/53HT14 L031S20,/97S01,S05S09,S13S17104000593772L 479 4 79 MCS PUNCH&75,CARDNO 7 1221 Z 175 314 60 480 4 80 BW *&2,LSTOP1 8 1228 V S37 O93 1 60 481 4 81 W 1 1236 2 60 482 4 82 BW PUNCH1,TAPOP1 8 1237 V S86 O92 1 60 483 4 83 WT 3,200 8 1245 M %U3 200 W 60 484 4 84 NOP XXXX 4 1253 N 000 60 &Z175314VS37O9312VS86O921M%U3200WN000 L036S56,S28S36,S37S45,S53040104000603772L 485 4 85 BER TPERRI 5 1257 B M03 L 61 486 4 86 MCW @&@,100 7 1262 M X98 100 61 487 4 87 WT 3,100 8 1269 M %U3 100 W 61 488 4 88 NOP XXXX 4 1277 N 000 61 489 4 89 BER TPERRI 5 1281 B M03 L 61 490 4 90 PUNCH1 BCE *&2,CNDSW1,0 8 1286 B S95 O33 0 61 491 4 91 P 1 1294 4 61 &BM03LMX98100M%U3100WN000BM03LBS95O3304 L038S94,S62S69,S77S81,S86S94104000613772L 492 4 92 A &1,PUNCH&75 7 1295 A X78 175 62 493 4 93 CS PRINT&132 4 1302 / 332 62 494 4 94 CS 1 1306 / 62 495 4 95 CS PUNCH&71 4 1307 / 171 62 496 4 96 EXIT B XXXX 4 1311 B 000 62 497 4 97 * 498 4 98 * READ ORIGINAL TAPE 499 4 99 * 500 5 00 READ4 SBR READ4X&3 4 1315 H T39 62 501 5 01 RT ORIGTP,INPUT4 8 1319 M %U4 H31 R 62 &AX78175/332//171B000HT39M%U4H31R L032T26,T02T06,T07T11,T15T19104000623772L 502 5 02 B CHKLG 4 1327 B T40 63 503 5 03 BER TPERRI 5 1331 B M03 L 63 504 5 04 READ4X B XXXX 4 1336 B 000 63 505 5 05 CHKLG BCE READ4&4,INPUT4&12,} 8 1340 B T19 H43 } 63 506 5 06 CHAIN 12 MACRO 507 BCE 1 1348 B GEN 63 508 BCE 1 1349 B GEN 63 509 BCE 1 1350 B GEN 63 &BT40BM03LB000BT19H43}BBB L024T50,T31T36,T40T48,T49T50104000633772L 510 BCE 1 1351 B GEN 64 511 BCE 1 1352 B GEN 64 512 BCE 1 1353 B GEN 64 513 BCE 1 1354 B GEN 64 514 BCE 1 1355 B GEN 64 515 BCE 1 1356 B GEN 64 516 BCE 1 1357 B GEN 64 &BBBBBBB L007T57,T52T53,T54T55,T56T57104000643772L 517 BCE 1 1358 B GEN 65 1 1401 AUTOCODER-PASS 7 LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 518 BCE 1 1359 B GEN 65 519 5 07 B READ4X-5 4 1360 B T31 65 520 5 08 LTORG * 1364 DCW @1@ 1 1364 LIT 65 @3@ 1 1365 LIT 65 @6@ 1 1366 LIT 65 339 @,053053N000000N00001026@ 23 1389 LIT 65 &BBBT31136,053053N000000N00001026 L032T89,T59T60,T64T65,T66T67104000653772L 340 @,008015,022026,030037,044,049@ 29 1418 LIT 66 &,008015,022026,030037,044,049 L029U18,040040,040040,040040104000663772L 343 @1,001/001117I0?@ 15 1433 LIT 67 &1,001/001117I0? L015U33,040040,040040,040040104000673772L 344 @#071029C029056B026/B001/099@ 27 1460 LIT 68 𑕵C029056B026/B001/099 L027U60,040040,040040,040040104000683772L 345 @L068116,105106,110117B101/I9I@ 29 1489 LIT 69 @15@ 2 1491 LIT 69 &L068116,105106,110117B101/I9I15 L031U91,U90040,040040,040040104000693772L 351 @,0570571026@ 11 1502 LIT 70 &,0570571026 L011V02,040040,040040,040040104000703772L 352 @,008015,019026,030,034041,045,053@ 33 1535 LIT 71 &,008015,019026,030,034041,045,053 L033V35,040040,040040,040040104000713772L 355 @B0010270B0261,001/001113I0@ 26 1561 LIT 72 &B0010270B0261,001/001113I0 L026V61,040040,040040,040040104000723772L &L068112,102106,113/101099/I99,027A07002L039W00,040040,040040,040040104000733772L 356 @L068112,102106,113/101099/I99,027A070028)027@ 44 1605 LIT 74 @S@ 1 1606 LIT 74 @T@ 1 1607 LIT 74 @I@ 1 1608 LIT 74 @39@ 2 1610 LIT 74 &8)027STI39 L010W10)W01W01,W06W07,W08W09104000743772L @7@ 1 1611 LIT 75 @K@ 1 1612 LIT 75 @11@ 2 1614 LIT 75 @2@ 1 1615 LIT 75 377 @,0010011040@ 11 1626 LIT 75 378 @,061068,072/061039@ 18 1644 LIT 75 &7K112,0010011040,061068,072/061039 L034W44,W12W13,W15W16,W27040104000753772L 379 @,008015,022029,036040,047054@ 28 1672 LIT 76 381 @BOOTSTRAP@ 9 1681 LIT 76 &,008015,022029,036040,047054BOOTSTRAP L037W81,W73040,040040,040040104000763772L @400@ 3 1684 LIT 77 @PAGE@ 4 1688 LIT 77 @0@ 1 1689 LIT 77 &400PAGE0 L008W89,W85W89,040040,040040104000773772L 411 @SFX CT LOCN INSTRUCTION TYPE CARD@ 36 1725 LIT 78 &SFX CT LOCN INSTRUCTION TYPE CARD L036X25,040040,040040,040040104000783772L 412 @SEQ PG LIN LABEL OP OPERANDS@ 33 1758 LIT 79 @JOB@ 3 1761 LIT 79 @CTL@ 3 1764 LIT 79 &SEQ PG LIN LABEL OP OPERANDSJOBCTLL039X64,X59X62,040040,040040104000793772L 436 @BAD STATEMENT@ 13 1777 LIT 80 &1 1 1778 LIT 80 440 @NO CONTROL CARD@ 15 1793 LIT 80 @ @ 1 1794 LIT 80 @N@ 1 1795 LIT 80 &2 1 1796 LIT 80 &4 1 1797 LIT 80 &BAD STATEMENTANO CONTROL CARD NBD L033X97,X78X79,X94X95,X96X97104000803772L @&@ 1 1798 LIT 81 521 5 09 ENDIN2 DCW @}@ 1 1799 81 &&} L002X99,X99040,040040,040040104000813772L & N000000,040040,040040,040040B00000823772L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00833775L &,068072)063067/061039 ,001001104000843775L 522 5 10 XFR LIBRN B 000 82 1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 523 5 11 JOB 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 524 5 12 ORG ISIOCS 0794 525 5 13 * 526 5 14 * EX, END CARDS 527 5 15 * 528 5 16 EXEND MCW @B@,INOP 7 0794 M D12 293 85 529 5 17 MCW @B@,HOLDH&1 7 0801 M D12 D93 85 530 5 18 BCE SETAOP,TYPE,C 8 0808 B 830 075 C 85 531 5 19 MCW @/ 080@,INBOP 7 0816 M D21 301 85 532 5 20 MCW @/ 080@,HOLDH&7 7 0823 M D28 D99 85 &MD12293MD12D93B830075CMD21301MD28D99 L036829,801808,816823,040040104000853775L 533 5 21 SETAOP MCW AOP,INAOP 7 0830 M 070 297 86 534 5 22 MCW AOP,HOLDH&4 7 0837 M 070 D96 86 535 5 23 BCE SYMUND,AOP,# 8 0844 B L09 070 # 86 536 5 24 B SETLOC 4 0852 B U18 86 537 5 25 B CONDNS 4 0856 B L54 86 538 5 26 B PRNTLN 4 0860 B Y54 86 &M070297M070D96BL09070#BU18BL54BY54 L034863,837844,852856,860040104000863775L 539 5 27 BCE GETOV1,TYPE,C 8 0864 B Z63 075 C 87 540 5 28 CC 1 2 0872 F 1 87 541 5 29 MCW @1@,200 7 0874 M D29 200 87 542 5 30 MCS ERRCNT,PRINT&4 7 0881 Z C66 204 87 543 5 31 C PRINT&4,BLANK4#4 7 0888 C 204 D33 87 544 5 32 BU SETERH 5 0895 B 945 / 87 &BZ63075CF1MD29200ZC66204C204D33B945/ L036899,872874,881888,895040104000873775L 545 5 33 TSTCOR BW EOJOB,ADDRSW#1 8 0900 V 928 D34 1 88 546 5 34 MCW WORD1,PRINT&20 7 0908 M S49 220 88 547 5 35 B WTAPE 4 0915 B J24 88 548 5 36 BW *&2,LSTOP 8 0919 V 928 C70 1 88 549 5 37 W 1 0927 2 88 550 5 38 EOJOB BW RESET,TAPOP 8 0928 V 543 C69 1 88 &V928D341MS49220BJ24V928C7012V543C691 L036935,908915,919927,928040104000883775L 551 5 39 WTM 3 5 0936 U %U3 M 89 552 5 40 B RESET 4 0941 B 543 89 553 5 41 SETERH MCW @ERRORS@,PRINT&11 7 0945 M D40 211 89 554 5 42 C PRINT&4,@ 1@ 7 0952 C 204 D44 89 555 5 43 BU *&8 5 0959 B 971 / 89 556 5 44 MCW BLANK1,PRINT&11 7 0964 M D30 211 89 557 5 45 B WTAPE 4 0971 B J24 89 &U%U3MB543MD40211C204D44B971/MD30211BJ24L039974,941945,952959,964971104000893775L 558 5 46 BW *&2,LSTOP 8 0975 V 984 C70 1 90 559 5 47 W 1 0983 2 90 560 5 48 CS PRINT&11 4 0984 / 211 90 561 5 49 B TSTCOR 4 0988 B 900 90 562 5 50 * 563 5 51 * CONDENSE EX, END CARDS 564 5 52 * 565 5 53 NOCARD C WMLOC,AWMSTR 7 0992 C C75 C78 90 566 5 54 BE TSTEND 5 0999 B 20 S 90 567 5 55 CW NEWSW 4 1004 ) G27 90 &V984C7012/211B900CC75C78B 20S)G27 L033 07,983984,988992,999 04104000903775L 568 5 56 ENDRTN BW NOCARD,NEWSW 8 1008 V 992 G27 1 91 569 5 57 B PNCHCD 4 1016 B P62 91 570 5 58 TSTEND BCE EXCUTE,TYPE,C 8 1020 B 57 075 C 91 571 5 59 CS PUNCH&71 4 1028 / 171 91 572 5 60 MCW HOLDH&7,PUNCH&46 7 1032 M D99 146 91 1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 573 5 61 MCS PUNCH&75,CARDNO 7 1039 Z 175 314 91 &V992G271BP62B 57075C/171MD99146Z175314 L038 45, 16 20, 28 32, 39040104000913775L 574 5 62 SBR PNHXT&3,LSTCD 7 1046 H Q90 S11 92 575 5 63 B TSTPCH 4 1053 B Q21 92 576 5 64 EXCUTE MCE WMSTR,PUNCH&71 7 1057 E D11 171 92 577 5 65 MCW @N000000@,PUNCH&46 7 1064 M D51 146 92 578 5 66 MCW HOLDH&4,PUNCH&71 7 1071 M D96 171 92 579 5 67 MCS PUNCH&75,CARDNO 7 1078 Z 175 314 92 &HQ90S11BQ21ED11171MD51146MD96171Z175314L039 84, 53 57, 64 71, 78040104000923775L 580 5 68 SBR PNHXT&3,EXOUT 7 1085 H Q90 96 93 581 5 69 B TSTPCH 4 1092 B Q21 93 582 5 70 * 583 5 71 * PUNCH COMPATIBILITY CARDS 584 5 72 * 585 5 73 EXOUT CS PUNCH&71 4 1096 / 171 93 586 5 74 B READOG 4 1100 B B09 93 587 5 75 BSP ORIGTP 5 1104 U %U4 B 93 588 5 76 C MNEMON-2,@JOB@ 7 1109 C H48 D54 93 589 5 77 BU *&8 5 1116 B /28 / 93 &HQ90 96BQ21/171BB09U%U4BCH48D54B/28/ L036/20, 92 96,/00/04,/09/16104000933775L 590 5 78 MCW IMAGE&80,PUNCH&80 7 1121 M I10 180 94 591 5 79 MCW WORD2,PUNCH&39 7 1128 M S88 139 94 592 5 80 LCA WORD3,PUNCH&66 7 1135 L S99 166 94 593 5 81 MCW PUNCH&66,PUNCH&50 7 1142 M 166 150 94 594 5 82 BCE *&2,CONDSW,0 8 1149 B /58 C10 0 94 595 5 83 P 1 1157 4 94 &MI10180MS88139LS99166M166150B/58C1004 L037/57,/28/35,/42/49,/57040104000943775L 596 5 84 B WTAP2 4 1158 B ?43 95 597 5 85 CS PUNCH&66 4 1162 / 166 95 598 5 86 A &1,PUNCH&75 7 1166 A D55 175 95 599 5 87 MCW WORD4,PUNCH&21 7 1173 M T20 121 95 600 5 88 MCW WORD5,PUNCH&71 7 1180 M T31 171 95 601 5 89 SBR PNHXT&3,OUTEX 7 1187 H Q90 S26 95 &B?43/166AD55175MT20121MT31171HQ90S26 L036/93,/62/66,/73/80,/87040104000953775L 602 5 90 BCE *&2,CONDSW,0 8 1194 B S03 C10 0 96 603 5 91 P 1 1202 4 96 604 5 92 B WTAP2 4 1203 B ?43 96 605 5 93 B NEWCRD 4 1207 B Q34 96 606 5 94 LSTCD CS PUNCH&80 4 1211 / 180 96 607 5 95 BCE *&4,CONDSW,0 8 1215 B S26 C10 0 96 608 5 96 P 1 1223 4 96 &BS03C1004B?43BQ34/180BS26C1004 L030S23,S02S03,S07S11,S15S23104000963775L 609 5 97 SS 8 2 1224 K 8 97 610 5 98 OUTEX B CNDOUT&7 4 1226 B ?14 97 611 5 99 WORD1 DCW @OBJECT CORE EXCEEDED@ 20 1249 97 &K8B?14OBJECT CORE EXCEEDED L026S49,S26S30,040040,040040104000973775L 612 6 00 WORD2 DCW @,015022)024056,029036,040047,0540611001@ 39 1288 98 &,015022)024056,029036,040047,0540611001L039S88,040040,040040,040040104000983775L 613 6 01 WORD3 DCW @,001008B001@ 11 1299 99 614 6 02 WORD4 DCW @,068072)063067/061039@ 21 1320 99 &,001008B001,068072)063067/061039 L032T20,T00040,040040,040040104000993775L 615 6 03 WORD5 DCW @,0010011040@ 11 1331 100 616 6 04 OV2GM DCW @}@ 1 1332 100 &,0010011040} L012T32,T32040,040040,040040104001003775L & N000000,040040,040040,040040B00001013775L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01023773L &,068072)063067/061039 ,001001104001033773L 617 6 05 XFR LIBRN B 000 101 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 618 6 06 JOB 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 619 6 07 * 620 6 08 * READ SECOND HALF OF MAIN PROGRAM 621 6 09 * 622 6 10 ORG 201 0201 623 6 11 INIT2 RTW SYSTAP,2000 8 0201 L %U1 !00 R 104 624 6 12 NOP XXXX 4 0209 N 000 104 625 6 13 BER TPERR 5 0213 B 334 L 104 626 6 14 RTW XTRATP,SAVCON 8 0218 L %U6 B98 R 104 627 6 15 NOP XXXX 4 0226 N 000 104 628 6 16 BER TPERR 5 0230 B 334 L 104 629 6 17 RWD XTRATP 5 0235 U %U6 R 104 &L%U1!00RN000B334LL%U6B98RN000B334LU%U6RL039239,209213,218226,230235104001043773L 630 6 18 CW GMSAVE,WMSW#1 7 0240 ) C72 D56 105 631 6 19 CW ENDE1,ENDE2 7 0247 ) Z94 H27 105 632 6 20 SW GM,181 7 0254 , 333 181 105 633 6 21 SW OV1GM 4 0261 , U17 105 634 6 22 WTW XTRATP,ISIOCS 8 0265 L %U6 794 W 105 635 6 23 NOP XXXX 4 0273 N 000 105 &)C72D56)Z94H27,333181,U17L%U6794WN000 L037276,247254,261265,273040104001053773L 636 6 24 BER TPERR 5 0277 B 334 L 106 637 6 25 RWD XTRATP 5 0282 U %U6 R 106 638 6 26 CW OV1GM 4 0287 ) U17 106 639 6 27 ZA &5,LINCT 7 0291 ? D57 F13 106 640 6 28 BCE RESET,NOOUT,1 8 0298 B 543 C71 1 106 641 6 29 B GET 4 0306 B A24 106 642 6 30 B SETUP 4 0310 B 595 106 &B334LU%U6R)U17?D57F13B543C711BA24B595 L037313,282287,291298,306310104001063773L 643 6 31 DCW @ @ 1 0314 107 644 6 32 * 645 6 33 * MAIN LINE PROGRAM 646 6 34 * 647 6 35 ORG 333 0333 & L001314,040040,040040,040040104001073773L 648 6 36 GM DC @}@ 1 0333 108 649 6 37 * 650 6 38 * TAPE REDUNDANCY ROUTINE 651 6 39 * 652 6 40 TPERR SBR XR2 4 0334 H 094 108 653 6 41 SBR REDXT&3 4 0338 H 406 108 654 6 42 MZ PLUS9,XR2 7 0342 Y 538 094 108 655 6 43 MCW 4000-10&X2,TPINST&7 7 0349 M IR0 397 108 &}H094H406Y538094MIR0397 L023355)333333,334338,342349104001083773L 656 6 44 MN TPINST&3,BSP1&3 7 0356 D 393 373 109 657 6 45 MCW TPINST&7,INST2&7 7 0363 M 397 506 109 658 6 46 BSP1 BSP INITAP 5 0370 U %U0 B 109 659 6 47 BCE WRTRED,TPINST&7,W 8 0375 B 479 397 W 109 660 6 48 MCW PLUS9,READCT 7 0383 M 538 540 109 &D393373M397506U%U0BB479397WM538540 L034389,363370,375383,040040104001093773L 661 6 49 TPINST RT INITAP,XXXX 8 0390 M %U0 000 R 110 662 6 50 BER RDRERR 5 0398 B 407 L 110 663 6 51 REDXT B XXXX 4 0403 B 000 110 664 6 52 RDRERR MN TPINST&3,BSP2&3 7 0407 D 393 417 110 665 6 53 BSP2 BSP INITAP 5 0414 U %U0 B 110 666 6 54 S PLUS1,READCT 7 0419 S 539 540 110 &M%U0000RB407LB000D393417U%U0BS539540 L036425,398403,407414,419040104001103773L 667 6 55 BWZ TPINST,READCT,B 8 0426 V 390 540 B 111 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 668 6 56 MN TPINST&3,TPHALT&6 7 0434 D 393 447 111 669 6 57 TPHALT H XXXX,790 7 0441 . 000 790 111 670 6 58 MCW TPINST&7,*&8 7 0448 M 397 462 111 671 6 59 RT INITAP,XXXX 8 0455 M %U0 000 R 111 &V390540BD393447.000790M397462M%U0000R L037462,434441,448455,040040104001113773L 672 6 60 BSS BSP1,E 5 0463 B 370 E 112 673 6 61 H XXXX,712 7 0468 . 000 712 112 674 6 62 B REDXT 4 0475 B 403 112 675 6 63 WRTRED SKP SYSTAP 5 0479 U %U1 E 112 676 6 64 BCE SUBCTR,WRTCTR-1,5 8 0484 B 516 541 5 112 677 6 65 A PLUS1,WRTCTR 7 0492 A 539 542 112 &B370E.000712B403U%U1EB5165415A539542 L036498,468475,479484,492040104001123773L 678 6 66 INST2 WT INITAP,XXXX 8 0499 M %U0 000 W 113 679 6 67 BER BSP1 5 0507 B 370 L 113 680 6 68 B REDXT 4 0512 B 403 113 681 6 69 SUBCTR S WRTCTR 4 0516 S 542 113 682 6 70 MN TPINST&3,*&7 7 0520 D 393 533 113 683 6 71 H XXXX,760 7 0527 . 000 760 113 684 6 72 B INST2 4 0534 B 499 113 &M%U0000WB370LB403S542D393533.000760B499L039537,507512,516520,527534104001133773L 685 6 73 PLUS9 DCW &9 1 0538 114 686 6 74 PLUS1 DCW &1 1 0539 114 687 6 75 READCT DCW #1 1 0540 114 688 6 76 WRTCTR DCW #2 2 0542 114 689 6 77 * 690 6 78 * GET PASS F 691 6 79 * 692 6 80 RESET LCA SSAVE,201 7 0543 L C68 201 114 693 6 81 LCA 1 0550 L 114 694 6 82 RT SYSTAP,332 8 0551 M %U1 332 R 114 &IA LC68201LM%U1332R L021558,539540,541543,550551104001143773L 695 6 83 CW 181,333 7 0559 ) 181 333 115 696 6 84 RTW SYSTAP,2000 8 0566 L %U1 !00 R 115 697 6 85 NOP XXXX 4 0574 N 000 115 698 6 86 BER TPERR 5 0578 B 334 L 115 699 6 87 MCW 201,2001 7 0583 M 201 !01 115 700 6 88 MCW 1 0590 M 115 701 6 89 B 2002 4 0591 B !02 115 702 6 90 * 703 6 91 * BEGIN MAIN LINE PROGRAM 704 6 92 * &)181333L%U1!00RN000B334LM201!01MB!02 L036594,566574,578583,590591104001153773L 705 6 93 SETUP CS PRINT&132 4 0595 / 332 116 706 6 94 CS 1 0599 / 116 707 6 95 GETORG B READOG 4 0600 B B09 116 708 6 96 * 709 6 97 * DETERMINE TYPE 710 6 98 * 711 6 99 ANALWK SW TYPESW#1 4 0604 , D58 116 712 7 00 MN TYPE,TYPEA#1 7 0608 D 075 D59 116 713 7 01 BCE BYPASS,TYPE,% 8 0615 B S85 075 % 116 714 7 02 BCE BYPASS,TYPE,8 8 0623 B S85 075 8 116 &/332/BB09,D58D075D59BS85075%BS850758 L036630,599600,604608,615623104001163773L 715 7 03 BCE BYPASS,TYPE,I 8 0631 B S85 075 I 117 716 7 04 BCE BYPASS,TYPE,H 8 0639 B S85 075 H 117 717 7 05 BCE PROWRK,ALTER, 8 0647 B 881 080 117 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 718 7 06 ANALOG BCE SETCOM,LABEL-5,* 8 0655 B J72 H36 * 117 &BS85075IBS85075HB881080 BJ72H36* L032662,639647,655040,040040104001173773L 719 7 07 BCE MACPNT,IMAGE&75,R 8 0663 B 805 I05 R 118 720 7 08 BCE ISIOCS,IMAGE&75,W 8 0671 B 794 I05 W 118 721 7 09 BCE MACPNT&7,IMAGE&75,S 8 0679 B 812 I05 S 118 722 7 10 BCE MACPNT&7,IMAGE&75,Z 8 0687 B 812 I05 Z 118 723 7 11 C MNEMON-2,@JOB@ 7 0695 C H48 D54 118 &B805I05RB794I05WB812I05SB812I05ZCH48D54L039701,671679,687695,040040104001183773L 724 7 115 BE DOJOB 5 0702 B 843 S 119 725 7 12 C ALTER,ALTNO 7 0707 C 080 I14 119 726 7 13 BU SEQERR 5 0714 B ?83 / 119 727 7 14 B SETFRE 4 0719 B T01 119 728 7 15 CW TYPESW 4 0723 ) D58 119 729 7 16 BCE INSTR,TYPE, 8 0727 B V43 075 119 &B843SC080I14B?83/BT01)D58BV43075 L033734,707714,719723,727040104001193773L 730 7 17 MN TYPE,XR2 7 0735 D 075 094 120 731 7 18 A XR2 4 0742 A 094 120 732 7 19 A XR2 4 0746 A 094 120 733 7 20 B *&1&X2 4 0750 B 7N4 120 734 7 21 B DA 4 0754 B W52 120 735 7 22 B CONST 4 0758 B 62 120 736 7 23 B DSA 4 0762 B 969 120 &D075094A094A094B7N4BW52B 62B969 L031765,742746,750754,758762104001203773L 737 7 24 B GETOV2 4 0766 B ?94 121 738 7 25 B SFX 4 0770 B L43 121 739 7 26 B TYPERR 4 0774 B S78 121 740 7 27 B ORG 4 0778 B K12 121 741 7 28 B DS 4 0782 B K85 121 742 7 29 B TYPERR 4 0786 B S78 121 743 7 30 B TYPERR 4 0790 B S78 121 744 7 31 * 745 7 32 * MACRO CARD 746 7 33 * &B?94BL43BS78BK12BK85BS78BS78 L028793,770774,778782,786790104001213773L 747 7 34 ISIOCS MCW @IOCS@,KIND-1 7 0794 M D63 308 122 748 7 35 B MACPNT&7 4 0801 B 812 122 749 7 36 MACPNT MCW @MACRO@,KIND 7 0805 M D68 309 122 750 7 37 B SETFRE 4 0812 B T01 122 751 7 38 BCE CALERR,IMAGE&86,7 8 0816 B 828 I16 7 122 752 7 39 B COMXT 4 0824 B J85 122 &MD63308B812MD68309BT01B828I167BJ85 L034827,801805,812816,824040104001223773L 753 7 40 CALERR MCW @OVERCALL@,PRINT&123 7 0828 M D76 323 123 754 7 41 B BMPERR 4 0835 B L28 123 755 7 42 B COMXT 4 0839 B J85 123 756 7 43 * 757 7 44 * NEW JOB CARD 758 7 45 * 759 7 46 DOJOB MCW OPERND,JOB 7 0843 M I02 C62 123 760 7 47 BW DOIDT,NEWSW 8 0850 V 862 G27 1 123 761 7 48 B PNCHCD 4 0858 B P62 123 &MD76323BL28BJ85MI02C62V862G271BP62 L034861,835839,843850,858040104001233773L 762 7 49 DOIDT MCW IMAGE&80,PUNCH&80 7 0862 M I10 180 124 763 7 50 S LINCT 4 0869 S F13 124 764 7 51 B PRTHDG 4 0873 B !00 124 765 7 52 B MACPNT&7 4 0877 B 812 124 766 7 53 * 767 7 54 * PROGRAM GENERATED RECORD 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 768 7 55 * 769 7 56 PROWRK BCE XTRA,TYPE,Y 8 0881 B 924 075 Y 124 770 7 57 CW OP&1 4 0889 ) 068 124 771 7 58 MCS AOP,PRINT&11 7 0893 Z 070 211 124 &MI10180SF13B!00B812B924075Y)068Z070211 L038899,869873,877881,889893104001243773L 772 7 59 SW OP&1 4 0900 , 068 125 773 7 60 BCE ADCON,TYPE,S 8 0904 B 944 075 S 125 774 7 61 BCE LITRAL,TYPEA,1 8 0912 B 999 D59 1 125 775 7 62 B TYPERR 4 0920 B S78 125 776 7 63 * 777 7 64 * LITERAL GREATER THAN 30 CHARACTERS 778 7 65 * 779 7 66 XTRA SW PRINT&27 4 0924 , 227 125 780 7 67 MCW FIXFRM&72,OPRAND 7 0928 M 072 278 125 781 7 68 CHAIN 5 MACRO 782 MCW 1 0935 M GEN 125 &,068B944075SB999D591BS78,227M072278M L036935,904912,920924,928935104001253773L 783 MCW 1 0936 M GEN 126 784 MCW 1 0937 M GEN 126 785 MCW 1 0938 M GEN 126 786 MCW 1 0939 M GEN 126 787 7 69 B BYPASS 4 0940 B S85 126 788 7 70 * 789 7 71 * ADCON CARD 790 7 72 * 791 7 73 ADCON MCW @ADCON@,KIND 7 0944 M D81 309 126 792 7 74 SW PRINT&27 4 0951 , 227 126 &MMMMBS85MD81309,227 L019954,937938,939940,944951104001263773L 793 7 75 MCW FIXFRM&53,PRINT&40 7 0955 M 053 240 127 794 7 76 MCW FIXFRM&16,OPCODE-2 7 0962 M 016 223 127 795 7 77 DSA MCW BOP,PRINT&95 7 0969 M 073 295 127 796 7 78 MCW BOP,HOLDH&3 7 0976 M 073 D95 127 797 7 79 B SETADD 4 0983 B S45 127 &M053240M016223M073295M073D95BS45 L032986,962969,976983,040040104001273773L 798 7 80 BCE SYMUND,BOP,# 8 0987 B L09 073 # 128 799 7 81 B SETLIT 4 0995 B /56 128 800 7 82 * 801 7 83 * LITERAL & AREA DEFINITION CARDS 802 7 84 * 803 7 85 LITRAL BWZ PROLIT,TYPE,S 8 0999 V 41 075 S 128 804 7 86 BWZ DADC,FIXFRM&1,B 8 1007 V S28 001 B 128 805 7 87 MCW @RMARK@,KIND 7 1015 M D86 309 128 &BL09073#B/56V 41075SVS28001BMD86309 L035 21,995999, 07 15,040040104001283773L 806 7 88 BCE PROLIT&7,TYPE,A 8 1022 B 48 075 A 129 807 7 89 MCW @G@,KIND-4 7 1030 M D87 305 129 808 7 90 B PROLIT&7 4 1037 B 48 129 809 7 91 PROLIT MCW @LIT@,KIND-2 7 1041 M D90 307 129 810 7 92 MCW FIXFRM&53,PRINT&57 7 1048 M 053 257 129 &B 48075AMD87305B 48MD90307M053257 L033 54, 30 37, 41 48,040040104001293773L 811 7 93 MCW FIXFRM&16,OPCODE-2 7 1055 M 016 223 130 812 7 94 CONST B SETADD 4 1062 B S45 130 813 7 95 A @00@,COUNT 7 1066 A D92 007 130 814 7 96 C COUNT,@00@ 7 1073 C 007 D92 130 815 7 97 BL GOOD 5 1080 B 96 T 130 816 7 98 MZ ZONE-1,STSTMT 7 1085 Y 188 005 130 &M016223BS45AD92007C007D92B 96TY188005 L037 91, 62 66, 73 80, 85040104001303773L 817 7 99 B SETLIT 4 1092 B /56 131 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 818 8 00 GOOD BCE AREADF,PRINT&27,# 8 1096 B /83 227 # 131 819 8 01 BWZ AREADF,FIXFRM&4,B 8 1104 V /83 004 B 131 820 8 02 MCW OPRAND,HOLDDT-1 7 1112 M 278 E43 131 821 8 03 BCE SETLIT,PRINT&27,@ 8 1119 B /56 227 @ 131 &B/56B/83227#V/83004BM278E43B/56227@ L035/26, 96/04,/12/19,040040104001313773L 822 8 04 BWZ UNSIGN,PRINT&27,2 8 1127 V /72 227 2 132 823 8 05 MCW COUNT,XR1 7 1135 M 007 089 132 824 8 06 MZ BLANK4,PRINT&27&X1 7 1142 Y D33 2S7 132 825 8 07 MZ PRINT&27,HOLDH&X1 7 1149 Y 227 DZ2 132 826 8 08 SETLIT B SETLOC 4 1156 B U18 132 827 8 09 B CONDNS 4 1160 B L54 132 &V/722272M007089YD332S7Y227DZ2BU18BL54 L037/63,/35/42,/49/56,/60040104001323773L 828 8 10 LITOUT B PRNTLN 4 1164 B Y54 133 829 8 11 B BYPASS 4 1168 B S85 133 830 8 12 UNSIGN MCW OPRAND,HOLDDT#52 7 1172 M 278 E44 133 831 8 13 B SETLIT 4 1179 B /56 133 832 8 14 AREADF BW *&5,TYPESW 8 1183 V /95 D58 1 133 833 8 15 B SETLIT 4 1191 B /56 133 834 8 16 MCW FIXFRM&13,LAB 7 1195 M 013 219 133 &BY54BS85M278E44B/56V/95D581B/56M013219 L038S01,/68/72,/79/83,/91/95104001333773L 835 8 17 MCW BLANK4-2,PRINT&31 7 1202 M D31 231 134 836 8 18 MCW COUNT 4 1209 M 007 134 837 8 19 MCW @#@ 4 1213 M E45 134 838 8 20 MCW @AREA@,KIND-1 7 1217 M E49 308 134 839 8 21 B SETLIT 4 1224 B /56 134 840 8 22 DADC B SETADD 4 1228 B S45 134 841 8 23 B CONDNS 4 1232 B L54 134 &MD31231M007ME45ME49308B/56BS45BL54 L034S35,S09S13,S17S24,S28S32104001343773L 842 8 24 CS PRINT&132 4 1236 / 332 135 843 8 25 CS 1 1240 / 135 844 8 26 B BYPASS 4 1241 B S85 135 845 8 27 * 846 8 28 * SET CONDENSE ADDRESSES FOR CONSTANTS 847 8 29 * 848 8 30 SETADD SBR ADDXT&3 4 1245 H S77 135 849 8 31 ZA LABADD,LOADAD 7 1249 ? 061 E83 135 850 8 32 MCW LOADAD 4 1256 M E83 135 851 8 33 S COUNT,WMADDR 7 1260 S 007 E78 135 &/332/BS85HS77?061E83ME83S007E78 L031S66,S40S41,S45S49,S56S60104001353773L 852 8 34 A &1,WMADDR 7 1267 A D55 E78 136 853 8 35 ADDXT B XXXX 4 1274 B 000 136 854 8 36 * 855 8 37 * GET NEXT RECORDS 856 8 38 * 857 8 39 TYPERR H XXXX,770 7 1278 . 000 770 136 858 8 40 BYPASS B GET 4 1285 B A24 136 859 8 41 BW ANALWK,TYPESW 8 1289 V 604 D58 1 136 860 8 42 B GETORG 4 1297 B 600 136 861 8 43 * 862 8 44 * FREE FORM RECORD TO PRINT AREA 863 8 45 * 864 8 46 SETFRE SBR FREEXT&3 4 1301 H T89 136 &AD55E78B000.000770BA24V604D581B600HT89 L038T04,S74S78,S85S89,S97T01104001363773L 865 8 47 MCS ALTNO,ALT 7 1305 Z I14 204 137 866 8 48 MCS PAGENO,PG 7 1312 Z H32 207 137 867 8 49 MZ PAGENO,PG 7 1319 Y H32 207 137 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 868 8 50 MCW LINENO,LIN 7 1326 M H35 211 137 869 8 51 MCW LABEL,LAB 7 1333 M H41 219 137 &ZI14204ZH32207YH32207MH35211MH41219 L035T39,T12T19,T26T33,040040104001373773L 870 8 52 MCW MNEMON,OPCODE 7 1340 M H50 225 138 871 8 53 MCW OPERND,OPRAND 7 1347 M I02 278 138 872 8 54 BCE IOGEN,IMAGE&75,Z 8 1354 B T90 I05 Z 138 873 8 55 BCE IOGEN,IMAGE&75,Y 8 1362 B T90 I05 Y 138 874 8 56 BCE GENSTM,IMAGE&75,C 8 1370 B T97 I05 C 138 &MH50225MI02278BT90I05ZBT90I05YBT97I05C L038T77,T47T54,T62T70,040040104001383773L 875 8 57 BCE GENSTM,IMAGE&75,S 8 1378 B T97 I05 S 139 876 8 58 FREEXT B XXXX 4 1386 B 000 139 877 8 59 IOGEN MCW @IO@,KIND 7 1390 M E51 309 139 878 8 60 GENSTM MCW @GEN@,KIND-2 7 1397 M E54 307 139 879 8 61 BCE COMERR,IMAGE&86,B 8 1404 B J97 I16 B 139 880 8 62 B FREEXT 4 1412 B T86 139 881 8 63 DCW @ @ 1 1416 139 &BT97I05SB000ME51309ME54307BJ97I16BBT86 L039U16,T86T90,T97U04,U12U16104001393773L 882 8 64 OV1GM DC @}@ 1 1417 140 883 8 65 * 884 8 66 * ASSEMBLED INFORMATION TO PRINT AREA 885 8 67 * 886 8 68 SETLOC SBR LOCXT&3 4 1418 H V01 140 887 8 69 MCS COUNT,CT 7 1422 Z 007 284 140 888 8 70 MCW SFXCTR,SUFFIX 7 1429 M G18 280 140 889 8 71 MN LABADD,LOCN 7 1436 D 061 290 140 &}HV01Z007284MG18280D061290 L026U42)U17U17,U18U22,U29U36104001403773L 890 8 72 MCW 1 1443 M 141 891 8 73 BWZ TSTFR,LABADD-1,2 8 1444 V U66 060 2 141 892 8 74 MCW @X@,PRINT&92 7 1452 M E55 292 141 893 8 75 MZ BLANK1,PRINT&89 7 1459 Y D30 289 141 894 8 76 TSTFR BCE FOURCH,LABADD-4,0 8 1466 B V02 057 0 141 895 8 77 TSTLBL BM DBLDEF,STLABL 8 1474 V V13 002 K 141 &MVU660602ME55292YD30289BV020570VV13002KL039U81,U44U52,U59U66,U74040104001413773L 896 8 78 TSTSTM BM STMBAD,STSTMT 8 1482 V V28 005 K 142 897 8 79 BWZ STMBAD,STSTMT,S 8 1490 V V28 005 S 142 898 8 80 LOCXT B XXXX 4 1498 B 000 142 899 8 81 FOURCH MCW BLANK1,LOCN-4 7 1502 M D30 286 142 900 8 82 B TSTLBL 4 1509 B U74 142 901 8 83 DBLDEF MCW @LABEL@,PRINT&120 7 1513 M E60 320 142 &VV28005KVV28005SB000MD30286BU74ME60320 L038V19,U90U98,V02V09,V13040104001423773L 902 8 84 B BMPERR 4 1520 B L28 143 903 8 85 B TSTSTM 4 1524 B U82 143 904 8 86 STMBAD MCW @BAD STATEMENT@,PRINT&128 7 1528 M E73 328 143 905 8 87 B BMPERR 4 1535 B L28 143 906 8 88 B LOCXT 4 1539 B U98 143 907 8 89 * 908 8 90 * INSTRUCTION CARD 909 8 91 * 910 8 92 INSTR MCW DMOD,INDMOD 7 1543 M 074 303 143 911 8 93 MCW BOP,INBOP 7 1550 M 073 301 143 &BL28BU82ME73328BL28BU98M074303M073301 L037V56,V24V28,V35V39,V43V50104001433773L 912 8 94 MCW AOP,INAOP 7 1557 M 070 297 144 913 8 95 MCW OP,INOP 7 1564 M 067 293 144 914 8 96 MCW DMOD,HOLDH&8 7 1571 M 074 E00 144 915 8 97 MCW 1 1578 M 144 916 8 98 MCW 1 1579 M 144 917 8 99 MCW 1 1580 M 144 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 918 9 00 MCW LABADD,WMADDR#5 7 1581 M 061 E78 144 &M070297M067293M074E00MMMM061E78 L031V87,V64V71,V78V79,V80V81104001443773L 919 9 01 MCW LABADD,LOADAD#5 7 1588 M 061 E83 145 920 9 02 A COUNT,LOADAD 7 1595 A 007 E83 145 921 9 03 S &1,LOADAD 7 1602 S D55 E83 145 922 9 04 BCE SYMUND,BOP,# 8 1609 B L09 073 # 145 923 9 05 BCE SYMUND,AOP,# 8 1617 B L09 070 # 145 &M061E83A007E83SD55E83BL09073#BL09070# L037W24,V95W02,W09W17,040040104001453773L 924 9 06 BCE BADOP,OP, 8 1625 B W37 067 146 925 9 07 B SETLIT 4 1633 B /56 146 926 9 08 BADOP MCW @ OP@,PRINT&123 7 1637 M E86 323 146 927 9 09 B BMPERR 4 1644 B L28 146 928 9 10 B SETLIT 4 1648 B /56 146 929 9 11 * 930 9 12 * DEFINE AREA CARDS 931 9 13 * 932 9 14 DA BCE HEADER,TYPE,0 8 1652 B X41 075 0 146 &BW37067 B/56ME86323BL28B/56BX410750 L035W59,W33W37,W44W48,W52040104001463773L 933 9 15 MCW SUPADD,WMADDR 7 1660 M 066 E78 147 934 9 16 MCW @FIELD@,KIND 7 1667 M E91 309 147 935 9 17 BWZ SETDA,TYPE,B 8 1674 V W93 075 B 147 936 9 18 MCW @SBF@,KIND-2 7 1682 M E94 307 147 937 9 19 B ORGXT 4 1689 B K62 147 938 9 20 SETDA B SETLOC 4 1693 B U18 147 &M066E78ME91309VW93075BME94307BK62BU18 L037W96,W67W74,W82W89,W93040104001473773L 939 9 21 B CONDNS 4 1697 B L54 148 940 9 22 B PRNTLN 4 1701 B Y54 148 941 9 23 BYPDA B GET 4 1705 B A24 148 942 9 24 BCE RPTOUT,TYPE, 8 1709 B X21 075 148 943 9 25 B GETORG 4 1717 B 600 148 944 9 26 RPTOUT MCW SUPADD,WMADDR 7 1721 M 066 E78 148 945 9 27 B CONDNS 4 1728 B L54 148 &BL54BY54BA24BX21075 B600M066E78BL54 L035X31,X01X05,X09X17,X21X28104001483773L 946 9 28 CS PRINT&132 4 1732 / 332 149 947 9 29 CS 1 1736 / 149 948 9 30 B BYPDA 4 1737 B X05 149 949 9 31 HEADER BWZ BADDA,FIXFRM&4,B 8 1741 V Y24 004 B 149 950 9 32 B SETLOC 4 1749 B U18 149 951 9 33 NXTRPT MN SUPADD,PRINT&97 7 1753 D 066 297 149 952 9 34 MCW 1 1760 M 149 &/332/BX05VY24004BBU18D066297M L029X60,X36X37,X41X49,X53X60104001493773L 953 9 35 MCW LABADD,WMADDR 7 1761 M 061 E78 150 954 9 36 B CONDNS 4 1768 B L54 150 955 9 37 B GET 4 1772 B A24 150 956 9 38 C FIXFRM&16,@DA @ 7 1776 C 016 E97 150 957 9 39 BU PNTDA 5 1783 B X96 / 150 958 9 40 BCE NXTRPT,TYPE, 8 1788 B X53 075 150 &M061E78BL54BA24C016E97BX96/BX53075 L035X95,X68X72,X76X83,X88040104001503773L 959 9 41 PNTDA BCE ADDR4K,PRINT&93,0 8 1796 B Y39 293 0 151 960 9 42 C PRINT&97,OBJCOR 7 1804 C 297 C09 151 961 9 43 BL PUADSW 5 1811 B K97 T 151 962 9 44 B PRNTLN 4 1816 B Y54 151 963 9 45 B GETORG 4 1820 B 600 151 964 9 46 BADDA MCW @ NO B X L@,PRINT&129 7 1824 M F06 329 151 965 9 47 B BMPERR 4 1831 B L28 151 &BY392930C297C09BK97TBY54B600MF06329BL28L039Y34,Y04Y11,Y16Y20,Y24Y31104001513773L 966 9 48 B HEADER&8 4 1835 B X49 152 967 9 49 ADDR4K SBR AD4KXT&3 4 1839 H Y53 152 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 968 9 50 MCW BLANK1,PRINT&93 7 1843 M D30 293 152 969 9 51 AD4KXT B XXXX 4 1850 B 000 152 970 9 52 * 971 9 53 * PRINT STATEMENTS 972 9 54 * 973 9 55 PRNTLN SBR PRNTXT&3 4 1854 H Z50 152 974 9 56 BCE DOPNT,LOCN, 8 1858 B Y86 290 152 975 9 57 BCE DOPNT,TYPEA,7 8 1866 B Y86 D59 7 152 &BX49HY53MD30293B000HZ50BY86290 BY86D597L039Y73,Y39Y43,Y50Y54,Y58Y66104001523773L 976 9 58 C LOCN,@ 0081@ 7 1874 C 290 F11 153 977 9 59 BH ADDERR 5 1881 B J57 U 153 978 9 60 DOPNT BW *&2,LSTOP 8 1886 V Y95 C70 1 153 979 9 61 W 1 1894 2 153 980 9 62 B WTAPE 4 1895 B J24 153 981 9 63 BCE CLR,TYPEA,7 8 1899 B Z19 D59 7 153 &C290F11BJ57UVY95C7012BJ24BZ19D597 L033Z06,Y81Y86,Y94Y95,Y99040104001533773L 982 9 64 C LOCN,OBJCOR 7 1907 C 290 C09 154 983 9 65 BL PUADSW 5 1914 B K97 T 154 984 9 66 CLR CS PRINT&132 4 1919 / 332 154 985 9 67 CS 1 1923 / 154 986 9 68 BCE PRNTXT,TYPE,3 8 1924 B Z47 075 3 154 987 9 69 A &1,LINCT#2 7 1932 A D55 F13 154 &C290C09BK97T/332/BZ470753AD55F13 L032Z38,Z14Z19,Z23Z24,Z32040104001543773L 988 9 70 BCE OVRFLO,LINCT-1,5 8 1939 B Z51 F12 5 155 989 9 71 PRNTXT B XXXX 4 1947 B 000 155 990 9 72 OVRFLO B PRTHDG 4 1951 B !00 155 991 9 73 S LINCT 4 1955 S F13 155 992 9 74 B PRNTXT 4 1959 B Z47 155 993 9 75 GETOV1 RTW XTRATP,ISIOCS 8 1963 L %U6 794 R 155 994 9 76 NOP XXXX 4 1971 N 000 155 &BZ51F125B000B!00SF13BZ47L%U6794RN000 L036Z74,Z47Z51,Z55Z59,Z63Z71104001553773L 995 9 77 BER TPERR 5 1975 B 334 L 156 996 9 78 CW OV1GM 4 1980 ) U17 156 997 9 79 RWD XTRATP 5 1984 U %U6 R 156 998 9 80 B BYPASS 4 1989 B S85 156 999 9 81 DCW @ @ 1 1993 156 1000 9 82 ENDE1 DCW @}@ 1 1994 156 &B334L)U17U%U6RBS85 } L020Z94,Z80Z84,Z89Z93,Z94040104001563773L & N000000,040040,040040,040040B00001573773L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01583774L &,068072)063067/061039 ,001001104001593774L 1001 9 83 XFR LIBRN B 000 157 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1002 9 84 JOB 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 1003 9 85 ORG 2000 2000 1004 9 86 * 1005 9 87 * PRINT PAGE HEADING 1006 9 88 * 1007 9 89 PRTHDG SBR PHDGXT&3 4 2000 H J23 160 1008 9 90 MCW @PAGE@,PRINT&109 7 2004 M F17 309 160 1009 9 91 A &1,NUMBER 7 2011 A D55 C84 160 1010 9 92 MCS NUMBER,PRINT&114 7 2018 Z C84 314 160 1011 9 93 MCW JOB,OPRAND 7 2025 M C62 278 160 1012 9 94 MCW PUNCH&80,LOCN 7 2032 M 180 290 160 &HJ23MF17309AD55C84ZC84314MC62278M180290L039!38,!04!11,!18!25,!32040104001603774L 1013 9 95 BW WTHEAD,LSTOP 8 2039 V !52 C70 1 161 1014 9 96 CC 1 2 2047 F 1 161 1015 9 97 W 1 2049 2 161 1016 9 98 CC K 2 2050 F K 161 1017 9 99 WTHEAD MCW @1@,200 7 2052 M D29 200 161 1018 10 00 B WTAPE 4 2059 B J24 161 1019 10 01 CS PRINT&132 4 2063 / 332 161 &V!52C701F12FKMD29200BJ24/332 L028!66,!47!49,!50!52,!59!63104001613774L 1020 10 02 CS 1 2067 / 162 1021 10 03 MCW @SFX CT LOCN INSTRUCTION TYPE CARD@,PRINT&114 7 2068 M F53 314 162 1022 10 04 MCW @SEQ PG LIN LABEL OP OPERANDS@,PRINT&34 7 2075 M F86 234 162 1023 10 05 BW *&2,LSTOP 8 2082 V !91 C70 1 162 1024 10 06 W 1 2090 2 162 1025 10 07 MCW @0@,200 7 2091 M F87 200 162 1026 10 08 B WTAPE 4 2098 B J24 162 &/MF53314MF86234V!91C7012MF87200BJ24 L035J01,!68!75,!82!90,!91!98104001623774L 1027 10 09 CS PRINT&132 4 2102 / 332 163 1028 10 10 CS 1 2106 / 163 1029 10 11 BW *&2,LSTOP 8 2107 V J16 C70 1 163 1030 10 12 W 1 2115 2 163 1031 10 13 B WTAPE 4 2116 B J24 163 1032 10 14 PHDGXT B XXXX 4 2120 B 000 163 1033 10 15 WTAPE SBR WTXT&3 4 2124 H J56 163 &/332/VJ16C7012BJ24B000HJ56 L026J27,J06J07,J15J16,J20J24104001633774L 1034 10 16 BW WTXT,TAPOP 8 2128 V J53 C69 1 164 1035 10 17 WT 3,200 8 2136 M %U3 200 W 164 1036 10 18 NOP XXXX 4 2144 N 000 164 1037 10 19 BER TPERR 5 2148 B 334 L 164 1038 10 20 WTXT B XXXX 4 2153 B 000 164 1039 10 21 ADDERR MCW @ ADDR@,PRINT&132 7 2157 M F92 332 164 &VJ53C691M%U3200WN000B334LB000MF92332 L036J63,J36J44,J48J53,J57040104001643774L 1040 10 22 B BMPERR 4 2164 B L28 165 1041 10 23 B DOPNT 4 2168 B Y86 165 1042 10 24 * 1043 10 25 * COMMENTS CARD 1044 10 26 * 1045 10 27 SETCOM B SETFRE 4 2172 B T01 165 1046 10 28 MCW OPERND,PRINT&80 7 2176 M I02 280 165 1047 10 29 MCW 1 2183 M 165 1048 10 30 MCW 1 2184 M 165 1049 10 31 COMXT B PRNTLN 4 2185 B Y54 165 &BL28BY86BT01MI02280MMBY54 L025J88,J68J72,J76J83,J84J85104001653774L 1050 10 32 B READOG 4 2189 B B09 166 1051 10 33 B ANALOG 4 2193 B 655 166 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1052 10 34 COMERR MCW @MACRO ERROR@,PRINT&126 7 2197 M G03 326 166 1053 10 35 B BMPERR 4 2204 B L28 166 1054 10 36 B FREEXT 4 2208 B T86 166 1055 10 37 * 1056 10 38 * ORG, LTORG CARDS 1057 10 39 * 1058 10 40 ORG MCW SUPADD,LABADD 7 2212 M 066 061 166 1059 10 41 MCW ORGADD,SUPADD 7 2219 M 032 066 166 &BB09B655MG03326BL28BT86M066061M032066 L037K25,J93J97,K04K08,K12K19104001663774L 1060 10 42 BWZ BADORG,FIXFRM&1,2 8 2226 V K70 001 2 167 1061 10 43 ORGOUT MN SUPADD,PRINT&97 7 2234 D 066 297 167 1062 10 44 MCW 1 2241 M 167 1063 10 45 BCE ADDR4K,PRINT&93,0 8 2242 B Y39 293 0 167 1064 10 46 C PRINT&97,OBJCOR 7 2250 C 297 C09 167 1065 10 47 BL PUADSW 5 2257 B K97 T 167 &VK700012D066297MBY392930C297C09BK97T L036K61,K34K41,K42K50,K57040104001673774L 1066 10 48 ORGXT B SETLOC 4 2262 B U18 168 1067 10 49 B LITOUT 4 2266 B /64 168 1068 10 50 BADORG MCW @ UNDEF ORG@,PRINT&130 7 2270 M G13 330 168 1069 10 51 B BMPERR 4 2277 B L28 168 1070 10 52 B ORGOUT 4 2281 B K34 168 1071 10 53 * 1072 10 54 * DS, EQU CARDS 1073 10 55 * 1074 10 56 DS BCE SYMUND,AOP,# 8 2285 B L09 070 # 168 1075 10 57 B ORGXT 4 2293 B K62 168 1076 10 58 * 1077 10 59 * ERROR - ADDRESS EXCEEDS CORE 1078 10 60 * &BU18B/64MG13330BL28BK34BL09070#BK62 L035K96,K66K70,K77K81,K85K93104001683774L 1079 10 61 PUADSW SBR ADSWXT&3 4 2297 H L08 169 1080 10 62 CW ADDRSW 4 2301 ) D34 169 1081 10 63 ADSWXT B XXXX 4 2305 B 000 169 1082 10 64 * 1083 10 65 * ERROR - UNDEFINED SYMBOL 1084 10 66 * 1085 10 67 SYMUND SBR UNDXT&3 4 2309 H L27 169 1086 10 68 MCW @ SYM@,PRINT&127 7 2313 M G17 327 169 1087 10 69 B BMPERR 4 2320 B L28 169 1088 10 70 UNDXT B XXXX 4 2324 B 000 169 1089 10 71 * 1090 10 72 * BUMP NUMBER OF ERRORS 1091 10 73 * &HL08)D34B000HL27MG17327BL28B000 L031L27,L01L05,L09L13,L20L24104001693774L 1092 10 74 BMPERR SBR ERREXT&3 4 2328 H L42 170 1093 10 75 A &1,ERRCNT 7 2332 A D55 C66 170 1094 10 76 ERREXT B XXXX 4 2339 B 000 170 1095 10 77 * 1096 10 78 * SUFFIX CARD 1097 10 79 * 1098 10 80 SFX MCW IMAGE&21,SFXCTR#1 7 2343 M H51 G18 170 1099 10 81 B LITOUT 4 2350 B /64 170 1100 10 82 * 1101 10 83 * CONDENSE ROUTINE 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1102 10 84 * 1103 10 85 CONDNS SBR CONDXT&3 4 2354 H ?42 170 1104 10 86 CW BIGSW,DCSW 7 2358 ) H17 G48 170 &HL42AD55C66B000MH51G18B/64H?42)H17G48 L037L64,L32L39,L43L50,L54L58104001703774L 1105 10 87 BM CONDXT,STSTMT 8 2365 V ?39 005 K 171 1106 10 88 BW PNCHCD,WMSW 8 2373 V P62 D56 1 171 1107 10 89 * 1108 10 90 * PROCESS RECORD 1109 10 91 * 1110 10 92 NXTRCD BCE DOWM,TYPEA,0 8 2381 B N39 D59 0 171 1111 10 93 BCE ENDRTN,TYPEA,3 8 2389 B 08 D59 3 171 &V?39005KVP62D561BN39D590B 08D593 L032L96,L73L81,L89040,040040104001713774L 1112 10 94 BWZ TSTDC,TYPE,B 8 2397 V O17 075 B 172 1113 10 95 * 1114 10 96 * TEST ROOM ON CARD 1115 10 97 * 1116 10 98 TSTROM C COUNT,@39@ 7 2405 C 007 G20 172 1117 10 99 BL TSTCON 5 2412 B Q91 T 172 1118 11 00 MCW PNHLOC,ROOMCT#3 7 2417 M C81 G23 172 1119 11 01 A COUNT,ROOMCT 7 2424 A 007 G23 172 &VO17075BC007G20BQ91TMC81G23A007G23 L034M30,M05M12,M17M24,040040104001723774L 1120 11 02 C ROOMCT,@039@ 7 2431 C G23 G26 173 1121 11 03 BL SETPNH 5 2438 B O09 T 173 1122 11 04 BW RSTCTR,NEWSW#1 8 2443 V N98 G27 1 173 1123 11 05 * 1124 11 06 * TEST SEQUENCE 1125 11 07 * 1126 11 08 MCW COUNTR#5,SEQCT#5 7 2451 M G32 G37 173 1127 11 09 A COUNT,SEQCT 7 2458 A 007 G37 173 &CG23G26BO09TVN98G271MG32G37A007G37 L034M64,M38M43,M51M58,040040104001733774L 1128 11 10 C LOADAD,SEQCT 7 2465 C E83 G37 174 1129 11 11 BU SETPNH 5 2472 B O09 / 174 1130 11 12 A COUNT,COUNTR 7 2477 A 007 G32 174 1131 11 13 * 1132 11 14 * MOVE DATA TO PUNCH AREA 1133 11 15 * 1134 11 16 MVDATA SBR XR3,HOLDH 7 2484 H 099 D92 174 1135 11 17 A COUNT,XR3 7 2491 A 007 099 174 &CE83G37BO09/A007G32H099D92A007099 L033M97,M72M77,M84M91,040040104001743774L 1136 11 18 A COUNT,PNHLOC 7 2498 A 007 C81 175 1137 11 19 MCW PNHLOC,XR2 7 2505 M C81 094 175 1138 11 20 MCW XXXX&X3,PUNCH&X2 7 2512 M 0?0 1!0 175 1139 11 21 CW DATASW#1 4 2519 ) G38 175 1140 11 22 BW FIRST,NEWSW 8 2523 V O53 G27 1 175 &A007C81MC81094M0?01!0)G38VO53G271 L033N30,N05N12,N19N23,040040104001753774L 1141 11 23 BWZ CNDOUT,TYPE,B 8 2531 V ?07 075 B 176 1142 11 24 * 1143 11 25 * SET WORD MARK ADDRESS 1144 11 26 * 1145 11 27 DOWM MCW WMADDR,CNVADD#5 7 2539 M E78 G43 176 1146 11 28 B CNVRT 4 2546 B P16 176 1147 11 29 A &3,WMLOC 7 2550 A G44 C75 176 1148 11 30 MCW WMLOC,XR1 7 2557 M C75 089 176 &V?07075BME78G43BP16AG44C75MC75089 L033N63,N39N46,N50N57,040040104001763774L 1149 11 31 MCW CNVADD,WMADDR-2 7 2564 M G43 E76 177 1150 11 32 MCW WMADDR-2,XXXX&X1 7 2571 M E76 0 0 177 1151 11 33 C XR1,&WMSTR-3 7 2578 C 089 G47 177 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1152 11 34 BU CNDOUT 5 2585 B ?07 / 177 1153 11 35 SW WMSW 4 2590 , D56 177 1154 11 36 B CNDOUT 4 2594 B ?07 177 &MG43E76ME760 0C089G47B?07/,D56B?07 L034N97,N71N78,N85N90,N94040104001773774L 1155 11 37 RSTCTR MCW LOADAD,COUNTR 7 2598 M E83 G32 178 1156 11 38 B MVDATA 4 2605 B M84 178 1157 11 39 SETPNH B PNCHCD 4 2609 B P62 178 1158 11 40 B NXTRCD 4 2613 B L81 178 1159 11 41 TSTDC BW COMPWM,NEWSW 8 2617 V O29 G27 1 178 1160 11 42 B TSTROM 4 2625 B M05 178 1161 11 43 COMPWM C WMLOC,AWMSTR 7 2629 C C75 C78 178 &ME83G32BM84BP62BL81VO29G271BM05CC75C78 L038O35,O05O09,O13O17,O25O29104001783774L 1162 11 44 BE TSTROM 5 2636 B M05 S 179 1163 11 45 SW DCSW#1 4 2641 , G48 179 1164 11 46 B PNCHCD 4 2645 B P62 179 1165 11 47 B TSTROM 4 2649 B M05 179 1166 11 48 * 1167 11 49 * FIRST DATA ON CARD 1168 11 50 * 1169 11 51 FIRST CW NEWSW 4 2653 ) G27 179 1170 11 52 BWZ PRODC,TYPE,B 8 2657 V O69 075 B 179 1171 11 53 B CNDOUT 4 2665 B ?07 179 1172 11 54 * 1173 11 55 * CONDENSE DC CARDS 1174 11 56 * &BM05S,G48BP62BM05)G27VO69075BB?07 L033O68,O41O45,O49O53,O57O65104001793774L 1175 11 57 PRODC MCW @)@,PUNCH&47 7 2669 M G49 147 180 1176 11 58 MCW WMADDR,CNVADD 7 2676 M E78 G43 180 1177 11 59 B CNVRT 4 2683 B P16 180 1178 11 60 MCW CNVADD,WMADDR-2 7 2687 M G43 E76 180 1179 11 61 MCW WMADDR-2,WMSTR-15 7 2694 M E76 C96 180 1180 11 62 MCW WMADDR-2 4 2701 M E76 180 &MG49147ME78G43BP16MG43E76ME76C96ME76 L036P04,O76O83,O87O94,P01040104001803774L 1181 11 63 A &6,WMLOC 7 2705 A G50 C75 181 1182 11 64 B CNDOUT 4 2712 B ?07 181 1183 11 65 * 1184 11 66 * CONVERT 5 TO 3 DIGIT ADDRESS 1185 11 67 * 1186 11 68 CNVRT SBR CNVXT&3 4 2716 H P61 181 1187 11 69 BAV *&1 5 2720 B P25 Z 181 1188 11 70 ADDAGN A &96,CNVADD-3 7 2725 A G52 G40 181 1189 11 71 BAV ADDAGN 5 2732 B P25 Z 181 1190 11 72 MZ CNVADD-4,CNVADD 7 2737 Y G39 G43 181 &AG50C75B?07HP61BP25ZAG52G40BP25ZYG39G43L039P43,P12P16,P20P25,P32P37104001813774L 1191 11 73 MN CNVADD-3,*&4 7 2744 D G40 P54 182 1192 11 74 MZ ZONE,CNVADD-2 7 2751 Y 189 G41 182 1193 11 75 CNVXT B XXXX 4 2758 B 000 182 1194 11 76 * 1195 11 77 * PUNCH A CARD 1196 11 78 * 1197 11 79 PNCHCD SBR PNHXT&3 4 2762 H Q90 182 1198 11 80 BW EDIT,DCSW 8 2766 V Q07 G48 1 182 1199 11 81 BW EDIT,DATASW 8 2774 V Q07 G38 1 182 &DG40P54Y189G41B000HQ90VQ07G481VQ07G381 L038P81,P51P58,P62P66,P74040104001823774L 1200 11 82 MCW COUNTR,CNVADD 7 2782 M G32 G43 183 1201 11 83 B CNVRT 4 2789 B P16 183 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1202 11 84 MCW CNVADD,WMSTR-21 7 2793 M G43 C90 183 1203 11 85 MCW PNHLOC,WMSTR-24 7 2800 M C81 C87 183 1204 11 86 EDIT MCE WMSTR,PUNCH&71 7 2807 E D11 171 183 1205 11 87 MN @0@,PUNCH&41 7 2814 D F87 141 183 &MG32G43BP16MG43C90MC81C87ED11171DF87141L039Q20,P89P93,Q00Q07,Q14040104001833774L 1206 11 88 TSTPCH BCE *&2,CONDSW,0 8 2821 B Q30 C10 0 184 1207 11 89 P 1 2829 4 184 1208 11 90 B WTAP2 4 2830 B ?43 184 1209 11 91 * 1210 11 92 * RESET COUNTERS & SWITCHES 1211 11 93 * 1212 11 94 NEWCRD A &1,PUNCH&75 7 2834 A D55 175 184 1213 11 95 CS PUNCH&71 4 2841 / 171 184 1214 11 96 LCA @L0 , , , 1 @,PUNCH&71 7 2845 L G84 171 184 1215 11 97 SW NEWSW,DATASW 7 2852 , G27 G38 184 &BQ30C1004B?43AD55175/171LG84171,G27G38 L038Q58,Q29Q30,Q34Q41,Q45Q52104001843774L 1216 11 98 CW WMSW,DCSW 7 2859 ) D56 G48 185 1217 11 99 MCW @000@,PNHLOC 7 2866 M G87 C81 185 1218 12 00 MCW AWMSTR,WMLOC 7 2873 M C78 C75 185 1219 12 01 MCW @001001040040040040040040040@,WMSTR 7 2880 M H14 D11 185 1220 12 02 PNHXT B XXXX 4 2887 B 000 185 1221 12 03 * 1222 12 04 * CONSTANT GREATER THAN 39 CHARACTERS 1223 12 05 * &)D56G48MG87C81MC78C75MH14D11B000 L032Q90,Q66Q73,Q80Q87,040040104001853774L 1224 12 06 TSTCON BW *&5,NEWSW 8 2891 V R03 G27 1 186 1225 12 07 B PNCHCD 4 2899 B P62 186 1226 12 08 MCW COUNT,HOLDCT#2 7 2903 M 007 H16 186 1227 12 09 MCW LOADAD,COUNTR 7 2910 M E83 G32 186 1228 12 10 MCW @39@,COUNT 7 2917 M G20 007 186 &VR03G271BP62M007H16ME83G32MG20007 L033R23,Q99R03,R10R17,040040104001863774L 1229 12 11 S @39@,HOLDCT 7 2924 S G20 H16 187 1230 12 12 S HOLDCT,COUNTR 7 2931 S H16 G32 187 1231 12 13 MZ ZONE-3,HOLDCT 7 2938 Y 186 H16 187 1232 12 14 SW BIGSW#1 4 2945 , H17 187 1233 12 15 MCW WMADDR,SAVEWM#5 7 2949 M E78 H22 187 1234 12 16 B MVDATA 4 2956 B M84 187 &SG20H16SH16G32Y186H16,H17ME78H22BM84 L036R59,R31R38,R45R49,R56040104001873774L 1235 12 17 BIGRN B PNCHCD 4 2960 B P62 188 1236 12 18 CW BIGSW 4 2964 ) H17 188 1237 12 19 MCW HOLDCT,COUNT 7 2968 M H16 007 188 1238 12 20 MCW @A@,TYPE 7 2975 M H23 075 188 1239 12 21 MCW HOLDDT,HOLDDT-39 7 2982 M E44 E05 188 1240 12 22 MCW SAVEWM,WMADDR 7 2989 M H22 E78 188 &BP62)H17MH16007MH23075ME44E05MH22E78 L036R95,R64R68,R75R82,R89040104001883774L 1241 12 23 A @39@,WMADDR 7 2996 A G20 E78 189 1242 12 24 B RSTCTR 4 3003 B N98 189 1243 12 25 * 1244 12 26 * EXIT FROM CONDENSE ROUTINE 1245 12 27 * 1246 12 28 CNDOUT MCS PUNCH&75,CARDNO 7 3007 Z 175 314 189 1247 12 29 S XR3&1 4 3014 S 100 189 1248 12 30 S 1 3018 S 189 1249 12 31 S 1 3019 S 189 1250 12 32 BW BIGRN,BIGSW 8 3020 V R60 H17 1 189 &AG20E78BN98Z175314S100SSVR60H171 L032?27,?03?07,?14?18,?19?20104001893774L 1251 12 33 MCW BLANK1,HOLDDT 7 3028 M D30 E44 190 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1252 12 34 MCW HOLDDT 4 3035 M E44 190 1253 12 35 CONDXT B XXXX 4 3039 B 000 190 1254 12 36 WTAP2 SBR WT2XT&3 4 3043 H ?82 190 1255 12 37 BW WT2XT,TAPOP 8 3047 V ?79 C69 1 190 1256 12 38 MCW @&@,100 7 3055 M H24 100 190 &MD30E44ME44B000H?82V?79C691MH24100 L034?61,?35?39,?43?47,?55040104001903774L 1257 12 39 WT 3,100 8 3062 M %U3 100 W 191 1258 12 40 NOP XXXX 4 3070 N 000 191 1259 12 41 BER TPERR 5 3074 B 334 L 191 1260 12 42 WT2XT B XXXX 4 3079 B 000 191 1261 12 43 * 1262 12 44 * SEQUENCE ERROR ON INPUT RECORDS 1263 12 45 * 1264 12 46 SEQERR H XXXX,777 7 3083 . 000 777 191 1265 12 47 B SEQERR 4 3090 B ?83 191 &M%U3100WN000B334LB000.000777B?83 L032?93,?70?74,?79?83,?90040104001913774L 1266 12 48 GETOV2 RTW SYSTAP,ISIOCS 8 3094 L %U1 794 R 192 1267 12 49 NOP XXXX 4 3102 N 000 192 1268 12 50 BER TPERR 5 3106 B 334 L 192 1269 12 51 CW OV2GM 4 3111 ) T32 192 1270 12 52 BSP SYSTAP 5 3115 U %U1 B 192 1271 12 53 B EXEND 4 3120 B 794 192 1272 12 54 * 1273 12 55 * GET RECORD FROM WORKING TAPE 1274 12 56 * 1275 12 57 GET SBR WORKXT&3 4 3124 H B08 192 &L%U1794RN000B334L)T32U%U1BB794HB08 L034A27,A02A06,A11A15,A20A24104001923774L 1276 12 58 C BLKCT,KBLKNG 7 3128 C C00 C04 193 1277 12 59 BU NXTREC 5 3135 B A68 / 193 1278 12 60 S HOLDA 4 3140 S C01 193 1279 12 61 SBR LGTCK&6,INPUT5&13 7 3144 H B80 I31 193 1280 12 62 RT WORKTP,INPUT5 8 3151 M %U5 I18 R 193 1281 12 63 B CHKLGT 4 3159 B B59 193 &CC00C04BA68/SC01HB80I31M%U5I18RBB59 L035A62,A35A40,A44A51,A59040104001933774L 1282 12 64 BER TPERR 5 3163 B 334 L 194 1283 12 65 NXTREC A &80,BLKCT 7 3168 A H26 C00 194 1284 12 66 MCW BLKCT,XR3 7 3175 M C00 099 194 1285 12 67 MCW FIXINP,FIXFRM&80 7 3182 M IA7 080 194 1286 12 68 CHAIN 10 MACRO 1287 MCW 1 3189 M GEN 194 1288 MCW 1 3190 M GEN 194 1289 MCW 1 3191 M GEN 194 &B334LAH26C00MC00099MIA7080MMM L029A91,A68A75,A82A89,A90A91104001943774L 1290 MCW 1 3192 M GEN 195 1291 MCW 1 3193 M GEN 195 1292 MCW 1 3194 M GEN 195 1293 MCW 1 3195 M GEN 195 1294 MCW 1 3196 M GEN 195 1295 MCW 1 3197 M GEN 195 1296 MCW 1 3198 M GEN 195 &MMMMMMM L007A98,A93A94,A95A96,A97A98104001953774L 1297 12 69 S XR3&1 4 3199 S 100 196 1298 12 70 S 1 3203 S 196 1299 12 71 S 1 3204 S 196 1300 12 72 WORKXT B XXXX 4 3205 B 000 196 1301 12 73 * 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1302 12 74 * READ ORIGINAL TAPE 1303 12 75 * 1304 12 76 READOG SBR ORIGXT&3 4 3209 H B58 196 1305 12 77 MCW BLANK1,IMAGE&21 7 3213 M D30 H51 196 1306 12 78 S IMAGE&20 4 3220 S H50 196 &S100SSB000HB58MD30H51SH50 L025B23,B03B04,B05B09,B13B20104001963774L 1307 12 79 S 1 3224 S 197 1308 12 80 S 1 3225 S 197 1309 12 81 S 1 3226 S 197 1310 12 82 SBR LGTCK&6,INPUT4&12 7 3227 H B80 H43 197 1311 12 83 RT ORIGTP,INPUT4 8 3234 M %U4 H31 R 197 1312 12 84 B CHKLGT 4 3242 B B59 197 1313 12 85 BER TPERR 5 3246 B 334 L 197 &SSSHB80H43M%U4H31RBB59B334L L027B50,B25B26,B27B34,B42B46104001973774L 1314 12 86 S XR2&1 4 3251 S 095 198 1315 12 87 ORIGXT B XXXX 4 3255 B 000 198 1316 12 88 * 1317 12 89 * CHECK FOR SHORT RECORDS 1318 12 90 * 1319 12 91 CHKLGT SBR XR2 4 3259 H 094 198 1320 12 92 SBR LGTXT&3 4 3263 H B97 198 1321 12 93 MZ @B@,XR2 7 3267 Y D12 094 198 1322 12 94 LGTCK BCE 4000-12&X2,XXXX,} 8 3274 B IQ8 000 } 198 1323 12 95 CHAIN 12 MACRO 1324 BCE 1 3282 B GEN 198 &S095B000H094HB97YD12094BIQ8000}B L032B82,B55B59,B63B67,B74B82104001983774L 1325 BCE 1 3283 B GEN 199 1326 BCE 1 3284 B GEN 199 1327 BCE 1 3285 B GEN 199 1328 BCE 1 3286 B GEN 199 1329 BCE 1 3287 B GEN 199 1330 BCE 1 3288 B GEN 199 1331 BCE 1 3289 B GEN 199 &BBBBBBB L007B89,B84B85,B86B87,B88B89104001993774L 1332 BCE 1 3290 B GEN 200 1333 BCE 1 3291 B GEN 200 1334 BCE 1 3292 B GEN 200 1335 BCE 1 3293 B GEN 200 1336 12 96 LGTXT B XXXX 4 3294 B 000 200 1337 12 97 HOLDA DCW &0000 4 3301 200 1338 12 98 BLKCT EQU HOLDA-1 3300 1339 12 99 KBLKNG DCW @080@ 3 3304 200 &BBBBB000000?080 L015C04,B91B92,B93B94,B98C02104002003774L 1340 13 00 OBJCOR DCW @ 3999@ 5 3309 201 1341 13 01 CONDSW DCW @0@ 1 3310 201 & 39990 L006C10,C10040,040040,040040104002013774L & L039C49,040040,040040,040040104002023774L 1342 13 02 JOB DCW #52 52 3362 203 1343 13 03 ERRCNT DCW @0000@ 4 3366 203 1344 13 04 DCW @ @ 1 3367 203 1345 13 05 SSAVE DCW @ @ 1 3368 203 1346 13 06 TAPOP DCW @ @ 1 3369 203 & 0000 L020C69)C50C50,C63C67,C68C69104002033774L 1347 13 07 LSTOP DCW @ @ 1 3370 204 1348 13 08 NOOUT DCW @ @ 1 3371 204 1349 13 09 SAVCON EQU HOLDA-3 3298 1350 13 10 GMSAVE DC @}@ 1 3372 204 1351 13 11 WMLOC DSA WMSTR-21 3 3375 C90 204 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1352 13 12 AWMSTR DSA WMSTR-21 3 3378 C90 204 1353 13 13 PNHLOC DCW @000@ 3 3381 204 1354 13 14 NUMBER DCW @001@ 3 3384 204 & }C90C90000001 L015C84,C71C73,C76C79,C82040104002043774L 1355 13 15 WMSTR DCW @001001040040040040040040040@ 27 3411 205 1356 13 16 LTORG * 3412 DCW @B@ 1 3412 LIT 205 531 @/ 080@ 9 3421 LIT 205 &001001040040040040040040040B/ 080 L037D21,D12D13,040040,040040104002053774L 532 @/ 080@ 7 3428 LIT 206 @1@ 1 3429 LIT 206 543 BLANK4 #04 4 3433 AREA 206 545 ADDRSW #01 1 3434 AREA 206 553 @ERRORS@ 6 3440 LIT 206 @ 1@ 4 3444 LIT 206 577 @N000000@ 7 3451 LIT 206 &/ 0801 ERRORS 1N000000 L030D51,D29D30,D34D35,D41D45104002063774L @JOB@ 3 3454 LIT 207 &1 1 3455 LIT 207 630 WMSW #01 1 3456 AREA 207 &5 1 3457 LIT 207 711 TYPESW #01 1 3458 AREA 207 712 TYPEA #01 1 3459 AREA 207 @IOCS@ 4 3463 LIT 207 &JOBA E IOCS L012D63,D55D56,D57D58,D59D60104002073774L 749 @MACRO@ 5 3468 LIT 208 753 @OVERCALL@ 8 3476 LIT 208 791 @ADCON@ 5 3481 LIT 208 805 @RMARK@ 5 3486 LIT 208 @G@ 1 3487 LIT 208 @LIT@ 3 3490 LIT 208 @00@ 2 3492 LIT 208 &MACROOVERCALLADCONRMARKGLIT00 L029D92,D69D77,D82D87,D88D91104002083774L & L039E31,040040,040040,040040104002093774L 830 HOLDDT #52 52 3544 AREA 210 @#@ 1 3545 LIT 210 @AREA@ 4 3549 LIT 210 @IO@ 2 3551 LIT 210 @GEN@ 3 3554 LIT 210 & #AREAIOGEN L023E54)E32E32,E45E46,E50E52104002103774L @X@ 1 3555 LIT 211 901 @LABEL@ 5 3560 LIT 211 904 @BAD STATEMENT@ 13 3573 LIT 211 918 WMADDR #05 5 3578 AREA 211 919 LOADAD #05 5 3583 AREA 211 @ OP@ 3 3586 LIT 211 934 @FIELD@ 5 3591 LIT 211 &XLABELBAD STATEMENT OPFIELD L037E91,E56E61,E74E79,E84E87104002113774L @SBF@ 3 3594 LIT 212 @DA @ 3 3597 LIT 212 964 @ NO B X L@ 9 3606 LIT 212 976 @ 0081@ 5 3611 LIT 212 987 LINCT #02 2 3613 AREA 212 @PAGE@ 4 3617 LIT 212 &SBFDA NO B X L 0081 PAGE L026F17,E95E98,F07F12,F14040104002123774L 1021 @SFX CT LOCN INSTRUCTION TYPE CARD@ 36 3653 LIT 213 &SFX CT LOCN INSTRUCTION TYPE CARD L036F53,040040,040040,040040104002133774L 1022 @SEQ PG LIN LABEL OP OPERANDS@ 33 3686 LIT 214 @0@ 1 3687 LIT 214 1039 @ ADDR@ 5 3692 LIT 214 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &SEQ PG LIN LABEL OP OPERANDS0 ADDRL039F92,F87F88,040040,040040104002143774L 1052 @MACRO ERROR@ 11 3703 LIT 215 1068 @ UNDEF ORG@ 10 3713 LIT 215 @ SYM@ 4 3717 LIT 215 1098 SFXCTR #01 1 3718 AREA 215 @39@ 2 3720 LIT 215 1118 ROOMCT #03 3 3723 AREA 215 @039@ 3 3726 LIT 215 &MACRO ERROR UNDEF ORG SYM 39 039 L034G26,G04G14,G18G19,G21G24104002153774L 1122 NEWSW #01 1 3727 AREA 216 1126 COUNTR #05 5 3732 AREA 216 1126 SEQCT #05 5 3737 AREA 216 1139 DATASW #01 1 3738 AREA 216 1145 CNVADD #05 5 3743 AREA 216 &3 1 3744 LIT 216 1151 &WMSTR-3 3 3747 D08 ADCON 216 & CD08 L021G47,G28G33,G38G39,G44G45104002163774L 1163 DCSW #01 1 3748 AREA 217 @)@ 1 3749 LIT 217 &6 1 3750 LIT 217 &96 2 3752 LIT 217 1214 @L0 , , , 1 @ 32 3784 LIT 217 & )F9FL0 , , , 1 L037G84,G49G50,G51G53,040040104002173774L @000@ 3 3787 LIT 218 1219 @001001040040040040040040040@ 27 3814 LIT 218 1226 HOLDCT #02 2 3816 AREA 218 1232 BIGSW #01 1 3817 AREA 218 1233 SAVEWM #05 5 3822 AREA 218 @A@ 1 3823 LIT 218 &000001001040040040040040040040 AL039H23,G88H15,H17H18,H23040104002183774L @&@ 1 3824 LIT 219 &80 2 3826 LIT 219 1357 13 17 ENDE2 DCW @}@ 1 3827 219 1358 13 18 BLANK1 EQU BLANK4-3 3430 1359 13 19 HOLDH EQU HOLDDT-52 3492 &&8?} L004H27,H25H27,040040,040040104002193774L & N000000,040040,040040,040040B00002203774L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02213774L &,068072)063067/061039 ,001001104002223774L 1360 13 20 EX LIBRN B 000 220 & /000080 02233774L 1361 13 21 END LIBRN / 000 080 223 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00013782L CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 00023782L BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000033782L 0 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 102 1 02 CTL 630 1 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 INTAPE EQU %U5 %U5 108 1 08 OUTAPE EQU %U6 %U6 109 1 09 PUNCH EQU 100 0100 110 1 10 OUTPUT EQU PUNCH&1 0101 111 1 11 IMAGE EQU 0 0000 112 1 12 XXXX EQU 0 0000 113 1 13 COUNT EQU IMAGE&7 0007 114 1 14 LABADD EQU IMAGE&61 0061 115 1 15 SUPADD EQU IMAGE&66 0066 116 1 16 AOP EQU IMAGE&70 0070 117 1 17 BOP EQU IMAGE&73 0073 118 1 18 DMOD EQU IMAGE&74 0074 119 1 19 TYPE EQU IMAGE&75 0075 120 1 20 PRINT EQU 200 0200 121 1 21 LIBRN EQU 0 0000 122 1 22 ORG 87 0087 123 1 23 XR1 DCW 000 3 0089 4 124 1 24 DC 00 2 0091 4 125 1 25 XR2 DCW 000 3 0094 4 126 1 26 DC 00 2 0096 4 127 1 27 XR3 DCW 000 3 0099 4 128 1 28 DC 00 2 0101 4 129 1 29 * 130 1 30 * INITIALIZATION ROUTINE 131 1 31 * 132 1 32 ORG 336 0336 &000000000000000 L015101,092097,040040,040040104000043782L 133 1 33 ZONE DCW @2SKB@ 4 0339 5 134 1 34 INITLZ RWD OUTAPE 5 0340 U %U6 R 5 135 1 35 C OUTOPN,@2@ 7 0345 C !00 P07 5 136 1 36 BH ENDJOB 5 0352 B !55 U 5 137 1 37 C OUTOPN,@7@ 7 0357 C !00 P08 5 138 1 38 BL ENDJOB 5 0364 B !55 T 5 139 1 39 RWD 4 5 0369 U %U4 R 5 &2SKBU%U6RC!00P07B!55UC!00P08B!55TU%U4R L038373,340345,352357,364369104000053782L 140 1 40 RWD INTAPE 5 0374 U %U5 R 6 141 1 41 CW LTAPSW,PNH4SW 7 0379 ) P25 P26 6 142 1 42 MCW SSOP,TSTSS 7 0386 M !01 475 6 143 1 43 * 144 1 44 * TEST FOR CTL CARD 145 1 45 * 146 1 46 READ4 MCW @013@,LGTCK&6 7 0393 M P11 O58 6 147 1 47 RT 4,1 8 0400 M %U4 001 R 6 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 B CHKLGT 4 0408 B O37 6 &U%U5R)P25P26M!01475MP11O58M%U4001RBO37 L038411,379386,393400,408040104000063782L 149 1 49 BER TPERR 5 0412 B M33 L 7 150 1 50 C 18,@JOB@ 7 0417 C 018 P14 7 151 1 51 BU CKCTL 5 0424 B 444 / 7 152 1 52 MCW 79,IDENT#4 7 0429 M 079 P18 7 153 1 53 CW JOBSW#1 4 0436 ) P19 7 154 1 54 B READ4 4 0440 B 393 7 155 1 55 CKCTL C 18,@CTL@ 7 0444 C 018 P22 7 &BM33LC018P14B444/M079P18)P19B393C018P22L039450,417424,429436,440444104000073782L 156 1 56 MCW OUTOPN,23 7 0451 M !00 023 8 157 1 57 RWD 4 5 0458 U %U4 R 8 158 1 58 BE TSTSS 5 0463 B 475 S 8 159 1 59 LCA @33@,22 7 0468 L P24 022 8 160 1 60 TSTSS BSS SENSW,F 5 0475 B 528 F 8 161 1 61 TSTOP BCE LTAPOP,23,2 8 0480 B 591 023 2 8 &M!00023U%U4RB475SLP24022B528FB5910232 L037487,458463,468475,480040104000083782L 162 1 62 BCE LTAPOP,23,3 8 0488 B 591 023 3 9 163 1 63 BCE LTAPOP,23,6 8 0496 B 591 023 6 9 164 1 64 BCE LTAPOP,23,7 8 0504 B 591 023 7 9 165 1 65 SW LTAPSW#1 4 0512 , P25 9 166 1 66 B START 4 0516 B 17 9 167 1 67 * 168 1 68 * OPTION TO PUNCH NEW SOURCE DECK 169 1 69 * 170 1 70 PNH4OP SW PNH4SW#1 4 0520 , P26 9 &B5910233B5910236B5910237,P25B 17,P26 L036523,496504,512516,520040104000093782L 171 1 71 B TSTLSW 4 0524 B 49 10 172 1 72 * 173 1 73 * TEST SENSE SWITCHES FOR OPTION 174 1 74 * 175 1 75 SENSW LCA @0@,23 7 0528 L P27 023 10 176 1 76 BSS ADD1,B 5 0535 B 558 B 10 177 1 77 TSTSSC BSS ADD2,C 5 0540 B 569 C 10 178 1 78 TSTSSG BSS ADD4,G 5 0545 B 580 G 10 179 1 79 SSOUT CW 23 4 0550 ) 023 10 180 1 80 B TSTOP 4 0554 B 480 10 &B 49LP27023B558BB569CB580G)023B480 L034557,528535,540545,550554104000103782L 181 1 81 ADD1 A @1@,23 7 0558 A P28 023 11 182 1 82 B TSTSSC 4 0565 B 540 11 183 1 83 ADD2 A @2@,23 7 0569 A P07 023 11 184 1 84 B TSTSSG 4 0576 B 545 11 185 1 85 ADD4 A @4@,23 7 0580 A P29 023 11 186 1 86 B SSOUT 4 0587 B 550 11 187 1 87 * 188 1 88 * SET UP CLEAR STORAGE RECORD 189 1 89 * 190 1 90 LTAPOP CS PUNCH&80 4 0591 / 180 11 &AP28023B540AP07023B545AP29023B550/180 L037594,565569,576580,587591104000113782L 191 1 91 SW GRPMRK 4 0595 , P06 12 192 1 92 LCA GRPMRK,PUNCH&99 7 0599 L P06 199 12 193 1 93 LCA IDENT,PUNCH&79 7 0606 L P18 179 12 194 1 94 LCA @ @ 4 0613 L P31 12 195 1 95 LCA @B007@ 4 0617 L P35 12 196 1 96 LCA @)021@ 4 0621 L P39 12 197 1 97 LCA @B047L@ 4 0625 L P44 12 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &,P06LP06199LP18179LP31LP35LP39LP44 L034628,599606,613617,621625104000123782L 198 1 98 LCA @L%U1001R@ 4 0629 L P52 13 199 1 99 LCA @.@ 4 0633 L P53 13 200 2 00 LCA BSPTU1 4 0637 L O93 13 201 2 01 * 202 2 02 * TEST OBJECT CORE SIZE 203 2 03 * 204 2 04 C 22,@3@ 7 0641 C 022 P54 13 205 2 05 BE IS4K 5 0648 B 747 S 13 206 2 06 BH IS4K 5 0653 B 747 U 13 207 2 07 C 22,@6@ 7 0658 C 022 P55 13 &LP52LP53LO93C022P54B747SB747UC022P55 L036664,633637,641648,653658104000133782L 208 2 08 BL IS4K 5 0665 B 747 T 14 209 2 09 LCA @I0?@,PUNCH&44 7 0670 L P58 144 14 210 2 10 LCA @099@ 4 0677 L P61 14 211 2 11 LCA @B053@ 4 0681 L P65 14 212 2 12 LCA @M074099@ 4 0685 L P72 14 213 2 13 LCA @)099@ 4 0689 L P76 14 214 2 14 LCA @B001/@ 4 0693 L P81 14 &B747TLP58144LP61LP65LP72LP76LP81 L032696,670677,681685,689693104000143782L 215 2 15 LCA @C004041@ 4 0697 L P88 15 216 2 16 LCA @#044004@ 4 0701 L P95 15 217 2 17 LCA @/I9I@ 4 0705 L P99 15 218 2 18 BCE BTSTRP,22,6 8 0709 B 842 022 6 15 219 2 19 BCE IS12K,22,5 8 0717 B 736 022 5 15 220 2 20 MZ ZONE-2,PUNCH&4 7 0725 Y 337 104 15 221 2 21 B BTSTRP 4 0732 B 842 15 &LP88LP95LP99B8420226B7360225Y337104B842L039735,701705,709717,725732104000153782L 222 2 22 IS12K MZ ZONE-1,PUNCH&4 7 0736 Y 338 104 16 223 2 23 B BTSTRP 4 0743 B 842 16 224 2 24 IS4K LCA @I0@,PUNCH&75 7 0747 L Q01 175 16 225 2 25 LCA @B053@,PUNCH&46 7 0754 L P65 146 16 226 2 26 LCA @M080099@ 4 0761 L Q08 16 227 2 27 LCA @)099@ 4 0765 L P76 16 228 2 28 LCA @B001@ 4 0769 L Q12 16 &Y338104B842LQ01175LP65146LQ08LP76LQ12 L037772,743747,754761,765769104000163782L 229 2 29 LCA @B0320020@ 4 0773 L Q20 17 230 2 30 LCA @)002@ 4 0777 L Q24 17 231 2 31 LCA @A075003@ 4 0781 L Q31 17 232 2 32 LCA @,002@ 4 0785 L Q35 17 233 2 33 LCA @/I99@ 4 0789 L Q39 17 234 2 34 SW PUNCH&80 4 0793 , 180 17 235 2 35 BCE BTSTRP,22,3 8 0797 B 842 022 3 17 &LQ20LQ24LQ31LQ35LQ39,180B8420223 L032804,777781,785789,793797104000173782L 236 2 36 MCW @Z@,PUNCH&2 7 0805 M Q40 102 18 237 2 37 BCE BTSTRP,22,2 8 0812 B 842 022 2 18 238 2 38 MCW @T@,PUNCH&2 7 0820 M Q41 102 18 239 2 39 BCE BTSTRP,22,1 8 0827 B 842 022 1 18 240 2 40 MCW @I@,PUNCH&2 7 0835 M Q42 102 18 241 2 41 * 242 2 42 * SET UP BOOTSTRAP RECORD 243 2 43 * &MQ40102B8420222MQ41102B8420221MQ42102 L037841,812820,827835,040040104000183782L 244 2 44 BTSTRP B WRITE1 4 0842 B !30 19 245 2 45 CW PUNCH&99 4 0846 ) 199 19 246 2 46 LCA GRPMRK,PUNCH&80 7 0850 L P06 180 19 247 2 47 LCA @ @,PUNCH&24 7 0857 L Q43 124 19 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 48 LCA @.020@ 4 0864 L Q47 19 249 2 49 LCA BER1 4 0868 L O80 19 250 2 50 LCA RDREC 4 0872 L O88 19 &B!30)199LP06180LQ43124LQ47LO80LO88 L034875,846850,857864,868872104000193782L 251 2 51 LCA @.@ 4 0876 L P53 20 252 2 52 LCA BSPTU1 4 0880 L O93 20 253 2 53 B WRITE1 4 0884 B !30 20 254 2 54 CS PUNCH&75 4 0888 / 175 20 255 2 55 LCA @ @,PUNCH&35 7 0892 L Q43 135 20 256 2 56 LCA @B007@ 4 0899 L P35 20 257 2 57 LCA @N000@ 4 0903 L Q51 20 &LP53LO93B!30/175LQ43135LP35LQ51 L031906,880884,888892,899903104000203782L 258 2 58 LCA @L @ 4 0907 L Q58 21 259 2 59 LCA BER1 4 0911 L O80 21 260 2 60 LCA RDREC 4 0915 L O88 21 261 2 61 LCA @.@ 4 0919 L P53 21 262 2 62 LCA BSPTU1 4 0923 L O93 21 263 2 63 * 264 2 64 * TEST PROCESSOR CORE SIZE 265 2 65 * 266 2 66 C 21,@3@ 7 0927 C 021 P54 21 267 2 67 BE START 5 0934 B 17 S 21 &LQ58LO80LO88LP53LO93C021P54B 17S L032938,911915,919923,927934104000213782L 268 2 68 BH START 5 0939 B 17 U 22 269 2 69 C 21,@6@ 7 0944 C 021 P55 22 270 2 70 BL START 5 0951 B 17 T 22 271 2 71 MN 21,SAVEZN#1 7 0956 D 021 Q59 22 272 2 72 A &3,SAVEZN 7 0963 A Q60 Q59 22 273 2 73 MN SAVEZN,*&4 7 0970 D Q59 980 22 &B 17UC021P55B 17TD021Q59AQ60Q59DQ59980 L038976,944951,956963,970040104000223782L 274 2 74 MZ ZONE,*&7 7 0977 Y 339 990 23 275 2 75 LCA GRPMRK,GRPMRK 7 0984 L P06 P06 23 276 2 76 CW GRPMRK 4 0991 ) P06 23 277 2 77 MCW @400@,KBLKNG 7 0995 M Q63 P01 23 278 2 78 BCE START,21,4 8 1002 B 17 021 4 23 &Y339990LP06P06)P06MQ63P01B 170214 L033 09,984991,995 02,040040104000233782L 279 2 79 A @400@,KBLKNG 7 1010 A Q63 P01 24 280 2 80 * 281 2 81 * SET PARAMETERS 282 2 82 * 283 2 83 START BCE PNH4OP,23,4 8 1017 B 520 023 4 24 284 2 84 BCE PNH4OP,23,5 8 1025 B 520 023 5 24 285 2 85 BCE PNH4OP,23,6 8 1033 B 520 023 6 24 286 2 86 BCE PNH4OP,23,7 8 1041 B 520 023 7 24 &AQ63P01B5200234B5200235B5200236B5200237L039 48, 17 25, 33 41,040040104000243782L 287 2 87 TSTLSW BW EOJOB,LTAPSW 8 1049 V X81 P25 1 25 288 2 88 MCW KBLKNG,BLKCT 7 1057 M P01 P04 25 289 2 89 CS 80 4 1064 / 080 25 290 2 90 BW SETINP,JOBSW 8 1068 V 84 P19 1 25 291 2 91 RT INTAPE,INPUT 8 1076 M %U5 ?28 R 25 &VX81P251MP01P04/080V 84P191M%U5?28R L035 83, 57 64, 68 76,040040104000253782L 292 2 92 SETINP SW IMAGE&23,IMAGE&57 7 1084 , 023 057 26 293 2 93 SW IMAGE&62,IMAGE&67 7 1091 , 062 067 26 294 2 94 SW IMAGE&68,IMAGE&71 7 1098 , 068 071 26 295 2 95 SW IMAGE&74,IMAGE&6 7 1105 , 074 006 26 296 2 96 SW IMAGE&1 4 1112 , 001 26 297 2 97 B GET 4 1116 B !76 26 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 98 * 299 2 99 * ANALYZE RECORD TYPE 300 3 00 * &,023057,062067,068071,074006,001B!76 L036/19, 91 98,/05/12,/16040104000263782L 301 3 01 ANALYZ BCE BYPASS,TYPE,% 8 1120 B J59 075 % 27 302 3 02 BM BYPASS,IMAGE&5 8 1128 V J59 005 K 27 303 3 03 BCE INSTR,TYPE, 8 1136 B S22 075 27 304 3 04 BCE DOJOB,TYPE,I 8 1144 B S11 075 I 27 305 3 05 MN TYPE,XR2 7 1152 D 075 094 27 &BJ59075%VJ59005KBS22075 BS11075ID075094L039/58,/28/36,/44/52,040040104000273782L 306 3 06 A XR2 4 1159 A 094 28 307 3 07 A XR2 4 1163 A 094 28 308 3 08 B *&1&X2 4 1167 B /P1 28 309 3 09 B DA 4 1171 B V85 28 310 3 10 B CONST 4 1175 B S65 28 311 3 11 B DSA 4 1179 B V59 28 312 3 12 B EXEND 4 1183 B W82 28 &A094A094B/P1BV85BS65BV59BW82 L028/86,/63/67,/71/75,/79/83104000283782L 313 3 13 B BYPASS 4 1187 B J59 29 314 3 14 B BYPASS 4 1191 B J59 29 315 3 15 B BYPASS 4 1195 B J59 29 316 3 16 B BYPASS 4 1199 B J59 29 317 3 17 B XTRA 4 1203 B V34 29 318 3 18 B BYPASS 4 1207 B J59 29 319 3 19 DOJOB MCW IMAGE&20,PUNCH&79 7 1211 M 020 179 29 &BJ59BJ59BJ59BJ59BV34BJ59M020179 L031S17,/91/95,/99S03,S07S11104000293782L 320 3 20 B BYPASS 4 1218 B J59 30 321 3 21 * 322 3 22 * PROCESS INSTRUCTION 323 3 23 * 324 3 24 INSTR MCW DMOD,PUNCH&42 7 1222 M 074 142 30 325 3 25 MCW 1 1229 M 30 326 3 26 MCW 1 1230 M 30 327 3 27 MCW 1 1231 M 30 328 3 28 MCW LABADD,CNVADD 7 1232 M 061 ?01 30 329 3 29 A COUNT,CNVADD 7 1239 A 007 ?01 30 &BJ59M074142MMMM061?01A007?01 L028S45,S22S29,S30S31,S32S39104000303782L 330 3 30 S @1@,CNVADD 7 1246 S P28 ?01 31 331 3 31 INSTXT B SETLOC 4 1253 B J67 31 332 3 32 B WRITE2 4 1257 B K64 31 333 3 33 B BYPASS 4 1261 B J59 31 334 3 34 * 335 3 35 * PROCESS CONSTANTS 336 3 36 * 337 3 37 CONST A @00@,COUNT 7 1265 A Q65 007 31 338 3 38 C COUNT,@00@ 7 1272 C 007 Q65 31 339 3 39 BL *&5 5 1279 B S88 T 31 &SP28?01BJ67BK64BJ59AQ65007C007Q65BS88T L038S83,S53S57,S61S65,S72S79104000313782L 340 3 40 B BYPASS 4 1284 B J59 32 341 3 41 BCE PCHCON,IMAGE&23,# 8 1288 B T44 023 # 32 342 3 42 BWZ PCHCON,IMAGE&4,B 8 1296 V T44 004 B 32 343 3 43 MCW IMAGE&53,HOLDDT-22 7 1304 M 053 R26 32 344 3 44 BCE ALPHA,IMAGE&23,@ 8 1311 B T23 023 @ 32 345 3 45 B PCHCON 4 1319 B T44 32 &BJ59BT44023#VT44004BM053R26BT23023@BT44L039T22,S88S96,T04T11,T19040104000323782L 346 3 46 ALPHA MCW &HOLDDT-51,XR1 7 1323 M Q68 089 33 347 3 47 A COUNT,XR1 7 1330 A 007 089 33 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 3 48 MCW BLANK1#1,XXXX&X1 7 1337 M Q69 0 0 33 349 3 49 PCHCON MCW HOLDDT-20,PUNCH&66 7 1344 M R28 166 33 350 3 50 MCW LABADD,CNVADD 7 1351 M 061 ?01 33 &MQ68089A007089MQ690 0MR28166M061?01 L035T57,T30T37,T44T51,040040104000333782L 351 3 51 C COUNT,@32@ 7 1358 C 007 Q71 34 352 3 52 BL LARGE 5 1365 B T82 T 34 353 3 53 BCE PRODC,TYPE,A 8 1370 B U47 075 A 34 354 3 54 B INSTXT 4 1378 B S53 34 355 3 55 * 356 3 56 * CONSTANT GREATER THAN 32 CHARACTERS 357 3 57 * 358 3 58 LARGE S @32@,COUNT 7 1382 S Q71 007 34 359 3 59 S COUNT,CNVADD 7 1389 S 007 ?01 34 &C007Q71BT82TBU47075ABS53SQ71007S007?01 L038T95,T65T70,T78T82,T89040104000343782L 360 3 60 MCW COUNT,HOLDCT#2 7 1396 M 007 Q73 35 361 3 61 MCW @32@,COUNT 7 1403 M Q71 007 35 362 3 62 B SETLOC 4 1410 B J67 35 363 3 63 BCE LRGDC,TYPE,A 8 1414 B U94 075 A 35 364 3 64 LRGXT MCW HOLDCT,COUNT 7 1422 M Q73 007 35 &M007Q73MQ71007BJ67BU94075AMQ73007 L033U28,U03U10,U14U22,040040104000353782L 365 3 65 MCW HOLDDT,TEMP#20 7 1429 M R48 Q93 36 366 3 66 B WRITE2 4 1436 B K64 36 367 3 67 MCW TEMP,PUNCH&54 7 1440 M Q93 154 36 368 3 68 * 369 3 69 * PROCESS DC 370 3 70 * 371 3 71 PRODC MCW LABADD,CNVADD 7 1447 M 061 ?01 36 372 3 72 S COUNT,CNVADD 7 1454 S 007 ?01 36 373 3 73 A @1@,CNVADD 7 1461 A P28 ?01 36 &MR48Q93BK64MQ93154M061?01S007?01AP28?01L039U67,U36U40,U47U54,U61040104000363782L 374 3 74 B CNVRT 4 1468 B K11 37 375 3 75 MCW CNVWK,PUNCH&30 7 1472 M ?04 130 37 376 3 76 MCW @)@ 4 1479 M Q94 37 377 3 77 MCW LABADD,CNVADD 7 1483 M 061 ?01 37 378 3 78 B INSTXT 4 1490 B S53 37 379 3 79 * 380 3 80 * DC GREATER THAN 32 CHARACTERS 381 3 81 * 382 3 82 LRGDC MCW LABADD,CNVADD 7 1494 M 061 ?01 37 &BK11M?04130MQ94M061?01BS53M061?01 L033V00,U72U79,U83U90,U94040104000373782L 383 3 83 S HOLDCT,CNVADD 7 1501 S Q73 ?01 38 384 3 84 S @31@,CNVADD 7 1508 S Q96 ?01 38 385 3 85 B CNVRT 4 1515 B K11 38 386 3 86 MCW CNVWK,PUNCH&30 7 1519 M ?04 130 38 387 3 87 MCW @)@ 4 1526 M Q94 38 388 3 88 B LRGXT 4 1530 B U22 38 389 3 89 * 390 3 90 * EXTRA CARD FOR CONSTANT OVER 32 CHARACTERS 391 3 91 * &SQ73?01SQ96?01BK11M?04130MQ94BU22 L033V33,V08V15,V19V26,V30040104000383782L 392 3 92 XTRA BCE BYPASS,IMAGE&21, 8 1534 B J59 021 39 393 3 93 MCW IMAGE&73,HOLDDT#52 7 1542 M 073 R48 39 394 3 94 CHAIN 6 MACRO 395 MCW 1 1549 M GEN 39 396 MCW 1 1550 M GEN 39 397 MCW 1 1551 M GEN 39 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 MCW 1 1552 M GEN 39 399 MCW 1 1553 M GEN 39 &BJ59021 M073R48MMMMM L020V53,V42V49,V50V51,V52V53104000393782L 400 MCW 1 1554 M GEN 40 401 3 95 B BYPASS 4 1555 B J59 40 402 3 96 * 403 3 97 * PROCESS DSA 404 3 98 * 405 3 99 DSA MCW BOP,PUNCH&37 7 1559 M 073 137 40 406 4 00 BCE PRODC,TYPE,B 8 1566 B U47 075 B 40 407 4 01 MCW LABADD,CNVADD 7 1574 M 061 ?01 40 408 4 02 B INSTXT 4 1581 B S53 40 409 4 03 * 410 4 04 * PROCESS DEFINE AREA 411 4 05 * 412 4 06 DA BCE BYPASS,TYPE,! 8 1585 B J59 075 ! 40 &MBJ59M073137BU47075BM061?01BS53BJ59075!L039V92,V55V59,V66V74,V81V85104000403782L 413 4 07 BCE HEADER,TYPE,0 8 1593 B W24 075 0 41 414 4 08 * 415 4 09 * FIELD, FIELD REPEAT 416 4 10 * 417 4 11 FIELD MCW SUPADD,CNVADD 7 1601 M 066 ?01 41 418 4 12 B DARTN 4 1608 B W47 41 419 4 13 BCE FIELD,TYPE, 8 1612 B W01 075 41 420 4 14 B ANALYZ 4 1620 B /20 41 421 4 15 * 422 4 16 * HEADER, HEADER REPEAT 423 4 17 * 424 4 18 HEADER MCW LABADD,CNVADD 7 1624 M 061 ?01 41 &BW240750M066?01BW47BW01075 B/20M061?01 L038W30,W01W08,W12W20,W24040104000413782L 425 4 19 B DARTN 4 1631 B W47 42 426 4 20 BCE HEADER,TYPE, 8 1635 B W24 075 42 427 4 21 B ANALYZ 4 1643 B /20 42 428 4 22 * 429 4 23 * DA SUBROUTINE 430 4 24 * 431 4 25 DARTN SBR DAXT&3 4 1647 H W81 42 432 4 26 B CNVRT 4 1651 B K11 42 433 4 27 MCW CNVWK,PUNCH&26 7 1655 M ?04 126 42 434 4 28 MCW CNVWK 4 1662 M ?04 42 &BW47BW24075 B/20HW81BK11M?04126M?04 L035W65,W35W43,W47W51,W55W62104000423782L 435 4 29 MCW @,@ 4 1666 M R49 43 436 4 30 B WRITE2 4 1670 B K64 43 437 4 31 B GET 4 1674 B !76 43 438 4 32 DAXT B XXXX 4 1678 B 000 43 439 4 33 * 440 4 34 * PROCESS EX, END 441 4 35 * 442 4 36 EXEND BCE END,TYPE,3 8 1682 B X58 075 3 43 443 4 37 MCW AOP,PUNCH&30 7 1690 M 070 130 43 444 4 38 MCW @B@ 4 1697 M R50 43 &MR49BK64B!76B000BX580753M070130MR50 L035X00,W70W74,W78W82,W90W97104000433782L 445 4 39 MCW @N000000@ 4 1701 M R57 44 446 4 40 B WRITE2 4 1705 B K64 44 447 4 41 LCA @ @,PUNCH&24 7 1709 L Q43 124 44 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 4 42 LCA @B007@ 4 1716 L P35 44 449 4 43 B GET 4 1720 B !76 44 450 4 44 BCE ISJOB,TYPE,I 8 1724 B X47 075 I 44 451 4 45 COMPAT B WRITE1 4 1732 B !30 44 &MR57BK64LQ43124LP35B!76BX47075IB!30 L035X35,X05X09,X16X20,X24X32104000443782L 452 4 46 LCA @L @,PUNCH&26 7 1736 L R64 126 45 453 4 47 B ANALYZ 4 1743 B /20 45 454 4 48 ISJOB MCW IMAGE&20,PUNCH&79 7 1747 M 020 179 45 455 4 49 B COMPAT 4 1754 B X32 45 456 4 50 * 457 4 51 * END 458 4 52 * 459 4 53 END MCW @/ 080@,PUNCH&26 7 1758 M R71 126 45 460 4 54 MCW AOP,PUNCH&23 7 1765 M 070 123 45 &LR64126B/20M020179BX32MR71126M070123 L036X71,X43X47,X54X58,X65040104000453782L 461 4 55 B WRITE2 4 1772 B K64 46 462 4 56 WTM OUTAPE 5 1776 U %U6 M 46 463 4 57 EOJOB BW PUNCH4,PNH4SW 8 1781 V X93 P26 1 46 464 4 58 B ENDJOB 4 1789 B !55 46 465 4 59 * 466 4 60 * PUNCH NEW SOURCE DECK 467 4 61 * 468 4 62 PUNCH4 CS PUNCH&80 4 1793 / 180 46 469 4 63 MCW @113@,LGTCK&6 7 1797 M R74 O58 46 &BK64U%U6MVX93P261B!55/180MR74O58 L032Y03,X76X81,X89X93,X97040104000463782L 470 4 64 RT 4,PUNCH&1 8 1804 M %U4 101 R 47 471 4 65 B CHKLGT 4 1812 B O37 47 472 4 66 BER TPERR 5 1816 B M33 L 47 473 4 67 BCE DOLTO,PUNCH&75,L 8 1821 B Z54 175 L 47 474 4 68 BCE PUNCH4,PUNCH&75,S 8 1829 B X93 175 S 47 &M%U4101RBO37BM33LBZ54175LBX93175S L033Y36,Y12Y16,Y21Y29,040040104000473782L 475 4 69 BCE PUNCH4,PUNCH&75,C 8 1837 B X93 175 C 48 476 4 70 BCE PUNCH4,PUNCH&75,Z 8 1845 B X93 175 Z 48 477 4 71 BCE PUNCH4,PUNCH&75,Y 8 1853 B X93 175 Y 48 478 4 72 BUMP A &1,SEQCT-1 7 1861 A R75 O97 48 479 4 73 MCW SEQCT,PUNCH&5 7 1868 M O98 105 48 &BX93175CBX93175ZBX93175YAR75O97MO98105 L038Y74,Y45Y53,Y61Y68,040040104000483782L 480 4 74 BCE DOPCH,PUNCH&6,* 8 1875 B Z13 106 * 49 481 4 75 MCW BLANK4#4,PUNCH&15 7 1883 M R79 115 49 482 4 76 C PUNCH&18,@JOB@ 7 1890 C 118 P14 49 483 4 77 BU DOPCH 5 1897 B Z13 / 49 484 4 78 MCW BLANK4,PUNCH&11 7 1902 M R79 111 49 485 4 79 MCW BLANK4-2 4 1909 M R77 49 &BZ13106*MR79115C118P14BZ13/MR79111MR77 L038Z12,Y83Y90,Y97Z02,Z09040104000493782L 486 4 80 DOPCH MCW BLANK4-1,PUNCH&75 7 1913 M R78 175 50 487 4 81 P 1 1920 4 50 488 4 82 SS 4 2 1921 K 4 50 489 4 83 C PUNCH&18,@END@ 7 1923 C 118 R82 50 490 4 84 BU PUNCH4 5 1930 B X93 / 50 491 4 85 BCE PUNCH4,PUNCH&6,* 8 1935 B X93 106 * 50 492 4 86 CS PUNCH&80 4 1943 / 180 50 &MR781754K4C118R82BX93/BX93106*/180 L034Z46,Z20Z21,Z23Z30,Z35Z43104000503782L 493 4 87 P 1 1947 4 51 494 4 88 SS 8 2 1948 K 8 51 495 4 89 B ENDJOB 4 1950 B !55 51 496 4 90 DOLTO MCW @LTORG@,PUNCH&20 7 1954 M R87 120 51 497 4 91 B BUMP 4 1961 B Y61 51 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 92 DCW @ @ 1 1965 51 499 4 93 ENDF1 DCW @}@ 1 1966 51 &4K8B!55MR87120BY61 } L020Z66,Z48Z50,Z54Z61,Z65Z66104000513782L & N000000,040040,040040,040040B00000523782L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00533781L &,068072)063067/061039 ,001001104000543781L 500 4 94 XFR LIBRN B 000 52 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 501 4 95 JOB 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 502 4 96 ORG 2000 2000 503 4 97 OUTOPN DCW @ @ 1 2000 55 504 4 98 SSOP DCW @B@ 1 2001 55 505 4 99 RTW 1,1 8 2002 L %U1 001 R 55 506 5 00 NOP XXXX 4 2010 N 000 55 507 5 01 BER TPERR 5 2014 B M33 L 55 508 5 02 CW ENDF1,ENDF2 7 2019 ) Z66 I98 55 509 5 03 B INITLZ 4 2026 B 340 55 510 5 04 * 511 5 05 * WRITE CLEAR STORAGE AND BOOTSTRAP 512 5 06 * & BL%U1001RN000BM33L)Z66I98B340 L030!29,!01!02,!10!14,!19!26104000553781L 513 5 07 WRITE1 SBR WT1XT&3 4 2030 H !54 56 514 5 08 WTW OUTAPE,OUTPUT 8 2034 L %U6 101 W 56 515 5 09 NOP XXXX 4 2042 N 000 56 516 5 10 BER TPERR 5 2046 B M33 L 56 517 5 11 WT1XT B XXXX 4 2051 B 000 56 518 5 12 * 519 5 13 * GO BACK TO PASS E FOR EXTRA OUTPUT 520 5 14 * 521 5 15 ENDJOB RTW 1,333 8 2055 L %U1 333 R 56 522 5 16 NOP XXXX 4 2063 N 000 56 &H!54L%U6101WN000BM33LB000L%U1333RN000 L037!66,!34!42,!46!51,!55!63104000563781L 523 5 17 BER TPERR 5 2067 B M33 L 57 524 5 18 B MESSAG 4 2072 B 333 57 525 5 19 * 526 5 20 * RETRIEVE INPUT RECORD 527 5 21 * 528 5 22 GET SBR GETXT&3 4 2076 H J58 57 529 5 23 C BLKCT,KBLKNG 7 2080 C P04 P01 57 530 5 24 BU NXTREC 5 2087 B J20 / 57 531 5 25 S HOLDA 4 2092 S P05 57 532 5 26 MCW &INPUT&13,LGTCK&6 7 2096 M R90 O58 57 &BM33LB333HJ58CP04P01BJ20/SP05MR90O58 L036J02,!72!76,!80!87,!92!96104000573781L 533 5 27 RT INTAPE,INPUT 8 2103 M %U5 ?28 R 58 534 5 28 B CHKLGT 4 2111 B O37 58 535 5 29 BER TPERR 5 2115 B M33 L 58 536 5 30 NXTREC A &80,BLKCT 7 2120 A R92 P04 58 537 5 31 MCW BLKCT,XR3 7 2127 M P04 099 58 538 5 32 MCW INPUT-1&X3,IMAGE&80 7 2134 M ?B7 080 58 539 5 33 CHAIN 8 MACRO 540 MCW 1 2141 M GEN 58 &M%U5?28RBO37BM33LAR92P04MP04099M?B7080ML039J41,J11J15,J20J27,J34J41104000583781L 541 MCW 1 2142 M GEN 59 542 MCW 1 2143 M GEN 59 543 MCW 1 2144 M GEN 59 544 MCW 1 2145 M GEN 59 545 MCW 1 2146 M GEN 59 546 MCW 1 2147 M GEN 59 547 MCW 1 2148 M GEN 59 &MMMMMMM L007J48,J43J44,J45J46,J47J48104000593781L 548 5 34 S XR3&1 4 2149 S 100 60 549 5 35 S 1 2153 S 60 550 5 36 S 1 2154 S 60 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 551 5 37 GETXT B XXXX 4 2155 B 000 60 552 5 38 * 553 5 39 * DO NEXT RECORD 554 5 40 * 555 5 41 BYPASS B GET 4 2159 B !76 60 556 5 42 B ANALYZ 4 2163 B /20 60 557 5 43 * 558 5 44 * SET ADDRESSES IN OUTPUT 559 5 45 * 560 5 46 SETLOC SBR LOCXT&3 4 2167 H K10 60 &S100SSB000B!76B/20HK10 L022J70,J53J54,J55J59,J63J67104000603781L 561 5 47 B CNVRT 4 2171 B K11 61 562 5 48 MCW CNVWK,PUNCH&26 7 2175 M ?04 126 61 563 5 49 ZA &34,CNVADD 7 2182 ? R94 ?01 61 564 5 50 A COUNT,CNVADD 7 2189 A 007 ?01 61 565 5 51 B CNVRT 4 2196 B K11 61 566 5 52 MCW CNVWK,PUNCH&23 7 2200 M ?04 123 61 &BK11M?04126?R94?01A007?01BK11M?04123 L036K06,J75J82,J89J96,K00040104000613781L 567 5 53 LOCXT B XXXX 4 2207 B 000 62 568 5 54 * 569 5 55 * CONVERT 5 TO 3 DIGIT ADDRESS 570 5 56 * 571 5 57 CNVRT SBR CNVXT&3 4 2211 H K63 62 572 5 58 BAV *&1 5 2215 B K20 Z 62 573 5 59 ADDAGN A &96,CNVADD-3 7 2220 A R96 R98 62 574 5 60 BAV ADDAGN 5 2227 B K20 Z 62 575 5 61 MZ CNVADD-4,CNVADD#5 7 2232 Y R97 ?01 62 576 5 62 MN CNVADD-3,*&4 7 2239 D R98 K49 62 &B000HK63BK20ZAR96R98BK20ZYR97?01DR98K49L039K45,K11K15,K20K27,K32K39104000623781L 577 5 63 MZ ZONE,CNVADD-2 7 2246 Y 339 R99 63 578 5 64 MCW CNVADD,CNVWK#3 7 2253 M ?01 ?04 63 579 5 65 CNVXT B XXXX 4 2260 B 000 63 580 5 66 * 581 5 67 * WRITE OUTPUT RECORDS 582 5 68 * 583 5 69 WRITE2 SBR WT2XT&3 4 2264 H L30 63 584 5 70 BCE DOGM,PUNCH&35,} 8 2268 B L31 135 } 63 585 5 71 WTW OUTAPE,OUTPUT&19 8 2276 L %U6 120 W 63 &Y339R99M?01?04B000HL30BL31135}L%U6120W L038K83,K53K60,K64K68,K76040104000633781L 586 5 72 NOP XXXX 4 2284 N 000 64 587 5 73 BER TPERR 5 2288 B M33 L 64 588 5 74 NOP 1 2293 N 64 589 5 75 CLEAR MCW BLANK1,PUNCH&75 7 2294 M Q69 175 64 590 5 76 MCW PUNCH&75 4 2301 M 175 64 591 5 77 MCW BLANK1,HOLDDT 7 2305 M Q69 R48 64 592 5 78 MCW HOLDDT 4 2312 M R48 64 &N000BM33LNMQ69175M175MQ69R48MR48 L032L15,K88K93,K94L01,L05L12104000643781L 593 5 79 MCW @N000@,PUNCH&30 7 2316 M Q51 130 65 594 5 80 MCW @L @ 4 2323 M ?11 65 595 5 81 WT2XT B XXXX 4 2327 B 000 65 596 5 82 DOGM CS 299 4 2331 / 299 65 597 5 83 LCA PUNCH&80,280 7 2335 L 180 280 65 598 5 84 LCA 1 2342 L 65 599 5 85 MCW PUNCH&66,274 7 2343 M 166 274 65 &MQ51130M?11B000/299L180280LM166274 L034L49,L23L27,L31L35,L42L43104000653781L 600 5 86 LCA @ @ 4 2350 L Q43 66 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 601 5 87 LCA @B007@ 4 2354 L P35 66 602 5 88 LCA @)043043@ 4 2358 L ?18 66 603 5 89 LCA PUNCH&26 4 2362 L 126 66 604 5 90 LCA @,043@ 4 2366 L ?22 66 605 5 91 SW 225,235 7 2370 , 225 235 66 606 5 92 A &8,227 7 2377 A ?23 227 66 &LQ43LP35L?18L126L?22,225235A?23227 L034L83,L54L58,L62L66,L70L77104000663781L 607 5 93 CW 225 4 2384 ) 225 67 608 5 94 BCE WTGM,PUNCH&27,N 8 2388 B M03 127 N 67 609 5 95 MCW PUNCH&30,237 7 2396 M 130 237 67 610 5 96 WTGM CW 235 4 2403 ) 235 67 611 5 97 WTW OUTAPE,220 8 2407 L %U6 220 W 67 612 5 98 NOP XXXX 4 2415 N 000 67 &)225BM03127NM130237)235L%U6220WN000 L035M18,L88L96,M03M07,M15040104000673781L 613 5 99 BER TPERR 5 2419 B M33 L 68 614 6 00 NOP 1 2424 N 68 615 6 01 CW 280 4 2425 ) 280 68 616 6 02 B CLEAR 4 2429 B K94 68 617 6 03 * 618 6 04 * TAPE REDUNDANCY ROUTINE 619 6 05 * 620 6 06 TPERR SBR XR2 4 2433 H 094 68 621 6 07 SBR REDXT&3 4 2437 H N05 68 622 6 08 MZ &9,XR2 7 2441 Y ?24 094 68 &BM33LN)280BK94H094HN05Y?24094 L029M47,M24M25,M29M33,M37M41104000683781L 623 6 09 MCW 4000-10&X2,TPINST&7 7 2448 M IR0 M96 69 624 6 10 MN TPINST&3,BSP1&3 7 2455 D M92 M72 69 625 6 11 MCW TPINST&7,INST2&7 7 2462 M M96 O05 69 626 6 12 BSP1 BSP INITAP 5 2469 U %U0 B 69 627 6 13 BCE WRTRED,TPINST&7,W 8 2474 B N78 M96 W 69 &MIR0M96DM92M72MM96O05U%U0BBN78M96W L034M81,M55M62,M69M74,040040104000693781L 628 6 14 MCW &9,READCT#1 7 2482 M ?24 ?25 70 629 6 15 TPINST RT INITAP,XXXX 8 2489 M %U0 000 R 70 630 6 16 BER RDRERR 5 2497 B N06 L 70 631 6 17 REDXT B XXXX 4 2502 B 000 70 632 6 18 RDRERR MN TPINST&3,BSP2&3 7 2506 D M92 N16 70 633 6 19 BSP2 BSP INITAP 5 2513 U %U0 B 70 &M?24?25M%U0000RBN06LB000DM92N16U%U0B L036N17,M89M97,N02N06,N13040104000703781L 634 6 20 S &1,READCT 7 2518 S R75 ?25 71 635 6 21 BWZ TPINST,READCT,B 8 2525 V M89 ?25 B 71 636 6 22 MN TPINST&3,TPHALT&6 7 2533 D M92 N46 71 637 6 23 TPHALT H XXXX,890 7 2540 . 000 890 71 638 6 24 MCW TPINST&7,*&8 7 2547 M M96 N61 71 &SR75?25VM89?25BDM92N46.000890MM96N61 L036N53,N25N33,N40N47,040040104000713781L 639 6 25 RT INITAP,XXXX 8 2554 M %U0 000 R 72 640 6 26 BSS BSP1,E 5 2562 B M69 E 72 641 6 27 H XXXX,811 7 2567 . 000 811 72 642 6 28 B REDXT 4 2574 B N02 72 643 6 29 WRTRED SKP 1 5 2578 U %U1 E 72 644 6 30 BCE SUBCTR,WRTCTR-1,5 8 2583 B O15 ?26 5 72 &M%U0000RBM69E.000811BN02U%U1EBO15?265 L037N90,N62N67,N74N78,N83040104000723781L 645 6 31 A &1,WRTCTR#2 7 2591 A R75 ?27 73 646 6 32 INST2 WT INITAP,XXXX 8 2598 M %U0 000 W 73 647 6 33 BER BSP1 5 2606 B M69 L 73 648 6 34 B REDXT 4 2611 B N02 73 649 6 35 SUBCTR S WRTCTR 4 2615 S ?27 73 650 6 36 MN TPINST&3,*&7 7 2619 D M92 O32 73 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &AR75?27M%U0000WBM69LBN02S?27DM92O32 L035O25,N98O06,O11O15,O19040104000733781L 651 6 37 H XXXX,860 7 2626 . 000 860 74 652 6 38 B INST2 4 2633 B N98 74 653 6 39 * 654 6 40 * CHECK FOR SHORT RECORD 655 6 41 * 656 6 42 CHKLGT SBR XR2 4 2637 H 094 74 657 6 43 SBR LGTXT&3 4 2641 H O75 74 658 6 44 MZ &9,XR2 7 2645 Y ?24 094 74 659 6 45 LGTCK BCE 4000-12&X2,XXXX,} 8 2652 B IQ8 000 } 74 660 6 46 CHAIN 12 MACRO 661 BCE 1 2660 B GEN 74 &.000860BN98H094HO75Y?24094BIQ8000}B L035O60,O33O37,O41O45,O52O60104000743781L 662 BCE 1 2661 B GEN 75 663 BCE 1 2662 B GEN 75 664 BCE 1 2663 B GEN 75 665 BCE 1 2664 B GEN 75 666 BCE 1 2665 B GEN 75 667 BCE 1 2666 B GEN 75 668 BCE 1 2667 B GEN 75 &BBBBBBB L007O67,O62O63,O64O65,O66O67104000753781L 669 BCE 1 2668 B GEN 76 670 BCE 1 2669 B GEN 76 671 BCE 1 2670 B GEN 76 672 BCE 1 2671 B GEN 76 673 6 47 LGTXT B XXXX 4 2672 B 000 76 674 6 48 BER1 DCW @B001L@ 5 2680 76 675 6 49 RDREC DCW @L%U1020R@ 8 2688 76 &BBBBB000B001LL%U1020R L021O88,O69O70,O71O72,O76O81104000763781L 676 6 50 BSPTU1 DCW @U%U1B@ 5 2693 77 677 6 51 SEQCT DCW @0100 @ 5 2698 77 678 6 52 KBLKNG DCW 080 3 2701 77 679 6 53 HOLDA DCW &0000 4 2705 77 680 6 54 BLKCT EQU HOLDA-1 2704 681 6 55 GRPMRK DC @}@ 1 2706 77 682 6 56 LTORG * 2707 DCW @2@ 1 2707 LIT 77 @7@ 1 2708 LIT 77 @013@ 3 2711 LIT 77 &U%U1B0100 080000?}27013 L023P11,O94O99,P02P07,P08P09104000773781L @JOB@ 3 2714 LIT 78 152 IDENT #04 4 2718 AREA 78 153 JOBSW #01 1 2719 AREA 78 @CTL@ 3 2722 LIT 78 @33@ 2 2724 LIT 78 165 LTAPSW #01 1 2725 AREA 78 170 PNH4SW #01 1 2726 AREA 78 &JOB CTL33 L015P26,P15P19,P20P23,P25P26104000783781L @0@ 1 2727 LIT 79 @1@ 1 2728 LIT 79 @4@ 1 2729 LIT 79 @ @ 2 2731 LIT 79 @B007@ 4 2735 LIT 79 @)021@ 4 2739 LIT 79 197 @B047L@ 5 2744 LIT 79 &014 B007)021B047L L018P44,P28P29,P30P32,P36P40104000793781L 198 @L%U1001R@ 8 2752 LIT 80 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @.@ 1 2753 LIT 80 @3@ 1 2754 LIT 80 @6@ 1 2755 LIT 80 @I0?@ 3 2758 LIT 80 @099@ 3 2761 LIT 80 @B053@ 4 2765 LIT 80 &L%U1001R.36I0?099B053 L021P65,P53P54,P55P56,P59P62104000803781L 212 @M074099@ 7 2772 LIT 81 @)099@ 4 2776 LIT 81 214 @B001/@ 5 2781 LIT 81 215 @C004041@ 7 2788 LIT 81 216 @#044004@ 7 2795 LIT 81 @/I9I@ 4 2799 LIT 81 @I0@ 2 2801 LIT 81 &M074099)099B001/C004041#044004/I9II0 L036Q01,P73P77,P82P89,P96Q00104000813781L 226 @M080099@ 7 2808 LIT 82 @B001@ 4 2812 LIT 82 229 @B0320020@ 8 2820 LIT 82 @)002@ 4 2824 LIT 82 231 @A075003@ 7 2831 LIT 82 @,002@ 4 2835 LIT 82 @/I99@ 4 2839 LIT 82 &M080099B001B0320020)002A075003,002/I99 L038Q39,Q09Q13,Q21Q25,Q32Q36104000823781L @Z@ 1 2840 LIT 83 @T@ 1 2841 LIT 83 @I@ 1 2842 LIT 83 @ @ 1 2843 LIT 83 @.020@ 4 2847 LIT 83 @N000@ 4 2851 LIT 83 258 @L @ 7 2858 LIT 83 &ZTI .020N000L L019Q58,Q41Q42,Q43Q44,Q48Q52104000833781L 271 SAVEZN #01 1 2859 AREA 84 &3 1 2860 LIT 84 @400@ 3 2863 LIT 84 @00@ 2 2865 LIT 84 346 &HOLDDT-51 3 2868 Q97 ADCON 84 348 BLANK1 #01 1 2869 AREA 84 @32@ 2 2871 LIT 84 & C40000Q97 32 L013Q71,Q60Q61,Q64Q66,Q69Q70104000843781L 360 HOLDCT #02 2 2873 AREA 85 365 TEMP #20 20 2893 AREA 85 @)@ 1 2894 LIT 85 @31@ 2 2896 LIT 85 & )31 L025Q96,Q74Q94,Q95040,040040104000853781L & L039R35,040040,040040,040040104000863781L 393 HOLDDT #52 52 2948 AREA 87 @,@ 1 2949 LIT 87 @B@ 1 2950 LIT 87 445 @N000000@ 7 2957 LIT 87 452 @L @ 7 2964 LIT 87 & ,BN000000L L029R64)R36R36,R49R50,R51R58104000873781L 459 @/ 080@ 7 2971 LIT 88 @113@ 3 2974 LIT 88 &1 1 2975 LIT 88 481 BLANK4 #04 4 2979 AREA 88 @END@ 3 2982 LIT 88 496 @LTORG@ 5 2987 LIT 88 532 &INPUT&13 3 2990 ?41 ADCON 88 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &/ 080113A ENDLTORG?41 L026R90,R72R75,R76R80,R83R88104000883781L &80 2 2992 LIT 89 &34 2 2994 LIT 89 &96 2 2996 LIT 89 575 CNVADD #05 5 3001 AREA 89 578 CNVWK #03 3 3004 AREA 89 594 @L @ 7 3011 LIT 89 602 @)043043@ 7 3018 LIT 89 &8?3D9F L )043043 L028?18,R93R95,R97?02,?05?12104000893781L @,043@ 4 3022 LIT 90 &8 1 3023 LIT 90 &9 1 3024 LIT 90 628 READCT #01 1 3025 AREA 90 645 WRTCTR #02 2 3027 AREA 90 683 6 57 * 684 6 58 * INPUT AREA 685 6 59 * 686 6 60 INPUT EQU *&1 3028 687 6 61 ENDF2 EQU 3998 3998 &,043HI L009?27,?23?24,?25?26,040040104000903781L 688 6 62 3998 DCW @}@ 1 3998 91 &} L001I98,040040,040040,040040104000913781L & N000000,040040,040040,040040B00000923781L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00933783L &,068072)063067/061039 ,001001104000943783L 689 6 63 XFR LIBRN B 000 92 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 690 6 64 JOB 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 691 6 65 ORG 333 0333 692 6 66 * 693 6 67 * PRINT END OF JOB MESSAGES 694 6 68 * 695 6 69 MESSAG CC 1 2 0333 F 1 95 696 6 70 CS 332 4 0335 / 332 95 697 6 71 CS 1 0339 / 95 698 6 72 MCW @END OF ASSEMBLY@,PRINT&15 7 0340 M 696 215 95 699 6 73 W 1 0347 2 95 700 6 74 CC K 2 0348 F K 95 701 6 75 MCW @IF EXTRA OUTPUT DESIRED, SET SENSE@,PRINT&34 7 0350 M 730 234 95 &F1/332/M6962152FKM730234 L024356,335339,340347,348350104000953783L 702 6 76 MCW @SWITCH F ON, AND@,PRINT&51 7 0357 M 746 251 96 703 6 77 W 1 0364 2 96 704 6 78 CC J 2 0365 F J 96 705 6 79 CS PRINT&71 4 0367 / 271 96 706 6 80 MCW @B ON FOR CONDENSED CARDS@,PRINT&24 7 0371 M 770 224 96 707 6 81 W 1 0378 2 96 708 6 82 MCW @C ON FOR LOADABLE TAPE 6@,PRINT&24 7 0379 M 794 224 96 &M7462512FJ/271M7702242M794224 L029385,364365,367371,378379104000963783L 709 6 83 W 1 0386 2 97 710 6 84 MCW @D ON FOR LISTING TAPE 3@,PRINT&24 7 0387 M 818 224 97 711 6 85 W 1 0394 2 97 712 6 86 MCW @E ON TO SUPPRESS LISTING@,PRINT&24 7 0395 M 842 224 97 713 6 87 W 1 0402 2 97 714 6 88 MCW @G ON FOR NEW SOURCE DECK@,PRINT&24 7 0403 M 866 224 97 715 6 89 W 1 0410 2 97 &2M8182242M8422242M8662242 L025410,387394,395402,403410104000973783L 716 6 90 CC J 2 0411 F J 98 717 6 91 CS PRINT&24 4 0413 / 224 98 718 6 92 MCW @AND PRESS START@,PRINT&15 7 0417 M 881 215 98 719 6 93 W 1 0424 2 98 720 6 94 CC K 2 0425 F K 98 721 6 95 MCW @IF NO EXTRA OUTPUT DESIRED, PRESS START@,PRINT&39 7 0427 M 920 239 98 722 6 96 W 1 0434 2 98 &FJ/224M8812152FKM9202392 L024434,413417,424425,427434104000983783L 723 6 97 CC 1 2 0435 F 1 99 724 6 98 CW GRPMRK 4 0437 ) P06 99 725 6 99 H XXXX,880 7 0441 . 000 880 99 726 7 00 BSS GOTOE,F 5 0448 B 530 F 99 727 7 01 CS PRINT&39 4 0453 / 239 99 728 7 02 MCW @END OF JOB@,PRINT&10 7 0457 M 930 210 99 729 7 03 W 1 0464 2 99 &F1)P06.000880B530F/239M9302102 L030464,437441,448453,457464104000993783L 730 7 04 CC K 2 0465 F K 100 731 7 05 MCW @INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4@,PRINT&36 7 0467 M 966 236 100 732 7 06 W 1 0474 2 100 733 7 07 RWD 1 5 0475 U %U1 R 100 734 7 08 RWD 4 5 0480 U %U4 R 100 735 7 09 RWD 5 5 0485 U %U5 R 100 736 7 10 RWD 6 5 0490 U %U6 R 100 &FKM9662362U%U1RU%U4RU%U5RU%U6R L030494,467474,475480,485490104001003783L 737 7 11 BW FINAL,LTAPSW 8 0495 V 517 P25 1 101 738 7 12 CS 236 4 0503 / 236 101 739 7 13 MCW @LOADABLE TAPE ON TAPE UNIT 6@,PRINT&28 7 0507 M 994 228 101 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 740 7 14 CC K 2 0514 F K 101 741 7 15 W 1 0516 2 101 742 7 16 FINAL CC 1 2 0517 F 1 101 743 7 17 H XXXX,889 7 0519 . 000 889 101 &V517P251/236M994228FK2F1.000889 L031525,503507,514516,517519104001013783L 744 7 18 B FINAL&2 4 0526 B 519 102 745 7 19 GOTOE CW ENDF2,ENDF3 7 0530 ) I98 998 102 746 7 20 CW INPUT&80 4 0537 ) A08 102 747 7 21 CS PUNCH&99 4 0541 / 199 102 748 7 22 BSP 1 5 0545 U %U1 B 102 749 7 23 BSP 1 5 0550 U %U1 B 102 750 7 24 BSP 1 5 0555 U %U1 B 102 &B519)I98998)A08/199U%U1BU%U1BU%U1B L034559,530537,541545,550555104001023783L 751 7 25 BSP 1 5 0560 U %U1 B 103 752 7 26 BSP 1 5 0565 U %U1 B 103 753 7 27 BSP 1 5 0570 U %U1 B 103 754 7 28 BSP 1 5 0575 U %U1 B 103 755 7 29 BSP 1 5 0580 U %U1 B 103 756 7 30 RTW 1,PASSE 8 0585 L %U1 Z00 R 103 757 7 31 BER TPERR2 5 0593 B 602 L 103 &U%U1BU%U1BU%U1BU%U1BU%U1BL%U1Z00RB602L L038597,565570,575580,585593104001033783L 758 7 32 B PASSE&1 4 0598 B Z01 104 759 7 33 TPERR2 MCW &9,READC#1 7 0602 M 995 996 104 760 7 34 BSP 1 5 0609 U %U1 B 104 761 7 35 RETRY RTW 1,PASSE 8 0614 L %U1 Z00 R 104 762 7 36 BER AGAIN 5 0622 B 631 L 104 763 7 37 B PASSE&1 4 0627 B Z01 104 764 7 38 AGAIN BSP 1 5 0631 U %U1 B 104 &BZ01M995996U%U1BL%U1Z00RB631LBZ01U%U1B L038635,602609,614622,627631104001043783L 765 7 39 S &1,READC 7 0636 S 997 996 105 766 7 40 BWZ RETRY,READC,B 8 0643 V 614 996 B 105 767 7 41 H XXXX,891 7 0651 . 000 891 105 768 7 42 RTW 1,PASSE 8 0658 L %U1 Z00 R 105 769 7 43 BSS TPERR2,E 5 0666 B 602 E 105 &S997996V614996B.000891L%U1Z00RB602E L035670,643651,658666,040040104001053783L 770 7 44 H XXXX,812 7 0671 . 000 812 106 771 7 45 B PASSE&1 4 0678 B Z01 106 772 7 46 LTORG * 0682 698 DCW @END OF ASSEMBLY@ 15 0696 LIT 106 &.000812BZ01END OF ASSEMBLY L026696,678682,040040,040040104001063783L 701 @IF EXTRA OUTPUT DESIRED, SET SENSE@ 34 0730 LIT 107 &IF EXTRA OUTPUT DESIRED, SET SENSE L034730,040040,040040,040040104001073783L 702 @SWITCH F ON, AND@ 16 0746 LIT 108 &SWITCH F ON, AND L016746,040040,040040,040040104001083783L 706 @B ON FOR CONDENSED CARDS@ 24 0770 LIT 109 &B ON FOR CONDENSED CARDS L024770,040040,040040,040040104001093783L 708 @C ON FOR LOADABLE TAPE 6@ 24 0794 LIT 110 &C ON FOR LOADABLE TAPE 6 L024794,040040,040040,040040104001103783L 710 @D ON FOR LISTING TAPE 3@ 24 0818 LIT 111 &D ON FOR LISTING TAPE 3 L024818,040040,040040,040040104001113783L 712 @E ON TO SUPPRESS LISTING@ 24 0842 LIT 112 &E ON TO SUPPRESS LISTING L024842,040040,040040,040040104001123783L 714 @G ON FOR NEW SOURCE DECK@ 24 0866 LIT 113 718 @AND PRESS START@ 15 0881 LIT 113 &G ON FOR NEW SOURCE DECKAND PRESS STARTL039881,867040,040040,040040104001133783L 721 @IF NO EXTRA OUTPUT DESIRED, PRESS START@ 39 0920 LIT 114 &IF NO EXTRA OUTPUT DESIRED, PRESS STARTL039920,040040,040040,040040104001143783L 728 @END OF JOB@ 10 0930 LIT 115 &END OF JOB L010930,040040,040040,040040104001153783L 731 @INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4@ 36 0966 LIT 116 &INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4 L036966,040040,040040,040040104001163783L 739 @LOADABLE TAPE ON TAPE UNIT 6@ 28 0994 LIT 117 &9 1 0995 LIT 117 759 READC #01 1 0996 AREA 117 &1 1 0997 LIT 117 773 7 47 ENDF3 DCW @}@ 1 0998 117 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 774 7 48 PASSE EQU 1900 1900 &LOADABLE TAPE ON TAPE UNIT 6I A} L032998,995996,997998,040040104001173783L & N000000,040040,040040,040040B00001183783L &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01193783L &,068072)063067/061039 ,001001104001203783L 775 7 49 EX LIBRN B 000 118 & /000080 01213783L 776 7 50 END LIBRN / 000 080 121 ]]]]] ,008015,019026,030,034041,045,053,0570571026 000137 3 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 000237113 ,008015,022029,036040,047054,061068,072/061039 ,0010011040000337113 00000000000000000002SKB L023109,092097,106040,0400401040000437113 U%U1RF1M 832322F1/332/ L022354,338340,347348,3503541040000537113 M075 871C012 94B792/V7260802B8770789 L036390,362363,370375,3830401040000637113 ,021?025 99)021B418 99&B429? 98 99B406 L038428,395402,406414,4184251040000737113 Y106 99S091C 99/04B538SB527US/09 99 L035463,436440,447452,4570401040000837113 M/14/19S 99/19B483ZA/21/16B483ZY/15/19 L038501,471478,483490,4950401040000937113 D/16512Y109/17M/19089B538M/26/19B4711 L037538,509516,523527,5345381040001037113 M/29099M/32094V7260802B675068BB596040N L038576,546553,561569,0400401040001137113 C046/35B596SY107045M/38071M/39C094/42 L037613,584589,596603,6070401040001237113 B040SA/43099A/43094C0!1/46B652SY1070!0 L038651,619626,633640,6450401040001337113 C0?1/46B607SY1070?0B607L/47I98L%U1V00W L038689,659664,671675,6820401040001437113 B973LM/50705/000H705C705/53B702/B362 L036725,695702,706710,7177221040001537113 H759A/54 87C075 87M075 87B760/B000 L034759,730737,744751,7560401040001637113 M080280MMMMMM L013772,767768,769770,7717721040001737113 M/682982.000176B941N917C020/73B917/ L035807,780781,788792,7968031040001837113 V7260802M/39792L/47081M%U1001WB973L L035842,816823,830838,0400401040001937113 C011/79B868S1V7260802B830U%U1MB362 L034876,850855,856864,8688731040002037113 U%U1MU%U1R)/47/332/MS252462 L027903,882887,891895,8969031040002137113 F1.000142B906/332/MS522272 L026929,906913,917921,9229291040002237113 .000177B9301V7260802B9620789B941.000152L039968,937941,942950,9589621040002337113 B962H 36H099YS53099MII4 27U%U1BU%U1E L036 04,973977,981988,995 001040002437113 B 37S541A/54S55M%U1000WB995LB000SS55 L036 40, 13 20, 28 33, 370401040002537113 .000161B 20 L011 51, 48040,040040,0400401040002637113 GENERATING 1401 AUTOCODER SYSTEM L036 87, 84040,040040,0400401040002737113 CONTROL 015000150016000 96 L034/21, 95/00,/05/10,/15/201040002837113 01500045042001538B063 L021/42,/27/30,/33/36,/39/401040002937113 G040}I99U99ASEQUENCE ERROR L026/68,/44/47,/48/51,/54/551040003037113 HEADR999999 L011/79,/74040,040040,0400401040003137113 1401 AUTOCODER SYSTEM GENERATED ON TAPEL039S18,040040,040040,0400401040003237113 UNIT 1SYSTEM CONTROL CARD MISSINGI L037S55)S19S19,S26S53,S540401040003337113 N000000,040040,040040,040040B333003437113 CONTROL 001 PASS 1 SELECT PROGRAM 003537123 B333.005599 L011011,005009,040040,0400401040003637123 000000000000000 L015101,092097,040040,0400401040003737123 B407L,835/I99H345C345787B342/,835 L033365,338342,346350,3573621040003837123 M%U1814RC833802B362/,835M%U1834RB418K L037402,374381,386390,3980401040003937123 B362.000199B407B521F,835L835I98M805658 L038440,407414,418423,4274341040004037123 B4768074,I98L%U1W50RB637A806807B441 L035475,449453,461465,4720401040004137123 L%U1W50RB637B676L)835/W49H500C500011 L036511,484488,493497,5015051040004237123 B497/BZ00M810658)835B558BL%U1!00RB637 L037548,517521,528532,5375451040004337123 B676LB!00L%U1!00RB637,835L835I98 L032580,554558,566570,5740401040004437123 L%U1!00RB637L%U1!00RB637,I98L%U1!00R L036616,589593,601605,6090401040004537123 B637B676L)835I98B!00H675H089Y811089 L035651,621626,633637,6416451040004637123 BIY8000}BBBBBB L014665,660661,662663,6646651040004737123 BBBBBBB000 L010675,667668,669670,6716721040004837123 H089H726Y811089MIZ0717U%U1BM811812 L034709,680684,691698,7030401040004937123 L%U1000RB727LB000U%U1BS806812V710812B L037746,718723,727732,7390401040005037123 .000191M717768L%U1000RB698E.000111B723 L038784,754761,769774,7810401040005137123 U99999999 HEADRW63A !13I L027811,788803,806807,8088111040005237123 } L024835,813835,040040,0400401040005337123 N000000,040040,040040,040040B000005437123 MADXX HEADR MODIFY ADDRESS 005537123 )00 SW )0B-2 005637123 A )01,)0B 005737123 CW )0B-2 005837123 SW )0A-2 )0S 005937123 A )0A )0S 006037123 CW )0A-2 )0S 006137123 A )0/ 006237123 OVLAY HEADR RETURN TO CARD LOADER 006337123 )00 CS 080 006437123 SW 024,056 006537123 SW 063,067 006637123 R 056 006737123 DCW #1 C0053712L TOVLY HEADR RETURN TO TAPE LOADER 006837123 )0K EQU *&1 006937123 )00 CS 080 007037123 RTW 1,1 007137123 BER )0J 007237123 B 007 007337123 )0J BSP 1 007437123 H 0,0 007537123 B )0K 007637123 999999 HEADR END OF LIBRARY 007737123 CONTROL 2000 PASS 1 RETRIEVE UPDATE PROGRAM 007837133 BJ26G)K12L%U1001RB!09013}BBB L028!27,!05!09,!17!25,!26!271040007937133 BBBBBBB L007!34,!29!30,!31!32,!33!341040008037133 BBB!46LB333U%U1BMK06K07L%U1001R L031!65,!36!37,!42!46,!51!581040008137133 B!75LB333U%U1BSK08K07V!58K07B.000191 L036J01,!71!75,!80!87,!950401040008237133 L%U1001RB!46E.000111B333,K12LK12Z98 L035J36,J10J15,J22J26,J300401040008337133 L%U1333RBJ54KBJ26U%U1BU%U1B)K12Z98,P25 L038J74,J45J50,J54J59,J64J711040008437133 MK11!64MK11J08L%U1333RB!46LB333I L033K07,J82J89,J97K02,K06K071040008537133 A333} L005K12,K09K12,040040,0400401040008637133 BK12 L004-08,040040,040040,0400401040C0383713L ,K41LK41Z98 L011J36,J30040,040040,0400401040C0393713L )K41Z98 L007J70,040040,040040,0400401040C0403713L )K41//38//MK40963P900836B!09 L028K39,K16K20,K21K22,K29K361040C0413713L |} L002K41,K41040,040040,0400401040C0423713L N000000,040040,040040,040040B000008737133 CONTROL 001 PASS 1 COPY SYSTEM 008837143 000000000000000 L015101,092097,040040,0400401040008937143 ,/39U%U1RU%U6RF1/332/B 21 L025357,337342,347349,3533541040009037143 B525CL%U1V00RH089D0 0,N0000B759 L031388,363371,375379,3803851040009137143 B798LL%U6V00WB928LB 21L%U1V00RCV19 70 L037425,394402,407411,4190401040009237143 B411/L%U1V00RB448KB411B498 723L%U1V00R L038463,431439,444448,4560401040009337143 N0000000000000B759B798LA 71 72B448/199 L038501,478482,487494,4980401040009437143 /080,006016,021BN32BV00L%U1V00RH089 L035536,506513,517521,5255331040009537143 D0 0,B601KB759B798LN580, 79 L027563,541542,547551,5565601040009637143 CV10 78B580/) 79L%U6V00WB928LB 21B525 L037600,571576,580588,5935971040009737143 U%U6MV727 801B 21L/39I98V637/261B669 L036636,606614,618625,6330401040009837143 U%U6EM%U6V00WB669 812A 71 82B637M/25243L039675,642650,658665,6690401040009937143 2F1V692/261U%U6RU%U1R.000122B 21 L032707,677679,687692,6977041040010037143 S 82M/27556, 80B525V750 791) 80M/28556 L038745,712719,723727,7357391040010137143 B593U%U6BB593H797H094Y/29094BIP4V13} L036781,750755,759763,7677741040010237143 BBBBBBB L007788,783784,785786,7877881040010337143 BBBBBB000H855 L013801,790791,792793,7947981040010437143 H099Y/29099MIG6846D842830U%U1BM/29/30 L037838,806813,820827,8320401040010537143 M%U1000RB856LB000D842866U%U1BS 71/30 L036874,847852,856863,8680401040010637143 V839/30BD842896.000190M846911M%U1000R L037911,883890,897904,0400401040010737143 B827E.000111B852H998H099Y/29099MII4989 L038949,917924,928932,9369431040010837143 D985960U%U6BU%U1EB999/311A 71/32 L032981,957962,967975,0400401040010937143 M%U6000WB957LB000S/32D985 16.000160B982L039 20,990995,999 03, 10 171040011037143 H 55M/35 35/I99H 35C 35/38B 32/B000 L035 55, 25 32, 36 40, 47 521040011137143 999999 HEADRA 999999 L027 82, 71 72, 73 79, 80 811040011237143 1401 AUTOCODER SYSTEM COPIED ON TAPE UNL039/21,040040,040040,0400401040011337143 IT 6 NBI L008/29)/22/22,/26/27,/28/291040011437143 I99U99} L010/39,/31/33,/36/39,0400401040011537143 N0000B759D0 0, L014388,380384,388040,0400401040C1013714L N00000000B759N0000 L018481,473477,040040,0400401040C1023714L B601KB759D0 0, L014550,542546,550040,0400401040C1033714L BIP9V13} L008781,040040,040040,0400401040C1043714L N000000,040040,040040,040040B000011637143 CONTROL 1500 PASS 1 UPDATE LIBRARY 011737153 U%U1R)?91?98M?30780L/39181M%U1101R L034V33,V05V12,V19V26,0400401040011837153 N0000000000000B759/180BM17BL24VV84?731 L038V71,V48V52,V56V60,V640401040011937153 VV84?791BV60BN94C011?36BK40SC008?39 L035W06,V80V84,V88V95,W000401040012037153 BX30SBP75UM008?39SA67VW56?911BM17 L033W39,W12W17,W24W28,W360401040012137153 VW56?911BM95BW28VW89?981C108?39BX30S L036W75,W48W52,W56W64,W710401040012237153 )?91BW89TBW48U%U1B/180)?91VQ01?791 L034X09,W80W85,W89W94,W98X021040012337153 C022?41BQ01/BO37BY06C022?41BY46/M?46218L039X48,X17X22,X26X30,X37X421040012437153 BO37SA67BO72BM17VX77?911BX57U%U1B L033X81,X53X57,X61X65,X73X771040012537153 /180)?91VV60?791BN94BO37SA67BL24 L032Y13,X86X90,X98Y02,Y06Y101040012637153 VV84?731VV84?791BL07BO72BM95BY10S101 L036Y49,Y22Y30,Y34Y38,Y42Y461040012737153 VY810212C024?41BX42SA?47099,023,?48 L035Y84,Y58Y65,Y70Y77,Y810401040012837153 BZ160B1,C0B2?41BZ16SA?49099BY85?0B0?53 L038Z22,Y93Z00,Z05Z12,Z160401040012937153 A?54?53BZ420B1,B!08,0B2H094A?49099 L034Z56,Z30Z38,Z42Z46,Z500401040013037153 C0B2?41BZ50/?0B0?58A?54?58C?53?58BQ59T L038Z94,Z64Z69,Z76Z83,Z900401040013137153 BK20S)?48)0!1)023V!27?481M?63218BO37 L036!30,!00!04,!08!12,!20!271040013237153 C?53A67B!70SA?49A67BM95BM17VQ84?911B!31L039!69,!38!43,!50!54,!58!661040013337153 VJ46?481BO72BM17C?58A67BJ10UVQ84?911 L036J05,!78!82,!86!93,!980401040013437153 B!78U%U1B/180S?49A67VY10?791BN94BO37 L036J41,J10J15,J19J26,J34J381040013537153 BJ77VJ73?731BO72S?49A67/180BJ26BM95 L035J76,J46J54,J58J65,J69J731040013637153 BL24VV84?731VV84?791BL07)?64BO72S?49A67L039K15,J81J89,J97K01,K05K091040013737153 BJ73V!00?731,?48B!04BM95BM17BM95 L032K47,K20K28,K32K36,K40K441040013837153 VK60?981BK40U%U6MM?67780) 79 80)/26/332L039K86,K56K60,K65K72,K79K831040013937153 /F1M%U1101RB593KBK90HL23M080180 L031L17,K88K90,K98L03,L07L111040014037153 MMB000HM08VL40?851BK401 L023L40,L19L20,L24L28,L36L401040014137153 )?73?79C020?72BL68/,?73BM00C020?78BL88/L039L79,L48L55,L60L64,L68L751040014237153 ,?79BM00C020?84BK36SBM09AB000)?85 L033M12,L84L88,L95M00,M05M091040014337153 BM05HM94M%U1101R,181N000000000B759B798LL039M51,M17M21,M29M33,M43M471040014437153 )?91?98C120?90BM91/,?91C111?97BM91/,?98L039M90,M59M66,M71M75,M82M871040014537153 B000HN31C180?27BN28SM%U6101WB928L/180 L037N27,M95M99,N06N11,N19N241040014637153 B000HN93/332/MA30251MA34275A?49A37 L034N61,N32N36,N40N41,N48N551040014737153 ZA372792FK/279MA632272FK L024N85,N69N70,N72N76,N83N841040014837153 /228B000HO36FK/332/M072271 L026O11,N90N94,N98O00,O04O051040014937153 M022221M020218M011212B000HO572FJ L032O43,O19O26,O33O37,O41O421040015037153 /332/BO58@B000HO71F1BN32 L024O67,O48O49,O54O58,O62O641040015137153 B000HP74,220214,207BP32106*M172271 L034P01,O72O76,O83O87,O950401040015237153 M120218M111212VP45?641,?64BP53M172273M L038P39,P09P16,P24P28,P32P391040015337153 MBP16DA67204ZA?49A672/332 L025P64,P41P45,P52P53,P60P611040015437153 /BO58@B000/332/MB072402 L023P87,P66P71,P75P79,P80P871040015537153 F1.000133BP90VQ210212C024?41BX22S L033Q20,P90P97,Q01Q09,Q160401040015637153 MB252992FL/299BL24VV84?731VV84?791 L034Q54,Q28Q29,Q31Q35,Q39Q471040015737153 BQ35MB382992FL/299)0!1023BQ35 L029Q83,Q59Q66,Q67Q69,Q73Q801040015837153 MB622992FL/299VR10?981BQ35MB80299 L033R16,Q91Q92,Q94Q98,R06R101040015937153 2FL/299MC022222U%U1B/180 L024R40,R18R20,R24R31,R32R371040016037153 BL24BR41 L008R48,R45040,040040,0400401040016137153 L039R87,040040,040040,0400401040016237153 L011R98)R88R88,040040,0400401040016337153 114999999 L038?36)R99R99,?28?31,0400401040016437153 DELETB A L017?53,?40?42,?47?48,?49?501040016537153 0 DELET V13INSER L020?73,?55?59,?64?65,?68?731040016637153 DELET REPET HEADR 999999 L024?97,?79?80,?85?86,?91?921040016737153 1401 AUTOCODER - LIBRARY CHANGESPAGE L037A34,?99A31,040040,0400401040016837153 SEQ LABEL OP OPERANDS L033A67,A38A64,040040,0400401040016937153 INPUT CARDS OUT OF SEQUENCE - START OVEL039B06,040040,040040,0400401040017037153 RSUBROUTINE UNKNOWNBAD STATEMENT L032B38)B07B07,B08B26,0400401040017137153 STATEMENT DOES NOT EXIST L024B62,040040,040040,0400401040017237153 SUBROUTINE UNKNOWN L018B80,040040,040040,0400401040017337153 END OF LIBRARY REACHED L022C02,040040,040040,0400401040017437153 } L001I98,040040,040040,0400401040017537153 BC03S L005W11,040040,040040,0400401040C0883715L BC15N L005W75,W75040,040040,0400401040C0893715L VX30C361BW12BC28S)C36BW76,C36BX30 L034C36,C11C15,C20C24,C28C321040C0903715L N00000000B759N0000 L018V51,V43V47,040040,0400401040C1053715L N0000B759N0000 L014M46,M38M42,040040,0400401040C1063715L N000000,040040,040040,040040B000017637153 CONTROL 2000 PASS 1 OUTPUT LIBRARY 017737163 ,?44L?44181//080,006016/332/ L028!27,!04!11,!12!16,!23!271040017837163 F1U%U1RM%U1101R/180,106116,121BL28E L035!62,!30!35,!43!47,!54!581040017937163 )R32F1BN591MQ90O69C020Q95BJ19S L030!92,!67!69,!73!74,!81!881040018037163 C020R00BN06/AR01O69DR01R02C008R05BK96S L038J30,J00J05,J12J19,J260401040018137163 M020218M011212BJ85TU%U1RL?44181M%U1101RL039J69,J38J45,J50J55,J620401040018237163 /180,106116,121M%U1101RBP67BQ06LC111R11L039K08,J74J81,J85J93,J97K021040018337163 BL05SC120R16BJ85/C008108BJ85/M008R05FK L038K46,K14K21,K26K33,K38K451040018437163 2SR48BN17FKBN81M%U1101RBP67 L027K73,K48K52,K56K58,K62K701040018537163 BQ06LC120R21BK58/U%U1BBM54AB!67MR28299 L038L11,K79K86,K91K96,L01L051040018637163 2/299MR31R05BK96BL60D)R32BL46G L030L41,L13L17,L24L28,L33L371040018737163 BL60AR01O69DR01R02BP19)R33BN59M%U1101R L038L79,L46L53,L60L64,L68L721040018837163 BP67BQ06LC111R39BM54SC120R44BM35/BN17 L037M16,L84L89,L96M01,M08M131040018937163 FKHO83M31BO97@SR48BN81,106116,121 L033M49,M19M26,M31M35,M39M461040019037163 BL72/332/FKMR622142F1 L021M70,M54M58,M59M61,M68M691040019137163 /180BM99R024U%U1R.000155BM884K8 L031N01,M75M83,M88M95,M99N001040019237163 BM83.000144BK96HN58MR67105MR72120 L033N34,N06N13,N17N21,N280401040019337163 BN47R024BN484MR77120B000HN80M?03227 L035N69,N43N47,N48N55,N59N631040019437163 2FK/228B000HO83C120?08BO05S L027N96,N71N73,N77N81,N85N921040019537163 VO70R321/332/BO84106*M172271M120218 L035O31,O05O09,O10O18,O250401040019637163 M111212DR48204ZDR48104MA?09R48M?10105 L037O68,O39O46,O47O54,O55O621040019737163 2/332/BO97@B000M172273M L023O91,O70O74,O75O80,O84O911040019837163 MBO39F1VP11R331BP19BN59BO80 L027P18,O93O97,O99P07,P11P151040019937163 HP66/332/M?34243M?38275A?09?41Z?41279 L037P55,P23P27,P28P35,P42P491040020037163 2FL/299B000HQ05H089Y?42089 L026P81,P57P59,P63P67,P71P751040020137163 BIY8113}BBBBBB L014P95,P90P91,P92P93,P94P951040020237163 BBBBBBB000 L010Q05,P97P98,P99Q00,Q01Q021040020337163 HQ38U%U1BM?42?43M%U1101RBQ39LB000U%U1B L038Q43,Q10Q15,Q22Q30,Q35Q391040020437163 S?09?43VQ22?43B.000191M%U1101RBQ10E L035Q78,Q51Q59,Q66Q74,0400401040020537163 .000111BQ352PRINTPUNCHD L024R02,Q86Q90,Q91Q96,R01R021040020637163 999999HEADRHEADRUNKNOWN999 L030R32,R06R12,R17R22,R29R321040020737163 999999HEADR END OF LIBRARY L035R67,R34R40,R45R49,R630401040020837163 INSERHEADRSEQ LABEL OP OPERANDS L036?03,R73R78,040040,0400401040020937163 HEADRA 1401 AUTOCODER - LIBRARYPAGE IL039?42,?09?10,?11?35,?39?421040021037163 } L002?44,?44040,040040,0400401040021137163 B?44 L004!72,040040,040040,0400401040C0913716L M?10R02M?64N80BN63!73} L022?65,?51?58,?62?65,0400401040C0923716L ,?65 L004!03,040040,040040,0400401040C0933716L L?65 L004!07,040040,040040,0400401040C0943716L L?65 L004J58,040040,040040,0400401040C0953716L N000000,040040,040040,040040B000021237163 CONTROL 1650 PASS 2 PROCESS IOCS-MAIN 1 021337213 H099H03HO66O75BM06021 )W18C007H48B!31S L038W87,W57W64,W72W76,W830401040021437213 S095C0080?0H099BZ35SBM060?0@AH49094BW92L039X26,W92W99,X03X08,X16X231040021537213 BO14E00B!89554B!89457BN37 L025X51,X31X34,X38X41,X45X481040021637213 452BO14D87BO14D74BZ81 L024X75,X55X59,X62X66,X69X731040021737213 B!89424B!89414B!71 B!89 L025Y00,X80X83,X87X90,X94X971040021837213 403BZ47393BV72373BV41020 L024Y24,Y04Y08,Y11Y15,Y18Y221040021937213 B!89368BO14D55BV41011BV41 L025Y49,Y29Y32,Y36Y39,Y43Y461040022037213 010BO14D30BO14D23BV41009 L024Y73,Y53Y57,Y60Y64,Y67Y711040022137213 B!89547B/13342BV41206B!06 L025Y98,Y78Y81,Y85Y88,Y92Y951040022237213 L%U1001RBZ21L)W49B101U%U1BN288 L031Z29,Z00Z08,Z13Z17,Z21Z261040022337213 .BZ00S100,021BXK7BN55L0A9393 L028Z57,Z31Z35,Z39Z43,Z47Z511040022437213 V333W181BN55L0A9383B333HO66Z95BO14E20 L037Z94,Z66Z70,Z77Z81,Z88Z921040022537213 L0A9429BO75HO66!20BO14E13L0A9565BO75 L036!30,!02!06,!13!17,!20!271040022637213 MH52094D008093S100BN55L0A93M9LH53343 L036!66,!38!45,!49!53,!600401040022737213 BM06D022404YH54404BM06H089V333W181 L034J00,!71!78,!85!89,!930401040022837213 M0 2089BN55L0A90 0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J351040022937213 M086I97,I92M773I92MH55I85B750DH56768 L036J74,J46J50,J57J64,J680401040023037213 /086MH61020H099622BK01/086,001H089021 L037K11,J79J86,J93J97,K01K051040023137213 MH62073M0?0L89H094M089H65P0!10 0H089 L036K47,K19K26,K30K37,K440401040023237213 MH670 0BL01073 MH65089,0 0MH69080M079 L037K84,K55K63,K70K74,K810401040023337213 )0 0BJ35)I92BJ97M0?00?0H099C0?0H54 L034L18,K89K93,K97L01,L08L121040023437213 Q099BL12SAH70099BL470?0,BK19MH690 0 L035L53,L23L28,L35L43,L470401040023537213 MH54073BJ35)I92DH71768BU60 L037L90,L61L65,L69L76,L800401040023637213 S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M251040023737213 B721BM06006*BW50DH56768H099567BO98 L034M63,M34M42,M46M53,M600401040023837213 HQ99U97C018H79/086MH84020BN05SHL79V06 L037N00,M71M78,M82M89,M940401040023937213 BK01HL79N16BK01L%U1341RU%U1B)568BU60 L036N36,N05N12,N16N24,N29N331040024037213 BN55M0A9452B!89442HO13,021C0B2H69 L033N69,N41N48,N52N55,N59N631040024137213 AH70099BO02SBO060B0,C099H86BN59/,W18 L036O05,N77N82,N90N97,O020401040024237213 ,0B1B000H094M0!2H89B 06MH89094CW260!0 L037O42,O10O14,O18O25,O29O361040024337213 H094M0!0089Q094BO87SBO750!0@BO36 L032O74,O47O54,O58O63,O710401040024437213 V333W181BO25LH535X6BO75HP20/186,101 L035P09,O83O87,O94O98,P02P061040024537213 M086186B000 L%U1101R,332M773332 L033P42,P17P21,P24P32,P360401040024637213 M%U1101RBS22NP23B101BS22NA35MI19340 L035P77,P51P55,P59P63,P67P711040024737213 B119CU%U4BHN00Q88H6651C018H92BQ96/ L034Q11,P83P88,P95P99,Q00Q071040024837213 BC19BR43BS22NA35CI95I02B?05SCI29H95 L035Q46,Q16Q20,Q24Q28,Q35Q401040024937213 BQ60/B205B220CI29H98B119SMI97086,I10 L036Q82,Q52Q56,Q60Q67,Q72Q791040025037213 BA44GVR04I101BO98BU97VR27I091DH56768 L036R18,Q88Q96,R00R04,R120401040025137213 BJ35BR32U%U4BL331186BU97H?04,I03 L032R50,R23R27,R32R39,R43R471040025237213 )W18S100BN55?0A9I02VR93W181BN55?0A9I07 L038R88,R55R59,R63R70,R78R821040025337213 )I03/086,001B000V?37I031CI95I07B?37S L036?24,R93R97,?01?05,?13?201040025437213 BS22NA35B?13BQ88A1C018H92BQ12S L030?54,?29?33,?37?42,?43?501040025537213 C018H95B?75/B205B175C018H98B138S L032?86,?62?67,?71?75,?820401040025637213 VA03I031)I10BQ83BC19)I09H182Q72H234 L035A21,?95?99,A03A07,A11A181040025737213 MI08131BQ40Q88M%U4I12RVA85I091H684A74 L037A58,A29A33,A36A44,A520401040025837213 HB02B68)I10B642M331086,I09H684B03 L033A91,A66A70,A74A81,A850401040025937213 HM09C08B642/086VB41I101BC34A1C018H92 L036B27,A99B03,B07B15,B20B211040026037213 BB68/BC19BR43BC49CI95I02BB72S,I10 L033B60,B33B37,B41B45,B52B571040026137213 MI97086B685)I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B961040026237213 NA35BB84HB71M10BB03HC33M086331B000 L034C33,C04C08,C15C19,C23C301040026337213 ,I10MI08B52BB41HC80BS22NA35BC53I86Y L035C68,C38C45,C49C53,C57C611040026437213 BC53I86ZB000@001INP002OUT L025C93,C77C81,C82C85,C88C911040026537213 003TAP004REA005PUN008 L021D14,C97D00,D03D06,D09D121040026637213 CHE006PRI@007LOA@ L017D31,D18D21,D24D25,D28D311040026737213 012BLO013UNB014FIX015 L021D52,D35D38,D41D44,D47D501040026837213 VAR@081STA082NON083 L019D71,D56D57,D60D63,D66D691040026937213 TM @084ALL085IDE@ L017D88,D75D76,D79D82,D85D881040027037213 199UNL200NOR@2019 L019E07,D92D95,D98E01,E02E051040027137213 20212 @076REC@I9C L017E24,E11E14,E15E18,E21E221040027237213 OUTI9DINP@045REL046 L019E43,E28E31,E34E35,E38E411040027337213 STO006OVE@007TAP008 L019E62,E47E50,E53E54,E57E601040027437213 REA009PUN010PRI@011 L019E81,E66E69,E72E75,E78E791040027537213 STA012NON013MIX014CHE L021F02,E85E88,E91E94,E97F001040027637213 015IDE026RDL016TM @ L019F21,F06F09,F12F15,F18F211040027737213 0181 0192 0203 021 L021F42,F25F28,F31F34,F37F401040027837213 4 0225 0236 0247 L021F63,F46F49,F52F55,F58F611040027937213 0258 @027729028733 L019F82,F67F70,F71F74,F77F801040028037213 @029NOR030UNL@037 L017F99,F84F87,F90F93,F96F971040028137213 REC038HAS@034CLE033 L019G18,G03G06,G09G10,G13G161040028237213 PRO032SCA@OVEFORCOB L019G37,G22G25,G28G29,G32G351040028337213 VARCHAFILMODCARALTREC L021G58,G41G44,G47G50,G53G561040028437213 SIZPADBLOIOAWORINDEOF L021G79,G62G65,G68G71,G74G771040028537213 WLRTOTTYPCHEHEASERREE L021H00,G83G86,G89G92,G95G981040028637213 REW@TAPCHEDIOFEAIOD L019H19,H04H05,H08H11,H14H171040028737213 LABALTEXIVARCOUDRIRWD L021H40,H23H26,H29H32,H35H381040028837213 REAINPEX71 8$ L014H54,H44H47,H49H50,H53H541040028937213 *555555 , L015H69,H56H57,H62H63,H66H681040029037213 16 DTF3333352 L020H89,H71H72,H77H80,H85H871040029137213 ALTJOBCTL N L019I08,H93H96,H99I03,I04I081040029237213 L002I10,I10I12,040040,0400401040029337213 } L001I98,040040,040040,0400401040029437213 006STO046 L009E49,E47040,040040,0400401040C0063721L U07 L003P23,040040,040040,0400401040C0073721L N000000,040040,040040,040040B000029537213 CONTROL 001 PASS 2 PROCESS IOCS-MAIN 2 029637223 00000000000000U%U4RU%U5RU%U6R L029115,001092,097101,1061111040029737223 BP32BB774C018W05B157/F1M0802802 L031146,121125,132137,1391461040029837223 F1B721B774C018W08B642/B6230241D022191 L037183,149153,157164,1691771040029937223 B623W11 BBB627 L014197,192193,194201,2060401040030037223 B681* ,;; L017349,337338,341342,3433441040030137223 ;;;;;;; L007356,351352,353354,3553561040030237223 ;;;;;;; L007363,358359,360361,3623631040030337223 ; ;; ; ; ; L030393,365369,370374,3840401040030437223 ;; ; ;; ;; L037430,404405,415425,4264301040030537223 ;;;; ; ; ; L022452,432433,434435,4384431040030637223 ; ; ; ; L035487,458468,478040,0400401040030737223 ; ; ; L030517,498508,040040,0400401040030837223 ; ; ;;;;; L034551,528538,548549,5505511040030937223 ;; ; , L017568,555556,565566,5675681040031037223 ;;; ;;; L015583,570571,572581,5825831040031137223 ;;;;;;; L007590,585586,587588,5895901040031237223 ;;;;;;; L007597,592593,594595,5965971040031337223 ;;;;;;; L007604,599600,601602,6036041040031437223 ;;;;;;; L007611,606607,608609,6106111040031537223 ;;; ;;; L011622,613614,615620,6216221040031637223 S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,6496541040031737223 BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,6856931040031837223 B713SB721B821BO98BJ68H761M086I97 L032731,705709,713717,7217251040031937223 ,I98M773I98NW17I86BS22N764B000000 L033764,736743,750754,7587621040032037223 M%U6I12W}H809/086B798CBM46A1K8061 L033797,774778,782787,7927931040032137223 BS22N812B000M46M%U4001R)W18B681021 L035832,802806,810813,8218251040032237223 HO66O75S095H099H46C0080?0H099B984S L034866,840844,851858,8620401040032337223 B6810?0@AW19094B851B/13612B/73 L033899,875882,886890,8938971040032437223 BO14F95BO14F82BO14G08B/13 L025924,904907,911914,9189211040032537223 611B992 B/13593BO14F20 L024948,928932,935939,9429461040032637223 BO14E77BO14E52B/47581B/47 L025973,953956,960963,9679701040032737223 620BO14E33S100B8Q6LW20571BO14 L029 02,977981,984988,9929991040032837223 F69H/04MW23W26S095C0B2W28,021B 90S L034 36, 06 10, 17 21, 28 321040032937223 B/050B1,C099W30B 97SM0B1WK4AW31094 L034 70, 45 52, 57 64,0400401040033037223 B/050943AW31099B 21AW31099,W18B000BN55 L038/08, 79 86, 90 97,/01/051040033137223 B/01H089M0 2089C023W34B/43/LW200 0B333 L038/46,/13/17,/24/31,/36/431040033237223 H089M0 2089BN55L0A90 0B681HO66/87BO14 L037/83,/51/58,/62/69,/73/801040033337223 G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S181040033437223 H094HT43M0!3094M0!8T01M0!0T13,T19 L033S54,S26S30,S37S44,S510401040033537223 M0!7T21AW39T21)T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S870401040033637223 M%U0000RBT35T01WB000KBS94000}BBB L032T25,T02T10,T15T23,T24T251040033737223 BBBBBBB L007T32,T27T28,T29T30,T31T321040033837223 BBBT44LB000SW31W41DS97T61U%U0B L030T62,T34T35,T40T44,T51T581040033937223 BT83T01WVU22W41KBS94AW31W43U%U6E L032T94,T71T79,T83T90,0400401040034037223 BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U291040034137223 MT01U48M%U0000R.000201BT40L622567L L034U67,U41U49,U56U60,U670401040034237223 H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V011040034337223 M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V411040034437223 M0 2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V761040034537223 LW01373SW02B3330000?JOBCTL456 L029W11,V90V94,V98W03,W06W091040034637223 MDTFW 7$ L009W20,W13W14,W17W18,W19W201040034737223 521YESTAP L017W37,W24W27,W29W31,W32W351040034837223 129 3U9 L009W46,W40W41,W42W44,0400401040034937223 } L001W49,040040,040040,0400401040035037223 DT01U27 L007S86,040040,040040,0400401040C0083722L B634006*B670S L013661,657040,040040,0400401040C0433722L DS97U17 L007S86,040040,040040,0400401040C0833722L .000262BS87.000290 L018U28,U18U22,040040,0400401040C0843722L N000000,040040,040040,040040B000035137223 CONTROL 341 PASS 2 COPY DTF TABLE 035237233 ,;; ;;; L012352,342343,344350,3513521040035337233 ;;;;;;; L007359,354355,356357,3583591040035437233 ;;;;; ;; L010369,361362,363364,3653691040035537233 ; ; ; ;; L035404,374384,394404,0400401040035637233 ; ;; ;;;; L028432,415425,426430,4314321040035737233 ;; ; ; ; ; ; L035467,434435,438443,4534581040035837233 ; ; ; L030497,478488,040040,0400401040035937233 ; ; ; L030527,508518,040040,0400401040036037233 ; ;;;;; ; L027554,538548,549550,5515521040036137233 ; ; } L014568,556565,566567,5680401040036237233 N000000,040040,040040,040040B000036337233 CONTROL 101 PASS 2 ALTER OVERLAY 036437243 )332U%U1BU%U1BBP63MI97086B662CH182Q20 L037137,105110,115119,1261311040036537243 B1670241D022160B167237 BBB171S337 L033170,146153,161162,1631671040036637243 B183B721B?37H204M238Q67M238?82B000 L034204,175179,183187,1942011040036737243 H219,Q51?66B000MI97086B721BQ20456 L033237,209216,220227,2312351040036837243 N L001238,246040,040040,0400401040036937243 } L001332,040040,040040,0400401040037037243 N000000,040040,040040,040040B000037137243 CONTROL 341 PASS 2 END OVERLAY 037237253 D432768HJ60433L186086BJ35)I92,606 L033373,348355,362366,3700401040037337253 M773606BS22N412)606U%U5RBS22N423 L032405,381385,389393,3984021040037437253 BZ00 L%U5434W L%U1W50R5N L028433,410413,421424,4324331040037537253 C!73W14B450SBT08BO33U%U5RU%U1BU%U1B L035468,441446,450454,4594641040037637253 U%U6MU%U6RMW01003LI98036M%U5001WU%U5M L037505,474479,486493,5010401040037737253 U%U4R)187036)100M%U1I97R,I98B543KB522 L037542,511518,522530,5345391040037837253 M%U1I97R,I98S605604V574604KB543/466/ L036578,551555,562570,5745781040037937253 /BW50N594BM65Y34L%U1K10R11 L026604,580584,588592,5956031040038037253 A} L002606,606040,040040,0400401040038137253 U07 L003423,040040,040040,0400401040C0093725L BT08/BO33BH50 L013453,446450,040040,0400401040C0103725L N000000,040040,040040,040040B000038237253 CONTROL 1650 PASS 2 MACRO GENERATOR 038337263 H094HX70M0!3094M0!8X29M0!0X41,X47 L033W82,W54W58,W65W72,W790401040038437263 M0!7X49AY93X49)X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X150401040038537263 M%U0000RBX62X29WB000KBX22000}BBB L032X53,X30X38,X43X51,X52X531040038637263 BBBBBBB L007X60,X55X56,X57X58,X59X601040038737263 BBX71LB000SY96Y95DX25X88U%U0BBY10X29W L037X97,X62X67,X71X78,X85X901040038837263 VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15 L036Y33,Y06Y10,Y17Y22,Y300401040038937263 SY98.000202BX15.000200BX15EMX29Y75 L034Y67,Y38Y45,Y49Y56,Y610401040039037263 M%U0000R.000201BX67HEADR129 L028Y95,Y76Y83,Y87Y92,Y94Y951040039137263 1 L003Y98,Y97040,040040,0400401040039237263 M340H10MMW12!55BW50NZ68)W49,I98 L031Z30,Z07Z08,Z15Z19,Z23Z271040039337263 M187I98)I95I97BZ77BU%U1RM!55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z661040039437263 L%U1001RBW50NZ68) 43U%U1RMH10W01M!58L04L039!07,Z77Z81,Z85Z89,Z94!011040039537263 HN73156M!59O41M!59O37M!59O89B101H07* L036!43,!15!22,!29!36,0400401040039637263 M!59759B101 106N L016!59,!51!55,!56!59,Z000401040039737263 VJ080 3SVD410 3BMH44086)0 10 4B?41 L034J07,!82!90,!97J04,0400401040039837263 MW140 3B!97MH45L01MH44N66MU60075BJ58 L036J43,J15J19,J26J33,J400401040039937263 MH44K20MU62075MW08094,021BK90092Y L033J76,J51J58,J65J69,0400401040040037263 C0!0H48BK09SC0!0023Q094BK16SBJ69M0230!0L039K15,J84J89,J96K00,K05K091040040137263 )021NR17BO33BL01020DM011466H099S090 L035K50,K20K24,K28K36,K43K471040040237263 BM19,001L0/90?0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K861040040337263 MH49086BO33B467BU15LH500?0/086M466011 L037L26,K97L01,L05L09,L16L201040040437263 M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L590401040040537263 )024BO33/086BL010?0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M001040040637263 M0?00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M351040040737263 C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M740401040040837263 BN09SBN09072 BN02,0S2AH59089B000?H64090L039N19,M86M94,M98N02,N09N131040040937263 BM550S1@SH66090BN20HO21BN54AH59089 L034N53,N28N35,N39N43,N470401040041037263 C089H61BO06/NG80B653NMU62075BO33 L032N85,N61N66,N70N74,N75N821040041137263 BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O221040041237263 M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O550401040041337263 MW13I85,I98M187I98BW50NO24M958X65B000 L037O99,O70O74,O81O85,O89O961040041437263 MH67075BO33AH59W01M018192SV19SS L031P30,P07P11,P18P25,P29P301040041537263 SSSSSSS096 L010P40,P32P33,P34P35,P36P371040041637263 AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P710401040041737263 AH68095BH330953BM19L0/90?0H099BV200S1, L038Q16,P86P94,P98Q05,Q090401040041837263 BV650S0,LH690?0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q500401040041937263 BQ65UU%U1R,100BW50NB18C020Y91BQ65/ L034Q88,Q60Q65,Q69Q73,Q77Q841040042037263 C008H75BU63SC008192BQ65/BR65MH45K20 L035R23,Q96R01,R08R13,R170401040042137263 MU60075BO33BR65020DMH80020)188MU61075 L037R60,R31R35,R43R50,R540401040042237263 BO33/086,001100M187100BW50NB29C020Y91 L037R97,R65R69,R76R83,R87R911040042337263 M008H72BL01SC008H83B?26/,188?H86090 L035?32,?05?10,?17?22,?260401040042437263 BB380 1)SH66090C089H88B?33/S090BM19 L035?67,?41?48,?55?60,?640401040042537263 )0210S1C089H90BA26TC0S1H58B?64/BA26006*L039A06,?75?82,?87?94,?990401040042637263 ,0S1MW12072M072)0S1MH93089HJ07A48 L033A39,A11A18,A22A26,A330401040042737263 B 570 1)SH66090C089H95BA40/HJ07?41 L034A73,A48A55,A62A67,0400401040042837263 N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B070401040042937263 BR50U63M%U1001R 44M%U1001RB?410 2 L034B45,B16B19,B27B30,B380401040043037263 ,0 10 4VC560 3KB/19M099H98S099W22 L033B78,B53B61,B65B72,0400401040043137263 YW16W22MI01099SW22099MI02097C099I05 L035C13,B86B93,C00C07,0400401040043237263 BC78TM0G7073HC47)0 4MH98099M0?0000)0 1 L038C51,C19C26,C30C34,C41C481040043337263 B?41M069072MW01)0 10 4B?41L073I84 L033C84,C56C63,C67C74,C780401040043437263 )0 10 4MW14072BD22099HMI84072HC47BD33 L037D21,C92C99,D07D14,D180401040043537263 MI84071HC47)I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D531040043637263 )188BR65MW01011BA67HG45U%U1R)V98 L032D91,D64D68,D75D79,D83D881040043737263 ,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E231040043837263 BF56SMW08089BD92087Y,006C0 0008Q089 L035E64,E35E42,E50E54,E610401040043937263 BE42/VD920 11)006,0 1,V98BW50NT44 L033E97,E70E78,E82E86,E90E941040044037263 C019W05BJ19SC020U59BJ19SC020Y91BE23S L036F33,F05F10,F17F22,F290401040044137263 MU61075LI98100BO33BE90MW08089BG26087Y L037F70,F41F48,F52F56,F630401040044237263 C0 0H48Q089BG26SVF630 11VD83V981BT75 L036G06,F78F82,F87F95,G030401040044337263 ,0 1M0 3011BO33BF63/!73/)100 L028G34,G11G18,G22G26,G30G311040044437263 MH75H72B000HG57S090V0000!01SI08095 L034G68,G42G46,G50G54,G620401040044537263 AH59089BG54/086BW50NT44MU60075,001 L034H02,G76G80,G84G88,G92G991040044637263 BN82 MH67075BK97M099UR2BV46M099UR2 L037H39,H07H11,H18H22,H29H331040044737263 BP94BN 7 L014H53,H44H45,H46H49,H50H511040044837263 DCW 1525101?R L014H67,H57H59,H60H62,H65H671040044937263 3, 999B )00690 L019H86,H69H70,H73H76,H81H841040045037263 155101504 I99I L016I02,H89H91,H94H96,H99I021040045137263 I9FM10 L006I08,I06I07,I12040,0400401040045237263 } L001I98,040040,040040,0400401040045337263 BV35 L004H32,040040,040040,0400401040C0013726L DX29Y54 L007X14,040040,040040,0400401040C0113726L BM05BL01020DL011466 L019K42,K28K36,040040,0400401040C0123726L LH460?0 L007L15,040040,040040,0400401040C0133726L )024BO33/086BL010?0 MH69018M099094BG46 L038L89,L56L60,L64L72,L79L861040C0143726L M0?00S1Q099BL45BO33,006BK2852 L029M18,L97M01,M05M09,M13M171040C0153726L C0S1H47BN09SAI07089C089M18BM23/C072H47 L038M80,M50M55,M62M69,M740401040C0163726L AI07089B000?I11090 L018N19,N09N13,040040,0400401040C0173726L SI08090BN20HO21BN54AI07089C089M18 L033N60,N35N39,N43N47,N540401040C0183726L MH89075BO33AI07W01 L018P17,P07P11,040040,0400401040C0193726L AH90095 L007P47,040040,040040,0400401040C0203726L AH90095 L007P85,040040,040040,0400401040C0213726L LQ650?0 L007Q31,040040,040040,0400401040C0223726L SI08090 L007?47,040040,040040,0400401040C0233726L C089I10BA26TC0S1H47 L019?93,?82?87,040040,0400401040C0243726L SI08090 L007A54,040040,040040,0400401040C0253726L AI07089 L007G75,040040,040040,0400401040C0263726L MH89075 L007H17,040040,040040,0400401040C0273726L U%U5BBW50NV89B454DCW L020H69,H55H59,H63H67,0400401040C0283726L R3 L002H90,H90040,040040,0400401040C0293726L 510 L003I11,040040,040040,0400401040C0303726L BW37021, L008O05,040040,040040,0400401040C0443726L NB11 L004Q76,040040,040040,0400401040C0453726L NB22 L004R90,040040,040040,0400401040C0463726L BB310 1) L008?40,040040,040040,0400401040C0473726L N466011MH45A67C019W05BJ44SC020U59BJ44S L038B04,A74A81,A88A93,B000401040C0483726L BR50U63M%U1001R 44M%U1001RHJ07?41 L033B37,B09B12,B20B23,B310401040C0493726L MI06A67 L007D59,040040,040040,0400401040C0503726L DX25Y44 L007X14,040040,040040,0400401040C0853726L .000262BX15.000290 L018Y55,Y45Y49,040040,0400401040C0863726L N000000,040040,040040,040040B000045437263 CONTROL 001 PASS 2 INITIAL ASSEMBLY 045537273 000000000000000 L015101,001092,097101,0400401040045637273 }00*** L006192)187187,190040,0400401040045737273 }/!73/B1181891B132 L018117)100100,101105,1061141040045837273 M959764M959780,885,779,762B467H07* L034151,125132,136140,1440401040045937273 M959526M959533B467 L018169,159166,201461,0400401040046037273 B653,001HO99467B758006*C020964BH11S L035501,471475,482490,4970401040046137273 C020969B758SC018972B795SC020977BU33S L036537,509514,521526,5330401040046237273 C020982B857SC018985BU78SC019W05BJ51S L036573,545550,557562,5690401040046337273 C020U59BJ51SC020990B918SH099T74C0180?0 L038611,581586,593598,6050401040046437273 H099BP00SB6330?0#B605B758020 B758016 L037648,616621,629633,6410401040046537273 BP00H696/086B677CB934A1 L023671,653657,661665,6666711040046637273 K6931BW50N699B708074NB471934M%U5001R L036707,677681,685693,6977001040046737273 )665779D991703)762885C!73999B745SBT08 L037744,715722,729736,7410401040046837273 M994U62MMB693BO41CNM995763 L026770,752753,754758,7637641040046937273 BO41B795C8H917803M959O37BO33B653 L032802,775780,781788,7957991040047037273 M996O37H917471B775008*C016985BU78S L034836,810817,825832,0400401040047137273 C016972B775/BO33B467C!73999B758SBT08 L036872,844849,853857,8648691040047237273 BO33B467B896C1K1M959763HX65X71 L030902,877881,886887,8898961040047337273 HX70914BX71B471C!73999BS64/B758/086 L035937,910914,918925,9309341040047437273 ,001M 05019BU78881X71NCHAIN L027964,942949,953956,9599601040047537273 MLCWAENTMA EX ENDLTORG4 L027991,970973,978983,9869911040047637273 SCR8B END$$$ L014 05,995996,997 00,0400401040047737273 U%U1RSH72BL01VD680 3KB/19MW160 5M089W11L039 82, 49 53, 57 65, 69 761040047837273 M099094BG46AW11089M0?00 1MW11089BA48 L036/18, 90 94,/01/08,/150401040047937273 HS63MW16099MW16W19D0 2W19SW17W19 L032/50,/23/30,/37/44,0400401040048037273 V/70W19KAW18099B/44B!74UI00MW16W19 L034/84,/59/66,/70/78,0400401040048137273 MUI2099D0 3W19SW17W19M0?00?0QW22 L032S16,/92/99,S06S13,0400401040048237273 B!740?0,VS44W19KMW22099B/99B!740?0; L035S51,S25S33,S40S44,0400401040048337273 VD410 3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S861040048437273 MT58021MU61075BK97HT41,001/186L086186 L037T26,S97T04,T08T12,T16T201040048537273 BD79L186086B000D83M%U1001RLTORG*# L033T59,T31T38,T42T45,T53T591040048637273 RLSGETPUTDTFOPEHU14/086 L023T82,T63T66,T69T72,T75T791040048737273 MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U150401040048837273 MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U551040048937273 ZYWBT75M192011BK97BW50 L022U81,U61U62,U63U67,U74U781040049037273 NV89B434466 L011U92,U86U90,U93U96,U99V021040049137273 LW400?0H099 L011V30,V05V08,V11V14,V17V271040049237273 AW18095BH220953AW41089,0S1BV200S1, L034V64,V38V46,V53V57,0400401040049337273 M095H10BN39MH10095BP79 L%U5434R0000 L037W01,V72V76,V83V87,V90V991040049437273 CALL!73 A3 L018W19,W06W09,W12W17,W18W191040049537273 ORG LBUNKNOWN*N L019W38,W23W28,W29W30,W37W381040049637273 D;1 L003W41,W40W41,040040,0400401040049737273 } L001W49,040040,040040,0400401040049837273 AW18095BH220953LW400?0H099 L026V45,V27V35,V42V42,0400401040C0023727L B1321891N132 L012117,114040,040040,0400401040C0313727L Y34 L003V89,040040,040040,0400401040C0323727L MT31075 L007S77,040040,040040,0400401040C0513727L MU78086MW36020MU61075MW48006 L028U10,T90T97,U04040,0400401040C0523727L MU78L01MU82N66BE90MU62075BO33M/92018 L036U50,U22U29,U33U40,U440401040C0533727L LW280?0H099AW29089 L018V52,V42V46,040040,0400401040C0543727L ;1UNKNOWNMH10095BV20* L021W48,W29W30,W37W44,W480401040C0553727L BO48C L005762,040040,040040,0400401040C0873727L N000000,040040,040040,040040B000049937273 CONTROL 001 PASS 2 ALTER ASSEMBLY 050037283 000000000000000 L015101,001092,097040,0400401040050137283 } L001100)100100,101040,0400401040050237283 }00*** L006192)187187,190040,0400401040050337283 /!73//086BW50N132B141074NB541 L029129,105106,110114,1181261040050437283 141M%U5001RM172N74M176B467/086BW50 L034163,133141,148152,1561601040050537283 N132BN751/086 L013176,168172,173201,4610401040050637283 HL04510C!73W14B506SBT08B506C!73W14BS64/L039505,474481,486490,4945011040050737283 B525B686CB686A/0861H509O33M 15U62 L033538,510515,520524,5255321040050837283 MMC018 18B697006*B697/S090BM19 L030568,540541,548556,5615651040050937283 ?0/9 22BW50N922M 23I96,I98CI95 22B631S L038606,576580,584591,5956021040051037283 CI29 26B 02SBW50NO24B576B6510S0,BW50 L036642,614619,623627,6316391040051137283 NO24BL01BM19?0/9 22CI95 22B931SBW50 L035677,647651,655662,6696741040051237283 N922B662M 27602B576,001HO99L01BO48006* L038715,682686,693697,7017081040051337283 C018 30BO48SC018 33BH11SC018 36B879S L036751,723728,735740,7470401040051437283 C018 39BU33SC018 42B474SC018 26BU78S L036787,759764,771776,7830401040051537283 C019W05BJ51SC020U59BJ51SC020T57B494S L036823,795800,807812,8190401040051637283 H099T74C0180?0H099BP00SB8590?0#B831 L035858,831838,842847,8550401040051737283 BO48020 BO48016 BP00BO331B879008* L033891,867875,879883,8840401040051837283 C016 26BU78SC016 36B879/B506000M%U4I12RL039930,899904,911916,9209231040051937283 B943I86RBL01BW50N922CI31W16B943SM 27958L039969,939943,947951,9589631040052037283 B943I86SB943I86CU%U4BM943958B510MI97086L039 08,978986,991998, 020401040052137283 BU78SCRALT RENDN L019 27, 13 16, 19 23, 24 271040052237283 MLCCHAENTMA EX } L016 43, 31 34, 37 40, 430401040052337283 Y34 L003922,040040,040040,0400401040C0333728L N000000,040040,040040,040040B000052437283 CONTROL 2210 PASS 3 INITIALIZATION 052537313 H099HK82YM60099MII0K73DK69K49MK73L82 L036K45,K14K18,K25K32,K390401040052637313 U%U0BBL55K73WMM60M61M%U0000RBK83LB000 L037K82,K51K59,K66K74,K790401040052737313 DK69K93U%U0BSM62M61VK66M61BDK69L23 L034L16,K90K95,L02L10,0400401040052837313 .000390MK73L38M%U0000RBK46E.000302BK79 L038L54,L24L31,L39L44,L510401040052937313 U%U1EBL92M635AM62M64M%U0000WBK46LBK79 L037L91,L60L68,L75L83,L880401040053037313 SM64DK69M09.000360BL75H099HM52YM60099 L037M28,L96M03,M10M14,M18M221040053137313 BIH8000}BBBBBB L014M42,M37M38,M39M40,M41M421040053237313 BBBBBBB000 L010M52,M44M45,M46M47,M48M491040053337313 3 999#I A L012M64,M54M59,M60M61,M62M631040053437313 U%U6RU%U5R/I99L%U1001RN000BK10L,I89187 L038N02,M70M75,M79M87,M91M961040053537313 )?03/080,A69U%U4RMR20M35MR21573MR21558 L038N40,N07N11,N15N20,N27N341040053637313 M%U5101RBM14BK10LU%U5RM103R24?R27184 L036N76,N49N53,N58N63,N700401040053737313 B524BQ53106*C118R30BQ53/MR24108M%U4101WL039O15,N81N89,N96O01,O080401040053837313 N000BK10LAR31184B524MR32573MR33558 L034O49,O20O25,O32O36,O430401040053937313 C118R36BQ85//000HO85HR39VP02O852/I9I L036O85,O57O62,O66O70,O74O821040054037313 HO85CO85R42BO82/MR43R44VP54R39BMR45R44 L038P23,O90O97,P02P09,P170401040054137313 VP54R39KMR46R44VP54R39SMR47R44C121R44 L037P60,P32P39,P47P54,0400401040054237313 BP97S/332/MR892422BP88@BP90 L027P87,P66P70,P71P78,P79P841040054337313 F1MR44121M122M53?M53089SR91090A089 L034Q21,P90P97,Q04Q11,Q180401040054437313 MR/1M55C122R47B419TBQ991241BQ92U%U6B L036Q57,Q29Q36,Q41Q49,Q530401040054537313 M174173MR96120MM174115MBO01MR99463 L034Q91,Q65Q72,Q73Q80,Q81Q851040054637313 M?00M59M?02M55B41903071115 L026R17,Q99R06,R10R12,R14R161040054737313 113N 101JOBAB L015R32,R21R22,R25R28,R31R321040054837313 MCTL I996 5 L013R45,R34R37,R40R43,R44R451040054937313 43 L002R47,R47040,040040,0400401040055037313 INCORRECT PROCESSOR MACHINE SIZE SPECIFL039R86,040040,040040,0400401040055137313 IED3?JOB 634A L014?00)R87R87,R90R92,R97?001040055237313 03} L003?03,?03040,040040,0400401040055337313 HR39YP19P34BP191216YP97P34BP191215 L034O99,O70O77,O85O92,0400401040C0563731L YP31P34BP191214BP97CP34R39BP66U/I9IHP34L039P38,P07P15,P19P26,P31P351040C0573731L CP34R42BP31/BP97 L027P65,P46P51,P55040,0400401040C0583731L MR47121 L007P96,040040,040040,0400401040C0593731L N000000,040040,040040,040040B000055437313 CONTROL 001 PASS 3 LEFT HAND IMAGE 055537323 00000000000000 L014100,092097,101101,1191161040055637323 L001001,106121,181185,0400401040055737323 } L001187)187187,333372,3493601040055837323 L%U1M65RN000BK10LMM59B93L%U1626R L032450,371408,427431,4364431040055937323 N000BK10LB626L%U1626RN000BK10LU%U1B L035485,455460,464472,4764811040056037323 U%U1BV661H091B638L%U1626RN000BK10LB630 L038523,491499,503511,5155201040056137323 H553B554MI82180MMMM L019542,528532,539540,5415421040056237323 MI88186B000H585MR43M35M%U6I03RBM14BK10LL039581,550554,558565,5735771040056337323 B000H625)121M%U4101WN000BK10L,121 L033614,586590,594602,6066111040056437323 AR44184B0000} L013627,622626,627040,0400401040056537323 N000000,040040,040040,040040B000056637323 CONTROL 2465 PASS 3 RIGHT HAND IMAGE 056737333 HO46C118A56BP55SM118094A118093A118092 L037N01,M69M76,M81M88,M950401040056837333 A116094SA60095VN09095BLBN9A69QN42S096 L037N38,N09N16,N24N31,N350401040056937333 L000A69QN42BP28A69@CA69118BN39/LA66A69 L038N76,N46N50,N58N65,N700401040057037333 CA71A69BO47SCA69A73BO83SCA69A75BO83S L036O12,N84N89,N96O01,O080401040057137333 MA69115H099C099A78BO43SM?600?0B000 L034O46,O20O24,O31O36,O430401040057237333 C123A81B464SC352A85B503SV630?021B638 L036O82,O54O59,O66O71,O790401040057337333 VP17A68BLA67A69BO13119 MA86A69BO13 L034P16,O91O98,P06P13,0400401040057437333 LA87A69BO98LA54A69VO13H091VQ01?021BO13 L038P54,P24P28,P35P43,P510401040057537333 BO13119 LA54A69M119A69BO13120 )A69, L035P89,P63P70,P77P85,P890401040057637333 M120A68BO13BO13114 M180412MMM L029Q18,P97Q01,Q09Q16,Q17Q181040057737333 MMMMMM/332 L010Q28,Q20Q21,Q22Q23,Q24Q251040057837333 /M180280MMMMMB18332 L019Q47,Q30Q37,Q38Q39,Q40Q411040057937333 2,H09BQ62@B464F4641L%U1626RB586 L031Q78,Q49Q53,Q58Q62,Q67Q751040058037333 U%U4MFK/332/MB342602F1 L022R00,Q84Q86,Q90Q91,Q98Q991040058137333 )K09)I89187L%U1626RL%U1085RN000BK10L L036R36,R05R12,R20R28,R320401040058237333 B200I15ACHASZ0? L015R51,R41R44,R45R48,R49R501040058337333 CY&1 EQU $HIVAL &P 626 L024R75,R53R54,R55R58,R63R731040058437333 B $HIVAL$P 3 L027?02,R77R80,R89R95,?00?021040058537333 ILLEGAL LABEL - SEQUENCE NUMBER,011B L038?40,?34?35,?38040,0400401040058637333 BNOPBCEBIN& BEBSS L019?59,?44?47,?50?53,?56?571040058737333 &$$S02 L006?65,?61?63,040040,0400401040058837333 ACTUAL OP CODES PRESENT IN FIXED FORM IL039A04,040040,040040,0400401040058937333 MAGES & EQU L017A21)A05A05,A10A11,A13A191040059037333 &P 032000@52P00 L015A36,A25A28,A31A32,A34A351040059137333 LTORG0504DC&X- L014A50,A42A44,A46A47,A48A501040059237333 I99 550? N B 2 L025A75,A54A57,A61A70,A72A741040059337333 111SPSAUTOLM L012A87,A79A82,A86A87,0400401040059437333 PROCESSING AS FIXED FORM RECORD L031B18,040040,040040,0400401040059537333 PASS 3 COMPLETED L016B34,040040,040040,0400401040059637333 @ NNOPC XFRO LORI JOB L026B78,B54B58,B60B64,B69B741040059737333 /CS 0 DA S2WSS#MA 3 ENDPMCMN ENT L032C10,B83B88,B93B97,C02C061040059837333 BRMRTBABBLC BMMBC%D F3WM2 WDC FCCB L035C45,C17C22,C23C28,C32C411040059937333 S1DUDCRYMLZ@M UEUSKPO ORGHSBRK8 SS L036C81,C53C57,C61C67,C72C761040060037333 YMZ )CW UWLWTWB MLCZMCSUWMWT L030D11,C86C87,C91C97,D02D061040060137333 MMCWF2WM2 WDTQSARR6WRFS1EUECR8SRF)2WM L038D49,D16D25,D29D34,D41D451040060237333 1VBW 9BBC91R URLRTWF1RMRD F1RLRDWMMU L038D87,D55D60,D64D70,D77D841040060337333 VBWZ,SW RBBPCCC C4PCBDMLNUMUWTM L032E19,D92D96,E01E05,E10E141040060437333 EMCEC EX UCU ZBBAV5RP .H LLU L031E50,E24E29,E34E39,E43E471040060537333 BWMWTB KSSBKBBEFPMRCUBUBSPURMRT SBBE L037E87,E57E62,E67E71,E77E831040060637333 3WR SS BB 1 DCWWBBEJ DSALLCA L030F17,E92E96,F00F05,F09F141040060737333 A DC F1WLWDW7WRP BBINKVBM PBBPB9SPF L035F52,F23F30,F34F39,F44F491040060837333 M SFX4P F0RMSD @BBCV!ZS O LTOP EQU L035F87,F58F62,F69F74,F78F831040060937333 BBSSF8 CC AA LBBER/BBU BBCEUBBH L034G21,F93F99,G03G08,G13G171040061037333 TBBL X DS F2RM2 RDTAMMBD2W F1WMWD DMN L039G60,G27G32,G41G46,G50G571040061137333 C1RCB6WP XMIZ ?ZA L030G90,G66G70,G74G83,G86G901040061237333 UUURWUURURWDR4RF 0BAV ZBC9 9BU / L034H24,G97H03,H08H10,H15H201040061337333 BCV @BE SBEF KBER LBH UBL TBLC A L035H59,H30H35,H40H45,H50H551040061437333 BPB PBPCBRBSS BBSS CBSS DBSS EBSS F L035H94,H65H70,H75H80,H85H901040061537333 BSS G L005H99,I03040,040040,0400401040061637333 } L001I89,040040,040040,0400401040061737333 B/59119 L008P62,040040,040040,0400401040C0603733L F3RM2 WDC L009C40,040040,040040,0400401040C0623733L B221L L005R36,040040,040040,0400401040C0963733L N000000,040040,040040,040040B000061837333 CONTROL 626 PASS 3 PROCESS FREE FORM INPUT 061937343 B586B524,?02)H09B626106*B991175 L032657,630634,638642,6500401040062037343 B991175LB626175SB626175ZB626185RC118R47L039696,666674,682690,0400401040062137343 B722175CB722175YB626/B727B991/?122A14 L037733,705713,718722,7270401040062237343 B746A14&B753?A13A14B765175CB772MR48175 L038771,742746,753761,7650401040062337343 B784175YB791MR49175B586CA14R51B811TB630L039810,780784,791795,8028071040062437343 M175R52MR53175B848R52RB848R52SMR54175 L037847,818825,833841,0400401040062537343 MA55174M174MR88MMM174105B586 L028875,855859,863864,8658721040062637343 M174111SR44A14CA14R51B872TB630MR57115 L037912,883890,897902,9060401040062737343 B586M173172MR53175MM58125MR62MMR72 L034946,917924,931938,9429431040062837343 M173MR75909MR76969B626N630MM58125 L033979,951958,965969,9730401040062937343 MR76 37B 53S100SSC118R79B 17/ L029 08,987991,995996,997 041040063037343 B 53119 M120R88MC111R94B969SN 53C110R99L039 47, 17 24, 25 32, 37 411040063137343 B906SB 96185RBM65M115R83V626A691C115?01L039 86, 53 61, 65 72, 800401040063237343 BQ75SB626,112L115A69)112B/26115&B L033/19, 92 96,/00/07,/11/191040063337343 BBB 65,A67B 65112&,A68B 65113& L030/49,/21/22,/26/30,/38/421040063437343 ,A69B 650} L010/59,/54/58,/59040,0400401040063537343 B/71A69 BP28BO13A68ABO13A681BP28 } L034/92,/67/71,/79/87,/91/921040C0613734L BS11 L004/70,040040,040040,0400401040C0633734L BO13A68PBO13A68JBO13A68XMA69115H099 L035S21,/95S03,S11S18,0400401040C0643734L C099A78BO43SMS45IIIBO36* L024S45,S29S34,S41S45,0400401040C0653734L BS46R52RBS46R52S L016840,833040,040040,0400401040C0663734L B848R82&MR78R82YS53R82B848 } L028S73,S54S61,S68S72,S730401040C0673734L D0?0MS72BO36 L012S45,S38S42,040040,0400401040C0813734L *} L002S73,S73S73,040040,0400401040C0823734L N000000,040040,040040,040040B000063637343 CONTROL 626 PASS 3 PROCESS FIXED FORM INPUT 063737353 B586V503H091)?02A10B554MI82412MM L032657,630638,645649,6566571040063837353 MMMM412180MA54175M175M175120 L028685,659660,661668,6756791040063937353 MMM414186M345111M337BY71340*B778111, L036721,687688,695702,7067141040064037353 BBBBB778110-BB L014735,723724,725726,7347351040064137353 BBB778110#BBBB L014749,737738,746747,7487491040064237353 B778110&BBBBB778110 B L021770,758759,760761,7627701040064337353 BBBB798/332/M?33231 L019789,772773,774778,7827831040064437353 Z1842362C347A55BS70SMA55R88M348M348118 L038827,797798,805810,8178211040064537353 S100SSBM65V854A691BT40A69 B974349 L034861,832833,834838,8468541040064637353 B/84349@BZ09B950360 AR44094M?341K1 L034895,870874,882889,0400401040064737353 AR44094M?37089B/84360@BZ09C348?40B 40S L038933,903910,918922,9290401040064837353 C348?43B 18SB974C348?40B 51SC348?43 L035968,941946,950957,9620401040064937353 B 51SC348?46B/46SV 29A101B 29371 L033 01,974981,986994,0400401040065037353 B 18115 V/541152M3711K3M?34M387172B626 L038 39, 10 18, 25 29, 360401040065137353 M?49118B 02B 29371 M?52118M?55115S090 L037 76, 47 51, 59 66, 730401040065237353 MA55120CH/4371B/15SB 18H/9 A?56089B 84 L038/14, 84 91, 96/04,/110401040065337353 MH/3119MC118?59B 18SM371114B 29B 29371 L039/53,/22/23,/30/35,/42/461040065437353 M371114M?60M371120M115MA56B 29BS183V9@ L038/91,/61/65,/72/76,/80/841040065537353 BBBBBBB L007/98,/93/94,/95/96,/97/981040065637353 BAR44094M?621K1BS54HA15S?65A15!A15 L034S32,S00S07,S14S18,S22S291040065737353 AA15089AA15094M3U91K1C089?37B874UB922 L037S69,S40S47,S54S61,S660401040065837353 BT28348 M348119M371120NT20/332/MA09270 L038T07,S78S85,S92S96,T00T011040065937353 F12F1MR76S92,A10B828MR88120 L027T34,T10T11,T13T20,T24T281040066037353 MB828V854A691S100DA68099A099A099 L032T66,T36T40,T48T52,T59T631040066137353 BTG1BP28BU84BU73BX60BX60BU73 L028T94,T71T75,T79T83,T87T911040066237353 BY89BX88BU21M387159MMM L022U16,T99U03,U07U14,U15U161040066337353 B626BU62349 MR76118MA67A69LA54MA69115 L037U53,U21U29,U36U43,U470401040066437353 MA12B854M371121B626.000301BU73BV51349* L038U91,U58U62,U69U73,U80U841040066537353 AA54349M118A18MMA21118MA24M353125B586 L037V28,U99V06,V07V14,V18V251040066637353 M174173M354111MA18118M)372371)360 L033V61,V36V43,V50V51,V580401040066737353 BX15114JBW69355&BW69355-BW69355@D339089L039W00,V70V78,V86V94,0400401040066837353 DAA54089C089A27BW80TC089A30BW80SM3V51S1L039W39,W02W09,W16W21,W28W331040066937353 MA31121MA311S2,372371,360B626M387153 L036W75,W47W54,W61W65,W690401040067037353 BW54S090BW333V6 AR44089C089A33BW33SBW84L039X14,W80W84,W92W99,X06X111040067137353 S096M?37089BZ09M172173M?60BW54359 L034X48,X19X26,X30X37,X410401040067237353 M359121BW54BX72349 BZ09C?01A69BQ67SB626L039X87,X56X60,X68X72,X79X841040067337353 BY33349*BY08349 BY15NA54349MA21118 L034Y21,X96Y04,Y08Y15,0400401040067437353 MA34114BX60,338AA54339)338C339A36BY15S L038Y59,Y29Y33,Y37Y44,Y48Y551040067537353 M339122B626M387153MMMM L022Y81,Y67Y71,Y78Y79,Y80Y811040067637353 MMMB626BX60116OMA41120M L023Z04,Y83Y84,Y85Y89,Y97Z041040067737353 BX60HJ20S100BZ623V0 C099A43BZ86SAR44089L039Z43,Z09Z13,Z17Z25,Z32Z371040067837353 AR44094AR44099BZ17C099A45BZ86SBZ863V1 L038Z81,Z51Z58,Z62Z69,Z740401040067937353 BZ25M3U91K1C089?37S091B!16UM?37089 L034!15,Z86Z93,!00!04,!090401040068037353 BJ883V5 VJ213V5KM?603V5,3V63V5AA543V8 L037!52,!24!32,!39!46,0400401040068137353 AA46094M3V81K1M)3V63V5BJ323U9&BJ323U9- L038!90,!60!67,!68!75,!830401040068237353 BJ173V9 AA47094D3V91K1MA49B000MA503V5 L037J27,!99J06,J13J17,J210401040068337353 B!39BJ583V9 AR44094D3V91K1BJ17BJ703V8 L038J65,J32J40,J47J54,J580401040068437353 BJ17AA53089AA53094BJ58BJ173U9&BJ173U9- L038K03,J70J77,J84J88,J960401040068537353 B!750} L006K09,K08K09,040040,0400401040068637353 N000000,040040,040040,040040B000068737353 CONTROL 085 PASS 4 LEFT HAND IMAGE 068837413 }00000000000000 L015099)085085,087092,0970401040068937413 }2SKB9900 L010194)185185,186190,1921941040069037413 000?0L%U1N75RN000B221LBN75H099 L030224,199200,208212,2172211040069137413 H293Y464099MII0284D280260M284393U%U0B L037261,229236,243250,2570401040069237413 B366284WM464465M%U0000RB294LB000D280304L039300,270277,285290,2940401040069337413 U%U0BS466465V277465BD280334.000490 L034334,306313,321328,0400401040069437413 M284349M%U0000RB257E.000402B290U%U1E L036370,342350,355362,3660401040069537413 B4034675A466468M%U0000WB257LB290S468 L036406,379386,394399,4030401040069637413 D280420.000460B386H099H463Y464099 L033439,414421,425429,4330401040069737413 BIH8000}BBBBBB L014453,448449,450451,4524531040069837413 BBBBBBB000 L010463,455456,457458,4594601040069937413 I A )I98,199B610 L017480,465466,467469,4734771040070037413 )199B578L%U1N75RN000B221L)N74H99MM83H45L039519,485489,497501,5065131040070137413 B538S100SSB706B610H577 L022541,524528,529530,5345381040070237413 /080,021H446013M%U4001RB425B221LB000 L036577,546550,557565,5695741040070337413 H609M%U5I18WN000B221LMM86M91B000H705 L036613,582590,594599,6066101040070437413 MM91099M180II7MMMMM L019632,621628,629630,6316321040070537413 MMMMMAM88M91B5780970 L020652,634635,636637,6386451040070637413 VJ85H921V692H871/080,021P001101V4811991L039691,661669,673677,6840401040070737413 S105S100SSB000B520006*D075735 L029720,696700,701702,7067141040070837413 Y075735B520M950BBBM084180V7580062 L033753,728736,737738,7397461040070937413 BV38M018116,N15MM86M98LH62N11MN01089 L036789,758765,769776,7830401040071037413 B8170/5&C089N04AN07089B790TB7980/4&,N/2L039828,798805,812817,8250401040071137413 M015N11S091VN75N111BC61N11 BN75H932S100L039867,836840,848856,8608641040071237413 ,0K1N15AN12094AN12099B9250K0,C0K1H60 L036903,875882,889897,0400401040071337413 B929SC094N14B933SB875)N15B000Y188105 L036939,909916,921925,9299331040071437413 B9291753B534HS32MH59H77M095100C099N17 L037976,948952,956963,9700401040071537413 B/50UB 17SC0A8N19B 17/D0A91S7AN22099 L036 12,982987,994999, 060401040071637413 B970B/340A8&BBB 510A8-BB L024 36, 17 25, 26 27, 35 361040071737413 B 510A8#BBB/50HH74SN25H74M094H65 L032 68, 45 46, 47 51, 55 621040071837413 DH74094MN27M0A9HP0S095100Y0B0HP0D0B0H77L039/07, 76 80, 87 94,/010401040071937413 ,1S4AHP01S6)1S4MH65094B970HH74B 270A8- L038/45,/12/19,/23/30,/34/381040072037413 B 55SM98099C099N30BS33TAM98099YH59099 L037/82,/50/57,/64/69,/760401040072137413 MN310B0MM98099P0B11/7H099Y189099MH59II9L039S21,/90/97,S04S08,S150401040072237413 DH771S3B000,N32MM86099Y187105BS660890 L037S58,S29S33,S37S44,S510401040072337413 MN35099MN381G0Y1891?1VS29N321BU09HT85 L037S95,S66S73,S80S88,S920401040072437413 ,0K1N15?N41100BT290B1@SN43100BT10 L033T28,T03T10,T18T25,0400401040072537413 C094099BT94SBT860B2,C0B3H60BT94/S095100L039T67,T36T41,T49T56,T610401040072637413 AN44099A099094B000)N15BT61Y187105)N32 L037U04,T75T82,T86T90,T94U011040072737413 BS37B860MN450B0AN12099BT82VU85N461 L034U38,U09U13,U20U27,U310401040072837413 M%U1001RL%U1N75RN000B221LBN75L%U1N75R L037U75,U47U55,U59U64,U680401040072937413 N000B221LB520175 B534175CM%U1001R L033V08,U80U85,U93V01,0400401040073037413 M%U1001RL%U1706RN000B221LB706HV77 L033V41,V17V25,V29V34,V380401040073137413 M011113M113H77BW47MH74156AN12198B000 L036V77,V49V56,V60V67,V740401040073237413 HV93BV94H76&B000?H75H76BV82HW27VW24N151L039W16,V82V90,V94W01,W05W091040073337413 Y187105B000HW46?121H76BV78B000HY10 L034W50,W24W28,W32W39,W43W471040073437413 ?N44H64BW70H77 BW77MH86H77?H75H71 L033W83,W58W66,W70W77,0400401040073537413 AH77H71AH77H69YH59H71?H48H84DH84H85? L036X19,W91W98,X05X12,X190401040073637413 BX46H85?AH71H82SN12H85BX20SN12H64 L033X52,X28X35,X42X46,0400401040073737413 VX12H64BSH76BX70ZAN48H79BX70ZYH78H74 L036X88,X61X65,X70X77,X820401040073837413 MH81DH79Y03Y189H72B000BK44021@BL01021# L038Y26,X93Y00,Y07Y11,Y190401040073937413 BY58021&BY58021-M072073MN49,H89B860 L035Y61,Y35Y43,Y50Y54,Y580401040074037413 BY90022@BW05BY90175JVK710222MN52089 L035Y96,Y70Y74,Y82Y90,0400401040074137413 DN44175Y021127MH59021VZ30175KBZ37 L033Z29,Z04Z11,Z18Z26,0400401040074237413 YH59175,H91MN55M98M034153BL54022@ L033Z62,Z37Z41,Z48Z55,0400401040074337413 BL54022&BL54022-B952Y127021Y127140 L034Z96,Z71Z79,Z83Z90,0400401040074437413 MN57107MN57094B!68006 V!68175SV!390062 L038!34,!04!11,!19!27,0400401040074537413 B!68M010121BW28MH76121MH76161B!89 L033!67,!39!46,!50!57,!640401040074637413 A094H58MN58117AH58161B534175PB534175X L037J04,!75!82,!89!97,0400401040074737413 VJ85H911M051153MMM094107C094N61BJ85U L036J40,J13J20,J21J22,J29J361040074837413 DN62075VJ63175BY175075MM91099M080II7 L036J76,J48J56,J63J70,0400401040074937413 ,H92B638)H91H92VK04H901B534BP31021@ L035K11,J81J85,J92K00,K040401040075037413 BM00022&BM00022-BM00022@BP31S096BS92 L036K47,K20K28,K36K40,K440401040075137413 BW05VL62H911SN64095B!11SN66095VK93H891 L038K85,K52K60,K67K71,K780401040075237413 Y0210K1)H89B!11,022?024H76BV78Y189104 L037L22,K93K97,L01L05,L12L161040075337413 DH76094MC094N69B!11UY188105B!11BK40022@L039L61,L30L31,L38L43,L50L541040075437413 SN43100M099H74C099N72BA57TB?93022@BB82 L038L99,L69L76,L83L88,L960401040075537413 B610MN73175MH31072MMMMH33H32 L028M27,M04M11,M18M19,M20M211040075637413 BV38S096SBY11L%U1N75RN000B221L L030M57,M32M36,M37M41,M49M531040075737413 BN75L%U1N75RN000B221LB7060000 L029M86,M62M70,M74M79,M83M841040075837413 8? RSWZ I9II9GI99 L021N07,M89M92,M96M99,N02N051040075937413 A54 04&XI97 L015N22,N12N13,N15N16,N18N201040076037413 |230000G 003### L016N38,N26N28,N31N32,N33N361040076137413 5101?B@ 9F& L011N49,N42N44,N45N46,N47N491040076237413 01100103*03083? L015N64,N53N56,N58N59,N62N631040076337413 2?053006/} L010N74,N67N70,N73N74,0400401040076437413 N L001U20,040040,040040,0400401040C0683741L N000000,040040,040040,040040B000076537413 CONTROL 2575 PASS 4 JOB/CONTROL CARD OVERLAP 076637423 /084/I99,021081,101106,108114,117128 L036O10,N79N83,N90N97,O040401040076737423 ,139157,162167,123,085H99,H44185)H87 L036O46,O18O25,O29O36,O430401040076837423 U%U4RU%U5RU%U6RMR16M91B538M080121 L033O79,O52O57,O62O69,O730401040076937423 MR17175,I98B538BQ71006*C018R20BQ71/ L035P14,O87O91,O95P03,P100401040077037423 D021P29BP37R13 BBBBQ71M021194 L029P43,P22P30,P31P32,P33P371040077137423 ?021089SR22090A089A089MQZ7H48MR23H45 L036P79,P51P58,P62P66,P730401040077237423 MQZ4652BQ520216BQ520215BQ330214MR24194 L038Q17,P87P95,Q03Q11,0400401040077337423 LH99I98B610B489LH9931YMR25M31XB469 L034Q51,Q25Q29,Q33Q40,Q44Q481040077437423 LH9971YMR25M71XB469MQ97H48MR24194U%U4B L038Q89,Q59Q63,Q67Q71,Q78Q851040077537423 BQ1800153051708771273456000 L027R16,Q94Q98,R02R06,R10R141040077637423 ICTL3?03% L009R25,R18R21,R23R24,R250401040077737423 0000? DCW L021G80,G65G75,G80040,0400401040077837423 / L001H34,040040,040040,0400401040077937423 }00000000000332 L019H62)H44H44,H45H49,H54H591040078037423 ?00 L025H87,H68H72,H78H85,H86H871040078137423 00000 L005H92)H88H88,040040,0400401040078237423 } L001H99,040040,040040,0400401040078337423 N000000,040040,040040,040040B000078437423 CONTROL 2575 PASS 4 MAIN LINE OVERLAP 078537433 MN11167)G34MG36107VO05N111BR06BP310K1 L038O12,N82N86,N93O01,O050401040078637433 B?770K1@LH610K0B860M099H74MM98099 L033O45,O21O28,O32O39,0400401040078737433 BB510B1&BB510B1-B952B?401S3#AG37107 L035O80,O54O62,O66O74,0400401040078837433 VP39G341C089G40BP31TMG43089VP20N151BQ83L039P19,O89O96,P01P08,P160401040078937433 M094M98BO05VQ03N151M0K1139BP58139 BP80 L038P57,P27P31,P39P46,P540401040079037433 BP800K2 M0K2139AG44094C0K3H60BQ11S L034P91,P66P73,P80P87,0400401040079137433 Y187105BQ11BQ32139 AG44107M107094 L033Q24,P99Q03,Q11Q18,0400401040079237433 M1391O6MH58161AG44161A107H58MH59175B534L039Q63,Q32Q39,Q46Q53,Q600401040079337433 AG44094C094G46BQ95TBQ640K1 BP20Y187105 L038R01,Q71Q78,Q83Q91,Q950401040079437433 BO74MN10139B?32N10 VO05N101VR52N091 L035R36,R06R13,R21R29,0400401040079537433 MN09170MG47B?21C021G48BO05UBR95022, L035R71,R44R48,R52R59,R640401040079637433 C023H60BR99SMG51170B?21)N15D021170MN09 L038?09,R79R84,R91R95,R99?061040079737433 MG47MG54094Y189101BO74,G34BR21,1S4 L034?43,?14?21,?28?32,?36?401040079837433 M1S6G83MG55)1S4MH621S6M084G63BA89BS92 L037?80,?51?55,?59?66,?73?771040079937433 C099G57BA57TA099089M0J91/5BA430J8}BB L036A16,?88?93,A00A07,A15A161040080037433 BS100090Y1901/7M1921S2BA82YH621/4Y L034A50,A18A25,A32A39,A43A501040080137433 YYBA18MH531S2MG58AG44H53M084G63 L031A81,A52A53,A57A64,A68A751040080237433 M0J9GG8M1S2G70VZ90H901M%U6G60WN000B221LL039B20,A89A96,B04B12,B160401040080337433 MH62G63MH33H32)N46VZ90H911BO74C0B2G48 L037B57,B28B35,B39B47,B510401040080437433 MH74099BA57UC099G57BA57TA089099M0J91A4 L038B95,B65B70,B77B82,B890401040080537433 Y1901S1MM98099Y0B11/8MH74099BA32HC60 L036C31,C03C10,C17C24,C280401040080637433 BC57117M122H77BW47MH74170B000MN10175 L036C67,C39C46,C50C57,C610401040080737433 S100DN10099A099A099BCI1BM41BY11 L031C98,C72C79,C83C87,C91C951040080837433 BD63BG10BF92BD63BD74BF00BD38 L028D26,D03D07,D11D15,D19D231040080937433 M080121B534MN09167MH60175MG36107BP39 L036D62,D34D38,D45D52,D590401040081037433 .000402BD63B860BW05B952BE63124XBE89117*L039E01,D70D74,D78D82,D86D941040081137433 !G44H58BE33117 VE781172S095BC28A126H58 L038E39,E09E17,E25E29,E330401040081237433 MH58161B534016OB610BU31!G44H58BC28BE40 L038E77,E47E55,E59E63,E70E741040081337433 BW28AH76H58Y189101BE33B860BW05B952 L034F11,E82E89,E96F00,F04F081040081437433 VF550212BF44117*B534117%BC28B534?126161L039F50,F20F28,F36F40,F440401040081537433 B!82?121H76BV78A126H76B!50175PAH76H58 L037F87,F55F62,F66F73,F810401040081637433 B!75M021117M021H86B534B860BW05B952 L034G21,F92F99,G06G10,G14G181040081737433 B534016XBU31 01C010011 L022G43,G30G34,G35G37,G38G411040081837433 A51%0###002# L012G55,G45G47,G48G49,G52G551040081937433 07$} L004G59,G58G59,040040,0400401040082037433 N000000,040040,040040,040040B000082137433 CONTROL 2575 PASS 4 PROCESS DA STATEMENTS 082237443 U%U1BU%U1B,F31F55,F58F57BC14021X L032O06,N80N85,N92N99,0400401040082337443 BO340K2XBC140944AF18094BO07A0K1F17 L034O40,O15O23,O30O34,0400401040082437443 AF19094B860?0J9F24BC730K1XBC910K1G L034O74,O48O52,O59O67,0400401040082537443 BD060K1 BC650K1CBP060K0 Y187105SH76 L035P09,O83O91,O99P06,0400401040082637443 MF17H67SF18H67VP43H67KAF24H76BP17 L033P42,P17P24,P32P39,0400401040082737443 MH76H67MF25117BP73006 VP980062MH58F30 L037P79,P50P57,P65P73,0400401040082837443 AF18F30AH76H58BQ20M010121)F31BW28 L033Q12,P87P94,P98Q05,Q090401040082937443 MH76F30MF30166MF30AF24166SF18166SF18F30L039Q51,Q20Q27,Q31Q38,Q450401040083037443 )F32V?37F551M180G54MMMM L023Q74,Q56Q64,Q71Q72,Q73Q741040083137443 MMMMMMMF33175 L013Q87,Q76Q77,Q78Q79,Q80Q811040083237443 MH62180MH62155MH62127,H87MH62111MF36116L039R26,Q95R02,R09R13,R200401040083337443 MF38107MF30161CH67F42BR82UAF44161 L033R59,R34R41,R48R53,0400401040083437443 Y189101B610SF44H67BR41CH67F48B?20S L034R93,R67R71,R78R82,R890401040083537443 DH67107DAH67161Y189101B610MG54180M L034?27,?01?02,?09?16,?20?271040083637443 MMMMMMM L007?34,?29?30,?31?32,?33?341040083737443 MM,H87?F18H67CH67F17BB70U)H87 L029?63,?36?37,?41?48,?55?601040083837443 V?90F321M166F53AF18F53,F32B610VE02H881 L038A01,?72?79,?86?90,?940401040083937443 B538BA02006*C019H62BD21/M084180BA45006 L039A40,A06A14,A21A26,A330401040084037443 BV38MF54175S095B860?0J9166CF24166BC39U L038A78,A45A52,A56A60,A67A741040084137443 BB520K0 B860BW05?0J9161CF24161BC39U L035B13,A87A91,A95B02,B090401040084237443 C161166BC54UAF30161AF30166V?60175KB?37 L038B51,B21B26,B33B40,B480401040084337443 Y188175M166161BB26B610VB89H881Y187175 L037B88,B59B66,B70B74,B820401040084437443 AF18H67AF24161AF24166B?48Y189104?F18F17L039C27,B96C03,C10C14,C210401040084537443 ?F18F24BP06HC53Y187105B000Y188105B?90 L037C64,C35C39,C43C50,C54C611040084637443 )F55BC95D0K2127AF56094BO59)F57AF19094 L037D01,C69C73,C80C87,C91C951040084737443 BO59AF18F24)F58BC95,H88VE02F581MF61125 L038D39,D06D13,D17D21,D25D331040084837443 MF65117MMF18175MF67107MF30161AF24161 L036D75,D47D48,D55D62,D690401040084937443 V?37F311MH59117Y189103B?37VE93F571 L034E09,D84D91,D98E02,0400401040085037443 MF70116MF71175MF67107MF53161MF74125 L035E44,E17E24,E31E38,0400401040085137443 VE75F311MH59117Y189103B610BE93AF18H58 L037E81,E53E60,E67E71,E750401040085237443 MF25117BE67U%U4BB538)H88G55BM620000? L036F17,E89E93,E98F02,F09F131040085337443 AB * L015F32,F19F20,F25F26,F31F321040085437443 ADC 19002?1I000? L021F53,F34F37,F39F43,F45F491040085537443 ? C @ @DC * L012F65,F55F56,F57F58,F59F621040085637443 01DCW1@}@ L009F74,F68F71,F72F75,0400401040085737443 } L001G55,040040,040040,0400401040085837443 CH67F43BR82UAG56161Y189101B610SG56H67 L037R77,R71R67,R60R53,R480401040C1083744L 0002?0000? L010F48,F44040,040040,0400401040C1093744L 1I} L003G57,G57040,040040,0400401040C1103744L N000000,040040,040040,040040B000085937443 CONTROL 2575 PASS 4 PROCESS LITERALS 086037453 U%U6ML%U6101WN000B221LBO02KL%U6101WN000L039O13,N80N88,N92N97,O02O101040086137453 B221LU%U6RU%U1BU%U1BU%U1B)Q27/080 L033O46,O19O24,O29O34,O39O431040086237453 ,016H90P001101MH62180S096SMQ15116 L033O79,O54O61,O68O72,O730401040086337453 MQ18446M%U6001RB425B221LBP39KM004170 L036P15,O87O95,O99P04,P090401040086437453 MQ19175BV38BY11B610BO80MQ22446L%U6101R L038P53,P23P27,P31P35,P39P461040086537453 B425B221LU%U6R,N46)H90AQ24193BP951920 L037P90,P58P63,P68P72,P76P831040086637453 BU68AQ26191AQ26191BU68DCW013/ L029Q19,P95Q02,Q09Q13,Q16Q191040086737453 1131?9F} L008Q27,Q23Q25,Q27040,0400401040086837453 N000000,040040,040040,040040B000086937453 CONTROL 706 PASS 4 END OF JOB OVERLAP 087037463 U%U6RB610M%U5I18WN000B221LU%U5MU%U5R L036741,711715,723727,7327371040087137463 /085)G59H44)185L%U1Z25RN000B221LL198L93L039780,746753,757765,7697741040087237463 L194L89BM000} L013793,788792,793040,0400401040087337463 MH44Z24,Z24BM00 } L017804,795799,803804,0400401040C0973746L N000000,040040,040040,040040B000087437463 CONTROL 1925 PASS5 INITIALIZE 087537513 CL30L26BX67SAL36L30ML30099MIA7080MM L035Z59,Z32Z37,Z44Z51,Z58Z591040087637513 MMMMMMM L007Z66,Z61Z62,Z63Z64,Z65Z661040087737513 S100SSB114ML30099M080IA7M L025Z91,Z71Z72,Z73Z77,Z84Z911040087837513 MMMMMMM L007Z98,Z93Z94,Z95Z96,Z97Z981040087937513 MBZ25H089H!76YL37089MIZ0!67D!63!43 L034!32,!00!04,!08!12,!19!261040088037513 M!67J76U%U0BBJ49!67WML37L38M%U0000R L035!67,!40!45,!53!60,0400401040088137513 B!77LB000D!63!87U%U0BSL39L38V!60L38B L036J03,!73!77,!84!89,!960401040088237513 D!63J17.000590M!67J32M%U0000RB!40E L034J37,J11J18,J25J33,0400401040088337513 .000511B!73U%U1EBJ86L405AL39L41M%U0000WL039J76,J45J49,J54J62,J690401040088437513 B!40LB!73SL41D!63K03.000560BJ69H089 L035K11,J82J86,J90J97,K04K081040088537513 HK46YL37089BIY8I31}BBBB L023K34,K16K23,K31K32,K33K341040088637513 BBBBBBB L007K41,K36K37,K38K39,K40K411040088737513 BB000L%U1001RN000B!04L)Y68BS90 L030K71,K43K47,K55K59,K64K681040088837513 L%U6001RN000B!04L)Z24BY13I97L99 L031L02,K80K84,K89K93,K97L001040088937513 V00 015? 080 L024L26,L09L12,L15L19,L23L241040089037513 #000?I188?I A L013L39,L28L32,L35L37,L38L391040089137513 L002L41,040040,040040,0400401040089237513 U%U4RU%U5RU%U6R/I99,Q66LQ68L95LQ72L99 L037M36,M05M10,M15M19,M23M301040089337513 LQ76L88L%U1001RN000B!04L)R01ML89Q77 L035M71,M44M52,M56M61,M650401040089437513 AQ78Q77DQ77M89Y109M99LQ66I98VP18M992 L036N07,M79M86,M93N00,0400401040089537513 /79Z/39ZMQ79W81BO20L894MQ52L26MQ56L18 L037N44,N12N16,N23N31,N380401040089637513 MQ59L11MQ62L34MQ65Q82AQ84L88BO62L895 L036N80,N52N59,N66N73,0400401040089737513 AQ87L18AQ89L88Y113L11Y113L34Y113Q82BO62L039O19,N88N95,O02O09,O160401040089837513 MQ36L26MQ40L18MQ43L11MQ46L34MQ49Q82 L035O54,O27O34,O41O48,0400401040089937513 AQ91L88YL34K99MQ82Z54MQ82Z90ML34X73 L035O89,O62O69,O76O83,0400401040090037513 ML34X98ML34Q94#Q96Q94MQ94K29MW81L27 L035P24,O97P04,P11P18,0400401040090137513 LQ66Z24/080,001006,017024,028035,057062L039P63,P32P36,P43P50,P570401040090237513 ,068071L%U6001WN000B!04L)Z24Q66CL93L18 L038Q01,P71P79,P83P88,P950401040090337513 ML18L99SL93BY13SBY13UMR00L99BY13400 L035Q36,Q09Q13,Q18Q23,Q30Q341040090437513 051?/0 E9YEIX800087?70! L023Q59,Q41Q44,Q47Q50,Q53Q571040090537513 A9QAIP}00015?0015 C L019Q78,Q63Q67,Q69Q73,Q77Q781040090637513 # 7B40?4?3F L016Q94,Q80Q83,Q85Q88,Q90Q921040090737513 1C000I} L007R01,Q97R01,040040,0400401040090837513 BL42 L004K96,L76L76,040040,0400401040C0033751L U%U6R,Z24L%U6001WN000B!04L)Z24BY13 L034L75,L47L51,L59L63,L68L721040C0043751L )R02 L004M64,040040,040040,0400401040C0693751L #Q97Q94 L007P10,040040,040040,0400401040C0703751L MR01L99 L007Q29,040040,040040,0400401040C0713751L 013000I} L008R02,Q98R02,040040,0400401040C0723751L N000000,040040,040040,040040B000090937513 CONTROL 001 PASS5 MAIN LINE 091037523 2SKB L004113,040040,040040,0400401040091137523 2SKB L004109,040040,040040,0400401040091237523 000 L003089,040040,040040,0400401040091337523 000 L003094,040040,040040,0400401040091437523 000 L003099,040040,040040,0400401040091537523 VZ77005KBZ77075%B219075 D075094B8710940L039152,122130,138145,0400401040091637523 MY92Y69MY92Y68A094A094B1P9N000B260 L034186,160167,171175,1791831040091737523 B260B973B992BZ77B376B295BZ77 L028214,191195,199203,2072111040091837523 BZ77MY92Y69B 03B/09VZ770032A007Y48 L034248,219226,230234,2420401040091937523 SY93Y48BZ77B283017*MY93Y67B/09BZ77B 03 L038286,256260,268275,2792831040092037523 B/09BZ77B361017%A027Y69B260017*V2600172L039325,291295,303310,3180401040092137523 V3380012B260BU35MY72S97V/810012B260 L035360,334338,342349,3570401040092237523 M019060MY92B260V405033B?061032AY93032 L037397,368372,376384,3910401040092337523 Y113033B432Y601CY48Y58B432U?Y48Y58 L034431,405413,420425,0400401040092437523 B536008 MY96089MY99S97V4660022B536 L034465,440447,454462,0400401040092537523 B502066 BT58BW29BS69Y641BS69Y630B/81 L036501,474478,482490,4980401040092637523 B/81Y591B/81Y611MY48066AY93066B474 L034535,510518,525532,0400401040092737523 V5480012B761B708017*MY92Y61SY48B735017 L039574,544548,556563,5670401040092837523 MY92Y66S090BU35B609Y661MZ01Y60B813 L034608,582586,590598,6050401040092937523 M061Y53MY92Y59B635024XB669B655017* L034642,616623,631635,0400401040093037523 CY53Z03B669SMZ03Y53AY93Y51AY53032 L033675,650655,662669,0400401040093137523 ?Y53061?032Y48SY93Y48Y113001BZ77 L032707,683690,697704,0400401040093237523 BZ77Y591B598Y611MY48Y53B616B598Y601 L035742,716724,731735,0400401040093337523 MY58Y53AY93Y53B616?032Y48SY93Y48 L032774,750757,761768,0400401040093437523 B821017*MY92Y61V8060172V609001KMY92Y59 L038812,783790,798806,0400401040093537523 SY53BZ77BZ77024XVZ77034BAY53032BZ77Y591L039851,817821,829837,8440401040093637523 BZ77Y611Y113034B761B9260750B910Y671 L035886,860867,871879,0400401040093737523 C061066B906TMY96099B 03BZ77075 B/09BZ77L039925,894899,906910,9189221040093837523 MY92Y69A027Y69MY93Y68MY92Y67B887017* L036961,933940,947954,0400401040093937523 MY93Y67B910VZ77075BMZ04X84BX67M017L23 L037998,969973,981988,9920401040094037523 BZ77H 89MY92Y67V 90002KV 86003BB 86Y591L039 37, 03 07, 14 22, 300401040094137523 AY53061AY53066CY480F1B 71T?0F1Y48 L033 70, 45 52, 59 64,0400401040094237523 B 86Y611Y113003B000MY72S97BT25075/B 22 L038/08, 79 86, 90 97,/050401040094337523 HS97V/250022BS94BS80008 B/57Y671 L032/40,/13/21,/25/33,0400401040094437523 BS07Y611BS07Y591BT58BW29BS98Y641 L032/72,/49/57,/61/65,0400401040094537523 BS69Y630MY93L94AY93L93BS50075/BS94 L034S06,/81/88,/95S03,0400401040094637523 B/81008$BT58BW29B/81Y640B/81M!0 Y112002L039S45,S15S19,S23S31,S390401040094737523 BS94BS94008$MZ01Y61BS94LL08M!9LZ12 L034S79,S50S58,S65S69,S760401040094837523 Y113002MY93L95B000BS69M!0 Y112002 L033T12,S87S94,S98T06,0400401040094937523 BT25075/BS94VS94004BMZ05075S007Y53 L034T46,T21T25,T33T40,0400401040095037523 S007Y48BS94HU34M013L08M056Z08BT88L08 L037T83,T54T58,T62T69,T760401040095137523 BT95ML23L08M0W1Z12BU170V70Y111Z09 L033U16,T88T95,U02U10,0400401040095237523 DY69U27Y113Z11B000HU87MZ15U34M022L08 L036U52,U24U31,U35U39,U460401040095337523 M070Z08BT76BW29BV03Y641BU88Y630B000 L035U87,U60U64,U68U76,U840401040095437523 LL08M!9LZ19BU84BU84M!0 MY93Y66VV30M!12 L038V25,U95U99,V03V11,V180401040095537523 BV37Y111M!1MM!3061BW18058%VV670582 L034V59,V30V37,V44V52,0400401040095637523 MY93057BU84075OY060Z20A026061YZ20060 L036V95,V67V75,V82V89,0400401040095737523 BW18027 DY69W14Y113060Y113001BU84HX66 L037W32,W04W11,W18W25,W290401040095837523 MY65Y64ML11L14MZ08094ML99L22CL08M!9 L035W67,W40W47,W54W61,0400401040095937523 BX45SBX63M!4 AZ23094SY93L22VX56L22K L035X02,W73W81,W88W95,0400401040096037523 C094L14BW61/BX56Y621MY93Y62MZ08L14S095 L038X40,X10X15,X23X30,X370401040096137523 BW61MY93Y64BX63MY93Y63B000M%U6I18WN000 L038X78,X45X52,X56X63,X67X751040096237523 B!04LNY73SL31M%U5I18RBK08B!04LBZ37 L034Y12,X84X88,X92Y00,Y04Y091040096337523 MK99Y23/000HY23CY23L02BY20/BX880000? L036Y48,Y20Y24,Y28Y35,Y40Y441040096437523 0000?0000?0000000000 L020Y68,Y54Y59,Y62Y66,Y67Y681040096537523 0Z77U%U6MU%U5RU%U6RBK470 L024Y92,Y70Y73,Y78Y83,Y88Y921040096637523 1005536110?B% L013Z05,Y94Y97,Z00Z02,Z04Z051040096737523 U64 010} L019Z24,Z09Z13,Z16Z20,Z21Z241040096837523 0033B L005Y58,040040,040040,0400401040C0373752L V 64003B L008 29,040040,040040,0400401040C1073752L N000000,040040,040040,040040B000096937523 CONTROL 001 PASS 6 MAIN LINE 097037613 000000000000000 L015101,092097,040040,0400401040097137613 2SKB2SKBMU32U18VZ77005KBZ77075%D075U33 L038143,110114,121129,1370401040097237613 B196U33 B318U332B446U333BS79U334 L032175,152160,168040,0400401040097337613 B489U336B489U337BZ77V2080032B215MU34U18L039214,184192,196204,2080401040097437613 ?061U39A007U39SU34U39BZ770071BZ770072 L037251,222229,236244,0400401040097537613 V2640012B268B578BZ770074BZ770075 L032283,260264,268276,0400401040097637613 V2960042BZ77MU42099MU45089B578BZ77 L034317,292296,303310,3140401040097737613 V3300032B434MU34U18?061U39MU42099 L033350,326330,337344,0400401040097837613 MU45089V3700042BZ77B578VZ770042B409027-L039389,358366,370374,3820401040097937613 MU48/78BZ77071%B 94MU53L07SU58L07 L033422,397405,409416,0400401040098037613 ?L07U58B390V3370042BZ77SU39V4620012B466L039461,430434,442446,4504581040098137613 B578B4780753BZ77MU59X84BZ77V5010012B574L039500,466474,478485,4894971040098237613 B574017 V5740172B574017*B574017%B578 L036536,509517,525533,0400401040098337613 V5740012MU32U28B567U337Y112001MU58061 L037573,545552,560567,0400401040098437613 BZ77H/78V5940?12B/75B9420/7 B9500/7% L036609,578582,590594,6020401040098537613 VS210/72B/900/7*B6380F8 B804M0S2U65 L035644,618626,634638,0400401040098637613 B657U65 B664ML23U65?U66U68?U63U72 L033677,653657,664671,0400401040098737613 AU65U72AU65U70Y110U72?L88U26DU26U27? L036713,685692,699706,7130401040098837613 B740U27?AU72U24SU73U27B714SU73U68 L033746,722729,736740,0400401040098937613 V706U68BMU760G0B767ZAU78U21B767ZYU200G0L039785,755762,767774,7790401040099037613 MU23DU21800Y1090F8M0S2L08B823L08 B830 L037822,790797,804811,8190401040099137613 ML23L08ML11L14MU32U19M0G0094ML99L22 L035857,830837,844851,0400401040099237613 CL08M!9B980SB961M!4 AU81094SU34L22 L034891,865870,878885,0400401040099337613 V961L22KC094L14B858/B961U191MU34U19 L035926,900907,912920,0400401040099437613 M0G0L14S095B858SU58B 49M0/90G0B/68 L034960,934938,942946,9509571040099537613 B/75U280MU840G0B/75B961M!0 V 00M!12B 07L039999,969976,980988,9960401040099637613 Y111M!1MM!3U58MU32B/79U55%V 41U552 L034 33, 07 14, 18 26,0400401040099737613 MU34U54B 78U336YU57U85B 780S4XA0S6U58 L037 70, 41 49, 56 64,0400401040099837613 YU85U57V/68075KB/68U332B 99ZAU87U55 L035/05, 78 86, 94 99,0400401040099937613 B 99ZYU54U58DU55/28Y109U56YU85U57 L033/38,/11/18,/25/32,0400401040100037613 B/610S7 D0S7/57Y113U57MU580G0Y1130?1 L036/74,/47/54,/61/68,0400401040100137613 B000MU570G0B/68BS020S2 B626B/75U181 L035S09,/79/86,/90/98,S020401040100237613 MU39U58B 49B6260/7#B6260/7@VS490/82B626L039S48,S17S21,S29S37,S450401040100337613 ?0S1U58BS68U58&B 49?U57U58BS56M017L23 L037S85,S56S64,S68S75,S790401040100437613 BZ77,U30L%U6U29R)U30/080,001006,017024 L038T23,S90S94,T02T06,T10T171040100537613 ,028035,057062,068071ML27878MU88J15 L035T58,T31T38,T45T52,0400401040100637613 MU88K01MU88J42ML34X73ML34X98MU89L23 L035T93,T66T73,T80T87,0400401040100737613 BU07L950BBX88MU34U28BX8800 L026U19,U02U03,U07U14,U18U191040100837613 ?0 } 0 1 L015U34,U27U28,U29U32,U33U341040100937613 003011Z771600? B L025U59,U40U43,U46U49,U54U591040101037613 B A0009F L019U78,U66U67,U69U73,U74U771040101137613 010### 966 L011U89,U82U85,U86U88,U890401040101237613 M%U5I18WN000B!04LNY13SL31M%U6I18RBK08 L037Y03,X75X79,X84X88,X92Y001040101337613 B!04LBZ37U%U5MU%U6RU%U5RL%U1333RN000 L036Y39,Y09Y13,Y18Y23,Y28Y361040101437613 B!04L)S45ML27474ML27726B333 } L029Y68,Y45Y49,Y56Y63,Y67Y681040101537613 )S54 L004Y48,040040,040040,0400401040C0983761L N000000,040040,040040,040040B000101637613 CONTROL 333 PASS 6 PRINT SYMBOLS 101737623 /332/S100SS,/80B474M!4 L023355,337338,342343,3443481040101837623 B474M!0 B530M!4)CM!4/81B441UCM!4/82 L035390,364372,379384,0400401040101937623 B441TDM!4099V433M!4BA/85099V433M!4K L035425,396403,411418,0400401040102037623 A/85099,/D8S101V453M!12B474V502/801)/80L039464,433437,441449,4534611040102137623 B5382/216A/85094C094L11B646SB502@ L033497,469470,474481,4884931040102237623 B348F1MS04219FT2/219V461/801 L028525,502504,511513,5145181040102337623 B348,/78B441H634MM!92 6B635M!0%DM!32/2 L038563,530534,538542,5495571040102437623 DDDV582M!02MS052 8V631M!22DS052/5 L033596,565566,567575,5825901040102537623 MS07V631M!2SDS082/5V631M!2KDS092/5B000 L038634,601609,616624,6310401040102637623 MM!32/2B631B859S100SS,S10 L025659,642646,650654,6556561040102737623 V687/D91B888/D9@AS11099B656B668/D9! L035694,668676,683687,0400401040102837623 B668/D9 B668/D9/M/D9725B777M!4XA/85094 L038732,703711,718726,0400401040102937623 C094L11B718/S095SAS11099)S10V812S181 L036768,740745,749750,7577611040103037623 ,S18B847B726M!0 B538,S18AS14089C089S17 L038806,773777,785789,7938001040103137623 B726/2)S18/332/S090V842S101 L027833,812813,817821,8228261040103237623 B888/D9@B859@V726S101B656H887/332/ L034867,842847,855859,8638671040103337623 F1MS302122FK/212B000V898/801 L028895,870877,878880,8848881040103437623 F1/332///B997U281U%U1B L022917,898902,903904,9059131040103537623 U%U1BMS31J15MS31K01MS31J42MS33L95 L033950,923930,937944,0400401040103637623 MS34L23CL93L18ML18L99SL93BK72SBK72U L035985,958965,972976,9810401040103737623 MS38L99BK72)U30/I99B 44L893/79Z/ L032 17,993997, 01 05, 13 171040103837623 ///////I99 L010 27, 19 20, 21 22, 23 241040103937623 H 27C 27S41B 24/L%U1Z00RB 68LMS42Z00 L036 63, 32 39, 44 52, 570401040104037623 BZ01MS43S44U%U1BL%U1Z00RB 97LB 57U%U1B L038/01, 68 75, 80 88, 93 971040104137623 SS05S44V 80S44B.000691L%U1Z00RB 68E L035/36,/09/17,/24/32,0400401040104237623 .000612B 57 L011/47,/44040,040040,0400401040104337623 ABCDEFGHI!JKLMNOPQR /STUVWXYZ)@ AZ010 L038/85,/80/81,/82/83,0400401040104437623 UNREFERENCED LABELS1&X23 A L026S11,S05S06,S08S09,S10S111040104537623 016128 SYMBOL TABLE500 L023S34,S15S18,S19S31,S32S341040104637623 000IY99NI } L011S45,S39S42,S43S44,S450401040104737623 )Z24B997 } L010S54,S49S53,S54040,0400401040C0993762L BS45 L004908,040040,040040,0400401040C1003762L N000000,040040,040040,040040B000104837623 CONTROL 1900 PASS 7 INITIALIZATION 1 104937713 B/332///L%U1400RN000 L020Z19,Z01Z05,Z06Z07,Z08Z161040105037713 BM03L)X99O93,I98LI98333LI98181MZ00407 L037Z56,Z25Z32,Z36Z43,Z500401040105137713 MZ00O91)I98U%U4RU%U5RU%U6R,172176 L033Z89,Z64Z68,Z73Z78,Z830401040105237713 AO96175BT15CH48O99B!78/)P00M%U5180R L035!24,Z97!01,!08!13,!170401040105337713 L333181MI02O85MI10180MI14P04MH32P06 L035!59,!32!39,!46!53,0400401040105437713 MH35P09MH41P15BT15CH48P18B407/)P19 L034!93,!67!74,!78!85,!900401040105537713 MH60P29MI14P33MH32P35MH35P38BT15 L032J25,J01J08,J15J22,0400401040105637713 BK14P241B407P220B400P221B407P222 L032J57,J34J42,J50040,0400401040105737713 B400P223B407P224B400P225B407P226 L032J89,J66J74,J82040,0400401040105837713 B400P227B407P22 )P39B407)O92BJ34U%U4B L037K26,J98K06,K10K14,K18K221040105937713 ,001006,008014,023057,062067,068071,074L039K65,K34K41,K48K55,K620401040106037713 )181333MO27O23LP71171LP75189LP80101L101L039L04,K73K80,K87K94,L010401040106137713 L,O95BL49O331VL30O931BL49VL42O921BL49 L037L41,L06L10,L18L26,L30L381040106237713 MP81O94MP22O90L%U6O21WN000BM03LU%U6R L036L77,L49L56,L64L68,L730401040106337713 )O95L%U1201RN000BM03LB201H094HM75 L033M10,L82L90,L94L99,M03M071040106437713 YP82094MIR0M66DM62M42MM66N75U%U0B L033M43,M18M25,M32M39,0400401040106537713 BN48M66WMP82P83M%U0000RBM76LB000DM62M86L039M82,M52M59,M67M72,M760401040106637713 U%U0BSO96P83VM59P83BDM62N16.000790 L034N16,M88M95,N03N10,0400401040106737713 MM66N31M%U0000RBM39E.000711BM72U%U1E L036N52,N24N32,N37N44,N480401040106837713 BN85P845AO96P85M%U0000WBM39LBM72SP85 L036N88,N61N68,N76N81,N850401040106937713 DM62O02.000760BN68CLEAR STORAGE 000?080L039O27,N96O03,O07O21,O250401040107037713 39990 L006O33,O33040,040040,0400401040107137713 L039O72,040040,040040,0400401040107237713 0000 L020O92)O73O73,O86O90,O91O921040107337713 }AJOB L014P06,O94O96,O97P00,P01P051040107437713 CTL L029P35,P10P16,P19P20,P30P341040107537713 L0 , , , 1 L036P71,P39P40,040040,0400401040107637713 2SKB000001I L014P85,P76P81,P82P83,P84H311040107737713 L001001,H31H33,H36H46,H51I111040107837713 } L001I98,040040,040040,0400401040107937713 LP75199 L007K93,040040,040040,0400401040C0733771L BW37H43*BB/56 L014P99,P94P95,P99040,0400401040C0743771L B314 L004M02,040040,040040,0400401040C0753771L N000000,040040,040040,040040B000108037713 CONTROL 400 PASS 7 INITIALIZATION 2 108137723 MT64O33B/03FV422O931F1MT64215MO20 L033432,407412,420422,4290401040108237723 MT64200V544P191CP21T65B464TB544CP21T66 L038470,440448,455460,4640401040108337723 B540TMT89152LU18M152272BS17MU33171MU60 L038508,476483,487494,4985051040108437723 LU89B651P214B669P215MU91O29B683)P39 L035543,513521,529536,5400401040108537723 MV02144LV35M144264BS17MV61170LW05 L033576,551555,562566,5730401040108637723 B683P213YW06127MT64O29B683P212MW07127 L037613,585592,599607,0400401040108737723 MT65O30B683P211)P39MW08127MW10O30B683 L037650,621629,633640,6470401040108837723 YW06129MW11O29B683YW12129MW14O29M171291L039689,658665,669676,6830401040108937723 MW15215MO20BS17MW26171MW44146LW72 L033722,697701,705712,7190401040109037723 M171291MW81209BS17V751O931FKV818P191 L036758,730737,741749,7510401040109137723 CP20T65B818SB814UCP20T66B814TMW84O27 L036794,766771,776783,7880401040109237723 B818P204AW84O27B818)P39MT64314MW88309 L037831,803810,814818,8250401040109337723 MO85278M180290MW89200B 61V867O931FK/278L039870,839846,853857,8658671040109437723 MX25314MX58234MW89200B 61/332/B 61 L034904,878885,892896,9009011040109537723 V970P001ZP04204ZP06207YP06207MP09211 L036940,913920,927934,0400401040109637723 MP15219MX61223MO85278B 61/278V 50P191 L037977,948955,962966,9700401040109737723 ZP33204ZP35207YP35207MP38211MP29236 L035 12,985992,999 06,0400401040109837723 MX64223V 42P391MX77328AX78O89B 61BK22 L037 49, 20 28, 35 42, 460401040109937723 MX93330B 35H/02V 74O9312V 99O921 L032 81, 57 61, 65 73, 740401040110037723 M%U3200WN000BM03LB000LW89P22LW89O33 L035/16, 90 94, 99/03,/100401040110137723 MX94P24,O92B/68BB/79CB/90GBS01DBS09E L036/52,/24/28,/33/38,/43/481040110237723 )P22MX95407BJ26AX78P22B/33AX96P22B/38 L037/89,/57/64,/68/75,/79/861040110337723 AX97P22B/43)O92B/48,O93B/53HT14 L031S20,/97S01,S05S09,S13S171040110437723 Z175314VS37O9312VS86O921M%U3200WN000 L036S56,S28S36,S37S45,S530401040110537723 BM03LMX98100M%U3100WN000BM03LBS95O3304 L038S94,S62S69,S77S81,S86S941040110637723 AX78175/332//171B000HT39M%U4H31R L032T26,T02T06,T07T11,T15T191040110737723 BT40BM03LB000BT19H43}BBB L024T50,T31T36,T40T48,T49T501040110837723 BBBBBBB L007T57,T52T53,T54T55,T56T571040110937723 BBBT31136,053053N000000N00001026 L032T89,T59T60,T64T65,T66T671040111037723 ,008015,022026,030037,044,049 L029U18,040040,040040,0400401040111137723 1,001/001117I0? L015U33,040040,040040,0400401040111237723 #071029C029056B026/B001/099 L027U60,040040,040040,0400401040111337723 L068116,105106,110117B101/I9I15 L031U91,U90040,040040,0400401040111437723 ,0570571026 L011V02,040040,040040,0400401040111537723 ,008015,019026,030,034041,045,053 L033V35,040040,040040,0400401040111637723 B0010270B0261,001/001113I0 L026V61,040040,040040,0400401040111737723 L068112,102106,113/101099/I99,027A07002L039W00,040040,040040,0400401040111837723 8)027STI39 L010W10)W01W01,W06W07,W08W091040111937723 7K112,0010011040,061068,072/061039 L034W44,W12W13,W15W16,W270401040112037723 ,008015,022029,036040,047054BOOTSTRAP L037W81,W73040,040040,0400401040112137723 400PAGE0 L008W89,W85W89,040040,0400401040112237723 SFX CT LOCN INSTRUCTION TYPE CARD L036X25,040040,040040,0400401040112337723 SEQ PG LIN LABEL OP OPERANDSJOBCTLL039X64,X59X62,040040,0400401040112437723 BAD STATEMENTANO CONTROL CARD NBD L033X97,X78X79,X94X95,X96X971040112537723 &} L002X99,X99040,040040,0400401040112637723 N000000,040040,040040,040040B000112737723 CONTROL 201 PASS 7 MAIN LINE 1 112837733 L%U1!00RN000B334LL%U6B98RN000B334LU%U6RL039239,209213,218226,2302351040112937733 )C72D56)Z94H27,333181,U17L%U6794WN000 L037276,247254,261265,2730401040113037733 B334LU%U6R)U17?D57F13B543C711BA24B595 L037313,282287,291298,3063101040113137733 L001314,040040,040040,0400401040113237733 }H094H406Y538094MIR0397 L023355)333333,334338,3423491040113337733 D393373M397506U%U0BB479397WM538540 L034389,363370,375383,0400401040113437733 M%U0000RB407LB000D393417U%U0BS539540 L036425,398403,407414,4190401040113537733 V390540BD393447.000790M397462M%U0000R L037462,434441,448455,0400401040113637733 B370E.000712B403U%U1EB5165415A539542 L036498,468475,479484,4920401040113737733 M%U0000WB370LB403S542D393533.000760B499L039537,507512,516520,5275341040113837733 IA LC68201LM%U1332R L021558,539540,541543,5505511040113937733 )181333L%U1!00RN000B334LM201!01MB!02 L036594,566574,578583,5905911040114037733 /332/BB09,D58D075D59BS85075%BS850758 L036630,599600,604608,6156231040114137733 BS85075IBS85075HB881080 BJ72H36* L032662,639647,655040,0400401040114237733 B805I05RB794I05WB812I05SB812I05ZCH48D54L039701,671679,687695,0400401040114337733 B843SC080I14B?83/BT01)D58BV43075 L033734,707714,719723,7270401040114437733 D075094A094A094B7N4BW52B 62B969 L031765,742746,750754,7587621040114537733 B?94BL43BS78BK12BK85BS78BS78 L028793,770774,778782,7867901040114637733 MD63308B812MD68309BT01B828I167BJ85 L034827,801805,812816,8240401040114737733 MD76323BL28BJ85MI02C62V862G271BP62 L034861,835839,843850,8580401040114837733 MI10180SF13B!00B812B924075Y)068Z070211 L038899,869873,877881,8898931040114937733 ,068B944075SB999D591BS78,227M072278M L036935,904912,920924,9289351040115037733 MMMMBS85MD81309,227 L019954,937938,939940,9449511040115137733 M053240M016223M073295M073D95BS45 L032986,962969,976983,0400401040115237733 BL09073#B/56V 41075SVS28001BMD86309 L035 21,995999, 07 15,0400401040115337733 B 48075AMD87305B 48MD90307M053257 L033 54, 30 37, 41 48,0400401040115437733 M016223BS45AD92007C007D92B 96TY188005 L037 91, 62 66, 73 80, 850401040115537733 B/56B/83227#V/83004BM278E43B/56227@ L035/26, 96/04,/12/19,0400401040115637733 V/722272M007089YD332S7Y227DZ2BU18BL54 L037/63,/35/42,/49/56,/600401040115737733 BY54BS85M278E44B/56V/95D581B/56M013219 L038S01,/68/72,/79/83,/91/951040115837733 MD31231M007ME45ME49308B/56BS45BL54 L034S35,S09S13,S17S24,S28S321040115937733 /332/BS85HS77?061E83ME83S007E78 L031S66,S40S41,S45S49,S56S601040116037733 AD55E78B000.000770BA24V604D581B600HT89 L038T04,S74S78,S85S89,S97T011040116137733 ZI14204ZH32207YH32207MH35211MH41219 L035T39,T12T19,T26T33,0400401040116237733 MH50225MI02278BT90I05ZBT90I05YBT97I05C L038T77,T47T54,T62T70,0400401040116337733 BT97I05SB000ME51309ME54307BJ97I16BBT86 L039U16,T86T90,T97U04,U12U161040116437733 }HV01Z007284MG18280D061290 L026U42)U17U17,U18U22,U29U361040116537733 MVU660602ME55292YD30289BV020570VV13002KL039U81,U44U52,U59U66,U740401040116637733 VV28005KVV28005SB000MD30286BU74ME60320 L038V19,U90U98,V02V09,V130401040116737733 BL28BU82ME73328BL28BU98M074303M073301 L037V56,V24V28,V35V39,V43V501040116837733 M070297M067293M074E00MMMM061E78 L031V87,V64V71,V78V79,V80V811040116937733 M061E83A007E83SD55E83BL09073#BL09070# L037W24,V95W02,W09W17,0400401040117037733 BW37067 B/56ME86323BL28B/56BX410750 L035W59,W33W37,W44W48,W520401040117137733 M066E78ME91309VW93075BME94307BK62BU18 L037W96,W67W74,W82W89,W930401040117237733 BL54BY54BA24BX21075 B600M066E78BL54 L035X31,X01X05,X09X17,X21X281040117337733 /332/BX05VY24004BBU18D066297M L029X60,X36X37,X41X49,X53X601040117437733 M061E78BL54BA24C016E97BX96/BX53075 L035X95,X68X72,X76X83,X880401040117537733 BY392930C297C09BK97TBY54B600MF06329BL28L039Y34,Y04Y11,Y16Y20,Y24Y311040117637733 BX49HY53MD30293B000HZ50BY86290 BY86D597L039Y73,Y39Y43,Y50Y54,Y58Y661040117737733 C290F11BJ57UVY95C7012BJ24BZ19D597 L033Z06,Y81Y86,Y94Y95,Y990401040117837733 C290C09BK97T/332/BZ470753AD55F13 L032Z38,Z14Z19,Z23Z24,Z320401040117937733 BZ51F125B000B!00SF13BZ47L%U6794RN000 L036Z74,Z47Z51,Z55Z59,Z63Z711040118037733 B334L)U17U%U6RBS85 } L020Z94,Z80Z84,Z89Z93,Z940401040118137733 B183 L004W36,040040,040040,0400401040C0763773L LP98195LLB201 L014327,321322,323327,0400401040C0773773L Y198005 L007 91,040040,040040,0400401040C0783773L N000000,040040,040040,040040B000118237733 CONTROL 2000 PASS 7 MAIN LINE 2 118337743 HJ23MF17309AD55C84ZC84314MC62278M180290L039!38,!04!11,!18!25,!320401040118437743 V!52C701F12FKMD29200BJ24/332 L028!66,!47!49,!50!52,!59!631040118537743 /MF53314MF86234V!91C7012MF87200BJ24 L035J01,!68!75,!82!90,!91!981040118637743 /332/VJ16C7012BJ24B000HJ56 L026J27,J06J07,J15J16,J20J241040118737743 VJ53C691M%U3200WN000B334LB000MF92332 L036J63,J36J44,J48J53,J570401040118837743 BL28BY86BT01MI02280MMBY54 L025J88,J68J72,J76J83,J84J851040118937743 BB09B655MG03326BL28BT86M066061M032066 L037K25,J93J97,K04K08,K12K191040119037743 VK700012D066297MBY392930C297C09BK97T L036K61,K34K41,K42K50,K570401040119137743 BU18B/64MG13330BL28BK34BL09070#BK62 L035K96,K66K70,K77K81,K85K931040119237743 HL08)D34B000HL27MG17327BL28B000 L031L27,L01L05,L09L13,L20L241040119337743 HL42AD55C66B000MH51G18B/64H?42)H17G48 L037L64,L32L39,L43L50,L54L581040119437743 V?39005KVP62D561BN39D590B 08D593 L032L96,L73L81,L89040,0400401040119537743 VO17075BC007G20BQ91TMC81G23A007G23 L034M30,M05M12,M17M24,0400401040119637743 CG23G26BO09TVN98G271MG32G37A007G37 L034M64,M38M43,M51M58,0400401040119737743 CE83G37BO09/A007G32H099D92A007099 L033M97,M72M77,M84M91,0400401040119837743 A007C81MC81094M0?01!0)G38VO53G271 L033N30,N05N12,N19N23,0400401040119937743 V?07075BME78G43BP16AG44C75MC75089 L033N63,N39N46,N50N57,0400401040120037743 MG43E76ME760 0C089G47B?07/,D56B?07 L034N97,N71N78,N85N90,N940401040120137743 ME83G32BM84BP62BL81VO29G271BM05CC75C78 L038O35,O05O09,O13O17,O25O291040120237743 BM05S,G48BP62BM05)G27VO69075BB?07 L033O68,O41O45,O49O53,O57O651040120337743 MG49147ME78G43BP16MG43E76ME76C96ME76 L036P04,O76O83,O87O94,P010401040120437743 AG50C75B?07HP61BP25ZAG52G40BP25ZYG39G43L039P43,P12P16,P20P25,P32P371040120537743 DG40P54Y189G41B000HQ90VQ07G481VQ07G381 L038P81,P51P58,P62P66,P740401040120637743 MG32G43BP16MG43C90MC81C87ED11171DF87141L039Q20,P89P93,Q00Q07,Q140401040120737743 BQ30C1004B?43AD55175/171LG84171,G27G38 L038Q58,Q29Q30,Q34Q41,Q45Q521040120837743 )D56G48MG87C81MC78C75MH14D11B000 L032Q90,Q66Q73,Q80Q87,0400401040120937743 VR03G271BP62M007H16ME83G32MG20007 L033R23,Q99R03,R10R17,0400401040121037743 SG20H16SH16G32Y186H16,H17ME78H22BM84 L036R59,R31R38,R45R49,R560401040121137743 BP62)H17MH16007MH23075ME44E05MH22E78 L036R95,R64R68,R75R82,R890401040121237743 AG20E78BN98Z175314S100SSVR60H171 L032?27,?03?07,?14?18,?19?201040121337743 MD30E44ME44B000H?82V?79C691MH24100 L034?61,?35?39,?43?47,?550401040121437743 M%U3100WN000B334LB000.000777B?83 L032?93,?70?74,?79?83,?900401040121537743 L%U1794RN000B334L)T32U%U1BB794HB08 L034A27,A02A06,A11A15,A20A241040121637743 CC00C04BA68/SC01HB80I31M%U5I18RBB59 L035A62,A35A40,A44A51,A590401040121737743 B334LAH26C00MC00099MIA7080MMM L029A91,A68A75,A82A89,A90A911040121837743 MMMMMMM L007A98,A93A94,A95A96,A97A981040121937743 S100SSB000HB58MD30H51SH50 L025B23,B03B04,B05B09,B13B201040122037743 SSSHB80H43M%U4H31RBB59B334L L027B50,B25B26,B27B34,B42B461040122137743 S095B000H094HB97YD12094BIQ8000}B L032B82,B55B59,B63B67,B74B821040122237743 BBBBBBB L007B89,B84B85,B86B87,B88B891040122337743 BBBBB000000?080 L015C04,B91B92,B93B94,B98C021040122437743 39990 L006C10,C10040,040040,0400401040122537743 L039C49,040040,040040,0400401040122637743 0000 L020C69)C50C50,C63C67,C68C691040122737743 }C90C90000001 L015C84,C71C73,C76C79,C820401040122837743 001001040040040040040040040B/ 080 L037D21,D12D13,040040,0400401040122937743 / 0801 ERRORS 1N000000 L030D51,D29D30,D34D35,D41D451040123037743 JOBA E IOCS L012D63,D55D56,D57D58,D59D601040123137743 MACROOVERCALLADCONRMARKGLIT00 L029D92,D69D77,D82D87,D88D911040123237743 L039E31,040040,040040,0400401040123337743 #AREAIOGEN L023E54)E32E32,E45E46,E50E521040123437743 XLABELBAD STATEMENT OPFIELD L037E91,E56E61,E74E79,E84E871040123537743 SBFDA NO B X L 0081 PAGE L026F17,E95E98,F07F12,F140401040123637743 SFX CT LOCN INSTRUCTION TYPE CARD L036F53,040040,040040,0400401040123737743 SEQ PG LIN LABEL OP OPERANDS0 ADDRL039F92,F87F88,040040,0400401040123837743 MACRO ERROR UNDEF ORG SYM 39 039 L034G26,G04G14,G18G19,G21G241040123937743 CD08 L021G47,G28G33,G38G39,G44G451040124037743 )F9FL0 , , , 1 L037G84,G49G50,G51G53,0400401040124137743 000001001040040040040040040040 AL039H23,G88H15,H17H18,H230401040124237743 &8?} L004H27,H25H27,040040,0400401040124337743 Y199G41 L007P57,040040,040040,0400401040C0793774L Y196H16 L007R44,040040,040040,0400401040C0803774L N000000,040040,040040,040040B000124437743 CONTROL 794 PASS 7 EX/END OVERLAP 124537753 MD12293MD12D93B830075CMD21301MD28D99 L036829,801808,816823,0400401040124637753 M070297M070D96BL09070#BU18BL54BY54 L034863,837844,852856,8600401040124737753 BZ63075CF1MD29200ZC66204C204D33B945/ L036899,872874,881888,8950401040124837753 V928D341MS49220BJ24V928C7012V543C691 L036935,908915,919927,9280401040124937753 U%U3MB543MD40211C204D44B971/MD30211BJ24L039974,941945,952959,9649711040125037753 V984C7012/211B900CC75C78B 20S)G27 L033 07,983984,988992,999 041040125137753 V992G271BP62B 57075C/171MD99146Z175314 L038 45, 16 20, 28 32, 390401040125237753 HQ90S11BQ21ED11171MD51146MD96171Z175314L039 84, 53 57, 64 71, 780401040125337753 HQ90 96BQ21/171BB09U%U4BCH48D54B/28/ L036/20, 92 96,/00/04,/09/161040125437753 MI10180MS88139LS99166M166150B/58C1004 L037/57,/28/35,/42/49,/570401040125537753 B?43/166AD55175MT20121MT31171HQ90S26 L036/93,/62/66,/73/80,/870401040125637753 BS03C1004B?43BQ34/180BS26C1004 L030S23,S02S03,S07S11,S15S231040125737753 K8B?14OBJECT CORE EXCEEDED L026S49,S26S30,040040,0400401040125837753 ,015022)024056,029036,040047,0540611001L039S88,040040,040040,0400401040125937753 ,001008B001,068072)063067/061039 L032T20,T00040,040040,0400401040126037753 ,0010011040} L012T32,T32040,040040,0400401040126137753 N000000,040040,040040,040040B000126237753 CONTROL 2000 PASS 8 MAINLINE 1 126337813 BL%U1001RN000BM33L)Z66I98B340 L030!29,!01!02,!10!14,!19!261040126437813 H!54L%U6101WN000BM33LB000L%U1333RN000 L037!66,!34!42,!46!51,!55!631040126537813 BM33LB333HJ58CP04P01BJ20/SP05MR90O58 L036J02,!72!76,!80!87,!92!961040126637813 M%U5?28RBO37BM33LAR92P04MP04099M?B7080ML039J41,J11J15,J20J27,J34J411040126737813 MMMMMMM L007J48,J43J44,J45J46,J47J481040126837813 S100SSB000B!76B/20HK10 L022J70,J53J54,J55J59,J63J671040126937813 BK11M?04126?R94?01A007?01BK11M?04123 L036K06,J75J82,J89J96,K000401040127037813 B000HK63BK20ZAR96R98BK20ZYR97?01DR98K49L039K45,K11K15,K20K27,K32K391040127137813 Y339R99M?01?04B000HL30BL31135}L%U6120W L038K83,K53K60,K64K68,K760401040127237813 N000BM33LNMQ69175M175MQ69R48MR48 L032L15,K88K93,K94L01,L05L121040127337813 MQ51130M?11B000/299L180280LM166274 L034L49,L23L27,L31L35,L42L431040127437813 LQ43LP35L?18L126L?22,225235A?23227 L034L83,L54L58,L62L66,L70L771040127537813 )225BM03127NM130237)235L%U6220WN000 L035M18,L88L96,M03M07,M150401040127637813 BM33LN)280BK94H094HN05Y?24094 L029M47,M24M25,M29M33,M37M411040127737813 MIR0M96DM92M72MM96O05U%U0BBN78M96W L034M81,M55M62,M69M74,0400401040127837813 M?24?25M%U0000RBN06LB000DM92N16U%U0B L036N17,M89M97,N02N06,N130401040127937813 SR75?25VM89?25BDM92N46.000890MM96N61 L036N53,N25N33,N40N47,0400401040128037813 M%U0000RBM69E.000811BN02U%U1EBO15?265 L037N90,N62N67,N74N78,N830401040128137813 AR75?27M%U0000WBM69LBN02S?27DM92O32 L035O25,N98O06,O11O15,O190401040128237813 .000860BN98H094HO75Y?24094BIQ8000}B L035O60,O33O37,O41O45,O52O601040128337813 BBBBBBB L007O67,O62O63,O64O65,O66O671040128437813 BBBBB000B001LL%U1020R L021O88,O69O70,O71O72,O76O811040128537813 U%U1B0100 080000?}27013 L023P11,O94O99,P02P07,P08P091040128637813 JOB CTL33 L015P26,P15P19,P20P23,P25P261040128737813 014 B007)021B047L L018P44,P28P29,P30P32,P36P401040128837813 L%U1001R.36I0?099B053 L021P65,P53P54,P55P56,P59P621040128937813 M074099)099B001/C004041#044004/I9II0 L036Q01,P73P77,P82P89,P96Q001040129037813 M080099B001B0320020)002A075003,002/I99 L038Q39,Q09Q13,Q21Q25,Q32Q361040129137813 ZTI .020N000L L019Q58,Q41Q42,Q43Q44,Q48Q521040129237813 C40000Q97 32 L013Q71,Q60Q61,Q64Q66,Q69Q701040129337813 )31 L025Q96,Q74Q94,Q95040,0400401040129437813 L039R35,040040,040040,0400401040129537813 ,BN000000L L029R64)R36R36,R49R50,R51R581040129637813 / 080113A ENDLTORG?41 L026R90,R72R75,R76R80,R83R881040129737813 8?3D9F L )043043 L028?18,R93R95,R97?02,?05?121040129837813 ,043HI L009?27,?23?24,?25?26,0400401040129937813 } L001I98,040040,040040,0400401040130037813 N000000,040040,040040,040040B000130137813 CONTROL 001 PASS 8 MAIN LINE 2 130237823 000000000000000 L015101,092097,040040,0400401040130337823 2SKBU%U6RC!00P07B!55UC!00P08B!55TU%U4R L038373,340345,352357,3643691040130437823 U%U5R)P25P26M!01475MP11O58M%U4001RBO37 L038411,379386,393400,4080401040130537823 BM33LC018P14B444/M079P18)P19B393C018P22L039450,417424,429436,4404441040130637823 M!00023U%U4RB475SLP24022B528FB5910232 L037487,458463,468475,4800401040130737823 B5910233B5910236B5910237,P25B 17,P26 L036523,496504,512516,5200401040130837823 B 49LP27023B558BB569CB580G)023B480 L034557,528535,540545,5505541040130937823 AP28023B540AP07023B545AP29023B550/180 L037594,565569,576580,5875911040131037823 ,P06LP06199LP18179LP31LP35LP39LP44 L034628,599606,613617,6216251040131137823 LP52LP53LO93C022P54B747SB747UC022P55 L036664,633637,641648,6536581040131237823 B747TLP58144LP61LP65LP72LP76LP81 L032696,670677,681685,6896931040131337823 LP88LP95LP99B8420226B7360225Y337104B842L039735,701705,709717,7257321040131437823 Y338104B842LQ01175LP65146LQ08LP76LQ12 L037772,743747,754761,7657691040131537823 LQ20LQ24LQ31LQ35LQ39,180B8420223 L032804,777781,785789,7937971040131637823 MQ40102B8420222MQ41102B8420221MQ42102 L037841,812820,827835,0400401040131737823 B!30)199LP06180LQ43124LQ47LO80LO88 L034875,846850,857864,8688721040131837823 LP53LO93B!30/175LQ43135LP35LQ51 L031906,880884,888892,8999031040131937823 LQ58LO80LO88LP53LO93C021P54B 17S L032938,911915,919923,9279341040132037823 B 17UC021P55B 17TD021Q59AQ60Q59DQ59980 L038976,944951,956963,9700401040132137823 Y339990LP06P06)P06MQ63P01B 170214 L033 09,984991,995 02,0400401040132237823 AQ63P01B5200234B5200235B5200236B5200237L039 48, 17 25, 33 41,0400401040132337823 VX81P251MP01P04/080V 84P191M%U5?28R L035 83, 57 64, 68 76,0400401040132437823 ,023057,062067,068071,074006,001B!76 L036/19, 91 98,/05/12,/160401040132537823 BJ59075%VJ59005KBS22075 BS11075ID075094L039/58,/28/36,/44/52,0400401040132637823 A094A094B/P1BV85BS65BV59BW82 L028/86,/63/67,/71/75,/79/831040132737823 BJ59BJ59BJ59BJ59BV34BJ59M020179 L031S17,/91/95,/99S03,S07S111040132837823 BJ59M074142MMMM061?01A007?01 L028S45,S22S29,S30S31,S32S391040132937823 SP28?01BJ67BK64BJ59AQ65007C007Q65BS88T L038S83,S53S57,S61S65,S72S791040133037823 BJ59BT44023#VT44004BM053R26BT23023@BT44L039T22,S88S96,T04T11,T190401040133137823 MQ68089A007089MQ690 0MR28166M061?01 L035T57,T30T37,T44T51,0400401040133237823 C007Q71BT82TBU47075ABS53SQ71007S007?01 L038T95,T65T70,T78T82,T890401040133337823 M007Q73MQ71007BJ67BU94075AMQ73007 L033U28,U03U10,U14U22,0400401040133437823 MR48Q93BK64MQ93154M061?01S007?01AP28?01L039U67,U36U40,U47U54,U610401040133537823 BK11M?04130MQ94M061?01BS53M061?01 L033V00,U72U79,U83U90,U940401040133637823 SQ73?01SQ96?01BK11M?04130MQ94BU22 L033V33,V08V15,V19V26,V300401040133737823 BJ59021 M073R48MMMMM L020V53,V42V49,V50V51,V52V531040133837823 MBJ59M073137BU47075BM061?01BS53BJ59075!L039V92,V55V59,V66V74,V81V851040133937823 BW240750M066?01BW47BW01075 B/20M061?01 L038W30,W01W08,W12W20,W240401040134037823 BW47BW24075 B/20HW81BK11M?04126M?04 L035W65,W35W43,W47W51,W55W621040134137823 MR49BK64B!76B000BX580753M070130MR50 L035X00,W70W74,W78W82,W90W971040134237823 MR57BK64LQ43124LP35B!76BX47075IB!30 L035X35,X05X09,X16X20,X24X321040134337823 LR64126B/20M020179BX32MR71126M070123 L036X71,X43X47,X54X58,X650401040134437823 BK64U%U6MVX93P261B!55/180MR74O58 L032Y03,X76X81,X89X93,X970401040134537823 M%U4101RBO37BM33LBZ54175LBX93175S L033Y36,Y12Y16,Y21Y29,0400401040134637823 BX93175CBX93175ZBX93175YAR75O97MO98105 L038Y74,Y45Y53,Y61Y68,0400401040134737823 BZ13106*MR79115C118P14BZ13/MR79111MR77 L038Z12,Y83Y90,Y97Z02,Z090401040134837823 MR781754K4C118R82BX93/BX93106*/180 L034Z46,Z20Z21,Z23Z30,Z35Z431040134937823 4K8B!55MR87120BY61 } L020Z66,Z48Z50,Z54Z61,Z65Z661040135037823 N000000,040040,040040,040040B000135137823 CONTROL 333 PASS 8 EXTRA OUTPUT OVERLAP 135237833 F1/332/M6962152FKM730234 L024356,335339,340347,3483501040135337833 M7462512FJ/271M7702242M794224 L029385,364365,367371,3783791040135437833 2M8182242M8422242M8662242 L025410,387394,395402,4034101040135537833 FJ/224M8812152FKM9202392 L024434,413417,424425,4274341040135637833 F1)P06.000880B530F/239M9302102 L030464,437441,448453,4574641040135737833 FKM9662362U%U1RU%U4RU%U5RU%U6R L030494,467474,475480,4854901040135837833 V517P251/236M994228FK2F1.000889 L031525,503507,514516,5175191040135937833 B519)I98998)A08/199U%U1BU%U1BU%U1B L034559,530537,541545,5505551040136037833 U%U1BU%U1BU%U1BU%U1BU%U1BL%U1Z00RB602L L038597,565570,575580,5855931040136137833 BZ01M995996U%U1BL%U1Z00RB631LBZ01U%U1B L038635,602609,614622,6276311040136237833 S997996V614996B.000891L%U1Z00RB602E L035670,643651,658666,0400401040136337833 .000812BZ01END OF ASSEMBLY L026696,678682,040040,0400401040136437833 IF EXTRA OUTPUT DESIRED, SET SENSE L034730,040040,040040,0400401040136537833 SWITCH F ON, AND L016746,040040,040040,0400401040136637833 B ON FOR CONDENSED CARDS L024770,040040,040040,0400401040136737833 C ON FOR LOADABLE TAPE 6 L024794,040040,040040,0400401040136837833 D ON FOR LISTING TAPE 3 L024818,040040,040040,0400401040136937833 E ON TO SUPPRESS LISTING L024842,040040,040040,0400401040137037833 G ON FOR NEW SOURCE DECKAND PRESS STARTL039881,867040,040040,0400401040137137833 IF NO EXTRA OUTPUT DESIRED, PRESS STARTL039920,040040,040040,0400401040137237833 END OF JOB L010930,040040,040040,0400401040137337833 INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4 L036966,040040,040040,0400401040137437833 LOADABLE TAPE ON TAPE UNIT 6I A} L032998,995996,997998,0400401040137537833 N000000,040040,040040,040040B000137637833 CONTROL 1401 AUTOCODER GENERATED ON TAPE UNIT 1 137737993 LIBDISTRIBUTION 013094 0002 01581636 00133 AUTOCODER 1PID0021 0130950003