~/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