CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 FORTRAN SYSTEM VERSION THREE 50003 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 273 JOB 1401 FORTRAN SYSTEM VERSION THREE 102 1 02 CTL 645 11 103 1 03 ORG 111 0111 104 1 04 XDOAD1 DCW #1 1 0111 4 105 1 05 XDOAD2 DCW #1 1 0112 4 106 1 06 XDOAD3 DCW #1 1 0113 4 107 1 07 XDOINI DCW #1 1 0114 4 108 1 08 XOBLST DCW #1 1 0115 4 109 1 09 XDOSBS DCW #1 1 0116 4 110 1 10 XCOMF1 DCW #1 1 0117 4 111 1 11 XSINFU DCW #1 1 0118 5 112 1 12 XLOGFN DCW #1 1 0119 5 113 1 13 XXPNTL DCW #1 1 0120 5 114 1 14 XATANF DCW #1 1 0121 5 115 1 15 XABSVA DCW #1 1 0122 5 116 1 16 XNEGTF DCW #1 1 0123 5 117 1 17 XFIXFU DCW #1 1 0124 5 118 1 18 XFLTFU DCW #1 1 0125 6 119 1 19 XSQRTF DCW #1 1 0126 6 120 1 20 XUSER1 DCW #1 1 0127 6 121 1 21 XUSER2 DCW #1 1 0128 6 122 1 22 XUSER3 DCW #1 1 0129 6 123 1 23 XUSER4 DCW #1 1 0130 6 124 1 24 XUSER5 DCW #1 1 0131 6 125 1 25 XUSER6 DCW #1 1 0132 7 126 1 26 XUSER7 DCW #1 1 0133 7 127 1 27 XUSER8 DCW #1 1 0134 7 128 1 28 XUSER9 DCW #1 1 0135 7 129 1 29 XUSR10 DCW #1 1 0136 7 130 1 30 XUSR11 DCW #1 1 0137 7 131 1 31 XUSR12 DCW #1 1 0138 7 132 1 32 XLINKF DCW #1 1 0139 8 133 1 33 NDTABL EQU *&1 0140 134 1 34 ONEADR DCW #3 ADDRESS OF CONSTANT ONE 3 0142 8 135 1 35 ADTBLL DCW #3 NXBTM FOR STNUM TWO & RESORT 4 3 0145 8 136 1 36 BSAUCE DCW #3 BOTTOM OF OBJECT FOR RESORT 3 0148 8 137 1 37 GNSTMZ DCW #3 TOTAL NO OF DO-GENERATED STMTS 3 0151 8 138 1 38 PERIOD DCW #3 ADDRESS OF PERIOD (NO LIST) 3 0154 8 139 1 39 XEXPON DCW #3 ADDRESS OF CONSTANT .1 3 0157 8 140 1 40 PLUSDF DCW #3 (PARAMA&2)-CONLST#16000S COMP. OF MACFLS 3 0160 9 141 1 41 MACFLS DCW #3 COMPILE TIME ADR.&MACFLS#OBJ. TIME ADR. 3 0163 9 142 1 42 ORG 181 0181 143 1 43 INTSTZ DCW #3 TOTAL NUMBER OF INPUT STATEMENTS 3 0183 10 144 1 44 GOGOGO EQU * ADDRESS OF FIRST EXECUTABLE STMT 0183 145 1 45 FAILSW DC #1 CRIPPLE GO CONDITION SWITCH 1 0184 10 146 1 46 XLINKW DCW #1 LOAD XLINK SWITCH 1 0185 10 147 1 47 GOTOFN DCW #3 ADDR OF FUNC SELECT ROUTINE 3 0188 10 1 1401 FORTRAN SYSTEM VERSION THREE 50003 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 SUBSCR DCW #3 OBJT TIME ADDR OF DOSBS FUNC 3 0191 10 149 1 49 CONLST DCW #3 ADR. OF POS. IMM. BEFORE ARRAYS 3 0194 10 150 1 50 FUNCSW DC #1 1 0195 10 151 1 51 ORG 196 0196 152 1 52 DCW @V3M4@ V3M4 4 0199 10 1 1401 FORTRAN SNAPSHOT ROUTINE 50003 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 153 1 53 JOB 1401 FORTRAN SNAPSHOT ROUTINE 154 1 54 SFX 7 7 155 1 55 XXX EQU 0 7 0000 156 1 56 XL1 EQU 089 7 0089 157 1 57 089 DCW 000 7 3 0089 11 158 1 58 XL3 EQU 099 7 0099 159 1 59 099 DCW 000 7 3 0099 12 160 1 60 ORG 333 7 0333 161 1 61 SBR PRTXT&3 7 4 0333 H 567 13 162 1 62 SBR HLDXT&6 7 4 0337 H 408 13 163 1 63 MCW @000@,LINCT-2 7 7 0341 M 661 656 13 164 1 64 MCW XL3, HLD32&6 7 7 0348 M 099 415 13 165 1 65 MCW XL1, HLD31&6 7 7 0355 M 089 422 13 166 1 66 SBR XL1, 1 7 7 0362 H 089 001 13 167 1 67 SBR XL3, 202 7 7 0369 H 099 202 14 168 1 68 CS 332 7 4 0376 / 332 14 169 1 69 CS 7 1 0380 / 14 170 1 70 MCW 110,210 7 7 0381 M 110 210 14 171 1 71 BSS ONLY,F 7 5 0388 B 621 F 14 172 1 72 CC 1 7 2 0393 F 1 14 173 1 73 MCW 094,250 7 7 0395 M 094 250 14 174 1 74 HLDXT SBR 216,XXX 7 7 0402 H 216 000 15 175 1 75 HLD32 SBR 256,XXX 7 7 0409 H 256 000 15 176 1 76 HLD31 SBR 244,XXX 7 7 0416 H 244 000 15 177 1 77 W 7 1 0423 2 15 178 1 78 CC K 7 2 0424 F K 15 179 1 79 ZA &2,PGCTR#2 7 7 0426 ? 662 664 15 180 1 80 NULINE CS 332 7 4 0433 / 332 15 181 1 81 CS 7 1 0437 / 16 182 1 82 CC J 7 2 0438 F J 16 183 1 83 MCW LINCT,306 7 7 0440 M 658 306 16 184 1 84 MCW 7 1 0447 M 16 185 1 85 SBR MVHED&6 7 4 0448 H 465 16 186 1 86 MCW @9@, CTR-1 7 7 0452 M 665 668 16 187 1 87 MVHED MCW CTR-1,XXX 7 7 0459 M 668 000 16 188 1 88 MCW HEAD 7 4 0466 M 651 17 189 1 89 SBR MVHED&6 7 4 0470 H 465 17 190 1 90 A @I0@, CTR#2 7 7 0474 A 667 669 17 191 1 91 BWZ MVHED, CTR-1, 2 7 8 0481 V 459 668 2 17 192 1 92 A &1,LINCT-2 7 7 0489 A 670 656 17 193 1 93 W 7 1 0496 2 17 194 1 94 LOOP SW 0&X3 7 4 0497 , 0?0 17 195 1 95 MCW 0&X1,0&X3 7 7 0501 M 0|0 0?0 18 196 1 96 BW CMPAB,0&X1 7 8 0508 V 520 0|0 1 18 197 1 97 CW 0&X3 7 4 0516 ) 0?0 18 198 1 98 CMPAB C XL1,PARAMA&2 7 7 0520 C 089 688 18 199 1 99 BU CPL 7 5 0527 B 568 / 18 200 2 00 W 7 1 0532 2 18 201 2 01 WM 7 2 0533 2 ) 18 202 2 02 RSTRX MCW HLD31&6,XL1 7 7 0535 M 422 089 19 1 1401 FORTRAN SNAPSHOT ROUTINE 50003 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 203 2 03 MCW HLD32&6,XL3 7 7 0542 M 415 099 19 204 2 04 CS 332 7 4 0549 / 332 19 205 2 05 CS 7 1 0553 / 19 206 2 06 BSS *&5,G 7 5 0554 B 563 G 19 207 2 07 B PRTXT 7 4 0559 B 564 19 208 2 08 H 7 1 0563 . 19 209 2 09 PRTXT B 0 7 4 0564 B 000 20 210 2 10 CPL SBR XL1, 1&X1 7 7 0568 H 089 0|1 20 211 2 11 BCE INC, XL3-2, 2 7 8 0575 B 632 097 2 20 212 2 12 SBR XL3, 201 7 7 0583 H 099 201 20 213 2 13 W 7 1 0590 2 20 214 2 14 WM 7 2 0591 2 ) 20 215 2 15 A &1,PGCTR 7 7 0593 A 670 664 20 216 2 16 C PGCTR,&15 7 7 0600 C 664 672 21 217 2 17 BU NULINE 7 5 0607 B 433 / 21 218 2 18 S PGCTR 7 4 0612 S 664 21 219 2 19 CCB NULINE,1 7 5 0616 F 433 1 21 220 2 20 ONLY MCW @EXECUTED@,220 7 7 0621 M 680 220 21 221 2 21 W RSTRX 7 4 0628 2 535 21 222 2 22 INC A &1,XL3 7 7 0632 A 670 099 21 223 2 23 B LOOP 7 4 0639 B 497 22 224 2 24 HEAD DCW @9........@ 7 9 0651 22 225 2 25 DCW @9-@ 7 2 0653 22 226 2 26 LINCT DCW 00000 7 5 0658 22 227 2 27 LTORG * 7 0659 DCW @000@ 7 3 0661 LIT 22 DCW &2 7 1 0662 LIT 22 PGCTR7 DCW #02 7 2 0664 AREA 22 DCW @9@ 7 1 0665 LIT 23 DCW @I0@ 7 2 0667 LIT 23 CTR 7 DCW #02 7 2 0669 AREA 23 DCW &1 7 1 0670 LIT 23 DCW &15 7 2 0672 LIT 23 DCW @EXECUTED@ 7 8 0680 LIT 23 1 1401 FORTRAN SYSTEM MONITOR AND PARAMETER CARD 50013 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 228 2 28 JOB 1401 FORTRAN SYSTEM MONITOR AND PARAMETER CARD 7 229 2 29 SFX A A 230 2 30 PRMCD DA 1X19 A 0681 0699 23 231 2 31 PARAM 6 A 0686 SBFLD 232 2 32 MONTER MCW BCLEAR-2,CCLEAR-2 A 7 0700 M 831 828 24 233 2 33 ACLEAR CS 0 A 4 0707 / 000 24 234 2 34 SBR TCLEAR A 4 0711 H 710 24 235 2 35 C TCLEAR,CCLEAR A 7 0715 C 710 830 24 236 2 36 BU ACLEAR A 5 0722 B 707 / 24 237 2 37 SW LOD&4 A 4 0727 , 758 24 238 2 38 MCW TCLEAR,LOD&6 A 7 0731 M 710 760 25 239 2 39 CW LOD&4 A 4 0738 ) 758 25 240 2 40 CK C LOD&6,BCLEAR#3 A 7 0742 C 760 833 25 241 2 41 BE MONTOR A 5 0749 B 769 S 25 242 2 42 LOD LCA @ @,0 BLANK A 7 0754 L 834 000 25 243 2 43 SBR LOD&6 A 4 0761 H 760 25 244 2 44 B CK A 4 0765 B 742 25 245 2 45 TCLEAR EQU ACLEAR&3 A 0710 246 2 46 *RESTRICTIONS ON CLEAR ROUTINE 247 2 47 * 1. MUST CLEAR AT LEAST ONE CENTURY 248 2 48 * 2. CANNOT CLEAR ABOVE 4K 249 2 49 MONTOR R 040 A 4 0769 1 040 26 250 2 50 NINE MCW &9,RDCNT A 7 0773 M 835 837 26 251 2 51 INITAP RTW 1,XBEGIN A 8 0780 L %U1 838 R 26 252 2 52 BER ERRTP A 5 0788 B 797 L 26 253 2 53 INITXT B XBEGIN A 4 0793 B 838 26 254 2 54 ERRTP BSP 1 A 5 0797 U %U1 B 26 255 2 55 S &1,RDCNT#1 A 7 0802 S 836 837 27 256 2 56 BWZ INITAP,RDCNT,B A 8 0809 V 780 837 B 27 257 2 57 H 3333,3333 A 7 0817 . C33 C33 27 258 2 58 B NINE A 4 0824 B 773 27 259 2 59 CCLEAR DCW 999 A 3 0830 27 260 2 60 LTORG * A 0831 BCLEAR DCW #03 A 3 0833 AREA 27 DCW @ @ A 1 0834 LIT 27 DCW &9 A 1 0835 LIT 28 DCW &1 A 1 0836 LIT 28 RDCNTA DCW #01 A 1 0837 AREA 28 261 2 61 XBEGIN EQU *&1 A 0838 1 1401 FORTRAN LOADER PHASE 50023 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 262 2 62 JOB 1401 FORTRAN LOADER PHASE A 263 2 63 FBEGN LOADER,XL1,R,XL2,R,XL3,R,A A MACRO 264 SFX A A GEN 265 110 DCW @LOADER@ A 6 0110 GEN 29 266 XL1 EQU 089 A 0089 GEN 267 089 DCW 000 A 3 0089 GEN 30 268 091 DC 00 A 2 0091 GEN 30 269 XL2 EQU 094 A 0094 GEN 270 094 DCW 000 A 3 0094 GEN 30 271 096 DC 00 A 2 0096 GEN 30 272 XL3 EQU 099 A 0099 GEN 273 099 DCW 000 A 3 0099 GEN 30 274 100 DC 0 A 1 0100 GEN 30 275 2 64 START BCE *&8,1, BLANK A 8 0838 B 853 001 31 276 2 65 MCW @N@,MONTOR A 7 0846 M N49 769 31 277 2 66 CS 080 A 4 0853 / 080 31 278 2 67 SW 1,GM A 7 0857 , 001 N29 31 279 2 68 SW 81,84 A 7 0864 , 081 084 31 280 2 69 CS 332 A 4 0871 / 332 31 281 2 70 CS A 1 0875 / 31 282 2 71 R A 1 0876 1 32 283 2 72 LCA 19,PRMCD&18 A 7 0877 L 019 699 32 284 2 73 C PRMCD&4,@PARAM@ A 7 0884 C 685 N54 32 285 2 74 BU NOPRM A 5 0891 B L24 / 32 286 2 75 SW 073 A 4 0896 , 073 32 287 2 76 SW 006,007 A 7 0900 , 006 007 32 288 2 77 SW PARAM A 4 0907 , 686 32 289 2 78 MCW 80,PARAM-1 A 7 0911 M 080 685 33 290 2 79 CS 0 DETERMINE TOP OF A 4 0918 / 000 33 291 2 80 SBR LARRY#3 MACHINE A 4 0922 H N57 33 292 2 81 MCW PARAM&2,DUM3#3 A 7 0926 M 688 N60 33 293 2 82 B UNPAK A 4 0933 B Y76 33 294 2 83 MCW DUM5#5,WK5 A 7 0937 M N65 O53 33 295 2 84 MCW LARRY,DUM3 A 7 0944 M N57 N60 34 296 2 85 B UNPAK A 4 0951 B Y76 34 297 2 86 MCW DUM5,WK51 A 7 0955 M N65 O48 34 298 2 87 A &1,WK5 A 7 0962 A N66 O53 34 299 2 88 A &1,WK51 A 7 0969 A N66 O48 34 300 2 89 CS 332 A 4 0976 / 332 34 301 2 90 CS A 1 0980 / 34 302 2 91 MESSG @START OF FORTRAN COMPILATION@,28,1,J A MACRO 303 CC 1 A 2 0981 F 1 GEN 35 304 CS 332 A 4 0983 / 332 GEN 35 305 CS A 1 0987 / GEN 35 306 MCW @START OF FORTRAN COMPILATION@,28&200 A 7 0988 M N94 228 GEN 35 307 W A 1 0995 2 GEN 35 308 CC J A 2 0996 F J GEN 35 309 2 92 MCW WK5,231 A 7 0998 M O53 231 35 310 2 93 MCW @MACHINE SIZE SPECIFIED IS @ A 4 1005 M O20 36 311 2 94 W A 1 1009 2 36 1 1401 FORTRAN LOADER PHASE 50023 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 312 2 95 CS 235 A 4 1010 / 235 36 313 2 96 MCW WK51,228 A 7 1014 M O48 228 36 314 2 97 MCW @ACTUAL MACHINE SIZE IS @ A 4 1021 M O43 36 315 2 98 BCE EXIT,PARAM&9,T A 8 1025 B |96 695 T 36 316 2 99 W A 1 1033 2 36 317 3 00 C WK51#5,WK5#5 A 7 1034 C O48 O53 37 318 3 01 BH MSERR A 5 1041 B |77 U 37 319 3 02 C WK5,@03900@ A 7 1046 C O53 O58 37 320 3 03 BL EXIT A 5 1053 B |96 T 37 321 3 04 MESSG @MACHINE SIZE ERROR@,18,J A MACRO 322 CC J A 2 1058 F J GEN 37 323 CS 332 A 4 1060 / 332 GEN 37 324 CS A 1 1064 / GEN 37 325 MCW @MACHINE SIZE ERROR@,18&200 A 7 1065 M O76 218 GEN 38 326 W A 1 1072 2 GEN 38 327 3 05 B L2PRM A 4 1073 B |89 38 328 3 06 MSERR MCW @SPECIFIED IS GREATER THAN ACTUAL MACHINE SIZE.@,267 A 7 1077 M P22 267 38 329 3 07 MCW @ERROR - MACHINE SIZE @ A 4 1084 M P43 38 330 3 08 W A 1 1088 2 38 331 3 09 L2PRM MCW LARRY,PARAM&2 A 7 1089 M N57 688 38 332 3 10 EXIT MCW PARAM&2,CLR&3 A 7 1096 M 688 /06 39 333 3 11 CLR CS 0 A 4 1103 / 000 39 334 3 12 SBR CLR&3 A 4 1107 H /06 39 335 3 13 C CLR&3,&SYSGM A 7 1111 C /06 P46 39 336 3 14 BU CLR A 5 1118 B /03 / 39 337 3 15 R A 1 1123 1 39 338 3 16 MZ *-006,WORK&76 A 7 1124 Y /24 N01 39 339 3 17 MZ *-006,ABIT&007 A 7 1131 Y /31 X07 40 340 3 18 MZ *-6,ABIT2&7 A 7 1138 Y /38 Z80 40 341 3 19 MZ *-6,CHAR-1 A 7 1145 Y /45 L87 40 342 3 20 MCW NUMBER,WORK&003 A 7 1152 M N33 M28 40 343 3 21 MCW PARAM&002,DUMMY&003 A 7 1159 M 688 /69 40 344 3 22 DUMMY CW 0000 A 4 1166 ) 000 40 345 3 23 SBR STORE&006 A 4 1170 H T70 41 346 3 24 MOVE BW MVIPT,ENDSW A 8 1174 V S11 Q28 1 41 347 3 25 BCE SCANR,001,: 5-8 A 8 1182 B !70 001 : 41 348 3 26 PRMSG MESSG @MESSAGE 1-SYSTEM DOES NOT FOLLOW END CARD@,70,1,1 A MACRO 349 PRMSG CC 1 A 2 1190 F 1 GEN 41 350 CS 332 A 4 1192 / 332 GEN 41 351 CS A 1 1196 / GEN 41 352 MCW @MESSAGE 1-SYSTEM DOES NOT FOLLOW END CARD@,70&200 A 7 1197 M P87 270 GEN 41 353 W A 1 1204 2 GEN 42 354 CC 1 A 2 1205 F 1 GEN 42 355 3 27 H *-3 A 4 1207 . S07 42 356 3 28 MVIPT MCW 0072,WORK&075 A 7 1211 M 072 N00 42 357 3 29 MCW A 1 1218 M 42 358 3 30 MCW A 1 1219 M 42 359 3 31 BCE SCANR,WORK&004,: 5-8 A 8 1220 B !70 M29 : 42 360 3 32 TOVL BIN PRTHD, CARRIAGE OVERFLOW TEST - INITIALIZED A 5 1228 B K67 43 361 3 33 M2PRT CS 300 A 4 1233 / 300 43 1 1401 FORTRAN LOADER PHASE 50023 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 362 3 34 CS A 1 1237 / 43 363 3 35 MCW 0072,0283 A 7 1238 M 072 283 43 364 3 36 MCW 006,215 A 7 1245 M 006 215 43 365 3 37 BCE CMNT,WORK&4,C A 8 1252 B L58 M29 C 43 366 3 38 FSTNU B NEW A 4 1260 B V46 43 367 3 39 BCE NEW,WORK&009,0 A 8 1264 B V46 M34 0 44 368 3 40 BCE NEW,WORK&009, A 8 1272 B V46 M34 44 369 3 41 A &1,CTUCD A 7 1280 A N66 Q24 44 370 3 42 BCE *&8,CTUCD-1,0 A 8 1287 B T02 Q23 0 44 371 3 43 MCW @CONTINUE CD ERR@,300 A 7 1295 M Q02 300 44 372 3 44 W A 1 1302 2 44 373 3 45 MCW INILZ1,SEL&003 A 7 1303 M N06 T13 45 374 3 46 SEL MCW 0000,FIXED A 7 1310 M 000 Q31 45 375 3 47 SW SEL&001 A 4 1317 , T11 45 376 3 48 A ONE,SEL&003 A 7 1321 A N10 T13 45 377 3 49 CW SEL&001 A 4 1328 ) T11 45 378 3 50 SW1 NOP CKLHC A 4 1332 N Z73 45 379 3 51 BCE SEL,FIXED, BLANK A 8 1336 B T10 Q31 46 380 3 52 MCW FIXED,*&8 A 7 1344 M Q31 T58 46 381 3 53 BCE ABIT,CHAR,0 A 8 1351 B X00 L88 0 46 382 3 54 CHAIN 5 A MACRO 383 BCE A 1 1359 B GEN 46 384 BCE A 1 1360 B GEN 46 385 BCE A 1 1361 B GEN 46 386 BCE A 1 1362 B GEN 46 387 BCE A 1 1363 B GEN 47 388 3 55 STORE MCW FIXED,0000 A 7 1364 M Q31 000 47 389 3 56 SBR STORE&006 A 4 1371 H T70 47 390 3 57 INCTO A &1,TOTAL#5 A 7 1375 A N66 Q07 47 391 3 58 C STORE&6,&LDRND A 7 1382 C T70 Q10 47 392 3 59 BE QUIT A 5 1389 B K33 S 47 393 3 60 HSW BCE HOLLR,FIXED,H A 8 1394 B X51 Q31 H 47 394 3 61 HSW2 NOP @B@,HSW A 7 1402 N Q11 T94 48 395 3 62 CMPAR C SEL&003,INILZ1 A 7 1409 C T13 N06 48 396 3 63 SWTCH2 BIN SEL,/ A 5 1416 B T10 / 48 397 3 64 SW STORE&004 A 4 1421 , T68 48 398 3 65 JUMP MCW STORE&006,XL2 A 7 1425 M T70 094 48 399 3 66 CW STORE&004 A 4 1432 ) T68 48 400 3 67 MCW N,JUMP A 7 1436 M N28 U25 49 401 3 68 MCW N,SWTCH2 A 7 1443 M N28 U16 49 402 3 69 A TEN,COUNT A 7 1450 A N36 N03 49 403 3 70 BCE TSTND,COUNT-1,5 A 8 1457 B W69 N02 5 49 404 3 71 SW ENDSW A 4 1465 , Q28 49 405 3 72 BWZ SEL,COUNT-001,2 A 8 1469 V T10 N02 2 50 406 3 73 MCW B,SWTCH2 A 7 1477 M N11 U16 50 407 3 74 REMOVE MCW 0&X2,OUT A 7 1484 M 0!0 N20 50 408 3 75 C FORMAT,OUT A 7 1491 C N27 N20 50 409 3 76 BU SEL A 5 1498 B T10 / 50 410 3 77 MCW @B@,HSW A 7 1503 M Q11 T94 51 411 3 78 MCW 0&X3,WORK6#6 A 7 1510 M 0?0 Q17 51 1 1401 FORTRAN LOADER PHASE 50023 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 412 3 79 MCW @F@,WORK6-3 A 7 1517 M Q18 Q14 51 413 3 80 MCW WORK6,0&X3 A 7 1524 M Q17 0?0 51 414 3 81 B SEL A 4 1531 B T10 51 415 3 82 SLASH MCW @@@,FIXED A 7 1535 M Q19 Q31 51 416 3 83 B STORE A 4 1542 B T64 52 417 3 84 NEW MCW @N@,FSTNU A 7 1546 M N49 S60 52 418 3 85 A &1,STMNO#3 A 7 1553 A N66 Q22 52 419 3 86 MCW @N@,HSW A 7 1560 M N49 T94 52 420 3 87 MCW @N@,HSW2 A 7 1567 M N49 U02 52 421 3 88 MCW 5,211 A 7 1574 M 005 211 52 422 3 89 S CTUCD#2 A 4 1581 S Q24 53 423 3 09 MCW @N@,SW1 A 7 1585 M N49 T32 53 424 3 91 MCS STMNO,203 A 7 1592 Z Q22 203 53 425 3 92 W A 1 1599 2 53 426 3 93 SW STORE&004 A 4 1600 , T68 53 427 3 94 MCW STORE&006,LOADGM&006 A 7 1604 M T70 W28 53 428 3 95 CW STORE&4 A 4 1611 ) T68 53 429 3 96 MCW M,JUMP A 7 1615 M N37 U25 54 430 3 97 LOADGM LCA GM,0000 A 7 1622 L N29 000 54 431 3 98 SBR XL3 A 4 1629 H 099 54 432 3 99 SBR STORE&006 A 4 1633 H T70 54 433 4 00 MCW MARK,WORK&009 A 7 1637 M N34 M34 54 434 4 01 MCW B,SWTCH2 A 7 1644 M N11 U16 54 435 4 02 MCW TWO,COUNT A 7 1651 M N13 N03 55 436 4 03 MCW INILZ2,SEL&003 A 7 1658 M N09 T13 55 437 4 04 B SEL A 4 1665 B T10 55 438 4 05 TSTND C 0&X2,@DNE@ A 7 1669 C 0!0 Q27 55 439 4 06 BU SEL A 5 1676 B T10 / 55 440 4 07 CW ENDSW#1 A 4 1681 ) Q28 55 441 4 08 B SEL A 4 1685 B T10 55 442 4 09 ATSGN MCW @-@,FIXED A 7 1689 M Q29 Q31 56 443 4 10 B STORE A 4 1696 B T64 56 444 4 11 ABIT BCE INPUT,FIXED, ABIT A 8 1700 B L73 Q31 56 445 4 12 BCE INPUT,FIXED,| A 8 1708 B L73 Q31 | 56 446 4 13 BCE SLASH,FIXED,/ A 8 1716 B V35 Q31 / 56 447 4 14 BCE ATSGN,FIXED,@ A 8 1724 B W89 Q31 @ 57 448 4 15 MCW @*@,300 A 7 1732 M Q30 300 57 449 4 16 MCW KPROC A 4 1739 M N48 57 450 4 17 MCW FIXED#1 A 4 1743 M Q31 57 451 4 18 B STORE A 4 1747 B T64 57 452 4 19 HOLLR MCW STORE&6,XL1 A 7 1751 M T70 089 57 453 4 20 MCW @N@,HSW A 7 1758 M N49 T94 58 454 4 21 MCW @N@,HSW2 A 7 1765 M N49 U02 58 455 4 22 MCW @B@,SW1 A 7 1772 M Q11 T32 58 456 4 23 MCW 4&X1,WORK3#3 A 7 1779 M 0|4 Q34 58 457 4 24 BCE *&9,WORK3-1,@ A 8 1786 B Y02 Q33 @ 58 458 4 25 BWZ MYB2,WORK3-1,2 A 8 1794 V Y17 Q33 2 59 459 4 26 MCW WORK3-2,WORK3 A 7 1802 M Q32 Q34 59 460 4 27 MCW @00@ A 4 1809 M Q36 59 461 4 28 B CMPAR A 4 1813 B U09 59 1 1401 FORTRAN LOADER PHASE 50023 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 462 4 29 MYB2 BCE *&9,WORK3,@ A 8 1817 B Y33 Q34 @ 59 463 4 30 BWZ ISTRI,WORK3,2 A 8 1825 V Y51 Q34 2 59 464 4 31 MCW WORK3-2,WORK3 A 7 1833 M Q32 Q34 60 465 4 32 MCW @0@,WORK3-2 A 7 1840 M Q37 Q32 60 466 4 33 B CMPAR A 4 1847 B U09 60 467 4 34 ISTRI MCW WORK3,SAV1#1 A 7 1851 M Q34 Q38 60 468 4 35 MCW WORK3-2,WORK3 A 7 1858 M Q32 Q34 60 469 4 36 MCW SAV1,WORK3-2 A 7 1865 M Q38 Q32 60 470 4 37 B CMPAR A 4 1872 B U09 61 471 4 38 UNPAK SBR PKXT&3 A 4 1876 H Z72 61 472 4 39 UNPAK DUM3,DUM5 A MACRO 473 S )0M005#2 A 4 1880 S Q40 GEN 61 474 S )0L005#2 A 4 1884 S Q42 GEN 61 475 MZ DUM3,)0M005-1 A 7 1888 Y N60 Q39 GEN 61 476 MZ DUM3-2,)0L005-1 A 7 1895 Y N58 Q41 GEN 61 477 )0J005 BWZ )0K005, )0L005-1, 2 A 8 1902 V Z21 Q41 2 GEN 61 478 A @A0@, )0L005 A 7 1910 A Q44 Q42 GEN 62 479 B )0J005 A 4 1917 B Z02 GEN 62 480 )0K005 BWZ )0P005, )0M005-1, 2 A 8 1921 V Z40 Q39 2 GEN 62 481 A @?4@, )0M005 A 7 1929 A Q46 Q40 GEN 62 482 B )0K005 A 4 1936 B Z21 GEN 62 483 )0P005 A )0L005-1,)0M005 A 7 1940 A Q41 Q40 GEN 62 484 MCW DUM3,DUM5 A 7 1947 M N60 N65 GEN 63 485 MCW )0M005 A 4 1954 M Q40 GEN 63 486 ZA DUM5 A 4 1958 ? N65 GEN 63 487 MZ *-4, DUM5 A 7 1962 Y Z64 N65 GEN 63 488 4 40 PKXT B 000 A 4 1969 B 000 63 489 4 41 ABIT2 EQU *&1 A 1973 490 4 42 CKLHC BCE INPUT,FIXED, A 8 1973 B L73 Q31 63 491 4 43 S &1,WORK3 A 7 1981 S N66 Q34 64 492 4 44 C WORK3,&000 A 7 1988 C Q34 Q49 64 493 4 45 BU STORE A 5 1995 B T64 / 64 494 4 46 MCW @M@,HSW2 A 7 2000 M Q50 U02 64 495 4 47 MCW N,SW1 A 7 2007 M N28 T32 64 496 4 48 MCW SEL&3,XL1 A 7 2014 M T13 089 65 497 4 49 C 0&X1,@,@ A 7 2021 C 0|0 Q51 65 498 4 50 BE STORE A 5 2028 B T64 S 65 499 4 51 MCW STORE&6,*&7 A 7 2033 M T70 !46 65 500 4 52 MCW 0,0 A 7 2040 M 000 000 65 501 4 53 MCW @,@ A 4 2047 M Q51 65 502 4 54 SBR STORE&6 A 4 2051 H T70 66 503 4 55 A &1,TOTAL A 7 2055 A N66 Q07 66 504 4 46 B INCTO A 4 2062 B T75 66 505 4 57 B STORE A 4 2066 B T64 66 506 4 58 SCANR MCW STORE&6,XL1 A 7 2070 M T70 089 66 507 4 59 LCA GM,0&X1 A 7 2077 L N29 0|0 66 508 4 60 SBR XL1 A 4 2084 H 089 66 509 4 61 CC 1 A 2 2088 F 1 67 510 4 62 CS 332 A 4 2090 / 332 67 511 4 63 CS A 1 2094 / 67 1 1401 FORTRAN LOADER PHASE 50023 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 512 4 64 MCS TOTAL,205 A 7 2095 Z Q07 205 67 513 4 65 MCW @INPUT CHARACTERS@,222 A 7 2102 M Q67 222 67 514 4 66 W A 1 2109 2 67 515 4 67 CC J A 2 2110 F J 67 516 4 68 MCW STMNO,INTSTZ A 7 2112 M Q22 183 68 517 4 69 LCA @ }POTS:R000@,0&X1 G-M,5-8 A 7 2119 L Q78 0|0 68 518 4 70 SBR XL1 A 4 2126 H 089 68 519 4 71 SW 2&X1 A 4 2130 , 0|2 68 520 4 72 A &1,INTSTZ A 7 2134 A N66 183 68 521 4 73 BCE *&5,LDRND, BLANK A 8 2141 B J53 ?00 68 522 4 74 B QUIT A 4 2149 B K33 69 523 4 75 SBR TCLEAR,SYSGM A 7 2153 H 710 R99 69 524 4 76 SBR BCLEAR,XBEGIN A 7 2160 H 833 838 69 525 4 77 BSS 333,C A 5 2167 B 333 C 69 526 4 78 LCA @SCANNER@,110 A 7 2172 L Q85 110 69 527 4 79 CS 080 A 4 2179 / 080 69 528 4 80 SW 1,40 A 7 2183 , 001 040 70 529 4 81 SW 47,54 A 7 2190 , 047 054 70 530 4 82 SW 61,68 A 7 2197 , 061 068 70 531 4 83 SW 72 A 4 2204 , 072 70 532 4 84 BCE MONTER,MONTOR,N TAPE SYSTEM A 8 2208 B 700 769 N 70 533 4 85 R A 1 2216 1 70 534 4 86 C 7,@SCANNER@ A 7 2217 C 007 Q92 71 535 4 87 BE MONTER A 5 2224 B 700 S 71 536 4 88 B PRMSG A 4 2229 B /90 71 537 4 89 QUIT FQUIT A MACRO 538 QUIT CS 332 A 4 2233 / 332 GEN 71 539 CS A 1 2237 / GEN 71 540 CC 1 A 2 2238 F 1 GEN 71 541 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 A 7 2240 M R28 270 GEN 71 542 W A 1 2247 2 GEN 72 543 CC 1 A 2 2248 F 1 GEN 72 544 BCE *&6,MONTOR,1 A 8 2250 B K63 769 1 GEN 72 545 RWD 1 A 5 2258 U %U1 R GEN 72 546 H *-3 A 4 2263 . K63 GEN 72 547 4 90 PRTHD CC 1 A 2 2267 F 1 72 548 4 91 MCW @@@,TOVL&4 A 7 2269 M Q19 S32 72 549 4 92 CS 299 A 4 2276 / 299 73 550 4 93 A ONE,PGNO#003 A 7 2280 A N10 R31 73 551 4 94 MCS PGNO,299 A 7 2287 Z R31 299 73 552 4 95 MCW @ PAGE @,295 A 7 2294 M R39 295 73 553 4 96 MCW 080 A 4 2301 M 080 73 554 4 97 W A 1 2305 2 73 555 4 98 CS 299 A 4 2306 / 299 73 556 4 99 MCW KFSM,234 A 7 2310 M M23 234 74 557 5 00 W A 1 2317 2 74 558 5 01 CC J A 2 2318 F J 74 559 5 02 B M2PRT A 4 2320 B S33 74 560 5 03 NOPRM MESSG @MESSAGE 3 - NO PARAMETER CARD@,70,1,1 A MACRO 561 NOPRM CC 1 A 2 2324 F 1 GEN 74 1 1401 FORTRAN LOADER PHASE 50023 PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 562 CS 332 A 4 2326 / 332 GEN 74 563 CS A 1 2330 / GEN 74 564 MCW @MESSAGE 3 - NO PARAMETER CARD@,70&200 A 7 2331 M R68 270 GEN 75 565 W A 1 2338 2 GEN 75 566 CC 1 A 2 2339 F 1 GEN 75 567 5 04 BCE *&6,MONTOR,1 A 8 2341 B L54 769 1 75 568 5 05 RWD 1 A 5 2349 U %U1 R 75 569 5 06 H *-3 A 4 2354 . L54 75 570 5 07 CMNT MCW BLNK3#3,203 A 7 2358 M R71 203 75 571 5 08 MCW 005,211 A 7 2365 M 005 211 76 572 5 09 W A 1 2372 2 76 573 5 10 INPUT BLC SCANR A 5 2373 B !70 A 76 574 5 11 R A 1 2378 1 76 575 5 12 B MOVE A 4 2379 B /74 76 576 5 13 CHAR DCW @$@/| @ LAST TWO A-BIT,BLANK A 6 2388 76 577 5 14 KFSM DCW @ SEQ STMNT FORTRAN STATEMENT@ A 35 2423 77 578 5 15 DCW @ @ A 1 2424 77 579 5 16 WORK DS 01 A 2425 580 5 17 DS 76 A 2501 581 5 18 COUNT DCW #2 A 2 2503 78 582 5 19 INILZ1 DSA &WORK&010 A 3 2506 M35 78 583 5 20 INILZ2 DSA &WORK A 3 2509 M25 78 584 5 21 ONE DCW @1@ A 1 2510 78 585 5 22 B DC @B@ A 1 2511 78 586 5 23 TWO DC @20@ A 2 2513 78 587 5 24 OUT DCW @ @ A 7 2520 78 588 5 25 FORMAT DCW @%TAMROF@ A 7 2527 78 589 5 26 N DC @N@ A 1 2528 78 590 5 27 GM DC @}@ GROUP MARK A 1 2529 GMARK 78 591 5 28 NUMBER DCW @000R@ A 4 2533 78 592 5 29 MARK DCW @:@ 5-8 A 1 2534 79 593 5 30 TEN DCW @10@ A 2 2536 79 594 5 31 M DC @M@ A 1 2537 79 595 5 32 KPROC DCW @ PROCESSED @ A 11 2548 79 596 5 33 LTORG * A 2549 DCW @N@ A 1 2549 LIT 79 DCW @PARAM@ A 5 2554 LIT 79 LARRYA DCW #03 A 3 2557 AREA 79 DUM3 A DCW #03 A 3 2560 AREA 79 DUM5 A DCW #05 A 5 2565 AREA 80 DCW &1 A 1 2566 LIT 80 DCW @START OF FORTRAN COMPILATION@ A 28 2594 LIT 80 DCW @MACHINE SIZE SPECIFIED IS @ A 26 2620 LIT 81 DCW @ACTUAL MACHINE SIZE IS @ A 23 2643 LIT 82 WK51 A DCW #05 A 5 2648 AREA 82 WK5 A DCW #05 A 5 2653 AREA 82 DCW @03900@ A 5 2658 LIT 82 DCW @MACHINE SIZE ERROR@ A 18 2676 LIT 83 DCW @SPECIFIED IS GREATER THAN ACTUAL MACHINE SIZE.@ A 46 2722 LIT 85 DCW @ERROR - MACHINE SIZE @ A 21 2743 LIT 85 1 1401 FORTRAN LOADER PHASE 50023 PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &SYSGMA A 3 2746 R99 ADCON 85 DCW @MESSAGE 1-SYSTEM DOES NOT FOLLOW END CARD@ A 41 2787 LIT 87 DCW @CONTINUE CD ERR@ A 15 2802 LIT 87 TOTALA DCW #05 A 5 2807 AREA 87 DCW &LDRNDA A 3 2810 ?00 ADCON 87 DCW @B@ A 1 2811 LIT 87 WORK6A DCW #06 A 6 2817 AREA 88 DCW @F@ A 1 2818 LIT 88 DCW @@@ A 1 2819 LIT 88 STMNOA DCW #03 A 3 2822 AREA 88 CTUCDA DCW #02 A 2 2824 AREA 88 DCW @DNE@ A 3 2827 LIT 88 ENDSWA DCW #01 A 1 2828 AREA 88 DCW @-@ A 1 2829 LIT 89 DCW @*@ A 1 2830 LIT 89 FIXEDA DCW #01 A 1 2831 AREA 89 WORK3A DCW #03 A 3 2834 AREA 89 DCW @00@ A 2 2836 LIT 89 DCW @0@ A 1 2837 LIT 89 SAV1 A DCW #01 A 1 2838 AREA 89 )0M005 DCW #02 A 2 2840 AREA 90 )0L005 DCW #02 A 2 2842 AREA 90 DCW @A0@ A 2 2844 LIT 90 DCW @?4@ A 2 2846 LIT 90 DCW &000 A 3 2849 LIT 90 DCW @M@ A 1 2850 LIT 90 DCW @,@ A 1 2851 LIT 90 DCW @INPUT CHARACTERS@ A 16 2867 LIT 91 DCW @ }POTS:R000@ A 11 2878 LIT 91 DCW @SCANNER@ A 7 2885 LIT 91 DCW @SCANNER@ A 7 2892 LIT 92 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ A 36 2928 LIT 93 PGNO A DCW #03 A 3 2931 AREA 93 DCW @ PAGE @ A 8 2939 LIT 94 DCW @MESSAGE 3 - NO PARAMETER CARD@ A 29 2968 LIT 94 BLNK3A DCW #03 A 3 2971 AREA 95 597 5 34 ORG *&X00 A 3000 598 5 35 ORG *-1 A 2999 599 5 36 SYSGM DCW @}@ WORK AND SYSTEM GROUP MARK A 1 2999 GMARK 96 600 5 37 LDRND EQU *&1 A 3000 601 5 38 XFR START A B 838 97 1 1401 FORTRAN SCANNER PHASE 50033 PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 602 5 39 JOB 1401 FORTRAN SCANNER PHASE A 603 5 40 110 DCW @:@ 5-8 FIRST CARD A 1 0110 100 604 5 41 FBEGN SCANNER,X1,R,,,,,B A MACRO 605 SFX B B GEN 606 110 DCW @SCANNER@ B 7 0110 GEN 101 607 X1 EQU 089 B 0089 GEN 608 089 DCW 000 B 3 0089 GEN 102 609 091 DC 00 B 2 0091 GEN 102 610 5 42 ORG XBEGIN B 0838 611 5 43 START MCW PARAMA&2,DUMMY&6 B 7 0838 M 688 985 103 612 5 44 SW PARAMA&3,PARAMA&5 B 7 0845 , 689 691 103 613 5 45 BCE *&5,PARAMA&4, BLANK B 8 0852 B 864 690 103 614 5 46 B *&8 B 4 0860 B 871 103 615 5 47 MCW @05@,PARAMA&4 B 7 0864 M M67 690 103 616 5 48 BCE *&5,PARAMA&6, BLANK B 8 0871 B 883 692 104 617 5 49 B *&8 B 4 0879 B 890 104 618 5 50 MCW @08@,PARAMA&6 B 7 0883 M M69 692 104 619 5 51 C PARAMA&4,@01@ B 7 0890 C 690 M71 104 620 5 52 BH RDXER B 5 0897 B U69 U 104 621 5 53 C PARAMA&4,@20@ B 7 0902 C 690 M73 104 622 5 54 BL RDXER B 5 0909 B U69 T 105 623 5 55 CKCMT C PARAMA&6,@20@ B 7 0914 C 692 M73 105 624 5 56 BL MNTER B 5 0921 B U95 T 105 625 5 57 C PARAMA&6,@02@ B 7 0926 C 692 M75 105 626 5 58 BH MNTER B 5 0933 B U95 U 105 627 5 59 PRDX CS 332 B 4 0938 / 332 105 628 5 60 CS B 1 0942 / 105 629 5 61 MCW @MODULUS IS@,210 B 7 0943 M M85 210 106 630 5 62 MCS PARAMA&4,213 B 7 0950 Z 690 213 106 631 5 63 W B 1 0957 2 106 632 5 64 CS 299 B 4 0958 / 299 106 633 5 65 MCW @MANTISSA IS@,211 B 7 0962 M M96 211 106 634 5 66 MCS PARAMA&6,214 B 7 0969 Z 692 214 106 635 5 67 W B 1 0976 2 106 636 5 68 CC J B 2 0977 F J 107 637 5 69 DUMMY BCE DUMMY,0000,0 B 8 0979 B 979 000 0 107 638 5 70 BCE B 1 0987 B 107 639 5 71 SBR MARTY&6 B 4 0988 H T24 107 640 5 72 SBR REMV&003 B 4 0992 H 999 107 641 5 73 REMV LCA 0000,WORK B 7 0996 L 000 M22 107 642 5 74 SAR REMV&003 B 4 1003 Q 999 107 643 5 75 MCW NMBR,WORK B 7 1007 M M25 M22 108 644 5 76 A ONE,NMBR B 7 1014 A M26 M25 108 645 5 77 BCE REPLCE,WORK-3,F B 8 1021 B T14 M19 F 108 646 5 78 SBR TWLV58&6,WORK-4 B 7 1029 H |49 M18 108 647 5 79 SBR FIRST,WORK-5 B 7 1036 H M29 M17 108 648 5 80 TWLV58 BCE ARITH1,WORK-4,: 5-8 UNDEFINED CHAR.. B 8 1043 B |75 M18 : 109 649 5 81 SBR TWLV58&006 B 4 1051 H |49 109 650 5 82 SBR LENNY&006 B 4 1055 H |65 109 651 5 83 LENNY BCE LENNY,0000, B 8 1059 B |59 000 109 1 1401 FORTRAN SCANNER PHASE 50033 PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 652 5 84 SBR FIRST B 4 1067 H M29 109 653 5 85 B TWLV58 B 4 1071 B |43 109 654 5 86 ARITH1 MCW FIRST,TEST1&006 B 7 1075 M M29 |95 109 655 5 87 MCW FIRST,TEST2&006 B 7 1082 M M29 /08 110 656 5 88 TEST1 BCE ENCODE,0000,} GROUP MARK B 8 1089 B /73 000 } GMARK 110 657 5 89 BCE B 1 1097 B 110 658 5 90 SBR TEST1&6 B 4 1098 H |95 110 659 5 91 TEST2 BCE ARITH2,0000,# B 8 1102 B /19 000 # 110 660 5 92 BCE B 1 1110 B 110 661 5 93 SBR TEST2&6 B 4 1111 H /08 110 662 5 94 B TEST1 B 4 1115 B |89 111 663 5 95 ARITH2 SW TEST1&004 B 4 1119 , |93 111 664 5 96 MCW TEST1&006,SEL&003 B 7 1123 M |95 /37 111 665 5 97 CW TEST1&004 B 4 1130 ) |93 111 666 5 98 SEL MCW 0000,FIXED B 7 1134 M 000 M30 111 667 5 99 SAR SEL&003 B 4 1141 Q /37 111 668 6 00 BCE CKFUN, FIXED,% B 8 1145 B T49 M30 % 111 669 6 01 BCE CKFUN, FIXED,} GROUP MARK B 8 1153 B T49 M30 } GMARK 112 670 6 02 BCE ENCODE,FIXED,, B 8 1161 B /73 M30 , 112 671 6 03 B SEL B 4 1169 B /34 112 672 6 04 ENCODE MCW FIRST,GRAB10&003 B 7 1173 M M29 /83 112 673 6 05 GRAB10 MCW 0000,FRONT B 7 1180 M 000 M40 112 674 6 06 SW FRONT B 4 1187 , M40 112 675 6 07 SW B 1 1191 , 112 676 6 08 MCW FRONT,SCFB&007 B 7 1192 M M40 S06 113 677 6 09 SCFB BCE STORE1,CODE, COLUMN 39 MODIFIED B 8 1199 B S37 M49 113 678 6 10 CHAIN 3 B MACRO 679 BCE B 1 1207 B GEN 113 680 BCE B 1 1208 B GEN 113 681 BCE B 1 1209 B GEN 113 682 6 11 MCW FRONT-001,AUNIQ&007 B 7 1210 M M39 S24 113 683 6 12 AUNIQ BCE STORE2,CODE-004, COLUMN 39 MODIFIED B 8 1217 B S71 M45 113 684 6 13 CHAIN 4 B MACRO 685 BCE B 1 1225 B GEN 114 686 BCE B 1 1226 B GEN 114 687 BCE B 1 1227 B GEN 114 688 BCE B 1 1228 B GEN 114 689 6 14 SW WORK-003 B 4 1229 , M19 114 690 6 15 B EASY B 4 1233 B U22 114 691 6 16 STORE1 C FRONT-2,@ESN@ SENSE LIGHT B 7 1237 C M38 M99 114 692 6 17 BE SENSE B 5 1244 B S60 S 115 693 6 18 MCW FRONT,WORK-003 B 7 1249 M M40 M19 115 694 6 19 B CLEAR B 4 1256 B T09 115 695 6 20 SENSE MCW @J@,WORK-3 B 7 1260 M N00 M19 115 696 6 21 B CLEAR B 4 1267 B T09 115 697 6 22 STORE2 MCW FRONT-001,WORK-003 B 7 1271 M M39 M19 115 698 6 23 BCE *&5,AUNIQ&7,N B 8 1278 B S90 S24 N 116 699 6 24 B CLEAR B 4 1286 B T09 116 700 6 25 C FRONT-2,@ELIFD@ B 7 1290 C M38 N05 116 701 6 26 BE CLEAR B 5 1297 B T09 S 116 1 1401 FORTRAN SCANNER PHASE 50033 PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 702 6 27 MCW @/@,WORK-3 B 7 1302 M N06 M19 116 703 6 28 CLEAR CW FRONT B 4 1309 ) M40 116 704 6 29 CW B 1 1313 ) 116 705 6 30 REPLCE CW WORK-003 B 4 1314 ) M19 117 706 6 31 MARTY LCA WORK,0000 B 7 1318 L M22 000 117 707 6 32 SBR MARTY&006 B 4 1325 H T24 117 708 6 33 SBR END&006 B 4 1329 H T43 117 709 6 34 SBR 083 B 4 1333 H 083 117 710 6 35 END BCE RELOKT,0000, B 8 1337 B W97 000 117 711 6 36 B REMV B 4 1345 B 996 117 712 6 37 CKFUN MCW TEST2&6,X1 B 7 1349 M /08 089 118 713 6 38 BCE MAYFN,1&X1,) B 8 1356 B T69 0|1 ) 118 714 6 39 BCE B 1 1364 B 118 715 6 40 B REPLCE B 4 1365 B T14 118 716 6 41 MAYFN BCE NDFND,2&X1,% B 8 1369 B T85 0|2 % 118 717 6 42 SBR X1 B 4 1377 H 089 118 718 6 43 B MAYFN B 4 1381 B T69 118 719 6 44 NDFND BCE PROBF,3&X1,F B 8 1385 B T97 0|3 F 119 720 6 45 B REPLCE B 4 1393 B T14 119 721 6 46 PROBF BCE REPLCE,6&X1,: 5-8 B 8 1397 B T14 0|6 : 119 722 6 47 BCE B 1 1405 B 119 723 6 48 BCE B 1 1406 B 119 724 6 49 MCW @R@,WORK-3 B 7 1407 M N07 M19 119 725 6 50 SW FUNCSW B 4 1414 , 195 119 726 6 51 B REPLCE B 4 1418 B T14 120 727 6 52 EASY CW FRONT B 4 1422 ) M40 120 728 6 53 CW B 1 1426 ) 120 729 6 54 C FRONT,SNSE IF SENSE SWITCH B 7 1427 C M40 M57 120 730 6 55 BIN DO,/ B 5 1434 B V21 / 120 731 6 56 BCE LIGHT,FRONT-8,L B 8 1439 B U58 M32 L 120 732 6 57 MCW CONST,WORK-003 B 7 1447 M M65 M19 120 733 6 58 B REPLCE B 4 1454 B T14 121 734 6 59 LIGHT MCW @K@,WORK-3 B 7 1458 M N08 M19 121 735 6 60 B REPLCE B 4 1465 B T14 121 736 6 61 RDXER MESSG @ERROR 42 - MODULUS@,18,,J B MACRO 737 RDXER CS 332 B 4 1469 / 332 GEN 121 738 CS B 1 1473 / GEN 121 739 MCW @ERROR 42 - MODULUS@,18&200 B 7 1474 M N26 218 GEN 121 740 W B 1 1481 2 GEN 121 741 CC J B 2 1482 F J GEN 122 742 6 62 MCW @05@,PARAMA&4 B 7 1484 M M67 690 122 743 6 63 B CKCMT B 4 1491 B 914 122 744 6 64 MNTER MESSG @ERROR 43 - MANTISSA@,19,,J B MACRO 745 MNTER CS 332 B 4 1495 / 332 GEN 122 746 CS B 1 1499 / GEN 122 747 MCW @ERROR 43 - MANTISSA@,19&200 B 7 1500 M N45 219 GEN 122 748 W B 1 1507 2 GEN 122 749 CC J B 2 1508 F J GEN 123 750 6 65 MCW @08@,PARAMA&6 B 7 1510 M M69 692 123 751 6 66 B PRDX B 4 1517 B 938 123 1 1401 FORTRAN SCANNER PHASE 50033 PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 752 6 67 DO BCE PUT1,FRONT,D D FOR DO B 8 1521 B W20 M40 D 123 753 6 68 BCE PUT2,FRONT-002,% 3RD PAREN IF B 8 1529 B W31 M38 % 123 754 6 69 BCE PUT3,FRONT-004,% 5TH PAREN GO TO B 8 1537 B W42 M36 % 123 755 6 70 BCE PUT4,FRONT,G G FOR GO TO B 8 1545 B W53 M40 G 124 756 6 71 BCE PUT5,FRONT,P P FO PRINT B 8 1553 B W64 M40 P 124 757 6 72 BWZ PUT6,FRONT-004,2 5TH NUMERL READN B 8 1561 V W75 M36 2 124 758 6 73 BCE PUT7,FRONT-005,D 6TH D FOR REWIND B 8 1569 B W86 M35 D 124 759 6 74 MCW ONE,WORK-003 B 7 1577 M M26 M19 124 760 6 75 MN FRONT-005,WORK-003 B 7 1584 D M35 M19 125 761 6 751 MN FRONT-5,TNMBR&7 V3M4 B 7 1591 D M35 W05 125 762 6 752 TNMBR BCE REPLCE,@6531@,0 V3M4 B 8 1598 B T14 N49 0 125 763 6 573 CHAIN 3 V3M4 B MACRO 764 BCE B 1 1606 B GEN 125 765 BCE B 1 1607 B GEN 125 766 BCE B 1 1608 B GEN 125 767 6 754 MN @9@,WORK-3 V3M4 B 7 1609 D N50 M19 125 768 6 76 B REPLCE B 4 1616 B T14 126 769 6 77 PUT1 MCW CONST-001,WORK-003 B 7 1620 M M64 M19 126 770 6 78 B REPLCE B 4 1627 B T14 126 771 6 79 PUT2 MCW CONST-002,WORK-003 B 7 1631 M M63 M19 126 772 6 80 B REPLCE B 4 1638 B T14 126 773 6 81 PUT3 MCW CONST-003,WORK-003 B 7 1642 M M62 M19 126 774 6 82 B REPLCE B 4 1649 B T14 126 775 6 83 PUT4 MCW CONST-004,WORK-003 B 7 1653 M M61 M19 127 776 6 84 B REPLCE B 4 1660 B T14 127 777 6 85 PUT5 MCW CONST-005,WORK-003 B 7 1664 M M60 M19 127 778 6 86 B REPLCE B 4 1671 B T14 127 779 6 87 PUT6 MCW CONST-006,WORK-003 B 7 1675 M M59 M19 127 780 6 88 B REPLCE B 4 1682 B T14 127 781 6 89 PUT7 MCW CONST-007,WORK-003 B 7 1686 M M58 M19 128 782 6 90 B REPLCE B 4 1693 B T14 128 783 6 91 RELOKT FENDX C,,,,BEGINC,,CLRFCT,SORTER ONE B MACRO 784 RELOKT BSS 333,C B 5 1697 B 333 C GEN 128 785 SBR INITXT&3,BEGINC B 7 1702 H 796 |10 GEN 128 786 SBR TCLEAR,CLRFCT B 7 1709 H 710 N99 GEN 128 787 LCA @SORTER ONE@,110 B 7 1716 L N60 110 GEN 128 788 B MONTER B 4 1723 B 700 GEN 129 789 6 92 DCW @ @ BLANK B 1 1727 129 790 6 93 DCW @ @ B 1 1728 129 791 6 94 ORG *&693 B 2422 792 6 95 WORK DS 01 B 2422 793 6 96 NMBR DCW @001@ B 3 2425 130 794 6 97 ONE DCW @1@ B 1 2426 130 795 6 98 FIRST DCW #3 B 3 2429 130 796 6 99 FIXED DCW #1 B 1 2430 130 797 7 00 FRONT DCW #10 B 10 2440 130 798 7 01 CODE DC @QINUABFCS@ B 9 2449 130 799 7 02 SNSE DCW @ESNES%FI@ B 8 2457 130 800 7 03 CONST DC @ZLPGTEDW@ B 8 2465 131 801 7 04 LTORG * B 2466 1 1401 FORTRAN SCANNER PHASE 50033 PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @05@ B 2 2467 LIT 131 DCW @08@ B 2 2469 LIT 131 DCW @01@ B 2 2471 LIT 131 DCW @20@ B 2 2473 LIT 131 DCW @02@ B 2 2475 LIT 132 DCW @MODULUS IS@ B 10 2485 LIT 132 DCW @MANTISSA IS@ B 11 2496 LIT 132 DCW @ESN@ B 3 2499 LIT 132 DCW @J@ B 1 2500 LIT 132 DCW @ELIFD@ B 5 2505 LIT 132 DCW @/@ B 1 2506 LIT 132 DCW @R@ B 1 2507 LIT 133 DCW @K@ B 1 2508 LIT 133 DCW @ERROR 42 - MODULUS@ B 18 2526 LIT 133 DCW @ERROR 43 - MANTISSA@ B 19 2545 LIT 133 DCW @6531@ B 4 2549 LIT 134 DCW @9@ B 1 2550 LIT 134 DCW @SORTER ONE@ B 10 2560 LIT 134 802 7 05 ORG *&X00 B 2600 803 7 06 CLRFCT EQU * B 2599 804 7 07 DCW @}@ SYSTEM GROUP MARK B 1 2600 GMARK 135 805 7 08 XFR START B B 838 136 1 1401 FORTRAN SORTER PHASE ONE 50043 PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 806 7 09 JOB 1401 FORTRAN SORTER PHASE ONE B 807 7 10 FBEGN SORTER ONE,XL1,R,XL2,R,XL3,R,C,XXXX B MACRO 808 SFX C C GEN 809 XXXX EQU 0 C 0000 GEN 810 110 DCW @SORTER ONE@ C 10 0110 GEN 139 811 XL1 EQU 089 C 0089 GEN 812 089 DCW 000 C 3 0089 GEN 140 813 091 DC 00 C 2 0091 GEN 140 814 XL2 EQU 094 C 0094 GEN 815 094 DCW 000 C 3 0094 GEN 140 816 096 DC 00 C 2 0096 GEN 140 817 XL3 EQU 099 C 0099 GEN 818 099 DCW 000 C 3 0099 GEN 140 819 100 DC 0 C 1 0100 GEN 140 820 7 11 ORG XBEGIN C 0838 821 7 12 TABLE DA 40X3,C C 0838 0957 140 822 7 13 ORG *&X00 C 1000 823 7 14 DS 6 C 1005 824 7 15 ZONE DCW @2SKB@ C 4 1009 151 825 7 16 BEGIN CS CLRFCT C 4 1010 / N99 151 826 7 17 CHAIN 8 C MACRO 827 CS C 1 1014 / GEN 151 828 CS C 1 1015 / GEN 151 829 CS C 1 1016 / GEN 151 830 CS C 1 1017 / GEN 151 831 CS C 1 1018 / GEN 151 832 CS C 1 1019 / GEN 152 833 CS C 1 1020 / GEN 152 834 CS C 1 1021 / GEN 152 835 7 18 START MCW 083,XL3 C 7 1022 M 083 099 152 836 7 19 MCM 2&X3 GET LAST STATEMENT C 4 1029 P 0?2 152 837 7 20 MCW NUMBER C 1 1033 M 152 838 7 21 SBR XL3 C 4 1034 H 099 152 839 7 22 MCW 0&X3,WORK3#3 C 7 1038 M 0?0 T52 153 840 7 23 ZA WORK3,HOLD5#5 MULTIPLY BY THREE C 7 1045 ? T52 T57 153 841 7 24 A HOLD5 C 4 1052 A T57 153 842 7 25 A WORK3,HOLD5 C 7 1056 A T52 T57 153 843 7 26 S &2,HOLD5 C 7 1063 S T58 T57 153 844 7 27 MCW HOLD5,HLD5A#5 C 7 1070 M T57 T63 153 845 7 28 MCW @16000@,HOLD5 C 7 1077 M T68 T57 154 846 7 29 S HLD5A,HOLD5 C 7 1084 S T63 T57 154 847 7 30 BAV *&1 C 5 1091 B |96 Z 154 848 7 31 SUB A &96,HOLD5-3 COMPUTE NEW ADDRESS C 7 1096 A T70 T54 154 849 7 32 BAV SUB C 5 1103 B |96 Z 154 850 7 33 MN HOLD5-3,*&4 C 7 1108 D T54 /18 154 851 7 34 MZ ZONE,HOLD5-2 C 7 1115 Y |09 T55 155 852 7 35 MCW 083,XL1 C 7 1122 M 083 089 155 853 7 36 MCW XL1,NOP&3 C 7 1129 M 089 /53 155 854 7 37 MCW HOLD5,XL2 C 7 1136 M T57 094 155 855 7 38 MZ @J@,NOP&2 C 7 1143 Y T71 /52 155 1 1401 FORTRAN SORTER PHASE ONE 50043 PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 856 7 39 NOP NOP XXXX C 4 1150 N 000 155 857 7 40 SAR XL2 C 4 1154 Q 094 156 858 7 41 UNPAK XL2,HOLD5 C MACRO 859 S )0M013#2 C 4 1158 S T73 GEN 156 860 S )0L013#2 C 4 1162 S T75 GEN 156 861 MZ XL2,)0M013-1 C 7 1166 Y 094 T72 GEN 156 862 MZ XL2-2,)0L013-1 C 7 1173 Y 092 T74 GEN 156 863 )0J013 BWZ )0K013, )0L013-1, 2 C 8 1180 V /99 T74 2 GEN 156 864 A @A0@, )0L013 C 7 1188 A T77 T75 GEN 157 865 B )0J013 C 4 1195 B /80 GEN 157 866 )0K013 BWZ )0P013, )0M013-1, 2 C 8 1199 V S18 T72 2 GEN 157 867 A @?4@, )0M013 C 7 1207 A T79 T73 GEN 157 868 B )0K013 C 4 1214 B /99 GEN 157 869 )0P013 A )0L013-1,)0M013 C 7 1218 A T74 T73 GEN 157 870 MCW XL2,HOLD5 C 7 1225 M 094 T57 GEN 158 871 MCW )0M013 C 4 1232 M T73 GEN 158 872 ZA HOLD5 C 4 1236 ? T57 GEN 158 873 MZ *-4, HOLD5 C 7 1240 Y S42 T57 GEN 158 874 7 42 C HOLD5,@02900@ C 7 1247 C T57 T84 158 875 7 43 BL MOVE C 5 1254 B S93 T 158 876 7 44 FQUIT C MACRO 877 CS 332 C 4 1259 / 332 GEN 158 878 CS C 1 1263 / GEN 159 879 CC 1 C 2 1264 F 1 GEN 159 880 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 C 7 1266 M U20 270 GEN 159 881 W C 1 1273 2 GEN 159 882 CC 1 C 2 1274 F 1 GEN 159 883 BCE *&6,MONTOR,1 C 8 1276 B S89 769 1 GEN 159 884 RWD 1 C 5 1284 U %U1 R GEN 159 885 H *-3 C 4 1289 . S89 GEN 160 886 7 45 MOVE MCW XL2,083 C 7 1293 M 094 083 160 887 7 46 MCM 0&X1 C 4 1300 P 0|0 160 888 7 47 SAR XL1 C 4 1304 Q 089 160 889 7 48 FENDX C,,,START,NUSTM,START,SYSMK,SORT 2 C MACRO 890 BSS 333,C C 5 1308 B 333 C GEN 160 891 SBR INITAP&6,START C 7 1313 H 786 |22 GEN 160 892 SBR BCLEAR C 4 1320 H 833 GEN 160 893 SBR INITXT&3,NUSTM C 7 1324 H 796 |22 GEN 161 894 SBR TCLEAR,SYSMK C 7 1331 H 710 U27 GEN 161 895 LCA @SORT 2@,110 C 7 1338 L U26 110 GEN 161 896 B MONTER C 4 1345 B 700 GEN 161 897 7 49 DCW 0 C 1 1349 161 898 7 50 LTORG * C 1350 WORK3C DCW #03 C 3 1352 AREA 161 HOLD5C DCW #05 C 5 1357 AREA 161 DCW &2 C 1 1358 LIT 162 HLD5AC DCW #05 C 5 1363 AREA 162 DCW @16000@ C 5 1368 LIT 162 DCW &96 C 2 1370 LIT 162 DCW @J@ C 1 1371 LIT 162 1 1401 FORTRAN SORTER PHASE ONE 50043 PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD )0M013 DCW #02 C 2 1373 AREA 162 )0L013 DCW #02 C 2 1375 AREA 162 DCW @A0@ C 2 1377 LIT 163 DCW @?4@ C 2 1379 LIT 163 DCW @02900@ C 5 1384 LIT 163 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ C 36 1420 LIT 164 DCW @SORT 2@ C 6 1426 LIT 165 899 7 51 SYSMK DCW @}@ SYSTEM GROUP MARK C 1 1427 GMARK 165 900 7 52 XFR BEGIN C B |10 166 1 1401 FORTRAN SORTER PHASE TWO 50053 PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 901 7 53 JOB 1401 FORTRAN SORTER PHASE TWO C 902 7 54 110 DCW @SORT 2@ C 6 0110 169 903 7 55 ORG START C 1022 904 7 56 NUSTM MCW XL1,XL3 C 7 1022 M 089 099 170 905 7 57 SW GM2 C 4 1029 , S19 170 906 7 58 MCM 0&X1 C 4 1033 P 0|0 170 907 7 59 MN C 1 1037 D 170 908 7 60 MN C 1 1038 D 170 909 7 61 SAR XL1 C 4 1039 Q 089 170 910 7 62 LCA 0&X1, HOLD-3 C 7 1043 L 0|0 Z19 170 911 7 63 MCM 0&X1 C 4 1050 P 0|0 171 912 7 64 SAR XL1 C 4 1054 Q 089 171 913 7 65 MCM 0&X3,0&X2 C 7 1058 P 0?0 0!0 171 914 7 66 SBR XL2 C 4 1065 H 094 171 915 7 67 LCA HOLD,1&X2 C 7 1069 L Z22 0!1 171 916 7 68 S XL3&1 C 4 1076 S 100 171 917 7 69 MCW 0&X2,HOLD6#6 C 7 1080 M 0!0 !05 171 918 7 70 MN HOLD6-5, XL3 C 7 1087 D !00 099 172 919 7 71 MCW XL3,SAVE3 C 7 1094 M 099 !03 172 920 7 72 A XL3 C 4 1101 A 099 172 921 7 73 A SAVE3,XL3 C 7 1105 A !03 099 172 922 7 74 BWZ CNTU,HOLD6-5, 2 C 8 1112 V /57 !00 2 172 923 7 75 A &30,XL3 C 7 1120 A !07 099 173 924 7 76 BWZ CNTU,HOLD6-5, S C 8 1127 V /57 !00 S 173 925 7 77 A &30,XL3 C 7 1135 A !07 099 173 926 7 78 BWZ CNTU,HOLD6-5, K C 8 1142 V /57 !00 K 173 927 7 79 A &30,XL3 C 7 1150 A !07 099 173 928 7 80 CNTU MCW TABLE&2&X3,1&X2 INSERT TABLE ENTRY C 7 1157 M 8D0 0!1 174 929 7 81 LCA GM2,2&X2 C 7 1164 L S19 0!2 174 930 7 82 SBR TABLE&2&X3 C 4 1171 H 8D0 174 931 7 83 MCM 2&X2 C 4 1175 P 0!2 174 932 7 84 SAR XL2 C 4 1179 Q 094 174 933 7 85 C XL2,PARAMA&2 C 7 1183 C 094 688 174 934 7 86 BU NUSTM C 5 1190 B |22 / 174 935 7 87 FENDX C,GM2,,,,,END-1,SORT 3 C MACRO 936 BSS 333,C C 5 1195 B 333 C GEN 175 937 SBR TCLEAR,END-1 C 7 1200 H 710 Q99 GEN 175 938 LCA @SORT 3@,110 C 7 1207 L !13 110 GEN 175 939 B MONTER C 4 1214 B 700 GEN 175 940 7 88 DCW 0 C 1 1218 175 941 7 89 GM2 DC @}@ G-M C 1 1219 GMARK 175 942 7 90 ORG *&700 C 1920 943 7 91 HOLD DC #3 C 3 1922 176 944 7 92 ORG *&X00 C 2000 945 7 93 EOTWO EQU *&1 C 2000 946 7 94 LTORG * C 2000 HOLD6C DCW #06 C 6 2005 AREA 177 DCW &30 C 2 2007 LIT 177 DCW @SORT 3@ C 6 2013 LIT 177 947 7 95 DCW @}@ SYSTEM GROUP MARK C 1 2014 GMARK 177 1 1401 FORTRAN SORTER PHASE TWO 50053 PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 948 7 96 XFR NUSTM C B |22 178 1 1401 FORTRAN SORTER PHASE 3 50063 PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 949 7 97 JOB 1401 FORTRAN SORTER PHASE 3 C 950 7 98 110 DCW @SORT 3@ C 6 0110 181 951 7 99 X1 EQU 089 C 0089 952 8 00 X2 EQU 094 C 0094 953 8 01 ORG START C 1022 954 8 02 AGAIN MCW 083,XL3 C 7 1022 M 083 099 182 955 8 03 SW GM C 4 1029 , Y06 182 956 8 04 SBR XL1,END-1 C 7 1033 H 089 Q99 182 957 8 05 SW END C 4 1040 , R00 182 958 8 06 MN 0&X3 C 4 1044 D 0?0 182 959 8 07 LCA GM C 4 1048 L Y06 182 960 8 08 SBR PICK&6 C 4 1052 H /10 182 961 8 09 SBR TBEGIN#3,LIST C 7 1056 H Y10 X99 183 962 8 10 NUTYP MCW TBEGIN,XL3 GET LIST ENTRY C 7 1063 M Y10 099 183 963 8 11 MCW 0&X3,XL3 C 7 1070 M 0?0 099 183 964 8 12 SAR TBEGIN C 4 1077 Q Y10 183 965 8 13 BCE EOJ,XL3,X C 8 1081 B W47 099 X 183 966 8 14 MCW TABLE&2&X3,XL3 GET TABLE ENTRY C 7 1089 M 8D0 099 184 967 8 15 BCE NUTYP,XL3, ANY OF THIS TYPE C 8 1096 B |63 099 184 968 8 16 PICK MCW 0&X3,XXXX PICKUP STATEMENT C 7 1104 M 0?0 000 184 969 8 17 SAR XL2 C 4 1111 Q 094 184 970 8 18 BCE AOK1,1&X2,} CAN IT FIT G-M C 8 1115 B /27 0!1 } GMARK 184 971 8 19 B PACK C 4 1123 B S95 184 972 8 20 AOK1 SBR XL2,2&X2 C 7 1127 H 094 0!2 185 973 8 21 BACK5 MCM 0&X2 C 4 1134 P 0!0 185 974 8 22 SBR SBR6&6 C 4 1138 H /67 185 975 8 23 MCM 0&X2,1&X1 C 7 1142 P 0!0 0|1 185 976 8 24 SBR X1 C 4 1149 H 089 185 977 8 25 MN 0&X1 C 4 1153 D 0|0 185 978 8 26 SBR X1 C 4 1157 H 089 185 979 8 27 SBR6 SBR X2,0 C 7 1161 H 094 000 186 980 8 28 BCE BACK5,0&X1,| C 8 1168 B /34 0|0 | 186 981 8 29 SBR X1,1&X1 C 7 1176 H 089 0|1 186 982 8 30 CW PAKSW C 4 1183 ) Y07 186 983 8 31 MN 0&X1 C 4 1187 D 0|0 186 984 8 32 CHAIN 3 C MACRO 985 MN C 1 1191 D GEN 186 986 MN C 1 1192 D GEN 186 987 MN C 1 1193 D GEN 187 988 8 33 SAR XL1 C 4 1194 Q 089 187 989 8 34 LCA GM,0&X1 C 7 1198 L Y06 0|0 187 990 8 35 SBR 083 C 4 1205 H 083 187 991 8 36 SBR XL1 C 4 1209 H 089 187 992 8 37 PMOV1 MCM 1&X1 C 4 1213 P 0|1 187 993 8 38 MN C 1 1217 D 187 994 8 39 SAR XL1 C 4 1218 Q 089 188 995 8 40 BCE PMOV1,0&X1,| C 8 1222 B S13 0|0 | 188 996 8 41 MN 0&X3 C 4 1230 D 0?0 188 997 8 42 CHAIN 5 C MACRO 998 MN C 1 1234 D GEN 188 1 1401 FORTRAN SORTER PHASE 3 50063 PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 999 MN C 1 1235 D GEN 188 1000 MN C 1 1236 D GEN 188 1001 MN C 1 1237 D GEN 188 1002 MN C 1 1238 D GEN 189 1003 8 43 SAR XL3 C 4 1239 Q 099 189 1004 8 44 MN 0&X1 C 4 1243 D 0|0 189 1005 8 45 LCA 3&X3 C 4 1247 L 0?3 189 1006 8 46 MCW @#@,0&X3 C 7 1251 M Y11 0?0 189 1007 8 47 PMOV2 MCM 2&X3 C 4 1258 P 0?2 189 1008 8 48 MN C 1 1262 D 189 1009 8 49 MN C 1 1263 D 190 1010 8 50 SAR XL3 C 4 1264 Q 099 190 1011 8 51 BCE PMOV2,1&X3,| C 8 1268 B S58 0?1 | 190 1012 8 52 BCE NUTYP,0&X3, C 8 1276 B |63 0?0 190 1013 8 53 MCW 0&X3,XL3 C 7 1284 M 0?0 099 190 1014 8 54 B PICK C 4 1291 B /04 190 1015 8 55 PACK BW CERR,PAKSW C 8 1295 V W88 Y07 1 191 1016 8 56 SW PAKSW C 4 1303 , Y07 191 1017 8 57 MCW PARAMA&2,XL2 C 7 1307 M 688 094 191 1018 8 58 MN 0&X2 C 4 1314 D 0!0 191 1019 8 59 SAR XL2 C 4 1318 Q 094 191 1020 8 60 MCW XL2,XL3 C 7 1322 M 094 099 191 1021 8 61 LOOP1 LCA 0&X2,0&X3 C 7 1329 L 0!0 0?0 192 1022 8 62 SAR XL2 C 4 1336 Q 094 192 1023 8 63 MCW 0&X3,WORK9#9 C 7 1340 M 0?0 Y20 192 1024 8 64 BCE DONE,WORK9-6,# C 8 1347 B T66 Y14 # 192 1025 8 65 LCA 0&X3,0&X3 C 7 1355 L 0?0 0?0 192 1026 8 66 SAR XL3 C 4 1362 Q 099 192 1027 8 67 DONE C PICK&6,XL2 C 7 1366 C /10 094 193 1028 8 68 BU LOOP1 C 5 1373 B T29 / 193 1029 8 69 MCW XL3,PICK&6 C 7 1378 M 099 /10 193 1030 8 70 MCW XL3,XL2 C 7 1385 M 099 094 193 1031 8 71 MZ XL3,ALL92 C 7 1392 Y 099 Y05 193 1032 8 72 MZ C 1 1399 Y 193 1033 8 724 * MLZS ACCHI&X3,NSIGN WASN'T ACTUALLY DONE V3M4 1034 8 73 MCW C 1 1400 M 193 1035 8 74 MZ XL1,ALL9 C 7 1401 Y 089 Y02 194 1036 8 75 MZ C 1 1408 Y 194 1037 8 76 MCW C 1 1409 M 194 1038 8 77 C ALL9,ALL92 C 7 1410 C Y02 Y05 194 1039 8 78 BE ZADD C 5 1417 B U42 S 194 1040 8 79 CLEER CS 0&X3 C 4 1422 / 0?0 194 1041 8 80 SBR XL3 C 4 1426 H 099 194 1042 8 81 C XL3,ALL9 C 7 1430 C 099 Y02 195 1043 8 82 BU CLEER C 5 1437 B U22 / 195 1044 8 83 ZADD ZA &39,SAVE3 C 7 1442 ? Y22 !03 195 1045 8 84 S XL3&1 C 4 1449 S 100 195 1046 8 85 MUVE MCW BLNK3#3,TABLE&2&X3 C 7 1453 M Y25 8D0 195 1047 8 86 S &1,SAVE3 C 7 1460 S Y26 !03 195 1048 8 87 BM EXIT,SAVE3 C 8 1467 V U86 !03 K 196 1 1401 FORTRAN SORTER PHASE 3 50063 PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1049 8 88 A &3,XL3 C 7 1475 A Y27 099 196 1050 8 89 B MUVE C 4 1482 B U53 196 1051 8 90 EXIT MCM 1&X2 C 4 1486 P 0!1 196 1052 8 91 MN C 1 1490 D 196 1053 8 92 SAR XL2 C 4 1491 Q 094 196 1054 8 93 BCE EXIT,0&X2,| C 8 1495 B U86 0!0 | 196 1055 8 94 SBR XL2,1&X2 C 7 1503 H 094 0!1 197 1056 8 95 S XL3&1 C 4 1510 S 100 197 1057 8 96 C 0&X2 C 4 1514 C 0!0 197 1058 8 97 SAR *&4 C 4 1518 Q V25 197 1059 8 98 MCW 0,WORK9 C 7 1522 M 000 Y20 197 1060 8 99 MN WORK9-6,XL3 C 7 1529 D Y14 099 197 1061 9 00 MCW XL3,SAVE3 C 7 1536 M 099 !03 198 1062 9 01 A XL3 C 4 1543 A 099 198 1063 9 02 A SAVE3,XL3 C 7 1547 A !03 099 198 1064 9 03 BWZ CNT,WORK9-6,2 C 8 1554 V V99 Y14 2 198 1065 9 04 A &30,XL3 C 7 1562 A Y29 099 198 1066 9 05 BWZ CNT,WORK9-6,S C 8 1569 V V99 Y14 S 199 1067 9 06 A &30,XL3 C 7 1577 A Y29 099 199 1068 9 07 BWZ CNT,WORK9-6,K C 8 1584 V V99 Y14 K 199 1069 9 08 A &30,XL3 C 7 1592 A Y29 099 199 1070 9 09 CNT MN 0&X2 C 4 1599 D 0!0 199 1071 9 10 MN C 1 1603 D 199 1072 9 11 MCW TABLE&2&X3 C 4 1604 M 8D0 199 1073 9 12 C 0&X2 C 4 1608 C 0!0 200 1074 9 13 SAR TABLE&2&X3 C 4 1612 Q 8D0 200 1075 9 14 C XL2,PARAMA&2 C 7 1616 C 094 688 200 1076 9 15 BU EXIT C 5 1623 B U86 / 200 1077 9 16 MCW TBEGIN,XL3 C 7 1628 M Y10 099 200 1078 9 17 NOP 3&X3 C 4 1635 N 0?3 200 1079 9 18 SAR TBEGIN C 4 1639 Q Y10 200 1080 9 19 B NUTYP C 4 1643 B |63 201 1081 9 20 EOJ FENDX C,GM,,XBEGIN,XBEGIN,XBEGIN,SAVE3,GROUP MARK C MACRO 1082 EOJ BSS 333,C C 5 1647 B 333 C GEN 201 1083 SBR INITAP&6,XBEGIN C 7 1652 H 786 838 GEN 201 1084 SBR BCLEAR C 4 1659 H 833 GEN 201 1085 SBR INITXT&3,XBEGIN C 7 1663 H 796 838 GEN 201 1086 SBR TCLEAR,SAVE3 C 7 1670 H 710 !03 GEN 201 1087 LCA @GROUP MARK@,110 C 7 1677 L Y39 110 GEN 202 1088 B MONTER C 4 1684 B 700 GEN 202 1089 9 21 CERR FQUIT C MACRO 1090 CERR CS 332 C 4 1688 / 332 GEN 202 1091 CS C 1 1692 / GEN 202 1092 CC 1 C 2 1693 F 1 GEN 202 1093 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 C 7 1695 M Y75 270 GEN 202 1094 W C 1 1702 2 GEN 202 1095 CC 1 C 2 1703 F 1 GEN 203 1096 BCE *&6,MONTOR,1 C 8 1705 B X18 769 1 GEN 203 1097 RWD 1 C 5 1713 U %U1 R GEN 203 1098 H *-3 C 4 1718 . X18 GEN 203 1 1401 FORTRAN SORTER PHASE 3 50063 PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1099 9 22 DCW @XXX@ C 3 1724 203 1100 9 23 DCW 117 I DIMENSION C 3 1727 203 1101 9 24 DCW 084 Q EQUIVALENCE C 3 1730 203 1102 9 25 DCW 108 F FORMAT C 3 1733 204 1103 9 26 DCW 009 3 WRITE TAPE C 3 1736 204 1104 9 27 DCW 003 1 READ TAPE C 3 1739 204 1105 9 28 DCW 018 6 WRITE OUTPUT TAPE C 3 1742 204 1106 9 29 DCW 081 P PRINT C 3 1745 204 1107 9 30 DCW 042 U PNCH C 3 1748 204 1108 9 31 DCW 015 5 READ INPUT TAPE C 3 1751 204 1109 9 32 DCW 069 L READ C 3 1754 205 1110 9 33 DCW 087 R ARITH C 3 1757 205 1111 9 34 DCW 105 E IF C 3 1760 205 1112 9 35 DCW 027 9 FUNCTION STMTS C 3 1763 205 1113 9 36 DCW 096 B BACKSPACE C 3 1766 205 1114 9 37 DCW 057 Z REWIND C 3 1769 205 1115 9 38 DCW 075 N END OF FILE C 3 1772 205 1116 9 39 DCW 039 T COMPUTED GO TO C 3 1775 206 1117 9 40 DCW 111 G GO TO C 3 1778 206 1118 9 41 DCW 036 S STOP C 3 1781 206 1119 9 42 DCW 093 A PAUSE C 3 1784 206 1120 9 43 DCW 063 J SENSE LIGHT C 3 1787 206 1121 9 44 DCW 066 K IF SENSE LIGHT C 3 1790 206 1122 9 45 DCW 048 W IF SENSE SWITCH C 3 1793 206 1123 9 46 DCW 099 C CONTINUE C 3 1796 207 1124 9 47 LIST DCW 102 D DO C 3 1799 207 1125 9 48 ALL9 DCW 999 C 3 1802 207 1126 9 49 ALL92 DCW 999 C 3 1805 207 1127 9 50 GM DC @}@ GROUP MARK C 1 1806 GMARK 207 1128 9 51 PAKSW DC 0 C 1 1807 207 1129 9 52 LTORG * C 1808 TBEGIN DCW #03 C 3 1810 AREA 207 DCW @#@ C 1 1811 LIT 207 WORK9C DCW #09 C 9 1820 AREA 207 DCW &39 C 2 1822 LIT 208 BLNK3C DCW #03 C 3 1825 AREA 208 DCW &1 C 1 1826 LIT 208 DCW &3 C 1 1827 LIT 208 DCW &30 C 2 1829 LIT 208 DCW @GROUP MARK@ C 10 1839 LIT 208 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ C 36 1875 LIT 209 1130 9 53 ORG EOTWO&1 C 2001 1131 9 54 SAVE3 DCW #3 C 3 2003 210 1132 9 55 ORG ORGVBI&X00 VARBL ONE LONGEST C 2900 1133 9 56 END EQU *&1 C 2900 1134 9 57 DCW @}@ SYSTEM GROUP MARK C 1 2900 GMARK 211 1135 9 58 XFR AGAIN C B |22 212 1 1401 FORTRAN INSERT GROUP PHASE 50073 PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1136 9 59 JOB 1401 FORTRAN INSERT GROUP PHASE C 1137 9 60 FBEGN GROUP MARK,X1,R,X2,R,,,D C MACRO 1138 SFX D D GEN 1139 110 DCW @GROUP MARK@ D 10 0110 GEN 215 1140 X1 EQU 089 D 0089 GEN 1141 089 DCW 000 D 3 0089 GEN 216 1142 091 DC 00 D 2 0091 GEN 216 1143 X2 EQU 094 D 0094 GEN 1144 094 DCW 000 D 3 0094 GEN 216 1145 096 DC 00 D 2 0096 GEN 216 1146 9 61 ORG XBEGIN D 0838 1147 9 62 START MCW 083,X1 D 7 0838 M 083 089 217 1148 9 63 SW GM D 4 0845 , |91 217 1149 9 64 LOOP1 BCE RPLCE,0&X1,: 5-8 D 8 0849 B 881 0|0 : 217 1150 9 65 BTEST BCE EOJ,0&X1, BLANK D 8 0857 B 949 0|0 217 1151 9 66 BCE CKFMT,0&X1,} GROUP MARK D 8 0865 B 904 0|0 } GMARK 217 1152 9 67 SBR X1 D 4 0873 H 089 217 1153 9 68 B LOOP1 D 4 0877 B 849 218 1154 9 69 RPLCE LCA GM, 0&X1 INSERT GM/WM D 7 0881 L |91 0|0 218 1155 9 70 SBR X1 D 4 0888 H 089 218 1156 9 71 C 0&X1 D 4 0892 C 0|0 218 1157 9 72 SAR X1 D 4 0896 Q 089 218 1158 9 73 B LOOP1 D 4 0900 B 849 218 1159 9 74 CKFMT MCW 0&X1,HOLD5#5 D 7 0904 M 0|0 |96 218 1160 9 75 BCE ISFMT,HOLD5-4,F D 8 0911 B 938 |92 F 219 1161 9 76 MCW @B@,BTEST D 7 0919 M |97 857 219 1162 9 77 BUMP MN 0&X1 D 4 0926 D 0|0 219 1163 9 78 SBR X1 D 4 0930 H 089 219 1164 9 79 B LOOP1 D 4 0934 B 849 219 1165 9 80 ISFMT MCW @N@,BTEST D 7 0938 M |98 857 219 1166 9 81 B BUMP D 4 0945 B 926 219 1167 9 82 EOJ MCW PARAMA&2,X2 D 7 0949 M 688 094 220 1168 9 83 MZ 083,ALL9 D 7 0956 Y 083 |90 220 1169 9 84 MZ D 1 0963 Y 220 1170 9 85 MCW D 1 0964 M 220 1171 9 86 CLEAR CS 0&X2 D 4 0965 / 0!0 220 1172 9 87 SBR X2 D 4 0969 H 094 220 1173 9 88 C X2,ALL9 D 7 0973 C 094 |90 220 1174 9 89 BU CLEAR D 5 0980 B 965 / 221 1175 9 90 CMPAR C 083,X2 D 7 0985 C 083 094 221 1176 9 91 BE FXPRM D 5 0992 B |16 S 221 1177 9 92 MCW BLANK#1,0&X2 D 7 0997 M |99 0!0 221 1178 9 93 CW 0&X2 D 4 1004 ) 0!0 221 1179 9 94 SBR X2 D 4 1008 H 094 221 1180 9 95 B CMPAR D 4 1012 B 985 221 1181 9 96 FXPRM SW PARAMA&3 D 4 1016 , 689 222 1182 9 97 A BLANK,PARAMA&6 D 7 1020 A |99 692 222 1183 9 98 C PARAMA&4,@00@ D 7 1027 C 690 /01 222 1184 9 99 BU *&8 D 5 1034 B |46 / 222 1185 10 00 MCW @05@,PARAMA&4 D 7 1039 M /03 690 222 1 1401 FORTRAN INSERT GROUP PHASE 50073 PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1186 10 01 C PARAMA&6,@00@ D 7 1046 C 692 /01 222 1187 10 02 BU EOPHS D 5 1053 B |65 / 223 1188 10 03 MCW @08@,PARAMA&6 D 7 1058 M /05 692 223 1189 10 04 EOPHS FENDX C,GM,,,,,SYS1,SQUOZE D MACRO 1190 EOPHS BSS 333,C D 5 1065 B 333 C GEN 223 1191 SBR TCLEAR,SYS1 D 7 1070 H 710 /12 GEN 223 1192 LCA @SQUOZE@,110 D 7 1077 L /11 110 GEN 223 1193 B MONTER D 4 1084 B 700 GEN 223 1194 10 05 ALL9 DCW 999 D 3 1090 223 1195 10 06 GM DC @}@ GROUP MARK D 1 1091 GMARK 223 1196 10 07 LTORG * D 1092 HOLD5D DCW #05 D 5 1096 AREA 224 DCW @B@ D 1 1097 LIT 224 DCW @N@ D 1 1098 LIT 224 BLANKD DCW #01 D 1 1099 AREA 224 DCW @00@ D 2 1101 LIT 224 DCW @05@ D 2 1103 LIT 224 DCW @08@ D 2 1105 LIT 224 DCW @SQUOZE@ D 6 1111 LIT 225 1197 10 08 SYS1 DCW @}@ SYSTEM GROUP MARK D 1 1112 GMARK 225 1198 10 09 XFR START D B 838 226 1 1401 FORTRAN SQUOZE PHASE 50083 PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1199 10 10 JOB 1401 FORTRAN SQUOZE PHASE D 1200 10 11 FBEGN SQUOZE,XL1,R,XL2,R,XL3,R,E,XXXX D MACRO 1201 SFX E E GEN 1202 XXXX EQU 0 E 0000 GEN 1203 110 DCW @SQUOZE@ E 6 0110 GEN 229 1204 XL1 EQU 089 E 0089 GEN 1205 089 DCW 000 E 3 0089 GEN 230 1206 091 DC 00 E 2 0091 GEN 230 1207 XL2 EQU 094 E 0094 GEN 1208 094 DCW 000 E 3 0094 GEN 230 1209 096 DC 00 E 2 0096 GEN 230 1210 XL3 EQU 099 E 0099 GEN 1211 099 DCW 000 E 3 0099 GEN 230 1212 100 DC 0 E 1 0100 GEN 230 1213 10 12 X1 EQU XL1 E 0089 1214 10 13 X2 EQU XL2 E 0094 1215 10 14 STLOC EQU 083 E 0083 1216 10 15 ORG XBEGIN E 0838 1217 10 16 BEGIN MCW STLOC,XL2 INITIALIZE INDEX LOCS E 7 0838 M 083 094 231 1218 10 17 MCW STLOC,XL1 WITH START ADDRESS E 7 0845 M 083 089 231 1219 10 18 NUSTM MCW 0&X1,STMNO#3 SAVE STATEMENT NUMBER E 7 0852 M 0|0 U94 231 1220 10 19 MCW 0&X1,HOLD4#4 E 7 0859 M 0|0 U98 231 1221 10 20 BCE ARITH,HOLD4-3,R E 8 0866 B /56 U95 R 231 1222 10 21 BCE ENDCD,HOLD4-3,/ E 8 0874 B /82 U95 / 232 1223 10 22 BYP BCE LOD,HOLD4-3,X E 8 0882 B 991 U95 X 232 1224 10 23 MZ HOLD4-3,BYP&7 E 7 0890 Y U95 889 232 1225 10 24 MN HOLD4-3,BYP&7 E 7 0897 D U95 889 232 1226 10 25 MN HOLD4-3,HOLD1#1 GENERATE TABLE ENTRY E 7 0904 D U95 U99 232 1227 10 26 ZA HOLD1,HOLD3#3 ADDRESS E 7 0911 ? U99 V02 233 1228 10 27 A HOLD3 E 4 0918 A V02 233 1229 10 28 A HOLD1,HOLD3 E 7 0922 A U99 V02 233 1230 10 29 MZ BLANK#1,HOLD3 E 7 0929 Y V03 V02 233 1231 10 30 LCA &TABLE-3,RTREV&3 E 7 0936 L V06 979 233 1232 10 31 A HOLD3,RTREV&3 E 7 0943 A V02 979 233 1233 10 32 MZ HOLD4-3,RTREV&2 E 7 0950 Y U95 978 234 1234 10 33 CW RTREV&1 E 4 0957 ) 977 234 1235 10 34 MCW XL2,HOLDX#8 SAVE INDEX LOCS 1 & 2 E 7 0961 M 094 V14 234 1236 10 35 MCW E 1 0968 M 234 1237 10 36 MCM DATA,XL1-2 RETRIEVE TABLE ENTRY E 7 0969 P U78 087 234 1238 10 37 RTREV MCW XXXX,XL3 E 7 0976 M 000 099 234 1239 10 38 MCW HOLDX,XL2 E 7 0983 M V14 094 235 1240 10 39 MCW E 1 0990 M 235 1241 10 40 LOD MVDWN X1,X2 E MACRO 1242 LOD LCA 0&X1,0&X2 E 7 0991 L 0|0 0!0 GEN 235 1243 SAR X1 E 4 0998 Q 089 GEN 235 1244 C 0&X2 E 4 1002 C 0!0 GEN 235 1245 SAR X2 E 4 1006 Q 094 GEN 235 1246 10 41 C 0&X1,0&X3 CHECK STATEMENT NAME E 7 1010 C 0|0 0?0 235 1247 10 42 SAR XL1 E 4 1017 Q 089 236 1248 10 43 BU ERROR E 5 1021 B |92 / 236 1 1401 FORTRAN SQUOZE PHASE 50083 PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1249 10 44 SHIFT MVDWN X1,X2 E MACRO 1250 SHIFT LCA 0&X1,0&X2 E 7 1026 L 0|0 0!0 GEN 236 1251 SAR X1 E 4 1033 Q 089 GEN 236 1252 C 0&X2 E 4 1037 C 0!0 GEN 236 1253 SAR X2 E 4 1041 Q 094 GEN 236 1254 10 45 CKDON BCE DONE,0&X1, BLANK CHECK FOR EOJ E 8 1045 B |57 0|0 236 1255 10 46 B NUSTM E 4 1053 B 852 237 1256 10 47 DONE CS 0&X2 E 4 1057 / 0!0 237 1257 10 48 CS E 1 1061 / 237 1258 10 49 FENDX C,,,,INITLF,,SYS1,DIMEN1 E MACRO 1259 BSS 333,C E 5 1062 B 333 C GEN 237 1260 SBR INITXT&3,INITLF E 7 1067 H 796 839 GEN 237 1261 SBR TCLEAR,SYS1 E 7 1074 H 710 V67 GEN 237 1262 LCA @DIMEN1@,110 E 7 1081 L V20 110 GEN 237 1263 B MONTER E 4 1088 B 700 GEN 238 1264 10 50 ERROR FTMSG 1,UNDETERMINABLE STATEMENT,STMNO,25 E MACRO 1265 ERROR CS 332 E 4 1092 / 332 GEN 238 1266 CS E 1 1096 / GEN 238 1267 SW FAILSW E 4 1097 , 184 GEN 238 1268 MN STMNO,224&25 E 7 1101 D U94 249 GEN 238 1269 MN E 1 1108 D GEN 238 1270 MN E 1 1109 D GEN 238 1271 MCW @ERROR 1 - UNDETERMINABLE STATEMENT, STATEMENT @ E 4 1110 M V66 GEN 239 1272 W E 1 1114 2 GEN 239 1273 BCV *&5 E 5 1115 B /24 @ GEN 239 1274 B *&3 E 4 1120 B /26 GEN 239 1275 CC 1 E 2 1124 F 1 GEN 239 1276 10 51 PMOV3 MCM 2&X2 E 4 1126 P 0!2 239 1277 10 52 MN E 1 1130 D 239 1278 10 53 MN E 1 1131 D 240 1279 10 54 SAR XL2 E 4 1132 Q 094 240 1280 10 55 BCE PMOV3,1&X2,| E 8 1136 B /26 0!1 | 240 1281 10 56 C 0&X1 E 4 1144 C 0|0 240 1282 10 57 SAR XL1 E 4 1148 Q 089 240 1283 10 58 B CKDON E 4 1152 B |45 240 1284 10 59 ARITH LCA 0&X1,0&X2 E 7 1156 L 0|0 0!0 240 1285 10 60 SAR XL1 E 4 1163 Q 089 241 1286 10 61 LCA 0&X2,0&X2 E 7 1167 L 0!0 0!0 241 1287 10 62 SBR XL2 E 4 1174 H 094 241 1288 10 63 B SHIFT E 4 1178 B |26 241 1289 10 64 ENDCD C 0&X1 E 4 1182 C 0|0 241 1290 10 65 C E 1 1186 C 241 1291 10 66 SAR XL1 E 4 1187 Q 089 241 1292 10 67 B CKDON / END E 4 1191 B |45 242 1293 10 68 TABLE DCW RDTAP 1 READ TAPE E 3 1197 U03 242 1294 10 69 DCW XXXX 2 E 3 1200 000 242 1295 10 70 DCW WRTAP 3 WRITE TAPE E 3 1203 U12 242 1296 10 71 DCW XXXX 4 E 3 1206 000 242 1297 10 72 DCW RDITP 5 READ INPUT TAPE E 3 1209 T70 242 1298 10 73 DCW WTOTP 6 WRITE OUTPUT TAPE E 3 1212 T95 242 1 1401 FORTRAN SQUOZE PHASE 50083 PAGE 32 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1299 10 74 DCW XXXX 7 E 3 1215 000 243 1300 10 75 DCW XXXX 8 E 3 1218 000 243 1301 10 76 DCW BLANK 9 FUNCTION STATEMENTS E 3 1221 V03 243 1302 10 77 DCW XXXX / E 3 1224 000 243 1303 10 78 DCW STOP S STOP E 3 1227 T36 243 1304 10 79 DCW CGOTO T COMPUTED GO TO E 3 1230 T11 243 1305 10 80 DCW PUNCH U PUNCH E 3 1233 T75 243 1306 10 81 DCW XXXX V E 3 1236 000 244 1307 10 82 DCW IFSSW W IF SENSE SWITCH E 3 1239 T27 244 1308 10 83 DCW XXXX X E 3 1242 000 244 1309 10 84 DCW XXXX Y E 3 1245 000 244 1310 10 85 DCW RWD Z REWIND E 3 1248 U25 244 1311 10 86 DCW SENLT J SENSE LIGHT E 3 1251 U77 244 1312 10 87 DCW IFSL K IF SENSE LIGHT E 3 1254 U67 244 1313 10 88 DCW READ L READ E 3 1257 T57 245 1314 10 89 DCW XXXX M E 3 1260 000 245 1315 10 90 DCW EOF N END OF FILE E 3 1263 U19 245 1316 10 91 DCW XXXX O E 3 1266 000 245 1317 10 92 DCW PRINT P PRINT E 3 1269 T80 245 1318 10 93 DCW EQUIV Q EQUIVALENCE E 3 1272 U54 245 1319 10 94 DCW XXXX R ARITHMETIC E 3 1275 000 245 1320 10 95 DCW PAUSE A PAUSE E 3 1278 T32 246 1321 10 96 DCW BSP B BACKSPACE E 3 1281 U34 246 1322 10 97 DCW CNTU C CONTINUE E 3 1284 T46 246 1323 10 98 DCW DO D DO E 3 1287 T38 246 1324 10 99 DCW IF E IF E 3 1290 T13 246 1325 11 00 DCW FRMAT F FORMAT E 3 1293 T53 246 1326 11 01 DCW GOTO G GO TO E 3 1296 T06 246 1327 11 02 DCW XXXX H E 3 1299 000 247 1328 11 03 DCW DMSN I DIMENSION E 3 1302 U43 247 1329 11 04 GOTO DCW @OTOG@ E 4 1306 247 1330 11 05 CGOTO DCW @%OTOG@ E 5 1311 247 1331 11 06 IF DCW @FI@ E 2 1313 247 1332 11 07 IFSSW DCW @HCTIWSESNES%FI@ E 14 1327 247 1333 11 08 PAUSE DCW @ESUAP@ E 5 1332 247 1334 11 09 STOP DCW @POTS@ E 4 1336 248 1335 11 10 DO DCW @OD@ E 2 1338 248 1336 11 11 CNTU DCW @EUNITNOC@ E 8 1346 248 1337 11 12 FRMAT DCW @%TAMROF@ E 7 1353 248 1338 11 13 READ DCW @DAER@ E 4 1357 248 1339 11 14 RDITP DCW @EPATTUPNIDAER@ E 13 1370 248 1340 11 15 PUNCH DCW @HCNUP@ E 5 1375 249 1341 11 16 PRINT DCW @TNIRP@ E 5 1380 249 1342 11 17 WTOTP DCW @EPATTUPTUOETIRW@ E 15 1395 249 1343 11 18 RDTAP DCW @EPATDAER@ E 8 1403 249 1344 11 19 WRTAP DCW @EPATETIRW@ E 9 1412 250 1345 11 20 EOF DCW @ELIFDNE@ E 7 1419 250 1346 11 21 RWD DCW @DNIWER@ E 6 1425 250 1347 11 22 BSP DCW @ECAPSKCAB@ E 9 1434 250 1348 11 23 DMSN DCW @NOISNEMID@ E 9 1443 251 1 1401 FORTRAN SQUOZE PHASE 50083 PAGE 33 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1349 11 24 EQUIV DCW @ECNELAVIUQE@ E 11 1454 251 1350 11 25 IFSL DCW @THGILESNES%FI@ E 13 1467 251 1351 11 26 SENLT DCW @THGILESNES@ E 10 1477 252 1352 11 27 DATA EQU *&1 E 1478 1353 11 28 DCW @0270005400081|@ E 14 1491 252 1354 11 29 LTORG * E 1492 STMNOE DCW #03 E 3 1494 AREA 252 HOLD4E DCW #04 E 4 1498 AREA 252 HOLD1E DCW #01 E 1 1499 AREA 252 HOLD3E DCW #03 E 3 1502 AREA 252 BLANKE DCW #01 E 1 1503 AREA 252 DCW &TABLEE-3 E 3 1506 /94 ADCON 253 HOLDXE DCW #08 E 8 1514 AREA 253 DCW @DIMEN1@ E 6 1520 LIT 253 DCW @ERROR 1 - UNDETERMINABLE STATEMENT, STATEMENT @ E 46 1566 LIT 255 1355 11 30 SYS1 DCW @}@ SYSTEM GROUP MARK E 1 1567 GMARK 255 1356 11 31 XFR BEGIN E B 838 256 1 1401 FORTRAN DIMENSION PHASE ONE 50093 PAGE 34 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1357 11 32 JOB 1401 FORTRAN DIMENSION PHASE ONE E 1358 11 33 FBEGN DIMEN 1,X1,,X2,R,X3,R,F E MACRO 1359 SFX F F GEN 1360 110 DCW @DIMEN 1@ F 7 0110 GEN 259 1361 X1 EQU 089 F 0089 GEN 1362 X2 EQU 094 F 0094 GEN 1363 094 DCW 000 F 3 0094 GEN 260 1364 096 DC 00 F 2 0096 GEN 260 1365 X3 EQU 099 F 0099 GEN 1366 099 DCW 000 F 3 0099 GEN 260 1367 100 DC 0 F 1 0100 GEN 260 1368 11 34 ORG XBEGIN F 0838 1369 11 35 COMPAT DCW 0 F 1 0838 261 1370 11 36 INITL SW GM F 4 0839 , W91 261 1371 11 37 MCW 83,X1 F 7 0843 M 083 089 261 1372 11 38 A BLANK#1,PARAMA&6 F 7 0850 A X01 692 261 1373 11 39 MCW PARAMA&6,HOLD#2 F 7 0857 M 692 X03 261 1374 11 40 A &2,HOLD F 7 0864 A X04 X03 261 1375 11 41 C PARAMA&4,HOLD F 7 0871 C 690 X03 262 1376 11 42 BU *&5 F 5 0878 B 887 / 262 1377 11 43 CW COMPAT F 4 0883 ) 838 262 1378 11 44 LCA GM,1&X1 F 7 0887 L W91 0|1 262 1379 11 45 LCA PARAMA&2,X2 F 7 0894 L 688 094 262 1380 11 46 MN 0000&X2 F 4 0901 D 0!0 262 1381 11 47 MN F 1 0905 D 262 1382 11 48 MCW @ @ BLANK F 4 0906 M X05 263 1383 11 49 SBR X2 F 4 0910 H 094 263 1384 11 50 START MCW BLANK,001 B OP INITIALIZED F 7 0914 M X01 001 263 1385 11 51 MCW @<@,2&X1 12-6-8 F 7 0921 M X06 0|2 263 1386 11 52 NOP 2&X1 F 4 0928 N 0|2 263 1387 11 53 SAR START&6 F 4 0932 Q 920 263 1388 11 54 LCA 0&X1,WORK F 7 0936 L 0|0 W90 263 1389 11 55 SAR X1 F 4 0943 Q 089 264 1390 11 56 SBR X3 F 4 0947 H 099 264 1391 11 57 BCE CKNOD,WORK, BLANK F 8 0951 B V45 W90 264 1392 11 58 BCE DIMEN,WORK-3,I F 8 0959 B 979 W87 I 264 1393 11 59 BCE BYP,WORK-3,/ F 8 0967 B V33 W87 / 264 1394 11 60 B CKNOD F 4 0975 B V45 264 1395 11 61 DIMEN BCE NAME,000&X1,% LEFT PAREN F 8 0979 B |19 0|0 % 265 1396 11 62 FBCEQ SYNER,0&X1,,,),} 12-7-8 F MACRO 1397 BCE SYNER, 0&X1, , F 8 0987 B U84 0|0 , GEN 265 1398 BCE SYNER, 0&X1, ) F 8 0995 B U84 0|0 ) GEN 265 1399 BCE SYNER, 0&X1, } F 8 1003 B U84 0|0 } GEN 265 1400 11 63 SBR X1 F 4 1011 H 089 265 1401 11 64 B DIMEN F 4 1015 B 979 266 1402 11 65 NAME SW DIMSW F 4 1019 , X00 266 1403 11 66 MN 0&X1 F 4 1023 D 0|0 266 1404 11 67 SAR X1 F 4 1027 Q 089 266 1405 11 68 SW 002&X1 F 4 1031 , 0|2 266 1406 11 69 MCW X2,HEX2#3 F 7 1035 M 094 X09 266 1 1401 FORTRAN DIMENSION PHASE ONE 50093 PAGE 35 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1407 11 70 * TEST TO SEE IF ARRAY WAS PREVIOUSLY DEFINED 1408 11 71 BW OK,DSW#1 F 8 1042 V /12 X10 1 266 1409 11 72 UNIQ MCM 1&X2 F 4 1050 P 0!1 267 1410 11 73 SAR X2 F 4 1054 Q 094 267 1411 11 74 BCE OK,0&X2, BLANK F 8 1058 B /12 0!0 267 1412 11 75 GET MCM 2&X2 F 4 1066 P 0!2 267 1413 11 76 MN F 1 1070 D 267 1414 11 77 MN F 1 1071 D 267 1415 11 78 SBR X2 F 4 1072 H 094 267 1416 11 79 BCE GET,1&X2,| F 8 1076 B |66 0!1 | 268 1417 11 80 COMP C 0&X2,0&X3 REST V. NEW F 7 1084 C 0!0 0?0 268 1418 11 81 SAR X2 F 4 1091 Q 094 268 1419 11 82 BU UNIQ F 5 1095 B |50 / 268 1420 11 83 * CAN GET EQUAL COMPARE IF A FIELD LONGER THAN B FIELD 1421 11 84 BWZ MULTY,1&X2,1 F 8 1100 V T56 0!1 1 268 1422 11 85 B UNIQ F 4 1108 B |50 268 1423 11 86 OK MCW HEX2,X2 F 7 1112 M X09 094 269 1424 11 87 LCA GM,000&X2 F 7 1119 L W91 0!0 269 1425 11 88 LCA 000&X3 F 4 1126 L 0?0 269 1426 11 89 LCA PRED F 4 1130 L W94 269 1427 11 90 SBR X2 F 4 1134 H 094 269 1428 11 91 MCW PRED,X3 PRED INITIALLY BLANK F 7 1138 M W94 099 269 1429 11 92 BCE *&5,X3, BLANK F 8 1145 B /57 099 270 1430 11 93 B *&8 F 4 1153 B /64 270 1431 11 94 A BLANK,X3 F 7 1157 A X01 099 270 1432 11 95 LCA @ @,000&X2 F 7 1164 L X13 0!0 270 1433 11 96 LCA @ @ F 4 1171 L X13 270 1434 11 97 SBR 006&X3 F 4 1175 H 0?6 270 1435 11 98 SBR PRED F 4 1179 H W94 270 1436 11 99 LCA @ @ F 4 1183 L X18 271 1437 12 00 SBR X2 F 4 1187 H 094 271 1438 12 01 RESET FFLIP 0&X1,MN,X1,X3,,,,,),} GROUP MARK F MACRO 1439 RESET MN MN F 4 1191 D W95 GEN 271 1440 MN F 1 1195 D GEN 271 1441 SAR X3 F 4 1196 Q 099 GEN 271 1442 SBR X1, 0&X1 F 7 1200 H 089 0|0 GEN 271 1443 )0K028 MCW 0&X1,)0L028#1 F 7 1207 M 0|0 X19 GEN 271 1444 SAR X1 F 4 1214 Q 089 GEN 272 1445 BCE )0M028, )0L028, ) F 8 1218 B S57 X19 ) GEN 272 1446 BCE )0M028, )0L028, } F 8 1226 B S57 X19 } GEN 272 1447 BCE )0M028, )0L028, , F 8 1234 B S57 X19 , GEN 272 1448 MCW )0L028, 2&X3 F 7 1242 M X19 0?2 GEN 272 1449 SBR X3 F 4 1249 H 099 GEN 272 1450 B )0K028 F 4 1253 B S07 GEN 273 1451 )0M028 EQU *&1 F 1257 GEN 1452 12 02 BCE SYNER,1&X1,} 12-7-8 F 8 1257 B U84 0|1 } GMARK 273 1453 12 03 LCA 001&X3,000&X2 F 7 1265 L 0?1 0!0 273 1454 12 04 SBR X2 F 4 1272 H 094 273 1455 12 05 BCE RESET,1&X1,, F 8 1276 B /91 0|1 , 273 1456 12 06 MCW START&6,X3 F 7 1284 M 920 099 273 1 1401 FORTRAN DIMENSION PHASE ONE 50093 PAGE 36 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1457 12 07 BCE *&5,0&X3,< 12-6-8 F 8 1291 B T03 0?0 < 274 1458 12 08 B FAIL F 4 1299 B W46 274 1459 12 09 CW DSW F 4 1303 ) X10 274 1460 12 10 CKGM BCE NEXT,0&X1,} 12-7-8 F 8 1307 B T44 0|0 } GMARK 274 1461 12 11 B LAST CHAR OF DIMEN MIGHT BE , F 1 1315 B 274 1462 12 12 BCE *&5,0&X1,, F 8 1316 B T28 0|0 , 274 1463 12 13 B SYNER F 4 1324 B U84 274 1464 12 14 MN 000&X1 F 4 1328 D 0|0 275 1465 12 15 SAR X1 F 4 1332 Q 089 275 1466 12 16 SBR X3 F 4 1336 H 099 275 1467 12 17 B DIMEN F 4 1340 B 979 275 1468 12 18 NEXT C 0&X1 F 4 1344 C 0|0 275 1469 12 19 SAR X1 F 4 1348 Q 089 275 1470 12 20 B START F 4 1352 B 914 275 1471 12 21 MULTY CS 332 F 4 1356 / 332 276 1472 12 22 CS F 1 1360 / 276 1473 12 23 SW FAILSW F 4 1361 , 184 276 1474 12 24 MCW @ERROR 2 - DOUBLY DEFINED ARRAY@,230 F 7 1365 M X49 230 276 1475 12 25 MCW COMP&6,X2 F 7 1372 M |90 094 276 1476 12 26 FFLIP 0&X3,232,X3,X2,INCL,WM F MACRO 1477 MN 232 F 4 1379 D 232 GEN 276 1478 MN F 1 1383 D GEN 276 1479 SAR X2 F 4 1384 Q 094 GEN 277 1480 SBR X3, 0&X3 F 7 1388 H 099 0?0 GEN 277 1481 )0K029 MCW 0&X3,)0L029#1 F 7 1395 M 0?0 X50 GEN 277 1482 SAR X3 F 4 1402 Q 099 GEN 277 1483 MCW )0L029, 2&X2 F 7 1406 M X50 0!2 GEN 277 1484 SBR X2 F 4 1413 H 094 GEN 277 1485 BW )0M029, 1&X3 F 8 1417 V U29 0?1 1 GEN 278 1486 B )0K029 F 4 1425 B T95 GEN 278 1487 )0M029 EQU *&1 F 1429 GEN 1488 12 27 W F 1 1429 2 278 1489 12 28 FORMS F MACRO 1490 BCV *&5 F 5 1430 B U39 @ GEN 278 1491 B *&3 F 4 1435 B U41 GEN 278 1492 CC 1 F 2 1439 F 1 GEN 278 1493 12 29 LOZSC BCE CTUL,0&X1,) F 8 1441 B U65 0|0 ) 278 1494 12 30 SBR X1 F 4 1449 H 089 279 1495 12 31 BCE SYNER,1&X1,} 12-7-8 F 8 1453 B U84 0|1 } GMARK 279 1496 12 32 B LOZSC F 4 1461 B U41 279 1497 12 33 CTUL MN 0&X1 F 4 1465 D 0|0 279 1498 12 34 SAR X1 F 4 1469 Q 089 279 1499 12 35 MCW HEX2,X2 F 7 1473 M X09 094 279 1500 12 36 B CKGM F 4 1480 B T07 279 1501 12 37 SYNER FTMSG 3,DIMENSION SYNTAX,WORK,17 F MACRO 1502 SYNER CS 332 F 4 1484 / 332 GEN 280 1503 CS F 1 1488 / GEN 280 1504 SW FAILSW F 4 1489 , 184 GEN 280 1505 MN WORK,224&17 F 7 1493 D W90 241 GEN 280 1506 MN F 1 1500 D GEN 280 1 1401 FORTRAN DIMENSION PHASE ONE 50093 PAGE 37 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1507 MN F 1 1501 D GEN 280 1508 MCW @ERROR 3 - DIMENSION SYNTAX, STATEMENT @ F 4 1502 M X88 GEN 280 1509 W F 1 1506 2 GEN 281 1510 BCV *&5 F 5 1507 B V16 @ GEN 281 1511 B *&3 F 4 1512 B V18 GEN 281 1512 CC 1 F 2 1516 F 1 GEN 281 1513 12 38 MCW HEX2,X2 F 7 1518 M X09 094 281 1514 12 39 BCE START,1&X1,} 12-7-8 F 8 1525 B 914 0|1 } GMARK 281 1515 12 40 BYP C 0&X1 F 4 1533 C 0|0 281 1516 12 41 SAR X1 F 4 1537 Q 089 282 1517 12 42 B START F 4 1541 B 914 282 1518 12 43 CKNOD BW OUT,DIMSW F 8 1545 V V88 X00 1 282 1519 12 44 LCA GM,0&X2 F 7 1553 L W91 0!0 282 1520 12 45 LCA @:@ 5-8 F 4 1560 L X89 282 1521 12 46 LCA BLNK3#3 F 4 1564 L X92 282 1522 12 47 LCA BLNK3 F 4 1568 L X92 282 1523 12 48 LCA BLNK3 F 4 1572 L X92 283 1524 12 49 LCA BLANK5#5 F 4 1576 L X97 283 1525 12 50 LCA @10@ F 4 1580 L X99 283 1526 12 51 SBR X2 F 4 1584 H 094 283 1527 12 52 OUT NOP 002&X1 F 4 1588 N 0|2 283 1528 12 53 MCM F 1 1592 P 283 1529 12 54 MCW F 1 1593 M 283 1530 12 55 SAR X1 F 4 1594 Q 089 284 1531 12 56 MCW 006,086 F 7 1598 M 006 086 284 1532 12 57 FENDX C,GM,,XBEGIN&1,INITLG,XBEGIN&1,SYS1,EQUIV ONE F MACRO 1533 BSS 333,C F 5 1605 B 333 C GEN 284 1534 SBR INITAP&6,XBEGIN&1 F 7 1610 H 786 839 GEN 284 1535 SBR BCLEAR F 4 1617 H 833 GEN 284 1536 SBR INITXT&3,INITLG F 7 1621 H 796 |34 GEN 284 1537 SBR TCLEAR,SYS1 F 7 1628 H 710 Y45 GEN 285 1538 LCA @EQUIV ONE@,110 F 7 1635 L Y08 110 GEN 285 1539 B MONTER F 4 1642 B 700 GEN 285 1540 12 58 FAIL FQUIT F MACRO 1541 FAIL CS 332 F 4 1646 / 332 GEN 285 1542 CS F 1 1650 / GEN 285 1543 CC 1 F 2 1651 F 1 GEN 285 1544 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 F 7 1653 M Y44 270 GEN 285 1545 W F 1 1660 2 GEN 286 1546 CC 1 F 2 1661 F 1 GEN 286 1547 BCE *&6,MONTOR,1 F 8 1663 B W76 769 1 GEN 286 1548 RWD 1 F 5 1671 U %U1 R GEN 286 1549 H *-3 F 4 1676 . W76 GEN 286 1550 12 59 DCW 0 F 1 1680 286 1551 12 60 WORK DCW #10 F 10 1690 286 1552 12 61 GM DC @}@ 12-7-8 F 1 1691 GMARK 286 1553 12 62 PRED DCW #3 F 3 1694 287 1554 12 63 MN DCW #1 F 1 1695 287 1555 21 64 DC #4 F 4 1699 287 1556 12 65 DIMSW DC #1 F 1 1700 287 1 1401 FORTRAN DIMENSION PHASE ONE 50093 PAGE 38 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1557 12 66 LTORG * F 1701 BLANKF DCW #01 F 1 1701 AREA 287 HOLD F DCW #02 F 2 1703 AREA 287 DCW &2 F 1 1704 LIT 287 DCW @ @ F 1 1705 LIT 287 DCW @<@ F 1 1706 LIT 287 HEX2 F DCW #03 F 3 1709 AREA 288 DSW F DCW #01 F 1 1710 AREA 288 DCW @ @ F 3 1713 LIT 288 DCW @ @ F 5 1718 LIT 288 )0L028 DCW #01 F 1 1719 AREA 288 DCW @ERROR 2 - DOUBLY DEFINED ARRAY@ F 30 1749 LIT 289 )0L029 DCW #01 F 1 1750 AREA 289 DCW @ERROR 3 - DIMENSION SYNTAX, STATEMENT @ F 38 1788 LIT 290 DCW @:@ F 1 1789 LIT 290 BLNK3F DCW #03 F 3 1792 AREA 291 BLANK5 DCW #05 F 5 1797 AREA 291 DCW @10@ F 2 1799 LIT 291 DCW @EQUIV ONE@ F 9 1808 LIT 291 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ F 36 1844 LIT 292 1558 12 67 SYS1 DCW @}@ SYSTEM GROUP MARK F 1 1845 GMARK 292 1559 12 68 XFR INITL F B 839 293 1 1401 FORTRAN EQUIVALENCE PHASE ONE 50103 PAGE 39 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1560 12 69 JOB 1401 FORTRAN EQUIVALENCE PHASE ONE F 1561 12 70 FBEGN EQUIV ONE,X1,,X2,,X3,R,G F MACRO 1562 SFX G G GEN 1563 110 DCW @EQUIV ONE@ G 9 0110 GEN 296 1564 X1 EQU 089 G 0089 GEN 1565 X2 EQU 094 G 0094 GEN 1566 X3 EQU 099 G 0099 GEN 1567 099 DCW 000 G 3 0099 GEN 297 1568 100 DC 0 G 1 0100 GEN 297 1569 12 71 ORG XBEGIN&1 G 0839 1570 12 72 FIRST EQU 086 G 0086 1571 12 73 GM DC @}@ 12-7-8 G 1 0839 GMARK 298 1572 12 74 WORK DC #10 G 10 0849 298 1573 12 75 DRESS DCW #3 G 3 0852 298 1574 12 76 CHAMP DCW #5 G 5 0857 298 1575 12 77 DC #3 G 3 0860 298 1576 12 78 TALLY DCW #5 G 5 0865 298 1577 12 79 DC #3 G 3 0868 298 1578 12 80 ACCUM DCW #5 G 5 0873 298 1579 12 81 HEX3 DC #3 G 3 0876 298 1580 12 82 DC #1 G 1 0877 298 1581 12 83 SPACE DCW #1 G 1 0878 299 1582 12 84 DC #4 G 4 0882 299 1583 12 85 SYNER FTMSG 4,EQUIVALENCE SYNTAX,WORK,19 G MACRO 1584 SYNER CS 332 G 4 0883 / 332 GEN 299 1585 CS G 1 0887 / GEN 299 1586 SW FAILSW G 4 0888 , 184 GEN 299 1587 MN WORK,224&19 G 7 0892 D 849 243 GEN 299 1588 MN G 1 0899 D GEN 299 1589 MN G 1 0900 D GEN 299 1590 MCW @ERROR 4 - EQUIVALENCE SYNTAX, STATEMENT @ G 4 0901 M Y21 GEN 300 1591 W G 1 0905 2 GEN 300 1592 BCV *&5 G 5 0906 B 915 @ GEN 300 1593 B *&3 G 4 0911 B 917 GEN 300 1594 CC 1 G 2 0915 F 1 GEN 300 1595 12 86 C 0&X1 G 4 0917 C 0|0 300 1596 12 87 SAR X1 G 4 0921 Q 089 300 1597 12 88 B START G 4 0925 B /15 301 1598 12 89 LOOP FBCEQ NAME,0&X1,,,%,) G MACRO 1599 LOOP BCE NAME, 0&X1, , G 8 0929 B 969 0|0 , GEN 301 1600 BCE NAME, 0&X1, % G 8 0937 B 969 0|0 % GEN 301 1601 BCE NAME, 0&X1, ) G 8 0945 B 969 0|0 ) GEN 301 1602 12 90 BCE SYNER,0&X1,} G-M G 8 0953 B 883 0|0 } GMARK 301 1603 12 91 SBR X1 G 4 0961 H 089 302 1604 12 92 B LOOP G 4 0965 B 929 302 1605 12 93 NAME SW 001&X1 G 4 0969 , 0|1 302 1606 12 94 MCW DRESS,X2 DRESS EQUALS &TABLE-2 G 7 0973 M 852 094 302 1607 12 95 FIND BCE CKSIM,2&X2, BLANK G 8 0980 B S74 0!2 302 1608 12 96 GET MCM 2&X2 G 4 0988 P 0!2 302 1609 12 97 MN G 1 0992 D 302 1 1401 FORTRAN EQUIVALENCE PHASE ONE 50103 PAGE 40 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1610 12 98 MN G 1 0993 D 303 1611 12 99 SAR X2 G 4 0994 Q 094 303 1612 13 00 BCE GET,1&X2,| G 8 0998 B 988 0!1 | 303 1613 13 01 COMP C 000,000&X2 EQUIV V. TABLE G 7 1006 C 000 0!0 303 1614 13 02 SAR X3 G 4 1013 Q 099 303 1615 13 03 BU FIND G 5 1017 B 980 / 303 1616 13 04 A3 BWZ ISIN,1&X3,1 G 8 1022 V W73 0?1 1 303 1617 13 05 B FIND G 4 1030 B 980 304 1618 13 06 INITL MN 000&X2 G 4 1034 D 0!0 304 1619 13 07 SAR DRESS G 4 1038 Q 852 304 1620 13 08 SBR HEX3 G 4 1042 H 876 304 1621 13 09 SW GM G 4 1046 , 839 304 1622 13 10 BW *&8,COMPAT G 8 1050 V |65 838 1 304 1623 13 11 MCW @B@,CMPSW G 7 1058 M Y22 /77 304 1624 13 12 MCW X1,SAVE1 G 7 1065 M 089 Z68 305 1625 13 13 MCW @<@,2&X1 12-6-8 G 7 1072 M Y23 0|2 305 1626 13 14 SBR KLOBR&6,2&X1 G 7 1079 H T99 0|2 305 1627 13 15 GET2 MCM 2&X2 G 4 1086 P 0!2 305 1628 13 16 MN G 1 1090 D 305 1629 13 17 MN G 1 1091 D 305 1630 13 18 SAR X2 G 4 1092 Q 094 305 1631 13 19 BCE GET2,1&X2,| G 8 1096 B |86 0!1 | 306 1632 13 20 C 0&X2 G 4 1104 C 0!0 306 1633 13 21 CHAIN 3 G MACRO 1634 C G 1 1108 C GEN 306 1635 C G 1 1109 C GEN 306 1636 C G 1 1110 C GEN 306 1637 13 22 SAR PRED#3 G 4 1111 Q Y26 306 1638 13 23 START LCA 000&X1,WORK G 7 1115 L 0|0 849 306 1639 13 24 SAR X1 G 4 1122 Q 089 307 1640 13 25 A1 BCE OUT1,WORK, BLANK G 8 1126 B W85 849 307 1641 13 26 BCE CKPRN,WORK-3,Q G 8 1134 B /46 846 Q 307 1642 13 27 A2 B OUT1 G 4 1142 B W85 307 1643 13 28 CKPRN BCE ISEQU,0&X1,% G 8 1146 B /58 0|0 % 307 1644 13 29 B SYNER G 4 1154 B 883 307 1645 13 30 ISEQU SW FXSW#1,FLTSW#1 G 7 1158 , Y27 Y28 308 1646 13 31 EQUIV MN 000&X1 G 4 1165 D 0|0 308 1647 13 32 SAR X1 G 4 1169 Q 089 308 1648 13 33 SBR COMP&3 G 4 1173 H |09 308 1649 13 34 CMPSW NOP LOOP G 4 1177 N 929 308 1650 13 35 SVORG EQU *&1 G 1181 1651 13 36 MN 0&X1,TST1&7 G 7 1181 D 0|0 S02 308 1652 13 37 MZ 0&X1,TST1&7 G 7 1188 Y 0|0 S02 308 1653 13 38 TST1 BCE FIXED,@IJKLMN@,X G 8 1195 B S16 Y34 X 309 1654 13 39 CHAIN 5 G MACRO 1655 BCE G 1 1203 B GEN 309 1656 BCE G 1 1204 B GEN 309 1657 BCE G 1 1205 B GEN 309 1658 BCE G 1 1206 B GEN 309 1659 BCE G 1 1207 B GEN 309 1 1401 FORTRAN EQUIVALENCE PHASE ONE 50103 PAGE 41 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1660 13 40 CW FLTSW G 4 1208 ) Y28 309 1661 13 41 B *&5 G 4 1212 B S20 310 1662 13 42 FIXED CW FXSW G 4 1216 ) Y27 310 1663 13 43 BW LOOP,FLTSW G 8 1220 V 929 Y28 1 310 1664 13 44 BWZ G 1 1228 V 310 1665 13 45 FTMSG 5,ILLEGAL EQUIVALENCE MIXING,WORK,27 G MACRO 1666 CS 332 G 4 1229 / 332 GEN 310 1667 CS G 1 1233 / GEN 310 1668 SW FAILSW G 4 1234 , 184 GEN 310 1669 MN WORK,224&27 G 7 1238 D 849 251 GEN 311 1670 MN G 1 1245 D GEN 311 1671 MN G 1 1246 D GEN 311 1672 MCW @ERROR 5 - ILLEGAL EQUIVALENCE MIXING, STATEMENT @ G 4 1247 M Y82 GEN 311 1673 W G 1 1251 2 GEN 311 1674 BCV *&5 G 5 1252 B S61 @ GEN 311 1675 B *&3 G 4 1257 B S63 GEN 311 1676 CC 1 G 2 1261 F 1 GEN 312 1677 13 46 SW FXSW,FLTSW G 7 1263 , Y27 Y28 312 1678 13 47 B LOOP G 4 1270 B 929 312 1679 13 48 CKSIM MCW X1,X3 G 7 1274 M 089 099 312 1680 13 49 BCE ERR,0&X1,% G 8 1281 B V05 0|0 % 312 1681 13 50 MCW DRESS,X2 G 7 1289 M 852 094 312 1682 13 51 LCA GM,1&X2 G 7 1296 L 839 0!1 313 1683 13 52 SBR X2 G 4 1303 H 094 313 1684 13 53 MCW COMP&3,X3 G 7 1307 M |09 099 313 1685 13 54 LCA 0&X3,0&X2 G 7 1314 L 0?0 0!0 313 1686 13 55 SBR X2 G 4 1321 H 094 313 1687 13 56 MCW PRED,X3 G 7 1325 M Y26 099 313 1688 13 57 LCA PRED,0&X2 G 7 1332 L Y26 0!0 314 1689 13 58 LCA BLNK5-2 G 4 1339 L Y85 314 1690 13 59 LCA BLNK5-2 G 4 1343 L Y85 314 1691 13 60 SBR PRED G 4 1347 H Y26 314 1692 13 61 SBR X2 G 4 1351 H 094 314 1693 13 62 LCA BLNK5#5,0&X2 G 7 1355 L Y87 0!0 314 1694 13 63 LCA @1@ G 4 1362 L Y88 314 1695 13 64 SBR X2 G 4 1366 H 094 315 1696 13 65 MCW PRED,6&X3 G 7 1370 M Y26 0?6 315 1697 13 66 BCE NEWCD,086, G 8 1377 B U35 086 315 1698 13 67 OLDCD MN 0&X2 G 4 1385 D 0!0 315 1699 13 68 SAR DRESS G 4 1389 Q 852 315 1700 13 69 KLOBR BCE BSTAR,0,< 12-6-8 G 8 1393 B U46 000 < 315 1701 13 70 FQUIT G MACRO 1702 CS 332 G 4 1401 / 332 GEN 315 1703 CS G 1 1405 / GEN 316 1704 CC 1 G 2 1406 F 1 GEN 316 1705 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 G 7 1408 M Z24 270 GEN 316 1706 W G 1 1415 2 GEN 316 1707 CC 1 G 2 1416 F 1 GEN 316 1708 BCE *&6,MONTOR,1 G 8 1418 B U31 769 1 GEN 316 1709 RWD 1 G 5 1426 U %U1 R GEN 316 1 1401 FORTRAN EQUIVALENCE PHASE ONE 50103 PAGE 42 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1710 H *-3 G 4 1431 . U31 GEN 317 1711 13 71 NEWCD MCW PRED,086 EQUIV WITH NO DIMEN STMT G 7 1435 M Y26 086 317 1712 13 72 B OLDCD G 4 1442 B T85 317 1713 13 73 BSTAR BCE *&5,0&X1,) G 8 1446 B U58 0|0 ) 317 1714 13 74 B EQBX1 G 4 1454 B U65 317 1715 13 75 SW FXSW,FLTSW G 7 1458 , Y27 Y28 317 1716 13 76 EQBX1 MN 0&X1 G 4 1465 D 0|0 317 1717 13 77 SBR X1 G 4 1469 H 089 318 1718 13 78 SBR COMP&3 G 4 1473 H |09 318 1719 13 79 BCE CTU4,0&X1,, G 8 1477 B W61 0|0 , 318 1720 13 80 BCE BSTAR,0&X1,} GROUP MARK G 8 1485 B U46 0|0 } GMARK 318 1721 13 81 BCE START,1&X1,} 12-7-8 G 8 1493 B /15 0|1 } GMARK 318 1722 13 82 B CMPSW G 4 1501 B /77 318 1723 13 83 ERR CS 299 G 4 1505 / 299 319 1724 13 84 MCW X3,X1 G 7 1509 M 099 089 319 1725 13 85 MCW X2,HEX2#3 G 7 1516 M 094 Z27 319 1726 13 86 FFLIP 0&X1,248,X1,X2,,,% G MACRO 1727 MN 248 G 4 1523 D 248 GEN 319 1728 MN G 1 1527 D GEN 319 1729 SAR X2 G 4 1528 Q 094 GEN 319 1730 SBR X1, 0&X1 G 7 1532 H 089 0|0 GEN 319 1731 )0K039 MCW 0&X1,)0L039#1 G 7 1539 M 0|0 Z28 GEN 320 1732 SAR X1 G 4 1546 Q 089 GEN 320 1733 BCE )0M039, )0L039, % G 8 1550 B V73 Z28 % GEN 320 1734 MCW )0L039, 2&X2 G 7 1558 M Z28 0!2 GEN 320 1735 SBR X2 G 4 1565 H 094 GEN 320 1736 B )0K039 G 4 1569 B V39 GEN 320 1737 )0M039 EQU *&1 G 1573 GEN 1738 13 87 MCW HEX2,X2 G 7 1573 M Z27 094 321 1739 13 88 SW FAILSW G 4 1580 , 184 321 1740 13 89 MN WORK,240 G 7 1584 D 849 240 321 1741 13 90 CHAIN 2 G MACRO 1742 MN G 1 1591 D GEN 321 1743 MN G 1 1592 D GEN 321 1744 13 91 MCW @ERROR 6 - UNDEFINED ARRAY, STATEMENT @ G 4 1593 M Z65 321 1745 13 92 FORMS G MACRO 1746 BCV *&5 G 5 1597 B W06 @ GEN 321 1747 B *&3 G 4 1602 B W08 GEN 322 1748 CC 1 G 2 1606 F 1 GEN 322 1749 13 93 W G 1 1608 2 322 1750 13 94 SCAN2 MN 0&X1 G 4 1609 D 0|0 322 1751 13 95 SAR X1 G 4 1613 Q 089 322 1752 13 96 BCE CTU4,0&X1,) G 8 1617 B W61 0|0 ) 322 1753 13 97 FBCEQ SYNER,0&X1,%,} CLOSE PAREN, GM G MACRO 1754 BCE SYNER, 0&X1, % G 8 1625 B 883 0|0 % GEN 322 1755 BCE SYNER, 0&X1, } G 8 1633 B 883 0|0 } GEN 323 1756 13 98 BCE SCAN2,0&X1,, G 8 1641 B W09 0|0 , 323 1757 13 99 BWZ SCAN2,0&X1,2 G 8 1649 V W09 0|0 2 323 1758 14 00 B SYNER G 4 1657 B 883 323 1759 14 01 CTU4 MN 0&X1 G 4 1661 D 0|0 323 1 1401 FORTRAN EQUIVALENCE PHASE ONE 50103 PAGE 43 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1760 14 02 SAR X1 G 4 1665 Q 089 323 1761 14 03 B BSTAR G 4 1669 B U46 324 1762 14 04 ISIN BCE SCAN2,0&X1,% G 8 1673 B W09 0|0 % 324 1763 14 05 B BSTAR G 4 1681 B U46 324 1764 14 06 OUT1 SBR A1&3,OUT G 7 1685 H /29 X35 324 1765 14 07 SBR A2&3,OUT G 7 1692 H /45 X35 324 1766 14 08 SBR FIND&3,NOTIN G 7 1699 H 983 Y00 324 1767 14 09 SBR A3&3,FOUND G 7 1706 H |25 /81 325 1768 14 10 MCW DRESS,HEX3 G 7 1713 M 852 876 325 1769 14 11 MCW SAVE1#3,X1 G 7 1720 M Z68 089 325 1770 14 12 MCW @B@,CMPSW G 7 1727 M Y22 /77 325 1771 14 13 MCW @N@,ISEQU G 7 1734 M Z69 /58 325 1772 14 14 FENDX C,,,SVORG,START,SVORG,SYS1,EQUIV TWO G MACRO 1773 BSS 333,C G 5 1741 B 333 C GEN 326 1774 SBR INITAP&6,SVORG G 7 1746 H 786 /81 GEN 326 1775 SBR BCLEAR G 4 1753 H 833 GEN 326 1776 SBR INITXT&3,START G 7 1757 H 796 /15 GEN 326 1777 SBR TCLEAR,SYS1 G 7 1764 H 710 Z79 GEN 326 1778 LCA @EQUIV TWO@,110 G 7 1771 L Z78 110 GEN 326 1779 B MONTER G 4 1778 B 700 GEN 327 1780 14 15 LTORG * G 1782 DCW @ERROR 4 - EQUIVALENCE SYNTAX, STATEMENT @ G 40 1821 LIT 329 DCW @B@ G 1 1822 LIT 329 DCW @<@ G 1 1823 LIT 329 PRED G DCW #03 G 3 1826 AREA 329 FXSW G DCW #01 G 1 1827 AREA 329 FLTSWG DCW #01 G 1 1828 AREA 330 DCW @IJKLMN@ G 6 1834 LIT 330 DCW @ERROR 5 - ILLEGAL EQUIVALENCE MIXING, STATEMENT @ G 48 1882 LIT 332 BLNK5G DCW #05 G 5 1887 AREA 332 DCW @1@ G 1 1888 LIT 332 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ G 36 1924 LIT 333 HEX2 G DCW #03 G 3 1927 AREA 333 )0L039 DCW #01 G 1 1928 AREA 334 DCW @ERROR 6 - UNDEFINED ARRAY, STATEMENT @ G 37 1965 LIT 334 SAVE1G DCW #03 G 3 1968 AREA 335 DCW @N@ G 1 1969 LIT 335 DCW @EQUIV TWO@ G 9 1978 LIT 335 1781 14 16 SYS1 DCW @}@ SYSTEM GROUP MARK G 1 1979 GMARK 335 1782 14 17 XFR INITL G B |34 336 1 1401 FORTRAN EQUIVALENCE PHASE 2 50113 PAGE 44 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1783 14 18 JOB 1401 FORTRAN EQUIVALENCE PHASE 2 G 1784 14 19 110 DCW @EQUIV TWO@ G 9 0110 339 1785 14 20 ORG SVORG G 1181 1786 14 21 FOUND LCA @00000@,TALLY G 7 1181 L Z91 865 340 1787 14 22 NOP 000&X2 G 4 1188 N 0!0 340 1788 14 23 MCW G 1 1192 M 340 1789 14 24 MCW G 1 1193 M 340 1790 14 25 MCW G 1 1194 M 340 1791 14 26 MCW G 1 1195 M 340 1792 14 27 SAR X2 G 4 1196 Q 094 340 1793 14 28 BAV *&1 G 5 1200 B S05 Z 341 1794 14 29 S ERCTR#3 G 4 1205 S Z94 341 1795 14 30 NEST BCE NOMO,001&X2, BLANK G 8 1209 B S47 0!1 341 1796 14 31 A 000&X2,TALLY G 7 1217 A 0!0 865 341 1797 14 32 MCW 003&X2,X2 G 7 1224 M 0!3 094 341 1798 14 33 A &1,ERCTR G 7 1231 A Z95 Z94 341 1799 14 34 BAV MSG G 5 1238 B Z51 Z 342 1800 14 35 B NEST G 4 1243 B S09 342 1801 14 36 NOMO MCW X2,TALLY&3 G 7 1247 M 094 868 342 1802 14 37 BCE TURN,000&X1,% G 8 1254 B V92 0|0 % 342 1803 14 38 A @1@,TALLY G 7 1262 A Z96 865 342 1804 14 39 FIGHT MCW HEX3,X3 G 7 1269 M 876 099 342 1805 14 40 LCA CHAMP,ACCUM G 7 1276 L 857 873 343 1806 14 41 S TALLY,ACCUM G 7 1283 S 865 873 343 1807 14 42 BWZ CHUMP,ACCUM,K G 8 1290 V W53 873 K 343 1808 14 43 LCA TALLY&3,000&X3 G 7 1298 L 868 0?0 343 1809 14 44 SBR HEX3 G 4 1305 H 876 343 1810 14 45 ANYMO BCE EQUIV,000&X1,, COMMA G 8 1309 B /65 0|0 , 344 1811 14 46 BCE BPDWN,0&X1,) G 8 1317 B T29 0|0 ) 344 1812 14 47 B SYNER G 4 1325 B 883 344 1813 14 48 BPDWN MN 0&X1 G 4 1329 D 0|0 344 1814 14 49 MN G 1 1333 D 344 1815 14 50 SAR HEX1#3 G 4 1334 Q Z99 344 1816 14 51 MCW HEX3,X3 G 7 1338 M 876 099 344 1817 14 52 LCA @$@,000&X3 G 7 1345 L !00 0?0 345 1818 14 53 MCW DRESS,X3 G 7 1352 M 852 099 345 1819 14 54 MAIN BCE DONE,000&X3,$ G 8 1359 B W83 0?0 $ 345 1820 14 55 MCW 0&X3,HOLD3#3 G 7 1367 M 0?0 !03 345 1821 14 56 C CHAMP&3,HOLD3 G 7 1374 C 860 !03 345 1822 14 57 BE OOPS1 G 5 1381 B Y28 S 346 1823 14 58 GT1 MCW 0&X3,X2 G 7 1386 M 0?0 094 346 1824 14 59 SAR HEX3 G 4 1393 Q 876 346 1825 14 60 BCE *&5,0&X2, BLANK G 8 1397 B U09 0!0 346 1826 14 61 B OOPS2 G 4 1405 B Z72 346 1827 14 62 PULL1 MCW 9&X2,X1 G 7 1409 M 0!9 089 346 1828 14 63 LOWER MCW 006&X2,X3 AFTER TAIL OF NEW FOLLOWER G 7 1416 M 0!6 099 347 1829 14 64 BCE LAST,X3, BLANK G 8 1423 B U47 099 347 1830 14 65 BCE LAST,001&X3, BLANK G 8 1431 B U47 0?1 347 1831 14 66 SBR X2 TAIL OF NEW FOLLOWER G 4 1439 H 094 347 1832 14 67 B LOWER G 4 1443 B U16 347 1 1401 FORTRAN EQUIVALENCE PHASE 2 50113 PAGE 45 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1833 14 68 LAST BCE *&8,X3, BLANK G 8 1447 B U62 099 347 1834 14 69 MCW X1,9&X3 G 7 1455 M 089 0?9 348 1835 14 70 BCE INISH,X1, BLANK G 8 1462 B X24 089 348 1836 14 71 MCW X3,6&X1 G 7 1470 M 099 0|6 348 1837 14 72 LINK MCW CHAMP&3,X1 HEAD OF LEADER G 7 1477 M 860 089 348 1838 14 73 MCW 006&X1,006&X2 G 7 1484 M 0|6 0!6 348 1839 14 74 MCW 6&X1,X3 G 7 1491 M 0|6 099 349 1840 14 75 MCW X2,9&X3 G 7 1498 M 094 0?9 349 1841 14 76 MCW HEX3,X3 G 7 1505 M 876 099 349 1842 14 77 MCW 003&X3,X2 HEAD OF NEW FOLLOWER G 7 1512 M 0?3 094 349 1843 14 78 MCW X2,006&X1 G 7 1519 M 094 0|6 349 1844 14 79 MCW X1,9&X2 G 7 1526 M 089 0!9 350 1845 14 80 MCW CHAMP&3,003&X2 G 7 1533 M 860 0!3 350 1846 14 81 MCW G 1 1540 M 350 1847 14 82 S 000&X3,000&X2 G 7 1541 S 0?0 0!0 350 1848 14 83 SAR X3 G 4 1548 Q 099 350 1849 14 84 BW MAIN,ERRSW G 8 1552 V T59 J44 1 350 1850 14 85 SW ERRSW G 4 1560 , J44 350 1851 14 86 C 0&X2, SAVE5 G 7 1564 C 0!0 J43 351 1852 14 87 BE ISRED G 5 1571 B V84 S 351 1853 14 88 B QVERR G 4 1576 B Y67 351 1854 14 89 B MAIN G 4 1580 B T59 351 1855 14 90 ISRED B RDMSG G 4 1584 B Z09 351 1856 14 91 B MAIN G 4 1588 B T59 351 1857 14 92 TURN FFLIP 0&X1,SPACE-1,X1,X3,,,) G MACRO 1858 TURN MN SPACE-1 G 4 1592 D 877 GEN 351 1859 MN G 1 1596 D GEN 352 1860 SAR X3 G 4 1597 Q 099 GEN 352 1861 SBR X1, 0&X1 G 7 1601 H 089 0|0 GEN 352 1862 )0K043 MCW 0&X1,)0L043#1 G 7 1608 M 0|0 !04 GEN 352 1863 SAR X1 G 4 1615 Q 089 GEN 352 1864 BCE )0M043, )0L043, ) G 8 1619 B W42 !04 ) GEN 352 1865 MCW )0L043, 2&X3 G 7 1627 M !04 0?2 GEN 352 1866 SBR X3 G 4 1634 H 099 GEN 353 1867 B )0K043 G 4 1638 B W08 GEN 353 1868 )0M043 EQU *&1 G 1642 GEN 1869 14 93 A 001&X3,TALLY G 7 1642 A 0?1 865 353 1870 14 94 B FIGHT G 4 1649 B S69 353 1871 14 95 CHUMP BCE CINCH,CHAMP, BLANK G 8 1653 B W72 857 353 1872 14 96 LCA CHAMP&3,000&X3 G 7 1661 L 860 0?0 353 1873 14 97 SBR HEX3 G 4 1668 H 876 353 1874 14 98 CINCH MCW TALLY&3,CHAMP&3 G 7 1672 M 868 860 354 1875 14 99 B ANYMO G 4 1679 B T09 354 1876 15 00 DONE MCW HEX1,X1 G 7 1683 M Z99 089 354 1877 15 01 LCA @ @,CHAMP G 7 1690 L !09 857 354 1878 15 02 MCW DRESS,HEX3 G 7 1697 M 852 876 354 1879 15 03 BCE ISEQU,1&X1,, G 8 1704 B /58 0|1 , 355 1880 15 04 BCE START,1&X1,} G-M G 8 1712 B /15 0|1 } GMARK 355 1881 15 05 B SYNER G 4 1720 B 883 355 1882 15 06 INISH MCW X3,FIRST G 7 1724 M 099 086 355 1 1401 FORTRAN EQUIVALENCE PHASE 2 50113 PAGE 46 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1883 15 07 B LINK G 4 1731 B U77 355 1884 15 08 OUT MCW DRESS,X3 G 7 1735 M 852 099 355 1885 15 09 MCW GM, 001&X3 G 7 1742 M 839 0?1 356 1886 15 10 MCM 5&X1 G 4 1749 P 0|5 356 1887 15 11 MN G 1 1753 D 356 1888 15 12 MN G 1 1754 D 356 1889 15 13 SAR X1 G 4 1755 Q 089 356 1890 15 14 FENDX C,GM,,XBEGIN,XBEGIN,XBEGIN,SYS2,DIMEN TWO G MACRO 1891 BSS 333,C G 5 1759 B 333 C GEN 356 1892 SBR INITAP&6,XBEGIN G 7 1764 H 786 838 GEN 356 1893 SBR BCLEAR G 4 1771 H 833 GEN 357 1894 SBR INITXT&3,XBEGIN G 7 1775 H 796 838 GEN 357 1895 SBR TCLEAR,SYS2 G 7 1782 H 710 J45 GEN 357 1896 LCA @DIMEN TWO@,110 G 7 1789 L !18 110 GEN 357 1897 B MONTER G 4 1796 B 700 GEN 357 1898 15 15 NOTIN BCE CTU3,0&X1,) G 8 1800 B Y16 0|0 ) 357 1899 15 16 SBR X1 G 4 1808 H 089 358 1900 15 17 B NOTIN G 4 1812 B Y00 358 1901 15 18 CTU3 MN 0&X1 G 4 1816 D 0|0 358 1902 15 19 SAR X1 G 4 1820 Q 089 358 1903 15 20 B EQUIV G 4 1824 B /65 358 1904 15 21 OOPS1 MCW 0&X3, X2 G 7 1828 M 0?0 094 358 1905 15 22 SAR X2 G 4 1835 Q 094 358 1906 15 23 C 0&X2, CHAMP G 7 1839 C 0!0 857 359 1907 15 24 BE REDUN G 5 1846 B Y59 S 359 1908 15 25 B QVERR G 4 1851 B Y67 359 1909 15 26 B GT1 G 4 1855 B T86 359 1910 15 27 REDUN B RDMSG G 4 1859 B Z09 359 1911 15 28 B GT1 G 4 1863 B T86 359 1912 15 29 QVERR SBR QVXT&3 G 4 1867 H Z08 359 1913 15 30 FTMSG 7,ILLEGAL EQUIVALENCE,WORK,20 G MACRO 1914 CS 332 G 4 1871 / 332 GEN 360 1915 CS G 1 1875 / GEN 360 1916 SW FAILSW G 4 1876 , 184 GEN 360 1917 MN WORK,224&20 G 7 1880 D 849 244 GEN 360 1918 MN G 1 1887 D GEN 360 1919 MN G 1 1888 D GEN 360 1920 MCW @ERROR 7 - ILLEGAL EQUIVALENCE, STATEMENT @ G 4 1889 M !59 GEN 360 1921 W G 1 1893 2 GEN 361 1922 BCV *&5 G 5 1894 B Z03 @ GEN 361 1923 B *&3 G 4 1899 B Z05 GEN 361 1924 CC 1 G 2 1903 F 1 GEN 361 1925 15 31 QVXT B 0 G 4 1905 B 000 361 1926 15 32 RDMSG SBR RDXT&3 G 4 1909 H Z50 361 1927 15 33 FTMSG 8,REDUNDANT EQUIVALENCE,WORK,22 G MACRO 1928 CS 332 G 4 1913 / 332 GEN 361 1929 CS G 1 1917 / GEN 362 1930 SW FAILSW G 4 1918 , 184 GEN 362 1931 MN WORK,224&22 G 7 1922 D 849 246 GEN 362 1932 MN G 1 1929 D GEN 362 1 1401 FORTRAN EQUIVALENCE PHASE 2 50113 PAGE 47 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1933 MN G 1 1930 D GEN 362 1934 MCW @ERROR 8 - REDUNDANT EQUIVALENCE, STATEMENT @ G 4 1931 M J02 GEN 362 1935 W G 1 1935 2 GEN 362 1936 BCV *&5 G 5 1936 B Z45 @ GEN 363 1937 B *&3 G 4 1941 B Z47 GEN 363 1938 CC 1 G 2 1945 F 1 GEN 363 1939 15 34 RDXT B 0 G 4 1947 B 000 363 1940 15 35 MSG MESSG @CORRECT ERRORS INDICATED AND RESTART@,70,L,1 G MACRO 1941 MSG CC L G 2 1951 F L GEN 363 1942 CS 332 G 4 1953 / 332 GEN 363 1943 CS G 1 1957 / GEN 363 1944 MCW @CORRECT ERRORS INDICATED AND RESTART@,70&200 G 7 1958 M J38 270 GEN 364 1945 W G 1 1965 2 GEN 364 1946 CC 1 G 2 1966 F 1 GEN 364 1947 15 36 H *-3 G 4 1968 . Z68 364 1948 15 37 OOPS2 MCW 0&X2, SAVE5#5 G 7 1972 M 0!0 J43 364 1949 15 38 CW ERRSW#1 G 4 1979 ) J44 364 1950 15 39 B PULL1 G 4 1983 B U09 364 1951 15 40 LTORG * G 1987 DCW @00000@ G 5 1991 LIT 365 ERCTRG DCW #03 G 3 1994 AREA 365 DCW &1 G 1 1995 LIT 365 DCW @1@ G 1 1996 LIT 365 HEX1 G DCW #03 G 3 1999 AREA 365 DCW @$@ G 1 2000 LIT 365 HOLD3G DCW #03 G 3 2003 AREA 365 )0L043 DCW #01 G 1 2004 AREA 366 DCW @ @ G 5 2009 LIT 366 DCW @DIMEN TWO@ G 9 2018 LIT 366 DCW @ERROR 7 - ILLEGAL EQUIVALENCE, STATEMENT @ G 41 2059 LIT 368 DCW @ERROR 8 - REDUNDANT EQUIVALENCE, STATEMENT @ G 43 2102 LIT 370 DCW @CORRECT ERRORS INDICATED AND RESTART@ G 36 2138 LIT 371 SAVE5G DCW #05 G 5 2143 AREA 372 ERRSWG DCW #01 G 1 2144 AREA 372 1952 15 41 SYS2 DCW @}@ SYSTEM GROUP MARK G 1 2145 GMARK 372 1953 15 42 XFR START G B /15 373 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 48 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1954 15 43 JOB 1401 FORTRAN DIMENSION PHASE TWO G 1955 15 44 FBEGN DIMEN TWO,X1,,X2,R,X3,,H G MACRO 1956 SFX H H GEN 1957 110 DCW @DIMEN TWO@ H 9 0110 GEN 376 1958 X1 EQU 089 H 0089 GEN 1959 X2 EQU 094 H 0094 GEN 1960 094 DCW 000 H 3 0094 GEN 377 1961 096 DC 00 H 2 0096 GEN 377 1962 X3 EQU 099 H 0099 GEN 1963 15 45 PARAM EQU PARAMA H 0686 1964 15 46 ORG XBEGIN H 0838 1965 15 47 TSTIO BCE INITL,PARAM&10, BLANK H 8 0838 B 891 696 378 1966 15 48 SBR X2,AFORM H 7 0846 H 094 !60 378 1967 15 49 BCE MOVE,PARAM&10,A H 8 0853 B !33 696 A 378 1968 15 50 SBR X2,LIMIO H 7 0861 H 094 !68 378 1969 15 51 BCE MOVE,PARAM&10,L H 8 0868 B !33 696 L 378 1970 15 52 SBR X2,NOIO H 7 0876 H 094 !76 379 1971 15 53 BCE MOVE,PARAM&10,X H 8 0883 B !33 696 X 379 1972 15 54 INITL MCW X3,083 ADDRESS OF TABLE-1 H 7 0891 M 099 083 379 1973 15 55 A &2,PARAM&6 H 7 0898 A J30 692 379 1974 15 56 SW GM H 4 0905 , !85 379 1975 15 57 LCA GM,001&X3 H 7 0909 L !85 0?1 380 1976 15 58 BCE NIX,086, BLANK, NO DIMENSION H 8 0916 B V98 086 380 1977 15 59 MCW 086,X3 ADDRESS OF LOWEST ARRAY H 7 0924 M 086 099 380 1978 15 60 START S ACCUM#6 H 4 0931 S J36 380 1979 15 61 MCW 006&X3,LINK#3 H 7 0935 M 0?6 J39 380 1980 15 62 BCE LEADR,001&X3, BLANK H 8 0942 B T43 0?1 381 1981 15 63 MCW 003&X3,X2 ADDRESS OF LEADER IN X2 H 7 0950 M 0?3 094 381 1982 15 64 ZA 000&X3,PROD H 7 0957 ? 0?0 !91 381 1983 15 65 M 005&X2,PROD&3 H 7 0964 @ 0!5 !94 381 1984 15 66 A 000&X2,PROD&3 H 7 0971 A 0!0 !94 381 1985 15 67 MCW PROD&3,000&X3 H 7 0978 M !94 0?0 382 1986 15 68 PACK MCW 000&X3,ACCUM H 7 0985 M 0?0 J36 382 1987 15 69 SAR X3 H 4 0992 Q 099 382 1988 15 70 S &1,ACCUM H 7 0996 S J40 J36 382 1989 15 71 MCW X3,X2 H 7 1003 M 099 094 382 1990 15 72 LOOP3 MCM 2&X2 H 4 1010 P 0!2 382 1991 15 73 MN H 1 1014 D 382 1992 15 74 MN H 1 1015 D 383 1993 15 75 SAR X2 H 4 1016 Q 094 383 1994 15 76 BCE LOOP3,1&X2,| H 8 1020 B |10 0!1 | 383 1995 15 77 MCW 0&X2,BOX#1 H 7 1028 M 0!0 J41 383 1996 15 78 MCW BOX,*&8 H 7 1035 M J41 |49 383 1997 15 79 BCE FIX1,@IJKLMN@,0 H 8 1042 B T32 J47 0 383 1998 15 80 CHAIN 5 H MACRO 1999 BCE H 1 1050 B GEN 383 2000 BCE H 1 1051 B GEN 384 2001 BCE H 1 1052 B GEN 384 2002 BCE H 1 1053 B GEN 384 2003 BCE H 1 1054 B GEN 384 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 49 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2004 15 81 A PARAMA&6,ACCUM H 7 1055 A 692 J36 384 2005 15 82 CTU3 MCW ACCUM,14&X3 H 7 1062 M J36 0A4 384 2006 15 83 MCW ACCUM-3,X2 H 7 1069 M J33 094 384 2007 15 84 A X2 H 4 1076 A 094 385 2008 15 85 MZ ZONES&X2,012&X3 H 7 1080 Y !R8 0A2 385 2009 15 86 MZ ZONES&1&X2,014&X3 H 7 1087 Y !R9 0A4 385 2010 15 87 ZA @0@,PROD H 7 1094 ? J48 !91 385 2011 15 88 MCW 000&X3,PROD H 7 1101 M 0?0 !91 385 2012 15 89 MCW BLANK H 4 1108 M !96 385 2013 15 90 SBR MPLR&6 H 4 1112 H /39 386 2014 15 91 NOP 000&X3 H 4 1116 N 0?0 386 2015 15 92 MCW H 1 1120 M 386 2016 15 93 SAR X2 H 4 1121 Q 094 386 2017 15 94 BCE NOCOL,000&X2,} 12-7-8, INITL SETS IN DRESS&1 H 8 1125 B /47 0!0 } GMARK 386 2018 15 95 MPLR MCW 000&X2,000 H 7 1133 M 0!0 000 386 2019 15 96 M 000&X3,PROD H 7 1140 @ 0?0 !91 386 2020 15 97 NOCOL LCA @ @,008&X3 H 7 1147 L J51 0?8 387 2021 15 98 MCW X1,HOLD1#3 H 7 1154 M 089 J54 387 2022 15 99 MCW 14&X3,X1 H 7 1161 M 0A4 089 387 2023 16 00 MCW BOX,*&8 H 7 1168 M J41 /82 387 2024 16 01 BCE FIXED,@IJKLMN@,0 H 8 1175 B T65 J60 0 387 2025 16 02 CHAIN 5 H MACRO 2026 BCE H 1 1183 B GEN 387 2027 BCE H 1 1184 B GEN 387 2028 BCE H 1 1185 B GEN 388 2029 BCE H 1 1186 B GEN 388 2030 BCE H 1 1187 B GEN 388 2031 16 03 M PARAM&6,PROD&3 H 7 1188 @ 692 !94 388 2032 16 04 MZ @A@,007&X3 H 7 1195 Y J61 0?7 388 2033 16 05 MCW PARAM&6,010&X3 H 7 1202 M 692 0A0 388 2034 16 06 BUMP MZ 7&X3,13&X3 H 7 1209 Y 0?7 0A3 388 2035 16 07 MCW HOLD1,X1 H 7 1216 M J54 089 389 2036 16 08 S 10&X3,ACCUM H 7 1223 S 0A0 J36 389 2037 16 09 A PROD&3,ACCUM H 7 1230 A !94 J36 389 2038 16 10 FPACK ACCUM,8&X3,X2 H MACRO 2039 INCLD ZONES H MACRO 2040 MN ACCUM,8&X3 H 7 1237 D J36 0?8 GEN 389 2041 MN H 1 1244 D GEN 389 2042 MN H 1 1245 D GEN 389 2043 SAR *&4 H 4 1246 Q S53 GEN 389 2044 MCW 0,X2 H 7 1250 M 000 094 GEN 390 2045 MCW @0@ H 4 1257 M J48 GEN 390 2046 A X2 H 4 1261 A 094 GEN 390 2047 MZ ZONES&1&X2,8&X3 H 7 1265 Y !R9 0?8 GEN 390 2048 CW H 1 1272 ) GEN 390 2049 SBR *&7 H 4 1273 H S83 GEN 390 2050 MZ ZONES&X2, 0 H 7 1277 Y !R8 000 GEN 390 2051 16 11 A &1,ACCUM H 7 1284 A J40 J36 391 2052 16 12 S ACCUM,COUNT H 7 1291 S J36 !49 391 2053 16 13 BWZ ALTER,COUNT,K H 8 1298 V T54 !49 K 391 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 50 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2054 16 14 A ACCUM,COUNT H 7 1306 A J36 !49 391 2055 16 15 TEST BCE OUT,LINK, BLANK H 8 1313 B T90 J39 391 2056 16 16 MCW LINK,X3 H 7 1321 M J39 099 392 2057 16 17 B START H 4 1328 B 931 392 2058 16 18 FIX1 A PARAMA&4,ACCUM H 7 1332 A 690 J36 392 2059 16 19 B CTU3 H 4 1339 B |62 392 2060 16 20 LEADR MCW COUNT,000&X3 H 7 1343 M !49 0?0 392 2061 16 21 B PACK H 4 1350 B 985 392 2062 16 22 ALTER MCW ACCUM,COUNT H 7 1354 M J36 !49 393 2063 16 23 B TEST H 4 1361 B T13 393 2064 16 24 FIXED M PARAM&4,PROD&3 H 7 1365 @ 690 !94 393 2065 16 25 MZ @J@,007&X3 H 7 1372 Y J62 0?7 393 2066 16 26 MCW PARAM&4,010&X3 H 7 1379 M 690 0A0 393 2067 16 27 B BUMP H 4 1386 B S09 393 2068 16 28 OUT UNPAK PARAM&2,RELOC H MACRO 2069 OUT S )0M050#2 H 4 1390 S J64 GEN 394 2070 S )0L050#2 H 4 1394 S J66 GEN 394 2071 MZ PARAM&2,)0M050-1 H 7 1398 Y 688 J63 GEN 394 2072 MZ PARAM&2-2,)0L050-1 H 7 1405 Y 686 J65 GEN 394 2073 )0J050 BWZ )0K050, )0L050-1, 2 H 8 1412 V U31 J65 2 GEN 394 2074 A @A0@, )0L050 H 7 1420 A J68 J66 GEN 394 2075 B )0J050 H 4 1427 B U12 GEN 395 2076 )0K050 BWZ )0P050, )0M050-1, 2 H 8 1431 V U50 J63 2 GEN 395 2077 A @?4@, )0M050 H 7 1439 A J70 J64 GEN 395 2078 B )0K050 H 4 1446 B U31 GEN 395 2079 )0P050 A )0L050-1,)0M050 H 7 1450 A J65 J64 GEN 395 2080 MCW PARAM&2,RELOC H 7 1457 M 688 !81 GEN 395 2081 MCW )0M050 H 4 1464 M J64 GEN 396 2082 ZA RELOC H 4 1468 ? !81 GEN 396 2083 MZ *-4, RELOC H 7 1472 Y U74 !81 GEN 396 2084 16 29 S COUNT,RELOC H 7 1479 S !49 !81 396 2085 16 30 S &1,RELOC H 7 1486 S J40 !81 396 2086 16 31 BWZ TUBIG,RELOC,K H 8 1493 V V66 !81 K 396 2087 16 32 FPACK RELOC,ADJST,X2 H MACRO 2088 INCLD ZONES H MACRO 2089 MN RELOC,ADJST H 7 1501 D !81 !84 GEN 397 2090 MN H 1 1508 D GEN 397 2091 MN H 1 1509 D GEN 397 2092 SAR *&4 H 4 1510 Q V17 GEN 397 2093 MCW 0,X2 H 7 1514 M 000 094 GEN 397 2094 MCW @0@ H 4 1521 M J48 GEN 397 2095 A X2 H 4 1525 A 094 GEN 397 2096 MZ ZONES&1&X2,ADJST H 7 1529 Y !R9 !84 GEN 398 2097 CW H 1 1536 ) GEN 398 2098 SBR *&7 H 4 1537 H V47 GEN 398 2099 MZ ZONES&X2, 0 H 7 1541 Y !R8 000 GEN 398 2100 16 33 MCW NXTOP,CONLST H 7 1548 M !52 194 398 2101 16 34 MA ADJST,CONLST H 7 1555 # !84 194 398 2102 16 35 B SKIPF H 4 1562 B W05 398 2103 16 36 TUBIG BW SKIPF,LGSW H 8 1566 V W05 !95 1 399 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 51 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2104 16 37 CS 332 H 4 1574 / 332 399 2105 16 38 CS H 1 1578 / 399 2106 16 39 MLC @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 H 7 1579 M K06 270 399 2107 16 40 W H 1 1586 2 399 2108 16 41 SW FAILSW,LGSW H 7 1587 , 184 !95 399 2109 16 42 S RELOC H 4 1594 S !81 399 2110 16 43 NIX MCW PARAM&2,CONLST H 7 1598 M 688 194 400 2111 16 44 SKIPF MCW NXTOP,086 H 7 1605 M !52 086 400 2112 16 45 *DUMP ARRAY TABLE 2113 16 46 CC L H 2 1612 F L 400 2114 16 47 FORMS H MACRO 2115 BCV *&5 H 5 1614 B W23 @ GEN 400 2116 B *&3 H 4 1619 B W25 GEN 400 2117 CC 1 H 2 1623 F 1 GEN 400 2118 16 48 CS 332 H 4 1625 / 332 400 2119 16 49 CS H 1 1629 / 401 2120 16 50 MCW @STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES@,247 H 7 1630 M K51 247 401 2121 16 51 W H 1 1637 2 401 2122 16 52 CC J H 2 1638 F J 401 2123 16 53 MCW 083,X3 H 7 1640 M 083 099 401 2124 16 54 LOOPA NOP 10&X3 H 4 1647 N 0A0 401 2125 16 55 MCM H 1 1651 P 401 2126 16 56 SAR X3 H 4 1652 Q 099 402 2127 16 57 CS 299 H 4 1656 / 299 402 2128 16 58 TSDUN BCE NODUN,0&X3,| H 8 1660 B Z72 0?0 | 402 2129 16 59 BCE H 1 1668 B 402 2130 16 60 MN 0&X3 H 4 1669 D 0?0 402 2131 16 61 MN H 1 1673 D 402 2132 16 62 SAR X3 H 4 1674 Q 099 402 2133 16 63 BCE NORAY,0&X3,: 5-8 H 8 1678 B Z84 0?0 : 403 2134 16 64 FFLIP 0&X3,201,X3,X2,INC,WM H MACRO 2135 MN 201 H 4 1686 D 201 GEN 403 2136 MN H 1 1690 D GEN 403 2137 SAR X2 H 4 1691 Q 094 GEN 403 2138 SBR X3, 0&X3 H 7 1695 H 099 0?0 GEN 403 2139 )0K053 MCW 0&X3,)0L053#1 H 7 1702 M 0?0 K52 GEN 403 2140 SAR X3 H 4 1709 Q 099 GEN 403 2141 MCW )0L053, 2&X2 H 7 1713 M K52 0!2 GEN 404 2142 SBR X2 H 4 1720 H 094 GEN 404 2143 BW )0M053, 1&X3 H 8 1724 V X36 0?1 1 GEN 404 2144 B )0K053 H 4 1732 B X02 GEN 404 2145 )0M053 EQU *&1 H 1736 GEN 2146 16 65 C 0&X3 H 4 1736 C 0?0 404 2147 16 66 CHAIN 3 H MACRO 2148 C H 1 1740 C GEN 404 2149 C H 1 1741 C GEN 404 2150 C H 1 1742 C GEN 405 2151 16 67 SAR X2 H 4 1743 Q 094 405 2152 16 68 A RELOC,5&X2 H 7 1747 A !81 0!5 405 2153 16 69 MA ADJST,8&X2 H 7 1754 # !84 0!8 405 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 52 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2154 16 70 MA ADJST,14&X2 H 7 1761 # !84 0J4 405 2155 16 71 MCS 5&X2,218 H 7 1768 Z 0!5 218 405 2156 16 72 MCW 8&X2,234 H 7 1775 M 0!8 234 406 2157 16 73 MZ BLANK,233 H 7 1782 Y !96 233 406 2158 16 74 SW 220 H 4 1789 , 220 406 2159 16 75 UNPAK 8&X2,224 H MACRO 2160 S )0M054#2 H 4 1793 S K54 GEN 406 2161 S )0L054#2 H 4 1797 S K56 GEN 406 2162 MZ 8&X2,)0M054-1 H 7 1801 Y 0!8 K53 GEN 406 2163 MZ 8&X2-2,)0L054-1 H 7 1808 Y 0!6 K55 GEN 407 2164 )0J054 BWZ )0K054, )0L054-1, 2 H 8 1815 V Y34 K55 2 GEN 407 2165 A @A0@, )0L054 H 7 1823 A J68 K56 GEN 407 2166 B )0J054 H 4 1830 B Y15 GEN 407 2167 )0K054 BWZ )0P054, )0M054-1, 2 H 8 1834 V Y53 K53 2 GEN 407 2168 A @?4@, )0M054 H 7 1842 A J70 K54 GEN 408 2169 B )0K054 H 4 1849 B Y34 GEN 408 2170 )0P054 A )0L054-1,)0M054 H 7 1853 A K55 K54 GEN 408 2171 MCW 8&X2,224 H 7 1860 M 0!8 224 GEN 408 2172 MCW )0M054 H 4 1867 M K54 GEN 408 2173 ZA 224 H 4 1871 ? 224 GEN 408 2174 MZ *-4, 224 H 7 1875 Y Y77 224 GEN 409 2175 16 76 MCW @-@,219 H 7 1882 M K57 219 409 2176 16 77 FPACK 5&X2,230,X2 H MACRO 2177 INCLD ZONES H MACRO 2178 MN 5&X2,230 H 7 1889 D 0!5 230 GEN 409 2179 MN H 1 1896 D GEN 409 2180 MN H 1 1897 D GEN 409 2181 SAR *&4 H 4 1898 Q Z05 GEN 409 2182 MCW 0,X2 H 7 1902 M 000 094 GEN 409 2183 MCW @0@ H 4 1909 M J48 GEN 410 2184 A X2 H 4 1913 A 094 GEN 410 2185 MZ ZONES&1&X2,230 H 7 1917 Y !R9 230 GEN 410 2186 CW H 1 1924 ) GEN 410 2187 SBR *&7 H 4 1925 H Z35 GEN 410 2188 MZ ZONES&X2, 0 H 7 1929 Y !R8 000 GEN 410 2189 16 78 FORMS H MACRO 2190 BCV *&5 H 5 1936 B Z45 @ GEN 410 2191 B *&3 H 4 1941 B Z47 GEN 411 2192 CC 1 H 2 1945 F 1 GEN 411 2193 16 79 W H 1 1947 2 411 2194 16 80 CS 299 H 4 1948 / 299 411 2195 16 81 MCM 1&X3 H 4 1952 P 0?1 411 2196 16 82 SAR X3 H 4 1956 Q 099 411 2197 16 83 BCE EOJ,0&X3, BLANK H 8 1960 B !08 0?0 411 2198 16 84 B LOOPA H 4 1968 B W47 412 2199 16 85 NODUN MCM 0&X3 H 4 1972 P 0?0 412 2200 16 86 SBR X3 H 4 1976 H 099 412 2201 16 87 B TSDUN H 4 1980 B W60 412 2202 16 88 NORAY MESSG @NO ARRAYS@,9 H MACRO 2203 NORAY CS 332 H 4 1984 / 332 GEN 412 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 53 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2204 CS H 1 1988 / GEN 412 2205 MCW @NO ARRAYS@,9&200 H 7 1989 M K66 209 GEN 412 2206 W H 1 1996 2 GEN 413 2207 BCV *&5 H 5 1997 B !06 @ GEN 413 2208 B *&3 H 4 2002 B !08 GEN 413 2209 CC 1 H 2 2006 F 1 GEN 413 2210 16 89 EOJ CC L H 2 2008 F L 413 2211 16 90 FENDX E,GM,,,,,SYS2,VARBL1 H MACRO 2212 BSS 333,E H 5 2010 B 333 E GEN 413 2213 SBR TCLEAR,SYS2 H 7 2015 H 710 K73 GEN 413 2214 LCA @VARBL1@,110 H 7 2022 L K72 110 GEN 414 2215 B MONTER H 4 2029 B 700 GEN 414 2216 16 91 MOVE MCW 0&X2,NXTOP H 7 2033 M 0!0 !52 414 2217 16 92 MCW H 1 2040 M 414 2218 16 93 B INITL H 4 2041 B 891 414 2219 16 94 COUNT DCW 04280 CHANGE H 5 2049 414 2220 16 95 NXTOP DSA 4279 ON H 3 2052 27Z 414 2221 16 96 DCW 04617 REASSEMBLY H 5 2057 415 2222 16 97 AFORM DSA 4616 OF H 3 2060 61W 415 2223 16 98 DCW 02016 OBJECT H 5 2065 415 2224 16 99 LIMIO DSA 2015 TIME H 3 2068 !15 415 2225 17 00 DCW 01697 FORMAT H 5 2073 415 2226 17 01 NOIO DSA 1696 PACKAGES H 3 2076 W96 415 2227 17 02 RELOC DCW 00000 H 5 2081 415 2228 17 03 ADJST DSA 000 H 3 2084 000 416 2229 17 04 GM DC @}@ G-M H 1 2085 GMARK 416 2230 17 05 PROD DCW #6 H 6 2091 416 2231 17 06 DC #3 H 3 2094 416 2232 17 07 LGSW DC #1 H 1 2095 416 2233 17 08 BLANK DCW #01 H 1 2096 416 2234 17 09 ORG * H 2097 2235 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG H 2097 2236 DCW #1 H 1 2097 GEN 416 2237 ZONES DC 9 H 1 2098 GEN 416 2238 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ H 31 2129 GEN 417 * LTORG* GEN DCW &2 H 1 2130 LIT 417 ACCUMH DCW #06 H 6 2136 AREA 417 LINK H DCW #03 H 3 2139 AREA 418 DCW &1 H 1 2140 LIT 418 BOX H DCW #01 H 1 2141 AREA 418 DCW @IJKLMN@ H 6 2147 LIT 418 DCW @0@ H 1 2148 LIT 418 DCW @ @ H 3 2151 LIT 418 HOLD1H DCW #03 H 3 2154 AREA 418 DCW @IJKLMN@ H 6 2160 LIT 419 DCW @A@ H 1 2161 LIT 419 DCW @J@ H 1 2162 LIT 419 )0M050 DCW #02 H 2 2164 AREA 419 )0L050 DCW #02 H 2 2166 AREA 419 1 1401 FORTRAN DIMENSION PHASE TWO 50123 PAGE 54 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @A0@ H 2 2168 LIT 419 DCW @?4@ H 2 2170 LIT 419 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ H 36 2206 LIT 420 DCW @STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES@ H 45 2251 LIT 422 )0L053 DCW #01 H 1 2252 AREA 422 )0M054 DCW #02 H 2 2254 AREA 422 )0L054 DCW #02 H 2 2256 AREA 422 DCW @-@ H 1 2257 LIT 422 DCW @NO ARRAYS@ H 9 2266 LIT 423 DCW @VARBL1@ H 6 2272 LIT 423 2239 17 10 SYS2 DCW @}@ SYSTEM AND WORK GROUP MARK H 1 2273 GMARK 423 2240 17 11 XFR TSTIO H B 838 424 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 55 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2241 17 12 JOB 1401 FORTRAN VARIABLES PHASE ONE H 2242 17 13 FBEGN VARBL 1,X1,,X2,R,X3,R,I H MACRO 2243 SFX I I GEN 2244 110 DCW @VARBL 1@ I 7 0110 GEN 427 2245 X1 EQU 089 I 0089 GEN 2246 X2 EQU 094 I 0094 GEN 2247 094 DCW 000 I 3 0094 GEN 428 2248 096 DC 00 I 2 0096 GEN 428 2249 X3 EQU 099 I 0099 GEN 2250 099 DCW 000 I 3 0099 GEN 428 2251 100 DC 0 I 1 0100 GEN 428 2252 17 14 ORG XBEGIN I 0838 2253 17 15 * REPLACE ARRAY NAMES IN SOURCE PROGRAM WITH ADDRESSES, 2254 17 16 * PROCESS SUBSCRIPTS 2255 17 17 * MARK SIMPLE VARIABLES WITH A DELTA FOR VARBL, PHASE 2 2256 17 18 INITL MCW 083,X2 I 7 0838 M 083 094 429 2257 17 19 MCW X2,DRESS#3 I 7 0845 M 094 O36 429 2258 17 20 SW GM I 4 0852 , N55 429 2259 17 21 START BCE OUT,000&X1, BLANK I 8 0856 B J38 0|0 429 2260 17 22 LCA 000&X1,WORK#10 I 7 0864 L 0|0 O46 429 2261 17 23 SAR X1 I 4 0871 Q 089 429 2262 17 24 SBR X3 I 4 0875 H 099 430 2263 17 25 LCA WORK,000&X2 I 7 0879 L O46 0!0 430 2264 17 26 SBR X2 I 4 0886 H 094 430 2265 17 27 BCE FMAT,CODE-3,F I 8 0890 B M70 O43 F 430 2266 17 28 SW WORK-3 I 4 0898 , O43 430 2267 17 29 MCW CODE-3,*&8 I 7 0902 M O43 916 430 2268 17 30 BCE LIST,@3L5UP61@,0 D-CHAR MODIFIED I 8 0909 B J68 O53 0 431 2269 17 31 CHAIN 6 I MACRO 2270 BCE I 1 0917 B GEN 431 2271 BCE I 1 0918 B GEN 431 2272 BCE I 1 0919 B GEN 431 2273 BCE I 1 0920 B GEN 431 2274 BCE I 1 0921 B GEN 431 2275 BCE I 1 0922 B GEN 431 2276 17 32 MCW @N@,SWCHA I 7 0923 M O54 956 432 2277 17 33 MCW @N@,SWCHB I 7 0930 M O54 T32 432 2278 17 34 * SEARCH FOR ALPHA CHARACTER WHICH MIGHT BE VARIABLE NAME 2279 17 35 FIND MCW 000&X1,BOX#1 I 7 0937 M 0|0 O55 432 2280 17 36 SAR X1 I 4 0944 Q 089 432 2281 17 37 BWZ FIND,BOX,2 NO ZONE, NUMERICS AND EQUALS I 8 0948 V 937 O55 2 432 2282 17 38 SWCHA NOP RTPAR I 4 0956 N K12 432 2283 17 39 MDIFY MCW BOX,*&8 I 7 0960 M O55 974 433 2284 17 40 BCE FIND,@@*-&.%),@,0 D CHAR MODIFIED I 8 0967 B 937 O63 0 433 2285 17 41 CHAIN 7 I MACRO 2286 BCE I 1 0975 B GEN 433 2287 BCE I 1 0976 B GEN 433 2288 BCE I 1 0977 B GEN 433 2289 BCE I 1 0978 B GEN 433 2290 BCE I 1 0979 B GEN 433 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 56 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2291 BCE I 1 0980 B GEN 434 2292 BCE I 1 0981 B GEN 434 2293 17 42 BCE CKXPN,BOX,E MAY BE EXPONENT I 8 0982 B K99 O55 E 434 2294 17 43 BCE SW1,BOX,} GROUP MARK I 8 0990 B /19 O55 } GMARK 434 2295 17 44 MCW 2&X1,BOX2#1 I 7 0998 M 0|2 O64 434 2296 17 45 MCW BOX2,*&8 I 7 1005 M O64 |19 434 2297 17 46 BCE SW1,MRKRS,0 @*&-,#%) AND GM I 8 1012 B /19 N01 0 435 2298 17 47 CHAIN 8 I MACRO 2299 BCE I 1 1020 B GEN 435 2300 BCE I 1 1021 B GEN 435 2301 BCE I 1 1022 B GEN 435 2302 BCE I 1 1023 B GEN 435 2303 BCE I 1 1024 B GEN 435 2304 BCE I 1 1025 B GEN 435 2305 BCE I 1 1026 B GEN 436 2306 BCE I 1 1027 B GEN 436 2307 17 48 BCE SW1,CODE-3,D DO STMT I 8 1028 B /19 O43 D 436 2308 17 49 VSERR FMESG 9,VARIABLE SYNTAX,CODE,16 I MACRO 2309 VSERR CS 332 I 4 1036 / 332 GEN 436 2310 CS I 1 1040 / GEN 436 2311 SW FAILSW I 4 1041 , 184 GEN 436 2312 MN CODE,224&16 I 7 1045 D O46 240 GEN 436 2313 MN I 1 1052 D GEN 437 2314 MN I 1 1053 D GEN 437 2315 MCW @ERROR 9 - VARIABLE SYNTAX, STATEMENT @ I 4 1054 M P01 GEN 437 2316 W I 1 1058 2 GEN 437 2317 BCV *&5 I 5 1059 B |68 @ GEN 437 2318 B *&3 I 4 1064 B |70 GEN 437 2319 CC 1 I 2 1068 F 1 GEN 437 2320 17 50 BW SYN2R,SYN2S I 8 1070 V Z38 N02 1 438 2321 17 51 SBR X1,1&X1 I 7 1078 H 089 0|1 438 2322 17 52 SW ERRSW I 4 1085 , N04 438 2323 17 53 B LIMIT I 4 1089 B /71 438 2324 17 54 RTNA LCA @0?0@,0&X2 0,12-0,0 I 7 1093 L P04 0!0 438 2325 17 55 SBR X2 I 4 1100 H 094 438 2326 17 56 SBR X3,1&X1 I 7 1104 H 099 0|1 439 2327 17 57 SBR X1 I 4 1111 H 089 439 2328 17 58 B BOTM I 4 1115 B U45 439 2329 17 59 SW1 SW 1&X1 I 4 1119 , 0|1 439 2330 17 60 *SHIFT ALL BUT VARIABLE 2331 17 61 LCA 00&X3,000&X2 SLIDE ONE EXTRA CHAR I 7 1123 L 0?0 0!0 439 2332 17 62 SBR X2 NECESS. IF 1ST CHAR IS ALPHA I 4 1130 H 094 439 2333 17 63 CW 001&X1 I 4 1134 ) 0|1 439 2334 17 64 SBR X3,1&X1 I 7 1138 H 099 0|1 440 2335 17 65 SBR KLOBR&6,2&X1 I 7 1145 H U74 0|2 440 2336 17 66 MCW @;@ 11-6-8 I 4 1152 M P05 440 2337 17 67 BCE NOMO,BOX,} GROUP MARK I 8 1156 B K43 O55 } GMARK 440 2338 17 68 ZA &1,COUNT#2 I 7 1164 ? P06 P08 440 2339 17 69 * SCAN TO BOTTOM OF VARIABLE 2340 17 70 LIMIT MCW 000&X1,BOX I 7 1171 M 0|0 O55 441 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 57 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2341 17 71 SAR X1 I 4 1178 Q 089 441 2342 17 72 MCW BOX,*&8 I 7 1182 M O55 /96 441 2343 17 73 BCE LOOK,MRKRS,0 @*&-,#%) AND GM I 8 1189 B S16 N01 0 441 2344 17 74 CHAIN 8 I MACRO 2345 BCE I 1 1197 B GEN 441 2346 BCE I 1 1198 B GEN 441 2347 BCE I 1 1199 B GEN 441 2348 BCE I 1 1200 B GEN 442 2349 BCE I 1 1201 B GEN 442 2350 BCE I 1 1202 B GEN 442 2351 BCE I 1 1203 B GEN 442 2352 BCE I 1 1204 B GEN 442 2353 17 75 A &1,COUNT I 7 1205 A P06 P08 442 2354 17 76 B LIMIT I 4 1212 B /71 442 2355 17 77 LOOK BW RTNB,ERVBL I 8 1216 V Z50 O00 1 443 2356 17 78 BW RTNA,ERRSW I 8 1224 V |93 N04 1 443 2357 17 79 SW 002&X1 I 4 1232 , 0|2 443 2358 17 80 SAR HEX1#3 I 4 1236 Q P11 443 2359 17 81 TLU MCW DRESS,X1 ADDRESS OF ARRAY TABLE I 7 1240 M O36 089 443 2360 17 82 BCE EQUAL,BOX,# EQUAL I 8 1247 B K54 O55 # 443 2361 17 83 *DETERMINE IF VARIABLE IS AN ARRAY NAME 2362 17 84 LOOP BCE NOTIN,002&X1, BLANK I 8 1255 B T81 0|2 444 2363 17 85 MCM2 MCM 2&X1 I 4 1263 P 0|2 444 2364 17 86 MN I 1 1267 D 444 2365 17 87 MN I 1 1268 D 444 2366 17 88 SAR X1 I 4 1269 Q 089 444 2367 17 89 BCE MCM2,1&X1,| I 8 1273 B S63 0|1 | 444 2368 17 90 C 000&X3,00&X1 I 7 1281 C 0?0 0|0 444 2369 17 91 BU LOOP I 5 1288 B S55 / 445 2370 17 92 C 000&X1,000&X3 I 7 1293 C 0|0 0?0 445 2371 17 93 BU LOOP I 5 1300 B S55 / 445 2372 17 94 * MOVE X1 POINTER TO HI ADDRESS OF VARIABLE 2373 17 95 C 0&X1 I 4 1305 C 0|0 445 2374 17 96 CHAIN 3 I MACRO 2375 C I 1 1309 C GEN 445 2376 C I 1 1310 C GEN 445 2377 C I 1 1311 C GEN 445 2378 17 97 SAR X1 I 4 1312 Q 089 446 2379 17 98 * CHECK TO SEE IF THERE ARE ANY SUBSCRIPTS 2380 17 99 BW SBRAY,SUBSW I 8 1316 V X43 N03 1 446 2381 18 00 BCE SBSCR,BOX,% LEFT PAREN I 8 1324 B V83 O55 % 446 2382 18 01 SWCHB NOP ARRAY I 4 1332 N T58 446 2383 18 02 TUNO LCA 9&X1,1&X2 I 7 1336 L 0|9 0!1 446 2384 18 03 SBR X2 I 4 1343 H 094 446 2385 18 04 RESTO MCW HEX1,X1 I 7 1347 M P11 089 447 2386 18 05 B BOTM I 4 1354 B U45 447 2387 18 06 ARRAY LCA 9&X1,1&X2 I 7 1358 L 0|9 0!1 447 2388 18 07 LCA 3&X1 I 4 1365 L 0|3 447 2389 18 08 SBR X2 I 4 1369 H 094 447 2390 18 09 CW 4&X2 I 4 1373 ) 0!4 447 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 58 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2391 18 10 B RESTO I 4 1377 B T47 447 2392 18 11 NOTIN MCW HEX1,X1 I 7 1381 M P11 089 448 2393 18 12 BW LOD2,SUBSW I 8 1388 V X67 N03 1 448 2394 18 13 BCE RUFN,BOX,% I 8 1396 B U87 O55 % 448 2395 18 14 LCA @ _@,1&X2 BLANK,DELTA 11-7-8 I 7 1404 L P13 0!1 448 2396 18 15 SBR X2 I 4 1411 H 094 448 2397 18 16 SLIDE LCA 000&X3,001&X2 I 7 1415 L 0?0 0!1 449 2398 18 17 SBR X2 I 4 1422 H 094 449 2399 18 18 CW 001&X2 I 4 1426 ) 0!1 449 2400 18 19 S &2,COUNT I 7 1430 S P14 P08 449 2401 18 20 BWZ LOAD1,COUNT,K B-ZONE I 8 1437 V K80 P08 K 449 2402 18 21 BOTM CW 001&X1 I 4 1445 ) 0|1 449 2403 18 22 SAR X3 I 4 1449 Q 099 449 2404 18 23 BOTM2 CW 1&X2 I 4 1453 ) 0!1 450 2405 18 24 CW FEWSW,ERRSW I 7 1457 ) N98 N04 450 2406 18 25 CW TUSW I 4 1464 ) N99 450 2407 18 26 KLOBR BCE FIND,0,; 11-6-8 I 8 1468 B 937 000 ; 450 2408 18 27 MCW @$@,X1 I 7 1476 M P15 089 450 2409 18 28 B OUT I 4 1483 B J38 450 2410 18 29 * IF @SUBSCRIPTED@ VARIABLE NOT FUNCTION THEN ERROR 2411 18 30 RUFN BCE SLIDE,1&X1,F I 8 1487 B U15 0|1 F 451 2412 18 31 FTMSG 6,UNDEFINED ARRAY,CODE,16 I MACRO 2413 CS 332 I 4 1495 / 332 GEN 451 2414 CS I 1 1499 / GEN 451 2415 SW FAILSW I 4 1500 , 184 GEN 451 2416 MN CODE,224&16 I 7 1504 D O46 240 GEN 451 2417 MN I 1 1511 D GEN 451 2418 MN I 1 1512 D GEN 451 2419 MCW @ERROR 6 - UNDEFINED ARRAY, STATEMENT @ I 4 1513 M P52 GEN 452 2420 W I 1 1517 2 GEN 452 2421 BCV *&5 I 5 1518 B V27 @ GEN 452 2422 B *&3 I 4 1523 B V29 GEN 452 2423 CC 1 I 2 1527 F 1 GEN 452 2424 18 32 LCA @%000@,1&X2 I 7 1529 L P56 0!1 452 2425 18 33 SBR X2 I 4 1536 H 094 452 2426 18 34 MZ VZONE,3&X2 I 7 1540 Y P68 0!3 453 2427 18 35 SKLOZ BCE FNDLZ,0&X1,) I 8 1547 B V71 0|0 ) 453 2428 18 36 BCE NOMO1,0&X1,} GM I 8 1555 B K35 0|0 } GMARK 453 2429 18 37 SBR X1 I 4 1563 H 089 453 2430 18 38 B SKLOZ I 4 1567 B V47 453 2431 18 39 FNDLZ MN 0&X1 I 4 1571 D 0|0 453 2432 18 40 SAR X1 I 4 1575 Q 089 453 2433 18 41 B BOTM2 I 4 1579 B U53 454 2434 18 42 * PROCESS SUBSCRIPTS 2435 18 43 SBSCR ZA 00&X1,ACCUM#6 I 7 1583 ? 0|0 P62 454 2436 18 44 SAR X3 I 4 1590 Q 099 454 2437 18 45 SW VBLSW I 4 1594 , P79 454 2438 18 46 ZA 000&X3,ROWS#5 I 7 1598 ? 0?0 P67 454 2439 18 47 ZA 005&X1,WORDL I 7 1605 ? 0|5 N87 454 2440 18 48 S &1,ACCUM I 7 1612 S P06 P62 455 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 59 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2441 18 49 MZ 8&X1,VZONE#1 I 7 1619 Y 0|8 P68 455 2442 18 50 MCW HEX1,X1 I 7 1626 M P11 089 455 2443 18 51 LCA @ $@,001&X2 I 7 1633 L P70 0!1 455 2444 18 52 SBR X2 I 4 1640 H 094 455 2445 18 53 MN 000&X1 I 4 1644 D 0|0 455 2446 18 54 SAR X1 I 4 1648 Q 089 456 2447 18 55 SBR X3 I 4 1652 H 099 456 2448 18 56 SPLIT BWZ CONST,000&X1,2 NO ZONE I 8 1656 V Y51 0|0 2 456 2449 18 57 * PROCESS VARIABLE SUSCRIPTS 2450 18 58 SBR X1,2&X1 I 7 1664 H 089 0|2 456 2451 18 59 LCA @*1@,000&X1 I 7 1671 L P72 0|0 456 2452 18 60 B CONST I 4 1678 B Y51 456 2453 18 61 DELTA LCA @ _@,001&X2 11-7-8 DELTA I 7 1682 L P13 0!1 457 2454 18 62 SBR X2 I 4 1689 H 094 457 2455 18 63 FEED MCW 000&X1,BOX I 7 1693 M 0|0 O55 457 2456 18 64 SAR X1 I 4 1700 Q 089 457 2457 18 65 MCW BOX,*&8 I 7 1704 M O55 X18 457 2458 18 66 BCE XPAND,@-&),@,0 I 8 1711 B X26 P76 0 457 2459 18 67 B I 1 1719 B 457 2460 18 68 B I 1 1720 B 458 2461 18 69 B I 1 1721 B 458 2462 18 70 B FEED I 4 1722 B W93 458 2463 18 71 XPAND SW 2&X1 I 4 1726 , 0|2 458 2464 18 72 SW I 1 1730 , 458 2465 18 73 SAR HEX1 I 4 1731 Q P11 458 2466 18 74 SW SUBSW I 4 1735 , N03 458 2467 18 75 B TLU I 4 1739 B S40 459 2468 18 76 SBRAY LCA 9&X1,2&X2 I 7 1743 L 0|9 0!2 459 2469 18 77 SBR X2 I 4 1750 H 094 459 2470 18 78 CW 1&X2 I 4 1754 ) 0!1 459 2471 18 79 MN I 1 1758 D 459 2472 18 80 SAR X2 I 4 1759 Q 094 459 2473 18 81 B LDCOM I 4 1763 B X83 459 2474 18 82 LOD2 LCA 000&X3,001&X2 I 7 1767 L 0?0 0!1 460 2475 18 83 LCA I 1 1774 L 460 2476 18 84 SBR X2 I 4 1775 H 094 460 2477 18 85 CW 2&X2 I 4 1779 ) 0!2 460 2478 18 86 LDCOM MCW HEX1,X1 I 7 1783 M P11 089 460 2479 18 87 CW 2&X1 I 4 1790 ) 0|2 460 2480 18 88 BCE LOAD2,003&X2,_ DELTA 11-7-8 I 8 1794 B K65 0!3 _ 460 2481 18 89 LCA @ ,@,1&X2 BLANK COMMA I 7 1802 L P78 0!1 461 2482 18 90 SBR X2 I 4 1809 H 094 461 2483 18 91 CW SUBSW I 4 1813 ) N03 461 2484 18 92 BCE PUTC,BOX,, COMMA I 8 1817 B M38 O55 , 461 2485 18 93 BCE PHEW,BOX,) RT PAREN I 8 1825 B Z54 O55 ) 461 2486 18 94 MZ BOX,WORDL I 7 1833 Y O55 N87 461 2487 18 95 COPY MCW X1,X3 I 7 1840 M 089 099 462 2488 18 96 B SPLIT I 4 1847 B W56 462 2489 18 97 *FLIP CONSTANT 2490 18 98 CONST SBR X3,VERSE-2 I 7 1851 H 099 N03 462 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 60 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2491 18 99 TURN MCW 000&X1,BOX I 7 1858 M 0|0 O55 462 2492 19 00 SAR X1 I 4 1865 Q 089 462 2493 19 01 MCW BOX,002&X3 I 7 1869 M O55 0?2 462 2494 19 02 SBR X3 I 4 1876 H 099 463 2495 19 03 BWZ TURN,000&X1,2 NO ZONE I 8 1880 V Y58 0|0 2 463 2496 19 04 SBR X1 I 4 1888 H 089 463 2497 19 05 M WORDL,007&X3 SWITCH C, SINCE WORDL MODIFIED I 7 1892 @ N87 0?7 463 2498 19 06 BCE VARBL,001&X1,* ASTERISK I 8 1899 B Z92 0|1 * 463 2499 19 07 A 007&X3,ACCUM I 7 1907 A 0?7 P62 463 2500 19 08 BCE PHEW,1&X1,) I 8 1914 B Z54 0|1 ) 464 2501 19 09 BCE PUTC,1&X1,, I 8 1922 B M38 0|1 , 464 2502 19 10 SW SYN2S I 4 1930 , N02 464 2503 19 11 B VSERR I 4 1934 B |36 464 2504 19 12 SYN2R CW SYN2S I 4 1938 ) N02 464 2505 19 13 SW ERVBL I 4 1942 , O00 464 2506 19 14 B LIMIT I 4 1946 B /71 464 2507 19 15 RTNB CW ERVBL I 4 1950 ) O00 465 2508 19 16 * END OF PROCESS SUBSCRIPT 2509 19 17 PHEW NOP ACCUM-7 I 4 1954 N P55 465 2510 19 18 SAR X3 I 4 1958 Q 099 465 2511 19 19 SW FEWSW I 4 1962 , N98 465 2512 19 20 B NORML I 4 1966 B !29 465 2513 19 21 LDOLR LCA @$@,0&X2 I 7 1970 L P15 0!0 465 2514 19 22 SBR X2 I 4 1977 H 094 465 2515 19 23 MZ VZONE,3&X2 I 7 1981 Y P68 0!3 466 2516 19 24 B BOTM I 4 1988 B U45 466 2517 19 25 * PROCESS VARIABLE SUBSCRIPT 2518 19 26 VARBL CW 1&X1,VBLSW#1 I 7 1992 ) 0|1 P79 466 2519 19 27 B NORML I 4 1999 B !29 466 2520 19 28 LCA @ *@,000&X2 BLANK, ASTERISK I 7 2003 L P81 0!0 466 2521 19 29 SBR X2 I 4 2010 H 094 466 2522 19 30 CW 001&X2 I 4 2014 ) 0!1 466 2523 19 31 MCW X1,X3 I 7 2018 M 089 099 467 2524 19 32 B DELTA I 4 2025 B W82 467 2525 19 33 NORML SBR EXIT&3 I 4 2029 H J37 467 2526 19 34 X3AND EQU 007&X3 I 0007 X 2527 19 35 SUBTR S &16000,X3AND I 7 2033 S P86 0?7 467 2528 19 36 BWZ SUBTR,X3AND,B AB ZONE I 8 2040 V !33 0?7 B 467 2529 19 37 ADD A &16000,X3AND I 7 2048 A P86 0?7 467 2530 19 38 BWZ ADD,X3AND,K B ZONE I 8 2055 V !48 0?7 K 468 2531 19 39 BW ALCON,FEWSW I 8 2063 V L35 N98 1 468 2532 19 40 GET SBR X3,1&X3 I 7 2071 H 099 0?1 468 2533 19 41 BCE GET,002&X3,0 ZERO I 8 2078 B !71 0?2 0 468 2534 19 42 SBR X2,1&X2 I 7 2086 H 094 0!1 468 2535 19 43 LCA BLNK6#6 I 4 2093 L P92 469 2536 19 44 TWIST MCW 002&X3,BOX I 7 2097 M 0?2 O55 469 2537 19 45 SAR X3 I 4 2104 Q 099 469 2538 19 46 MCW BOX,000&X2 I 7 2108 M O55 0!0 469 2539 19 47 SBR X2 I 4 2115 H 094 469 2540 19 48 BWZ TWIST,001&X3,2 NO ZONE I 8 2119 V !97 0?1 2 469 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 61 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2541 19 49 MZ BLANK,1&X2 I 7 2127 Y P87 0!1 470 2542 19 50 EXIT B 00 I 4 2134 B 000 470 2543 19 51 OUT FENDX C,,,,PHSE2P,,ORGVB-1,VARBL TWO I MACRO 2544 OUT BSS 333,C I 5 2138 B 333 C GEN 470 2545 SBR INITXT&3,PHSE2P I 7 2143 H 796 849 GEN 470 2546 SBR TCLEAR,ORGVB-1 I 7 2150 H 710 Q13 GEN 470 2547 LCA @VARBL TWO@,110 I 7 2157 L Q01 110 GEN 470 2548 B MONTER I 4 2164 B 700 GEN 471 2549 19 52 LIST MCW @B@,SWCHA I 7 2168 M Q02 956 471 2550 19 53 MCW @B@,SWCHB I 7 2175 M Q02 T32 471 2551 19 54 MCW CODE-3,*&8 I 7 2182 M O43 J96 471 2552 19 55 BCE TU,@1356@,0 I 8 2189 B K04 Q06 0 471 2553 19 56 CHAIN 3 I MACRO 2554 BCE I 1 2197 B GEN 471 2555 BCE I 1 2198 B GEN 471 2556 BCE I 1 2199 B GEN 472 2557 19 57 B FIND I 4 2200 B 937 472 2558 19 58 TU SW TUSW I 4 2204 , N99 472 2559 19 59 B FIND I 4 2208 B 937 472 2560 19 60 RTPAR BCE PUTB,BOX,) RT PAREN I 8 2212 B K24 O55 ) 472 2561 19 61 B MDIFY I 4 2220 B 960 472 2562 19 62 PUTB MCW @B@,SWCHB I 7 2224 M Q02 T32 472 2563 19 63 B MDIFY I 4 2231 B 960 473 2564 19 64 NOMO1 MN 0&X2 I 4 2235 D 0!0 473 2565 19 65 SAR X2 I 4 2239 Q 094 473 2566 19 66 NOMO LCA GM,001&X2 I 7 2243 L N55 0!1 473 2567 19 67 B START I 4 2250 B 856 473 2568 19 68 EQUAL MCW @N@,SWCHB I 7 2254 M O54 T32 473 2569 19 69 B LOOP I 4 2261 B S55 473 2570 19 70 LOAD2 LCA BLNK2,1&X2 I 7 2265 L P88 0!1 474 2571 19 71 SBR X2 I 4 2272 H 094 474 2572 19 72 B LDCOM I 4 2276 B X83 474 2573 19 73 LOAD1 LCA BLANK,0&X2 I 7 2280 L P87 0!0 474 2574 19 74 SBR X2 I 4 2287 H 094 474 2575 19 75 CW 001&X2 I 4 2291 ) 0!1 474 2576 19 76 B BOTM I 4 2295 B U45 474 2577 19 77 CKXPN BCE SW1,2&X1,# I 8 2299 B /19 0|2 # 475 2578 19 78 BCE SW1,2&X1,@ I 8 2307 B /19 0|2 @ 475 2579 19 79 BWZ FIND,2&X1,2 I 8 2315 V 937 0|2 2 475 2580 19 80 BCE FIND,2&X1,. I 8 2323 B 937 0|2 . 475 2581 19 81 B SW1 I 4 2331 B /19 475 2582 19 82 ALCON MCW 7&X3,HOLD5#5 I 7 2335 M 0?7 Q11 476 2583 19 83 FPACK HOLD5,WORK3,X3 I MACRO 2584 INCLD ZONES I MACRO 2585 MN HOLD5,WORK3 I 7 2342 D Q11 N97 GEN 476 2586 MN I 1 2349 D GEN 476 2587 MN I 1 2350 D GEN 476 2588 SAR *&4 I 4 2351 Q L58 GEN 476 2589 MCW 0,X3 I 7 2355 M 000 099 GEN 476 2590 MCW @0@ I 4 2362 M Q12 GEN 476 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 62 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2591 A X3 I 4 2366 A 099 GEN 477 2592 MZ ZONES&1&X3,WORK3 I 7 2370 Y O?3 N97 GEN 477 2593 CW I 1 2377 ) GEN 477 2594 SBR *&7 I 4 2378 H L88 GEN 477 2595 MZ ZONES&X3, 0 I 7 2382 Y O?2 000 GEN 477 2596 19 84 BCE *&8,2&X2,, I 8 2389 B M04 0!2 , 477 2597 19 85 SBR X2,1&X2 I 7 2397 H 094 0!1 477 2598 19 86 LCA WORK3,1&X2 I 7 2404 L N97 0!1 478 2599 19 87 SBR X2 I 4 2411 H 094 478 2600 19 88 CW 1&X2 I 4 2415 ) 0!1 478 2601 19 89 MZ VZONE,2&X2 I 7 2419 Y P68 0!2 478 2602 19 90 BW BOTM,VBLSW I 8 2426 V U45 P79 1 478 2603 19 91 B LDOLR I 4 2434 B Z70 478 2604 19 92 PUTC MZ *-4,WORDL I 7 2438 Y M40 N87 479 2605 19 93 M ROWS,WORDL&6 I 7 2445 @ P67 N93 479 2606 19 94 MCM WORDL&2,WORDL-4 ROWS*WORDL IN WORDL %2 DIMENS) I 7 2452 P N89 N83 479 2607 19 95 S WORDL,ACCUM I 7 2459 S N87 P62 479 2608 19 96 B COPY I 4 2466 B Y40 479 2609 19 97 FMAT LCA 0&X1,0&X2 I 7 2470 L 0|0 0!0 479 2610 19 98 SBR X2 I 4 2477 H 094 480 2611 19 99 C 0&X1 I 4 2481 C 0|0 480 2612 20 00 SAR X1 I 4 2485 Q 089 480 2613 20 01 B START I 4 2489 B 856 480 2614 20 02 MRKRS DCW @#,}*@&-%)@ EQUALS,COMMA,GR MARK I 9 2501 480 2615 20 03 SYN2S DC #1 I 1 2502 480 2616 20 04 SUBSW DC #1 I 1 2503 480 2617 20 05 ERRSW DC #1 I 1 2504 480 2618 20 06 VERSE DCW #1 I 1 2505 480 2619 20 07 DC #49 I 49 2554 482 2620 20 08 GM DC @}@ G-M I 1 2555 GMARK 482 2621 20 09 KERR DCW @ERROR @ I 6 2561 482 2622 20 10 KVSTM DCW @ VARIABLE, STATEMENT @ I 21 2582 482 2623 20 11 WORDL DCW #5 I 5 2587 483 2624 20 12 DC #6 I 6 2593 483 2625 20 13 DC @|@ RECORD MARK I 1 2594 483 2626 20 14 WORK3 DCW #3 I 3 2597 483 2627 20 15 FEWSW DC #1 I 1 2598 483 2628 20 16 TUSW DC #1 I 1 2599 483 2629 20 17 ERVBL DC #1 I 1 2600 483 2630 20 18 ORG * I 2601 2631 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG I 2601 2632 DCW #1 I 1 2601 GEN 483 2633 ZONES DC 9 I 1 2602 GEN 483 2634 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ I 31 2633 GEN 484 * LTORG* GEN DRESSI DCW #03 I 3 2636 AREA 484 WORK I DCW #10 I 10 2646 AREA 485 DCW @3L5UP61@ I 7 2653 LIT 485 DCW @N@ I 1 2654 LIT 485 BOX I DCW #01 I 1 2655 AREA 485 1 1401 FORTRAN VARIABLES PHASE ONE 50133 PAGE 63 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @@*-&.%),@ I 8 2663 LIT 485 BOX2 I DCW #01 I 1 2664 AREA 485 DCW @ERROR 9 - VARIABLE SYNTAX, STATEMENT @ I 37 2701 LIT 486 DCW @0?0@ I 3 2704 LIT 487 DCW @;@ I 1 2705 LIT 487 DCW &1 I 1 2706 LIT 487 COUNTI DCW #02 I 2 2708 AREA 487 HEX1 I DCW #03 I 3 2711 AREA 487 DCW @ _@ I 2 2713 LIT 487 DCW &2 I 1 2714 LIT 487 DCW @$@ I 1 2715 LIT 488 DCW @ERROR 6 - UNDEFINED ARRAY, STATEMENT @ I 37 2752 LIT 488 DCW @%000@ I 4 2756 LIT 489 ACCUMI DCW #06 I 6 2762 AREA 489 ROWS I DCW #05 I 5 2767 AREA 489 VZONEI DCW #01 I 1 2768 AREA 489 DCW @ $@ I 2 2770 LIT 489 DCW @*1@ I 2 2772 LIT 489 DCW @-&),@ I 4 2776 LIT 489 DCW @ ,@ I 2 2778 LIT 490 VBLSWI DCW #01 I 1 2779 AREA 490 DCW @ *@ I 2 2781 LIT 490 DCW &16000 I 5 2786 LIT 490 BLNK6I DCW #06 I 6 2792 AREA 490 DCW @VARBL TWO@ I 9 2801 LIT 490 DCW @B@ I 1 2802 LIT 490 DCW @1356@ I 4 2806 LIT 491 HOLD5I DCW #05 I 5 2811 AREA 491 DCW @0@ I 1 2812 LIT 491 2635 20 19 CODE EQU WORK I 2646 2636 20 20 BLANK EQU BLNK6-5 I 2787 2637 20 21 BLNK2 EQU BLNK6-4 I 2788 2638 20 22 DCW @}@ SYSTEM GROUP MARK I 1 2813 GMARK 491 2639 20 23 ORGVB EQU *&1 I 2814 2640 20 24 XFR INITL I B 838 492 1 1401 FORTRAN VARIABLES PHASE TWO 50143 PAGE 64 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2641 20 25 JOB 1401 FORTRAN VARIABLES PHASE TWO I 2642 20 26 * MOVES THE SOURCE PROGRAM UP TO SAUCE AND COMPUTES PARAMETERS FOR 2643 20 27 * THE RANDOMIZER IN VARBL. PHASE 3 2644 20 28 FBEGN VARBL TWO,X1,R,X2,,X3,R,P I MACRO 2645 SFX P P GEN 2646 110 DCW @VARBL TWO@ P 9 0110 GEN 495 2647 X1 EQU 089 P 0089 GEN 2648 089 DCW 000 P 3 0089 GEN 496 2649 091 DC 00 P 2 0091 GEN 496 2650 X2 EQU 094 P 0094 GEN 2651 X3 EQU 099 P 0099 GEN 2652 099 DCW 000 P 3 0099 GEN 497 2653 100 DC 0 P 1 0100 GEN 497 2654 20 29 SAUCE EQU SAUCEK P 2700 2655 20 30 ORG XBEGIN P 0838 2656 20 31 BASE DCW #3 P 3 0840 498 2657 20 32 MAX DCW #4 P 4 0844 498 2658 20 33 DC #1 P 1 0845 498 2659 20 34 UPLIM DCW #3 P 3 0848 498 2660 20 35 NXBTM EQU 083 P 0083 2661 20 36 PHSE2 MCW NXBTM,X3 P 7 0849 M 083 099 498 2662 20 37 BCE FQUIT,X1,$ P 8 0856 B /97 089 $ 498 2663 20 38 SBR NOMO#3,2&X3 P 7 0864 H T42 0?2 498 2664 20 39 MCW X2,X3 P 7 0871 M 094 099 499 2665 20 40 CLR1 CS 000&X3 P 4 0878 / 0?0 499 2666 20 41 SBR X3 P 4 0882 H 099 499 2667 20 42 C X3,&SAUCE-1 P 7 0886 C 099 T45 499 2668 20 43 BU CLR1 P 5 0893 B 878 / 499 2669 20 44 SBR X1,SAUCE-1 P 7 0898 H 089 O99 499 2670 20 45 * SHIFT SOURCE PROGRAM UP TO COMPILER PROGRAM 2671 20 46 MOVUP X2,X1,NOMO,ALL,| P MACRO 2672 MN 0&X1 P 4 0905 D 0|0 GEN 499 2673 SAR X1 P 4 0909 Q 089 GEN 500 2674 )0J065 MCM 0&X2 P 4 0913 P 0!0 GEN 500 2675 SAR )0L065&6 P 4 0917 Q 939 GEN 500 2676 MCM 0&X2,1&X1 P 7 0921 P 0!0 0|1 GEN 500 2677 MN P 1 0928 D GEN 500 2678 SBR X1 P 4 0929 H 089 GEN 500 2679 )0L065 SBR X2,0 P 7 0933 H 094 000 GEN 500 2680 BCE )0J065,0&X1,| P 8 0940 B 913 0|0 | GEN 501 2681 MN 0&X2 P 4 0948 D 0!0 GEN 501 2682 CW P 1 0952 ) GEN 501 2683 SW 0&X1 P 4 0953 , 0|0 GEN 501 2684 C X2,NOMO P 7 0957 C 094 T42 GEN 501 2685 BU )0J065 P 5 0964 B 913 / GEN 501 2686 20 47 CW 0&X2 P 4 0969 ) 0!0 501 2687 20 48 CW P 1 0973 ) 502 2688 20 49 SBR BASE,2&X1 P 7 0974 H 840 0|2 502 2689 20 50 MN TWO9,BASE P 7 0981 D T07 840 502 2690 20 51 MN P 1 0988 D 502 1 1401 FORTRAN VARIABLES PHASE TWO 50143 PAGE 65 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2691 20 52 MCW PARAMA&2,X3 P 7 0989 M 688 099 502 2692 20 53 MN 000&X3 P 4 0996 D 0?0 502 2693 20 54 SW P 1 1000 , 502 2694 20 55 SAR NXBTM P 4 1001 Q 083 503 2695 20 56 SBR X3 P 4 1005 H 099 503 2696 20 57 * CLEAR BALANCE OF CORE 2697 20 58 CLR2 CS 000&X3 P 4 1009 / 0?0 503 2698 20 59 SBR X3 P 4 1013 H 099 503 2699 20 60 C X3,BASE P 7 1017 C 099 840 503 2700 20 61 BU CLR2 P 5 1024 B |09 / 503 2701 20 62 MCW @<@,0&X3 12-6-8 P 7 1029 M T46 0?0 503 2702 20 63 * DIVIDE REST OF CORE FOR TABLES RATIO 3 TO 7 2703 20 64 MCW NXBTM,LOC P 7 1036 M 083 T05 504 2704 20 65 B UNPAK P 4 1043 B S31 504 2705 20 66 MCW NUM#5,MAX&1 P 7 1047 M T51 845 504 2706 20 67 MCW BASE,LOC P 7 1054 M 840 T05 504 2707 20 68 B UNPAK P 4 1061 B S31 504 2708 20 69 S NUM,MAX&1 P 7 1065 S T51 845 504 2709 20 70 A MAX,ACCUM#6 P 7 1072 A 844 T57 505 2710 20 71 A ACCUM P 4 1079 A T57 505 2711 20 72 A MAX,ACCUM 3*MAX IN ACCUM P 7 1083 A 844 T57 505 2712 20 73 * 1/10 OF NXBTM-BASE IN MAX 2713 20 74 A NUM,ACCUM P 7 1090 A T51 T57 505 2714 20 75 MCW ACCUM-3,X3 P 7 1097 M T54 099 505 2715 20 76 A X3 P 4 1104 A 099 505 2716 20 77 MZ ZONES&X3,ACCUM-2 P 7 1108 Y T?8 T55 506 2717 20 78 MZ ZONES&1&X3,ACCUM P 7 1115 Y T?9 T57 506 2718 20 79 MCW ACCUM,X3 P 7 1122 M T57 099 506 2719 20 80 SW 002&X3 P 4 1129 , 0?2 506 2720 20 81 MCW @<@ 12-6-8 P 4 1133 M T46 506 2721 20 82 SBR UPLIM P 4 1137 H 848 506 2722 20 83 MCW X1,X2 P 7 1141 M 089 094 507 2723 20 84 MN 0&X2 P 4 1148 D 0!0 507 2724 20 85 SAR X1 P 4 1152 Q 089 507 2725 20 86 FENDX C,,,WORK5J-4,PHSE3J,WORK5J,SYS2,VARBL TRI P MACRO 2726 BSS 333,C P 5 1156 B 333 C GEN 507 2727 SBR INITAP&6,WORK5J-4 P 7 1161 H 786 849 GEN 507 2728 SBR BCLEAR P 4 1168 H 833 GEN 507 2729 SBR INITXT&3,PHSE3J P 7 1172 H 796 857 GEN 507 2730 SBR TCLEAR,SYS2 P 7 1179 H 710 U05 GEN 508 2731 LCA @VARBL TRI@,110 P 7 1186 L T66 110 GEN 508 2732 B MONTER P 4 1193 B 700 GEN 508 2733 20 87 FQUIT FQUIT P MACRO 2734 FQUIT CS 332 P 4 1197 / 332 GEN 508 2735 CS P 1 1201 / GEN 508 2736 CC 1 P 2 1202 F 1 GEN 508 2737 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 P 7 1204 M U02 270 GEN 508 2738 W P 1 1211 2 GEN 509 2739 CC 1 P 2 1212 F 1 GEN 509 2740 BCE *&6,MONTOR,1 P 8 1214 B S27 769 1 GEN 509 1 1401 FORTRAN VARIABLES PHASE TWO 50143 PAGE 66 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2741 RWD 1 P 5 1222 U %U1 R GEN 509 2742 H *-3 P 4 1227 . S27 GEN 509 2743 20 88 UNPAK SBR EXIT&3 P 4 1231 H T00 509 2744 20 89 MN LOC,NUM P 7 1235 D T05 T51 509 2745 20 90 MN P 1 1242 D 510 2746 20 91 MN P 1 1243 D 510 2747 20 92 MCW P 1 1244 M 510 2748 20 93 MZ LOC,TWO9 P 7 1245 Y T05 T07 510 2749 20 94 MZ LOC-2,TWO9-1 P 7 1252 Y T03 T06 510 2750 20 95 NOP ZONES-3 P 4 1259 N T05 510 2751 20 96 SAR X3 P 4 1263 Q 099 510 2752 20 97 COMP C 004&X3,TWO9 P 7 1267 C 0?4 T07 511 2753 20 98 SAR X3 P 4 1274 Q 099 511 2754 20 99 A &1,NUM-3 P 7 1278 A U03 T48 511 2755 21 00 BU COMP P 5 1285 B S67 / 511 2756 21 01 MZ BLANK#1,NUM-3 P 7 1290 Y U04 T48 511 2757 21 02 EXIT B 000 P 4 1297 B 000 511 2758 21 03 LOC DCW @0J @ P 5 1305 511 2759 21 04 TWO9 DCW @99@ P 2 1307 512 2760 21 05 ZONES DC @9@ P 1 1308 512 2761 21 06 DC @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ P 31 1339 512 2762 21 07 LTORG * P 1340 NOMO P DCW #03 P 3 1342 AREA 512 DCW &SAUCEP-1 P 3 1345 O99 ADCON 513 DCW @<@ P 1 1346 LIT 513 NUM P DCW #05 P 5 1351 AREA 513 ACCUMP DCW #06 P 6 1357 AREA 513 DCW @VARBL TRI@ P 9 1366 LIT 513 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ P 36 1402 LIT 514 DCW &1 P 1 1403 LIT 514 BLANKP DCW #01 P 1 1404 AREA 514 2763 21 08 LTORG * P 1405 2764 21 09 SYS2 DCW @}@ SYSTEM GROUP MARK P 1 1405 GMARK 514 2765 21 10 XFR PHSE2 P B 849 516 1 1401 FORTRAN VARIABLES PHASE THREE 50153 PAGE 67 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2766 21 11 JOB 1401 FORTRAN VARIABLES PHASE THREE P 2767 21 12 FBEGN VARBL TRI,X1,,X2,,X3,R,J P MACRO 2768 SFX J J GEN 2769 110 DCW @VARBL TRI@ J 9 0110 GEN 519 2770 X1 EQU 089 J 0089 GEN 2771 X2 EQU 094 J 0094 GEN 2772 X3 EQU 099 J 0099 GEN 2773 099 DCW 000 J 3 0099 GEN 520 2774 100 DC 0 J 1 0100 GEN 520 2775 21 13 * DEFINES VARIABLES IN SOURCE PROGRAM 2776 21 14 ORG XBEGIN J 0838 2777 21 15 BASE DS 3 J 0840 2778 21 16 MAX DS 4 J 0844 2779 21 17 UPLIM DS 4 J 0848 2780 21 18 NXTOP EQU 086 J 0086 2781 21 19 NXBTM EQU 083 J 0083 2782 21 20 WORK5 DCW #5 J 5 0853 521 2783 21 21 SAVE2 DCW #3 J 3 0856 521 2784 21 22 PHSE3 MESSG @STORAGE ASSIGNMENT - SIMPLE VARIABLES@,37,L,J J MACRO 2785 PHSE3 CC L J 2 0857 F L GEN 521 2786 CS 332 J 4 0859 / 332 GEN 521 2787 CS J 1 0863 / GEN 521 2788 MCW @STORAGE ASSIGNMENT - SIMPLE VARIABLES@,37&200 J 7 0864 M |47 237 GEN 521 2789 W J 1 0871 2 GEN 521 2790 CC J J 2 0872 F J GEN 522 2791 21 23 MCW @ @,SAUCEK-1 BLANK J 7 0874 M |48 O99 522 2792 21 24 MCW X2,SAVE2 J 7 0881 M 094 856 522 2793 21 25 UNPAK NXTOP,WORK5 J MACRO 2794 S )0M070#2 J 4 0888 S |50 GEN 522 2795 S )0L070#2 J 4 0892 S |52 GEN 522 2796 MZ NXTOP,)0M070-1 J 7 0896 Y 086 |49 GEN 522 2797 MZ NXTOP-2,)0L070-1 J 7 0903 Y 084 |51 GEN 522 2798 )0J070 BWZ )0K070, )0L070-1, 2 J 8 0910 V 929 |51 2 GEN 523 2799 A @A0@, )0L070 J 7 0918 A |54 |52 GEN 523 2800 B )0J070 J 4 0925 B 910 GEN 523 2801 )0K070 BWZ )0P070, )0M070-1, 2 J 8 0929 V 948 |49 2 GEN 523 2802 A @?4@, )0M070 J 7 0937 A |56 |50 GEN 523 2803 B )0K070 J 4 0944 B 929 GEN 523 2804 )0P070 A )0L070-1,)0M070 J 7 0948 A |51 |50 GEN 524 2805 MCW NXTOP,WORK5 J 7 0955 M 086 853 GEN 524 2806 MCW )0M070 J 4 0962 M |50 GEN 524 2807 ZA WORK5 J 4 0966 ? 853 GEN 524 2808 MZ *-4, WORK5 J 7 0970 Y 972 853 GEN 524 2809 21 26 FENDX C,,,PHSE3,,PHSE3,SAUCEK-1,VARBL QUAD J MACRO 2810 BSS 333,C J 5 0977 B 333 C GEN 524 2811 SBR INITAP&6,PHSE3 J 7 0982 H 786 857 GEN 525 2812 SBR BCLEAR J 4 0989 H 833 GEN 525 2813 SBR TCLEAR,SAUCEK-1 J 7 0993 H 710 O99 GEN 525 2814 LCA @VARBL QUAD@,110 J 7 1000 L |66 110 GEN 525 2815 B MONTER J 4 1007 B 700 GEN 525 1 1401 FORTRAN VARIABLES PHASE THREE 50153 PAGE 68 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2816 21 27 LTORG * J 1011 DCW @STORAGE ASSIGNMENT - SIMPLE VARIABLES@ J 37 1047 LIT 526 DCW @ @ J 1 1048 LIT 526 )0M070 DCW #02 J 2 1050 AREA 527 )0L070 DCW #02 J 2 1052 AREA 527 DCW @A0@ J 2 1054 LIT 527 DCW @?4@ J 2 1056 LIT 527 DCW @VARBL QUAD@ J 10 1066 LIT 527 2817 21 28 DCW @}@ SYSTEM GROUP MARK J 1 1067 GMARK 527 2818 21 29 XFR PHSE3 J B 857 528 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 69 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2819 21 30 JOB 1401 FORTRAN VARIABLES PHASE FOUR J 2820 21 31 110 DCW @VARBL QUAD@ J 10 0110 531 2821 21 32 ORG PHSE3 J 0857 2822 21 33 BEGIN MCW BASE,BUMP&3 J 7 0857 M 840 /89 532 2823 21 34 MZ @S@,BUMP&2 J 7 0864 Y K82 /88 532 2824 21 35 SW GM J 4 0871 , M93 532 2825 21 36 CW ISFSW J 4 0875 ) L10 532 2826 21 37 START BCE OUT,000&X1, BLANK J 8 0879 B !57 0|0 532 2827 21 38 MCW 000&X1,CODE#4 J 7 0887 M 0|0 K86 532 2828 21 39 LCA 000&X1,WORK#10 J 7 0894 L 0|0 K96 533 2829 21 40 SAR X1 J 4 0901 Q 089 533 2830 21 41 SBR X3 J 4 0905 H 099 533 2831 21 42 LCA WORK,000&X2 J 7 0909 L K96 0!0 533 2832 21 43 SBR X2 J 4 0916 H 094 533 2833 21 44 BCE PASS,CODE-3,/ BAD STATEMENT J 8 0920 B J63 K83 / 533 2834 21 45 BCE PASS,CODE-3,F J 8 0928 B J63 K83 F 534 2835 21 46 MCW @01@,FNCTR#2 J 7 0936 M K98 L00 534 2836 21 47 * DETERMINE IF IN RUN ONE OF RUN TWO 2837 21 48 SWCHE B TEST J 4 0943 B W71 534 2838 21 49 FIND2 BCE SEEK,000&X1,_ DELTA 11-7-8 J 8 0947 B 981 0|0 _ 534 2839 21 50 CHAIN 5 J MACRO 2840 BCE J 1 0955 B GEN 534 2841 BCE J 1 0956 B GEN 534 2842 BCE J 1 0957 B GEN 534 2843 BCE J 1 0958 B GEN 535 2844 BCE J 1 0959 B GEN 535 2845 21 51 BCE PASS,000&X1,} GROUP MARK J 8 0960 B J63 0|0 } GMARK 535 2846 21 52 CHAIN 5 J MACRO 2847 BCE J 1 0968 B GEN 535 2848 BCE J 1 0969 B GEN 535 2849 BCE J 1 0970 B GEN 535 2850 BCE J 1 0971 B GEN 535 2851 BCE J 1 0972 B GEN 536 2852 21 53 SBR X1 J 4 0973 H 089 536 2853 21 54 B FIND2 J 4 0977 B 947 536 2854 21 55 SEEK BCE FOUND,000&X1,_ DELTA 11-7-8 J 8 0981 B 997 0|0 _ 536 2855 21 56 SBR X1 J 4 0989 H 089 536 2856 21 57 B SEEK J 4 0993 B 981 536 2857 21 58 FOUND SW 001&X1 J 4 0997 , 0|1 536 2858 21 59 CW DUMMY J 1 1001 ) 537 2859 21 60 CW DUMMY J 1 1002 ) 537 2860 21 61 CW DUMMY J 1 1003 ) 537 2861 21 62 SAR X1 J 4 1004 Q 089 537 2862 21 63 BCE COPY,004&X1,} GROUP MK, FIRST CHAR MAY BE DELTA J 8 1008 B |31 0|4 } GMARK 537 2863 21 64 LCA 000&X3,000&X2 J 7 1016 L 0?0 0!0 537 2864 21 65 SBR X2 J 4 1023 H 094 537 2865 21 66 CW 001&X2 J 4 1027 ) 0!1 538 2866 21 67 COPY SBR X3,2&X1 J 7 1031 H 099 0|2 538 2867 21 68 * SCAN FOR ENDING CHARACTER 2868 21 69 LIMIT MCW 000&X1,BOX#1 J 7 1038 M 0|0 L01 538 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 70 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2869 21 70 SAR X1 J 4 1045 Q 089 538 2870 21 71 MCW BOX,*&8 J 7 1049 M L01 |63 538 2871 21 72 BCE RANDM,@@}#*-&),@,0 AT,12-7-8 ETC J 8 1056 B |75 L09 0 538 2872 21 73 CHAIN 7 J MACRO 2873 BCE J 1 1064 B GEN 538 2874 BCE J 1 1065 B GEN 539 2875 BCE J 1 1066 B GEN 539 2876 BCE J 1 1067 B GEN 539 2877 BCE J 1 1068 B GEN 539 2878 BCE J 1 1069 B GEN 539 2879 BCE J 1 1070 B GEN 539 2880 21 74 B LIMIT J 4 1071 B |38 539 2881 21 75 RANDM BCE SWCHF,BOX,# EQUAL J 8 1075 B Y06 L01 # 540 2882 21 76 BCE *&5,2&X1,] 11-5-8 FUNCT STMT J 8 1083 B |95 0|2 ] 540 2883 21 77 B *&5 J 4 1091 B |99 540 2884 21 78 SW ISFSW#1 J 4 1095 , L10 540 2885 21 79 SWCHA NOP BOTM J 4 1099 N J93 540 2886 21 80 * RANDOMIZING VARIABLE NAME 2887 21 81 MIXUP SW 002&X1 J 4 1103 , 0|2 540 2888 21 82 ZA 000&X3,MOD#4 J 7 1107 ? 0?0 L14 540 2889 21 83 A 004&X1,MOD J 7 1114 A 0|4 L14 541 2890 21 84 MZ @ @,MOD J 7 1121 Y L18 L14 541 2891 21 85 MZ J 1 1128 Y 541 2892 21 86 MZ J 1 1129 Y 541 2893 21 87 MCW 3 DIGIT NO. IN MOD J 1 1130 M 541 2894 21 88 SUBTR S MAX,MOD J 7 1131 S 844 L14 541 2895 21 89 BWZ SUBTR,MOD,B J 8 1138 V /31 L14 B 541 2896 21 90 A MAX,MOD J 7 1146 A 844 L14 542 2897 21 91 MZ @ @,MOD BLANK J 7 1153 Y L19 L14 542 2898 21 92 MCW X2,HEX2#8 J 7 1160 M 094 L27 542 2899 21 93 MCW STORES X1 IN HEX1 J 1 1167 M 542 2900 21 94 MCW MOD,X1 J 7 1168 M L14 089 542 2901 21 95 A X1 J 4 1175 A 089 542 2902 21 96 A MOD,X1 J 7 1179 A L14 089 543 2903 21 97 * GET TABLE 1 ADDRESS 2904 21 98 BUMP NOP 000 J 4 1186 N 000 543 2905 21 99 SAR X1 TAGGED BY A-BIT J 4 1190 Q 089 543 2906 22 00 MCW @N@,OVFLW J 7 1194 M L28 Z73 543 2907 22 01 CHAIN BCE NEW,000&X1, BLANK VARBL NOT YET ENDOUNTERED J 8 1201 B T02 0|0 543 2908 22 02 BCE OVFLW,000&X1,< 12-6-8 J 8 1209 B Z73 0|0 < 543 2909 22 03 * SEE IF DEFINED ALREADY 2910 22 04 MCW 000&X1,X2 J 7 1217 M 0|0 094 544 2911 22 05 SAR X1 J 4 1224 Q 089 544 2912 22 06 C 000&X3,000&X2 J 7 1228 C 0?0 0!0 544 2913 22 07 BU CHAIN J 5 1235 B S01 / 544 2914 22 08 C 000&X2,000&X3 J 7 1240 C 0!0 0?0 544 2915 22 09 SAR SWCHC&3 J 4 1247 Q S59 544 2916 22 10 BU CHAIN J 5 1251 B S01 / 544 2917 22 11 SWCHC MN 0 J 4 1256 D 000 545 2918 22 12 SAR SEND&3 J 4 1260 Q S75 545 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 71 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2919 22 13 RESTR MCW HEX2,X2 J 7 1264 M L27 094 545 2920 22 14 MCW J 1 1271 M 545 2921 22 15 SEND LCA 000,000&X2 J 7 1272 L 000 0!0 545 2922 22 16 SBR X2 J 4 1279 H 094 545 2923 22 17 CW 001&X2 J 4 1283 ) 0!1 545 2924 22 18 SBR X3,1&X1 J 7 1287 H 099 0|1 546 2925 22 19 SBR X1 J 4 1294 H 089 546 2926 22 20 GOBAK B FIND1 OPERAND SET TO FIND2 FOR RUN2 J 4 1298 B X23 546 2927 22 21 NEW MCW NXBTM,X2 J 7 1302 M 083 094 546 2928 22 22 MCW NXBTM,000&X1 J 7 1309 M 083 0|0 546 2929 22 23 MCW 000&X3,000&X2 J 7 1316 M 0?0 0!0 546 2930 22 24 SBR X2 J 4 1323 H 094 547 2931 22 25 * CHECK TO SEE IF THERE IS ROOM FOR ADDRESS 2932 22 26 BCE FULL,000&X2,< 12-6-8 J 8 1327 B K11 0!0 < 547 2933 22 27 CHAIN 4 J MACRO 2934 BCE J 1 1335 B GEN 547 2935 BCE J 1 1336 B GEN 547 2936 BCE J 1 1337 B GEN 547 2937 BCE J 1 1338 B GEN 547 2938 22 28 SW 000&X3 J 4 1339 , 0?0 547 2939 22 29 MCW 000&X3,*&8 J 7 1343 M 0?0 T57 548 2940 22 30 BCE FIXED,@IJKLMN@,0 J 8 1350 B !31 L34 0 548 2941 22 31 CHAIN 5 J MACRO 2942 BCE J 1 1358 B GEN 548 2943 BCE J 1 1359 B GEN 548 2944 BCE J 1 1360 B GEN 548 2945 BCE J 1 1361 B GEN 548 2946 BCE J 1 1362 B GEN 548 2947 22 32 MZ @A@,VZONE#1 J 7 1363 Y L35 L36 549 2948 22 33 BW FUNST,ISFSW J 8 1370 V W49 L10 1 549 2949 22 34 A PARAMA&6,WORK5 J 7 1378 A 692 853 549 2950 22 35 PACK C WORK5,&16000 J 7 1385 C 853 L41 549 2951 22 36 BH PACK2 J 5 1392 B U25 U 549 2952 22 37 BW PACK2,LGSW J 8 1397 V U25 K48 1 550 2953 22 38 CS 332 J 4 1405 / 332 550 2954 22 39 CS J 1 1409 / 550 2955 22 40 MLC @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 J 7 1410 M L77 270 550 2956 22 41 W J 1 1417 2 550 2957 22 42 SW FAILSW,LGSW J 7 1418 , 184 K48 550 2958 22 43 PACK2 MCW WORK5,HOLD5#5 J 7 1425 M 853 L82 550 2959 22 44 MCW X3,HOLD8#8 J 7 1432 M 099 L90 551 2960 22 45 MCW J 1 1439 M 551 2961 22 46 FPACK HOLD5,NXTOP,X2 J MACRO 2962 INCLD ZONES J MACRO 2963 MN HOLD5,NXTOP J 7 1440 D L82 086 GEN 551 2964 MN J 1 1447 D GEN 551 2965 MN J 1 1448 D GEN 551 2966 SAR *&4 J 4 1449 Q U56 GEN 551 2967 MCW 0,X2 J 7 1453 M 000 094 GEN 551 2968 MCW @0@ J 4 1460 M L91 GEN 552 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 72 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2969 A X2 J 4 1464 A 094 GEN 552 2970 MZ ZONES&1&X2,NXTOP J 7 1468 Y KN1 086 GEN 552 2971 CW J 1 1475 ) GEN 552 2972 SBR *&7 J 4 1476 H U86 GEN 552 2973 MZ ZONES&X2, 0 J 7 1480 Y KN0 000 GEN 552 2974 22 47 MCW NXTOP,ADRSS#3 J 7 1487 M 086 L94 552 2975 22 48 RTN2 CW 0&X3 J 4 1494 ) 0?0 553 2976 22 49 CS 299 J 4 1498 / 299 553 2977 22 50 FFLIP 0&X3,201,X3,X2,INC,WM J MACRO 2978 MN 201 J 4 1502 D 201 GEN 553 2979 MN J 1 1506 D GEN 553 2980 SAR X2 J 4 1507 Q 094 GEN 553 2981 SBR X3, 0&X3 J 7 1511 H 099 0?0 GEN 553 2982 )0K073 MCW 0&X3,)0L073#1 J 7 1518 M 0?0 L95 GEN 553 2983 SAR X3 J 4 1525 Q 099 GEN 554 2984 MCW )0L073, 2&X2 J 7 1529 M L95 0!2 GEN 554 2985 SBR X2 J 4 1536 H 094 GEN 554 2986 BW )0M073, 1&X3 J 8 1540 V V52 0?1 1 GEN 554 2987 B )0K073 J 4 1548 B V18 GEN 554 2988 )0M073 EQU *&1 J 1552 GEN 2989 22 51 MCW HOLD8,X3 J 7 1552 M L90 099 554 2990 22 52 MCW J 1 1559 M 554 2991 22 53 MCW NXTOP,227 J 7 1560 M 086 227 555 2992 22 54 MCS WORK5,219 J 7 1567 Z 853 219 555 2993 22 55 BW SWIX2,ISFSW J 8 1574 V V94 L10 1 555 2994 22 56 W J 1 1582 2 555 2995 22 57 FORMS J MACRO 2996 BCV *&5 J 5 1583 B V92 @ GEN 555 2997 B *&3 J 4 1588 B V94 GEN 555 2998 CC 1 J 2 1592 F 1 GEN 555 2999 22 58 SWIX2 SW 1&X2 J 4 1594 , 0!1 556 3000 22 59 LCA GM J 4 1598 L M93 556 3001 22 60 SBR SEND&3 J 4 1602 H S75 556 3002 22 61 LCA ADRSS J 4 1606 L L94 556 3003 22 62 SBR NXBTM J 4 1610 H 083 556 3004 22 63 SBR X2 J 4 1614 H 094 556 3005 22 64 BCE *&5,CODE-3,D J 8 1618 B W30 K83 D 556 3006 22 65 B *&5 J 4 1626 B W34 557 3007 22 66 CW 4&X2 J 4 1630 ) 0!4 557 3008 22 67 MZ VZONE,2&X2 J 7 1634 Y L36 0!2 557 3009 22 68 CW ISFSW J 4 1641 ) L10 557 3010 22 69 B RESTR J 4 1645 B S64 557 3011 22 70 FUNST MCW FNCTR,ADRSS J 7 1649 M L00 L94 557 3012 22 71 MCW @]@ 11-5-8 J 4 1656 M L96 557 3013 22 72 A &1,FNCTR J 7 1660 A L97 L00 558 3014 22 73 B RTN2 J 4 1667 B U94 558 3015 22 74 TEST FBCEQ INPUT,CODE-3,1,5,L J MACRO 3016 TEST BCE INPUT, CODE-3, 1 J 8 1671 B X63 K83 1 GEN 558 3017 BCE INPUT, CODE-3, 5 J 8 1679 B X63 K83 5 GEN 558 3018 BCE INPUT, CODE-3, L J 8 1687 B X63 K83 L GEN 558 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 73 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3019 22 75 MCW @B@,SWCHA J 7 1695 M L98 |99 559 3020 22 76 MCW @N@,SWCHB J 7 1702 M L28 X31 559 3021 22 77 MCW @N@,SWCHF J 7 1709 M L28 Y06 559 3022 22 78 MCW @N@,SWCHG J 7 1716 M L28 X39 559 3023 22 79 FIND1 BCE FOUND,000&X1,_ DELTA 11-7-8 J 8 1723 B 997 0|0 _ 559 3024 22 80 SWCHB NOP RTPAR,000&X1,) RT PAREN J 8 1731 N X95 0|0 ) 560 3025 22 81 SWCHG NOP DOLR1,000&X1,$ DOLLAR, A-OPERAND ALSO MODIFIED J 8 1739 N Z95 0|0 $ 560 3026 22 82 DONE BCE PASS,000&X1,} GROUP MARK J 8 1747 B J63 0|0 } GMARK 560 3027 22 83 SBR X1 J 4 1755 H 089 560 3028 22 84 B FIND1 J 4 1759 B X23 560 3029 22 85 INPUT MCW @N@,SWCHA J 7 1763 M L28 |99 560 3030 22 86 MCW @B@,SWCHB J 7 1770 M L98 X31 561 3031 22 87 MCW @M@,SWCHF J 7 1777 M L99 Y06 561 3032 22 88 MCW @B@,SWCHG J 7 1784 M L98 X39 561 3033 22 89 B FIND1 J 4 1791 B X23 561 3034 22 90 RTPAR MCW @N@,SWCHA J 7 1795 M L28 |99 561 3035 22 91 B DONE J 4 1802 B X47 561 3036 22 92 SWCHF NOP @B@,SWCHB J 7 1806 N L98 X31 562 3037 22 93 MCW @B@,SWCHA J 7 1813 M L98 |99 562 3038 22 94 B MIXUP J 4 1820 B /03 562 3039 22 95 UNDEF CS 299 J 4 1824 / 299 562 3040 22 96 SW FAILSW J 4 1828 , 184 562 3041 22 97 MCW @ERROR 10 - UNDEFINED VARIABLE @,230 J 7 1832 M M29 230 562 3042 22 98 FFLIP 0&X3,231,X3,X1,INC,WM J MACRO 3043 MN 231 J 4 1839 D 231 GEN 562 3044 MN J 1 1843 D GEN 563 3045 SAR X1 J 4 1844 Q 089 GEN 563 3046 SBR X3, 0&X3 J 7 1848 H 099 0?0 GEN 563 3047 )0K076 MCW 0&X3,)0L076#1 J 7 1855 M 0?0 M30 GEN 563 3048 SAR X3 J 4 1862 Q 099 GEN 563 3049 MCW )0L076, 2&X1 J 7 1866 M M30 0|2 GEN 563 3050 SBR X1 J 4 1873 H 089 GEN 563 3051 BW )0M076, 1&X3 J 8 1877 V Y89 0?1 1 GEN 564 3052 B )0K076 J 4 1885 B Y55 GEN 564 3053 )0M076 EQU *&1 J 1889 GEN 3054 22 99 MN CODE,255 J 7 1889 D K86 255 564 3055 23 00 MN J 1 1896 D 564 3056 23 01 MN J 1 1897 D 564 3057 23 02 MCW @STATEMENT @ J 4 1898 M M40 564 3058 23 03 W J 1 1902 2 564 3059 23 04 FORMS J MACRO 3060 BCV *&5 J 5 1903 B Z12 @ GEN 565 3061 B *&3 J 4 1908 B Z14 GEN 565 3062 CC 1 J 2 1912 F 1 GEN 565 3063 23 05 SBR SEND&3,ZEROZ J 7 1914 H S75 K47 565 3064 23 06 BWZ CKFIX,231,K J 8 1921 V Z40 231 K 565 3065 23 07 ZNA MZ @A@,ZEROZ-1 J 7 1929 Y L35 K46 565 3066 23 08 B RESTR J 4 1936 B S64 565 3067 23 09 CKFIX SW 231 J 4 1940 , 231 566 3068 23 10 MCW 231,*&8 J 7 1944 M 231 Z58 566 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 74 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3069 23 11 BCE ZNA,@OPQR@, INITIALIZED J 8 1951 B Z29 M44 566 3070 23 12 CHAIN 3 J MACRO 3071 BCE J 1 1959 B GEN 566 3072 BCE J 1 1960 B GEN 566 3073 BCE J 1 1961 B GEN 566 3074 23 13 MZ @K@,ZEROZ-1 J 7 1962 Y M45 K46 566 3075 23 14 B RESTR J 4 1969 B S64 567 3076 23 15 OVFLW NOP FULL J 4 1973 N K11 567 3077 23 16 MCW @B@,OVFLW J 7 1977 M L98 Z73 567 3078 23 17 MCW UPLIM,X1 J 7 1984 M 848 089 567 3079 23 18 B CHAIN J 4 1991 B S01 567 3080 23 19 DOLR1 SBR SWCHG&3,DOLR2 J 7 1995 H X42 !13 567 3081 23 20 MCW @B@,SWCHA J 7 2002 M L98 |99 568 3082 23 21 B DONE J 4 2009 B X47 568 3083 23 22 DOLR2 SBR SWCHG&3,DOLR1 J 7 2013 H X42 Z95 568 3084 23 23 MCW @N@,SWCHA J 7 2020 M L28 |99 568 3085 23 24 B DONE J 4 2027 B X47 568 3086 23 25 FIXED MZ @J@,VZONE J 7 2031 Y M46 L36 568 3087 23 26 BW FUNST,ISFSW J 8 2038 V W49 L10 1 569 3088 23 27 A PARAMA&4,WORK5 J 7 2046 A 690 853 569 3089 23 28 B PACK J 4 2053 B T85 569 3090 23 29 OUT MLC SAVE2,X1 J 7 2057 M 856 089 569 3091 23 30 CS 0&X2 J 4 2064 / 0!0 569 3092 23 31 CS J 1 2068 / 569 3093 23 32 SBR TCLEAR,SYS4 J 7 2069 H 710 M99 569 3094 23 33 SWCHD NOP DUN J 4 2076 N J47 570 3095 23 34 SW GM J 4 2080 , M93 570 3096 23 35 MCW @B@,SWCHD J 7 2084 M L98 !76 570 3097 23 36 MCW @)@,SWCHC J 7 2091 M M47 S56 570 3098 23 37 MCW @N@,SWCHE J 7 2098 M L28 943 570 3099 23 38 MCW @N@,SWCHA J 7 2105 M L28 |99 570 3100 23 39 SBR CHAIN&3,UNDEF J 7 2112 H S04 Y24 571 3101 23 40 SBR GOBAK&3,FIND2 J 7 2119 H T01 947 571 3102 23 41 CS 0&X2 J 4 2126 / 0!0 571 3103 23 42 SBR X2,1&X1 J 7 2130 H 094 0|1 571 3104 23 43 SBR SAVE2 J 4 2137 H 856 571 3105 23 44 CC J J 2 2141 F J 571 3106 23 45 B START J 4 2143 B 879 571 3107 23 46 DUN BSS 333,C J 5 2147 B 333 C 572 3108 23 47 MCW @VARBLQUIN@,110 J 7 2152 M M56 110 572 3109 34 48 B MONTOR J 4 2159 B 769 572 3110 23 49 PASS MVDWN X3,X2 J MACRO 3111 PASS LCA 0&X3,0&X2 J 7 2163 L 0?0 0!0 GEN 572 3112 SAR X3 J 4 2170 Q 099 GEN 572 3113 C 0&X2 J 4 2174 C 0!0 GEN 572 3114 SAR X2 J 4 2178 Q 094 GEN 572 3115 23 50 MCW X3,X1 J 7 2182 M 099 089 573 3116 23 51 B START J 4 2189 B 879 573 3117 23 52 BOTM SBR X1,1&X1 J 7 2193 H 089 0|1 573 3118 23 53 SBR X3,1&X3 J 7 2200 H 099 0?1 573 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 75 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3119 23 54 B FIND1 J 4 2207 B X23 573 3120 23 55 FULL FQUIT J MACRO 3121 FULL CS 332 J 4 2211 / 332 GEN 573 3122 CS J 1 2215 / GEN 573 3123 CC 1 J 2 2216 F 1 GEN 574 3124 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 J 7 2218 M M92 270 GEN 574 3125 W J 1 2225 2 GEN 574 3126 CC 1 J 2 2226 F 1 GEN 574 3127 BCE *&6,MONTOR,1 J 8 2228 B K41 769 1 GEN 574 3128 RWD 1 J 5 2236 U %U1 R GEN 574 3129 H *-3 J 4 2241 . K41 GEN 574 3130 23 56 ZEROZ DCW @000@ J 3 2247 575 3131 23 57 LGSW DC #1 J 1 2248 575 3132 23 58 ORG * J 2249 3133 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG J 2249 3134 DCW #1 J 1 2249 GEN 575 3135 ZONES DC 9 J 1 2250 GEN 575 3136 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ J 31 2281 GEN 575 * LTORG* GEN DCW @S@ J 1 2282 LIT 575 CODE J DCW #04 J 4 2286 AREA 576 WORK J DCW #10 J 10 2296 AREA 576 DCW @01@ J 2 2298 LIT 576 FNCTRJ DCW #02 J 2 2300 AREA 576 BOX J DCW #01 J 1 2301 AREA 576 DCW @@}#*-&),@ J 8 2309 LIT 576 ISFSWJ DCW #01 J 1 2310 AREA 576 MOD J DCW #04 J 4 2314 AREA 577 DCW @ @ J 4 2318 LIT 577 DCW @ @ J 1 2319 LIT 577 HEX2 J DCW #08 J 8 2327 AREA 577 DCW @N@ J 1 2328 LIT 577 DCW @IJKLMN@ J 6 2334 LIT 577 DCW @A@ J 1 2335 LIT 577 VZONEJ DCW #01 J 1 2336 AREA 578 DCW &16000 J 5 2341 LIT 578 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ J 36 2377 LIT 579 HOLD5J DCW #05 J 5 2382 AREA 580 HOLD8J DCW #08 J 8 2390 AREA 580 DCW @0@ J 1 2391 LIT 580 ADRSSJ DCW #03 J 3 2394 AREA 580 )0L073 DCW #01 J 1 2395 AREA 580 DCW @]@ J 1 2396 LIT 580 DCW &1 J 1 2397 LIT 580 DCW @B@ J 1 2398 LIT 581 DCW @M@ J 1 2399 LIT 581 DCW @ERROR 10 - UNDEFINED VARIABLE @ J 30 2429 LIT 581 )0L076 DCW #01 J 1 2430 AREA 581 DCW @STATEMENT @ J 10 2440 LIT 582 DCW @OPQR@ J 4 2444 LIT 582 1 1401 FORTRAN VARIABLES PHASE FOUR 50163 PAGE 76 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @K@ J 1 2445 LIT 582 DCW @J@ J 1 2446 LIT 582 DCW @)@ J 1 2447 LIT 582 DCW @VARBLQUIN@ J 9 2456 LIT 582 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ J 36 2492 LIT 583 3137 23 59 GM DC @}@ G-M J 1 2493 GMARK 583 3138 23 60 DC @ @ SPACE FOR FANCY SCAN J 5 2498 584 3139 23 61 SYS4 DCW @}@ WORK AND SYSTEM GROUP MARK J 1 2499 GMARK 584 3140 23 62 XFR BEGIN J B 857 585 1 1401 FORTRAN VARIABLES PHASE FIVE 50173 PAGE 77 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3141 23 63 JOB 1401 FORTRAN VARIABLES PHASE FIVE J 3142 23 64 110 DCW @VARBL QUIN@ J 10 0110 588 3143 23 65 ORG PHSE3 J 0857 3144 23 66 CKREF CC J J 2 0857 F J 589 3145 23 67 MCW X1,KEEP2#3 J 7 0859 M 089 |79 589 3146 23 68 MCW PARAMA&2,X2 J 7 0866 M 688 094 589 3147 23 69 SCAN BCE ISGM,0&X2,} 12-7-8 J 8 0873 B 945 0!0 } GMARK 589 3148 23 70 SBR X2 J 4 0881 H 094 589 3149 23 71 C X2,NXBTM J 7 0885 C 094 083 589 3150 23 72 BU SCAN J 5 0892 B 873 / 590 3151 23 73 MCW KEEP2,X1 J 7 0897 M |79 089 590 3152 23 74 FENDX D,,,XBEGIN,XBEGIN,XBEGIN,SAUCEK-2,CONST ONE J MACRO 3153 BSS 333,D J 5 0904 B 333 D GEN 590 3154 SBR INITAP&6,XBEGIN J 7 0909 H 786 838 GEN 590 3155 SBR BCLEAR J 4 0916 H 833 GEN 590 3156 SBR INITXT&3,XBEGIN J 7 0920 H 796 838 GEN 590 3157 SBR TCLEAR,SAUCEK-2 J 7 0927 H 710 O98 GEN 591 3158 LCA @CONST ONE@,110 J 7 0934 L |88 110 GEN 591 3159 B MONTER J 4 0941 B 700 GEN 591 3160 23 75 ISGM BW UNREF,0&X2 J 8 0945 V 965 0!0 1 591 3161 23 76 MN 0&X2 J 4 0953 D 0!0 591 3162 23 77 SBR X2 J 4 0957 H 094 591 3163 23 78 B SCAN J 4 0961 B 873 591 3164 23 79 UNREF CS 299 J 4 0965 / 299 592 3165 23 80 MCW @ERROR 11 - UNREFERENCED VARIABLE @,233 J 7 0969 M /21 233 592 3166 23 81 MCW X2,X3 J 7 0976 M 094 099 592 3167 23 82 NOPR NOP 1&X3 J 4 0983 N 0?1 592 3168 23 83 SAR X3 J 4 0987 Q 099 592 3169 23 84 BW FLIP,2&X3 J 8 0991 V |03 0?2 1 592 3170 23 85 B NOPR J 4 0999 B 983 592 3171 23 86 FLIP FFLIP 1&X3,234,X3,X1,INCL,WM J MACRO 3172 FLIP MN 234 J 4 1003 D 234 GEN 593 3173 MN J 1 1007 D GEN 593 3174 SAR X1 J 4 1008 Q 089 GEN 593 3175 SBR X3, 1&X3 J 7 1012 H 099 0?1 GEN 593 3176 )0K081 MCW 0&X3,)0L081#1 J 7 1019 M 0?0 /22 GEN 593 3177 SAR X3 J 4 1026 Q 099 GEN 593 3178 MCW )0L081, 2&X1 J 7 1030 M /22 0|2 GEN 593 3179 SBR X1 J 4 1037 H 089 GEN 594 3180 BW )0M081, 1&X3 J 8 1041 V |53 0?1 1 GEN 594 3181 B )0K081 J 4 1049 B |19 GEN 594 3182 )0M081 EQU *&1 J 1053 GEN 3183 23 87 W J 1 1053 2 594 3184 23 88 FORMS J MACRO 3185 BCV *&5 J 5 1054 B |63 @ GEN 594 3186 B *&3 J 4 1059 B |65 GEN 594 3187 CC 1 J 2 1063 F 1 GEN 594 3188 23 89 MN 0&X2 J 4 1065 D 0!0 595 3189 23 90 SAR X2 J 4 1069 Q 094 595 3190 23 91 B SCAN J 4 1073 B 873 595 1 1401 FORTRAN VARIABLES PHASE FIVE 50173 PAGE 78 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3191 23 92 LTORG * J 1077 KEEP2J DCW #03 J 3 1079 AREA 595 DCW @CONST ONE@ J 9 1088 LIT 595 DCW @ERROR 11 - UNREFERENCED VARIABLE @ J 33 1121 LIT 596 )0L081 DCW #01 J 1 1122 AREA 596 3192 23 93 DCW @}@ SYSTEM GROUP MARK J 1 1123 GMARK 596 3193 23 94 XFR CKREF J B 857 597 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 79 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3194 23 95 JOB 1401 FORTRAN CONSTANT PHASE ONE J 3195 23 96 FBEGN CONST ONE,X1,,X2,R,X3,R,K J MACRO 3196 SFX K K GEN 3197 110 DCW @CONST ONE@ K 9 0110 GEN 600 3198 X1 EQU 089 K 0089 GEN 3199 X2 EQU 094 K 0094 GEN 3200 094 DCW 000 K 3 0094 GEN 601 3201 096 DC 00 K 2 0096 GEN 601 3202 X3 EQU 099 K 0099 GEN 3203 099 DCW 000 K 3 0099 GEN 601 3204 100 DC 0 K 1 0100 GEN 601 3205 23 97 ORG XBEGIN K 0838 3206 23 98 TRACK EQU 200 K 0200 3207 23 99 NXBTM EQU 083 K 0083 3208 24 00 INITL CS TRACK&99 K 4 0838 / 299 602 3209 24 01 SW GM K 4 0842 , L49 602 3210 24 02 SW TRACK K 4 0846 , 200 602 3211 24 03 MCW PARAMA&2,X2 K 7 0850 M 688 094 602 3212 24 04 MN 000&X2 K 4 0857 D 0!0 602 3213 24 05 MN K 1 0861 D 602 3214 24 06 SAR X2 K 4 0862 Q 094 602 3215 24 07 SBR NXBTM K 4 0866 H 083 603 3216 24 08 LCA GM, 1&X2 K 7 0870 L L49 0!1 603 3217 24 09 START BCE OUT,000&X1, BLANK K 8 0877 B J53 0|0 603 3218 24 10 MCW 000&X1,CODE#4 K 7 0885 M 0|0 L53 603 3219 24 11 LCA 000&X1,WORK#10 K 7 0892 L 0|0 L63 603 3220 24 12 SAR X1 K 4 0899 Q 089 603 3221 24 13 SBR HEX3#3 K 4 0903 H L66 604 3222 24 14 SBR KILL#3,0&X2 K 7 0907 H L69 0!0 604 3223 24 15 LCA WORK,000&X2 K 7 0914 L L63 0!0 604 3224 24 16 SBR X2 K 4 0921 H 094 604 3225 24 17 MCW CODE-3,*&8 K 7 0925 M L50 939 604 3226 24 18 BCE TRYIT,@UPL3165DER@,0 K 8 0932 B 972 L79 0 604 3227 24 19 CHAIN 9 K MACRO 3228 BCE K 1 0940 B GEN 604 3229 BCE K 1 0941 B GEN 605 3230 BCE K 1 0942 B GEN 605 3231 BCE K 1 0943 B GEN 605 3232 BCE K 1 0944 B GEN 605 3233 BCE K 1 0945 B GEN 605 3234 BCE K 1 0946 B GEN 605 3235 BCE K 1 0947 B GEN 605 3236 BCE K 1 0948 B GEN 606 3237 24 20 MVDWN X1,X2 K MACRO 3238 LCA 0&X1,0&X2 K 7 0949 L 0|0 0!0 GEN 606 3239 SAR X1 K 4 0956 Q 089 GEN 606 3240 C 0&X2 K 4 0960 C 0!0 GEN 606 3241 SAR X2 K 4 0964 Q 094 GEN 606 3242 24 21 B START K 4 0968 B 877 606 3243 24 22 TRYIT SBR X3,TABLE-4 K 7 0972 H 099 L07 606 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 80 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3244 24 23 MCW CODE-3,SCAN&7 K 7 0979 M L50 993 607 3245 24 24 SCAN BCE SETUP,004&X3,0 D-CHAR MODIFIED K 8 0986 B |02 0?4 0 607 3246 24 25 SBR X3 K 4 0994 H 099 607 3247 24 26 B SCAN K 4 0998 B 986 607 3248 24 27 SETUP MCW 006&X3,CNTRL#2 K 7 1002 M 0?6 L81 607 3249 24 28 MCW CNTRL-1,TEST2&7 K 7 1009 M L80 |38 607 3250 24 29 TEST1 BCE GUTS,CNTRL,2 K 8 1016 B |67 L81 2 608 3251 24 30 A @1@,CNTRL K 7 1024 A L82 L81 608 3252 24 31 TEST2 BCE BUMP1,0&X1,0 K 8 1031 B |55 0|0 0 608 3253 24 32 BCE GUTS,0&X1,} GM K 8 1039 B |67 0|0 } GMARK 608 3254 24 33 SBR X1 K 4 1047 H 089 608 3255 24 34 B TEST2 K 4 1051 B |31 608 3256 24 35 BUMP1 MN 0&X1 K 4 1055 D 0|0 609 3257 24 36 SAR X1 K 4 1059 Q 089 609 3258 24 37 B TEST1 K 4 1063 B |16 609 3259 24 38 GUTS BWZ MAYBE,000&X1,3 NUMBER,EQUAL SIGN,WORD MK K 8 1067 V |91 0|0 3 609 3260 24 39 SBR X1 K 4 1075 H 089 609 3261 24 40 BCE SUBSC,1&X1,$ K 8 1079 B /76 0|1 $ 609 3262 24 41 B GUTS K 4 1087 B |67 609 3263 24 42 MAYBE BCE PASS,000&X1,} 12-7-8 K 8 1091 B J95 0|0 } GMARK 610 3264 24 43 SBR X1 K 4 1099 H 089 610 3265 24 44 BCE GUTS,001&X1,# K 8 1103 B |67 0|1 # 610 3266 24 45 BCE GUTS,1&X1,@ K 8 1111 B |67 0|1 @ 610 3267 24 46 MCW 002&X1,BOX&1 K 7 1119 M 0|2 L48 610 3268 24 47 MCW K 1 1126 M 610 3269 24 48 MCW K 1 1127 M 610 3270 24 49 SAR X1 K 4 1128 Q 089 611 3271 24 50 MCW BOX&1,*&8 K 7 1132 M L48 /46 611 3272 24 51 BCE RUCON,@)}@.#%$,*-&@,0 RT PAREN,GROUP MARK K 8 1139 B S16 L93 0 611 3273 24 52 CHAIN 10 K MACRO 3274 BCE K 1 1147 B GEN 611 3275 BCE K 1 1148 B GEN 611 3276 BCE K 1 1149 B GEN 611 3277 BCE K 1 1150 B GEN 611 3278 BCE K 1 1151 B GEN 612 3279 BCE K 1 1152 B GEN 612 3280 BCE K 1 1153 B GEN 612 3281 BCE K 1 1154 B GEN 612 3282 BCE K 1 1155 B GEN 612 3283 BCE K 1 1156 B GEN 612 3284 24 53 BCE PASS,1&X1,} GM K 8 1157 B J95 0|1 } GMARK 612 3285 24 54 BMPX1 SBR X1,1&X1 K 7 1165 H 089 0|1 613 3286 24 55 B GUTS K 4 1172 B |67 613 3287 24 56 SUBSC NOP SUB2 K 4 1176 N /98 613 3288 24 57 MCW @B@,SUBSC K 7 1180 M L94 /76 613 3289 24 58 MCW BLANK,SUBSW&4 K 7 1187 M N04 !42 613 3290 24 59 B GUTS K 4 1194 B |67 613 3291 24 60 SUB2 MCW @N@,SUBSC K 7 1198 M L95 /76 614 3292 24 61 MCW @/@,SUBSW&4 K 7 1205 M L96 !42 614 3293 24 62 B GUTS K 4 1212 B |67 614 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 81 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3294 24 63 RUCON BCE BAKUP,3&X1,. K 8 1216 B K32 0|3 . 614 3295 24 64 MCW BOX-1,*&8 K 7 1224 M L46 S38 614 3296 24 65 BCE BMPX1,@?ABCDEFGHI!JKLMNOPQR@,0 &ZERO,- ZERO K 8 1231 B /65 M16 0 615 3297 24 66 CHAIN 19 K MACRO 3298 BCE K 1 1239 B GEN 615 3299 BCE K 1 1240 B GEN 615 3300 BCE K 1 1241 B GEN 615 3301 BCE K 1 1242 B GEN 615 3302 BCE K 1 1243 B GEN 615 3303 BCE K 1 1244 B GEN 615 3304 BCE K 1 1245 B GEN 616 3305 BCE K 1 1246 B GEN 616 3306 BCE K 1 1247 B GEN 616 3307 BCE K 1 1248 B GEN 616 3308 BCE K 1 1249 B GEN 616 3309 BCE K 1 1250 B GEN 616 3310 BCE K 1 1251 B GEN 616 3311 BCE K 1 1252 B GEN 617 3312 BCE K 1 1253 B GEN 617 3313 BCE K 1 1254 B GEN 617 3314 BCE K 1 1255 B GEN 617 3315 BCE K 1 1256 B GEN 617 3316 BCE K 1 1257 B GEN 617 3317 24 67 BCE CKIF,3&X1,) K 8 1258 B J83 0|3 ) 617 3318 24 68 SET SW 003&X1 K 4 1266 , 0|3 618 3319 24 69 MCW HEX3,X3 K 7 1270 M L66 099 618 3320 24 70 LCA 000&X3,000&X2 K 7 1277 L 0?0 0!0 618 3321 24 71 SBR X2 K 4 1284 H 094 618 3322 24 72 MCW @<@,3&X1 12-6-8 K 7 1288 M M17 0|3 618 3323 24 73 SBR KLOBR&6,3&X1 K 7 1295 H J17 0|3 618 3324 24 74 CW 001&X2 K 4 1302 ) 0!1 619 3325 24 75 LCA @_@,000&X2 11-7-8 K 7 1306 L M18 0!0 619 3326 24 76 SBR X2 K 4 1313 H 094 619 3327 24 77 CW 001&X2 K 4 1317 ) 0!1 619 3328 24 78 CW ODDSW K 4 1321 ) N44 619 3329 24 79 S XPONT#2 K 4 1325 S M20 619 3330 24 80 S COUNT#3 K 4 1329 S M23 619 3331 24 81 S TOTAL K 4 1333 S M28 620 3332 24 82 MCW @,@,STODD K 7 1337 M M24 K64 620 3333 24 83 MCW @N@,SWCHX K 7 1344 M L95 T90 620 3334 24 84 MCW @B@,SWCHZ K 7 1351 M L94 U04 620 3335 24 85 SBR SWCHA&3,A K 7 1358 H K75 L41 620 3336 24 86 SBR SWCHS&3,S K 7 1365 H K46 L42 620 3337 24 87 SBR X1,2&X1 K 7 1372 H 089 0|2 621 3338 24 88 NORML MCW 000&X1,BOX K 7 1379 M 0|0 L47 621 3339 24 89 SAR X1 K 4 1386 Q 089 621 3340 24 90 SWCHX NOP &1,XPONT K 7 1390 N M25 M20 621 3341 24 91 A &1,TOTAL#3 K 7 1397 A M25 M28 621 3342 24 92 SWCHZ BCE NORML,BOX,0 PASSES BY LEADING ZEROS K 8 1404 B T79 L47 0 622 3343 24 93 BCE SWCHS,BOX,. K 8 1412 B K43 L47 . 622 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 82 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3344 24 94 BCE SWCHA,SWCHZ,B BRANCHES ON FIRST SIGNIF CHAR K 8 1420 B K72 U04 B 622 3345 24 95 A &1,COUNT K 7 1428 A M25 M23 622 3346 24 96 TEST BCE CNLFT,BOX,# K 8 1435 B X20 L47 # 622 3347 24 97 BCE *&9,BOX,@ K 8 1443 B U59 L47 @ 623 3348 24 98 BWZ NORML,BOX,2 NO ZONE K 8 1451 V T79 L47 2 623 3349 24 99 CR C SWCHA&3,NOPAD K 7 1459 C K75 L45 623 3350 25 00 * DECIMAL POINT SENDS THE ADDRESS OF NOP TO SWCHA&3 3351 25 01 * CANNOT USE ADDRESS CONSTANT 3352 25 02 BU FIXED K 5 1466 B Z31 / 623 3353 25 03 BWZ MARK,XPONT,B K 8 1471 V U86 M20 B 623 3354 25 04 A &1,XPONT K 7 1479 A M25 M20 624 3355 25 05 MARK SW 002&X1 K 4 1486 , 0|2 624 3356 25 06 BCE ODDBL,2&X1,. K 8 1490 B Y22 0|2 . 624 3357 25 07 CKTAL BCE TAIL,BOX,E K 8 1498 B Y37 L47 E 624 3358 25 08 FLOAT C TOTAL,&01 K 7 1506 C M28 M30 624 3359 25 09 NOP SYNTX K 4 1513 N X84 624 3360 25 10 NOP K 1 1517 N 624 3361 25 11 C COUNT,&000 K 7 1518 C M23 M33 625 3362 25 12 BU RTLFT K 5 1525 B V49 / 625 3363 25 13 LDZER LCA @?0?@,0&X2 12-0,0,12-0 K 7 1530 L M36 0!0 625 3364 24 14 SBR X2 K 4 1537 H 094 625 3365 25 15 CW 001&X2 K 4 1541 ) 0!1 625 3366 25 16 B BOTM2 K 4 1545 B J00 625 3367 25 17 RTLFT MCW X1,HEX1#3 K 7 1549 M 089 M39 625 3368 25 18 BW *&8,ODDSW K 8 1556 V V71 N44 1 626 3369 25 19 LCA 000&X3,001&X3 K 7 1564 L 0?0 0?1 626 3370 25 20 MCW RIGHT#3,X1 K 7 1571 M M42 089 626 3371 25 21 MCW PARAMA&6,PRESZ#2 K 7 1578 M 692 M44 626 3372 25 22 A &2,PRESZ K 7 1585 A M45 M44 626 3373 25 23 SBR X3,TRACK-2 K 7 1592 H 099 198 627 3374 25 24 SW TRACK K 4 1599 , 200 627 3375 25 25 TWIST MCW 000&X1,BOX K 7 1603 M 0|0 L47 627 3376 25 26 SAR X1 K 4 1610 Q 089 627 3377 25 27 MCW BOX,002&X3 K 7 1614 M L47 0?2 627 3378 25 28 SBR X3 K 4 1621 H 099 627 3379 25 29 BWZ PHEW,001&X1,1 WORD MARK K 8 1625 V W52 0|1 1 628 3380 25 30 S &1,PRESZ K 7 1633 S M25 M44 628 3381 25 31 C PRESZ,&00 K 7 1640 C M44 M47 628 3382 25 32 BU TWIST K 5 1647 B W03 / 628 3383 25 33 PHEW SBR X3,1&X3 K 7 1652 H 099 0?1 628 3384 25 34 PHEW1 BCE *&5,0&X3,0 K 8 1659 B W71 0?0 0 629 3385 25 35 B XEUNT K 4 1667 B W83 629 3386 25 36 MN 0&X3 K 4 1671 D 0?0 629 3387 25 37 SAR X3 K 4 1675 Q 099 629 3388 25 38 B PHEW1 K 4 1679 B W59 629 3389 25 39 XEUNT MN 0&X3 K 4 1683 D 0?0 629 3390 25 40 SAR X3 K 4 1687 Q 099 629 3391 25 41 MCW XPONT,3&X3 K 7 1691 M M20 0?3 630 3392 25 42 MZ @A@,1&X3 K 7 1698 Y M48 0?1 630 3393 25 43 LCA 003&X3,000&X2 K 7 1705 L 0?3 0!0 630 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 83 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3394 25 44 SBR X2 K 4 1712 H 094 630 3395 25 45 B BOTM K 4 1716 B !89 630 3396 25 46 CNLFT CS 332 K 4 1720 / 332 630 3397 25 47 CS K 1 1724 / 630 3398 25 48 SW FAILSW K 4 1725 , 184 631 3399 25 49 MN CODE,256 K 7 1729 D L53 256 631 3400 25 50 CHAIN 2 K MACRO 3401 MN K 1 1736 D GEN 631 3402 MN K 1 1737 D GEN 631 3403 25 51 MCW @EQUAL SIGN, STATEMENT @ K 4 1738 M M70 631 3404 25 52 MCW @ERROR 41 - CONSTANT LEFT SIDE OF @ K 4 1742 M N03 631 3405 25 53 W K 1 1746 2 631 3406 25 54 FORMS K MACRO 3407 BCV *&5 K 5 1747 B X56 @ GEN 632 3408 B *&3 K 4 1752 B X58 GEN 632 3409 CC 1 K 2 1756 F 1 GEN 632 3410 25 55 MCW KILL,X2 K 7 1758 M L69 094 632 3411 25 56 MCW BLANK#1,0&X2 K 7 1765 M N04 0!0 632 3412 25 57 C 0&X1 K 4 1772 C 0|0 632 3413 25 58 SAR X1 K 4 1776 Q 089 632 3414 25 59 B START K 4 1780 B 877 633 3415 25 60 SYNTX FTMSG 44,CONSTANT SYNTAX,CODE,17 K MACRO 3416 SYNTX CS 332 K 4 1784 / 332 GEN 633 3417 CS K 1 1788 / GEN 633 3418 SW FAILSW K 4 1789 , 184 GEN 633 3419 MN CODE,224&17 K 7 1793 D L53 241 GEN 633 3420 MN K 1 1800 D GEN 633 3421 MN K 1 1801 D GEN 633 3422 MCW @ERROR 44 - CONSTANT SYNTAX, STATEMENT @ K 4 1802 M N42 GEN 634 3423 W K 1 1806 2 GEN 634 3424 BCV *&5 K 5 1807 B Y16 @ GEN 634 3425 B *&3 K 4 1812 B Y18 GEN 634 3426 CC 1 K 2 1816 F 1 GEN 634 3427 25 61 B LDZER K 4 1818 B V30 634 3428 25 62 ODDBL MCW @0@,2&X1 K 7 1822 M N43 0|2 634 3429 25 63 SW ODDSW#1 K 4 1829 , N44 635 3430 25 64 B CKTAL K 4 1833 B U98 635 3431 25 65 TAIL ZA &0,BUMP#2 K 7 1837 ? N45 N47 635 3432 25 66 BWZ FLIP,000&X1,2 NO ZONE K 8 1844 V Y63 0|0 2 635 3433 25 67 MZ 000&X1,BUMP K 7 1852 Y 0|0 N47 635 3434 25 68 * ZONE RESPECTIVELY 3435 25 69 SAR X1 K 4 1859 Q 089 635 3436 25 70 FLIP MN 000&X1 K 4 1863 D 0|0 635 3437 25 71 SAR X1 K 4 1867 Q 089 636 3438 25 72 C 0&X1,@Z@ K 7 1871 C 0|0 N48 636 3439 25 73 BL UNITS NUMERIC, TWO DIGIT EXPON K 5 1878 B Y94 T 636 3440 25 74 MN 001&X1,BUMP K 7 1883 D 0|1 N47 636 3441 25 75 B BUMPR K 4 1890 B Z12 636 3442 25 76 UNITS MN 001&X1,BUMP-1 K 7 1894 D 0|1 N46 636 3443 25 77 MN 000&X1,BUMP K 7 1901 D 0|0 N47 637 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 84 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3444 25 78 SAR X1 K 4 1908 Q 089 637 3445 25 79 BUMPR A BUMP,XPONT K 7 1912 A N47 M20 637 3446 25 80 MN 0&X1 K 4 1919 D 0|0 637 3447 25 81 SAR X1 K 4 1923 Q 089 637 3448 25 82 B FLOAT K 4 1927 B V06 637 3449 25 83 FIXED C COUNT,&000 K 7 1931 C M23 M33 637 3450 25 84 BU LFTRT K 5 1938 B Z62 / 638 3451 25 85 LCA @ 0@,000&X2 BLANK, ZERO K 7 1943 L N50 0!0 638 3452 25 86 SBR X2 K 4 1950 H 094 638 3453 25 87 CW 001&X2 K 4 1954 ) 0!1 638 3454 25 88 B BOTM2 K 4 1958 B J00 638 3455 25 89 LFTRT MCW X1,HEX1 K 7 1962 M 089 M39 638 3456 25 90 MCW RIGHT,X3 K 7 1969 M M42 099 638 3457 25 91 SW 0&X3 K 4 1976 , 0?0 639 3458 25 92 SBR X3,TRACK&99 K 7 1980 H 099 299 639 3459 25 93 MCW PARAMA&4,PRESZ K 7 1987 M 690 M44 639 3460 25 94 TURN MCW 002&X1,BOX K 7 1994 M 0|2 L47 639 3461 25 95 SAR X1 K 4 2001 Q 089 639 3462 25 96 MCW BOX,000&X3 K 7 2005 M L47 0?0 639 3463 25 97 SBR X3 K 4 2012 H 099 640 3464 25 98 BWZ WOW,001&X1,1 WORD MARK K 8 2016 V !43 0|1 1 640 3465 25 99 S &1,PRESZ K 7 2024 S M25 M44 640 3466 26 00 C PRESZ,&00 K 7 2031 C M44 M47 640 3467 26 01 SUBSW BU TURN K 5 2038 B Z94 / 640 3468 26 02 WOW SW 001&X3 K 4 2043 , 0?1 640 3469 26 03 LCA TRACK&99,000&X2 K 7 2047 L 299 0!0 641 3470 26 04 SBR X2 K 4 2054 H 094 641 3471 26 05 CW 001&X3 K 4 2058 ) 0?1 641 3472 26 06 C COUNT,&001 K 7 2062 C M23 N53 641 3473 26 07 BU BOTM K 5 2069 B !89 / 641 3474 26 08 CW 001&X2 K 4 2074 ) 0!1 641 3475 26 09 LCA @ @,000&X2 BLANK K 7 2078 L N54 0!0 641 3476 26 10 SBR X2 K 4 2085 H 094 642 3477 26 11 BOTM CW 001&X2 K 4 2089 ) 0!1 642 3478 26 12 MCW HEX1,X1 K 7 2093 M M39 089 642 3479 26 13 BOTM2 SBR X1,1&X1 K 7 2100 H 089 0|1 642 3480 26 14 SBR HEX3 K 4 2107 H L66 642 3481 26 15 KLOBR BCE GUTS,0,< 12-6-8 K 8 2111 B |67 000 < 642 3482 26 16 FQUIT K MACRO 3483 CS 332 K 4 2119 / 332 GEN 642 3484 CS K 1 2123 / GEN 643 3485 CC 1 K 2 2124 F 1 GEN 643 3486 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 K 7 2126 M N90 270 GEN 643 3487 W K 1 2133 2 GEN 643 3488 CC 1 K 2 2134 F 1 GEN 643 3489 BCE *&6,MONTOR,1 K 8 2136 B J49 769 1 GEN 643 3490 RWD 1 K 5 2144 U %U1 R GEN 643 3491 H *-3 K 4 2149 . J49 GEN 644 3492 26 17 OUT FENDX C,GM,,,PHSE2O,,SYS1,CONST TWO K MACRO 3493 OUT BSS 333,C K 5 2153 B 333 C GEN 644 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 85 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3494 SBR INITXT&3,PHSE2O K 7 2158 H 796 849 GEN 644 3495 SBR TCLEAR,SYS1 K 7 2165 H 710 O01 GEN 644 3496 LCA @CONST TWO@,110 K 7 2172 L N99 110 GEN 644 3497 B MONTER K 4 2179 B 700 GEN 644 3498 26 18 CKIF BCE PASS,CODE-3,E K 8 2183 B J95 L50 E 645 3499 26 19 B SET K 4 2191 B S66 645 3500 26 20 PASS MCW HEX3,X3 K 7 2195 M L66 099 645 3501 26 21 MVDWN X3,X2 K MACRO 3502 LCA 0&X3,0&X2 K 7 2202 L 0?0 0!0 GEN 645 3503 SAR X3 K 4 2209 Q 099 GEN 645 3504 C 0&X2 K 4 2213 C 0!0 GEN 645 3505 SAR X2 K 4 2217 Q 094 GEN 645 3506 26 22 MCW X3,X1 K 7 2221 M 099 089 646 3507 26 23 B START K 4 2228 B 877 646 3508 26 24 BAKUP SBR X1,1&X1 K 7 2232 H 089 0|1 646 3509 26 25 B SET K 4 2239 B S66 646 3510 26 26 SWCHS MCW @S@,SWCHX K 7 2243 M O00 T90 646 3511 26 27 MCW NOPAD,SWCHA&3 K 7 2250 M L45 K75 646 3512 26 28 MCW X1,X3 K 7 2257 M 089 099 647 3513 26 29 STODD SW ODDSW K 4 2264 , N44 647 3514 26 30 B NORML K 4 2268 B T79 647 3515 26 31 SWCHA MCW @A@,SWCHX K 7 2272 M M48 T90 647 3516 26 32 MCW NOPAD,SWCHS&3 K 7 2279 M L45 K46 647 3517 26 33 MCW @N@,SWCHZ K 7 2286 M L95 U04 647 3518 26 34 SBR RIGHT,1&X1 K 7 2293 H M42 0|1 648 3519 26 35 MCW @N@,STODD K 7 2300 M L95 K64 648 3520 26 36 B TEST K 4 2307 B U35 648 3521 26 37 TABLE EQU *&1 K 2311 3522 26 38 DCW @R 2E 2D#1L,15,0U,1P,16,01,13,1@ K 30 2340 649 3523 26 39 A DCW @A@ K 1 2341 649 3524 26 40 S DCW @S@ K 1 2342 649 3525 26 41 NOPAD DCW &@N@ K 3 2345 L95 649 3526 26 42 DCW @ @ BLANK K 1 2346 649 3527 26 43 BOX DCW @ @ BLANK K 1 2347 649 3528 26 44 DCW @ @ BLANK K 1 2348 649 3529 26 45 GM DC @}@ GROUP MARK K 1 2349 GMARK 649 3530 26 46 LTORG * K 2350 CODE K DCW #04 K 4 2353 AREA 650 WORK K DCW #10 K 10 2363 AREA 650 HEX3 K DCW #03 K 3 2366 AREA 650 KILL K DCW #03 K 3 2369 AREA 650 DCW @UPL3165DER@ K 10 2379 LIT 650 CNTRLK DCW #02 K 2 2381 AREA 650 DCW @1@ K 1 2382 LIT 650 DCW @)}@.#%$,*-&@ K 11 2393 LIT 651 DCW @B@ K 1 2394 LIT 651 DCW @N@ K 1 2395 LIT 651 DCW @/@ K 1 2396 LIT 651 DCW @?ABCDEFGHI!JKLMNOPQR@ K 20 2416 LIT 651 DCW @<@ K 1 2417 LIT 651 1 1401 FORTRAN CONSTANT PHASE ONE 50183 PAGE 86 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @_@ K 1 2418 LIT 651 XPONTK DCW #02 K 2 2420 AREA 652 COUNTK DCW #03 K 3 2423 AREA 652 DCW @,@ K 1 2424 LIT 652 DCW &1 K 1 2425 LIT 652 TOTALK DCW #03 K 3 2428 AREA 652 DCW &01 K 2 2430 LIT 652 DCW &000 K 3 2433 LIT 652 DCW @?0?@ K 3 2436 LIT 653 HEX1 K DCW #03 K 3 2439 AREA 653 RIGHTK DCW #03 K 3 2442 AREA 653 PRESZK DCW #02 K 2 2444 AREA 653 DCW &2 K 1 2445 LIT 653 DCW &00 K 2 2447 LIT 653 DCW @A@ K 1 2448 LIT 653 DCW @EQUAL SIGN, STATEMENT @ K 22 2470 LIT 654 DCW @ERROR 41 - CONSTANT LEFT SIDE OF @ K 33 2503 LIT 655 BLANKK DCW #01 K 1 2504 AREA 655 DCW @ERROR 44 - CONSTANT SYNTAX, STATEMENT @ K 38 2542 LIT 656 DCW @0@ K 1 2543 LIT 656 ODDSWK DCW #01 K 1 2544 AREA 657 DCW &0 K 1 2545 LIT 657 BUMP K DCW #02 K 2 2547 AREA 657 DCW @Z@ K 1 2548 LIT 657 DCW @ 0@ K 2 2550 LIT 657 DCW &001 K 3 2553 LIT 657 DCW @ @ K 1 2554 LIT 657 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ K 36 2590 LIT 658 DCW @CONST TWO@ K 9 2599 LIT 659 DCW @S@ K 1 2600 LIT 659 3531 26 47 SYS1 DCW @}@ SYSTEM GROUP MARK K 1 2601 GMARK 659 3532 26 48 ORG *&X00 K 2700 3533 26 49 SAUCE EQU *&1 K 2700 3534 26 50 XFR INITL K B 838 660 1 1401 FORTRAN CONSTANT PHASE TWO 50193 PAGE 87 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3535 26 51 JOB 1401 FORTRAN CONSTANT PHASE TWO K 3536 26 52 FBEGN CONST TWO,X1,R,X2,,X3,R,O K MACRO 3537 SFX O O GEN 3538 110 DCW @CONST TWO@ O 9 0110 GEN 663 3539 X1 EQU 089 O 0089 GEN 3540 089 DCW 000 O 3 0089 GEN 664 3541 091 DC 00 O 2 0091 GEN 664 3542 X2 EQU 094 O 0094 GEN 3543 X3 EQU 099 O 0099 GEN 3544 099 DCW 000 O 3 0099 GEN 665 3545 100 DC 0 O 1 0100 GEN 665 3546 26 53 ORG XBEGIN O 0838 3547 26 54 NXBTM EQU 083 O 0083 3548 26 55 NOMO EQU PARAMA&2 O 0688 3549 26 56 BASE DCW #3 O 3 0840 666 3550 26 57 MAX DCW #4 O 4 0844 666 3551 26 58 DC #1 O 1 0845 666 3552 26 59 UPLIM DCW #3 O 3 0848 666 3553 26 60 PHSE2 MCW X2, X3 O 7 0849 M 094 099 666 3554 26 61 SW GM2 O 4 0856 , T33 666 3555 26 62 CLR1 CS 000&X3 O 4 0860 / 0?0 666 3556 26 63 SBR X3 O 4 0864 H 099 666 3557 26 64 C X3,&SAUCE-1 O 7 0868 C 099 T68 667 3558 26 65 BU CLR1 O 5 0875 B 860 / 667 3559 26 66 SBR X1,SAUCE-1 O 7 0880 H 089 N99 667 3560 26 67 * SHIFT SOURCE PROGRAM UP TO COMPILER PROGRAM 3561 26 68 MOVUP X2,X1,NOMO,ALL,| O MACRO 3562 MN 0&X1 O 4 0887 D 0|0 GEN 667 3563 SAR X1 O 4 0891 Q 089 GEN 667 3564 )0J091 MCM 0&X2 O 4 0895 P 0!0 GEN 667 3565 SAR )0L091&6 O 4 0899 Q 921 GEN 667 3566 MCM 0&X2,1&X1 O 7 0903 P 0!0 0|1 GEN 668 3567 MN O 1 0910 D GEN 668 3568 SBR X1 O 4 0911 H 089 GEN 668 3569 )0L091 SBR X2,0 O 7 0915 H 094 000 GEN 668 3570 BCE )0J091,0&X1,| O 8 0922 B 895 0|0 | GEN 668 3571 MN 0&X2 O 4 0930 D 0!0 GEN 668 3572 CW O 1 0934 ) GEN 668 3573 SW 0&X1 O 4 0935 , 0|0 GEN 669 3574 C X2,NOMO O 7 0939 C 094 688 GEN 669 3575 BU )0J091 O 5 0946 B 895 / GEN 669 3576 26 69 CW 0&X2 O 4 0951 ) 0!0 669 3577 26 70 CW O 1 0955 ) 669 3578 26 71 SBR BASE,1&X1 O 7 0956 H 840 0|1 669 3579 26 72 MN TWO9,BASE O 7 0963 D T32 840 669 3580 26 73 MN O 1 0970 D 670 3581 26 74 MCW NXBTM,X3 O 7 0971 M 083 099 670 3582 26 75 * CLEAR BALANCE OF CORE 3583 26 76 CLR2 CS 000&X3 O 4 0978 / 0?0 670 3584 26 77 SBR X3 O 4 0982 H 099 670 1 1401 FORTRAN CONSTANT PHASE TWO 50193 PAGE 88 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3585 26 78 C X3,BASE O 7 0986 C 099 840 670 3586 26 79 BU CLR2 O 5 0993 B 978 / 670 3587 26 80 MCW @<@,0&X3 12-6-8 O 7 0998 M T69 0?0 670 3588 26 81 * DIVIDE REST OF CORE FOR TABLES RATIO 3 TO 7 3589 26 82 MCW NXBTM,LOC O 7 1005 M 083 T30 671 3590 26 83 B UNPAK O 4 1012 B S56 671 3591 26 84 MCW NUM#5,MAX&1 O 7 1016 M T74 845 671 3592 26 85 MCW BASE,LOC O 7 1023 M 840 T30 671 3593 26 86 B UNPAK O 4 1030 B S56 671 3594 26 87 S NUM,MAX&1 O 7 1034 S T74 845 671 3595 26 88 A MAX,ACCUM#6 O 7 1041 A 844 T80 672 3596 26 89 A ACCUM O 4 1048 A T80 672 3597 26 90 A MAX,ACCUM 3*MAX IN ACCUM O 7 1052 A 844 T80 672 3598 26 91 * 1/10 OF NXBTM-BASE IN MAX 3599 26 92 A NUM,ACCUM O 7 1059 A T74 T80 672 3600 26 93 MCW ACCUM-3,X3 O 7 1066 M T77 099 672 3601 26 94 A X3 O 4 1073 A 099 672 3602 26 95 MZ ZON19&X3,ACCUM-2 O 7 1077 Y TC4 T78 673 3603 26 96 MZ ZON19&1&X3,ACCUM O 7 1084 Y TC5 T80 673 3604 26 97 MCW ACCUM,X3 O 7 1091 M T80 099 673 3605 26 98 SW 002&X3 O 4 1098 , 0?2 673 3606 26 99 MCW @<@ 12-6-8 O 4 1102 M T69 673 3607 27 00 SBR UPLIM O 4 1106 H 848 673 3608 27 01 MCW X1,X2 O 7 1110 M 089 094 674 3609 27 02 MN 0&X2 O 4 1117 D 0!0 674 3610 27 03 SAR X1 O 4 1121 Q 089 674 3611 27 04 MCW NXBTM,X3 O 7 1125 M 083 099 674 3612 27 05 LCA GM2,1&X3 O 7 1132 L T33 0?1 674 3613 27 06 CS 299 O 4 1139 / 299 674 3614 27 07 MCW PARAMA&6,X3 O 7 1143 M 692 099 675 3615 27 08 MCW @0@ O 4 1150 M T81 675 3616 27 09 SW 200 O 4 1154 , 200 675 3617 27 10 MCW NXBTM,LDFLT&6 O 7 1158 M 083 /71 675 3618 27 11 LDFLT LCA 199&X3,0 O 7 1165 L 1I9 000 675 3619 27 12 SBR NXBTM O 4 1172 H 083 675 3620 27 13 SBR LODX&6 O 4 1176 H /94 675 3621 27 14 MN PARAMA&4,X3 O 7 1180 D 690 099 676 3622 27 15 MN O 1 1187 D 676 3623 27 16 LODX LCA 199&X3,0 O 7 1188 L 1I9 000 676 3624 27 17 SBR X3 O 4 1195 H 099 676 3625 27 18 SBR ONEADR O 4 1199 H 142 676 3626 27 19 LCA @1@,0&X3 O 7 1203 L T82 0?0 676 3627 27 20 SBR XEXPON O 4 1210 H 157 676 3628 27 21 LCA @A0?@ 0,12-0 O 4 1214 L T85 677 3629 27 22 SBR NXBTM O 4 1218 H 083 677 3630 27 23 FENDX C,GM2,,PHSE2,,PHSE2,SYS2,CONST TRI O MACRO 3631 BSS 333,C O 5 1222 B 333 C GEN 677 3632 SBR INITAP&6,PHSE2 O 7 1227 H 786 849 GEN 677 3633 SBR BCLEAR O 4 1234 H 833 GEN 677 3634 SBR TCLEAR,SYS2 O 7 1238 H 710 T97 GEN 677 1 1401 FORTRAN CONSTANT PHASE TWO 50193 PAGE 89 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3635 LCA @CONST TRI@,110 O 7 1245 L T94 110 GEN 677 3636 B MONTER O 4 1252 B 700 GEN 678 3637 27 24 UNPAK SBR EXIT&3 O 4 1256 H T25 678 3638 27 25 MN LOC,NUM O 7 1260 D T30 T74 678 3639 27 26 MN O 1 1267 D 678 3640 27 27 MN O 1 1268 D 678 3641 27 28 MCW O 1 1269 M 678 3642 27 29 MZ LOC,TWO9 O 7 1270 Y T30 T32 678 3643 27 30 MZ LOC-2,TWO9-1 O 7 1277 Y T28 T31 679 3644 27 31 NOP ZON19-3 O 4 1284 N T31 679 3645 27 32 SAR X3 O 4 1288 Q 099 679 3646 27 33 COMP C 004&X3,TWO9 O 7 1292 C 0?4 T32 679 3647 27 34 SAR X3 O 4 1299 Q 099 679 3648 27 35 A &1,NUM-3 O 7 1303 A T95 T71 679 3649 27 36 BU COMP O 5 1310 B S92 / 679 3650 27 37 MZ @ @,NUM-3 O 7 1315 Y T96 T71 680 3651 27 38 EXIT B 000 O 4 1322 B 000 680 3652 27 39 LOC DCW @0J @ O 5 1330 680 3653 27 40 TWO9 DCW @99@ O 2 1332 680 3654 27 41 GM2 DC @}@ O 1 1333 GMARK 680 3655 27 42 ZON19 DC @9@ O 1 1334 680 3656 27 43 DC @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ O 31 1365 681 3657 27 44 LTORG * O 1366 DCW &SAUCEO-1 O 3 1368 N99 ADCON 681 DCW @<@ O 1 1369 LIT 681 NUM O DCW #05 O 5 1374 AREA 682 ACCUMO DCW #06 O 6 1380 AREA 682 DCW @0@ O 1 1381 LIT 682 DCW @1@ O 1 1382 LIT 682 DCW @A0?@ O 3 1385 LIT 682 DCW @CONST TRI@ O 9 1394 LIT 682 DCW &1 O 1 1395 LIT 682 DCW @ @ O 1 1396 LIT 683 3658 27 45 SYS2 DCW @}@ SYSTEM GROUP MARK O 1 1397 GMARK 683 3659 27 46 XFR PHSE2 O B 849 684 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 90 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3660 27 47 JOB 1401 FORTRAN CONSTANT PHASE THREE O 3661 27 48 110 DCW @CONST TRI@ O 9 0110 687 3662 27 49 ORG PHSE2 O 0849 3663 27 50 * DEFINES NORMALIZED CONSTANTS IN SAUCE 3664 27 51 * CALCULATING AMOUNT BY WHICH OBJECT TIME ADDRESSES OF 3665 27 52 * CONSTANTS, FORMATS, AND LISTS MUST BE REDUCED 3666 27 53 * (VIA MA INSTRUCTIONS) BECAUSE OF ARRAY STORAGE 3667 27 54 * PLUSDF IS USED IN PHASES 24,26&50 3668 27 55 * MACFLS IS USED IN PHASES 20,24,25,26,&50 3669 27 56 PHSE3 UNPAK PARAMA&2,WK5 O MACRO 3670 PHSE3 S )0M093#2 O 4 0849 S !48 GEN 688 3671 S )0L093#2 O 4 0853 S !50 GEN 688 3672 MZ PARAMA&2,)0M093-1 O 7 0857 Y 688 !47 GEN 688 3673 MZ PARAMA&2-2,)0L093-1 O 7 0864 Y 686 !49 GEN 688 3674 )0J093 BWZ )0K093, )0L093-1, 2 O 8 0871 V 890 !49 2 GEN 688 3675 A @A0@, )0L093 O 7 0879 A !52 !50 GEN 688 3676 B )0J093 O 4 0886 B 871 GEN 689 3677 )0K093 BWZ )0P093, )0M093-1, 2 O 8 0890 V 909 !47 2 GEN 689 3678 A @?4@, )0M093 O 7 0898 A !54 !48 GEN 689 3679 B )0K093 O 4 0905 B 890 GEN 689 3680 )0P093 A )0L093-1,)0M093 O 7 0909 A !49 !48 GEN 689 3681 MCW PARAMA&2,WK5 O 7 0916 M 688 !71 GEN 689 3682 MCW )0M093 O 4 0923 M !48 GEN 690 3683 ZA WK5 O 4 0927 ? !71 GEN 690 3684 MZ *-4, WK5 O 7 0931 Y 933 !71 GEN 690 3685 27 57 MCW X2,SAVX2#3 SAVE X2 O 7 0938 M 094 !57 690 3686 27 58 UNPAK CONLST,CNLS5 O MACRO 3687 S )0M094#2 O 4 0945 S !59 GEN 690 3688 S )0L094#2 O 4 0949 S !61 GEN 690 3689 MZ CONLST,)0M094-1 O 7 0953 Y 194 !58 GEN 690 3690 MZ CONLST-2,)0L094-1 O 7 0960 Y 192 !60 GEN 691 3691 )0J094 BWZ )0K094, )0L094-1, 2 O 8 0967 V 986 !60 2 GEN 691 3692 A @A0@, )0L094 O 7 0975 A !52 !61 GEN 691 3693 B )0J094 O 4 0982 B 967 GEN 691 3694 )0K094 BWZ )0P094, )0M094-1, 2 O 8 0986 V |05 !58 2 GEN 691 3695 A @?4@, )0M094 O 7 0994 A !54 !59 GEN 692 3696 B )0K094 O 4 1001 B 986 GEN 692 3697 )0P094 A )0L094-1,)0M094 O 7 1005 A !60 !59 GEN 692 3698 MCW CONLST,CNLS5 O 7 1012 M 194 !66 GEN 692 3699 MCW )0M094 O 4 1019 M !59 GEN 692 3700 ZA CNLS5 O 4 1023 ? !66 GEN 692 3701 MZ *-4, CNLS5 O 7 1027 Y |29 !66 GEN 693 3702 27 59 S CNLS5#5,WK5#5 O 7 1034 S !66 !71 693 3703 27 60 C @0000?@,WK5 PLUS ZERO O 7 1041 C !76 !71 693 3704 27 61 BE RSX2 O 5 1048 B /61 S 693 3705 27 62 FPACK WK5,PLUSDF,X2 O MACRO 3706 INCLD ZONES O MACRO 3707 MN WK5,PLUSDF O 7 1053 D !71 160 GEN 693 3708 MN O 1 1060 D GEN 693 3709 MN O 1 1061 D GEN 693 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 91 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3710 SAR *&4 O 4 1062 Q |69 GEN 694 3711 MCW 0,X2 O 7 1066 M 000 094 GEN 694 3712 MCW @0@ O 4 1073 M !77 GEN 694 3713 A X2 O 4 1077 A 094 GEN 694 3714 MZ ZONES&1&X2,PLUSDF O 7 1081 Y !J6 160 GEN 694 3715 CW O 1 1088 ) GEN 694 3716 SBR *&7 O 4 1089 H |99 GEN 694 3717 MZ ZONES&X2, 0 O 7 1093 Y !J5 000 GEN 695 3718 27 63 MCW @16000@,MCFL5#5 O 7 1100 M !82 !87 695 3719 27 64 S WK5,MCFL5 O 7 1107 S !71 !87 695 3720 27 65 FPACK MCFL5,MACFLS,X2 O MACRO 3721 INCLD ZONES O MACRO 3722 MN MCFL5,MACFLS O 7 1114 D !87 163 GEN 695 3723 MN O 1 1121 D GEN 695 3724 MN O 1 1122 D GEN 695 3725 SAR *&4 O 4 1123 Q /30 GEN 695 3726 MCW 0,X2 O 7 1127 M 000 094 GEN 696 3727 MCW @0@ O 4 1134 M !77 GEN 696 3728 A X2 O 4 1138 A 094 GEN 696 3729 MZ ZONES&1&X2,MACFLS O 7 1142 Y !J6 163 GEN 696 3730 CW O 1 1149 ) GEN 696 3731 SBR *&7 O 4 1150 H /60 GEN 696 3732 MZ ZONES&X2, 0 O 7 1154 Y !J5 000 GEN 696 3733 27 66 RSX2 MCW SAVX2,X2 RESTORE X2 O 7 1161 M !57 094 697 3734 27 67 MA MACFLS,ONEADR O 7 1168 # 163 142 697 3735 27 68 MA MACFLS,XEXPON O 7 1175 # 163 157 697 3736 27 69 MCW BASE,BUMP&3 O 7 1182 M 840 U82 697 3737 27 70 MZ @S@,BUMP&2 O 7 1189 Y !88 U81 697 3738 27 71 MCW X2,HEX1#3 O 7 1196 M 094 !91 698 3739 27 72 MCW @ @,SAUCE-1 BLANK, MAY NOT BE NECESSARY O 7 1203 M !92 N99 698 3740 27 73 START BCE OUT,000&X1, BLANK O 8 1210 B X76 0|0 698 3741 27 74 MCW 000&X1,CODE#4 O 7 1218 M 0|0 !96 698 3742 27 75 LCA 000&X1,WORK#10 O 7 1225 L 0|0 J06 698 3743 27 76 SAR X1 O 4 1232 Q 089 699 3744 27 77 SBR X3 O 4 1236 H 099 699 3745 27 78 LCA WORK,000&X2 O 7 1240 L J06 0!0 699 3746 27 79 SBR X2 O 4 1247 H 094 699 3747 27 80 BCE PASS,CODE-3,/ O 8 1251 B X46 !93 / 699 3748 27 81 FIND BCE SEEK,000&X1,_ DELTA 11-7-8 O 8 1259 B S93 0|0 _ 699 3749 27 82 CHAIN 5 O MACRO 3750 BCE O 1 1267 B GEN 699 3751 BCE O 1 1268 B GEN 700 3752 BCE O 1 1269 B GEN 700 3753 BCE O 1 1270 B GEN 700 3754 BCE O 1 1271 B GEN 700 3755 27 83 BCE PASS,000&X1,} GROUP MARK O 8 1272 B X46 0|0 } GMARK 700 3756 27 84 CHAIN 5 O MACRO 3757 BCE O 1 1280 B GEN 700 3758 BCE O 1 1281 B GEN 700 3759 BCE O 1 1282 B GEN 701 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 92 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3760 BCE O 1 1283 B GEN 701 3761 BCE O 1 1284 B GEN 701 3762 27 85 SBR X1 O 4 1285 H 089 701 3763 27 86 B FIND O 4 1289 B S59 701 3764 27 87 SEEK BCE FOUND,000&X1,_ DELTA 11-7-8 O 8 1293 B T09 0|0 _ 701 3765 27 88 SBR X1 O 4 1301 H 089 701 3766 27 89 B SEEK O 4 1305 B S93 702 3767 27 90 FOUND SW 001&X1 O 4 1309 , 0|1 702 3768 27 91 CW O 1 1313 ) 702 3769 27 92 CW O 1 1314 ) 702 3770 27 93 CW O 1 1315 ) 702 3771 27 94 SAR X1 O 4 1316 Q 089 702 3772 27 95 BCE COPY, 004&X1,} GROUP MK, FIRST CHAR MAY BE DLTA O 8 1320 B T43 0|4 } GMARK 702 3773 27 96 LCA 000&X3,000&X2 O 7 1328 L 0?0 0!0 703 3774 27 97 SBR X2 O 4 1335 H 094 703 3775 27 98 CW 001&X2 O 4 1339 ) 0!1 703 3776 27 99 COPY SBR X3,2&X1 O 7 1343 H 099 0|2 703 3777 28 00 LIMIT MCW 000&X1,BOX#1 O 7 1350 M 0|0 J07 703 3778 28 01 SAR X1 O 4 1357 Q 089 703 3779 28 02 MCW BOX,*&8 O 7 1361 M J07 T75 704 3780 28 03 BCE RANDM,@#}@*-&)$,@,0 EQUAL, GM O 8 1368 B T88 J16 0 704 3781 28 04 CHAIN 8 O MACRO 3782 BCE O 1 1376 B GEN 704 3783 BCE O 1 1377 B GEN 704 3784 BCE O 1 1378 B GEN 704 3785 BCE O 1 1379 B GEN 704 3786 BCE O 1 1380 B GEN 704 3787 BCE O 1 1381 B GEN 705 3788 BCE O 1 1382 B GEN 705 3789 BCE O 1 1383 B GEN 705 3790 28 05 B LIMIT O 4 1384 B T50 705 3791 28 06 RANDM SW 002&X1 O 4 1388 , 0|2 705 3792 28 07 ZA 000&X3,MOD#4 O 7 1392 ? 0?0 J20 705 3793 28 08 A 004&X1,MOD O 7 1399 A 0|4 J20 705 3794 28 09 BCE SQUOZ,002&X1, BLANK, 1 CHAR FIXED PT. NUM O 8 1406 B X04 0|2 706 3795 28 10 STRIP MZ @ @,MOD O 7 1414 Y J24 J20 706 3796 28 11 MZ O 1 1421 Y 706 3797 28 12 MZ O 1 1422 Y 706 3798 28 13 MCW 3 DIGIT NO. IN MOD O 1 1423 M 706 3799 28 14 SUBTR S MAX,MOD O 7 1424 S 844 J20 706 3800 28 15 BWZ SUBTR,MOD,B O 8 1431 V U24 J20 B 706 3801 28 16 A MAX,MOD O 7 1439 A 844 J20 707 3802 28 17 MZ @ @,MOD BLANK O 7 1446 Y !92 J20 707 3803 28 18 MCW X2,HEX2#8 O 7 1453 M 094 J32 707 3804 28 19 MCW STORES X1 O 1 1460 M 707 3805 28 20 MCW MOD,X1 O 7 1461 M J20 089 707 3806 28 21 A X1 O 4 1468 A 089 707 3807 28 22 A MOD,X1 O 7 1472 A J20 089 708 3808 28 23 BUMP NOP 000 BASE & 3*MOD IN X1, TABLE 1 ENTRY ADDRESS O 4 1479 N 000 708 3809 28 24 SAR X1 O 4 1483 Q 089 708 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 93 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3810 28 25 MCW @N@,OVFLW O 7 1487 M J33 W71 708 3811 28 26 CHAIN BCE NEW,000&X1, BLANK, CONST NOT YET ENCOUNTERED O 8 1494 B W26 0|0 708 3812 28 27 BCE OVFLW,000&X1,< 12-6-8 O 8 1502 B W71 0|0 < 708 3813 28 28 MCW 000&X1,X2 O 7 1510 M 0|0 094 709 3814 28 29 SAR X1 O 4 1517 Q 089 709 3815 28 30 C 000&X3,000&X2 O 7 1521 C 0?0 0!0 709 3816 28 31 BU CHAIN O 5 1528 B U94 / 709 3817 28 32 C 000&X2,000&X3 O 7 1533 C 0!0 0?0 709 3818 28 33 BU CHAIN O 5 1540 B U94 / 709 3819 28 34 RESTR MCW X2,TEMP#3 O 7 1545 M 094 J36 710 3820 28 35 MCW TEMP,TEMP2 COMPUTE CORRECT CONSTANT ADDRS. BEFORE O 7 1552 M J36 J39 710 3821 28 36 MA MACFLS,TEMP PUTTING THEM IN ARITHMETIC STRINGS. O 7 1559 # 163 J36 710 3822 28 37 MCW HEX2,X2 O 7 1566 M J32 094 710 3823 28 38 MCW O 1 1573 M 710 3824 28 39 LCA TEMP,0&X2 O 7 1574 L J36 0!0 710 3825 28 40 SBR X2 O 4 1581 H 094 711 3826 28 41 CW 001&X2 O 4 1585 ) 0!1 711 3827 28 42 MCW TEMP2#3,*&7 O 7 1589 M J39 W02 711 3828 28 43 BWZ FIXED,0,2 O 8 1596 V W93 000 2 711 3829 28 44 MZ @ @,002&X2 BLANK O 7 1604 Y !92 0!2 711 3830 28 45 BOTM SBR X1,1&X1 O 7 1611 H 089 0|1 711 3831 28 46 SBR X3 O 4 1618 H 099 712 3832 28 47 B FIND O 4 1622 B S59 712 3833 28 48 NEW MCW NXBTM,X2 O 7 1626 M 083 094 712 3834 28 49 MCW NXBTM,000&X1 O 7 1633 M 083 0|0 712 3835 28 50 MCW 000&X3,000&X2 O 7 1640 M 0?0 0!0 712 3836 28 51 SBR X1 O 4 1647 H 089 712 3837 28 52 SBR NXBTM O 4 1651 H 083 712 3838 28 53 BCE FULL,000&X1,< 12-6-8 O 8 1655 B X12 0|0 < 713 3839 28 54 SW 001&X1 O 4 1663 , 0|1 713 3840 28 55 B RESTR O 4 1667 B V45 713 3841 28 56 OVFLW NOP FULL O 4 1671 N X12 713 3842 28 57 MCW @S@,OVFLW O 7 1675 M !88 W71 713 3843 28 58 MCW UPLIM,X1 O 7 1682 M 848 089 713 3844 28 59 B CHAIN O 4 1689 B U94 713 3845 28 60 FIXED MZ *-6,2&X2 O 7 1693 Y W93 0!2 714 3846 28 61 B BOTM O 4 1700 B W11 714 3847 28 62 SQUOZ SW 003&X1 O 4 1704 , 0|3 714 3848 28 63 B STRIP O 4 1708 B U14 714 3849 28 64 FULL FQUIT O MACRO 3850 FULL CS 332 O 4 1712 / 332 GEN 714 3851 CS O 1 1716 / GEN 714 3852 CC 1 O 2 1717 F 1 GEN 714 3853 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 O 7 1719 M J75 270 GEN 715 3854 W O 1 1726 2 GEN 715 3855 CC 1 O 2 1727 F 1 GEN 715 3856 BCE *&6,MONTOR,1 O 8 1729 B X42 769 1 GEN 715 3857 RWD 1 O 5 1737 U %U1 R GEN 715 3858 H *-3 O 4 1742 . X42 GEN 715 3859 28 65 PASS MVDWN X3,X2 O MACRO 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 94 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3860 PASS LCA 0&X3,0&X2 O 7 1746 L 0?0 0!0 GEN 715 3861 SAR X3 O 4 1753 Q 099 GEN 716 3862 C 0&X2 O 4 1757 C 0!0 GEN 716 3863 SAR X2 O 4 1761 Q 094 GEN 716 3864 28 66 MCW X3,X1 O 7 1765 M 099 089 716 3865 28 67 B START O 4 1772 B S10 716 3866 28 68 OUT MCW HEX1,X1 O 7 1776 M !91 089 716 3867 28 69 CS 332 O 4 1783 / 332 716 3868 28 70 CS O 1 1787 / 717 3869 28 71 MCW @CONSTANTS LOCATED FROM @,223 O 7 1788 M J98 223 717 3870 28 72 UNPAK NXBTM,WK51 O MACRO 3871 S )0M099#2 O 4 1795 S K00 GEN 717 3872 S )0L099#2 O 4 1799 S K02 GEN 717 3873 MZ NXBTM,)0M099-1 O 7 1803 Y 083 J99 GEN 717 3874 MZ NXBTM-2,)0L099-1 O 7 1810 Y 081 K01 GEN 717 3875 )0J099 BWZ )0K099, )0L099-1, 2 O 8 1817 V Y36 K01 2 GEN 717 3876 A @A0@, )0L099 O 7 1825 A !52 K02 GEN 718 3877 B )0J099 O 4 1832 B Y17 GEN 718 3878 )0K099 BWZ )0P099, )0M099-1, 2 O 8 1836 V Y55 J99 2 GEN 718 3879 A @?4@, )0M099 O 7 1844 A !54 K00 GEN 718 3880 B )0K099 O 4 1851 B Y36 GEN 718 3881 )0P099 A )0L099-1,)0M099 O 7 1855 A K01 K00 GEN 718 3882 MCW NXBTM,WK51 O 7 1862 M 083 K08 GEN 719 3883 MCW )0M099 O 4 1869 M K00 GEN 719 3884 ZA WK51 O 4 1873 ? K08 GEN 719 3885 MZ *-4, WK51 O 7 1877 Y Y79 K08 GEN 719 3886 28 73 S WK5,WK51 O 7 1884 S !71 K08 719 3887 28 74 MZ @ @,WK51 REMOVE SIGN O 7 1891 Y !92 K08 719 3888 28 75 A &1,WK51#5 O 7 1898 A K03 K08 720 3889 28 76 MCW NXBTM,X3 O 7 1905 M 083 099 720 3890 28 77 MA MACFLS,X3 O 7 1912 # 163 099 720 3891 28 78 SBR X3,1&X3 O 7 1919 H 099 0?1 720 3892 28 79 MCW CONLST,247 O 7 1926 M 194 247 720 3893 28 80 MCW @-@ O 4 1933 M K09 720 3894 28 81 MCW X3 O 4 1937 M 099 721 3895 28 82 MCW @ @ O 4 1941 M K12 721 3896 28 83 MCW CNLS5 O 4 1945 M !66 721 3897 28 84 MCW @ TO @ O 4 1949 M K16 721 3898 28 85 MCW WK51 O 4 1953 M K08 721 3899 28 86 CC J O 2 1957 F J 721 3900 28 87 W O 1 1959 2 721 3901 28 88 CC J O 2 1960 F J 722 3902 28 89 FORMS O MACRO 3903 BCV *&5 O 5 1962 B Z71 @ GEN 722 3904 B *&3 O 4 1967 B Z73 GEN 722 3905 CC 1 O 2 1971 F 1 GEN 722 3906 28 90 FENDX D,,,XBEGIN,XBEGIN,XBEGIN,SAUCE-2,SUBSCR O MACRO 3907 BSS 333,D O 5 1973 B 333 D GEN 722 3908 SBR INITAP&6,XBEGIN O 7 1978 H 786 838 GEN 722 3909 SBR BCLEAR O 4 1985 H 833 GEN 722 1 1401 FORTRAN CONSTANT PHASE THREE 50203 PAGE 95 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3910 SBR INITXT&3,XBEGIN O 7 1989 H 796 838 GEN 723 3911 SBR TCLEAR,SAUCE-2 O 7 1996 H 710 N98 GEN 723 3912 LCA @SUBSCR@,110 O 7 2003 L K22 110 GEN 723 3913 B MONTER O 4 2010 B 700 GEN 723 3914 28 91 ORG * O 2014 3915 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG O 2014 3916 DCW #1 O 1 2014 GEN 723 3917 ZONES DC 9 O 1 2015 GEN 723 3918 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ O 31 2046 GEN 724 * LTORG* GEN )0M093 DCW #02 O 2 2048 AREA 724 )0L093 DCW #02 O 2 2050 AREA 724 DCW @A0@ O 2 2052 LIT 724 DCW @?4@ O 2 2054 LIT 724 SAVX2O DCW #03 O 3 2057 AREA 725 )0M094 DCW #02 O 2 2059 AREA 725 )0L094 DCW #02 O 2 2061 AREA 725 CNLS5O DCW #05 O 5 2066 AREA 725 WK5 O DCW #05 O 5 2071 AREA 725 DCW @0000?@ O 5 2076 LIT 725 DCW @0@ O 1 2077 LIT 725 DCW @16000@ O 5 2082 LIT 726 MCFL5O DCW #05 O 5 2087 AREA 726 DCW @S@ O 1 2088 LIT 726 HEX1 O DCW #03 O 3 2091 AREA 726 DCW @ @ O 1 2092 LIT 726 CODE O DCW #04 O 4 2096 AREA 726 WORK O DCW #10 O 10 2106 AREA 726 BOX O DCW #01 O 1 2107 AREA 727 DCW @#}@*-&)$,@ O 9 2116 LIT 727 MOD O DCW #04 O 4 2120 AREA 727 DCW @ @ O 4 2124 LIT 727 HEX2 O DCW #08 O 8 2132 AREA 727 DCW @N@ O 1 2133 LIT 727 TEMP O DCW #03 O 3 2136 AREA 727 TEMP2O DCW #03 O 3 2139 AREA 728 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ O 36 2175 LIT 728 DCW @CONSTANTS LOCATED FROM @ O 23 2198 LIT 729 )0M099 DCW #02 O 2 2200 AREA 729 )0L099 DCW #02 O 2 2202 AREA 729 DCW &1 O 1 2203 LIT 729 WK51 O DCW #05 O 5 2208 AREA 729 DCW @-@ O 1 2209 LIT 729 DCW @ @ O 3 2212 LIT 729 DCW @ TO @ O 4 2216 LIT 730 DCW @SUBSCR@ O 6 2222 LIT 730 3919 28 92 DCW @}@ SYSTEM GROUP MARK O 1 2223 GMARK 730 3920 28 93 ORG TAMAXT&X00 O 2600 3921 28 94 SAUCE EQU *&1 O 2600 3922 28 95 XFR PHSE3 O B 849 731 1 1401 FORTRAN SUBSCRIPTS PHASE 50213 PAGE 96 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3923 28 96 JOB 1401 FORTRAN SUBSCRIPTS PHASE O 3924 28 97 FBEGN SUBSCR,X1,,X2,,X3,R,W O MACRO 3925 SFX W W GEN 3926 110 DCW @SUBSCR@ W 6 0110 GEN 734 3927 X1 EQU 089 W 0089 GEN 3928 X2 EQU 094 W 0094 GEN 3929 X3 EQU 099 W 0099 GEN 3930 099 DCW 000 W 3 0099 GEN 735 3931 100 DC 0 W 1 0100 GEN 735 3932 28 98 ORG XBEGIN W 0838 3933 28 99 * SQUEEZE ADDRESSES BETWEEN $ SIGNS TOGETHER, ERROR CHECK 3934 29 00 INITL CS 0&X2 W 4 0838 / 0!0 736 3935 29 01 CS W 1 0842 / 736 3936 29 02 SBR X2,1&X1 W 7 0843 H 094 0|1 736 3937 29 03 SBR HEX1#3 W 4 0850 H /94 736 3938 29 04 START BCE OUT,000&X1, BLANK W 8 0854 B /39 0|0 736 3939 29 05 MCW 000&X1,CODE#4 W 7 0862 M 0|0 /98 736 3940 29 06 B SLIDE X2 INITIALLY GREATER THAN X1 W 4 0869 B |64 736 3941 29 07 BCE PASS,CODE-3,/ W 8 0873 B /31 /95 / 737 3942 29 08 BCE PASS,CODE-3,F W 8 0881 B /31 /95 F 737 3943 29 09 FIND BCE SEEK,000&X1,$ W 8 0889 B 923 0|0 $ 737 3944 29 10 CHAIN 5 W MACRO 3945 BCE W 1 0897 B GEN 737 3946 BCE W 1 0898 B GEN 737 3947 BCE W 1 0899 B GEN 737 3948 BCE W 1 0900 B GEN 737 3949 BCE W 1 0901 B GEN 738 3950 29 11 BWZ FNISH,000&X1,1 WORD MK W 8 0902 V /24 0|0 1 738 3951 29 12 CHAIN 5 W MACRO 3952 BWZ W 1 0910 V GEN 738 3953 BWZ W 1 0911 V GEN 738 3954 BWZ W 1 0912 V GEN 738 3955 BWZ W 1 0913 V GEN 738 3956 BWZ W 1 0914 V GEN 738 3957 29 13 SBR X1 W 4 0915 H 089 739 3958 29 14 B FIND W 4 0919 B 889 739 3959 29 15 SEEK BCE FOUND,000&X1,$ W 8 0923 B 939 0|0 $ 739 3960 29 16 SBR X1 W 4 0931 H 089 739 3961 29 17 B SEEK W 4 0935 B 923 739 3962 29 18 FOUND SW 000&X1 W 4 0939 , 0|0 739 3963 29 19 B SEND W 4 0943 B /69 739 3964 29 20 MN 000&X1 W 4 0947 D 0|0 740 3965 29 21 SAR X1 W 4 0951 Q 089 740 3966 29 22 B DROP4 W 4 0955 B |98 740 3967 29 23 SQUOZ SW 2&X1 W 4 0959 , 0|2 740 3968 29 24 B SEND W 4 0963 B /69 740 3969 29 25 B DROP4 W 4 0967 B |98 740 3970 29 26 BWZ CPAR,3&X1,S W 8 0971 V |21 0|3 S 740 3971 29 27 BWZ CPAR,3&X1,K W 8 0979 V |21 0|3 K 741 3972 29 28 FTMSG 12,FLOATING POINT SUBSCRIPT,CODE,26 W MACRO 1 1401 FORTRAN SUBSCRIPTS PHASE 50213 PAGE 97 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 3973 CS 332 W 4 0987 / 332 GEN 741 3974 CS W 1 0991 / GEN 741 3975 SW FAILSW W 4 0992 , 184 GEN 741 3976 MN CODE,224&26 W 7 0996 D /98 250 GEN 741 3977 MN W 1 1003 D GEN 741 3978 MN W 1 1004 D GEN 741 3979 MCW @ERROR 12 - FLOATING POINT SUBSCRIPT, STATEMENT @ W 4 1005 M S45 GEN 742 3980 W W 1 1009 2 GEN 742 3981 BCV *&5 W 5 1010 B |19 @ GEN 742 3982 B *&3 W 4 1015 B |21 GEN 742 3983 CC 1 W 2 1019 F 1 GEN 742 3984 29 29 CPAR SW 2&X1 W 4 1021 , 0|2 742 3985 29 30 B SEND W 4 1025 B /69 742 3986 29 31 B DROP4 W 4 1029 B |98 743 3987 29 32 C 001&X1,@$@ W 7 1033 C 0|1 S46 743 3988 29 33 BU SQUOZ W 5 1040 B 959 / 743 3989 29 34 SW 001&X1 W 4 1045 , 0|1 743 3990 29 35 B SEND W 4 1049 B /69 743 3991 29 36 MCW X1,X3 W 7 1053 M 089 099 743 3992 29 37 B FIND W 4 1060 B 889 743 3993 29 38 SLIDE SBR EXSLD&3 W 4 1064 H |97 744 3994 29 39 MVDWN X1,X2 W MACRO 3995 LCA 0&X1,0&X2 W 7 1068 L 0|0 0!0 GEN 744 3996 SAR X1 W 4 1075 Q 089 GEN 744 3997 C 0&X2 W 4 1079 C 0!0 GEN 744 3998 SAR X2 W 4 1083 Q 094 GEN 744 3999 29 40 MCW X1,X3 W 7 1087 M 089 099 744 4000 29 41 EXSLD B 000 W 4 1094 B 000 744 4001 29 42 DROP4 SBR EXDRP&3 W 4 1098 H /23 745 4002 29 43 MCW X1,X3 W 7 1102 M 089 099 745 4003 29 44 MN 0&X1 W 4 1109 D 0|0 745 4004 29 45 CHAIN 3 W MACRO 4005 MN W 1 1113 D GEN 745 4006 MN W 1 1114 D GEN 745 4007 MN W 1 1115 D GEN 745 4008 29 46 SBR X1 W 4 1116 H 089 745 4009 29 47 EXDRP B 000 W 4 1120 B 000 746 4010 29 48 FNISH MCW X3,X1 W 7 1124 M 099 089 746 4011 29 49 PASS B SLIDE W 4 1131 B |64 746 4012 29 50 B START W 4 1135 B 854 746 4013 29 51 OUT MCW HEX1,X1 W 7 1139 M /94 089 746 4014 29 52 FENDX C,,,,,,SYS1,STNUM ONE W MACRO 4015 BSS 333,C W 5 1146 B 333 C GEN 746 4016 SBR TCLEAR,SYS1 W 7 1151 H 710 S56 GEN 746 4017 LCA @STNUM ONE@,110 W 7 1158 L S55 110 GEN 747 4018 B MONTER W 4 1165 B 700 GEN 747 4019 29 53 SEND SBR EXSND&3 W 4 1169 H /91 747 4020 29 54 LCA 000&X3,000&X2 W 7 1173 L 0?0 0!0 747 4021 29 55 SBR X2 W 4 1180 H 094 747 4022 29 56 CW 001&X2 W 4 1184 ) 0!1 747 1 1401 FORTRAN SUBSCRIPTS PHASE 50213 PAGE 98 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4023 29 57 EXSND B 000 W 4 1188 B 000 747 4024 29 58 LTORG * W 1192 HEX1 W DCW #03 W 3 1194 AREA 748 CODE W DCW #04 W 4 1198 AREA 748 DCW @ERROR 12 - FLOATING POINT SUBSCRIPT, STATEMENT @ W 47 1245 LIT 750 DCW @$@ W 1 1246 LIT 750 DCW @STNUM ONE@ W 9 1255 LIT 750 4025 29 59 SYS1 DCW @}@ SYSTEM GROUP MARK W 1 1256 GMARK 750 4026 29 60 XFR INITL W B 838 751 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 99 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4027 29 61 JOB 1401 FORTRAN STATEMENT NUMBER PHASE ONE W 4028 29 62 FBEGN STNUM ONE,X1,,X2,,X3,R,M W MACRO 4029 SFX M M GEN 4030 110 DCW @STNUM ONE@ M 9 0110 GEN 754 4031 X1 EQU 089 M 0089 GEN 4032 X2 EQU 094 M 0094 GEN 4033 X3 EQU 099 M 0099 GEN 4034 099 DCW 000 M 3 0099 GEN 755 4035 100 DC 0 M 1 0100 GEN 755 4036 29 63 ORG XBEGIN M 0838 4037 29 64 NXBTM EQU 083 M 0083 4038 29 65 INITL CS 0&X2 M 4 0838 / 0!0 756 4039 29 66 MCW NXBTM,X2 M 7 0842 M 083 094 756 4040 29 67 SW GM FROM THE BOTTOM M 4 0849 , Z30 756 4041 29 68 LCA GM,000&X2 M 7 0853 L Z30 0!0 756 4042 29 69 SBR X2 M 4 0860 H 094 756 4043 29 70 START BCE OUT,000&X1, BLANK M 8 0864 B Y99 0|0 756 4044 29 71 LCA 000&X1,WORK1#10 M 7 0872 L 0|0 !09 757 4045 29 72 SAR X1 M 4 0879 Q 089 757 4046 29 73 CW 001&X1 M 4 0883 ) 0|1 757 4047 29 74 SW WORK1-3 M 4 0887 , !06 757 4048 29 75 LCA WORK1,000&X2 M 7 0891 L !09 0!0 757 4049 29 76 SBR X2 M 4 0898 H 094 757 4050 29 77 CW 001&X2 M 4 0902 ) 0!1 757 4051 29 78 BWZ LABEL,WORK1-4,2 NO ZONE M 8 0906 V |03 !05 2 758 4052 29 79 TOP LCA GM,000&X2 M 7 0914 L Z30 0!0 758 4053 29 80 SBR X2 M 4 0921 H 094 758 4054 29 81 MCW WORK1-3,TEST&7 M 7 0925 M !06 939 758 4055 29 82 TEST BCE WORRY,@WT65UPLDEGK@,0 M 8 0932 B |26 !20 0 758 4056 29 83 CHAIN 10 M MACRO 4057 BCE M 1 0940 B GEN 758 4058 BCE M 1 0941 B GEN 758 4059 BCE M 1 0942 B GEN 759 4060 BCE M 1 0943 B GEN 759 4061 BCE M 1 0944 B GEN 759 4062 BCE M 1 0945 B GEN 759 4063 BCE M 1 0946 B GEN 759 4064 BCE M 1 0947 B GEN 759 4065 BCE M 1 0948 B GEN 759 4066 BCE M 1 0949 B GEN 760 4067 29 84 BCE KILL,WORK1-3,/ M 8 0950 B 981 !06 / 760 4068 29 85 BOTM MVDWN X1,X2 M MACRO 4069 BOTM LCA 0&X1,0&X2 M 7 0958 L 0|0 0!0 GEN 760 4070 SAR X1 M 4 0965 Q 089 GEN 760 4071 C 0&X2 M 4 0969 C 0!0 GEN 760 4072 SAR X2 M 4 0973 Q 094 GEN 760 4073 29 86 B START M 4 0977 B 864 760 4074 29 87 KILL C 0&X1 M 4 0981 C 0|0 761 4075 29 88 SAR X1 M 4 0985 Q 089 761 4076 29 89 MCM 4&X2 M 4 0989 P 0!4 761 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 100 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4077 29 90 MN M 1 0993 D 761 4078 29 91 MN M 1 0994 D 761 4079 29 92 SAR X2 M 4 0995 Q 094 761 4080 29 93 B START M 4 0999 B 864 761 4081 29 94 LABEL LCA WORK1-4,STATE#6 M 7 1003 L !05 !26 762 4082 29 95 SBR X3 M 4 1010 H 099 762 4083 29 96 SW 002&X3 M 4 1014 , 0?2 762 4084 29 97 B ALPHA M 4 1018 B W10 762 4085 29 98 B TOP M 4 1022 B 914 762 4086 29 99 WORRY B IFEXP,WORK1-3,E M 8 1026 B T62 !06 E 762 4087 30 00 BCE DO,WORK1-3,D M 8 1034 B S76 !06 D 762 4088 30 01 BCE INOUT,WORK1-3,5 M 8 1042 B /30 !06 5 763 4089 30 02 BCE INOUT,WORK1-3,6 M 8 1050 B /30 !06 6 763 4090 30 03 BCE PUTE,WORK1-3,T M 8 1058 B |90 !06 T 763 4091 30 04 BCE SENSE,WORK1-3,W M 8 1066 B /93 !06 W 763 4092 30 05 BCE SENSE,WORK1-3,K M 8 1074 B /93 !06 K 764 4093 30 06 B GRAB1 M 4 1082 B U73 764 4094 30 07 B BOTM M 4 1086 B 958 764 4095 30 08 PUTE B GRAB1 M 4 1090 B U73 764 4096 30 09 BCE OVER,000&X1,) RT PAREN M 8 1094 B /18 0|0 ) 764 4097 30 10 BCE SYNER,0&X1,} GM M 8 1102 B Y02 0|0 } GMARK 764 4098 30 11 SBR X1 M 4 1110 H 089 765 4099 30 12 B PUTE M 4 1114 B |90 765 4100 30 13 OVER MN 000&X1 M 4 1118 D 0|0 765 4101 30 14 SAR X1 M 4 1122 Q 089 765 4102 30 15 B BOTM M 4 1126 B 958 765 4103 30 16 INOUT MCW X1,LOAD&3 M 7 1130 M 089 /77 765 4104 30 17 FIND BCE TPNAM,000&X1,, COMMA M 8 1137 B /61 0|0 , 765 4105 30 18 BCE SYNER,0&X1,} GM M 8 1145 B Y02 0|0 } GMARK 766 4106 30 19 SBR X1 M 4 1153 H 089 766 4107 30 20 B FIND M 4 1157 B /37 766 4108 30 21 TPNAM SW 001&X1 M 4 1161 , 0|1 766 4109 30 22 MN M 1 1165 D 766 4110 30 23 SAR X1 M 4 1166 Q 089 766 4111 30 24 B GRAB1 M 4 1170 B U73 766 4112 30 25 LOAD LCA 000,000&X2 M 7 1174 L 000 0!0 767 4113 30 26 SBR X2 M 4 1181 H 094 767 4114 30 27 CW 001&X2 M 4 1185 ) 0!1 767 4115 30 28 B BOTM M 4 1189 B 958 767 4116 30 29 SENSE MCW X1,LOAD&3 M 7 1193 M 089 /77 767 4117 30 30 FIND2 BCE WITCH,000&X1,) RT PAREN M 8 1200 B S24 0|0 ) 767 4118 30 31 BCE SYNER,0&X1,} GM M 8 1208 B Y02 0|0 } GMARK 768 4119 30 32 SBR X1 M 4 1216 H 089 768 4120 30 33 B FIND2 M 4 1220 B S00 768 4121 30 34 WITCH SW 001&X1 M 4 1224 , 0|1 768 4122 30 35 MN M 1 1228 D 768 4123 30 36 SAR X1 M 4 1229 Q 089 768 4124 30 37 B GRAB1 M 4 1233 B U73 768 4125 30 38 MN 000&X1 M 4 1237 D 0|0 769 4126 30 39 SAR X1 M 4 1241 Q 089 769 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 101 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4127 30 40 BCE SYNER,0&X1,} GM M 8 1245 B Y02 0|0 } GMARK 769 4128 30 41 B GRAB1 M 4 1253 B U73 769 4129 30 42 COMMA LCA @,@,000&X2 M 7 1257 L !27 0!0 769 4130 30 43 SBR X2 M 4 1264 H 094 769 4131 30 44 CW 001&X2 M 4 1268 ) 0!1 769 4132 30 45 B LOAD M 4 1272 B /74 770 4133 30 46 DO MCW X1,X3 M 7 1276 M 089 099 770 4134 30 47 VARBL BCE BACK2,0&X3,# M 8 1283 B S99 0?0 # 770 4135 30 48 SBR X3 M 4 1291 H 099 770 4136 30 49 B VARBL M 4 1295 B S83 770 4137 30 50 BACK2 MCW 3&X3,SVZN#1 M 7 1299 M 0?3 !28 770 4138 30 51 MCW @,@,3&X3 M 7 1306 M !27 0?3 771 4139 30 52 SBR HEX3#3,3&X3 M 7 1313 H !31 0?3 771 4140 30 53 B GRAB1 M 4 1320 B U73 771 4141 30 54 C HEX3,X1 M 7 1324 C !31 089 771 4142 30 55 BU SYNER M 5 1331 B Y02 / 771 4143 30 56 MCW SVZN,0&X1 M 7 1336 M !28 0|0 771 4144 30 57 LCA @,@,000&X2 M 7 1343 L !27 0!0 772 4145 30 58 SBR X2 M 4 1350 H 094 772 4146 30 59 CW 001&X2 M 4 1354 ) 0!1 772 4147 30 60 B BOTM M 4 1358 B 958 772 4148 30 61 IFEXP MCW X1,LOAD&3 M 7 1362 M 089 /77 772 4149 30 62 RTPAR BCE NOZO,000&X1,) M 8 1369 B T93 0|0 ) 772 4150 30 63 BCE SYNER,0&X1,} GM M 8 1377 B Y02 0|0 } GMARK 773 4151 30 64 SBR X1 M 4 1385 H 089 773 4152 30 65 B RTPAR M 4 1389 B T69 773 4153 30 66 NOZO MN 000&X1 M 4 1393 D 0|0 773 4154 30 67 SAR X1 M 4 1397 Q 089 773 4155 30 68 BWZ YEAH,000&X1,2 NO ZONE M 8 1401 V U13 0|0 2 773 4156 30 69 B RTPAR M 4 1409 B T69 773 4157 30 70 YEAH BCE RTPAR,0&X1,@ M 8 1413 B T69 0|0 @ 774 4158 30 71 SW 1&X1 M 4 1421 , 0|1 774 4159 30 72 B GRAB1 M 4 1425 B U73 774 4160 30 73 MN 000&X1 M 4 1429 D 0|0 774 4161 30 74 SAR X1 M 4 1433 Q 089 774 4162 30 754 BCE BADST,0&X1,} GM V3M4 M 8 1437 B Y48 0|0 } GMARK 774 4163 30 764 MN 0&X1 V3M4 M 4 1445 D 0|0 774 4164 30 774 SAR X1 V3M4 M 4 1449 Q 089 775 4165 30 784 B GRAB1 V3M4 M 4 1453 B U73 775 4166 30 794 BCE BADST,0&X1,} GM V3M4 M 8 1457 B Y48 0|0 } GMARK 775 4167 30 80 B GRAB1 M 4 1465 B U73 775 4168 30 81 B COMMA M 4 1469 B S57 775 4169 30 82 GRAB1 SBR EXIT2&3 M 4 1473 H W09 775 4170 30 83 MCW X1,TAKE&3 M 7 1477 M 089 V94 775 4171 30 84 BWZ LOOP,000&X1,2 NO ZONE M 8 1484 V U96 0|0 2 776 4172 30 85 B BADST M 4 1492 B Y48 776 4173 30 86 LOOP MN 000&X1 M 4 1496 D 0|0 776 4174 30 87 SAR X1 M 4 1500 Q 089 776 4175 30 88 BWZ LOOP,000&X1,2 NO ZONE M 8 1504 V U96 0|0 2 776 4176 30 89 FBCEQ SETWM,0&X1,,,},) COMMA,GM M MACRO 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 102 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4177 BCE SETWM, 0&X1, , M 8 1512 B V40 0|0 , GEN 776 4178 BCE SETWM, 0&X1, } M 8 1520 B V40 0|0 } GEN 777 4179 BCE SETWM, 0&X1, ) M 8 1528 B V40 0|0 ) GEN 777 4180 30 90 B BADST M 4 1536 B Y48 777 4181 30 91 SETWM SW 1&X1 M 4 1540 , 0|1 777 4182 30 911 SW MKTST&1 V3M4 M 4 1544 , V60 777 4183 30 912 MLC TAKE&3,MKTST&3 V3M4 M 7 1548 M V94 V62 777 4184 30 913 CW MKTST&1 V3M4 M 4 1555 ) V60 777 4185 30 914 MKTST MLC 0,TEST V3M4 M 7 1559 M 000 932 778 4186 30 915 B TAKE,TEST5-5,: 5-8 V3M4 M 8 1566 B V91 V85 : 778 4187 30 916 MLC @:@,TEST5-5 5-8 V3M4 M 7 1574 M !32 V85 778 4188 30 917 B BADST V3M4 M 4 1581 B Y48 778 4189 30 918 TEST5 DCW @: @ 5-8, BLANK.... V3M4 M 6 1590 778 4190 30 92 TAKE LCA 000,STATE M 7 1591 L 000 !26 778 4191 30 93 CW 001&X1 M 4 1598 ) 0|1 779 4192 30 94 B ALPHA M 4 1602 B W10 779 4193 30 95 EXIT2 B 000 M 4 1606 B 000 779 4194 30 96 ALPHA SBR EXIT1&3 M 4 1610 H Y01 779 4195 30 97 LCA SIX0,PLACE M 7 1614 L Z99 Z37 779 4196 30 98 C SIX0,STATE M 7 1621 C Z99 !26 779 4197 30 99 BU NORM M 5 1628 B W37 / 779 4198 31 00 B SET3 M 4 1633 B W71 780 4199 31 01 NORM SBR X3,STATE&1 M 7 1637 H 099 !27 780 4200 31 02 ZERO MN 000&X3 M 4 1644 D 0?0 780 4201 31 03 SAR X3 M 4 1648 Q 099 780 4202 31 04 BCE ZERO,000&X3,0 M 8 1652 B W44 0?0 0 780 4203 31 05 MCW 000&X3,PLACE M 7 1660 M 0?0 Z37 780 4204 31 06 MCW @1@ M 4 1667 M !33 780 4205 31 07 SET3 SW PLACE-1 M 4 1671 , Z36 781 4206 31 08 CW M 1 1675 ) 781 4207 31 09 SW M 1 1676 , 781 4208 31 10 CW M 1 1677 ) 781 4209 31 11 SW M 1 1678 , 781 4210 31 12 S @5050@,PLACE M 7 1679 S !37 Z37 781 4211 31 13 S M 1 1686 S 781 4212 31 14 BWZ TRY2,PLACE,K B-BIT M 8 1687 V X02 Z37 K 782 4213 31 15 A @1@,PLACE-5 M 7 1695 A !33 Z32 782 4214 31 16 TRY2 BWZ STRIP,PLACE-2,K B-BIT M 8 1702 V X17 Z35 K 782 4215 31 17 A @2@,PLACE-5 M 7 1710 A !38 Z32 782 4216 31 18 STRIP MZ @Z Z Z @,PLACE SET UP FOR GENER M 7 1717 Y !44 Z37 782 4217 31 19 CHAIN 5 M MACRO 4218 MZ M 1 1724 Y GEN 782 4219 MZ M 1 1725 Y GEN 782 4220 MZ M 1 1726 Y GEN 783 4221 MZ M 1 1727 Y GEN 783 4222 MZ M 1 1728 Y GEN 783 4223 31 20 MCW X1,HEX1 M 7 1729 M 089 Z41 783 4224 31 21 MCW &TABLE-49,X1 M 7 1736 M !47 089 783 4225 31 22 MCW &PLACE,X3 M 7 1743 M !50 099 783 4226 31 23 COOL MCW 000&X3,GENER&3 M 7 1750 M 0?0 X64 783 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 103 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4227 31 24 SAR X3 M 4 1757 Q 099 784 4228 31 25 GENER MCW 000,BOX MODIFIED AND INDEXED BY X1 M 7 1761 M 000 Z38 784 4229 31 26 LCA BOX,000&X2 M 7 1768 L Z38 0!0 784 4230 31 27 SBR X2 M 4 1775 H 094 784 4231 31 28 CW 001&X2 M 4 1779 ) 0!1 784 4232 31 29 BWZ COOL,000&X3,2 NO ZONE M 8 1783 V X50 0?0 2 784 4233 31 30 MCW HEX1,X1 M 7 1791 M Z41 089 785 4234 31 31 EXIT1 B 000 M 4 1798 B 000 785 4235 31 32 SYNER FTMSG 13,STATEMENT NUMBER SYNTAX,WORK1,25 M MACRO 4236 SYNER CS 332 M 4 1802 / 332 GEN 785 4237 CS M 1 1806 / GEN 785 4238 SW FAILSW M 4 1807 , 184 GEN 785 4239 MN WORK1,224&25 M 7 1811 D !09 249 GEN 785 4240 MN M 1 1818 D GEN 785 4241 MN M 1 1819 D GEN 786 4242 MCW @ERROR 13 - STATEMENT NUMBER SYNTAX, STATEMENT @ M 4 1820 M !96 GEN 786 4243 W M 1 1824 2 GEN 786 4244 BCV *&5 M 5 1825 B Y34 @ GEN 786 4245 B *&3 M 4 1830 B Y36 GEN 786 4246 CC 1 M 2 1834 F 1 GEN 786 4247 31 33 BW PMOV,BADSW M 8 1836 V Y56 Z42 1 786 4248 31 34 B ERR M 4 1844 B Y77 787 4249 31 35 BADST SW BADSW M 4 1848 , Z42 787 4250 31 36 B SYNER M 4 1852 B Y02 787 4251 31 37 PMOV MCM 1&X2 M 4 1856 P 0!1 787 4252 31 38 MN M 1 1860 D 787 4253 31 39 SAR X2 M 4 1861 Q 094 787 4254 31 40 BCE PMOV,0&X2,| M 8 1865 B Y56 0!0 | 787 4255 31 41 CW BADSW M 4 1873 ) Z42 788 4256 31 42 ERR MCM 4&X2 M 4 1877 P 0!4 788 4257 31 43 MN M 1 1881 D 788 4258 31 44 MN M 1 1882 D 788 4259 31 45 SAR X2 M 4 1883 Q 094 788 4260 31 46 C 0&X1 M 4 1887 C 0|0 788 4261 31 47 SAR X1 M 4 1891 Q 089 788 4262 31 48 B START M 4 1895 B 864 789 4263 31 49 OUT FENDX C,,,,TAMROF,,TAMR1T,TAMROF ONE M MACRO 4264 OUT BSS 333,C M 5 1899 B 333 C GEN 789 4265 SBR INITXT&3,TAMROF M 7 1904 H 796 980 GEN 789 4266 SBR TCLEAR,TAMR1T M 7 1911 H 710 V99 GEN 789 4267 LCA @TAMROF ONE@,110 M 7 1918 L J06 110 GEN 789 4268 B MONTER M 4 1925 B 700 GEN 789 4269 31 50 DCW @ @ M 1 1929 789 4270 31 51 GM DC @}@ G-M M 1 1930 GMARK 789 4271 31 52 DC @.@ M 1 1931 789 4272 31 53 PLACE DCW @ @ M 6 1937 790 4273 31 54 BOX DCW @ @ M 1 1938 790 4274 31 55 HEX1 DCW @ @ M 3 1941 790 4275 31 56 BADSW DC #1 M 1 1942 790 4276 31 57 TABLE DC @.")&$*-%#@?ABCDEFGHI!JKLMNOPQR_/STUVWXYZ0123456789@ M 50 1992 792 1 1401 FORTRAN STATEMENT NUMBER PHASE ONE 50223 PAGE 104 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4277 31 58 DC @.@ M 1 1993 792 4278 31 59 SIX0 DCW @000000@ M 6 1999 792 4279 31 60 * & IS 12-0 PUNCH, - 11-0 PUNCH .,0-7-8 R,11-7-8 4280 31 61 * NO COMMA, RECORD MARK, OR GROUP MARK IN TABLE 4281 31 62 LTORG * M 2000 WORK1M DCW #10 M 10 2009 AREA 792 DCW @WT65UPLDEGK@ M 11 2020 LIT 792 STATEM DCW #06 M 6 2026 AREA 793 DCW @,@ M 1 2027 LIT 793 SVZN M DCW #01 M 1 2028 AREA 793 HEX3 M DCW #03 M 3 2031 AREA 793 DCW @:@ M 1 2032 LIT 793 DCW @1@ M 1 2033 LIT 793 DCW @5050@ M 4 2037 LIT 793 DCW @2@ M 1 2038 LIT 794 DCW @Z Z Z @ M 6 2044 LIT 794 DCW &TABLEM-49 M 3 2047 Z43 ADCON 794 DCW &PLACEM M 3 2050 Z37 ADCON 794 DCW @ERROR 13 - STATEMENT NUMBER SYNTAX, STATEMENT @ M 46 2096 LIT 796 DCW @TAMROF ONE@ M 10 2106 LIT 796 4282 31 63 DCW @}@ SYSTEM GROUP MARK M 1 2107 GMARK 796 4283 31 64 XFR INITL M B 838 797 1 1401 FORTRAN TAMROF PHASE ONE FORMAT SPECS 50233 PAGE 105 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4284 31 65 JOB 1401 FORTRAN TAMROF PHASE ONE FORMAT SPECS M 4285 31 66 FBEGN TAMROF ONE,X1,R,X2,,X3,R,T,XXX M MACRO 4286 SFX T T GEN 4287 XXX EQU 0 T 0000 GEN 4288 110 DCW @TAMROF ONE@ T 10 0110 GEN 800 4289 X1 EQU 089 T 0089 GEN 4290 089 DCW 000 T 3 0089 GEN 801 4291 091 DC 00 T 2 0091 GEN 801 4292 X2 EQU 094 T 0094 GEN 4293 X3 EQU 099 T 0099 GEN 4294 099 DCW 000 T 3 0099 GEN 802 4295 100 DC 0 T 1 0100 GEN 802 4296 31 67 * 4297 31 68 NXBTM EQU 83 T 0083 4298 31 69 * 4299 31 70 ORG XBEGIN T 0838 4300 31 71 KLOBR FQUIT T MACRO 4301 KLOBR CS 332 T 4 0838 / 332 GEN 803 4302 CS T 1 0842 / GEN 803 4303 CC 1 T 2 0843 F 1 GEN 803 4304 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 T 7 0845 M 963 270 GEN 803 4305 W T 1 0852 2 GEN 803 4306 CC 1 T 2 0853 F 1 GEN 803 4307 BCE *&6,MONTOR,1 T 8 0855 B 868 769 1 GEN 803 4308 RWD 1 T 5 0863 U %U1 R GEN 804 4309 H *-3 T 4 0868 . 868 GEN 804 4310 31 72 CKBIT DCW @;@ 11-6-8 T 1 0872 804 4311 31 73 HEX3 DCW #3 T 3 0875 804 4312 31 74 CODE DCW #4 T 4 0879 804 4313 31 75 * ERROR MESSAGE ROUTINE 4314 31 76 * 4315 31 77 ERROR EQU 206 T 0206 4316 31 78 PRNTN EQU 250 T 0250 4317 31 79 * 4318 31 80 GETST SBR GSTXT&3 T 4 0880 H 927 804 4319 31 81 FORMS T MACRO 4320 BCV *&5 T 5 0884 B 893 @ GEN 804 4321 B *&3 T 4 0889 B 895 GEN 805 4322 CC 1 T 2 0893 F 1 GEN 805 4323 31 82 CS 332 T 4 0895 / 332 805 4324 31 83 CS T 1 0899 / 805 4325 31 84 SW FAILSW T 4 0900 , 184 805 4326 31 85 MN CODE,PRNTN T 7 0904 D 879 250 805 4327 31 86 CHAIN 2 T MACRO 4328 MN T 1 0911 D GEN 805 4329 MN T 1 0912 D GEN 806 4330 31 87 MCW @STATEMENT @ T 4 0913 M 974 806 4331 31 88 MCW @ERROR@, ERROR-1 T 7 0917 M 979 205 806 4332 31 89 GSTXT B XXX T 4 0924 B 000 806 4333 31 90 * 1 1401 FORTRAN TAMROF PHASE ONE FORMAT SPECS 50233 PAGE 106 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4334 31 91 LTORG * T 0928 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ T 36 0963 LIT 807 DCW @STATEMENT @ T 11 0974 LIT 808 DCW @ERROR@ T 5 0979 LIT 808 4335 31 92 * 4336 31 93 TAMROF CS 1&X2 T 4 0980 / 0!1 808 4337 31 94 SBR X1 T 4 0984 H 089 808 4338 31 95 SW GM1 T 4 0988 , V03 808 4339 31 96 CLR CS 0&X1 T 4 0992 / 0|0 808 4340 31 97 SBR X1 T 4 0996 H 089 808 4341 31 98 C X1, &TAMR1 T 7 1000 C 089 U36 809 4342 31 99 BU CLR T 5 1007 B 992 / 809 4343 32 00 LCA GM1, TAMAX&1 T 7 1012 L V03 O01 809 4344 32 01 SBR X1, TAMAX&2 T 7 1019 H 089 O02 809 4345 32 02 SBR X2, 2&X2 T 7 1026 H 094 0!2 809 4346 32 03 MCW @.@, 96 T 7 1033 M U37 096 810 4347 32 04 SW IOSW#1 T 4 1040 , U38 810 4348 32 05 CHKND MCW NXBTM, X3 T 7 1044 M 083 099 810 4349 32 06 SBR X3, 1&X3 T 7 1051 H 099 0?1 810 4350 32 07 C X3,X2 T 7 1058 C 099 094 810 4351 32 08 BE FINI T 5 1065 B S16 S 810 4352 32 09 CW DBLSW#1 T 4 1070 ) U39 811 4353 32 10 MN 0&X2 T 4 1074 D 0!0 811 4354 32 11 SAR X3 T 4 1078 Q 099 811 4355 32 12 MCW CKBIT T 4 1082 M 872 811 4356 32 13 MVUP2 MOVUP X2,X1,,,| T MACRO 4357 MVUP2 MN 0&X1 T 4 1086 D 0|0 GEN 811 4358 SAR X1 T 4 1090 Q 089 GEN 811 4359 )0J114 MCM 0&X2 T 4 1094 P 0!0 GEN 811 4360 SAR )0L114&6 T 4 1098 Q /20 GEN 812 4361 MCM 0&X2,1&X1 T 7 1102 P 0!0 0|1 GEN 812 4362 MN T 1 1109 D GEN 812 4363 SBR X1 T 4 1110 H 089 GEN 812 4364 )0L114 SBR X2,0 T 7 1114 H 094 000 GEN 812 4365 BCE )0J114,0&X1,| T 8 1121 B |94 0|0 | GEN 812 4366 MN 0&X2 T 4 1129 D 0!0 GEN 812 4367 CW T 1 1133 ) GEN 813 4368 SW 0&X1 T 4 1134 , 0|0 GEN 813 4369 SBR X1, 1&X1 T 7 1138 H 089 0|1 GEN 813 4370 32 14 BW BOTH,DBLSW T 8 1145 V /61 U39 1 813 4371 32 15 SW DBLSW T 4 1153 , U39 813 4372 32 16 B MVUP2 T 4 1157 B |86 813 4373 32 17 BOTH MN 0&X1 T 4 1161 D 0|0 813 4374 32 18 MN T 1 1165 D 814 4375 32 19 SAR X3 T 4 1166 Q 099 814 4376 32 20 SBR MKFMT&6 T 4 1170 H T97 814 4377 32 21 MCW 0&X3, CODE T 7 1174 M 0?0 879 814 4378 32 22 SAR X3 T 4 1181 Q 099 814 4379 32 23 B CKFMT, CODE-3, F T 8 1185 B T15 876 F 814 4380 32 24 MCW CODE-3, *&8 T 7 1193 M 876 S07 814 1 1401 FORTRAN TAMROF PHASE ONE FORMAT SPECS 50233 PAGE 107 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4381 32 25 BCE YESIO, @56ULP@, X T 8 1200 B S91 U44 X 815 4382 32 26 CHAIN 4 T MACRO 4383 BCE T 1 1208 B GEN 815 4384 BCE T 1 1209 B GEN 815 4385 BCE T 1 1210 B GEN 815 4386 BCE T 1 1211 B GEN 815 4387 32 27 B CHKND T 4 1212 B |44 815 4388 32 28 FINI MN 0&X1 T 4 1216 D 0|0 815 4389 32 29 MN T 1 1220 D 816 4390 32 30 SAR X1 T 4 1221 Q 089 816 4391 32 31 MCW LSTIO, X2 T 7 1225 M U57 094 816 4392 32 32 MCW NXBTM, X3 T 7 1232 M 083 099 816 4393 32 33 MCW @ @, 0&X3 T 7 1239 M U45 0?0 816 4394 32 34 MCW 0&X3 T 4 1246 M 0?0 816 4395 32 35 MCW CKBIT, 0&X3 T 7 1250 M 872 0?0 816 4396 32 36 FENDX C,GM1,,TAMROF,,TAMROF,TAMAX,TAMROF 2 T MACRO 4397 BSS 333,C T 5 1257 B 333 C GEN 817 4398 SBR INITAP&6,TAMROF T 7 1262 H 786 980 GEN 817 4399 SBR BCLEAR T 4 1269 H 833 GEN 817 4400 SBR TCLEAR,TAMAX T 7 1273 H 710 O00 GEN 817 4401 LCA @TAMROF 2@,110 T 7 1280 L U53 110 GEN 817 4402 B MONTER T 4 1287 B 700 GEN 817 4403 32 37 * 4404 32 38 YESIO MZ @A@, 3&X3 T 7 1291 Y U54 0?3 818 4405 32 39 CW IOSW T 4 1298 ) U38 818 4406 32 40 MN 0&X1 T 4 1302 D 0|0 818 4407 32 41 MN T 1 1306 D 818 4408 32 42 SAR LSTIO#3 T 4 1307 Q U57 818 4409 32 43 B CHKND T 4 1311 B |44 818 4410 32 44 * 4411 32 45 CKFMT MCW @ @, 96 T 7 1315 M U45 096 818 4412 32 46 BW UNREF, IOSW T 8 1322 V T61 U38 1 819 4413 32 47 BCE UNREF, 0&X3,} GMWM T 8 1330 B T61 0?0 } GMARK 819 4414 32 48 MCW 0&X3, FBOX#3 T 7 1338 M 0?0 U60 819 4415 32 49 MCW LSTIO, X3 T 7 1345 M U57 099 819 4416 32 50 RUIO BWZ IOTYP, 0&X3, B T 8 1352 V U02 0?0 B 819 4417 32 51 BWZ T 1 1360 V 819 4418 32 52 UNREF FTMSG 14,UNREFERENCED FORMAT,CODE,21,NOFAIL T MACRO 4419 UNREF CS 332 T 4 1361 / 332 GEN 820 4420 CS T 1 1365 / GEN 820 4421 MN CODE,224&21 T 7 1366 D 879 245 GEN 820 4422 MN T 1 1373 D GEN 820 4423 MN T 1 1374 D GEN 820 4424 MCW @ERROR 14 - UNREFERENCED FORMAT, STATEMENT @ T 4 1375 M V02 GEN 820 4425 W T 1 1379 2 GEN 820 4426 BCV *&5 T 5 1380 B T89 @ GEN 821 4427 B *&3 T 4 1385 B T91 GEN 821 4428 CC 1 T 2 1389 F 1 GEN 821 4429 32 53 MKFMT MZ @A@, XXX T 7 1391 Y U54 000 821 4430 32 54 B CHKND T 4 1398 B |44 821 1 1401 FORTRAN TAMROF PHASE ONE FORMAT SPECS 50233 PAGE 108 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4431 32 55 IOTYP C 0&X3 T 4 1402 C 0?0 821 4432 32 56 SAR X3 T 4 1406 Q 099 821 4433 32 57 C 0&X3, FBOX T 7 1410 C 0?0 U60 822 4434 32 58 BE CHKND T 5 1417 B |44 S 822 4435 32 59 C 0&X3 T 4 1422 C 0?0 822 4436 32 60 SAR X3 T 4 1426 Q 099 822 4437 32 61 B RUIO T 4 1430 B T52 822 4438 32 62 * 4439 32 63 LTORG * T 1434 DCW &TAMR1T T 3 1436 V99 ADCON 822 DCW @.@ T 1 1437 LIT 822 IOSW T DCW #01 T 1 1438 AREA 823 DBLSWT DCW #01 T 1 1439 AREA 823 DCW @56ULP@ T 5 1444 LIT 823 DCW @ @ T 1 1445 LIT 823 DCW @TAMROF 2@ T 8 1453 LIT 823 DCW @A@ T 1 1454 LIT 823 LSTIOT DCW #03 T 3 1457 AREA 823 FBOX T DCW #03 T 3 1460 AREA 824 DCW @ERROR 14 - UNREFERENCED FORMAT, STATEMENT @ T 42 1502 LIT 826 4440 32 64 GM1 DCW @}@ SYSTEM AND WORK GM T 1 1503 GMARK 826 4441 32 65 ORG *&X00 T 1600 4442 32 66 TAMR1 EQU * T 1599 4443 32 67 XFR TAMROF T B 980 827 1 1401 FORTRAN TAMROF TWO 50243 PAGE 109 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4444 32 68 JOB 1401 FORTRAN TAMROF TWO T 4445 32 69 110 DCW @TAMROF 2@ T 8 0110 830 4446 32 70 * 4447 32 71 XL2 EQU X2 T 0094 4448 32 72 XL3 EQU X3 T 0099 4449 32 73 ORG TAMROF T 0980 4450 32 74 * 4451 32 75 PHSE2 BCE END2, 96, . T 8 0980 B |21 096 . 831 4452 32 76 MCW X2, IOBGN&6 T 7 0988 M 094 J59 831 4453 32 77 RETRN SBR X2, 2&X1 T 7 0995 H 094 0|2 831 4454 32 78 LCA @ @ T 4 1002 L M20 831 4455 32 79 MCW 0&X1, CODE T 7 1006 M 0|0 879 831 4456 32 80 BCE MOR, CODE-3, F T 8 1013 B |62 876 F 832 4457 32 81 END2 FENDX C,GM2,,XBEGIN,PHSE1X,XBEGIN,SYS2,LISTR1 T MACRO 4458 END2 BSS 333,C T 5 1021 B 333 C GEN 832 4459 SBR INITAP&6,XBEGIN T 7 1026 H 786 838 GEN 832 4460 SBR BCLEAR T 4 1033 H 833 GEN 832 4461 SBR INITXT&3,PHSE1X T 7 1037 H 796 845 GEN 832 4462 SBR TCLEAR,SYS2 T 7 1044 H 710 N99 GEN 832 4463 LCA @LISTR1@,110 T 7 1051 L M26 110 GEN 833 4464 B MONTER T 4 1058 B 700 GEN 833 4465 32 82 MOR C 0&X1 T 4 1062 C 0|0 833 4466 32 83 SAR X1 T 4 1066 Q 089 833 4467 32 84 SBR COMPL&6 T 4 1070 H /21 833 4468 32 85 MCW 4&X1, FMTNO#3 T 7 1074 M 0|4 M29 833 4469 32 86 SW SW1#1 T 4 1081 , M30 833 4470 32 87 CW PARSW#1 T 4 1085 ) M31 834 4471 32 88 ZA &1, NCTR T 7 1089 ? M32 M38 834 4472 32 89 BCE ERSIG, 0&X1, ) Q. FIRST CHAR RIGHT PAREN T 8 1096 B S58 0|0 ) 834 4473 32 90 MCW X2,SCNBX#3 T 7 1104 M 094 M35 834 4474 32 91 B BGIN T 4 1111 B V10 834 4475 32 92 * 4476 32 93 COMPL SBR X1, XXX T 7 1115 H 089 000 834 4477 32 94 SETN ZA &1, NCTR#3 T 7 1122 ? M32 M38 835 4478 32 95 COMRT BCE RTPAR,0&X1, ) T 8 1129 B V41 0|0 ) 835 4479 32 96 SBR COMPL&6 T 4 1137 H /21 835 4480 32 97 BCE LFPAR, 0&X1,% T 8 1141 B U98 0|0 % 835 4481 32 98 FBCEQ ARIT, 0&X1,I,F,E T MACRO 4482 BCE ARIT, 0&X1, I T 8 1149 B W64 0|0 I GEN 835 4483 BCE ARIT, 0&X1, F T 8 1157 B W64 0|0 F GEN 836 4484 BCE ARIT, 0&X1, E T 8 1165 B W64 0|0 E GEN 836 4485 32 99 BCE ARIT,0&X1,A T 8 1173 B W64 0|0 A 836 4486 33 00 FBCEQ PGET, 0&X1, &,- T MACRO 4487 BCE PGET, 0&X1, & T 8 1181 B U24 0|0 & GEN 836 4488 BCE PGET, 0&X1, - T 8 1189 B U24 0|0 - GEN 837 4489 33 01 BCE SLASH,0&X1,@ T 8 1197 B W36 0|0 @ 837 4490 33 02 C 0&X1, @Z@ T 7 1205 C 0|0 M39 837 4491 33 03 BL MV2N T 5 1212 B Z04 T 837 4492 33 04 BL PUTN T 5 1217 B !10 T 837 4493 33 05 BW ERSIG, SW1 T 8 1222 V S58 M30 1 838 1 1401 FORTRAN TAMROF TWO 50243 PAGE 110 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4494 33 06 BCE HNOT, 0&X1, H T 8 1230 B T06 0|0 H 838 4495 33 07 SBR X1 T 4 1238 H 089 838 4496 33 08 BCE XNOT, 1&X1, X T 8 1242 B S81 0|1 X 838 4497 33 09 BCE PNOT, 1&X1, P T 8 1250 B U79 0|1 P 838 4498 33 10 * 4499 33 11 ERSIG B GETST T 4 1258 B 880 839 4500 33 12 MCW @15 - FORMAT SYNTAX@,ERROR&17 T 7 1262 M M57 223 839 4501 33 13 ERRWT W T 1 1269 2 839 4502 33 14 MZ @A@,CODE T 7 1270 Y M58 879 839 4503 33 15 B FINIS T 4 1277 B !54 839 4504 33 16 * 4505 33 17 XNOT SW 8&X2 T 4 1281 , 0!8 839 4506 33 18 SBR X2 T 4 1285 H 094 839 4507 33 19 LCA KX T 4 1289 L L95 840 4508 33 20 MN NCTR, 0&X2 T 7 1293 D M38 0!0 840 4509 33 21 MN T 1 1300 D 840 4510 33 22 MN T 1 1301 D 840 4511 33 23 B MKND T 4 1302 B Y35 840 4512 33 24 * 4513 33 25 HNOT SW 5&X2 T 4 1306 , 0!5 840 4514 33 26 CW T 1 1310 ) 840 4515 33 27 SBR X2 T 4 1311 H 094 841 4516 33 28 LCA KH, 1&X2 T 7 1315 L L88 0!1 841 4517 33 29 S &1, NCTR T 7 1322 S M32 M38 841 4518 33 30 BM ERSIG, NCTR T 8 1329 V S58 M38 K 841 4519 33 31 MN 0&X1 T 4 1337 D 0|0 841 4520 33 32 SAR X1 T 4 1341 Q 089 841 4521 33 33 FLIP MN 0&X1, 2&X2 T 7 1345 D 0|0 0!2 842 4522 33 34 SBR X2 T 4 1352 H 094 842 4523 33 35 MZ 0&X1, 1&X2 T 7 1356 Y 0|0 0!1 842 4524 33 36 SAR X1 T 4 1363 Q 089 842 4525 33 37 SBR COMPL&6 T 4 1367 H /21 842 4526 33 38 CW 2&X2 T 4 1371 ) 0!2 842 4527 33 39 S &1, NCTR T 7 1375 S M32 M38 842 4528 33 40 BCE HLERR,0&X1,} GM T 8 1382 B U09 0|0 } GMARK 843 4529 33 41 BWZ FLIP, NCTR, B T 8 1390 V T45 M38 B 843 4530 33 42 BX2B2 SBR X2,1&X2 T 7 1398 H 094 0!1 843 4531 33 43 B MKND T 4 1405 B Y35 843 4532 33 44 HLERR B GETST T 4 1409 B 880 843 4533 33 45 MCW @45 - HOLLERITH COUNT@,ERROR &25 T 7 1413 M M78 231 843 4534 33 46 W BX2B2 T 4 1420 2 T98 844 4535 33 47 * 4536 33 48 PGET MZ 0&X1, NCTR T 7 1424 Y 0|0 M38 844 4537 33 49 SAR X1 T 4 1431 Q 089 844 4538 33 50 B MV2N T 4 1435 B Z04 844 4539 33 51 C X3,@020@ T 7 1439 C 099 M81 844 4540 33 52 BL ERSIG T 5 1446 B S58 T 844 4541 33 53 MN X3, NCTR T 7 1451 D 099 M38 844 4542 33 54 MN T 1 1458 D 845 4543 33 55 C 0&X1, @P@ T 7 1459 C 0|0 M82 845 1 1401 FORTRAN TAMROF TWO 50243 PAGE 111 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4544 33 56 SAR COMPL&6 T 4 1466 Q /21 845 4545 33 57 SBR X1 T 4 1470 H 089 845 4546 33 58 BU ERSIG T 5 1474 B S58 / 845 4547 33 59 * 4548 33 60 PNOT SBR X2, 7&X2 T 7 1479 H 094 0!7 845 4549 33 61 LCA NCTR T 4 1486 L M38 845 4550 33 62 LCA KP T 4 1490 L M19 846 4551 33 63 B MKND T 4 1494 B Y35 846 4552 33 64 * 4553 33 65 LFPAR BW PARER, PARSW T 8 1498 V V69 M31 1 846 4554 33 66 SW PARSW T 4 1506 , M31 846 4555 33 67 BGIN SW 8&X2 T 4 1510 , 0!8 846 4556 33 68 SBR X2 T 4 1514 H 094 846 4557 33 69 CW URFSW T 4 1518 ) N62 846 4558 33 70 LCA NCTR,0&X2 T 7 1522 L M38 0!0 847 4559 33 71 LCA KLEFT T 4 1529 L L99 847 4560 33 72 SET1 SW SW1 T 4 1533 , M30 847 4561 33 73 B COMPL T 4 1537 B /15 847 4562 33 74 * 4563 33 75 RTPAR MN 0&X1 T 4 1541 D 0|0 847 4564 33 76 SAR COMPL&6 T 4 1545 Q /21 847 4565 33 77 SBR *&7 T 4 1549 H V59 847 4566 33 78 BCE EOSTM, XXX, } GMWM T 8 1553 B W12 000 } GMARK 848 4567 33 79 BW PAROK, PARSW T 8 1561 V V84 M31 1 848 4568 33 80 PARER B GETST T 4 1569 B 880 848 4569 33 81 MCW @16 - PARENTHESIS ERROR@,ERROR&22 T 7 1573 M N04 228 848 4570 33 82 B ERRWT T 4 1580 B S69 848 4571 33 83 * 4572 33 84 PAROK CW PARSW T 4 1584 ) M31 848 4573 33 85 SW 5&X2 T 4 1588 , 0!5 848 4574 33 86 SBR X2 T 4 1592 H 094 849 4575 33 87 LCA KRITE T 4 1596 L M03 849 4576 33 88 MN 0&X1 T 4 1600 D 0|0 849 4577 33 89 SAR X1 T 4 1604 Q 089 849 4578 33 90 B MKND T 4 1608 B Y35 849 4579 33 91 * 4580 33 92 EOSTM CW 5&X2 T 4 1612 ) 0!5 849 4581 33 93 SBR X2 T 4 1616 H 094 849 4582 33 94 LCA KEOJ T 4 1620 L M15 850 4583 33 95 BW PARER, PARSW T 8 1624 V V69 M31 1 850 4584 33 96 B FINIS T 4 1632 B !54 850 4585 33 97 * 4586 33 98 SLASH BW *&5,SW1 T 8 1636 V W48 M30 1 850 4587 33 99 B ERSIG T 4 1644 B S58 850 4588 34 00 SW 5&X2 T 4 1648 , 0!5 850 4589 34 01 SBR X2 T 4 1652 H 094 850 4590 34 02 LCA KLINE T 4 1656 L M07 851 4591 34 03 B COMPL T 4 1660 B /15 851 4592 34 04 * 4593 34 05 ARIT SW 5&X2 T 4 1664 , 0!5 851 1 1401 FORTRAN TAMROF TWO 50243 PAGE 112 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4594 34 06 LCA KARIT T 4 1668 L M11 851 4595 34 07 MVRPT LCA NCTR,8&X2 T 7 1672 L M38 0!8 851 4596 34 08 MCW 0&X1 T 4 1679 M 0|0 851 4597 34 09 SAR X1 T 4 1683 Q 089 851 4598 34 10 B MV2N T 4 1687 B Z04 852 4599 34 11 ZA XL3, WCTR#3 T 7 1691 ? 099 N07 852 4600 34 12 SW IEXIT&4 T 4 1698 , Y12 852 4601 34 13 BCE CLRI, 5&X2, F T 8 1702 B X33 0!5 F 852 4602 33 14 FBCEQ NOSUB, 5&X2, I, A T MACRO 4603 BCE NOSUB, 5&X2, I T 8 1710 B X72 0!5 I GEN 852 4604 BCE NOSUB, 5&X2, A T 8 1718 B X72 0!5 A GEN 852 4605 33 15 S &4, WCTR T 7 1726 S N08 N07 853 4606 33 16 CLRI CW IEXIT&4 T 4 1733 ) Y12 853 4607 34 17 C 0&X1, @.@ T 7 1737 C 0|0 N09 853 4608 34 18 SAR X1 T 4 1744 Q 089 853 4609 34 19 BU ERSIG T 5 1748 B S58 / 853 4610 34 20 B MV2N T 4 1753 B Z04 853 4611 34 21 S XL3, WCTR T 7 1757 S 099 N07 853 4612 34 224 BM TESTE,WCTR V3M4 T 8 1764 V Z98 N07 K 854 4613 34 23 NOSUB BCE *&8, 5&X2, F T 8 1772 B X87 0!5 F 854 4614 34 24 A &4, X3 T 7 1780 A N08 099 854 4615 34 25 HERE SBR X2,11&X2 T 7 1787 H 094 0J1 854 4616 34 26 MZ *-4,WCTR T 7 1794 Y X96 N07 854 4617 34 27 LCA WCTR,0&X2 T 7 1801 L N07 0!0 855 4618 34 28 IEXIT BCE CKZRO, *-7, C T 8 1808 B Y27 Y08 C 855 4619 34 29 SBR XL2, 3&X2 T 7 1816 H 094 0!3 855 4620 34 30 LCA XL3 T 4 1823 L 099 855 4621 34 31 CKZRO BM ERSIG,WCTR T 8 1827 V S58 N07 K 855 4622 34 32 MKND SW SW1 T 4 1835 , M30 855 4623 34 33 LK4CM C 0&X1,@,@ T 7 1839 C 0|0 N10 856 4624 34 34 SAR COMPL&6 T 4 1846 Q /21 856 4625 34 35 SBR X1 T 4 1850 H 089 856 4626 34 36 BE LK4CM T 5 1854 B Y39 S 856 4627 34 37 SBR X1,1&X1 T 7 1859 H 089 0|1 856 4628 34 38 B SETN T 4 1866 B /22 856 4629 34 39 EINPT A XL3,WCTR T 7 1870 A 099 N07 856 4630 34 40 A @4@,WCTR T 7 1877 A N11 N07 857 4631 34 41 MN WCTR,XL3 T 7 1884 D N07 099 857 4632 34 42 MN T 1 1891 D 857 4633 34 43 MN T 1 1892 D 857 4634 34 44 MCW @000@,WCTR T 7 1893 M N14 N07 857 4635 34 45 B HERE T 4 1900 B X87 857 4636 34 46 * 4637 34 47 MV2N SBR MV2XT&3 T 4 1904 H Z97 857 4638 34 48 S XL3&1 T 4 1908 S 100 858 4639 34 49 C 0&X1, @0@ T 7 1912 C 0|0 N15 858 4640 34 50 BH ERSIG T 5 1919 B S58 U 858 4641 34 51 MVDIG MN 0&X1, XL3 T 7 1924 D 0|0 099 858 4642 34 52 SAR X1 T 4 1931 Q 089 858 4643 34 53 C 0&X1, @0@ T 7 1935 C 0|0 N15 858 1 1401 FORTRAN TAMROF TWO 50243 PAGE 113 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4644 34 54 BH CHKN T 5 1942 B Z77 U 858 4645 34 55 C XL3,@133@ T 7 1947 C 099 N18 859 4646 34 56 BL ERSIG T 5 1954 B S58 T 859 4647 34 57 MN XL3-1, XL3-2 T 7 1959 D 098 097 859 4648 34 58 MN XL3, XL3-1 T 7 1966 D 099 098 859 4649 34 59 B MVDIG T 4 1973 B Z24 859 4650 34 60 * 4651 34 61 CHKN C @134@, XL3 T 7 1977 C N21 099 859 4652 34 62 BH ERSIG T 5 1984 B S58 U 860 4653 34 63 BE ERSIG T 5 1989 B S58 S 860 4654 34 64 MV2XT B XXX T 4 1994 B 000 860 4655 34 65 * 4656 34 651 TESTE BCE EINPT, 5&X2, E V3M4 T 8 1998 B Y70 0!5 E 860 4657 34 652 B ERSIG V3M4 T 4 2006 B S58 860 4658 34 66 * 4659 34 67 PUTN ZA XL3, NCTR T 7 2010 ? 099 M38 860 4660 34 68 SW BCEQ&7 T 4 2017 , !42 860 4661 34 69 MCW 0&X1, BCEQ&7 T 7 2021 M 0|0 !42 861 4662 34 70 CW BCEQ&7, SW1 T 7 2028 ) !42 M30 861 4663 34 71 BCEQ BCE COMRT, @PAXHIFE%@, X T 8 2035 B /29 N29 X 861 4664 34 72 CHAIN 7 T MACRO 4665 BCE T 1 2043 B GEN 861 4666 BCE T 1 2044 B GEN 861 4667 BCE T 1 2045 B GEN 861 4668 BCE T 1 2046 B GEN 861 4669 BCE T 1 2047 B GEN 862 4670 BCE T 1 2048 B GEN 862 4671 BCE T 1 2049 B GEN 862 4672 34 73 B ERSIG T 4 2050 B S58 862 4673 34 74 * 4674 34 75 FINIS MCW NXBTM, X3 T 7 2054 M 083 099 862 4675 34 76 BWZ SETX2, CODE, B T 8 2061 V K72 879 B 862 4676 34 77 C 0&X3,CKBIT T 7 2069 C 0?0 872 862 4677 34 78 BU KLOBR T 5 2076 B 838 / 863 4678 34 79 MVDWN LCA 0&X2,0&X3 T 7 2081 L 0!0 0?0 863 4679 34 80 SAR X2 T 4 2088 Q 094 863 4680 34 81 C 0&X3 T 4 2092 C 0?0 863 4681 34 82 SAR X3 T 4 2096 Q 099 863 4682 34 83 CW 1&X2 T 4 2100 ) 0!1 863 4683 34 84 C X2,SCNBX T 7 2104 C 094 M35 863 4684 34 85 BU MVDWN T 5 2111 B !81 / 864 4685 34 86 SBR HEX3, 0&X3 T 7 2116 H 875 0?0 864 4686 34 87 CW 0&X2 T 4 2123 ) 0!0 864 4687 34 88 CW T 1 2127 ) 864 4688 34 89 MCW T 1 2128 M 864 4689 34 90 SAR X2 T 4 2129 Q 094 864 4690 34 91 CW 1&X2 T 4 2133 ) 0!1 864 4691 34 92 BW MV2GM,URFSW T 8 2137 V K60 N62 1 865 4692 34 93 BCE MV2GM,IOBGN&5, BLANK T 8 2145 B K60 J58 865 4693 34 94 IOBGN SBR X2, XXX T 7 2153 H 094 000 865 1 1401 FORTRAN TAMROF TWO 50243 PAGE 114 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4694 34 95 CW REFSW#1 T 4 2160 ) N30 865 4695 34 96 SBR MVADR&6, 1&X3 T 7 2164 H L58 0?1 865 4696 34 97 REPLS MN 0&X2 T 4 2171 D 0!0 865 4697 34 98 CHAIN 2 T MACRO 4698 MN T 1 2175 D GEN 865 4699 MN T 1 2176 D GEN 866 4700 34 99 SAR X3 T 4 2177 Q 099 866 4701 35 00 MN 0&X3, *&15 T 7 2181 D 0?0 K02 866 4702 35 01 MZ 0&X3, *&8 T 7 2188 Y 0?0 K02 866 4703 35 02 BCE IOWK, @56ULP@, X T 8 2195 B L09 N35 X 866 4704 35 03 CHAIN 4 T MACRO 4705 BCE T 1 2203 B GEN 866 4706 BCE T 1 2204 B GEN 866 4707 BCE T 1 2205 B GEN 867 4708 BCE T 1 2206 B GEN 867 4709 35 04 BW NDRPL, REFSW T 8 2207 V K31 N30 1 867 4710 35 05 B GETST T 4 2215 B 880 867 4711 35 06 MCW @17 - DOUBLY DEFINED FORMAT@,ERROR&26 T 7 2219 M N61 232 867 4712 35 07 W T 1 2226 2 867 4713 35 08 B FBAD T 4 2227 B K87 867 4714 35 09 NDRPL MCW HEX3, X3 T 7 2231 M 875 099 868 4715 35 10 BWZ FBAD, CODE, B T 8 2238 V K87 879 B 868 4716 35 11 FOKAY MCW X3, NXBTM T 7 2246 M 099 083 868 4717 35 12 MCW CKBIT, 0&X3 T 7 2253 M 872 0?0 868 4718 35 13 MV2GM C 0&X1 T 4 2260 C 0|0 868 4719 35 14 SAR X1 T 4 2264 Q 089 868 4720 35 15 B RETRN T 4 2268 B 995 869 4721 35 16 SETX2 MCW X2, X3 T 7 2272 M 094 099 869 4722 35 17 SW URFSW#1 T 4 2279 , N62 869 4723 35 18 B MVDWN T 4 2283 B !81 869 4724 35 19 FBAD MCW NXBTM, X3 T 7 2287 M 083 099 869 4725 35 20 LCA @.@,0&X3 T 7 2294 L N09 0?0 869 4726 35 21 SBR X3 T 4 2301 H 099 869 4727 35 22 B FOKAY T 4 2305 B K46 870 4728 35 23 IOWK C 0&X3 T 4 2309 C 0?0 870 4729 35 24 SAR X2 T 4 2313 Q 094 870 4730 35 25 BWZ *&5, 2&X3, B T 8 2317 V L29 0?2 B 870 4731 35 26 B NOSWT T 4 2325 B L73 870 4732 35 27 C 0&X2, FMTNO T 7 2329 C 0!0 M29 870 4733 35 28 BU NOSWT T 5 2336 B L73 / 870 4734 35 29 SW REFSW T 4 2341 , N30 871 4735 35 30 MA MACFLS,MVADR&6 T 7 2345 # 163 L58 871 4736 35 31 MVADR SBR 0&X2, XXX T 7 2352 H 0!0 000 871 4737 35 32 MZ @ @, 2&X3 T 7 2359 Y M20 0?2 871 4738 35 33 MA PLUSDF,MVADR&6 T 7 2366 # 160 L58 871 4739 35 34 NOSWT C 0&X2 T 4 2373 C 0!0 871 4740 35 35 SAR X2 T 4 2377 Q 094 872 4741 35 36 B REPLS T 4 2381 B J71 872 4742 35 37 * 4743 35 38 KH DCW @BL28@ HOLLR CHANGE IF OBJ FORMAT REASSEMBLED T 4 2388 872 1 1401 FORTRAN TAMROF TWO 50243 PAGE 115 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4744 35 39 KX DCW @H0990&0@ T 7 2395 872 4745 35 40 KLEFT DCW @BJ52@ OPENR CHANGE IF OBJ FORMAT REASSEMBLED T 4 2399 872 4746 35 41 KRITE DCW @BJ85@ CLSPR CHANGE IF OBJ FORMAT REASSEMBLED T 4 2403 872 4747 35 42 KLINE DCW @BK08@ NDLIN CHANGE IF OBJ FORMAT REASSEMBLED T 4 2407 872 4748 35 43 KARIT DCW @BL85@ GETW CHANGE IF OBJ FORMAT REASSEMBLED T 4 2411 873 4749 35 44 KEOJ DCW @BK23@ EOJ1 CHANGE IF OBJ FORMAT REASSEMBLED T 4 2415 873 4750 35 45 KP DCW @BL10@ SCALE CHANGE IF OBJ FORMAT REASSEMBLED T 4 2419 873 4751 35 46 LTORG * T 2420 DCW @ @ T 1 2420 LIT 873 DCW @LISTR1@ T 6 2426 LIT 873 FMTNOT DCW #03 T 3 2429 AREA 873 SW1 T DCW #01 T 1 2430 AREA 873 PARSWT DCW #01 T 1 2431 AREA 874 DCW &1 T 1 2432 LIT 874 SCNBXT DCW #03 T 3 2435 AREA 874 NCTR T DCW #03 T 3 2438 AREA 874 DCW @Z@ T 1 2439 LIT 874 DCW @15 - FORMAT SYNTAX@ T 18 2457 LIT 874 DCW @A@ T 1 2458 LIT 874 DCW @45 - HOLLERITH COUNT@ T 20 2478 LIT 875 DCW @020@ T 3 2481 LIT 875 DCW @P@ T 1 2482 LIT 875 DCW @16 - PARENTHESIS ERROR@ T 22 2504 LIT 876 WCTR T DCW #03 T 3 2507 AREA 876 DCW &4 T 1 2508 LIT 876 DCW @.@ T 1 2509 LIT 876 DCW @,@ T 1 2510 LIT 876 DCW @4@ T 1 2511 LIT 876 DCW @000@ T 3 2514 LIT 876 DCW @0@ T 1 2515 LIT 877 DCW @133@ T 3 2518 LIT 877 DCW @134@ T 3 2521 LIT 877 DCW @PAXHIFE%@ T 8 2529 LIT 877 REFSWT DCW #01 T 1 2530 AREA 877 DCW @56ULP@ T 5 2535 LIT 877 DCW @17 - DOUBLY DEFINED FORMAT@ T 26 2561 LIT 878 URFSWT DCW #01 T 1 2562 AREA 878 4752 35 47 ORG *&X00 T 2600 4753 35 48 ORG *-1 T 2599 4754 35 49 SYS2 DCW @}@ SYSTEM GROUP MARK T 1 2599 GMARK 879 4755 35 50 TAMAX DCW #1 T 1 2600 879 4756 35 51 XFR PHSE2 T B 980 880 1 1401 FORTRAN LISTS PHASE ONE 50253 PAGE 116 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4757 35 52 JOB 1401 FORTRAN LISTS PHASE ONE T 4758 35 53 FBEGN LISTR1,X1,,X2,R,X3,R,X T MACRO 4759 SFX X X GEN 4760 110 DCW @LISTR1@ X 6 0110 GEN 883 4761 X1 EQU 089 X 0089 GEN 4762 X2 EQU 094 X 0094 GEN 4763 094 DCW 000 X 3 0094 GEN 884 4764 096 DC 00 X 2 0096 GEN 884 4765 X3 EQU 099 X 0099 GEN 4766 099 DCW 000 X 3 0099 GEN 884 4767 100 DC 0 X 1 0100 GEN 884 4768 35 54 NXBTM EQU 083 X 0083 4769 35 55 * CHECKS FOR DUPLICATE LISTS 4770 35 56 ORG XBEGIN X 0838 4771 35 57 CODE DCW #4 X 4 0841 885 4772 35 58 ABOTM DCW #3 X 3 0844 885 4773 35 59 PHSE1 MCW X1,ABOTM X 7 0845 M 089 844 885 4774 35 60 MCW NXBTM,X2 X 7 0852 M 083 094 885 4775 35 61 LCA @.@,0&X2 X 7 0859 L S13 0!0 885 4776 35 62 CW 0&X2 X 4 0866 ) 0!0 885 4777 35 63 SBR NXBTM X 4 0870 H 083 885 4778 35 64 SBR PERIOD,0&X2 X 7 0874 H 154 0!0 886 4779 35 65 MA MACFLS,PERIOD X 7 0881 # 163 154 886 4780 35 66 START BCE DUN,000&X1, BLANK X 8 0888 B /68 0|0 886 4781 35 67 MCW 000&X1,CODE X 7 0896 M 0|0 841 886 4782 35 68 MCW X1,ALTER&6 X 7 0903 M 089 /63 886 4783 35 69 MCW CODE-3,*&8 X 7 0910 M 838 924 887 4784 35 70 BCE LIST,@5613LUP@,0 X 8 0917 B 935 S20 0 887 4785 35 71 CHAIN 6 X MACRO 4786 BCE X 1 0925 B GEN 887 4787 BCE X 1 0926 B GEN 887 4788 BCE X 1 0927 B GEN 887 4789 BCE X 1 0928 B GEN 887 4790 BCE X 1 0929 B GEN 887 4791 BCE X 1 0930 B GEN 888 4792 35 72 B DUN X 4 0931 B /68 888 4793 35 73 LIST C 000&X1 X 4 0935 C 0|0 888 4794 35 74 SAR X1 X 4 0939 Q 089 888 4795 35 75 B COMMA X 4 0943 B |88 888 4796 35 76 CW XDOINI X 4 0947 ) 114 888 4797 35 77 BCE NEXT1,PARAMA&10,L X 8 0951 B 963 696 L 888 4798 35 78 CW XOBLST X 4 0959 ) 115 889 4799 35 79 NEXT1 SW 000&X1 X 4 0963 , 0|0 889 4800 35 80 SAR X1 X 4 0967 Q 089 889 4801 35 81 MCW ABOTM,X3 X 7 0971 M 844 099 889 4802 35 82 RUDUP C 0&X3 X 4 0978 C 0?0 889 4803 35 83 C X 1 0982 C 889 4804 35 84 SAR X3 X 4 0983 Q 099 889 4805 35 85 BCE RUDUP,1&X3,} GM X 8 0987 B 978 0?1 } GMARK 890 4806 35 86 C X1,X3 X 7 0995 C 089 099 890 1 1401 FORTRAN LISTS PHASE ONE 50253 PAGE 117 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4807 35 87 BU COMP X 5 1002 B |19 / 890 4808 35 88 PASS C 000&X1 X 4 1007 C 0|0 890 4809 35 89 SAR X1 X 4 1011 Q 089 890 4810 35 90 B START X 4 1015 B 888 890 4811 35 91 COMP C 000&X1,000&X3 X 7 1019 C 0|0 0?0 890 4812 35 92 BU RESET X 5 1026 B |68 / 891 4813 35 93 C 000&X3,000&X1 X 7 1031 C 0?0 0|0 891 4814 35 94 BU RESET X 5 1038 B |68 / 891 4815 35 95 BWZ WRONG,0&X1,1 X 8 1043 V /16 0|0 1 891 4816 35 96 BWZ X 1 1051 V 891 4817 35 97 BWZ X 1 1052 V 891 4818 35 98 LCA X3,000&X1 X 7 1053 L 099 0|0 891 4819 35 99 SBR X1 X 4 1060 H 089 892 4820 36 00 B PASS X 4 1064 B |07 892 4821 36 01 RESET C 000&X3 X 4 1068 C 0?0 892 4822 36 02 SAR X3 X 4 1072 Q 099 892 4823 36 03 BCE RUDUP,1&X3,} GM X 8 1076 B 978 0?1 } GMARK 892 4824 36 04 B RESET X 4 1084 B |68 892 4825 36 05 COMMA SBR EXCMA&3 X 4 1088 H /03 892 4826 36 06 CKNG BW PASS,0&X1 X 8 1092 V |07 0|0 1 893 4827 36 07 EXCMA BCE 000,000&X1,, X 8 1100 B 000 0|0 , 893 4828 36 08 SBR X1 X 4 1108 H 089 893 4829 36 09 B CKNG X 4 1112 B |92 893 4830 36 10 WRONG FTMSG 18,LIST SYNTAX,CODE,13 X MACRO 4831 WRONG CS 332 X 4 1116 / 332 GEN 893 4832 CS X 1 1120 / GEN 893 4833 SW FAILSW X 4 1121 , 184 GEN 893 4834 MN CODE,224&13 X 7 1125 D 841 237 GEN 894 4835 MN X 1 1132 D GEN 894 4836 MN X 1 1133 D GEN 894 4837 MCW @ERROR 18 - LIST SYNTAX, STATEMENT @ X 4 1134 M S54 GEN 894 4838 W X 1 1138 2 GEN 894 4839 BCV *&5 X 5 1139 B /48 @ GEN 894 4840 B *&3 X 4 1144 B /50 GEN 894 4841 CC 1 X 2 1148 F 1 GEN 895 4842 36 11 MCW @/@,CODE-3 X 7 1150 M S55 838 895 4843 36 12 ALTER MCW CODE,000 X 7 1157 M 841 000 895 4844 36 13 B PASS X 4 1164 B |07 895 4845 36 14 DUN SW 000&X1 X 4 1168 , 0|0 895 4846 36 15 MCW ABOTM,X1 X 7 1172 M 844 089 895 4847 36 16 FENDX C,,,PHSE1,,PHSE1,SYS1,LISTR TWO X MACRO 4848 BSS 333,C X 5 1179 B 333 C GEN 895 4849 SBR INITAP&6,PHSE1 X 7 1184 H 786 845 GEN 896 4850 SBR BCLEAR X 4 1191 H 833 GEN 896 4851 SBR TCLEAR,SYS1 X 7 1195 H 710 S65 GEN 896 4852 LCA @LISTR TWO@,110 X 7 1202 L S64 110 GEN 896 4853 B MONTER X 4 1209 B 700 GEN 896 4854 36 17 LTORG * X 1213 DCW @.@ X 1 1213 LIT 896 DCW @5613LUP@ X 7 1220 LIT 896 1 1401 FORTRAN LISTS PHASE ONE 50253 PAGE 118 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @ERROR 18 - LIST SYNTAX, STATEMENT @ X 34 1254 LIT 897 DCW @/@ X 1 1255 LIT 897 DCW @LISTR TWO@ X 9 1264 LIT 898 4855 36 18 SYS1 DCW @}@ SYSTEM GROUP MARK X 1 1265 GMARK 898 4856 36 19 XFR PHSE1 X B 845 899 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 119 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4857 36 20 JOB 1401 FORTRAN LISTS PHASE TWO X 4858 36 21 * REORDERS, SQUEEZES, ERROR CHECKS, AND STORES LIST 4859 36 22 110 DCW @LISTR TWO@ X 9 0110 902 4860 36 23 ORG PHSE1 X 0845 4861 36 24 PHSE2 MCW NXBTM,X2 X 7 0845 M 083 094 903 4862 36 25 GO BWZ OUT,000&X1,1 X 8 0852 V Z88 0|0 1 903 4863 36 26 MCW X2,HEX2#3 X 7 0860 M 094 !53 903 4864 36 27 MCW 000&X1,CODE X 7 0867 M 0|0 841 903 4865 36 28 MCW X1,EMASQ&6 X 7 0874 M 089 Z69 903 4866 36 29 C 000&X1 X 4 0881 C 0|0 904 4867 36 30 SAR X1 X 4 0885 Q 089 904 4868 36 31 SBR X3 X 4 0889 H 099 904 4869 36 32 SLIP C 0&X3 X 4 0893 C 0?0 904 4870 36 33 SAR X3 X 4 0897 Q 099 904 4871 36 34 BCE *&5,1&X3,} GM X 8 0901 B 913 0?1 } GMARK 904 4872 36 35 B SLIP X 4 0909 B 893 904 4873 36 36 SBR NXGUY&6,0&X3 X 7 0913 H Z83 0?0 905 4874 36 37 C 000&X1 X 4 0920 C 0|0 905 4875 36 38 C X 1 0924 C 905 4876 36 39 SAR HEX1#3 X 4 0925 Q !56 905 4877 36 40 BCE HEX1X,0&X1,, X 8 0929 B 947 0|0 , 905 4878 36 41 CHAIN 6 X MACRO 4879 BCE X 1 0937 B GEN 905 4880 BCE X 1 0938 B GEN 905 4881 BCE X 1 0939 B GEN 906 4882 BCE X 1 0940 B GEN 906 4883 BCE X 1 0941 B GEN 906 4884 BCE X 1 0942 B GEN 906 4885 36 42 B CKTYP X 4 0943 B Y22 906 4886 36 43 HEX1X MCW HEX1,X1 X 7 0947 M !56 089 906 4887 36 44 BCE NEW,001&X1,} GROUP MK X 8 0954 B 989 0|1 } GMARK 906 4888 36 45 MCW 003&X1,X3 DUPLICATES WERE CHAINED X 7 0962 M 0|3 099 907 4889 36 46 BWZ ERROR,001&X3,1 DUPLICATE WAS BAD STATEMENT X 8 0969 V Z22 0?1 1 907 4890 36 47 LCA 001&X3,004&X1 X 7 0977 L 0?1 0|4 907 4891 36 48 CW X 1 0984 ) 907 4892 36 49 B NXGUY X 4 0985 B Z77 907 4893 36 50 NEW BCE CKLST,2&X3,, ALLOW LAST CHAR OF COMMA X 8 0989 B X98 0?2 , 907 4894 36 51 SBR X3 X 4 0997 H 099 907 4895 36 52 SNDPT LCA @.@,000&X2 X 7 1001 L !57 0!0 908 4896 36 53 SBR X2 X 4 1008 H 094 908 4897 36 54 CW 001&X2 X 4 1012 ) 0!1 908 4898 36 55 S COUNT#1 X 4 1016 S !58 908 4899 36 56 MAIN SBR X3,001&X3 X 7 1020 H 099 0?1 908 4900 36 57 BCE RTPAR,000&X3,) X 8 1027 B S72 0?0 ) 908 4901 36 58 BCE DOLLR,000&X3,$ X 8 1035 B X37 0?0 $ 909 4902 36 59 B RUADR X 4 1043 B Y42 909 4903 36 60 LCA ADRSS,000&X2 X 7 1047 L J45 0!0 909 4904 36 61 SBR X2 X 4 1054 H 094 909 4905 36 62 BCE CKWMK,0&X3,, X 8 1058 B S60 0?0 , 909 4906 36 63 BCE LFPAR,0&X3,% X 8 1066 B U67 0?0 % 909 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 120 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4907 36 64 B RUADR X 4 1074 B Y42 910 4908 36 65 LCA ADRSS,000&X2 X 7 1078 L J45 0!0 910 4909 36 66 LCA @,@ X 4 1085 L !59 910 4910 36 67 SBR X2 X 4 1089 H 094 910 4911 36 68 CW 5&X2 X 4 1093 ) 0!5 910 4912 36 69 CW 001&X2 X 4 1097 ) 0!1 910 4913 36 70 MZ 3&X2,SVZN#1 X 7 1101 Y 0!3 !60 910 4914 36 71 MCW X1,SV1#3 X 7 1108 M 089 !63 911 4915 36 72 ZA PARAMA&4,HOLD5 X 7 1115 ? 690 !68 911 4916 36 73 BWZ DUN2,3&X2,K X 8 1122 V /37 0!3 K 911 4917 36 74 MCW PARAMA&6,HOLD5#5 X 7 1130 M 692 !68 911 4918 36 75 DUN2 S &16000,HOLD5 X 7 1137 S !73 !68 911 4919 36 76 FPACK HOLD5,HOLD3,X1 X MACRO 4920 INCLD ZONES X MACRO 4921 MN HOLD5,HOLD3 X 7 1144 D !68 !77 GEN 912 4922 MN X 1 1151 D GEN 912 4923 MN X 1 1152 D GEN 912 4924 SAR *&4 X 4 1153 Q /60 GEN 912 4925 MCW 0,X1 X 7 1157 M 000 089 GEN 912 4926 MCW @0@ X 4 1164 M !74 GEN 912 4927 A X1 X 4 1168 A 089 GEN 912 4928 MZ ZONES&1&X1,HOLD3 X 7 1172 Y !S0 !77 GEN 913 4929 CW X 1 1179 ) GEN 913 4930 SBR *&7 X 4 1180 H /90 GEN 913 4931 MZ ZONES&X1, 0 X 7 1184 Y !/9 000 GEN 913 4932 36 77 MCW HOLD3#3,X1 X 7 1191 M !77 089 913 4933 36 78 MCW 4&X2,SBR4&6 X 7 1198 M 0!4 S18 913 4934 36 79 MZ *-6,SBR4&5 X 7 1205 Y S05 S17 914 4935 36 80 SBR4 SBR 4&X2,0 X 7 1212 H 0!4 000 914 4936 36 81 MZ SVZN,3&X2 X 7 1219 Y !60 0!3 914 4937 36 82 MCW SV1,X1 X 7 1226 M !63 089 914 4938 36 83 MZ *-4,6&X2 X 7 1233 Y S35 0!6 914 4939 36 84 CKLFP BCE LFPAR,0&X3,% X 8 1240 B U67 0?0 % 915 4940 36 85 CKCOM C 000&X3,@,@ X 7 1248 C 0?0 !59 915 4941 36 86 BU ERROR X 5 1255 B Z22 / 915 4942 36 87 CKWMK BWZ FNLIZ,000&X3,1 WORD MK X 8 1260 V W97 0?0 1 915 4943 36 88 B MAIN X 4 1268 B |20 915 4944 36 89 RTPAR BCE SETUP,COUNT,? PLUS ZERO X 8 1272 B W34 !58 ? 916 4945 36 90 PUTS MCW X1,SAVE1#3 X 7 1280 M 089 !80 916 4946 36 91 LCA @.@,000&X1 X 7 1287 L !57 0|0 916 4947 36 92 SBR X1 X 4 1294 H 089 916 4948 36 93 A &1,COUNT X 7 1298 A !81 !58 916 4949 36 94 BCE ERROR,COUNT,D ALLOW FOR NEST THREE DEEP X 8 1305 B Z22 !58 D 917 4950 36 95 B PUTMI X 4 1313 B W52 917 4951 36 96 C 000&X3,@,@ X 7 1317 C 0?0 !59 917 4952 36 97 BU ERROR X 5 1324 B Z22 / 917 4953 36 98 B PUTMI X 4 1329 B W52 917 4954 36 99 BCE PUTMI,000&X3,, X 8 1333 B W52 0?0 , 917 4955 37 00 C 000&X3,@#@ X 7 1341 C 0?0 !82 918 4956 37 01 BU ERROR X 5 1348 B Z22 / 918 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 121 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 4957 37 02 B PUTMI X 4 1353 B W52 918 4958 37 03 SBR 000&X1,001&X2 X 7 1357 H 0|0 0!1 918 4959 37 04 CW 000&X1 X 4 1364 ) 0|0 918 4960 37 05 CW X 1 1368 ) 918 4961 37 06 SW X 1 1369 , 918 4962 37 07 SAR X1 X 4 1370 Q 089 919 4963 37 08 MCW X3,HEX3#3 X 7 1374 M 099 !85 919 4964 37 09 MN 000&X3 X 4 1381 D 0?0 919 4965 37 10 SAR X3 X 4 1385 Q 099 919 4966 37 11 LOOPY BCE INNER,002&X3,% LFPAR X 8 1389 B U21 0?2 % 919 4967 37 12 BCE OUTER,002&X3,) RTPAR X 8 1397 B U40 0?2 ) 919 4968 37 13 BWZ ERROR,002&X3,1 X 8 1405 V Z22 0?2 1 920 4969 37 14 SBR X3 X 4 1413 H 099 920 4970 37 15 B LOOPY X 4 1417 B T89 920 4971 37 16 INNER LCA @)@,000&X2 X 7 1421 L !86 0!0 920 4972 37 17 SBR X2 X 4 1428 H 094 920 4973 37 18 CW 001&X2 X 4 1432 ) 0!1 920 4974 37 19 B RESTR X 4 1436 B U56 920 4975 37 20 OUTER LCA @# @,000&X2 3 BLANKS X 7 1440 L !90 0!0 921 4976 37 21 SBR X2 X 4 1447 H 094 921 4977 37 22 SW 002&X2 X 4 1451 , 0!2 921 4978 37 23 CW X 1 1455 ) 921 4979 37 24 RESTR MCW HEX3,X3 X 7 1456 M !85 099 921 4980 37 25 B CKCOM X 4 1463 B S48 921 4981 37 26 LFPAR S &1,COUNT X 7 1467 S !81 !58 921 4982 37 27 BWZ ERROR,COUNT,K X 8 1474 V Z22 !58 K 922 4983 37 28 MA MACFLS,3&X1 X 7 1482 # 163 0|3 922 4984 37 29 LCA 003&X1,000&X2 X 7 1489 L 0|3 0!0 922 4985 37 30 LCA 6&X1 X 4 1496 L 0|6 922 4986 37 31 SBR X2 X 4 1500 H 094 922 4987 37 32 BCE M3IS1,013&X1,. X 8 1504 B W19 0/3 . 922 4988 37 33 LCA 015&X1,000&X2 X 7 1512 L 0/5 0!0 923 4989 37 34 SBR X2 X 4 1519 H 094 923 4990 37 35 SNDM2 LCA 012&X1,000&X2 X 7 1523 L 0/2 0!0 923 4991 37 36 LCA X 1 1530 L 923 4992 37 37 LCA @%@ X 4 1531 L !91 923 4993 37 38 SBR X2 X 4 1535 H 094 923 4994 37 39 CW 001&X2 X 4 1539 ) 0!1 923 4995 37 40 SWTCH NOP SWOFF X 4 1543 N W08 924 4996 37 41 MCW 003&X1,X1 X 7 1547 M 0|3 089 924 4997 37 42 MN 000&X1 X 4 1554 D 0|0 924 4998 37 43 SAR X1 X 4 1558 Q 089 924 4999 37 44 MA PLUSDF,X1 X 7 1562 # 160 089 924 5000 37 45 MA MACFLS,X2 X 7 1569 # 163 094 924 5001 37 46 SBR 0&X1,1&X2 X 7 1576 H 0|0 0!1 925 5002 37 47 MA PLUSDF,X2 X 7 1583 # 160 094 925 5003 37 48 BUMP SBR X3,001&X3 X 7 1590 H 099 0?1 925 5004 37 49 MCW SAVE1,X1 X 7 1597 M !80 089 925 5005 37 50 B CKLFP X 4 1604 B S40 925 5006 37 51 SWOFF MCW @N@,SWTCH X 7 1608 M !92 V43 925 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 122 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5007 37 52 B BUMP X 4 1615 B V90 926 5008 37 53 M3IS1 LCA ADONE,000&X2 OBJ TIME ADDR OF FIX PT ONE X 7 1619 L 142 0!0 926 5009 37 54 SBR X2 X 4 1626 H 094 926 5010 37 55 B SNDM2 X 4 1630 B V23 926 5011 37 56 SETUP SBR X1,SPACE#48 X 7 1634 H 089 J40 926 5012 37 57 MCW @B@,SWTCH X 7 1641 M J41 V43 926 5013 37 58 B PUTS X 4 1648 B S80 926 5014 37 59 PUTMI SBR EXPMI&3 X 4 1652 H W96 927 5015 37 60 SBR X3,001&X3 X 7 1656 H 099 0?1 927 5016 37 61 B RUADR X 4 1663 B Y42 927 5017 37 62 LCA ADRSS,000&X1 X 7 1667 L J45 0|0 927 5018 37 63 SBR X1 X 4 1674 H 089 927 5019 37 64 MZ *-4,2&X1 X 7 1678 Y W80 0|2 927 5020 37 65 BWZ ERROR,000&X3,1 X 8 1685 V Z22 0?0 1 928 5021 37 66 EXPMI B 000 X 4 1693 B 000 928 5022 37 67 FNLIZ C COUNT,@?@ PLUS ZERO X 7 1697 C !58 J42 928 5023 37 68 BU ERROR X 5 1704 B Z22 / 928 5024 37 69 CW 000&X3 X 4 1709 ) 0?0 928 5025 37 70 CW X 1 1713 ) 928 5026 37 71 SW X 1 1714 , 928 5027 37 72 SAR X3 X 4 1715 Q 099 929 5028 37 73 SBR 003&X3,001&X2 X 7 1719 H 0?3 0!1 929 5029 37 74 MA MACFLS,3&X3 X 7 1726 # 163 0?3 929 5030 37 75 B NXGUY X 4 1733 B Z77 929 5031 37 76 DOLLR SW 0&X3 X 4 1737 , 0?0 929 5032 37 77 SAR X3 X 4 1741 Q 099 929 5033 37 78 SBR CW&3,1&X3 X 7 1745 H X93 0?1 929 5034 37 79 LOOP BCE NDOLR,2&X3,$ X 8 1752 B X68 0?2 $ 930 5035 37 80 SBR X3 X 4 1760 H 099 930 5036 37 81 B LOOP X 4 1764 B X52 930 5037 37 82 NDOLR LCA 2&X3,0&X2 X 7 1768 L 0?2 0!0 930 5038 37 83 SBR X2 X 4 1775 H 094 930 5039 37 84 CW 1&X2 X 4 1779 ) 0!1 930 5040 37 85 SBR X3,3&X3 X 7 1783 H 099 0?3 930 5041 37 86 CW CW 0 X 4 1790 ) 000 931 5042 37 87 B CKLFP X 4 1794 B S40 931 5043 37 88 CKLST BWZ RMVCM,2&X3,1 X 8 1798 V Y17 0?2 1 931 5044 37 89 SBR X3,2&X3 X 7 1806 H 099 0?2 931 5045 37 90 B SNDPT X 4 1813 B |01 931 5046 37 91 RMVCM SW 3&X3 X 4 1817 , 0?3 931 5047 37 92 CW X 1 1821 ) 931 5048 37 93 CKTYP FBCEQ ERROR,CODE-3,1,3 X MACRO 5049 CKTYP BCE ERROR, CODE-3, 1 X 8 1822 B Z22 838 1 GEN 932 5050 BCE ERROR, CODE-3, 3 X 8 1830 B Z22 838 3 GEN 932 5051 37 94 B EMASQ X 4 1838 B Z63 932 5052 37 95 RUADR SBR EXRUA&3 X 4 1842 H Y96 932 5053 37 96 MN 002&X3,EXRUK&7 X 7 1846 D 0?2 Z08 932 5054 37 97 B RUOK X 4 1853 B Y97 932 5055 37 98 MN 001&X3,EXRUK&7 X 7 1857 D 0?1 Z08 933 5056 37 99 B RUOK X 4 1864 B Y97 933 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 123 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5057 38 00 MN 000&X3,EXRUK&7 X 7 1868 D 0?0 Z08 933 5058 38 01 B RUOK X 4 1875 B Y97 933 5059 38 02 MCW 002&X3,ADRSS#3 X 7 1879 M 0?2 J45 933 5060 38 03 SBR X3,003&X3 X 7 1886 H 099 0?3 933 5061 38 04 EXRUA B 000 X 4 1893 B 000 934 5062 38 05 RUOK SBR EXRUK&3 X 4 1897 H Z04 934 5063 38 06 EXRUK BCE 000,@0123456789@,0 X 8 1901 B 000 J55 0 934 5064 38 07 CHAIN 9 X MACRO 5065 BCE X 1 1909 B GEN 934 5066 BCE X 1 1910 B GEN 934 5067 BCE X 1 1911 B GEN 934 5068 BCE X 1 1912 B GEN 934 5069 BCE X 1 1913 B GEN 935 5070 BCE X 1 1914 B GEN 935 5071 BCE X 1 1915 B GEN 935 5072 BCE X 1 1916 B GEN 935 5073 BCE X 1 1917 B GEN 935 5074 38 08 B ERROR X 4 1918 B Z22 935 5075 38 09 ERROR FTMSG 47,BAD LIST,CODE,10 X MACRO 5076 ERROR CS 332 X 4 1922 / 332 GEN 935 5077 CS X 1 1926 / GEN 936 5078 SW FAILSW X 4 1927 , 184 GEN 936 5079 MN CODE,224&10 X 7 1931 D 841 234 GEN 936 5080 MN X 1 1938 D GEN 936 5081 MN X 1 1939 D GEN 936 5082 MCW @ERROR 47 - BAD LIST, STATEMENT @ X 4 1940 M J86 GEN 936 5083 W X 1 1944 2 GEN 936 5084 BCV *&5 X 5 1945 B Z54 @ GEN 937 5085 B *&3 X 4 1950 B Z56 GEN 937 5086 CC 1 X 2 1954 F 1 GEN 937 5087 38 10 MCW @/@,CODE-3 X 7 1956 M J87 838 937 5088 38 11 EMASQ MCW CODE,000 X 7 1963 M 841 000 937 5089 38 12 MCW HEX2,X2 X 7 1970 M !53 094 937 5090 38 13 NXGUY SBR X1,0 X 7 1977 H 089 000 937 5091 38 14 B GO X 4 1984 B 852 938 5092 38 15 OUT MCW ABOTM,X1 X 7 1988 M 844 089 938 5093 38 16 FENDX C,,,,,,SYS2,LISTR TRI X MACRO 5094 BSS 333,C X 5 1995 B 333 C GEN 938 5095 SBR TCLEAR,SYS2 X 7 2000 H 710 J97 GEN 938 5096 LCA @LISTR TRI@,110 X 7 2007 L J96 110 GEN 938 5097 B MONTER X 4 2014 B 700 GEN 938 5098 38 17 ORG * X 2018 5099 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG X 2018 5100 DCW #1 X 1 2018 GEN 938 5101 ZONES DC 9 X 1 2019 GEN 938 5102 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ X 31 2050 GEN 939 * LTORG* GEN HEX2 X DCW #03 X 3 2053 AREA 939 HEX1 X DCW #03 X 3 2056 AREA 939 DCW @.@ X 1 2057 LIT 939 1 1401 FORTRAN LISTS PHASE TWO 50263 PAGE 124 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD COUNTX DCW #01 X 1 2058 AREA 939 DCW @,@ X 1 2059 LIT 940 SVZN X DCW #01 X 1 2060 AREA 940 SV1 X DCW #03 X 3 2063 AREA 940 HOLD5X DCW #05 X 5 2068 AREA 940 DCW &16000 X 5 2073 LIT 940 DCW @0@ X 1 2074 LIT 940 HOLD3X DCW #03 X 3 2077 AREA 940 SAVE1X DCW #03 X 3 2080 AREA 941 DCW &1 X 1 2081 LIT 941 DCW @#@ X 1 2082 LIT 941 HEX3 X DCW #03 X 3 2085 AREA 941 DCW @)@ X 1 2086 LIT 941 DCW @# @ X 4 2090 LIT 941 DCW @%@ X 1 2091 LIT 941 DCW @N@ X 1 2092 LIT 942 SPACEX DCW #48 X 48 2140 AREA 944 DCW @B@ X 1 2141 LIT 944 DCW @?@ X 1 2142 LIT 944 ADRSSX DCW #03 X 3 2145 AREA 944 DCW @0123456789@ X 10 2155 LIT 944 DCW @ERROR 47 - BAD LIST, STATEMENT @ X 31 2186 LIT 945 DCW @/@ X 1 2187 LIT 945 DCW @LISTR TRI@ X 9 2196 LIT 946 5103 38 18 SYS2 DCW @}@ SYSTEM GROUP MARK X 1 2197 GMARK 946 5104 38 19 ADONE EQU ONEADR X 0142 5105 38 20 XFR PHSE2 X B 845 947 1 1401 FORTRAN LISTS PHASE THREE 50273 PAGE 125 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5106 38 21 JOB 1401 FORTRAN LISTS PHASE THREE X 5107 38 22 110 DCW @LISTR TRI@ X 9 0110 950 5108 38 23 * MOVES DOWN PROGRAM 5109 38 24 ORG PHSE2 X 0845 5110 38 25 PHSE3 MCW X2,NXBTM X 7 0845 M 094 083 951 5111 38 26 SW GM X 4 0852 , |11 951 5112 38 27 LCA GM,0&X2 X 7 0856 L |11 0!0 951 5113 38 28 SBR X2 X 4 0863 H 094 951 5114 38 29 BEGIN BWZ NOLST,000&X1,1 X 8 0867 V 918 0|0 1 951 5115 38 30 B SLIDE X 4 0875 B 942 951 5116 38 31 B SLIDE X 4 0879 B 942 951 5117 38 32 BCE BEGIN,1&X2,} GM X 8 0883 B 867 0!1 } GMARK 952 5118 38 33 CW 001&X2 X 4 0891 ) 0!1 952 5119 38 34 C 0&X1 X 4 0895 C 0|0 952 5120 38 35 SAR X1 X 4 0899 Q 089 952 5121 38 36 SBR X1,001&X1 X 7 0903 H 089 0|1 952 5122 38 37 B SLIDE X 4 0910 B 942 952 5123 38 38 B BEGIN X 4 0914 B 867 952 5124 38 39 NOLST CW 000&X1 X 4 0918 ) 0|0 953 5125 38 40 RUDUN BCE EXPH3,000&X1, BLANK X 8 0922 B 969 0|0 953 5126 38 41 B SLIDE X 4 0930 B 942 953 5127 38 42 B SLIDE X 4 0934 B 942 953 5128 38 43 B RUDUN X 4 0938 B 922 953 5129 38 44 SLIDE SBR EXSLD&3 X 4 0942 H 968 953 5130 38 45 MVDWN X1,X2 X MACRO 5131 LCA 0&X1,0&X2 X 7 0946 L 0|0 0!0 GEN 953 5132 SAR X1 X 4 0953 Q 089 GEN 954 5133 C 0&X2 X 4 0957 C 0!0 GEN 954 5134 SAR X2 X 4 0961 Q 094 GEN 954 5135 38 46 EXSLD B 000 X 4 0965 B 000 954 5136 38 47 EXPH3 FENDX D,,,XBEGIN,PHSE2N,XBEGIN,SYS3,STNUM2 X MACRO 5137 EXPH3 BSS 333,D X 5 0969 B 333 D GEN 954 5138 SBR INITAP&6,XBEGIN X 7 0974 H 786 838 GEN 954 5139 SBR BCLEAR X 4 0981 H 833 GEN 954 5140 SBR INITXT&3,PHSE2N X 7 0985 H 796 937 GEN 955 5141 SBR TCLEAR,SYS3 X 7 0992 H 710 |18 GEN 955 5142 LCA @STNUM2@,110 X 7 0999 L |17 110 GEN 955 5143 B MONTER X 4 1006 B 700 GEN 955 5144 38 48 DCW @ @ BLANK X 1 1010 955 5145 38 49 GM DC @}@ GROUP MARK X 1 1011 GMARK 955 5146 38 50 LTORG * X 1012 DCW @STNUM2@ X 6 1017 LIT 955 5147 38 51 SYS3 DCW @}@ SYSTEM GROUP MARK X 1 1018 GMARK 955 5148 38 52 XFR PHSE3 X B 845 956 1 1401 FORTRAN STATEMENT NUMBER DEFINER TWO 50283 PAGE 126 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5149 38 53 JOB 1401 FORTRAN STATEMENT NUMBER DEFINER TWO X 5150 38 54 FBEGN STNUM TWO,X1,,X2,,X3,R,N X MACRO 5151 SFX N N GEN 5152 110 DCW @STNUM TWO@ N 9 0110 GEN 959 5153 X1 EQU 089 N 0089 GEN 5154 X2 EQU 094 N 0094 GEN 5155 X3 EQU 099 N 0099 GEN 5156 099 DCW 000 N 3 0099 GEN 960 5157 100 DC 0 N 1 0100 GEN 960 5158 38 55 ORG XBEGIN N 0838 5159 38 56 BASE DCW #3 N 3 0840 961 5160 38 57 MAX DCW #4 N 4 0844 961 5161 38 58 DC #2 N 2 0846 961 5162 38 59 UPLIM DCW #3 N 3 0849 961 5163 38 60 NOMO DCW #3 N 3 0852 961 5164 38 61 MVUP SBR EXMVP&3 N 4 0853 H 936 961 5165 38 62 MOVUP X2,X1,NOMO,ALL,| N MACRO 5166 MN 0&X1 N 4 0857 D 0|0 GEN 961 5167 SAR X1 N 4 0861 Q 089 GEN 961 5168 )0J131 MCM 0&X2 N 4 0865 P 0!0 GEN 962 5169 SAR )0L131&6 N 4 0869 Q 891 GEN 962 5170 MCM 0&X2,1&X1 N 7 0873 P 0!0 0|1 GEN 962 5171 MN N 1 0880 D GEN 962 5172 SBR X1 N 4 0881 H 089 GEN 962 5173 )0L131 SBR X2,0 N 7 0885 H 094 000 GEN 962 5174 BCE )0J131,0&X1,| N 8 0892 B 865 0|0 | GEN 962 5175 MN 0&X2 N 4 0900 D 0!0 GEN 963 5176 CW N 1 0904 ) GEN 963 5177 SW 0&X1 N 4 0905 , 0|0 GEN 963 5178 C X2,NOMO N 7 0909 C 094 852 GEN 963 5179 BU )0J131 N 5 0916 B 865 / GEN 963 5180 38 63 MN 000&X1 N 4 0921 D 0|0 963 5181 38 64 SAR X1 N 4 0925 Q 089 963 5182 38 65 SBR X2 N 4 0929 H 094 964 5183 38 66 EXMVP B 000 N 4 0933 B 000 964 5184 38 67 NXBTM EQU 083 N 0083 5185 38 68 PHSE2 MCW NXBTM,X3 N 7 0937 M 083 099 964 5186 38 69 SBR NOMO,1&X3 N 7 0944 H 852 0?1 964 5187 38 70 MCW X2,X3 N 7 0951 M 094 099 964 5188 38 71 CLR1 CS 000&X3 N 4 0958 / 0?0 964 5189 38 72 SBR X3 N 4 0962 H 099 964 5190 38 73 C X3,&SAUCE-1 N 7 0966 C 099 T10 965 5191 38 74 BU CLR1 N 5 0973 B 958 / 965 5192 38 75 SBR X1,SAUCE-1 N 7 0978 H 089 A99 965 5193 38 76 * SHIFT SOURCE PROGRAM UP TO COMPILER PROGRAM 5194 38 77 B MVUP N 4 0985 B 853 965 5195 38 78 SBR BASE,5&X1 N 7 0989 H 840 0|5 965 5196 38 79 MN TWO9,BASE N 7 0996 D S75 840 965 5197 38 80 MN N 1 1003 D 965 5198 38 81 MCW NXBTM,X3 N 7 1004 M 083 099 966 1 1401 FORTRAN STATEMENT NUMBER DEFINER TWO 50283 PAGE 127 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5199 38 82 * CLEAR BALANCE OF CORE 5200 38 83 CLR2 CS 000&X3 N 4 1011 / 0?0 966 5201 38 84 SBR X3 N 4 1015 H 099 966 5202 38 85 C X3,BASE N 7 1019 C 099 840 966 5203 38 86 BU CLR2 N 5 1026 B |11 / 966 5204 38 87 MCW @<@,0&X3 12-6-8 N 7 1031 M T11 0?0 966 5205 38 88 * DIVIDE REST OF CORE FOR TABLES RATIO 3 TO 7 5206 38 89 MCW NXBTM,LOC N 7 1038 M 083 S73 967 5207 38 90 B UNPAK N 4 1045 B S00 967 5208 38 91 MCW NUM#5,MAX&2 N 7 1049 M T16 846 967 5209 38 92 MCW BASE,LOC N 7 1056 M 840 S73 967 5210 38 93 B UNPAK N 4 1063 B S00 967 5211 38 94 S NUM,MAX&2 N 7 1067 S T16 846 967 5212 38 95 A MAX&2 N 4 1074 A 846 968 5213 38 96 A MAX&2 N 4 1078 A 846 968 5214 38 97 A MAX&2 N 4 1082 A 846 968 5215 38 98 A MAX&2 N 4 1086 A 846 968 5216 38 99 A MAX,ACCUM#6 N 7 1090 A 844 T22 968 5217 39 00 A ACCUM N 4 1097 A T22 968 5218 39 01 A MAX,ACCUM 3*MAX IN ACCUM N 7 1101 A 844 T22 968 5219 39 02 A NUM,ACCUM N 7 1108 A T16 T22 969 5220 39 03 MCW ACCUM-3,X3 N 7 1115 M T19 099 969 5221 39 04 A X3 N 4 1122 A 099 969 5222 39 05 MZ ZONES&X3,ACCUM-2 N 7 1126 Y SG6 T20 969 5223 39 06 MZ ZONES&1&X3,ACCUM N 7 1133 Y SG7 T22 969 5224 39 07 MCW ACCUM,X3 N 7 1140 M T22 099 969 5225 39 08 SW 002&X3 N 4 1147 , 0?2 970 5226 39 09 MCW @<@ 12-6-8 N 4 1151 M T11 970 5227 39 10 SBR UPLIM N 4 1155 H 849 970 5228 39 11 FENDX C,,,PHSE2,PHSE3,PHSE2,SAUCE-1,STNUM TRI N MACRO 5229 BSS 333,C N 5 1159 B 333 C GEN 970 5230 SBR INITAP&6,PHSE2 N 7 1164 H 786 937 GEN 970 5231 SBR BCLEAR N 4 1171 H 833 GEN 970 5232 SBR INITXT&3,PHSE3 N 7 1175 H 796 /87 GEN 970 5233 SBR TCLEAR,SAUCE-1 N 7 1182 H 710 A99 GEN 971 5234 LCA @STNUM TRI@,110 N 7 1189 L T31 110 GEN 971 5235 B MONTER N 4 1196 B 700 GEN 971 5236 39 12 UNPAK SBR EXIT&3 N 4 1200 H S68 971 5237 39 13 MN LOC,NUM N 7 1204 D S73 T16 971 5238 39 14 MN N 1 1211 D 971 5239 39 15 MN N 1 1212 D 971 5240 39 16 MCW N 1 1213 M 972 5241 39 17 MZ LOC,TWO9 N 7 1214 Y S73 S75 972 5242 39 18 MZ LOC-2,TWO9-1 N 7 1221 Y S71 S74 972 5243 39 19 SBR X3,ZONES-3 N 7 1228 H 099 S73 972 5244 39 20 COMP C 004&X3,TWO9 N 7 1235 C 0?4 S75 972 5245 39 21 SAR X3 N 4 1242 Q 099 972 5246 39 22 A &1,NUM-3 N 7 1246 A T32 T13 973 5247 39 23 BU COMP N 5 1253 B S35 / 973 5248 39 24 MZ @ @,NUM-3 N 7 1258 Y T33 T13 973 1 1401 FORTRAN STATEMENT NUMBER DEFINER TWO 50283 PAGE 128 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5249 39 25 EXIT B 0 N 4 1265 B 000 973 5250 39 26 LOC DCW @0J @ N 5 1273 973 5251 39 27 TWO9 DCW @99@ N 2 1275 973 5252 39 28 ZONES DC @9@ N 1 1276 973 5253 39 29 DC @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ N 31 1307 974 5254 39 30 LTORG * N 1308 DCW &SAUCEN-1 N 3 1310 A99 ADCON 974 DCW @<@ N 1 1311 LIT 974 NUM N DCW #05 N 5 1316 AREA 975 ACCUMN DCW #06 N 6 1322 AREA 975 DCW @STNUM TRI@ N 9 1331 LIT 975 DCW &1 N 1 1332 LIT 975 DCW @ @ N 1 1333 LIT 975 5255 39 31 DCW @}@ SYSTEM GROUP MARK N 1 1334 GMARK 975 5256 39 32 XFR PHSE2 N B 937 976 1 1401 FORTRAN STATEMENT NUMBER PHASE THREE 50293 PAGE 129 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5257 39 33 JOB 1401 FORTRAN STATEMENT NUMBER PHASE THREE N 5258 39 34 110 DCW @STNUM TRI@ N 9 0110 979 5259 39 35 ORG PHSE2 N 0937 5260 39 36 SLIDE SBR EXSLD&3 N 4 0937 H 963 980 5261 39 37 MVDWN X1,X2 N MACRO 5262 LCA 0&X1,0&X2 N 7 0941 L 0|0 0!0 GEN 980 5263 SAR X1 N 4 0948 Q 089 GEN 980 5264 C 0&X2 N 4 0952 C 0!0 GEN 980 5265 SAR X2 N 4 0956 Q 094 GEN 980 5266 39 38 EXSLD B 000 N 4 0960 B 000 980 5267 39 39 RANDM SBR EXRDM&3 N 4 0964 H |47 980 5268 39 40 MCW 000&X1,ALPH N 7 0968 M 0|0 |51 981 5269 39 41 SAR HEX1 N 4 0975 Q |54 981 5270 39 42 MN ALPH,MOD N 7 0979 D |51 |58 981 5271 39 43 CHAIN 3 BLANK IN ALPH-3 IMPLIES 3 DIGIT NO. IN MOD N MACRO 5272 MN N 1 0986 D GEN 981 5273 MN N 1 0987 D GEN 981 5274 MN N 1 0988 D GEN 981 5275 39 44 SUBTR S MAX,MOD N 7 0989 S 844 |58 981 5276 39 45 BWZ SUBTR,MOD,B N 8 0996 V 989 |58 B 982 5277 39 46 A MAX,MOD N 7 1004 A 844 |58 982 5278 39 47 MZ *-4,MOD N 7 1011 Y |13 |58 982 5279 39 48 MCW MOD,X1 N 7 1018 M |58 089 982 5280 39 49 A X1 N 4 1025 A 089 982 5281 39 50 A MOD,X1 N 7 1029 A |58 089 983 5282 39 51 BUMP NOP 000 INITIALIZED BY PHSE3 N 4 1036 N 000 983 5283 39 52 SAR X1 N 4 1040 Q 089 983 5284 39 53 EXRDM B 000 N 4 1044 B 000 983 5285 39 54 DCW #1 N 1 1048 983 5286 39 55 ALPH DCW #3 N 3 1051 983 5287 39 56 HEX1 DCW #3 N 3 1054 983 5288 39 57 MOD DCW #4 N 4 1058 984 5289 39 58 CODE DCW #4 N 4 1062 984 5290 39 59 NEXT DCW #3 N 3 1065 984 5291 39 60 FULL FQUIT N MACRO 5292 FULL CS 332 N 4 1066 / 332 GEN 984 5293 CS N 1 1070 / GEN 984 5294 CC 1 N 2 1071 F 1 GEN 984 5295 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 N 7 1073 M /79 270 GEN 984 5296 W N 1 1080 2 GEN 985 5297 CC 1 N 2 1081 F 1 GEN 985 5298 BCE *&6,MONTOR,1 N 8 1083 B |96 769 1 GEN 985 5299 RWD 1 N 5 1091 U %U1 R GEN 985 5300 H *-3 N 4 1096 . |96 GEN 985 5301 39 61 OUT MCW SAVE1,X1 N 7 1100 M /43 089 985 5302 39 62 FENDX C,,,PHSE3,,PHSE3,SYS3,STNUM 4 N MACRO 5303 BSS 333,C N 5 1107 B 333 C GEN 985 5304 SBR INITAP&6,PHSE3 N 7 1112 H 786 /87 GEN 986 5305 SBR BCLEAR N 4 1119 H 833 GEN 986 5306 SBR TCLEAR,SYS3 N 7 1123 H 710 W89 GEN 986 1 1401 FORTRAN STATEMENT NUMBER PHASE THREE 50293 PAGE 130 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5307 LCA @STNUM 4@,110 N 7 1130 L /86 110 GEN 986 5308 B MONTER N 4 1137 B 700 GEN 986 5309 39 63 SAVE1 DCW #3 N 3 1143 986 5310 39 64 LTORG * N 1144 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ N 36 1179 LIT 987 DCW @STNUM 4@ N 7 1186 LIT 988 5311 39 65 PHSE3 MCW NXBTM,NEXT N 7 1187 M 083 |65 988 5312 39 66 MCW NXBTM,ADTBLL N 7 1194 M 083 145 988 5313 39 67 MCW BASE,BUMP&3 N 7 1201 M 840 |39 988 5314 39 68 MZ @S@,BUMP&2 N 7 1208 Y W67 |38 988 5315 39 69 SBR NOMO,2&X2 N 7 1215 H 852 0!2 989 5316 39 70 MCW X1,SAVE1 N 7 1222 M 089 /43 989 5317 39 71 RUCGT MCW 000&X1,CODE N 7 1229 M 0|0 |62 989 5318 39 72 BCE CGOTO,CODE-3,T N 8 1236 B T67 |59 T 989 5319 39 73 MCW @B@,SWCH N 7 1244 M W68 V83 989 5320 39 74 MCW NEXT,NXBTM N 7 1251 M |65 083 990 5321 39 75 C X1,X2 N 7 1258 C 089 094 990 5322 39 76 BE *&5 N 5 1265 B S74 S 990 5323 39 77 B MVUP N 4 1270 B 853 990 5324 39 78 NORML BCE OUT,000&X1, BLANK N 8 1274 B /00 0|0 990 5325 39 79 MCW 000&X1,CODE N 7 1282 M 0|0 |62 990 5326 39 80 B SLIDE N 4 1289 B 937 991 5327 39 81 MCW CODE-3,*&8 N 7 1293 M |59 T07 991 5328 39 82 BCE WORRY,@WTDEGK@,0 N 8 1300 B T21 W74 0 991 5329 39 83 CHAIN 5 N MACRO 5330 BCE N 1 1308 B GEN 991 5331 BCE N 1 1309 B GEN 991 5332 BCE N 1 1310 B GEN 991 5333 BCE N 1 1311 B GEN 991 5334 BCE N 1 1312 B GEN 992 5335 39 84 BTMNL B SLIDE N 4 1313 B 937 992 5336 39 85 B NORML N 4 1317 B S74 992 5337 39 86 WORRY B RANDM N 4 1321 B 964 992 5338 39 87 B CHAIN N 4 1325 B V33 992 5339 39 88 MCW X3,000&X2 N 7 1329 M 099 0!0 992 5340 39 89 SBR X2 N 4 1336 H 094 992 5341 39 90 MCW HEX1,X1 N 7 1340 M |54 089 993 5342 39 91 BCE BTMNL,000&X1,} GROUP MK N 8 1347 B T13 0|0 } GMARK 993 5343 39 92 BCE BTMNL,000&X1,, N 8 1355 B T13 0|0 , 993 5344 39 93 B WORRY N 4 1363 B T21 993 5345 39 94 CGOTO C 0&X1 N 4 1367 C 0|0 993 5346 39 95 MN N 1 1371 D 993 5347 39 96 SAR X3 N 4 1372 Q 099 993 5348 39 97 S COUNT#3 N 4 1376 S W77 994 5349 39 98 RTLFT MN 000&X3 N 4 1380 D 0?0 994 5350 39 99 MN N 1 1384 D 994 5351 40 00 MN N 1 1385 D 994 5352 40 01 SAR X3 N 4 1386 Q 099 994 5353 40 02 A @1@,COUNT N 7 1390 A W78 W77 994 5354 40 03 BCE FORK,001&X3,, N 8 1397 B U09 0?1 , 994 1 1401 FORTRAN STATEMENT NUMBER PHASE THREE 50293 PAGE 131 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5355 40 04 B RTLFT N 4 1405 B T80 995 5356 40 05 FORK S &11,COUNT N 7 1409 S W80 W77 995 5357 40 06 BWZ BIG,COUNT,B PLUS N 8 1416 V U36 W77 B 995 5358 40 07 B SLIDE N 4 1424 B 937 995 5359 40 08 BTMCG B SLIDE N 4 1428 B 937 995 5360 40 09 B RUCGT N 4 1432 B S29 995 5361 40 10 BIG MN 000&X1 N 4 1436 D 0|0 995 5362 40 11 MN N 1 1440 D 996 5363 40 12 MN N 1 1441 D 996 5364 40 13 MCW @H@ N 4 1442 M W81 996 5365 40 14 B SLIDE N 4 1446 B 937 996 5366 40 15 MCW X3,HEX3#3 N 7 1450 M 099 W84 996 5367 40 16 MN 000&X3 N 4 1457 D 0?0 996 5368 40 17 MN N 1 1461 D 996 5369 40 18 SAR X1 N 4 1462 Q 089 997 5370 40 19 A &9,COUNT N 7 1466 A W85 W77 997 5371 40 20 LOOP SBR X1,6&X1 N 7 1473 H 089 0|6 997 5372 40 21 B RANDM N 4 1480 B 964 997 5373 40 22 B CHAIN N 4 1484 B V33 997 5374 40 23 MCW HEX1,X1 N 7 1488 M |54 089 997 5375 40 24 BCE HEADR,004&X1,} GROUP MK N 8 1495 B V07 0|4 } GMARK 998 5376 40 25 B LOOP N 4 1503 B U73 998 5377 40 26 HEADR MCW NEXT,000&X2 N 7 1507 M |65 0!0 998 5378 40 27 MCW COUNT N 4 1514 M W77 998 5379 40 28 SBR X2 N 4 1518 H 094 998 5380 40 29 MCW HEX3,X1 N 7 1522 M W84 089 998 5381 40 30 B BTMCG N 4 1529 B U28 998 5382 40 31 CHAIN SBR EXCHN&3 N 4 1533 H W44 999 5383 40 32 MCW @N@,OVFLW N 7 1537 M W86 W45 999 5384 40 33 AGAIN MCW 000&X1,X3 N 7 1544 M 0|0 099 999 5385 40 34 SAR X1 N 4 1551 Q 089 999 5386 40 35 BCE NEW,003&X1, BLANK N 8 1555 B W06 0|3 999 5387 40 36 BCE OVFLW,003&X1,< 12-6-8 ALTER STNUM PHSE 1 N 8 1563 B W45 0|3 < 999 5388 40 37 C 000&X3,ALPH N 7 1571 C 0?0 |51 1000 5389 40 38 BU AGAIN N 5 1578 B V44 / 1000 5390 40 39 SWCH NOP EXCHN N 4 1583 N W41 1000 5391 40 40 MCW NEXT,000&X3 N 7 1587 M |65 0?0 1000 5392 40 41 SBR X3 N 4 1594 H 099 1000 5393 40 42 MZ @ A@,002&X3 BLANK N 7 1598 Y W88 0?2 1000 5394 40 43 CW DUMMY ON A-OPER, EFFECTIVE ON B-OPER N 1 1605 ) 1000 5395 40 44 NEW LCA NEXT,003&X1 N 7 1606 L |65 0|3 1001 5396 40 45 MCW NEXT,X3 N 7 1613 M |65 099 1001 5397 40 46 BCE FULL,000&X3,< 12-6-8 N 8 1620 B |66 0?0 < 1001 5398 40 47 B N 1 1628 B 1001 5399 40 48 B N 1 1629 B 1001 5400 40 49 LCA ALPH,000&X3 N 7 1630 L |51 0?0 1001 5401 40 50 SBR NEXT N 4 1637 H |65 1001 5402 40 51 EXCHN B 000 N 4 1641 B 000 1002 5403 40 52 OVFLW NOP FULL N 4 1645 N |66 1002 5404 40 53 MCW @B@,OVFLW N 7 1649 M W68 W45 1002 1 1401 FORTRAN STATEMENT NUMBER PHASE THREE 50293 PAGE 132 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5405 40 54 MCW UPLIM,X1 N 7 1656 M 849 089 1002 5406 40 55 B AGAIN N 4 1663 B V44 1002 5407 40 56 LTORG * N 1667 DCW @S@ N 1 1667 LIT 1002 DCW @B@ N 1 1668 LIT 1002 DCW @WTDEGK@ N 6 1674 LIT 1003 COUNTN DCW #03 N 3 1677 AREA 1003 DCW @1@ N 1 1678 LIT 1003 DCW &11 N 2 1680 LIT 1003 DCW @H@ N 1 1681 LIT 1003 HEX3 N DCW #03 N 3 1684 AREA 1003 DCW &9 N 1 1685 LIT 1003 DCW @N@ N 1 1686 LIT 1004 DCW @ A@ N 2 1688 LIT 1004 5408 40 57 SYS3 DCW @}@ SYSTEM GROUP MARK N 1 1689 GMARK 1004 5409 40 58 ORG NDRITH&X00 N 3200 5410 40 59 ORG *-5 N 3195 5411 40 60 DCW #5 N 5 3199 1005 5412 40 61 SAUCE EQU *&1 N 3200 5413 40 62 XFR PHSE3 N B /87 1006 1 1401 FORTRAN STATEMENT NUMBER PHASE FOUR 50303 PAGE 133 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5414 40 63 JOB 1401 FORTRAN STATEMENT NUMBER PHASE FOUR N 5415 40 64 110 DCW @STNUM FOR@ N 9 0110 1009 5416 40 65 ORG PHSE3 N 1187 5417 40 66 PHSE4 LCA @ @,000&X2 BLANK N 7 1187 L W25 0!0 1010 5418 40 67 SW GM N 4 1194 , X25 1010 5419 40 68 MCW X1,X2 N 7 1198 M 089 094 1010 5420 40 69 START BCE OUT1,0&X1, BLANK N 8 1205 B U84 0|0 1010 5421 40 70 MCW 000&X1,CODE N 7 1213 M 0|0 |62 1010 5422 40 71 SAR X1 N 4 1220 Q 089 1010 5423 40 72 BCE NONUM,000&X1,} GROUP MK N 8 1224 B V69 0|0 } GMARK 1011 5424 40 73 B RANDM N 4 1232 B 964 1011 5425 40 74 MCW @N@,WRAP N 7 1236 M W26 T90 1011 5426 40 75 NOTHR MCW 000&X1,X3 N 7 1243 M 0|0 099 1011 5427 40 76 SAR X1 N 4 1250 Q 089 1011 5428 40 77 BWZ NOTYT,001&X1,1 WORD MK N 8 1254 V S94 0|1 1 1011 5429 40 78 BCE WRAP,003&X1,< 12-6-8 N 8 1262 B T90 0|3 < 1012 5430 40 79 BCE UNREF,1&X1, BLANK N 8 1270 B U12 0|1 1012 5431 40 80 C 003&X1,ALPH N 7 1278 C 0|3 |51 1012 5432 40 81 BU NOTHR N 5 1285 B S43 / 1012 5433 40 82 B MULTY N 4 1290 B U46 1012 5434 40 83 NOTYT C 000&X3,ALPH N 7 1294 C 0?0 |51 1012 5435 40 84 BU NOTHR N 5 1301 B S43 / 1013 5436 40 85 MZ CODE-1,ZONE#1 N 7 1306 Y |61 W27 1013 5437 40 86 MZ *-4,CODE-1 N 7 1313 Y T15 |61 1013 5438 40 87 MCW CODE,000&X3 N 7 1320 M |62 0?0 1013 5439 40 88 SBR X3 N 4 1327 H 099 1013 5440 40 89 CW 001&X3 N 4 1331 ) 0?1 1013 5441 40 90 MCW 003&X1,CODE N 7 1335 M 0|3 |62 1014 5442 40 91 MZ ZONE,CODE-1 N 7 1342 Y W27 |61 1014 5443 40 92 MCW ALPH,003&X1 N 7 1349 M |51 0|3 1014 5444 40 93 CW 001&X1 N 4 1356 ) 0|1 1014 5445 40 94 HEX2X MCW HEX1,X1 N 7 1360 M |54 089 1014 5446 40 95 BOTM SBR X1,4&X1 N 7 1367 H 089 0|4 1014 5447 40 96 MCW CODE N 4 1374 M |62 1015 5448 40 97 B SLIDE N 4 1378 B 937 1015 5449 40 98 B SLIDE N 4 1382 B 937 1015 5450 40 99 B START N 4 1386 B S05 1015 5451 41 00 WRAP NOP UNREF N 4 1390 N U12 1015 5452 41 01 MCW @B@,WRAP N 7 1394 M W28 T90 1015 5453 41 02 MCW UPLIM,X1 N 7 1401 M 849 089 1015 5454 41 03 B NOTHR N 4 1408 B S43 1016 5455 41 04 UNREF FTMSG 19,UNREFERENCED STMT NUMBER,CODE,26,NOFAIL N MACRO 5456 UNREF CS 332 N 4 1412 / 332 GEN 1016 5457 CS N 1 1416 / GEN 1016 5458 MN CODE,224&26 N 7 1417 D |62 250 GEN 1016 5459 MN N 1 1424 D GEN 1016 5460 MN N 1 1425 D GEN 1016 5461 MCW @ERROR 19 - UNREFERENCED STMT NUMBER, STATEMENT @ N 4 1426 M W75 GEN 1016 5462 W N 1 1430 2 GEN 1017 5463 BCV *&5 N 5 1431 B U40 @ GEN 1017 1 1401 FORTRAN STATEMENT NUMBER PHASE FOUR 50303 PAGE 134 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5464 B *&3 N 4 1436 B U42 GEN 1017 5465 CC 1 N 2 1440 F 1 GEN 1017 5466 41 05 B PRNUM N 4 1442 B V62 1017 5467 41 06 MULTY FTMSG 20,DOUBLY DEFINED STMT,CODE,21 N MACRO 5468 MULTY CS 332 N 4 1446 / 332 GEN 1017 5469 CS N 1 1450 / GEN 1017 5470 SW FAILSW N 4 1451 , 184 GEN 1018 5471 MN CODE,224&21 N 7 1455 D |62 245 GEN 1018 5472 MN N 1 1462 D GEN 1018 5473 MN N 1 1463 D GEN 1018 5474 MCW @ERROR 20 - DOUBLY DEFINED STMT, STATEMENT @ N 4 1464 M X17 GEN 1018 5475 W N 1 1468 2 GEN 1018 5476 BCV *&5 N 5 1469 B U78 @ GEN 1018 5477 B *&3 N 4 1474 B U80 GEN 1019 5478 CC 1 N 2 1478 F 1 GEN 1019 5479 41 07 B HEX2X N 4 1480 B T60 1019 5480 41 08 OUT1 MCW NEXT,X3 N 7 1484 M |65 099 1019 5481 41 09 LCA GM,0&X3 N 7 1491 L X25 0?0 1019 5482 41 10 SBR X3 N 4 1498 H 099 1019 5483 41 11 SBR BSAUCE N 4 1502 H 148 1019 5484 41 12 CS 0&X2 N 4 1506 / 0!0 1020 5485 41 13 MCW SAVE1,X1 N 7 1510 M /43 089 1020 5486 41 14 SW 0&X2 N 4 1517 , 0!0 1020 5487 41 15 FENDX C,GM,,XBEGIN,XBEGIN,XBEGIN,SYS4,STNUM 5 N MACRO 5488 BSS 333,C N 5 1521 B 333 C GEN 1020 5489 SBR INITAP&6,XBEGIN N 7 1526 H 786 838 GEN 1020 5490 SBR BCLEAR N 4 1533 H 833 GEN 1020 5491 SBR INITXT&3,XBEGIN N 7 1537 H 796 838 GEN 1020 5492 SBR TCLEAR,SYS4 N 7 1544 H 710 X26 GEN 1021 5493 LCA @STNUM 5@,110 N 7 1551 L X24 110 GEN 1021 5494 B MONTER N 4 1558 B 700 GEN 1021 5495 41 16 PRNUM MCW HEX1,X1 N 7 1562 M |54 089 1021 5496 41 17 NONUM BCE PSUDO,CODE-3,D N 8 1569 B V81 |59 D 1021 5497 41 18 B BOTM N 4 1577 B T67 1021 5498 41 19 PSUDO MCW NEXT,X3 N 7 1581 M |65 099 1022 5499 41 20 MCW CODE,000&X3 N 7 1588 M |62 0?0 1022 5500 41 21 SBR X3 N 4 1595 H 099 1022 5501 41 22 BCE FULL,000&X3,< 12-6-8 N 8 1599 B |66 0?0 < 1022 5502 41 23 MCW NEXT,CODE N 7 1607 M |65 |62 1022 5503 41 24 SBR NEXT,1&X3 N 7 1614 H |65 0?1 1023 5504 41 25 B BOTM N 4 1621 B T67 1023 5505 41 26 LTORG * N 1625 DCW @ @ N 1 1625 LIT 1023 DCW @N@ N 1 1626 LIT 1023 ZONE N DCW #01 N 1 1627 AREA 1023 DCW @B@ N 1 1628 LIT 1023 DCW @ERROR 19 - UNREFERENCED STMT NUMBER, STATEMENT @ N 47 1675 LIT 1025 DCW @ERROR 20 - DOUBLY DEFINED STMT, STATEMENT @ N 42 1717 LIT 1027 DCW @STNUM 5@ N 7 1724 LIT 1027 5506 41 27 GM DC @}@ GM N 1 1725 GMARK 1027 1 1401 FORTRAN STATEMENT NUMBER PHASE FOUR 50303 PAGE 135 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5507 41 28 SYS4 DCW @}@ SYSTEM GROUP MARK N 1 1726 GMARK 1027 5508 41 29 XFR PHSE4 N B /87 1028 1 1401 FORTRAN STATEMENT NUMBER PHASE FIVE 50313 PAGE 136 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5509 41 30 JOB 1401 FORTRAN STATEMENT NUMBER PHASE FIVE N 5510 41 31 FBEGN STNUM 5,X1,,X2,R,X3,,L N MACRO 5511 SFX L L GEN 5512 110 DCW @STNUM 5@ L 7 0110 GEN 1031 5513 X1 EQU 089 L 0089 GEN 5514 X2 EQU 094 L 0094 GEN 5515 094 DCW 000 L 3 0094 GEN 1032 5516 096 DC 00 L 2 0096 GEN 1032 5517 X3 EQU 099 L 0099 GEN 5518 41 32 ORG XBEGIN L 0838 5519 41 33 INITL MCW X3,HEX3#3 L 7 0838 M 099 S76 1033 5520 41 34 MCW X1,HEX1#3 L 7 0845 M 089 S79 1033 5521 41 35 C 0&X3 L 4 0852 C 0?0 1033 5522 41 36 SAR X3 L 4 0856 Q 099 1033 5523 41 37 CW 1&X3 L 4 0860 ) 0?1 1033 5524 41 38 MCW ADTBL,X2 L 7 0864 M 145 094 1033 5525 41 39 C 000&X2 L 4 0871 C 0!0 1033 5526 41 40 SAR X2 L 4 0875 Q 094 1034 5527 41 41 C X2,HEX3 L 7 0879 C 094 S76 1034 5528 41 42 BE OUT L 5 0886 B S37 S 1034 5529 41 43 MCW ADTBL,CGBTM#3 L 7 0891 M 145 S82 1034 5530 41 44 START BWZ OUT,000&X1,1 L 8 0898 V S37 0|0 1 1034 5531 41 45 MCW 000&X1,CODE#4 L 7 0906 M 0|0 S86 1034 5532 41 46 C 000&X1 L 4 0913 C 0|0 1035 5533 41 47 SAR X1 L 4 0917 Q 089 1035 5534 41 48 MCW @ @,COUNT#3 L 7 0921 M S89 S92 1035 5535 41 49 BCE WORRY,CODE-3,H L 8 0928 B 968 S83 H 1035 5536 41 50 MCW CODE-3,*&8 L 7 0936 M S83 950 1035 5537 41 51 BCE RUBAD,@TWEDGK@,0 CHECK L 8 0943 B /78 S98 0 1035 5538 41 52 CHAIN 5 L MACRO 5539 BCE L 1 0951 B GEN 1035 5540 BCE L 1 0952 B GEN 1036 5541 BCE L 1 0953 B GEN 1036 5542 BCE L 1 0954 B GEN 1036 5543 BCE L 1 0955 B GEN 1036 5544 41 53 SKIP C 000&X1 L 4 0956 C 0|0 1036 5545 41 54 SAR X1 L 4 0960 Q 089 1036 5546 41 55 B START L 4 0964 B 898 1036 5547 41 56 WORRY MCW CGBTM,X3 L 7 0968 M S82 099 1037 5548 41 57 CKEXT C 000&X1,X3 L 7 0975 C 0|0 099 1037 5549 41 58 BE THRU L 5 0982 B |45 S 1037 5550 41 59 MN 000&X3 L 4 0987 D 0?0 1037 5551 41 60 MN L 1 0991 D 1037 5552 41 61 MN L 1 0992 D 1037 5553 41 62 SAR X3 L 4 0993 Q 099 1037 5554 41 63 SBR X2 L 4 0997 H 094 1038 5555 41 64 CHAIN BWZ ADD1,001&X2,1 L 8 1001 V /67 0!1 1 1038 5556 41 65 BWZ CKEXT,002&X2,2 L 8 1009 V 975 0!2 2 1038 5557 41 66 MCW 003&X2,X2 L 7 1017 M 0!3 094 1038 5558 41 67 MZ @ @,X2-1 BLANK L 7 1024 Y S99 093 1038 1 1401 FORTRAN STATEMENT NUMBER PHASE FIVE 50313 PAGE 137 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5559 41 68 MN 000&X2 L 4 1031 D 0!0 1038 5560 41 69 MN L 1 1035 D 1038 5561 41 70 MN L 1 1036 D 1039 5562 41 71 SAR X2 L 4 1037 Q 094 1039 5563 41 72 B CHAIN L 4 1041 B |01 1039 5564 41 73 THRU MCW X3,CGBTM L 7 1045 M 099 S82 1039 5565 41 74 DUN BCE SKIP,COUNT, BLANK L 8 1052 B 956 S92 1039 5566 41 75 BWZ *&5,CODE,2 L 8 1060 V |72 S86 2 1039 5567 41 76 B ZONE L 4 1068 B |80 1039 5568 41 77 BWZ PRINT,CODE-2,2 L 8 1072 V |94 S84 2 1040 5569 41 78 ZONE MCW CODE,X3 L 7 1080 M S86 099 1040 5570 41 79 MCW 000&X3,CODE L 7 1087 M 0?0 S86 1040 5571 41 80 PRINT CS 299 L 4 1094 / 299 1040 5572 41 81 SW FAILSW L 4 1098 , 184 1040 5573 41 82 MCW @ERROR 21 -@,210 L 7 1102 M T09 210 1040 5574 41 83 MCW @UNDEFINED STATEMENT NUMBERS, STATEMENT@,253 L 7 1109 M T47 253 1041 5575 41 84 MN CODE,257 L 7 1116 D S86 257 1041 5576 41 85 MN L 1 1123 D 1041 5577 41 86 MN L 1 1124 D 1041 5578 41 87 MCS COUNT,214 L 7 1125 Z S92 214 1041 5579 41 88 C COUNT,@001@ L 7 1132 C S92 T50 1041 5580 41 89 BU *&8 L 5 1139 B /51 / 1041 5581 41 90 MCW @, @,243 L 7 1144 M T52 243 1042 5582 41 91 W L 1 1151 2 1042 5583 41 92 FORMS L MACRO 5584 BCV *&5 L 5 1152 B /61 @ GEN 1042 5585 B *&3 L 4 1157 B /63 GEN 1042 5586 CC 1 L 2 1161 F 1 GEN 1042 5587 41 93 B SKIP L 4 1163 B 956 1042 5588 41 94 ADD1 A @1@,COUNT L 7 1167 A T53 S92 1042 5589 41 95 B CKEXT L 4 1174 B 975 1043 5590 41 96 RUBAD BWZ DUN,000&X1,1 L 8 1178 V |52 0|0 1 1043 5591 41 97 BCE DUN,000&X1,, L 8 1186 B |52 0|0 , 1043 5592 41 98 MCW 000&X1,X3 L 7 1194 M 0|0 099 1043 5593 41 99 SAR X1 L 4 1201 Q 089 1043 5594 42 00 MN 000&X3 L 4 1205 D 0?0 1043 5595 42 01 MN L 1 1209 D 1043 5596 42 02 SAR X3 L 4 1210 Q 099 1044 5597 42 03 BWZ PLUS1,000&X3,1 L 8 1214 V S26 0?0 1 1044 5598 42 04 B RUBAD L 4 1222 B /78 1044 5599 42 05 PLUS1 A @1@,COUNT L 7 1226 A T53 S92 1044 5600 42 06 B RUBAD L 4 1233 B /78 1044 5601 42 07 OUT MCW HEX1,X1 L 7 1237 M S79 089 1044 5602 42 08 MCW HEX3,X3 L 7 1244 M S76 099 1045 5603 42 09 FENDX E,,,,,,SYS5,I/O ONE L MACRO 5604 BSS 333,E L 5 1251 B 333 E GEN 1045 5605 SBR TCLEAR,SYS5 L 7 1256 H 710 T61 GEN 1045 5606 LCA @I/O ONE@,110 L 7 1263 L T60 110 GEN 1045 5607 B MONTER L 4 1270 B 700 GEN 1045 5608 42 10 LTORG * L 1274 1 1401 FORTRAN STATEMENT NUMBER PHASE FIVE 50313 PAGE 138 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD HEX3 L DCW #03 L 3 1276 AREA 1045 HEX1 L DCW #03 L 3 1279 AREA 1045 CGBTML DCW #03 L 3 1282 AREA 1046 CODE L DCW #04 L 4 1286 AREA 1046 DCW @ @ L 3 1289 LIT 1046 COUNTL DCW #03 L 3 1292 AREA 1046 DCW @TWEDGK@ L 6 1298 LIT 1046 DCW @ @ L 1 1299 LIT 1046 DCW @ERROR 21 -@ L 10 1309 LIT 1046 DCW @UNDEFINED STATEMENT NUMBERS, STATEMENT@ L 38 1347 LIT 1047 DCW @001@ L 3 1350 LIT 1048 DCW @, @ L 2 1352 LIT 1048 DCW @1@ L 1 1353 LIT 1048 DCW @I/O ONE@ L 7 1360 LIT 1048 5609 42 11 SYS5 DCW @}@ SYSTEM GROUP MARK L 1 1361 GMARK 1048 5610 42 12 XFR INITL L B 838 1049 1 1401 FORTRAN INPUT/OUTPUT PHASE ONE 50323 PAGE 139 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5611 42 13 JOB 1401 FORTRAN INPUT/OUTPUT PHASE ONE L 5612 42 14 FBEGN I/O ONE,X1,,X2,R,X3,,9 L MACRO 5613 SFX 9 9 GEN 5614 110 DCW @I/O ONE@ 9 7 0110 GEN 1052 5615 X1 EQU 089 9 0089 GEN 5616 X2 EQU 094 9 0094 GEN 5617 094 DCW 000 9 3 0094 GEN 1053 5618 096 DC 00 9 2 0096 GEN 1053 5619 X3 EQU 099 9 0099 GEN 5620 42 15 ORG XBEGIN 9 0838 5621 42 16 BEGIN SW GM1 9 4 0838 , W27 1054 5622 42 17 START BCE OUT2,0&X1, BLANK 9 8 0842 B 886 0|0 1054 5623 42 18 LCA 0&X1,CODE#5 9 7 0850 L 0|0 W49 1054 5624 42 19 CW XTPSW 9 4 0857 ) X57 1054 5625 42 20 SW CODE-3 9 4 0861 , W46 1054 5626 42 21 MCW CODE-3,*&8 9 7 0865 M W46 879 1054 5627 42 22 BCE IOTYP,@1356LPU@,0 9 8 0872 B |12 W56 0 1055 5628 42 23 CHAIN 6 9 MACRO 5629 BCE 9 1 0880 B GEN 1055 5630 BCE 9 1 0881 B GEN 1055 5631 BCE 9 1 0882 B GEN 1055 5632 BCE 9 1 0883 B GEN 1055 5633 BCE 9 1 0884 B GEN 1055 5634 BCE 9 1 0885 B GEN 1055 5635 42 24 OUT2 SBR X1,1&X1 9 7 0886 H 089 0|1 1056 5636 42 25 MZ X3,ALL9 9 7 0893 Y 099 W16 1056 5637 42 26 MZ 9 1 0900 Y 1056 5638 42 27 MCW 9 1 0901 M 1056 5639 42 28 MZ X1,ALL91 9 7 0902 Y 089 W19 1056 5640 42 29 MZ 9 1 0909 Y 1056 5641 42 30 MCW 9 1 0910 M 1056 5642 42 31 C ALL9,ALL91 9 7 0911 C W16 W19 1057 5643 42 32 BE SNGL 9 5 0918 B 943 S 1057 5644 42 33 CLR CS 0&X3 9 4 0923 / 0?0 1057 5645 42 34 SBR CLR&3 9 4 0927 H 926 1057 5646 42 35 C CLR&3,ALL91 9 7 0931 C 926 W19 1057 5647 42 36 BU CLR 9 5 0938 B 923 / 1057 5648 42 37 SNGL MCW ALL91,X2 9 7 0943 M W19 094 1057 5649 42 38 BACK3 C X2,X1 9 7 0950 C 094 089 1058 5650 42 39 BE OUT3 9 5 0957 B 981 S 1058 5651 42 40 LCA BLANK,0&X2 9 7 0962 L X11 0!0 1058 5652 42 41 CW 0&X2 9 4 0969 ) 0!0 1058 5653 42 42 SAR X2 9 4 0973 Q 094 1058 5654 42 43 B BACK3 9 4 0977 B 950 1058 5655 42 44 OUT3 MN 0&X1 9 4 0981 D 0|0 1058 5656 42 45 SAR X1 9 4 0985 Q 089 1059 5657 42 46 FENDX C,GM1,,,,,SYS1,ARITH ONE 9 MACRO 5658 BSS 333,C 9 5 0989 B 333 C GEN 1059 5659 SBR TCLEAR,SYS1 9 7 0994 H 710 X58 GEN 1059 5660 LCA @ARITH ONE@,110 9 7 1001 L W65 110 GEN 1059 1 1401 FORTRAN INPUT/OUTPUT PHASE ONE 50323 PAGE 140 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5661 B MONTER 9 4 1008 B 700 GEN 1059 5662 42 47 IOTYP SW CODE-2 9 4 1012 , W47 1059 5663 42 48 MCW @<@,2&X1 12-6-8 9 7 1016 M W66 0|2 1059 5664 42 49 SBR KLOBR&6,2&X1 9 7 1023 H T55 0|2 1060 5665 42 50 C 0&X1 9 4 1030 C 0|0 1060 5666 42 51 SAR X1 9 4 1034 Q 089 1060 5667 42 52 LCA CODE,0&X3 9 7 1038 L W49 0?0 1060 5668 42 53 LCA GM1 9 4 1045 L W27 1060 5669 42 54 SBR X3 9 4 1049 H 099 1060 5670 42 55 CW 2&X3 9 4 1053 ) 0?2 1060 5671 42 56 BWZ NOFMT,CODE-1,B 9 8 1057 V U39 W48 B 1061 5672 42 57 FBCEQ DOLST,CODE-3,1,3 9 MACRO 5673 BCE DOLST, CODE-3, 1 9 8 1065 B /16 W46 1 GEN 1061 5674 BCE DOLST, CODE-3, 3 9 8 1073 B /16 W46 3 GEN 1061 5675 42 58 FBCEQ DOSPC,CODE-3,L,P,U 9 MACRO 5676 BCE DOSPC, CODE-3, L 9 8 1081 B V32 W46 L GEN 1061 5677 BCE DOSPC, CODE-3, P 9 8 1089 B V32 W46 P GEN 1062 5678 BCE DOSPC, CODE-3, U 9 8 1097 B V32 W46 U GEN 1062 5679 42 59 MCW 0&X1,SPEC 9 7 1105 M 0|0 W44 1062 5680 42 60 SAR X1 9 4 1112 Q 089 1062 5681 42 61 DOLST MCW 0&X1,TUNO 9 7 1116 M 0|0 W38 1062 5682 42 62 SAR X1 9 4 1123 Q 089 1062 5683 42 63 MCW 0&X1,TUNO-3 9 7 1127 M 0|0 W35 1063 5684 42 64 BCE ACTL,TUNO-4,} GM 9 8 1134 B T91 W34 } GMARK 1063 5685 42 65 BCE ACTL,TUNO-1,} GM 9 8 1142 B T91 W37 } GMARK 1063 5686 42 66 MN @1@,TAPE 9 7 1150 D W67 X10 1063 5687 42 67 BCE OTHR2,TUNO-3,} GM 9 8 1157 B U28 W35 } GMARK 1063 5688 42 68 XXX MCW 0&X1,LIST 9 7 1165 M 0|0 W41 1064 5689 42 69 SAR X1 9 4 1172 Q 089 1064 5690 42 70 RETRN LCA LIST,0&X3 9 7 1176 L W41 0?0 1064 5691 42 71 SBR X3 9 4 1183 H 099 1064 5692 42 72 LCA SPEC,0&X3 9 7 1187 L W44 0?0 1064 5693 42 73 SBR X3 9 4 1194 H 099 1064 5694 42 74 LCA TAPE,0&X3 9 7 1198 L X10 0?0 1065 5695 42 75 LCA BRANCH 9 4 1205 L W31 1065 5696 42 76 SBR X3 9 4 1209 H 099 1065 5697 42 77 FBCEQ TLGM,CODE-3,L,P,U,1 9 MACRO 5698 BCE TLGM, CODE-3, L 9 8 1213 B S82 W46 L GEN 1065 5699 BCE TLGM, CODE-3, P 9 8 1221 B S82 W46 P GEN 1065 5700 BCE TLGM, CODE-3, U 9 8 1229 B S82 W46 U GEN 1065 5701 BCE TLGM, CODE-3, 1 9 8 1237 B S82 W46 1 GEN 1066 5702 42 78 MZ @S@,5&X3 9 7 1245 Y W68 0?5 1066 5703 42 79 BCE TLGM,CODE-3,3 9 8 1252 B S82 W46 3 1066 5704 42 80 MZ @K@,5&X3 9 7 1260 Y W69 0?5 1066 5705 42 81 BCE TLGM,CODE-3,5 9 8 1267 B S82 W46 5 1066 5706 42 82 MZ @B@,5&X3 9 7 1275 Y W70 0?5 1067 5707 42 83 TLGM BW LGM,XTPSW 9 8 1282 V T23 X57 1 1067 5708 42 84 BWZ LGM,TUNO-1,2 9 8 1290 V T23 W37 2 1067 5709 42 85 MCW TUNO,MASK1-3 9 7 1298 M W38 W23 1067 5710 42 86 MZ BLANK,MASK1-4 9 7 1305 Y X11 W22 1067 1 1401 FORTRAN INPUT/OUTPUT PHASE ONE 50323 PAGE 141 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5711 42 87 LCA MASK1,0&X3 9 7 1312 L W26 0?0 1068 5712 42 88 SBR X3 9 4 1319 H 099 1068 5713 42 894 LGM MCW BLNK#3,TUNO-3 V3M4 9 7 1323 M W73 W35 1068 5714 42 904 LCA GM1,0&X3 V3M4 9 7 1330 L W27 0?0 1068 5715 42 91 SBR X3 9 4 1337 H 099 1068 5716 42 92 C 0&X1 9 4 1341 C 0|0 1068 5717 42 93 SAR X1 9 4 1345 Q 089 1068 5718 42 94 KLOBR BCE START,0,< 12-6-8 9 8 1349 B 842 000 < 1069 5719 42 95 FQUIT 9 MACRO 5720 CS 332 9 4 1357 / 332 GEN 1069 5721 CS 9 1 1361 / GEN 1069 5722 CC 1 9 2 1362 F 1 GEN 1069 5723 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 9 7 1364 M X09 270 GEN 1069 5724 W 9 1 1371 2 GEN 1069 5725 CC 1 9 2 1372 F 1 GEN 1069 5726 BCE *&6,MONTOR,1 9 8 1374 B T87 769 1 GEN 1070 5727 RWD 1 9 5 1382 U %U1 R GEN 1070 5728 H *-3 9 4 1387 . T87 GEN 1070 5729 42 96 ACTL MN TUNO,TAPE#1 9 7 1391 D W38 X10 1070 5730 42 97 SW XTPSW 9 4 1398 , X57 1070 5731 42 98 BCE OTHER,TUNO-1,} GM 9 8 1402 B U21 W37 } GMARK 1070 5732 42 99 SBR X1,2&X1 9 7 1410 H 089 0|2 1071 5733 43 00 B XXX 9 4 1417 B /65 1071 5734 43 01 OTHER SBR X1,1&X1 9 7 1421 H 089 0|1 1071 5735 43 02 OTHR2 MCW PERIOD,LIST 9 7 1428 M 154 W41 1071 5736 43 03 B RETRN 9 4 1435 B /76 1071 5737 43 04 NOFMT MZ BLANK#1,3&X3 9 7 1439 Y X11 0?3 1071 5738 43 05 MCW 4&X3,ADR#3 9 7 1446 M 0?4 X14 1072 5739 43 06 BWZ *&5,ADR,2 9 8 1453 V U65 X14 2 1072 5740 43 07 B GTADR 9 4 1461 B U73 1072 5741 43 08 BWZ ERR,ADR-2,2 9 8 1465 V U87 X12 2 1072 5742 43 09 GTADR MCW ADR,*&4 9 7 1473 M X14 U83 1072 5743 43 10 MCW 0,ADR 9 7 1480 M 000 X14 1073 5744 43 11 ERR FTMSG 22,UNDEFINED FORMAT,ADR,18 9 MACRO 5745 ERR CS 332 9 4 1487 / 332 GEN 1073 5746 CS 9 1 1491 / GEN 1073 5747 SW FAILSW 9 4 1492 , 184 GEN 1073 5748 MN ADR,224&18 9 7 1496 D X14 242 GEN 1073 5749 MN 9 1 1503 D GEN 1073 5750 MN 9 1 1504 D GEN 1073 5751 MCW @ERROR 22 - UNDEFINED FORMAT, STATEMENT @ 9 4 1505 M X53 GEN 1074 5752 W 9 1 1509 2 GEN 1074 5753 BCV *&5 9 5 1510 B V19 @ GEN 1074 5754 B *&3 9 4 1515 B V21 GEN 1074 5755 CC 1 9 2 1519 F 1 GEN 1074 5756 43 12 MZ *-4,CODE-1 9 7 1521 Y V23 W48 1074 5757 43 13 B DOLST 9 4 1528 B /16 1074 5758 43 14 DOSPC MCW 0&X1,SPEC 9 7 1532 M 0|0 W44 1075 5759 43 15 SAR X1 9 4 1539 Q 089 1075 5760 43 16 MCW PERIOD,LIST 9 7 1543 M 154 W41 1075 1 1401 FORTRAN INPUT/OUTPUT PHASE ONE 50323 PAGE 142 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5761 43 17 BCE HERE,0&X1,} GM 9 8 1550 B V69 0|0 } GMARK 1075 5762 43 18 MCW 0&X1,LIST 9 7 1558 M 0|0 W41 1075 5763 43 19 SAR X1 9 4 1565 Q 089 1075 5764 43 20 HERE MCW @&@,TAPE 9 7 1569 M X54 X10 1076 5765 43 21 BCE SETP,CODE-3,L 9 8 1576 B W06 W46 L 1076 5766 43 22 MCW @-@,TAPE 9 7 1584 M X55 X10 1076 5767 43 23 BCE SETP,CODE-3,U 9 8 1591 B W06 W46 U 1076 5768 43 24 MCW @*@,TAPE 9 7 1599 M X56 X10 1076 5769 43 25 SETP SW XTPSW#1 9 4 1606 , X57 1077 5770 43 26 B RETRN 9 4 1610 B /76 1077 5771 43 27 ALL9 DCW 999 9 3 1616 1077 5772 43 28 ALL91 DCW 999 9 3 1619 1077 5773 43 29 MASK1 DCW @DXXX0?5@ PLUS ZERO 9 7 1626 1077 5774 43 30 GM1 DC @}@ GROUP MARK 9 1 1627 GMARK 1077 5775 43 31 BRANCH DCW @BW97@ CHANGE ON REASSM OF OBJ FORMAT 9 4 1631 1077 5776 43 32 DCW #4 9 4 1635 1077 5777 43 33 TUNO DCW #3 9 3 1638 1078 5778 43 34 LIST DCW 000 9 3 1641 1078 5779 43 35 SPEC DCW 000 9 3 1644 1078 5780 43 36 LTORG * 9 1645 CODE 9 DCW #05 9 5 1649 AREA 1078 DCW @1356LPU@ 9 7 1656 LIT 1078 DCW @ARITH ONE@ 9 9 1665 LIT 1078 DCW @<@ 9 1 1666 LIT 1078 DCW @1@ 9 1 1667 LIT 1079 DCW @S@ 9 1 1668 LIT 1079 DCW @K@ 9 1 1669 LIT 1079 DCW @B@ 9 1 1670 LIT 1079 BLNK 9 DCW #03 9 3 1673 AREA 1079 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 9 36 1709 LIT 1080 TAPE 9 DCW #01 9 1 1710 AREA 1080 BLANK9 DCW #01 9 1 1711 AREA 1080 ADR 9 DCW #03 9 3 1714 AREA 1081 DCW @ERROR 22 - UNDEFINED FORMAT, STATEMENT @ 9 39 1753 LIT 1082 DCW @&@ 9 1 1754 LIT 1083 DCW @-@ 9 1 1755 LIT 1083 DCW @*@ 9 1 1756 LIT 1083 XTPSW9 DCW #01 9 1 1757 AREA 1083 5781 43 37 SYS1 DCW @}@ SYSTEM GROUP MARK 9 1 1758 GMARK 1083 5782 43 38 XFR BEGIN 9 B 838 1084 1 ARITH PHASE ONE 50333 PAGE 143 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5783 43 39 JOB ARITH PHASE ONE 9 5784 43 40 FBEGN ARITH 1, X1,,X2,R,X3,,< 12-6-8 SUFFIX 9 MACRO 5785 SFX < < GEN 5786 110 DCW @ARITH 1@ < 7 0110 GEN 1087 5787 X1 EQU 089 < 0089 GEN 5788 X2 EQU 094 < 0094 GEN 5789 094 DCW 000 < 3 0094 GEN 1088 5790 096 DC 00 < 2 0096 GEN 1088 5791 X3 EQU 099 < 0099 GEN 5792 43 41 ORG XBEGIN < 0838 5793 43 42 * 5794 43 43 * ARITH PHASE ONE ERROR CHECKING ALGORITHM 5795 43 44 * 5796 43 45 * PREVIOUS CHARACTER 5797 43 46 * 5798 43 47 * OPND &*/. - GM F% # % ) NEG 5799 43 48 * 5800 43 49 * & OK DD DD LS KL KL KL OK DD 5801 43 50 * C - OK DD DD LS NG NG NG OK DD 5802 43 51 * C H */ OK DD DD LS SY SY SY OK DD 5803 43 52 * U A # OK A2 A2 LS A2 A2 A2 A2 A2 5804 43 53 * R R % SY OK OK LS OK OK OK SY OK 5805 43 54 * R A ) OK SY SY LS A2 SY A2 OK SY 5806 43 55 * E C GM OK SY SY LS A2 SY SY OK SY 5807 43 56 * N T . OK DD DD LS SY SY SY OK DD 5808 43 57 * T E NEG -- -- -- LS OK OK OK -- DD 5809 43 58 * R F% SY OK OK LS OK OK OK SY OK 5810 43 59 * OPRND -- OK OK LS OK OK OK SY OK 5811 43 60 * 5812 43 61 * OK- VALID 5813 43 62 * DD- DOUBLE OPERATORS 5814 43 63 * SY- SYNTAX ERROR 5815 43 64 * A2- ERROR NOTED IN ARITH PHASE TWO 5816 43 65 * LS- LEFT SIDE INVALID 5817 43 66 * NG- GENERATE NEGATE FUNCTION 5818 43 67 * --- SYNTACTICALLY INADMISSIBLE 5819 43 68 * KL- DELETE UNARY PLUS OPERATOR 5820 43 69 * 5821 43 70 * 5822 43 71 START SBR NOMO,2&X3 < 7 0838 H M53 0?2 1089 5823 43 72 SW GM1 < 4 0845 , J60 1089 5824 43 73 MCW 0&X1,CODE < 7 0849 M 0|0 M47 1089 5825 43 744 FBCEQ NUSTM,CODE-3,R,E V3M4 < MACRO 5826 BCE NUSTM, CODE-3, R < 8 0856 B 883 M44 R GEN 1089 5827 BCE NUSTM, CODE-3, E < 8 0864 B 883 M44 E GEN 1089 5828 43 75 MCW @.@,X2 < 7 0872 M M43 094 1090 5829 43 76 B FENDX < 4 0879 B 920 1090 5830 43 77 NUSTM MCW 0&X1,CODE#4 < 7 0883 M 0|0 M47 1090 5831 43 78 SBR KILL#3,0&X3 < 7 0890 H M50 0?0 1090 5832 43 79 FBCEQ DOCOD,CODE-3,R,E < MACRO 1 ARITH PHASE ONE 50333 PAGE 144 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5833 BCE DOCOD, CODE-3, R < 8 0897 B 943 M44 R GEN 1090 5834 BCE DOCOD, CODE-3, E < 8 0905 B 943 M44 E GEN 1091 5835 43 80 MCW NOMO#3,X2 < 7 0913 M M53 094 1091 5836 43 81 FENDX FENDX C,,,,,,SYSGM,ARITH TWO < MACRO 5837 FENDX BSS 333,C < 5 0920 B 333 C GEN 1091 5838 SBR TCLEAR,SYSGM < 7 0925 H 710 P68 GEN 1091 5839 LCA @ARITH TWO@,110 < 7 0932 L M62 110 GEN 1091 5840 B MONTER < 4 0939 B 700 GEN 1091 5841 43 82 DOCOD MVDWN X1,X3 < MACRO 5842 DOCOD LCA 0&X1,0&X3 < 7 0943 L 0|0 0?0 GEN 1092 5843 SAR X1 < 4 0950 Q 089 GEN 1092 5844 C 0&X3 < 4 0954 C 0?0 GEN 1092 5845 SAR X3 < 4 0958 Q 099 GEN 1092 5846 43 83 BWZ *&5, CODE,2 < 8 0962 V 974 M47 2 1092 5847 43 84 B INDIR < 4 0970 B 982 1092 5848 43 85 BWZ MAIN,CODE-2,2 < 8 0974 V 998 M45 2 1092 5849 43 86 INDIR MCW CODE,X2 < 7 0982 M M47 094 1093 5850 43 87 MN 0&X2,CODE < 7 0989 D 0!0 M47 1093 5851 43 88 MN < 1 0996 D 1093 5852 43 89 MN < 1 0997 D 1093 5853 43 90 MAIN C 0&X1 < 4 0998 C 0|0 1093 5854 43 91 SAR NEXT#3 < 4 1002 Q M65 1093 5855 43 92 BCE ARTYP,CODE-3,R < 8 1006 B |85 M44 R 1093 5856 43 93 C 0&X1,BLK10#10 < 7 1014 C 0|0 M75 1094 5857 43 94 SAR X1 < 4 1021 Q 089 1094 5858 43 95 SW 1&X1 < 4 1025 , 0|1 1094 5859 43 96 LCA 10&X1,0&X3 < 7 1029 L 0/0 0?0 1094 5860 43 97 SAR X1 < 4 1036 Q 089 1094 5861 43 98 C 0&X3 < 4 1040 C 0?0 1094 5862 43 99 SAR X3 < 4 1044 Q 099 1094 5863 44 00 CW 1&X1,1&X3 < 7 1048 ) 0|1 0?1 1095 5864 44 01 LCA GM1 < 4 1055 L J60 1095 5865 44 02 LCA @#<99@ 12-6-8 < 4 1059 L M79 1095 5866 44 03 SBR X3 < 4 1063 H 099 1095 5867 44 04 CW 1&X3,5&X3 < 7 1067 ) 0?1 0?5 1095 5868 44 05 SBR LAST,0&X1 < 7 1074 H M82 0|0 1095 5869 44 06 B LOOP3 < 4 1081 B /43 1095 5870 44 07 ARTYP SBR X2,1&X1 < 7 1085 H 094 0|1 1096 5871 44 08 BCE CDINT,0&X1,# < 8 1092 B !01 0|0 # 1096 5872 44 09 SBR LAST#3,0&X1 < 7 1100 H M82 0|0 1096 5873 44 10 EQSCN BCE GOTEQ,0&X1,# < 8 1107 B /31 0|0 # 1096 5874 44 11 BCE CDINT,0&X1,} G-M < 8 1115 B !01 0|0 } GMARK 1096 5875 44 12 SBR X1 < 4 1123 H 089 1097 5876 44 13 B EQSCN < 4 1127 B /07 1097 5877 44 14 GOTEQ B MESUR < 4 1131 B !53 1097 5878 44 15 LOOP1 MN 0&X1 < 4 1135 D 0|0 1097 5879 44 16 SAR X1 < 4 1139 Q 089 1097 5880 44 17 LOOP3 SBR X2,1&X1 < 7 1143 H 094 0|1 1097 5881 44 18 SBR FUNBX#3 < 4 1150 H M85 1097 5882 44 19 LOOP2 MN 0&X1,TST1&7 < 7 1154 D 0|0 /79 1098 1 ARITH PHASE ONE 50333 PAGE 145 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5883 44 20 MZ 0&X1,TST1&7 < 7 1161 Y 0|0 /79 1098 5884 44 21 SAR X1 < 4 1168 Q 089 1098 5885 44 22 TST1 BCE GOTOP,@&-@*#%)}@,0 G-M < 8 1172 B /91 M93 0 1098 5886 44 23 CHAIN 7 < MACRO 5887 BCE < 1 1180 B GEN 1098 5888 BCE < 1 1181 B GEN 1098 5889 BCE < 1 1182 B GEN 1098 5890 BCE < 1 1183 B GEN 1099 5891 BCE < 1 1184 B GEN 1099 5892 BCE < 1 1185 B GEN 1099 5893 BCE < 1 1186 B GEN 1099 5894 44 24 B LOOP2 < 4 1187 B /54 1099 5895 44 25 GOTOP SBR X1,1&X1 < 7 1191 H 089 0|1 1099 5896 44 26 BCE CKNG,0&X1,- < 8 1198 B V98 0|0 - 1099 5897 44 27 BCE CKFUN,0&X1,% < 8 1206 B W41 0|0 % 1100 5898 44 28 BCE CKXP,0&X1,* < 8 1214 B U31 0|0 * 1100 5899 44 29 BCE PLUS,0&X1,& < 8 1222 B V44 0|0 & 1100 5900 44 30 BCE DIV,0&X1,@ < 8 1230 B U46 0|0 @ 1100 5901 44 31 BCE LOOP1,0&X1,# < 8 1238 B /35 0|0 # 1101 5902 44 32 BCE CLOSE,0&X1,) < 8 1246 B T39 0|0 ) 1101 5903 44 33 MN 1&X1,CKGM&7 ERGO GROUP MARK < 7 1254 D 0|1 S75 1101 5904 44 34 MZ 1&X1,CKGM&7 < 7 1261 Y 0|1 S75 1101 5905 44 35 CKGM BCE SYNER,@&-*@.#,@,0 < 8 1268 B J22 N00 0 1101 5906 44 36 CHAIN 6 < MACRO 5907 BCE < 1 1276 B GEN 1101 5908 BCE < 1 1277 B GEN 1102 5909 BCE < 1 1278 B GEN 1102 5910 BCE < 1 1279 B GEN 1102 5911 BCE < 1 1280 B GEN 1102 5912 BCE < 1 1281 B GEN 1102 5913 44 37 BCE EOSTM,1&X1, < 8 1282 B T10 0|1 1102 5914 44 38 BCE EOSTM,1&X1,% < 8 1290 B T10 0|1 % 1102 5915 44 39 BCE EOSTM,1&X1,) < 8 1298 B T10 0|1 ) 1103 5916 44 40 B MESUR < 4 1306 B !53 1103 5917 44 41 EOSTM MCW LAST,X2 < 7 1310 M M82 094 1103 5918 44 42 LCA 0&X2,0&X3 < 7 1317 L 0!0 0?0 1103 5919 44 43 SBR X3 < 4 1324 H 099 1103 5920 44 44 MCW NEXT,X1 < 7 1328 M M65 089 1103 5921 44 45 B NUSTM < 4 1335 B 883 1104 5922 44 46 CLOSE MLC 0&X1,BOX#2 < 7 1339 M 0|0 N02 1104 5923 44 47 MLC BOX-1,*&8 < 7 1346 M N01 T60 1104 5924 44 48 BCE CLZOK,@&*@-})@,0 G-M,) < 8 1353 B T78 N08 0 1104 5925 44 49 CHAIN 5 < MACRO 5926 BCE < 1 1361 B GEN 1104 5927 BCE < 1 1362 B GEN 1104 5928 BCE < 1 1363 B GEN 1104 5929 BCE < 1 1364 B GEN 1105 5930 BCE < 1 1365 B GEN 1105 5931 44 50 BCE CLZOK,BOX-1,# < 8 1366 B T78 N01 # 1105 5932 44 51 B SYNER < 4 1374 B J22 1105 1 ARITH PHASE ONE 50333 PAGE 146 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5933 44 52 CLZOK MN 1&X1,CLSCK&7 < 7 1378 D 0|1 T99 1105 5934 44 53 MZ 1&X1,CLSCK&7 < 7 1385 Y 0|1 T99 1105 5935 44 54 CLSCK BCE SYNER,@&-*.@ %,@,0 < 8 1392 B J22 N16 0 1105 5936 44 55 CHAIN 7 < MACRO 5937 BCE < 1 1400 B GEN 1106 5938 BCE < 1 1401 B GEN 1106 5939 BCE < 1 1402 B GEN 1106 5940 BCE < 1 1403 B GEN 1106 5941 BCE < 1 1404 B GEN 1106 5942 BCE < 1 1405 B GEN 1106 5943 BCE < 1 1406 B GEN 1106 5944 44 56 BCE LOOP1,1&X1,# < 8 1407 B /35 0|1 # 1107 5945 44 57 BCE LOOP1,1&X1,) < 8 1415 B /35 0|1 ) 1107 5946 44 58 B MESUR < 4 1423 B !53 1107 5947 44 59 B LOOP1 < 4 1427 B /35 1107 5948 44 60 CKXP MCW 0&X1,BOX2#2 < 7 1431 M 0|0 N18 1107 5949 44 61 BCE ISXP,BOX2-1,* < 8 1438 B V13 N17 * 1107 5950 44 62 DIV FBCEQ SYNER,1&X1,#,% < MACRO 5951 DIV BCE SYNER, 1&X1, # < 8 1446 B J22 0|1 # GEN 1108 5952 BCE SYNER, 1&X1, % < 8 1454 B J22 0|1 % GEN 1108 5953 44 63 BCE SYNER,1&X1, < 8 1462 B J22 0|1 1108 5954 44 64 DIV2 MN 1&X1,DIVCK&7 < 7 1470 D 0|1 U91 1108 5955 44 65 MZ 1&X1,DIVCK&7 < 7 1477 Y 0|1 U91 1108 5956 44 66 DIVCK BCE DBLOP,@&-@*.,@,0 < 8 1484 B J61 N24 0 1109 5957 44 67 CHAIN 5 < MACRO 5958 BCE < 1 1492 B GEN 1109 5959 BCE < 1 1493 B GEN 1109 5960 BCE < 1 1494 B GEN 1109 5961 BCE < 1 1495 B GEN 1109 5962 BCE < 1 1496 B GEN 1109 5963 44 68 BCE LOOP1,1&X1,) < 8 1497 B /35 0|1 ) 1109 5964 44 69 B MESUR < 4 1505 B !53 1110 5965 44 70 B LOOP1 < 4 1509 B /35 1110 5966 44 71 ISXP MN 0&X1 < 4 1513 D 0|0 1110 5967 44 72 MN < 1 1517 D 1110 5968 44 73 SAR X1 < 4 1518 Q 089 1110 5969 44 74 MCW @.@,2&X1 < 7 1522 M M43 0|2 1110 5970 44 75 LCA 0&X1 < 4 1529 L 0|0 1110 5971 44 76 SBR X1,2&X1 < 7 1533 H 089 0|2 1111 5972 44 77 B DIV < 4 1540 B U46 1111 5973 44 78 PLUS FBCEQ SQUOZ,1&X1,#,% < MACRO 5974 PLUS BCE SQUOZ, 1&X1, # < 8 1544 B V72 0|1 # GEN 1111 5975 BCE SQUOZ, 1&X1, % < 8 1552 B V72 0|1 % GEN 1111 5976 44 79 BCE SQUOZ,1&X1, < 8 1560 B V72 0|1 1111 5977 44 80 B DIV2 < 4 1568 B U70 1111 5978 44 81 SQUOZ MN 0&X1 < 4 1572 D 0|0 1112 5979 44 82 SAR X1 < 4 1576 Q 089 1112 5980 44 83 LCA 0&X1,1&X1 < 7 1580 L 0|0 0|1 1112 5981 44 84 SBR X1,1&X1 < 7 1587 H 089 0|1 1112 5982 44 85 B LOOP3 < 4 1594 B /43 1112 1 ARITH PHASE ONE 50333 PAGE 147 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 5983 44 86 CKNG FBCEQ NEGAT,1&X1,#,% < MACRO 5984 CKNG BCE NEGAT, 1&X1, # < 8 1598 B W26 0|1 # GEN 1112 5985 BCE NEGAT, 1&X1, % < 8 1606 B W26 0|1 % GEN 1113 5986 44 87 BCE NEGAT,1&X1, < 8 1614 B W26 0|1 1113 5987 44 88 B DIV2 < 4 1622 B U70 1113 5988 44 89 NEGAT MCW @,@,0&X1 < 7 1626 M N25 0|0 1113 5989 44 90 CW XNEGTF < 4 1633 ) 123 1113 5990 44 91 B LOOP1 < 4 1637 B /35 1113 5991 44 92 CKFUN BCE ISFUN,1&X1,F < 8 1641 B W83 0|1 F 1114 5992 44 93 MN 1&X1,OPNCK&7 < 7 1649 D 0|1 W70 1114 5993 44 94 MZ 1&X1,OPNCK&7 < 7 1656 Y 0|1 W70 1114 5994 44 95 OPNCK BCE LOOP1,@&-*@ #%,.@,0 < 8 1663 B /35 N34 0 1114 5995 44 96 CHAIN 8 < MACRO 5996 BCE < 1 1671 B GEN 1114 5997 BCE < 1 1672 B GEN 1114 5998 BCE < 1 1673 B GEN 1114 5999 BCE < 1 1674 B GEN 1115 6000 BCE < 1 1675 B GEN 1115 6001 BCE < 1 1676 B GEN 1115 6002 BCE < 1 1677 B GEN 1115 6003 BCE < 1 1678 B GEN 1115 6004 44 97 B SYNER < 4 1679 B J22 1115 6005 44 98 ISFUN MCW X2,HEX2#3 < 7 1683 M 094 N37 1115 6006 44 99 MCW FUNBX,X2 < 7 1690 M M85 094 1116 6007 45 00 MN 0&X2 < 4 1697 D 0!0 1116 6008 45 01 SAR X2 < 4 1701 Q 094 1116 6009 45 02 SW 0&X1 < 4 1705 , 0|0 1116 6010 45 03 SBR FUNBX,2&X1 < 7 1709 H M85 0|2 1116 6011 45 04 C FUNBX,X2 < 7 1716 C M85 094 1116 6012 45 05 BE SYNER < 5 1723 B J22 S 1116 6013 45 06 SBR FUNBX,3&X1 < 7 1728 H M85 0|3 1117 6014 45 07 C FUNBX,X2 < 7 1735 C M85 094 1117 6015 45 08 BE SYNER < 5 1742 B J22 S 1117 6016 45 09 MCW X3,HEX3#3 < 7 1747 M 099 N40 1117 6017 45 10 MCW X1,HEX1#3 < 7 1754 M 089 N43 1117 6018 45 11 SBR X1,XSINFU < 7 1761 H 089 118 1118 6019 45 12 SBR X3,FTBL1-1 < 7 1768 H 099 M41 1118 6020 45 13 FSCAN BCE NOFUN,0&X3,* < 8 1775 B Y18 0?0 * 1118 6021 45 14 SBR X3 < 4 1783 H 099 1118 6022 45 15 C 0&X3,0&X2 < 7 1787 C 0?0 0!0 1118 6023 45 16 BE GOTFN < 5 1794 B Y83 S 1118 6024 45 17 C 0&X3 < 4 1799 C 0?0 1119 6025 45 18 SAR X3 < 4 1803 Q 099 1119 6026 45 19 SBR X1,1&X1 < 7 1807 H 089 0|1 1119 6027 45 20 B FSCAN < 4 1814 B X75 1119 6028 45 21 NOFUN FTMSG 29,UNDEFINED FUNCTION NAME,CODE,25 < MACRO 6029 NOFUN CS 332 < 4 1818 / 332 GEN 1119 6030 CS < 1 1822 / GEN 1119 6031 SW FAILSW < 4 1823 , 184 GEN 1119 6032 MN CODE,224&25 < 7 1827 D M47 249 GEN 1120 1 ARITH PHASE ONE 50333 PAGE 148 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6033 MN < 1 1834 D GEN 1120 6034 MN < 1 1835 D GEN 1120 6035 MCW @ERROR 29 - UNDEFINED FUNCTION NAME, STATEMENT @ < 4 1836 M N89 GEN 1120 6036 W < 1 1840 2 GEN 1120 6037 BCV *&5 < 5 1841 B Y50 @ GEN 1120 6038 B *&3 < 4 1846 B Y52 GEN 1120 6039 CC 1 < 2 1850 F 1 GEN 1121 6040 45 22 B ZONCH < 4 1852 B !35 1121 6041 45 23 COMFN CW XCOMF1 < 4 1856 ) 117 1121 6042 45 24 B MOV < 4 1860 B Z26 1121 6043 45 25 COSIN CW XSINFU < 4 1864 ) 118 1121 6044 45 26 B COMFN < 4 1868 B Y56 1121 6045 45 27 ABSVL CW XABSVA,XNEGTF < 7 1872 ) 122 123 1121 6046 45 28 B MOV < 4 1879 B Z26 1122 6047 45 29 GOTFN SW 1&X3 < 4 1883 , 0?1 1122 6048 45 30 BCE COSIN,1&X3,C < 8 1887 B Y64 0?1 C 1122 6049 45 31 BCE ABSVL,1&X3,A < 8 1895 B Y72 0?1 A 1122 6050 45 32 CW 0&X1 < 4 1903 ) 0|0 1122 6051 45 33 MCW 1&X3,*&8 < 7 1907 M 0?1 Z21 1122 6052 45 34 BCE COMFN,@SGECT@,0 < 8 1914 B Y56 N94 0 1123 6053 45 35 CHAIN 4 < MACRO 6054 BCE < 1 1922 B GEN 1123 6055 BCE < 1 1923 B GEN 1123 6056 BCE < 1 1924 B GEN 1123 6057 BCE < 1 1925 B GEN 1123 6058 45 36 MOV BCE KEEPX,0&X2,X < 8 1926 B Z89 0!0 X 1123 6059 45 37 MCW 1&X3,0&X2 < 7 1934 M 0?1 0!0 1123 6060 45 38 MCW BLNK1#1 < 4 1941 M N95 1124 6061 45 39 SBR X2 < 4 1945 H 094 1124 6062 45 40 MCW HEX3,X3 < 7 1949 M N40 099 1124 6063 45 41 MCW HEX1,X1 < 7 1956 M N43 089 1124 6064 45 42 CW 0&X1 < 4 1963 ) 0|0 1124 6065 45 43 SAR X1 < 4 1967 Q 089 1124 6066 45 44 LCA 0&X1,0&X2 < 7 1971 L 0|0 0!0 1124 6067 45 45 SBR X1,0&X2 < 7 1978 H 089 0!0 1125 6068 45 46 B LOOP3 < 4 1985 B /43 1125 6069 45 47 KEEPX MN 0&X2 < 4 1989 D 0!0 1125 6070 45 48 SAR X2 < 4 1993 Q 094 1125 6071 45 49 B MOV&8 < 4 1997 B Z34 1125 6072 45 50 CDINT FTMSG 23,CODING UNINTELLIGIBLE,CODE,23 < MACRO 6073 CDINT CS 332 < 4 2001 / 332 GEN 1125 6074 CS < 1 2005 / GEN 1125 6075 SW FAILSW < 4 2006 , 184 GEN 1126 6076 MN CODE,224&23 < 7 2010 D M47 247 GEN 1126 6077 MN < 1 2017 D GEN 1126 6078 MN < 1 2018 D GEN 1126 6079 MCW @ERROR 23 - CODING UNINTELLIGIBLE, STATEMENT @ < 4 2019 M O39 GEN 1126 6080 W < 1 2023 2 GEN 1126 6081 BCV *&5 < 5 2024 B !33 @ GEN 1126 6082 B *&3 < 4 2029 B !35 GEN 1127 1 ARITH PHASE ONE 50333 PAGE 149 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6083 CC 1 < 2 2033 F 1 GEN 1127 6084 45 51 ZONCH MCW KILL,X3 < 7 2035 M M50 099 1127 6085 45 52 MCW NEXT,X1 < 7 2042 M M65 089 1127 6086 45 53 B NUSTM < 4 2049 B 883 1127 6087 45 54 MESUR SBR MESXT&3 < 4 2053 H !82 1127 6088 45 55 BCE SUBSC,1&X1,$ < 8 2057 B J99 0|1 $ 1127 6089 45 56 SBR MESBX#3,4&X1 < 7 2065 H O42 0|4 1128 6090 45 57 MESCM C MESBX,X2 < 7 2072 C O42 094 1128 6091 45 58 MESXT BE 0 < 5 2079 B 000 S 1128 6092 45 59 FTMSG 25,LEFT SIDE INVALID,CODE,19 < MACRO 6093 CS 332 < 4 2084 / 332 GEN 1128 6094 CS < 1 2088 / GEN 1128 6095 SW FAILSW < 4 2089 , 184 GEN 1128 6096 MN CODE,224&19 < 7 2093 D M47 243 GEN 1128 6097 MN < 1 2100 D GEN 1129 6098 MN < 1 2101 D GEN 1129 6099 MCW @ERROR 25 - LEFT SIDE INVALID, STATEMENT @ < 4 2102 M O82 GEN 1129 6100 W < 1 2106 2 GEN 1129 6101 BCV *&5 < 5 2107 B J16 @ GEN 1129 6102 B *&3 < 4 2112 B J18 GEN 1129 6103 CC 1 < 2 2116 F 1 GEN 1129 6104 45 60 B ZONCH < 4 2118 B !35 1130 6105 45 61 SYNER FTMSG 27,ARITHMETIC SYNTAX ERROR,CODE,25 < MACRO 6106 SYNER CS 332 < 4 2122 / 332 GEN 1130 6107 CS < 1 2126 / GEN 1130 6108 SW FAILSW < 4 2127 , 184 GEN 1130 6109 MN CODE,224&25 < 7 2131 D M47 249 GEN 1130 6110 MN < 1 2138 D GEN 1130 6111 MN < 1 2139 D GEN 1130 6112 MCW @ERROR 27 - ARITHMETIC SYNTAX ERROR, STATEMENT @ < 4 2140 M P28 GEN 1131 6113 W < 1 2144 2 GEN 1131 6114 BCV *&5 < 5 2145 B J54 @ GEN 1131 6115 B *&3 < 4 2150 B J56 GEN 1131 6116 CC 1 < 2 2154 F 1 GEN 1131 6117 45 62 B ZONCH < 4 2156 B !35 1131 6118 45 63 GM1 DC @}@ G-M < 1 2160 GMARK 1131 6119 45 64 DBLOP FTMSG 31,DOUBLE OPERATORS,CODE,18 < MACRO 6120 DBLOP CS 332 < 4 2161 / 332 GEN 1131 6121 CS < 1 2165 / GEN 1132 6122 SW FAILSW < 4 2166 , 184 GEN 1132 6123 MN CODE,224&18 < 7 2170 D M47 242 GEN 1132 6124 MN < 1 2177 D GEN 1132 6125 MN < 1 2178 D GEN 1132 6126 MCW @ERROR 31 - DOUBLE OPERATORS, STATEMENT @ < 4 2179 M P67 GEN 1132 6127 W < 1 2183 2 GEN 1132 6128 BCV *&5 < 5 2184 B J93 @ GEN 1133 6129 B *&3 < 4 2189 B J95 GEN 1133 6130 CC 1 < 2 2193 F 1 GEN 1133 6131 45 65 B ZONCH < 4 2195 B !35 1133 6132 45 66 SUBSC SBR MESBX,12&X1 < 7 2199 H O42 0/2 1133 1 ARITH PHASE ONE 50333 PAGE 150 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6133 45 67 BCE MESCM,11&X1,$ < 8 2206 B !72 0/1 $ 1133 6134 45 68 SBR MESBX,18&X1 < 7 2214 H O42 0/8 1133 6135 45 69 B MESCM < 4 2221 B !72 1134 6136 45 70 * 6137 45 71 * TABLE OF FORTRAN FUNCTIONS 6138 45 72 * 6139 45 73 DCW @*@ SIGNALS END OF TABLE < 1 2225 1134 6140 45 74 * 6141 45 75 DCW @ %FSOCC@ < 9 2234 1134 6142 45 76 DCW @ %FSBAXA@ < 9 2243 1134 6143 45 77 DCW @ %FKNILXI@ < 9 2252 1134 6144 45 78 * USER FUNCTIONS 6145 45 79 DCW @ H@ USER FN 12 < 9 2261 1135 6146 45 80 DCW @ D@ USER FN 11 < 9 2270 1135 6147 45 81 DCW @ M@ USER FN 10 < 9 2279 1135 6148 45 82 DCW @ L@ USER FN 9 < 9 2288 1135 6149 45 83 DCW @ K@ USER FN 8 < 9 2297 1136 6150 45 84 DCW @ J@ USER FN 7 < 9 2306 1136 6151 45 85 DCW @ Z@ USER FN 6 < 9 2315 1136 6152 45 86 DCW @ Y@ USER FN 5 < 9 2324 1136 6153 45 87 DCW @ W@ USER FN 4 < 9 2333 1137 6154 45 88 DCW @ P@ USER FN 3 < 9 2342 1137 6155 45 89 DCW @ U@ USER FN 2 < 9 2351 1137 6156 45 90 DCW @ R@ USER FN 1 < 9 2360 1137 6157 45 91 DCW @ %FTRQSQ@ < 9 2369 1138 6158 45 92 DCW @ %FTAOLFF@ < 9 2378 1138 6159 45 93 DCW @ %FXIFXX@ < 9 2387 1138 6160 45 94 DCW #9 < 9 2396 1138 6161 45 95 DCW @ %FSBAA@ < 9 2405 1139 6162 45 96 DCW @ %FNATAT@ < 9 2414 1139 6163 45 97 DCW @ %FPXEE@ < 9 2423 1139 6164 45 98 DCW @ %FGOLG@ < 9 2432 1139 6165 45 99 DCW @ %FNISS@ < 9 2441 1140 6166 46 00 FTBL1 DCW #1 < 1 2442 1140 6167 46 01 LTORG * < 2443 DCW @.@ < 1 2443 LIT 1140 CODE < DCW #04 < 4 2447 AREA 1140 KILL < DCW #03 < 3 2450 AREA 1140 NOMO < DCW #03 < 3 2453 AREA 1140 DCW @ARITH TWO@ < 9 2462 LIT 1140 NEXT < DCW #03 < 3 2465 AREA 1141 BLK10< DCW #10 < 10 2475 AREA 1141 DCW @#<99@ < 4 2479 LIT 1141 LAST < DCW #03 < 3 2482 AREA 1141 FUNBX< DCW #03 < 3 2485 AREA 1141 DCW @&-@*#%)}@ < 8 2493 LIT 1141 DCW @&-*@.#,@ < 7 2500 LIT 1141 BOX < DCW #02 < 2 2502 AREA 1142 DCW @&*@-})@ < 6 2508 LIT 1142 DCW @&-*.@ %,@ < 8 2516 LIT 1142 1 ARITH PHASE ONE 50333 PAGE 151 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD BOX2 < DCW #02 < 2 2518 AREA 1142 DCW @&-@*.,@ < 6 2524 LIT 1142 DCW @,@ < 1 2525 LIT 1142 DCW @&-*@ #%,.@ < 9 2534 LIT 1142 HEX2 < DCW #03 < 3 2537 AREA 1143 HEX3 < DCW #03 < 3 2540 AREA 1143 HEX1 < DCW #03 < 3 2543 AREA 1143 DCW @ERROR 29 - UNDEFINED FUNCTION NAME, STATEMENT @ < 46 2589 LIT 1145 DCW @SGECT@ < 5 2594 LIT 1145 BLNK1< DCW #01 < 1 2595 AREA 1145 DCW @ERROR 23 - CODING UNINTELLIGIBLE, STATEMENT @ < 44 2639 LIT 1147 MESBX< DCW #03 < 3 2642 AREA 1147 DCW @ERROR 25 - LEFT SIDE INVALID, STATEMENT @ < 40 2682 LIT 1149 DCW @ERROR 27 - ARITHMETIC SYNTAX ERROR, STATEMENT @ < 46 2728 LIT 1151 DCW @ERROR 31 - DOUBLE OPERATORS, STATEMENT @ < 39 2767 LIT 1152 6168 46 02 SYSGM DCW @}@ SYSTEM GROUP MARK < 1 2768 GMARK 1153 6169 46 03 XFR START < B 838 1154 1 ARITH PHASE TWO 50343 PAGE 152 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6170 46 04 JOB ARITH PHASE TWO < 6171 46 05 FBEGN ARITH 2,X1,,X2,,X3,,0 < MACRO 6172 SFX 0 0 GEN 6173 110 DCW @ARITH 2@ 0 7 0110 GEN 1157 6174 X1 EQU 089 0 0089 GEN 6175 X2 EQU 094 0 0094 GEN 6176 X3 EQU 099 0 0099 GEN 6177 46 06 ORG XBEGIN 0 0838 6178 46 07 INITL BCE OUT,X2,. 0 8 0838 B N47 094 . 1158 6179 46 08 SW GM 0 4 0846 , N73 1158 6180 46 09 MCW X2,NOMO#3 0 7 0850 M 094 P45 1158 6181 46 10 SBR X3,2&X3 0 7 0857 H 099 0?2 1158 6182 46 11 SBR X1,2&X1 0 7 0864 H 089 0|2 1158 6183 46 12 MCW X1,X2 0 7 0871 M 089 094 1159 6184 46 13 CLR1 MN X2,TAIL#2 0 7 0878 D 094 P47 1159 6185 46 14 MN 0 1 0885 D 1159 6186 46 15 C TAIL,@00@ 0 7 0886 C P47 P49 1159 6187 46 16 BE STO 0 5 0893 B 913 S 1159 6188 46 17 CW 0&X2 0 4 0898 ) 0!0 1159 6189 46 18 SBR X2,1&X2 0 7 0902 H 094 0!1 1159 6190 46 19 B CLR1 0 4 0909 B 878 1160 6191 46 20 STO MN 0&X2 0 4 0913 D 0!0 1160 6192 46 21 SAR LAST#3 0 4 0917 Q P52 1160 6193 46 22 MN 0&X3 0 4 0921 D 0?0 1160 6194 46 23 SAR X2 0 4 0925 Q 094 1160 6195 46 24 CLR2 C X2,LAST 0 7 0929 C 094 P52 1160 6196 46 25 BE MVUP 0 5 0936 B 953 S 1160 6197 46 26 CS 0&X2 0 4 0941 / 0!0 1161 6198 46 27 SBR X2 0 4 0945 H 094 1161 6199 46 28 B CLR2 0 4 0949 B 929 1161 6200 46 29 MVUP MOVUP X3,X1,NOMO,ALL,| 0 MACRO 6201 MVUP MN 0&X1 0 4 0953 D 0|0 GEN 1161 6202 SAR X1 0 4 0957 Q 089 GEN 1161 6203 )0J163 MCM 0&X3 0 4 0961 P 0?0 GEN 1161 6204 SAR )0L163&6 0 4 0965 Q 987 GEN 1161 6205 MCM 0&X3,1&X1 0 7 0969 P 0?0 0|1 GEN 1162 6206 MN 0 1 0976 D GEN 1162 6207 SBR X1 0 4 0977 H 089 GEN 1162 6208 )0L163 SBR X3,0 0 7 0981 H 099 000 GEN 1162 6209 BCE )0J163,0&X1,| 0 8 0988 B 961 0|0 | GEN 1162 6210 MN 0&X3 0 4 0996 D 0?0 GEN 1162 6211 CW 0 1 1000 ) GEN 1162 6212 SW 0&X1 0 4 1001 , 0|0 GEN 1163 6213 C X3,NOMO 0 7 1005 C 099 P45 GEN 1163 6214 BU )0J163 0 5 1012 B 961 / GEN 1163 6215 46 30 MN 0&X1 0 4 1017 D 0|0 1163 6216 46 31 SAR X1 0 4 1021 Q 089 1163 6217 46 32 MN 0&X3 0 4 1025 D 0?0 1163 6218 46 33 SBR NXBTM#3 0 4 1029 H P55 1163 6219 46 34 BCE START,0&X3,} GROUP MK 0 8 1033 B |60 0?0 } GMARK 1164 1 ARITH PHASE TWO 50343 PAGE 153 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6220 46 35 SBR X3 0 4 1041 H 099 1164 6221 46 36 LCA GM 0 4 1045 L N73 1164 6222 46 37 SBR NXBTM 0 4 1049 H P55 1164 6223 46 38 MCW X3,NOMO 0 7 1053 M 099 P45 1164 6224 46 39 START MCW NXBTM,HEX2#3 0 7 1060 M P55 P58 1164 6225 46 40 MCW 0&X1,X3 0 7 1067 M 0|0 099 1165 6226 46 41 BWZ *&5,X3,2 0 8 1074 V |86 099 2 1165 6227 46 42 B *&9 0 4 1082 B |94 1165 6228 46 43 BWZ *&8,X3-2,2 0 8 1086 V /01 097 2 1165 6229 46 44 MCW 0&X3,X3 0 7 1094 M 0?0 099 1165 6230 46 45 MCW X3,CODE#3 0 7 1101 M 099 P61 1166 6231 46 46 MCW BLNKS,CNTR 0 7 1108 M Q14 Q28 1166 6232 46 47 MCW @]@,40&X1 11-5-8 0 7 1115 M P62 0U0 1166 6233 46 48 SBR KLOBR&6,40&X1 0 7 1122 H /85 0U0 1166 6234 46 49 B MVDWN 0 4 1129 B S57 1166 6235 46 50 BCE IF,2&X1,E 0 8 1133 B S21 0|2 E 1167 6236 46 51 C 2&X1,@R@ 0 7 1141 C 0|2 P63 1167 6237 46 52 BU DUN 0 5 1148 B N19 / 1167 6238 46 53 ARITH MCW X1,X3 0 7 1153 M 089 099 1167 6239 46 54 SBR TUKIT&3,0&X1 0 7 1160 H M96 0|0 1167 6240 46 55 C 0&X3 0 4 1167 C 0?0 1167 6241 46 56 SAR NEXT#3 0 4 1171 Q P66 1168 6242 46 57 B GETLF 0 4 1175 B S91 1168 6243 46 58 KLOBR BCE CNTRL,0,] 11-5-8 0 8 1179 B T81 000 ] 1168 6244 46 59 FQUIT 0 MACRO 6245 CS 332 0 4 1187 / 332 GEN 1168 6246 CS 0 1 1191 / GEN 1168 6247 CC 1 0 2 1192 F 1 GEN 1168 6248 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 0 7 1194 M Q02 270 GEN 1168 6249 W 0 1 1201 2 GEN 1169 6250 CC 1 0 2 1202 F 1 GEN 1169 6251 BCE *&6,MONTOR,1 0 8 1204 B S17 769 1 GEN 1169 6252 RWD 1 0 5 1212 U %U1 R GEN 1169 6253 H *-3 0 4 1217 . S17 GEN 1169 6254 46 60 IF MCW X1,X3 0 7 1221 M 089 099 1169 6255 46 61 RUCOM BCE PASS,0&X3,, 0 8 1228 B S44 0?0 , 1169 6256 46 62 SBR X3 0 4 1236 H 099 1170 6257 46 63 B RUCOM 0 4 1240 B S28 1170 6258 46 64 PASS MN 0&X3 0 4 1244 D 0?0 1170 6259 46 65 SW 0 1 1248 , 1170 6260 46 66 B MVDWN 0 4 1249 B S57 1170 6261 46 67 B ARITH 0 4 1253 B /53 1170 6262 46 68 MVDWN SBR EXMVD&3 0 4 1257 H S90 1170 6263 46 69 MCW NXBTM,X2 0 7 1261 M P55 094 1171 6264 46 70 LCA 0&X1,0&X2 0 7 1268 L 0|0 0!0 1171 6265 46 71 SBR NXBTM 0 4 1275 H P55 1171 6266 46 72 C 0&X1 0 4 1279 C 0|0 1171 6267 46 73 SAR X1 0 4 1283 Q 089 1171 6268 46 74 EXMVD B 0 0 4 1287 B 000 1171 6269 46 75 GETLF SBR EXGTL&3 0 4 1291 H T46 1171 1 ARITH PHASE TWO 50343 PAGE 154 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6270 46 76 BCE SBSCR,0&X3,$ 0 8 1295 B T47 0?0 $ 1172 6271 46 77 LOOP MCW 0&X3,PHILF 0 7 1303 M 0?0 Q15 1172 6272 46 78 SAR X3 0 4 1310 Q 099 1172 6273 46 79 MCW PHILF,*&8 0 7 1314 M Q15 T28 1172 6274 46 80 BCE EXGTL,OPS,0 0 8 1321 B T43 O42 0 1172 6275 46 81 CHAIN 10 0 MACRO 6276 BCE 0 1 1329 B GEN 1172 6277 BCE 0 1 1330 B GEN 1172 6278 BCE 0 1 1331 B GEN 1173 6279 BCE 0 1 1332 B GEN 1173 6280 BCE 0 1 1333 B GEN 1173 6281 BCE 0 1 1334 B GEN 1173 6282 BCE 0 1 1335 B GEN 1173 6283 BCE 0 1 1336 B GEN 1173 6284 BCE 0 1 1337 B GEN 1173 6285 BCE 0 1 1338 B GEN 1174 6286 46 82 B LOOP 0 4 1339 B T03 1174 6287 46 83 EXGTL B 0 0 4 1343 B 000 1174 6288 46 84 SBSCR C 0&X3,BLNKS#12 0 7 1347 C 0?0 Q14 1174 6289 46 85 SAR X3 0 4 1354 Q 099 1174 6290 46 86 BCE EXGTL,2&X3,$ 0 8 1358 B T43 0?2 $ 1174 6291 46 87 C 0&X3,BLNKS-6 0 7 1366 C 0?0 Q08 1174 6292 46 88 SAR X3 0 4 1373 Q 099 1175 6293 46 89 B EXGTL 0 4 1377 B T43 1175 6294 46 90 CNTRL MCW 1&X3,PHILF#1 0 7 1381 M 0?1 Q15 1175 6295 46 91 MCW 1&X1,PHIRT#1 0 7 1388 M 0|1 Q16 1175 6296 46 92 MCW PHIRT,CKOP&7 0 7 1395 M Q16 V46 1175 6297 46 93 MCW BLNKS,UNITS#3 0 7 1402 M Q14 Q19 1175 6298 46 94 B GTNUM 0 4 1409 B V16 1176 6299 46 95 MN NUM#1,UNITS-1 0 7 1413 D Q20 Q18 1176 6300 46 96 MCW PHILF,CKOP&7 0 7 1420 M Q15 V46 1176 6301 46 97 B GTNUM 0 4 1427 B V16 1176 6302 46 98 MN NUM,UNITS 0 7 1431 D Q20 Q19 1176 6303 46 99 MCW UNITS,X2 0 7 1438 M Q19 094 1176 6304 47 00 MN MATRX&X2,X2 0 7 1445 D OM3 094 1177 6305 47 01 MCW BLNKS 0 4 1452 M Q14 1177 6306 47 02 BWZ ERR5,X2,S 0 8 1456 V K61 094 S 1177 6307 47 03 A X2 0 4 1464 A 094 1177 6308 47 04 A X2 0 4 1468 A 094 1177 6309 47 05 B *&1&X2 0 4 1472 B UP6 1177 6310 47 06 B SKIP 0 4 1476 B W03 1177 6311 47 07 B PAREN 0 4 1480 B W18 1178 6312 47 08 B FORCE 0 4 1484 B W59 1178 6313 47 09 B EOJ 0 4 1488 B M58 1178 6314 47 10 B NEG 0 4 1492 B Z48 1178 6315 47 11 B FUN 0 4 1496 B Z81 1178 6316 47 12 B ERR1 0 4 1500 B M13 1178 6317 47 13 B ERR2 0 4 1504 B L75 1178 6318 47 14 B ERR3 0 4 1508 B L37 1179 6319 47 15 B ERR4 0 4 1512 B K99 1179 1 ARITH PHASE TWO 50343 PAGE 155 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6320 47 16 GTNUM SBR CKOP&3 0 4 1516 H V42 1179 6321 47 17 BCE GOTUM,CKOP&7,- 0 8 1520 B V62 V46 - 1179 6322 47 18 NISH S NUM 0 4 1528 S Q20 1179 6323 47 19 MCW &OPS,CKOP&6 0 7 1532 M Q23 V45 1179 6324 47 20 CKOP BCE 0,0,0 0 8 1539 B 000 000 0 1179 6325 47 21 SBR CKOP&6 0 4 1547 H V45 1180 6326 47 22 A @1@,NUM 0 7 1551 A Q24 Q20 1180 6327 47 23 B CKOP 0 4 1558 B V39 1180 6328 47 24 GOTUM MCW @&@,CKOP&7 0 7 1562 M Q25 V46 1180 6329 47 25 B NISH 0 4 1569 B V28 1180 6330 47 26 GNTMP SBR EXGTP&3 0 4 1573 H W02 1180 6331 47 27 A @1@,CNTR#3 0 7 1577 A Q24 Q28 1180 6332 47 28 MZ CNTR-1,TEMP 0 7 1584 Y Q27 N72 1181 6333 47 29 MN CNTR,TEMP 0 7 1591 D Q28 N72 1181 6334 47 30 MN 0 1 1598 D 1181 6335 47 31 EXGTP B 0 0 4 1599 B 000 1181 6336 47 32 SKIP MCW X3,X1 0 7 1603 M 099 089 1181 6337 47 33 B GETLF 0 4 1610 B S91 1181 6338 47 34 B CNTRL 0 4 1614 B T81 1181 6339 47 35 PAREN SW 2&X3 0 4 1618 , 0?2 1182 6340 47 36 LCA 0&X1,1&X1 0 7 1622 L 0|0 0|1 1182 6341 47 37 CW 3&X3 0 4 1629 ) 0?3 1182 6342 47 38 CW 0 1 1633 ) 1182 6343 47 39 LCA 0&X3,2&X3 0 7 1634 L 0?0 0?2 1182 6344 47 40 SBR X1,1&X1 0 7 1641 H 089 0|1 1182 6345 47 41 SBR X3,1&X3 0 7 1648 H 099 0?1 1182 6346 47 42 B CNTRL 0 4 1655 B T81 1183 6347 47 43 FORCE MCW NXBTM,X2 0 7 1659 M P55 094 1183 6348 47 44 MZ 4&X3,ZONE#1 0 7 1666 Y 0?4 Q29 1183 6349 47 45 BCE *&8,2&X3,$ 0 8 1673 B W88 0?2 $ 1183 6350 47 46 MZ 3&X3,ZONE 0 7 1681 Y 0?3 Q29 1183 6351 47 47 SW 2&X3 0 4 1688 , 0?2 1183 6352 47 48 LCA 0&X1,0&X2 0 7 1692 L 0|0 0!0 1184 6353 47 49 SBR X2 0 4 1699 H 094 1184 6354 47 50 CW 1&X2 0 4 1703 ) 0!1 1184 6355 47 51 SW 2&X1 0 4 1707 , 0|2 1184 6356 47 52 SW 0 1 1711 , 1184 6357 47 53 LCA 1&X1,0&X2 0 7 1712 L 0|1 0!0 1184 6358 47 54 SBR X2 0 4 1719 H 094 1184 6359 47 55 SBR NXBTM 0 4 1723 H P55 1185 6360 47 56 CW 1&X2 0 4 1727 ) 0!1 1185 6361 47 57 BCE SBVRT,2&X1,$ 0 8 1731 B Y90 0|2 $ 1185 6362 47 58 LCA 4&X1,0&X2 0 7 1739 L 0|4 0!0 1185 6363 47 59 SBR NXBTM 0 4 1746 H P55 1185 6364 47 60 MZ 3&X1,TEMP-1 0 7 1750 Y 0|3 N71 1185 6365 47 61 SAR X1 0 4 1757 Q 089 1185 6366 47 62 FNISH B GNTMP 0 4 1761 B V73 1186 6367 47 63 LCA TEMP,2&X1 0 7 1765 L N72 0|2 1186 6368 47 64 LCA 1&X3 0 4 1772 L 0?1 1186 6369 47 65 CW 0&X1 0 4 1776 ) 0|0 1186 1 ARITH PHASE TWO 50343 PAGE 156 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6370 47 66 MN 0 1 1780 D 1186 6371 47 67 SAR X3 0 4 1781 Q 099 1186 6372 47 68 SBR X1,2&X1 0 7 1785 H 089 0|2 1186 6373 47 69 BWZ RUINT,TEMP-1,S 0 8 1792 V Y36 N71 S 1187 6374 47 70 BWZ RUINT,TEMP-1,K 0 8 1800 V Y36 N71 K 1187 6375 47 71 BWZ KLOBR,ZONE,2 0 8 1808 V /79 Q29 2 1187 6376 47 72 BWZ KLOBR,ZONE,B 0 8 1816 V /79 Q29 B 1187 6377 47 73 BCE KLOBR,PHIRT,. 0 8 1824 B /79 Q16 . 1188 6378 47 74 B ERR46 0 4 1832 B Y52 1188 6379 47 75 RUINT BWZ KLOBR,ZONE,S 0 8 1836 V /79 Q29 S 1188 6380 47 76 BWZ KLOBR,ZONE,K 0 8 1844 V /79 Q29 K 1188 6381 47 77 ERR46 FTMSG 46,MIXING IN ARITH,CODE,17 0 MACRO 6382 ERR46 CS 332 0 4 1852 / 332 GEN 1188 6383 CS 0 1 1856 / GEN 1188 6384 SW FAILSW 0 4 1857 , 184 GEN 1188 6385 MN CODE,224&17 0 7 1861 D P61 241 GEN 1189 6386 MN 0 1 1868 D GEN 1189 6387 MN 0 1 1869 D GEN 1189 6388 MCW @ERROR 46 - MIXING IN ARITH, STATEMENT @ 0 4 1870 M Q67 GEN 1189 6389 W 0 1 1874 2 GEN 1189 6390 BCV *&5 0 5 1875 B Y84 @ GEN 1189 6391 B *&3 0 4 1880 B Y86 GEN 1189 6392 CC 1 0 2 1884 F 1 GEN 1190 6393 47 78 B KILL 0 4 1886 B M47 1190 6394 47 79 SBVRT SBR X2,10&X1 0 7 1890 H 094 0/0 1190 6395 47 80 BCE SEND,2&X2,$ 0 8 1897 B Z12 0!2 $ 1190 6396 47 81 SBR X2,6&X2 0 7 1905 H 094 0!6 1190 6397 47 82 SEND MCW NXBTM,*&7 0 7 1912 M P55 Z25 1190 6398 47 83 LCA 2&X2,0 0 7 1919 L 0!2 000 1191 6399 47 84 SBR NXBTM 0 4 1926 H P55 1191 6400 47 85 MZ 4&X1,TEMP-1 0 7 1930 Y 0|4 N71 1191 6401 47 86 MCW X2,X1 0 7 1937 M 094 089 1191 6402 47 87 B FNISH 0 4 1944 B X61 1191 6403 47 88 NEG MCW @N@,1&X1 0 7 1948 M Q68 0|1 1191 6404 47 89 MZ 4&X3,TEMP-1 0 7 1955 Y 0?4 N71 1192 6405 47 90 BCE FUNY,2&X3,$ 0 8 1962 B J17 0?2 $ 1192 6406 47 91 MZ 3&X3,TEMP-1 0 7 1970 Y 0?3 N71 1192 6407 47 92 B FUNY 0 4 1977 B J17 1192 6408 47 93 FUN MCW 3&X1,TYPE#2 0 7 1981 M 0|3 Q70 1192 6409 47 94 BCE FXMOD,3&X1,X 0 8 1988 B J75 0|3 X 1193 6410 47 95 MZ *-4,TEMP-1 0 7 1996 Y Z98 N71 1193 6411 47 96 CKUSR SW 2&X1 0 4 2003 , 0|2 1193 6412 47 97 MCW 2&X1,*&8 0 7 2007 M 0|2 !21 1193 6413 47 98 BCE OKAY,@RUPWYZKJLMDH@,0 0 8 2014 B !99 Q82 0 1193 6414 47 99 CHAIN 11 0 MACRO 6415 BCE 0 1 2022 B GEN 1193 6416 BCE 0 1 2023 B GEN 1193 6417 BCE 0 1 2024 B GEN 1194 6418 BCE 0 1 2025 B GEN 1194 6419 BCE 0 1 2026 B GEN 1194 1 ARITH PHASE TWO 50343 PAGE 157 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6420 BCE 0 1 2027 B GEN 1194 6421 BCE 0 1 2028 B GEN 1194 6422 BCE 0 1 2029 B GEN 1194 6423 BCE 0 1 2030 B GEN 1194 6424 BCE 0 1 2031 B GEN 1195 6425 BCE 0 1 2032 B GEN 1195 6426 48 00 MZ 4&X3,ZONE 0 7 2033 Y 0?4 Q29 1195 6427 48 01 BCE *&8,2&X3,$ 0 8 2040 B !55 0?2 $ 1195 6428 48 02 MZ 3&X3,ZONE 0 7 2048 Y 0?3 Q29 1195 6429 48 03 BCE RUFIX,2&X1,F 0 8 2055 B K07 0|2 F 1195 6430 48 04 BCE RUFIX,2&X1,I 0 8 2063 B K07 0|2 I 1196 6431 48 05 C TYPE,@AX@ 0 7 2071 C Q70 Q84 1196 6432 48 06 BE RUFIX 0 5 2078 B K07 S 1196 6433 48 07 BWZ ERR6,ZONE,S 0 8 2083 V K23 Q29 S 1196 6434 48 08 BWZ ERR6,ZONE,K 0 8 2091 V K23 Q29 K 1196 6435 48 09 OKAY MCW 2&X1,1&X1 0 7 2099 M 0|2 0|1 1197 6436 48 10 MCW @%@,2&X1 0 7 2106 M Q85 0|2 1197 6437 48 11 CW 2&X1 0 4 2113 ) 0|2 1197 6438 48 12 FUNY MCW NXBTM,X2 0 7 2117 M P55 094 1197 6439 48 13 SW 2&X3 0 4 2124 , 0?2 1197 6440 48 14 LCA 1&X1,0&X2 0 7 2128 L 0|1 0!0 1197 6441 48 15 SBR NXBTM 0 4 2135 H P55 1198 6442 48 16 B GNTMP 0 4 2139 B V73 1198 6443 48 17 LCA TEMP,1&X1 0 7 2143 L N72 0|1 1198 6444 48 18 LCA 1&X3 0 4 2150 L 0?1 1198 6445 48 19 MN 0&X1 0 4 2154 D 0|0 1198 6446 48 20 CW 0 1 2158 ) 1198 6447 48 21 MN 0 1 2159 D 1198 6448 48 22 SAR X3 0 4 2160 Q 099 1199 6449 48 23 SBR X1,1&X1 0 7 2164 H 089 0|1 1199 6450 48 24 B KLOBR 0 4 2171 B /79 1199 6451 48 25 FXMOD MZ *-6,TEMP-1 0 7 2175 Y J75 N71 1199 6452 48 26 LCA 2&X1,3&X1 0 7 2182 L 0|2 0|3 1199 6453 48 27 SBR X1,1&X1 0 7 2189 H 089 0|1 1199 6454 48 28 SBR X3,1&X3 0 7 2196 H 099 0?1 1200 6455 48 29 B CKUSR 0 4 2203 B !03 1200 6456 48 30 RUFIX BWZ OKAY,ZONE,S 0 8 2207 V !99 Q29 S 1200 6457 48 31 BWZ OKAY,ZONE,K 0 8 2215 V !99 Q29 K 1200 6458 48 32 ERR6 CS 332 0 4 2223 / 332 1200 6459 48 33 CS 0 1 2227 / 1200 6460 48 34 SW FAILSW 0 4 2228 , 184 1200 6461 48 35 MN CODE,224&37 0 7 2232 D P61 261 1201 6462 48 36 MN 0 1 2239 D 1201 6463 48 37 MN 0 1 2240 D 1201 6464 48 38 MCW BGMSG 0 4 2241 M O31 1201 6465 48 39 W 0 1 2245 2 1201 6466 48 40 BCV *&5 0 5 2246 B K55 @ 1201 6467 48 41 B *&3 0 4 2251 B K57 1201 6468 48 42 CC 1 0 2 2255 F 1 1202 6469 48 43 B KILL 0 4 2257 B M47 1202 1 ARITH PHASE TWO 50343 PAGE 158 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6470 48 44 ERR5 FTMSG 24,SYSTEM ERROR,CODE,14 0 MACRO 6471 ERR5 CS 332 0 4 2261 / 332 GEN 1202 6472 CS 0 1 2265 / GEN 1202 6473 SW FAILSW 0 4 2266 , 184 GEN 1202 6474 MN CODE,224&14 0 7 2270 D P61 238 GEN 1202 6475 MN 0 1 2277 D GEN 1202 6476 MN 0 1 2278 D GEN 1203 6477 MCW @ERROR 24 - SYSTEM ERROR, STATEMENT @ 0 4 2279 M R20 GEN 1203 6478 W 0 1 2283 2 GEN 1203 6479 BCV *&5 0 5 2284 B K93 @ GEN 1203 6480 B *&3 0 4 2289 B K95 GEN 1203 6481 CC 1 0 2 2293 F 1 GEN 1203 6482 48 45 B KILL 0 4 2295 B M47 1203 6483 48 46 ERR4 FTMSG 26,EXCESS OF # SIGNS,CODE,19 0 MACRO 6484 ERR4 CS 332 0 4 2299 / 332 GEN 1204 6485 CS 0 1 2303 / GEN 1204 6486 SW FAILSW 0 4 2304 , 184 GEN 1204 6487 MN CODE,224&19 0 7 2308 D P61 243 GEN 1204 6488 MN 0 1 2315 D GEN 1204 6489 MN 0 1 2316 D GEN 1204 6490 MCW @ERROR 26 - EXCESS OF # SIGNS, STATEMENT @ 0 4 2317 M R60 GEN 1204 6491 W 0 1 2321 2 GEN 1205 6492 BCV *&5 0 5 2322 B L31 @ GEN 1205 6493 B *&3 0 4 2327 B L33 GEN 1205 6494 CC 1 0 2 2331 F 1 GEN 1205 6495 48 47 B KILL 0 4 2333 B M47 1205 6496 48 48 ERR3 FTMSG 32,MULTIPLE EXPONENT,CODE,19 0 MACRO 6497 ERR3 CS 332 0 4 2337 / 332 GEN 1205 6498 CS 0 1 2341 / GEN 1205 6499 SW FAILSW 0 4 2342 , 184 GEN 1206 6500 MN CODE,224&19 0 7 2346 D P61 243 GEN 1206 6501 MN 0 1 2353 D GEN 1206 6502 MN 0 1 2354 D GEN 1206 6503 MCW @ERROR 32 - MULTIPLE EXPONENT, STATEMENT @ 0 4 2355 M ?00 GEN 1206 6504 W 0 1 2359 2 GEN 1206 6505 BCV *&5 0 5 2360 B L69 @ GEN 1206 6506 B *&3 0 4 2365 B L71 GEN 1207 6507 CC 1 0 2 2369 F 1 GEN 1207 6508 48 49 B KILL 0 4 2371 B M47 1207 6509 48 50 ERR2 FTMSG 16,PARENTHESIS ERROR,CODE,19 0 MACRO 6510 ERR2 CS 332 0 4 2375 / 332 GEN 1207 6511 CS 0 1 2379 / GEN 1207 6512 SW FAILSW 0 4 2380 , 184 GEN 1207 6513 MN CODE,224&19 0 7 2384 D P61 243 GEN 1207 6514 MN 0 1 2391 D GEN 1208 6515 MN 0 1 2392 D GEN 1208 6516 MCW @ERROR 16 - PARENTHESIS ERROR, STATEMENT @ 0 4 2393 M ?40 GEN 1208 6517 W 0 1 2397 2 GEN 1208 6518 BCV *&5 0 5 2398 B M07 @ GEN 1208 6519 B *&3 0 4 2403 B M09 GEN 1208 1 ARITH PHASE TWO 50343 PAGE 159 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6520 CC 1 0 2 2407 F 1 GEN 1208 6521 48 51 B KILL 0 4 2409 B M47 1209 6522 48 52 ERR1 FTMSG 25,LEFT SIDE INVALID,CODE,19 0 MACRO 6523 ERR1 CS 332 0 4 2413 / 332 GEN 1209 6524 CS 0 1 2417 / GEN 1209 6525 SW FAILSW 0 4 2418 , 184 GEN 1209 6526 MN CODE,224&19 0 7 2422 D P61 243 GEN 1209 6527 MN 0 1 2429 D GEN 1209 6528 MN 0 1 2430 D GEN 1209 6529 MCW @ERROR 25 - LEFT SIDE INVALID, STATEMENT @ 0 4 2431 M ?80 GEN 1210 6530 W 0 1 2435 2 GEN 1210 6531 BCV *&5 0 5 2436 B M45 @ GEN 1210 6532 B *&3 0 4 2441 B M47 GEN 1210 6533 CC 1 0 2 2445 F 1 GEN 1210 6534 48 53 KILL MCW HEX2,NXBTM 0 7 2447 M P58 P55 1210 6535 48 54 B RESET 0 4 2454 B N08 1210 6536 48 55 EOJ MCW NXBTM,X2 0 7 2458 M P55 094 1211 6537 48 56 SW 2&X3 0 4 2465 , 0?2 1211 6538 48 57 LCA 0&X1,0&X2 0 7 2469 L 0|0 0!0 1211 6539 48 58 LCA @#@ 0 4 2476 L ?81 1211 6540 48 59 SBR X2 0 4 2480 H 094 1211 6541 48 60 CW 2&X2 0 4 2484 ) 0!2 1211 6542 48 61 CW 0 1 2488 ) 1211 6543 48 62 SW 2&X1 0 4 2489 , 0|2 1212 6544 48 63 TUKIT LCA 0,0&X2 0 7 2493 L 000 0!0 1212 6545 48 64 LCA GM 0 4 2500 L N73 1212 6546 48 65 SBR NXBTM 0 4 2504 H P55 1212 6547 48 66 RESET MCW NEXT,X1 0 7 2508 M P66 089 1212 6548 48 67 B START 0 4 2515 B |60 1212 6549 48 68 DUN SBR X1,5&X1 0 7 2519 H 089 0|5 1212 6550 48 69 MCW NXBTM,X3 0 7 2526 M P55 099 1213 6551 48 70 SBR X2,5&X3 0 7 2533 H 094 0?5 1213 6552 48 71 MCW NOMO,X3 0 7 2540 M P45 099 1213 6553 48 72 OUT FENDX C,,,,,,SYSGM,ARITH TRI 0 MACRO 6554 OUT BSS 333,C 0 5 2547 B 333 C GEN 1213 6555 SBR TCLEAR,SYSGM 0 7 2552 H 710 ?91 GEN 1213 6556 LCA @ARITH TRI@,110 0 7 2559 L ?90 110 GEN 1214 6557 B MONTER 0 4 2566 B 700 GEN 1214 6558 48 73 DCW @<@ DELTA 12-6-8 0 1 2570 1214 6559 48 74 TEMP DC @ @ BLANKS 0 2 2572 1214 6560 48 75 GM DC @}@ GROUP MK 0 1 2573 GMARK 1214 6561 48 76 DCW @ERROR 28 - INCORRECT MODE OF FUNCTION ARGUMENT, ST@ 0 50 2623 1216 6562 48 77 BGMSG DC @ATEMENT @ 0 8 2631 1216 6563 48 78 DCW @-@ 0 1 2632 1216 6564 48 79 OPS DCW @, .@&}#%)*@ PLUS, G-M, EQUAL 0 10 2642 1216 6565 48 80 MATRX EQU *&1 0 2643 6566 48 81 DC @220922200SSSSSSSSSSS010970000007093000006660S66666@ 0 50 2692 1218 6567 48 82 DC @020922000S220922200S220922280S0509700000440944400S@ 0 50 2742 1220 6568 48 83 * 6569 48 84 * 1 ARITH PHASE TWO 50343 PAGE 160 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6570 48 85 * ARITH ALGORITHM 6571 48 86 * 6572 48 87 * 6573 48 88 * 6574 48 89 * PHI LEFT 6575 48 90 * 6576 48 91 * - 6577 48 92 * * ) % # GM & / ** F% NG 6578 48 93 * 6579 48 94 * P * 2 2 0 9 2 2 2 0 0 S 6580 48 95 * H ) S S S S S S S S S S 6581 48 96 * I % 0 1 0 9 7 0 0 0 0 0 6582 48 97 * # 0 7 0 9 3 0 0 0 0 0 6583 48 98 * R GM 6 6 6 0 S 6 6 6 6 6 6584 48 99 * I -& 0 2 0 9 2 2 0 0 0 S 6585 49 00 * G / 2 2 0 9 2 2 2 0 0 S 6586 49 01 * H .** 2 2 0 9 2 2 2 8 0 S 6587 49 02 * T F% 0 5 0 9 7 0 0 0 0 0 6588 49 03 * ,NG 4 4 0 9 4 4 4 0 0 S 6589 49 04 * 6590 49 05 * 6591 49 06 * 0 SKIP TO NEXT OP 6592 49 07 * 1 DELETE PARENS 6593 49 08 * 2 FORCE BINARY OP 6594 49 09 * 3 EOJ 6595 49 10 * 4 NEGATE FN 6596 49 11 * 5 OTHER FN 6597 49 12 * 6 LEFT SIDE INVALID 6598 49 13 * 7 PAREN ERROR 6599 49 14 * 8 DOUBLE EXPONENTIATION 6600 49 15 * 9 MULTIPLE # SIGNS 6601 49 16 * S COMPILER ERROR 6602 49 17 * 6603 49 18 * 6604 49 19 LTORG * 0 2743 NOMO 0 DCW #03 0 3 2745 AREA 1220 TAIL 0 DCW #02 0 2 2747 AREA 1220 DCW @00@ 0 2 2749 LIT 1220 LAST 0 DCW #03 0 3 2752 AREA 1220 NXBTM0 DCW #03 0 3 2755 AREA 1221 HEX2 0 DCW #03 0 3 2758 AREA 1221 CODE 0 DCW #03 0 3 2761 AREA 1221 DCW @]@ 0 1 2762 LIT 1221 DCW @R@ 0 1 2763 LIT 1221 NEXT 0 DCW #03 0 3 2766 AREA 1221 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 0 36 2802 LIT 1222 BLNKS0 DCW #12 0 12 2814 AREA 1223 PHILF0 DCW #01 0 1 2815 AREA 1223 PHIRT0 DCW #01 0 1 2816 AREA 1223 UNITS0 DCW #03 0 3 2819 AREA 1223 1 ARITH PHASE TWO 50343 PAGE 161 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD NUM 0 DCW #01 0 1 2820 AREA 1223 DCW &OPS 0 0 3 2823 O42 ADCON 1223 DCW @1@ 0 1 2824 LIT 1223 DCW @&@ 0 1 2825 LIT 1224 CNTR 0 DCW #03 0 3 2828 AREA 1224 ZONE 0 DCW #01 0 1 2829 AREA 1224 DCW @ERROR 46 - MIXING IN ARITH, STATEMENT @ 0 38 2867 LIT 1225 DCW @N@ 0 1 2868 LIT 1225 TYPE 0 DCW #02 0 2 2870 AREA 1226 DCW @RUPWYZKJLMDH@ 0 12 2882 LIT 1226 DCW @AX@ 0 2 2884 LIT 1226 DCW @%@ 0 1 2885 LIT 1226 DCW @ERROR 24 - SYSTEM ERROR, STATEMENT @ 0 35 2920 LIT 1227 DCW @ERROR 26 - EXCESS OF # SIGNS, STATEMENT @ 0 40 2960 LIT 1229 DCW @ERROR 32 - MULTIPLE EXPONENT, STATEMENT @ 0 40 3000 LIT 1231 DCW @ERROR 16 - PARENTHESIS ERROR, STATEMENT @ 0 40 3040 LIT 1233 DCW @ERROR 25 - LEFT SIDE INVALID, STATEMENT @ 0 40 3080 LIT 1235 DCW @#@ 0 1 3081 LIT 1235 DCW @ARITH TRI@ 0 9 3090 LIT 1235 6605 49 20 SYSGM DCW @}@ SYSTEM GROUP MK 0 1 3091 GMARK 1235 6606 49 21 XFR INITL 0 B 838 1236 1 ARITH PHASE THREE 50353 PAGE 162 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6607 49 22 JOB ARITH PHASE THREE 0 6608 49 23 SFX [ 12-5-8 [ 6609 49 24 110 DCW @ARITH 3@ [ 7 0110 1239 6610 49 25 ORG XBEGIN [ 0838 6611 49 26 START FENDX C,,,,,,SYSGM,ARITH 4 [ MACRO 6612 START BSS 333,C [ 5 0838 B 333 C GEN 1240 6613 SBR TCLEAR,SYSGM [ 7 0843 H 710 |68 GEN 1240 6614 LCA @ARITH 4@,110 [ 7 0850 L |67 110 GEN 1240 6615 B MONTER [ 4 0857 B 700 GEN 1240 6616 49 27 ORG *&200 [ 1061 6617 49 28 LTORG * [ 1061 DCW @ARITH 4@ [ 7 1067 LIT 1241 6618 49 29 SYSGM DCW @}@ SYSTEM GM [ 1 1068 GMARK 1241 6619 49 30 XFR START [ B 838 1242 1 ARITH PHASE FOUR 50363 PAGE 163 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6620 49 31 JOB ARITH PHASE FOUR [ 6621 49 32 FBEGN ARITH 4, X1,,X2,,X3,,7 [ MACRO 6622 SFX 7 7 GEN 6623 110 DCW @ARITH 4@ 7 7 0110 GEN 1245 6624 X1 EQU 089 7 0089 GEN 6625 X2 EQU 094 7 0094 GEN 6626 X3 EQU 099 7 0099 GEN 6627 49 33 ORG XBEGIN 7 0838 6628 49 34 * START - INITIALIZATION 6629 49 35 START BCE FENDX,X2,. 7 8 0838 B R37 094 . 1246 6630 49 36 SW GM1 7 4 0846 , K40 1246 6631 49 37 SBR SAVX3#3,0&X3 7 7 0850 H R62 0?0 1246 6632 49 38 SBR X1,1&X1 7 7 0857 H 089 0|1 1246 6633 49 39 SBR X2,1&X2 7 7 0864 H 094 0!1 1246 6634 49 40 * START OF EVERY STATEMENT 6635 49 41 NUSTM S TBLR 7 4 0871 S N72 1246 6636 49 42 C X2, SAVX3 7 7 0875 C 094 R62 1247 6637 49 43 BE FENDX 7 5 0882 B R37 S 1247 6638 49 44 MCW BLK4,MAXDL 7 7 0887 M ?45 ?21 1247 6639 49 45 SBR HEX1#3,0&X1 7 7 0894 H R65 0|0 1247 6640 49 46 * START OF EVERY DELTA STRING 6641 49 47 BLKOP MCW BLK4, HLDOP#1 7 7 0901 M ?45 R66 1247 6642 49 48 CWPRT CW PRTSW 7 4 0908 ) R36 1247 6643 49 49 B FIX X2 AT HIGH ORDER MINUS ONE 7 4 0912 B N73 1248 6644 49 50 BCE DELT1,LEFT-2,< 12-6-8 X2 AT UNITS POS 7 8 0916 B 974 ?61 < 1248 6645 49 51 CKDL2 BCE DELT2,RIGHT-2,< 12-6-8 7 8 0924 B /66 ?86 < 1248 6646 49 52 BCE OUTPT,1&X2,} GM 7 8 0932 B X33 0!1 } GMARK 1248 6647 49 53 BW BIG,PRTSW 7 8 0940 V T02 R36 1 1248 6648 49 54 ADD3 A @I99@,CURDL#3 7 7 0948 A R69 R72 1249 6649 49 55 MCW CURDL,X3 7 7 0955 M R72 099 1249 6650 49 56 BCE ADD3,TABLE&X3,1 7 8 0962 B 948 KD1 1 1249 6651 49 57 B BLKOP 7 4 0970 B 901 1249 6652 49 58 * DELTA IS LEFT OPERAND 6653 49 59 DELT1 BCE CKDL2,OP,# 7 8 0974 B 924 ?64 # 1249 6654 49 60 BCE TUF,OP,. 7 8 0982 B T28 ?64 . 1250 6655 49 61 B CVTDL 7 4 0990 B P58 1250 6656 49 62 DCW LEFT 7 3 0996 ?63 1250 6657 49 63 D2 B GETDL CVT3 HAS DELTA NO OF SOUGHT TEMP 7 4 0997 B Q37 1250 6658 49 64 MN &1,TABLE&X1 MARK DELTA DELETED 7 7 1001 D R73 KU1 1250 6659 49 65 LCA 0&X3,HLD35#35 7 7 1008 L 0?0 ?08 1250 6660 49 66 SAR X1 7 4 1015 Q 089 1250 6661 49 67 * DELETE TEMP 6662 49 68 CMP3 C X1,X2 7 7 1019 C 089 094 1251 6663 49 69 BE HLFT 7 5 1026 B |54 S 1251 6664 49 70 MVDWN X1,X3 7 MACRO 6665 LCA 0&X1,0&X3 7 7 1031 L 0|0 0?0 GEN 1251 6666 SAR X1 7 4 1038 Q 089 GEN 1251 6667 C 0&X3 7 4 1042 C 0?0 GEN 1251 6668 SAR X3 7 4 1046 Q 099 GEN 1251 6669 49 71 B CMP3 7 4 1050 B |19 1251 1 ARITH PHASE FOUR 50363 PAGE 164 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6670 49 72 * X1 # X2 UNITS POSN OF TEMP TO BE OPTIMIZED 6671 49 73 * X3 # UNITS OF INSERTION OF OPTIMIZED TEMP 6672 49 74 * INSERT TEMP IN STRING 6673 49 75 HLFT C 0&X2 7 4 1054 C 0!0 1252 6674 49 76 SAR X1 X1 AT HI ORD OF OLD TEMP 7 4 1058 Q 089 1252 6675 49 77 BW CW2,PRTSW 7 8 1062 V R28 R36 1 1252 6676 49 78 CKRT BCE NORT,RIGHT,* 7 8 1070 B /01 ?88 * 1252 6677 49 79 BCE FST1,OP,# 7 8 1078 B W95 ?64 # 1252 6678 49 80 LCA RIGHT,0&X3 7 7 1086 L ?88 0?0 1252 6679 49 81 SBR X3 7 4 1093 H 099 1253 6680 49 82 CW 1&X3 7 4 1097 ) 0?1 1253 6681 49 83 NORT LCA OP,0&X3 7 7 1101 L ?64 0?0 1253 6682 49 84 SBR X3 7 4 1108 H 099 1253 6683 49 85 CW 1&X3 7 4 1112 ) 0?1 1253 6684 49 86 LCA HLD35,0&X3 7 7 1116 L ?08 0?0 1253 6685 49 87 SBR X3 7 4 1123 H 099 1253 6686 49 88 SBR X2 X2 NOA AT NEW LOC OF TEMP 7 4 1127 H 094 1254 6687 49 89 * SHIFT REST OF STATEMENT 6688 49 90 LOAD2 LCA 0&X1,0&X3 7 7 1131 L 0|0 0?0 1254 6689 49 91 SAR X1 7 4 1138 Q 089 1254 6690 49 92 C 0&X3 7 4 1142 C 0?0 1254 6691 49 93 SAR X3 7 4 1146 Q 099 1254 6692 49 94 BCE *&5,1&X1,} GM 7 8 1150 B /62 0|1 } GMARK 1254 6693 49 95 B LOAD2 7 4 1158 B /31 1254 6694 49 96 B BLKOP 7 4 1162 B 901 1255 6695 49 97 * DELTA IS RIGHT OPERAND 6696 49 98 DELT2 BCE *&5,HLDOP, BLANK 7 8 1166 B /78 R66 1255 6697 49 99 B CANU 7 4 1174 B U96 1255 6698 50 00 BCE FIRST,OP,# 7 8 1178 B W63 ?64 # 1255 6699 50 01 FBCEQ COMUT,OP,&,* 7 MACRO 6700 BCE COMUT, OP, & 7 8 1186 B S14 ?64 & GEN 1255 6701 BCE COMUT, OP, * 7 8 1194 B S14 ?64 * GEN 1256 6702 50 02 BCE NEGAT,OP,- 7 8 1202 B S39 ?64 - 1256 6703 50 03 B CKND 7 4 1210 B V27 1256 6704 50 04 COMUT LCA LEFT,HLD35 7 7 1214 L ?63 ?08 1256 6705 50 05 LCA RIGHT,LEFT 7 7 1221 L ?88 ?63 1256 6706 50 06 LCA HLD35,RIGHT 7 7 1228 L ?08 ?88 1257 6707 50 07 B DELT1 7 4 1235 B 974 1257 6708 50 08 NEGAT BW KWM,PRTSW 7 8 1239 V T79 R36 1 1257 6709 50 09 LCA LEFT,0&X2 7 7 1247 L ?63 0!0 1257 6710 50 10 LCA @&@ 7 4 1254 L ?09 1257 6711 50 11 SBR X2 7 4 1258 H 094 1257 6712 50 12 CW 2&X2,XNEGTF 7 7 1262 ) 0!2 123 1258 6713 50 13 NEG3 LCA RIGHT,LEFT 7 7 1269 L ?88 ?63 1258 6714 50 14 LCA @***@,RIGHT 7 7 1276 L ?12 ?88 1258 6715 50 15 MCW @N@,OP 7 7 1283 M ?13 ?64 1258 6716 50 16 CW XNEGTF 7 4 1290 ) 123 1258 6717 50 17 SW PRTSW 7 4 1294 , R36 1258 6718 50 18 B DELT1 7 4 1298 B 974 1259 6719 50 19 * IN THE MIDDLE OF PARTIALLY OPTIMIZED TEMP 1 ARITH PHASE FOUR 50363 PAGE 165 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6720 50 20 BIG BCE TUF,RIGHT,* 7 8 1302 B T28 ?88 * 1259 6721 50 21 MCW OP,BCE1&7 7 7 1310 M ?64 T24 1259 6722 50 22 BCE1 BCE MAYBE,@&-*@@, 0 7 8 1317 B T91 ?17 0 1259 6723 50 23 CHAIN 3 7 MACRO 6724 BCE 7 1 1325 B GEN 1259 6725 BCE 7 1 1326 B GEN 1259 6726 BCE 7 1 1327 B GEN 1259 6727 50 24 TUF BW *&5,PRTSW 7 8 1328 V T40 R36 1 1260 6728 50 25 B ADD3 7 4 1336 B 948 1260 6729 50 26 B KWM 7 4 1340 B T79 1260 6730 50 27 TUF2 BW ADJST,2&X2 7 8 1344 V T60 0!2 1 1260 6731 50 28 SBR X2 7 4 1352 H 094 1260 6732 50 29 B TUF2 7 4 1356 B T44 1260 6733 50 30 ADJST SBR X2,1&X2 7 7 1360 H 094 0!1 1260 6734 50 31 BCE OUTPT,1&X2,} GM 7 8 1367 B X33 0!1 } GMARK 1261 6735 50 32 B ADD3 7 4 1375 B 948 1261 6736 50 33 KWM SBR KWMXT&3 7 4 1379 H T90 1261 6737 50 34 CW 1&X2 7 4 1383 ) 0!1 1261 6738 50 35 KWMXT B 0 7 4 1387 B 000 1261 6739 50 36 MAYBE BCE *&5,HLDOP, BLANK 7 8 1391 B U03 R66 1261 6740 50 37 B ADNL 7 4 1399 B U40 1261 6741 50 38 MCW OP,HLDOP 7 7 1403 M ?64 R66 1262 6742 50 39 MESUR CW 1&X2 7 4 1410 ) 0!1 1262 6743 50 40 LCA RIGHT,0&X2 7 7 1414 L ?88 0!0 1262 6744 50 41 SBR X2 7 4 1421 H 094 1262 6745 50 42 CW MIDSW#1 7 4 1425 ) ?18 1262 6746 50 43 SBR CW5&3,1&X2 7 7 1429 H O17 0!1 1262 6747 50 44 B CWPRT 7 4 1436 B 908 1262 6748 50 45 ADNL FBCEQ HOPE,HLDOP,&,- 7 MACRO 6749 ADNL BCE HOPE, HLDOP, & 7 8 1440 B U76 R66 & GEN 1263 6750 BCE HOPE, HLDOP, - 7 8 1448 B U76 R66 - GEN 1263 6751 50 46 FBCEQ MESUR,OP,*,/ 7 MACRO 6752 BCE MESUR, OP, * 7 8 1456 B U10 ?64 * GEN 1263 6753 BCE MESUR, OP, / 7 8 1464 B U10 ?64 / GEN 1263 6754 50 47 B TUF 7 4 1472 B T28 1263 6755 50 48 HOPE FBCEQ MESUR,OP,&,- 7 MACRO 6756 HOPE BCE MESUR, OP, & 7 8 1476 B U10 ?64 & GEN 1264 6757 BCE MESUR, OP, - 7 8 1484 B U10 ?64 - GEN 1264 6758 50 49 B TUF 7 4 1492 B T28 1264 6759 50 50 * DELTA FOUND IN MIDDLE OF LARGE STRING 6760 50 51 CANU MCW OP,*&8 7 7 1496 M ?64 V10 1264 6761 50 52 BCE SWAP,HLDOP,0 7 8 1503 B V75 R66 0 1264 6762 50 53 FBCEQ HOPE2,HLDOP,&,- 7 MACRO 6763 BCE HOPE2, HLDOP, & 7 8 1511 B V55 R66 & GEN 1265 6764 BCE HOPE2, HLDOP, - 7 8 1519 B V55 R66 - GEN 1265 6765 50 54 CKND BCE OUTPT,1&X2,} GM 7 8 1527 B X33 0!1 } GMARK 1265 6766 50 55 BW TUF,PRTSW 7 8 1535 V T28 R36 1 1265 6767 50 56 BW ADD3,1&X2 7 8 1543 V 948 0!1 1 1266 6768 50 57 B TUF 7 4 1551 B T28 1266 6769 50 58 HOPE2 FBCEQ SWAP,OP,&,- 7 MACRO 1 ARITH PHASE FOUR 50363 PAGE 166 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6770 HOPE2 BCE SWAP, OP, & 7 8 1555 B V75 ?64 & GEN 1266 6771 BCE SWAP, OP, - 7 8 1563 B V75 ?64 - GEN 1266 6772 50 59 B CKND 7 4 1571 B V27 1266 6773 50 60 * SHIFT MIDDLE DELTA TO FRONT OF STRING 6774 50 61 SWAP BCE TUF,OP,@ 7 8 1575 B T28 ?64 @ 1267 6775 50 62 BW KWM,PRTSW 7 8 1583 V T79 R36 1 1267 6776 50 63 C 0&X2,BLK4 7 7 1591 C 0!0 ?45 1267 6777 50 64 SAR X3 7 4 1598 Q 099 1267 6778 50 65 MCW 0&X3,0&X2 7 7 1602 M 0?0 0!0 1267 6779 50 66 SBR X2 7 4 1609 H 094 1267 6780 50 67 BCE NEG2,OP,- 7 8 1613 B W44 ?64 - 1268 6781 50 68 MCW OP,0&X2 7 7 1621 M ?64 0!0 1268 6782 50 69 MCW RIGHT 7 4 1628 M ?88 1268 6783 50 70 C 0&X2 7 4 1632 C 0!0 1268 6784 50 71 SBR X2 ??? SAR ??? 7 4 1636 H 094 1268 6785 50 72 B BLKOP 7 4 1640 B 901 1268 6786 50 73 NEG2 LCA @&@,0&X2 7 7 1644 L ?09 0!0 1268 6787 50 74 SBR X2 7 4 1651 H 094 1269 6788 50 75 SW PRTSW 7 4 1655 , R36 1269 6789 50 76 B NEG3 7 4 1659 B S69 1269 6790 50 77 FIRST B CVTDL 7 4 1663 B P58 1269 6791 50 78 DCW RIGHT 7 3 1669 ?88 1269 6792 50 79 MCW RIGHT,MAXDL#3 7 7 1670 M ?88 ?21 1269 6793 50 80 MCW CVT3,CURDL 7 7 1677 M ?91 R72 1269 6794 50 81 A &1,CURDL 7 7 1684 A R73 R72 1270 6795 50 82 B D2 7 4 1691 B 997 1270 6796 50 83 FST1 LCA HLD35,0&X3 7 7 1695 L ?08 0?0 1270 6797 50 84 SBR X2 7 4 1702 H 094 1270 6798 50 85 LCA OP 7 4 1706 L ?64 1270 6799 50 86 SBR X3 7 4 1710 H 099 1270 6800 50 87 CW 1&X3 7 4 1714 ) 0?1 1270 6801 50 88 LCA LEFT,0&X3 7 7 1718 L ?63 0?0 1271 6802 50 89 LCA GM1 7 4 1725 L K40 1271 6803 50 90 B BLKOP 7 4 1729 B 901 1271 6804 50 91 * ALL OPTIMIZATION HAS TAKEN PLACE - OUTPUT STATEMENT 6805 50 92 OUTPT MCW HEX1,X1 7 7 1733 M R65 089 1271 6806 50 93 SBR HEX2#3,0&X2 7 7 1740 H ?24 0!0 1271 6807 50 94 BCE NOPTM,2&X2,, IF STATEMENT 7 8 1747 B Y87 0!2 , 1271 6808 50 95 BCE NOPTM,MAXDL-2,< 12-6-8 7 8 1755 B Y87 ?19 < 1272 6809 50 96 BCE NOPTM,0&X2,$ 7 8 1763 B Y87 0!0 $ 1272 6810 50 97 BCE NOPTM,BOP,$ 7 8 1771 B Y87 ?63 $ 1272 6811 50 98 BWZ CKFIX,BOP-1,K 7 8 1779 V Y07 ?62 K 1272 6812 50 99 BWZ NOPTM,AOP-1,K 7 8 1787 V Y87 ?87 K 1273 6813 51 00 BWZ NOPTM,AOP-1,S 7 8 1795 V Y87 ?87 S 1273 6814 51 01 B OPTM 7 4 1803 B Y23 1273 6815 51 02 CKFIX BWZ NOPTM,AOP-1,2 7 8 1807 V Y87 ?87 2 1273 6816 51 03 BWZ NOPTM,AOP-1,B 7 8 1815 V Y87 ?87 B 1273 6817 51 04 * GENERATE INLINE CODING 6818 51 05 OPTM B NOPTM 7 4 1823 B Y87 1274 6819 51 06 LCA BOP 7 4 1827 L ?63 1274 1 ARITH PHASE FOUR 50363 PAGE 167 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6820 51 07 LCA AOP 7 4 1831 L ?88 1274 6821 51 08 LCA @L@ 7 4 1835 L ?25 1274 6822 51 09 SBR X3 7 4 1839 H 099 1274 6823 51 10 CW 2&X3,5&X3 7 7 1843 ) 0?2 0?5 1274 6824 51 11 MZ *-4,3&X3 7 7 1850 Y Y52 0?3 1274 6825 51 12 MZ *-4,6&X3 7 7 1857 Y Y59 0?6 1275 6826 51 13 SBR X1,6&X1 7 7 1864 H 089 0|6 1275 6827 51 14 LCA 6&X2 7 4 1871 L 0!6 1275 6828 51 15 LCA 7 1 1875 L 1275 6829 51 16 SBR X2,6&X2 7 7 1876 H 094 0!6 1275 6830 51 17 B NUSTM 7 4 1883 B 871 1275 6831 51 18 * CANNOT GENERATE INLINE CODING 6832 51 19 NOPTM MCW @01@,MAXDL 7 7 1887 M ?27 ?21 1275 6833 51 20 MCW @001@,X3 7 7 1894 M ?30 099 1276 6834 51 21 MCW @01@,DL2#2 7 7 1901 M ?27 ?32 1276 6835 51 22 SBR X1,4&X1 7 7 1908 H 089 0|4 1276 6836 51 23 LCA @B700@ 7 4 1915 L ?36 1276 6837 51 24 CKZRO BCE PRODL,TABLE&X3,0 7 8 1919 B Z63 KD1 0 1276 6838 51 25 DECR A &1,DL2 7 7 1927 A R73 ?32 1277 6839 51 26 MCW DL2,MAXDL 7 7 1934 M ?32 ?21 1277 6840 51 27 MZ DL2-1,MAXDL 7 7 1941 Y ?31 ?21 1277 6841 51 28 A &1,X3 7 7 1948 A R73 099 1277 6842 51 29 SW PRTSW 7 4 1955 , R36 1277 6843 51 30 B CKZRO 7 4 1959 B Z19 1277 6844 51 31 PRODL LCA @#@,4&X1 7 7 1963 L ?37 0|4 1278 6845 51 32 LCA MAXDL 7 4 1970 L ?21 1278 6846 51 33 CW 4&X1 7 4 1974 ) 0|4 1278 6847 51 34 C 0&X1,@B700@ 7 7 1978 C 0|0 ?36 1278 6848 51 35 BE *&5 7 5 1985 B Z94 S 1278 6849 51 36 CW 1&X1 7 4 1990 ) 0|1 1278 6850 51 37 LCA GM1,1&X2 7 7 1994 L K40 0!1 1278 6851 51 38 CX2 C 0&X2 7 4 2001 C 0!0 1279 6852 51 39 SAR X2 7 4 2005 Q 094 1279 6853 51 40 BCE KWM2,0&X2,# 7 8 2009 B J39 0!0 # 1279 6854 51 41 BCE SUB3,1&X2,$ 7 8 2017 B J47 0!1 $ 1279 6855 51 42 MZ 2&X2,2&X1 7 7 2025 Y 0!2 0|2 1279 6856 51 43 BMPX1 SBR X1,4&X1 7 7 2032 H 089 0|4 1279 6857 51 44 * STRING TO OUTPUT AREA 6858 51 45 PMOV MCM 1&X2,1&X1 7 7 2039 P 0!1 0|1 1280 6859 51 46 MN 7 1 2046 D 1280 6860 51 47 SBR X1 7 4 2047 H 089 1280 6861 51 48 MCM 1&X2 7 4 2051 P 0!1 1280 6862 51 49 MN 7 1 2055 D 1280 6863 51 50 SAR X2 7 4 2056 Q 094 1280 6864 51 51 BCE PMOV,0&X2,| 7 8 2060 B !39 0!0 | 1280 6865 51 52 C 0&X2 7 4 2068 C 0!0 1281 6866 51 53 SAR X2 7 4 2072 Q 094 1281 6867 51 54 MCW X3,HEX3#3 7 7 2076 M 099 ?40 1281 6868 51 55 MCW @|@,0&X1 7 7 2083 M ?41 0|0 1281 6869 51 56 LCA 0&X2 7 4 2090 L 0!0 1281 1 ARITH PHASE FOUR 50363 PAGE 168 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6870 51 57 SBR X3 7 4 2094 H 099 1281 6871 51 58 CW 0&X1,1&X3 7 7 2098 ) 0|0 0?1 1281 6872 51 59 C 0&X2 7 4 2105 C 0!0 1282 6873 51 60 SAR X3 7 4 2109 Q 099 1282 6874 51 61 BCE EOSTR,0&X3,} GM 7 8 2113 B J58 0?0 } GMARK 1282 6875 51 62 SBR X2,0&X3 7 7 2121 H 094 0?0 1282 6876 51 63 MCW HEX3,X3 7 7 2128 M ?40 099 1282 6877 51 64 B DECR 7 4 2135 B Z27 1282 6878 51 65 KWM2 CW 1&X2 7 4 2139 ) 0!1 1282 6879 51 66 B CX2 7 4 2143 B !01 1283 6880 51 67 SUB3 MZ 3&X2,2&X1 7 7 2147 Y 0!3 0|2 1283 6881 51 68 B BMPX1 7 4 2154 B !32 1283 6882 51 69 * ALL OF STATEMENT TO OUTPUT AREA 6883 51 70 EOSTR C 0&X1,BLK4#4 7 7 2158 C 0|0 ?45 1283 6884 51 71 SAR X1 7 4 2165 Q 089 1283 6885 51 72 LCA @|@,0&X1 7 7 2169 L ?41 0|0 1283 6886 51 73 MCW 0&X2 7 4 2176 M 0!0 1283 6887 51 74 MCW HEX2,X2 7 7 2180 M ?24 094 1284 6888 51 75 BW DOCOD,6&X2 7 8 2187 V K17 0!6 1 1284 6889 51 76 SW 3&X2 7 4 2195 , 0!3 1284 6890 51 77 SBR X1,9&X1 7 7 2199 H 089 0|9 1284 6891 51 78 LCA 11&X2 7 4 2206 L 0J1 1284 6892 51 79 SBR X2,11&X2 7 7 2210 H 094 0J1 1284 6893 51 80 DOCOD SBR X1,6&X1 7 7 2217 H 089 0|6 1285 6894 51 81 LCA 6&X2 7 4 2224 L 0!6 1285 6895 51 82 LCA 7 1 2228 L 1285 6896 51 83 SBR X2,6&X2 7 7 2229 H 094 0!6 1285 6897 51 84 B NUSTM 7 4 2236 B 871 1285 6898 51 85 GM1 DC @}@ G-M 7 1 2240 GMARK 1285 6899 51 86 TABLE DA 1X332,C 7 2241 2572 1285 6900 51 87 TBLR EQU * 7 2572 6901 51 88 * GETS OPERAND LEFT, OPERATOR, OPERAND RIGHT 6902 51 89 FIX SBR FIXT&3 7 4 2573 H P27 1294 6903 51 90 BCE SUB1,1&X2,$ 7 8 2577 B P28 0!1 $ 1294 6904 51 91 LCA 3&X2,LEFT#18 7 7 2585 L 0!3 ?63 1294 6905 51 92 MCW 4&X2,OP#1 7 7 2592 M 0!4 ?64 1295 6906 51 93 SBR X2,4&X2 7 7 2599 H 094 0!4 1295 6907 51 94 BW *&5,MIDSW 7 8 2606 V O18 ?18 1 1295 6908 51 95 CW5 CW 0 7 4 2614 ) 000 1295 6909 51 96 SW MIDSW 7 4 2618 , ?18 1295 6910 51 97 BW UNARY,1&X2 7 8 2622 V O72 0!1 1 1295 6911 51 98 SW 1&X2 7 4 2630 , 0!1 1296 6912 51 99 SBR CW&3,1&X2 7 7 2634 H P23 0!1 1296 6913 52 00 MN 0&X2,BCE3&7 7 7 2641 D 0!0 O62 1296 6914 52 01 MZ 0&X2,BCE3&7 7 7 2648 Y 0!0 O62 1296 6915 52 02 BCE3 BCE ISTWO,@&-*@.#@,0 7 8 2655 B O83 ?70 0 1296 6916 52 03 CHAIN 5 7 MACRO 6917 BCE 7 1 2663 B GEN 1296 6918 BCE 7 1 2664 B GEN 1296 6919 BCE 7 1 2665 B GEN 1297 1 ARITH PHASE FOUR 50363 PAGE 169 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6920 BCE 7 1 2666 B GEN 1297 6921 BCE 7 1 2667 B GEN 1297 6922 52 04 SW PRTSW 7 4 2668 , R36 1297 6923 52 05 UNARY LCA @***@,RIGHT 7 7 2672 L ?12 ?88 1297 6924 52 06 B FIXT 7 4 2679 B P24 1297 6925 52 07 ISTWO BCE SUB1,1&X2,$ 7 8 2683 B P28 0!1 $ 1297 6926 52 08 LCA 3&X2,RIGHT#18 7 7 2691 L 0!3 ?88 1298 6927 52 09 SBR X2,3&X2 7 7 2698 H 094 0!3 1298 6928 52 10 BW CW,1&X2 7 8 2705 V P20 0!1 1 1298 6929 52 11 SW 1&X2,PRTSW 7 7 2713 , 0!1 R36 1298 6930 52 12 CW CW 0 7 4 2720 ) 000 1298 6931 52 13 FIXT B 0 7 4 2724 B 000 1298 6932 52 14 SUB1 SBR SUBXT&3 7 4 2728 H P57 1299 6933 52 15 SBR X2,8&X2 7 7 2732 H 094 0!8 1299 6934 52 16 BCE SUBXT,3&X2,$ 7 8 2739 B P54 0!3 $ 1299 6935 52 17 SBR X2,6&X2 7 7 2747 H 094 0!6 1299 6936 52 18 SUBXT B 0 7 4 2754 B 000 1299 6937 52 19 * CONVERTS ANY DELTA NUMBER TO THREE CHARACTERS 6938 52 20 CVTDL SBR X1 7 4 2758 H 089 1299 6939 52 21 SBR CVTXT&3,3&X1 7 7 2762 H Q36 0|3 1300 6940 52 22 MCW 2&X1,X1 7 7 2769 M 0|2 089 1300 6941 52 23 MN 0&X1,CVT3#3 7 7 2776 D 0|0 ?91 1300 6942 52 24 MN 7 1 2783 D 1300 6943 52 25 MCW @0@ 7 4 2784 M ?92 1300 6944 52 26 BWZ CVTXT,0&X1,2 7 8 2788 V Q33 0|0 2 1300 6945 52 27 A &100,CVT3 7 7 2796 A ?95 ?91 1301 6946 52 28 BWZ CVTXT,0&X1,S 7 8 2803 V Q33 0|0 S 1301 6947 52 29 A &100,CVT3 7 7 2811 A ?95 ?91 1301 6948 52 30 BWZ CVTXT,0&X1,K 7 8 2818 V Q33 0|0 K 1301 6949 52 31 A &100,CVT3 7 7 2826 A ?95 ?91 1301 6950 52 32 CVTXT B 0 7 4 2833 B 000 1302 6951 52 33 * FINDS TEMP TO BE OPTIMIZED 6952 52 34 GETDL SBR GDLXT&3 7 4 2837 H Q73 1302 6953 52 35 SBR X3,0&X2 7 7 2841 H 099 0!0 1302 6954 52 36 MCW CURDL,X1 X1 HAS CURRENT DELTA 7 7 2848 M R72 089 1302 6955 52 37 BW GETWM,PRTSW 7 8 2855 V Q90 R36 1 1302 6956 52 38 CMP2 C X1,CVT3 7 7 2863 C 089 ?91 1302 6957 52 39 GDLXT BE 0 7 5 2870 B 000 S 1303 6958 52 40 BCE ADD1,TABLE&X1,1 7 8 2875 B R17 KU1 1 1303 6959 52 41 A @I99@,X1 7 7 2883 A R69 089 1303 6960 52 42 GETWM BW GOTWM,2&X3 7 8 2890 V R06 0?2 1 1303 6961 52 43 SBR X3 7 4 2898 H 099 1303 6962 52 44 B GETWM 7 4 2902 B Q90 1303 6963 52 45 GOTWM SBR X3,1&X3 7 7 2906 H 099 0?1 1304 6964 52 46 B CMP2 7 4 2913 B Q63 1304 6965 52 47 ADD1 A @I99@,X1 7 7 2917 A R69 089 1304 6966 52 48 B CMP2 7 4 2924 B Q63 1304 6967 52 49 CW2 CW 1&X3 7 4 2928 ) 0?1 1304 6968 52 50 B CKRT 7 4 2932 B |70 1304 6969 52 51 PRTSW DC #1 7 1 2936 1304 1 ARITH PHASE FOUR 50363 PAGE 170 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6970 52 52 FENDX FENDX C,,,,,,SYSGM, ARITH 5 7 MACRO 6971 FENDX BSS 333,C 7 5 2937 B 333 C GEN 1304 6972 SBR TCLEAR,SYSGM 7 7 2942 H 710 A03 GEN 1305 6973 LCA @ARITH 5@,110 7 7 2949 L A02 110 GEN 1305 6974 B MONTER 7 4 2956 B 700 GEN 1305 6975 52 53 LTORG * 7 2960 SAVX37 DCW #03 7 3 2962 AREA 1305 HEX1 7 DCW #03 7 3 2965 AREA 1305 HLDOP7 DCW #01 7 1 2966 AREA 1305 DCW @I99@ 7 3 2969 LIT 1305 CURDL7 DCW #03 7 3 2972 AREA 1306 DCW &1 7 1 2973 LIT 1306 HLD357 DCW #35 7 35 3008 AREA 1306 DCW @&@ 7 1 3009 LIT 1307 DCW @***@ 7 3 3012 LIT 1307 DCW @N@ 7 1 3013 LIT 1307 DCW @&-*@@ 7 4 3017 LIT 1307 MIDSW7 DCW #01 7 1 3018 AREA 1307 MAXDL7 DCW #03 7 3 3021 AREA 1307 HEX2 7 DCW #03 7 3 3024 AREA 1307 DCW @L@ 7 1 3025 LIT 1308 DCW @01@ 7 2 3027 LIT 1308 DCW @001@ 7 3 3030 LIT 1308 DL2 7 DCW #02 7 2 3032 AREA 1308 DCW @B700@ 7 4 3036 LIT 1308 DCW @#@ 7 1 3037 LIT 1308 HEX3 7 DCW #03 7 3 3040 AREA 1308 DCW @|@ 7 1 3041 LIT 1309 BLK4 7 DCW #04 7 4 3045 AREA 1309 LEFT 7 DCW #18 7 18 3063 AREA 1309 OP 7 DCW #01 7 1 3064 AREA 1309 DCW @&-*@.#@ 7 6 3070 LIT 1309 RIGHT7 DCW #18 7 18 3088 AREA 1310 CVT3 7 DCW #03 7 3 3091 AREA 1310 DCW @0@ 7 1 3092 LIT 1310 DCW &100 7 3 3095 LIT 1310 DCW @ARITH 5@ 7 7 3102 LIT 1310 6976 52 54 AOP EQU RIGHT 7 3088 6977 52 55 BOP EQU LEFT 7 3063 6978 52 56 SYSGM DCW @}@ SYSTEM GROUP MARK 7 1 3103 GMARK 1310 6979 52 57 ORG *&50 7 3154 6980 52 58 NDRITH EQU * 7 3153 6981 52 59 XFR START 7 B 838 1311 1 ARITH PHASE FIVE 50373 PAGE 171 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 6982 52 60 JOB ARITH PHASE FIVE 7 6983 52 61 FBEGN ARITH 5,X1,,X2,,X3,,Y 7 MACRO 6984 SFX Y Y GEN 6985 110 DCW @ARITH 5@ Y 7 0110 GEN 1314 6986 X1 EQU 089 Y 0089 GEN 6987 X2 EQU 094 Y 0094 GEN 6988 X3 EQU 099 Y 0099 GEN 6989 52 62 ORG XBEGIN Y 0838 6990 52 63 START BCE NOARI,X2,. Y 8 0838 B U99 094 . 1315 6991 52 64 C 0&X2 Y 4 0846 C 0!0 1315 6992 52 65 SAR X2 Y 4 0850 Q 094 1315 6993 52 66 SBR SAVX3#3 Y 4 0854 H O89 1315 6994 52 67 C 0&X1 Y 4 0858 C 0|0 1315 6995 52 68 SAR X1 Y 4 0862 Q 089 1315 6996 52 69 * BEGINNING OF PROCESSING OF EACH STATEMENT 6997 52 70 NUSTM MCW 0&X1,CODE Y 7 0866 M 0|0 O86 1315 6998 52 71 MCW Y 1 0873 M 1316 6999 52 72 BCE MVDWN,CODE-3,E Y 8 0874 B 894 O83 E 1316 7000 52 73 BCE *&5,CODE-3,R Y 8 0882 B 894 O83 R 1316 7001 52 74 B FENDX Y 4 0890 B U78 1316 7002 52 75 MVDWN MVDWN X1,X2 Y MACRO 7003 MVDWN LCA 0&X1,0&X2 Y 7 0894 L 0|0 0!0 GEN 1316 7004 SAR X1 Y 4 0901 Q 089 GEN 1316 7005 C 0&X2 Y 4 0905 C 0!0 GEN 1316 7006 SAR X2 Y 4 0909 Q 094 GEN 1317 7007 52 76 LCA 1&X2,2&X2 Y 7 0913 L 0!1 0!2 1317 7008 52 77 SBR X2 Y 4 0920 H 094 1317 7009 52 78 CW MODSW#1 Y 4 0924 ) O90 1317 7010 52 79 BCE IFTYP,2&X1,E Y 8 0928 B V22 0|2 E 1317 7011 52 80 CKXF MVDWN X1,X2 Y MACRO 7012 CKXF LCA 0&X1,0&X2 Y 7 0936 L 0|0 0!0 GEN 1317 7013 SAR X1 Y 4 0943 Q 089 GEN 1317 7014 C 0&X2 Y 4 0947 C 0!0 GEN 1318 7015 SAR X2 Y 4 0951 Q 094 GEN 1318 7016 52 81 SBR X3,0&X1 Y 7 0955 H 099 0|0 1318 7017 52 82 SBR HEX3#3 Y 4 0962 H O93 1318 7018 52 83 BCE EOSTR,0&X1,} GM Y 8 0966 B U21 0|0 } GMARK 1318 7019 52 84 * GENERATE FIX OR FLOAT FUNCTION IF LEFT SIDE AND RIGHT 7020 52 85 * SIDE ARE NOT OF SAME MODE 7021 52 86 NEXT MN 0&X3,BCE5&7 Y 7 0974 D 0?0 999 1318 7022 52 87 MZ 0&X3,BCE5&7 Y 7 0981 Y 0?0 999 1319 7023 52 88 SAR X3 Y 4 0988 Q 099 1319 7024 52 89 BCE5 BCE GOTSQ,@&-@*.#@,0 Y 8 0992 B |09 O99 0 1319 7025 52 90 CHAIN 5 Y MACRO 7026 BCE Y 1 1000 B GEN 1319 7027 BCE Y 1 1001 B GEN 1319 7028 BCE Y 1 1002 B GEN 1319 7029 BCE Y 1 1003 B GEN 1319 7030 BCE Y 1 1004 B GEN 1320 7031 52 91 B NEXT Y 4 1005 B 974 1320 1 ARITH PHASE FIVE 50373 PAGE 172 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7032 52 92 GOTSQ BCE WORRY,1&X3,. Y 8 1009 B /09 0?1 . 1320 7033 52 93 MZ 4&X3,OPMD#1 Y 7 1017 Y 0?4 P00 1320 7034 52 94 BCE SUB5,2&X3,$ Y 8 1024 B /90 0?2 $ 1320 7035 52 95 MZ 3&X3,OPMD Y 7 1032 Y 0?3 P00 1320 7036 52 96 BMP4 SBR X3,4&X3 Y 7 1039 H 099 0?4 1321 7037 52 97 CMP5 C X3,HEX3 Y 7 1046 C 099 O93 1321 7038 52 98 BE SCNEQ Y 5 1053 B S16 S 1321 7039 52 99 SBR X3,1&X3 Y 7 1058 H 099 0?1 1321 7040 53 00 FBCEQ MODCH,0&X3,F,X Y MACRO 7041 BCE MODCH, 0&X3, F Y 8 1065 B |85 0?0 F GEN 1321 7042 BCE MODCH, 0&X3, X Y 8 1073 B |85 0?0 X GEN 1322 7043 53 01 B CMP5 Y 4 1081 B |46 1322 7044 53 02 MODCH BW CW1,MODSW Y 8 1085 V /01 O90 1 1322 7045 53 03 SW MODSW Y 4 1093 , O90 1322 7046 53 04 B CMP5 Y 4 1097 B |46 1322 7047 53 05 CW1 CW MODSW Y 4 1101 ) O90 1322 7048 53 06 B CMP5 Y 4 1105 B |46 1322 7049 53 07 WORRY SBR BMPUM&6,0&X3 Y 7 1109 H /41 0?0 1323 7050 53 08 BCE GRIEF,0&X3,$ Y 8 1116 B /54 0?0 $ 1323 7051 53 09 SBR X3 Y 4 1124 H 099 1323 7052 53 10 SNDUM MZ 0&X3,OPMD Y 7 1128 Y 0?0 P00 1323 7053 53 11 BMPUM SBR X3,0 Y 7 1135 H 099 000 1323 7054 53 12 BCE SUB5,2&X3,$ Y 8 1142 B /90 0?2 $ 1324 7055 53 13 B BMP4 Y 4 1150 B |39 1324 7056 53 14 GRIEF C 0&X3,BLK8 Y 7 1154 C 0?0 Q66 1324 7057 53 15 SAR X3 Y 4 1161 Q 099 1324 7058 53 16 BCE SNDUM,0&X3,$ DUMMY Y 8 1165 B /28 0?0 $ 1324 7059 53 17 B DUMMY Y 1 1173 B 1324 7060 53 18 B Y 1 1174 B 1324 7061 53 19 C 0&X3,BLK6 Y 7 1175 C 0?0 Q72 1325 7062 53 20 SAR X3 Y 4 1182 Q 099 1325 7063 53 21 B SNDUM Y 4 1186 B /28 1325 7064 53 22 SUB5 SBR X3,12&X3 Y 7 1190 H 099 0A2 1325 7065 53 23 BCE CMP5,0&X3,$ Y 8 1197 B |46 0?0 $ 1325 7066 53 24 SBR X3,6&X3 Y 7 1205 H 099 0?6 1325 7067 53 25 B CMP5 Y 4 1212 B |46 1326 7068 53 26 SCNEQ BCE GOTEQ,0&X3,# Y 8 1216 B S32 0?0 # 1326 7069 53 27 SBR X3 Y 4 1224 H 099 1326 7070 53 28 B SCNEQ Y 4 1228 B S16 1326 7071 53 29 GOTEQ MCW 0&X3,HLD18#18 Y 7 1232 M 0?0 P18 1326 7072 53 30 BCE SUB1,HLD18-1,$ Y 8 1239 B O57 P17 $ 1326 7073 53 31 MZ HLD18-2,FSTMD#1 Y 7 1247 Y P16 P19 1327 7074 53 32 NOWOP BWZ CKFIX,FSTMD,S Y 8 1254 V T40 P19 S 1327 7075 53 33 BWZ CKFIX,FSTMD,K Y 8 1262 V T40 P19 K 1327 7076 53 34 BWZ CKSWF,OPMD,2 Y 8 1270 V T16 P00 2 1327 7077 53 35 BWZ CKSWF,OPMD,B Y 8 1278 V T16 P00 B 1327 7078 53 36 BW NOCVT,MODSW Y 8 1286 V T82 O90 1 1328 7079 53 37 MKFLT MCW @F@,0&X2 Y 7 1294 M P20 0!0 1328 7080 53 38 SBR X2 Y 4 1301 H 094 1328 7081 53 39 CW 1&X2,XFLTFU Y 7 1305 ) 0!1 125 1328 1 ARITH PHASE FIVE 50373 PAGE 173 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7082 53 40 B NOCVT Y 4 1312 B T82 1328 7083 53 41 CKSWF BW MKFLT,MODSW Y 8 1316 V S94 O90 1 1328 7084 53 42 B NOCVT Y 4 1324 B T82 1329 7085 53 43 CKSWX BW MKFIX,MODSW Y 8 1328 V T64 O90 1 1329 7086 53 44 B NOCVT Y 4 1336 B T82 1329 7087 53 45 CKFIX BWZ CKSWX,OPMD,S Y 8 1340 V T28 P00 S 1329 7088 53 46 BWZ CKSWX,OPMD,K Y 8 1348 V T28 P00 K 1329 7089 53 47 BW NOCVT,MODSW Y 8 1356 V T82 O90 1 1330 7090 53 48 MKFIX MCW @X@,0&X2 Y 7 1364 M P21 0!0 1330 7091 53 49 SBR X2 Y 4 1371 H 094 1330 7092 53 50 CW 1&X2,XFIXFU Y 7 1375 ) 0!1 124 1330 7093 53 51 SCAN EQU *&1 Y 1382 7094 53 52 NOCVT SBR X3,0&X1 Y 7 1382 H 099 0|0 1330 7095 53 53 SCAN2 BCE EXPN,0&X1,. Y 8 1389 B Y08 0|0 . 1331 7096 53 54 BCE DIV,0&X1,@ Y 8 1397 B U63 0|0 @ 1331 7097 53 55 BCE EOSTR,0&X1,} GM Y 8 1405 B U21 0|0 } GMARK 1331 7098 53 56 SBR X1 Y 4 1413 H 089 1331 7099 53 57 B SCAN2 Y 4 1417 B T89 1331 7100 53 58 * END OF STATEMENT ROUTINE 7101 53 59 EOSTR MVDWN X3,X2 Y MACRO 7102 EOSTR LCA 0&X3,0&X2 Y 7 1421 L 0?0 0!0 GEN 1331 7103 SAR X3 Y 4 1428 Q 099 GEN 1332 7104 C 0&X2 Y 4 1432 C 0!0 GEN 1332 7105 SAR X2 Y 4 1436 Q 094 GEN 1332 7106 53 60 BCE *&5,1&X3,} GM Y 8 1440 B U52 0?1 } GMARK 1332 7107 53 61 B EOSTR Y 4 1448 B U21 1332 7108 53 62 SBR X1,0&X3 Y 7 1452 H 089 0?0 1332 7109 53 63 B NUSTM Y 4 1459 B 866 1332 7110 53 64 * SUBSTITUTE / FOR @ AS DIVIDE SYMBOL 7111 53 65 DIV MCW @/@,0&X1 Y 7 1463 M P22 0|0 1333 7112 53 66 SBR X1 Y 4 1470 H 089 1333 7113 53 67 B SCAN2 Y 4 1474 B T89 1333 7114 53 68 FENDX SBR X1,5&X1 Y 7 1478 H 089 0|5 1333 7115 53 69 MCW SAVX3,X3 Y 7 1485 M O89 099 1333 7116 53 70 SBR X3,2&X3 Y 7 1492 H 099 0?2 1333 7117 53 71 NOARI FENDX C,,,,,,SYSGM,ARITH6 Y MACRO 7118 NOARI BSS 333,C Y 5 1499 B 333 C GEN 1334 7119 SBR TCLEAR,SYSGM Y 7 1504 H 710 Q73 GEN 1334 7120 LCA @ARITH6@,110 Y 7 1511 L P28 110 GEN 1334 7121 B MONTER Y 4 1518 B 700 GEN 1334 7122 53 72 * GENERATE IF EXITS 7123 53 73 IFTYP C 0&X1 Y 4 1522 C 0|0 1334 7124 53 74 SAR X1 Y 4 1526 Q 089 1334 7125 53 75 MCW 9&X1,MINUS Y 7 1530 M 0|9 N08 1334 7126 53 76 MCW 6&X1,ZERO Y 7 1537 M 0|6 N00 1335 7127 53 77 MCW 3&X1,PLUS Y 7 1544 M 0|3 M92 1335 7128 53 78 MZ @K@,MINUS-1 Y 7 1551 Y P29 N07 1335 7129 53 79 MZ @K@,ZERO-1 Y 7 1558 Y P29 M99 1335 7130 53 80 MZ @K@,PLUS-1 Y 7 1565 Y P29 M91 1335 7131 53 81 MCW PLUS,ELSE&3 Y 7 1572 M M92 M88 1336 1 ARITH PHASE FIVE 50373 PAGE 174 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7132 53 82 LCA BLK20#20,HLD20 Y 7 1579 L P49 M84 1336 7133 53 83 SBR X3,HLD20-20 Y 7 1586 H 099 M64 1336 7134 53 84 C PLUS,ZERO Y 7 1593 C M92 N00 1336 7135 53 85 BE PZ Y 5 1600 B X79 S 1336 7136 53 86 C ZERO,MINUS Y 7 1605 C N00 N08 1337 7137 53 87 BE MKPLS Y 5 1612 B W42 S 1337 7138 53 88 SBR X3,8&X3 Y 7 1617 H 099 0?8 1337 7139 53 89 MCW IFZRO Y 4 1624 M N04 1337 7140 53 90 MCW Y 1 1628 M 1337 7141 53 91 LCA Y 1 1629 L 1337 7142 53 92 C PLUS,MINUS Y 7 1630 C M92 N08 1337 7143 53 93 BE MVLS Y 5 1637 B W62 S 1338 7144 53 94 MKPLS SBR X3,8&X3 Y 7 1642 H 099 0?8 1338 7145 53 95 MCW IFPLS Y 4 1649 M M96 1338 7146 53 96 MCW Y 1 1653 M 1338 7147 53 97 LCA Y 1 1654 L 1338 7148 53 98 MCW MINUS,ELSE&3 Y 7 1655 M N08 M88 1338 7149 53 99 MVLS MCW X3,HEX3 Y 7 1662 M 099 O93 1338 7150 54 00 BWZ *&5,CODE,2 Y 8 1669 V W81 O86 2 1339 7151 54 01 B *&9 Y 4 1677 B W89 1339 7152 54 02 BWZ LSADD,CODE-2,2 Y 8 1681 V X03 O84 2 1339 7153 54 03 MCW CODE,X3 Y 7 1689 M O86 099 1339 7154 54 04 MCW 0&X3,CODE Y 7 1696 M 0?0 O86 1339 7155 54 05 LSADD A &1,CODE Y 7 1703 A P50 O86 1340 7156 54 06 MCW ELSE&3,X3 Y 7 1710 M M88 099 1340 7157 54 07 C 0&X3,CODE Y 7 1717 C 0?0 O86 1340 7158 54 08 MCW HEX3,X3 Y 7 1724 M O93 099 1340 7159 54 09 BE NOBR Y 5 1731 B X48 S 1340 7160 54 10 ALL3 SBR X3,4&X3 Y 7 1736 H 099 0?4 1341 7161 54 11 MCW ELSE&3 Y 4 1743 M M88 1341 7162 54 12 LCA Y 1 1747 L 1341 7163 54 13 NOBR MVDWN X3,X2 Y MACRO 7164 NOBR LCA 0&X3,0&X2 Y 7 1748 L 0?0 0!0 GEN 1341 7165 SAR X3 Y 4 1755 Q 099 GEN 1341 7166 C 0&X2 Y 4 1759 C 0!0 GEN 1341 7167 SAR X2 Y 4 1763 Q 094 GEN 1341 7168 54 14 BCE CKXF,0&X3,| Y 8 1767 B 936 0?0 | 1342 7169 54 15 B NOBR Y 4 1775 B X48 1342 7170 54 16 PZ C PLUS,MINUS Y 7 1779 C M92 N08 1342 7171 54 17 BE ALL3 Y 5 1786 B X36 S 1342 7172 54 18 SBR X3,8&X3 Y 7 1791 H 099 0?8 1342 7173 54 19 MCW IFMNS Y 4 1798 M N12 1342 7174 54 20 MCW Y 1 1802 M 1342 7175 54 21 LCA Y 1 1803 L 1343 7176 54 22 B MVLS Y 4 1804 B W62 1343 7177 54 23 * PROCESS EXPONENTIATION 7178 54 24 EXPN SW 1&X1 Y 4 1808 , 0|1 1343 7179 54 25 BCE XSUB,1&X1,$ Y 8 1812 B N13 0|1 $ 1343 7180 54 26 LCA 3&X1,XPON#17 Y 7 1820 L 0|3 P67 1343 7181 54 27 MZ 2&X1,XPMOD#1 Y 7 1827 Y 0|2 P68 1343 1 ARITH PHASE FIVE 50373 PAGE 175 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7182 54 28 SBR HEX31#3,3&X1 Y 7 1834 H P71 0|3 1343 7183 54 29 C HEX31,X3 Y 7 1841 C P71 099 1344 7184 54 30 BE SKIP Y 5 1848 B Y80 S 1344 7185 54 31 SW 4&X1 Y 4 1853 , 0|4 1344 7186 54 32 MVBAL MVDWN X3,X2 Y MACRO 7187 MVBAL LCA 0&X3,0&X2 Y 7 1857 L 0?0 0!0 GEN 1344 7188 SAR X3 Y 4 1864 Q 099 GEN 1344 7189 C 0&X2 Y 4 1868 C 0!0 GEN 1344 7190 SAR X2 Y 4 1872 Q 094 GEN 1344 7191 54 33 CW 1&X2 Y 4 1876 ) 0!1 1345 7192 54 34 SKIP C 0&X1,BLK4#4 Y 7 1880 C 0|0 P75 1345 7193 54 35 SAR X1 Y 4 1887 Q 089 1345 7194 54 36 BCE BSUB,3&X1,$ Y 8 1891 B N78 0|3 $ 1345 7195 54 37 MZ 2&X1,BMOD#1 Y 7 1899 Y 0|2 P76 1345 7196 54 38 SW 1&X1 Y 4 1906 , 0|1 1345 7197 54 39 LOAD LCA 3&X1,BASE#17 Y 7 1910 L 0|3 P93 1346 7198 54 40 SAR X1 Y 4 1917 Q 089 1346 7199 54 41 BWZ FIXXP,XPMOD,S Y 8 1921 V !77 P68 S 1346 7200 54 42 BWZ FIXXP,XPMOD,K Y 8 1929 V !77 P68 K 1346 7201 54 43 CW XLOGFN,XXPNTL Y 7 1937 ) 119 120 1346 7202 54 44 CW XCOMF1 Y 4 1944 ) 117 1346 7203 54 45 * PROCESS FLOATING EXPONENTIATION 7204 54 46 BWZ FLT,BMOD,2 Y 8 1948 V !32 P76 2 1347 7205 54 47 BWZ FLT,BMOD,B Y 8 1956 V !32 P76 B 1347 7206 54 48 BWZ *&5,CODE,2 Y 8 1964 V Z76 O86 2 1347 7207 54 49 B *&9 Y 4 1972 B Z84 1347 7208 54 50 BWZ FTMSG,CODE-2,2 Y 8 1976 V Z98 O84 2 1347 7209 54 51 MCW CODE,X3 Y 7 1984 M O86 099 1348 7210 54 52 MCW 0&X3,CODE Y 7 1991 M 0?0 O86 1348 7211 54 53 FTMSG FTMSG 30,FIX TO FLOAT POWER,CODE,20 Y MACRO 7212 FTMSG CS 332 Y 4 1998 / 332 GEN 1348 7213 CS Y 1 2002 / GEN 1348 7214 SW FAILSW Y 4 2003 , 184 GEN 1348 7215 MN CODE,224&20 Y 7 2007 D O86 244 GEN 1348 7216 MN Y 1 2014 D GEN 1348 7217 MN Y 1 2015 D GEN 1349 7218 MCW @ERROR 30 - FIX TO FLOAT POWER, STATEMENT @ Y 4 2016 M Q34 GEN 1349 7219 W Y 1 2020 2 GEN 1349 7220 BCV *&5 Y 5 2021 B !30 @ GEN 1349 7221 B *&3 Y 4 2026 B !32 GEN 1349 7222 CC 1 Y 2 2030 F 1 GEN 1349 7223 54 54 FLT LCA @E@,0&X2 Y 7 2032 L Q35 0!0 1349 7224 54 55 LCA XPON Y 4 2039 L P67 1350 7225 54 56 LCA @G*@ Y 4 2043 L Q37 1350 7226 54 57 SBR X2 Y 4 2047 H 094 1350 7227 54 58 CW 3&X2,1&X1 Y 7 2051 ) 0!3 0|1 1350 7228 54 59 LCA BASE,0&X2 Y 7 2058 L P93 0!0 1350 7229 54 60 SBR X2 Y 4 2065 H 094 1350 7230 54 61 CW 1&X2 Y 4 2069 ) 0!1 1350 7231 54 62 B SCAN Y 4 2073 B T82 1351 1 ARITH PHASE FIVE 50373 PAGE 176 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7232 54 63 * PROCESS FIXED POINT EXPONENTIATION 7233 54 64 FIXXP BWZ SWEAT,XPMOD,K Y 8 2077 V K54 P68 K 1351 7234 54 65 BCE SWEAT,XPON-2,< 12-6-8 Y 8 2085 B K54 P65 < 1351 7235 54 66 MCW XPON,X3 Y 7 2093 M P67 099 1351 7236 54 67 MA PLUSDF,X3 Y 7 2100 # 160 099 1351 7237 54 68 C @3@,0&X3 Y 7 2107 C Q38 0?0 1352 7238 54 69 BH SWEAT Y 5 2114 B K54 U 1352 7239 54 70 LCA BASE,0&X2 Y 7 2119 L P93 0!0 1352 7240 54 71 LCA @*@ Y 4 2126 L Q39 1352 7241 54 72 SBR X2 Y 4 2130 H 094 1352 7242 54 73 SBR SAV2#3 Y 4 2134 H Q42 1352 7243 54 74 CW 1&X2,2&X2 Y 7 2138 ) 0!1 0!2 1352 7244 54 75 LCA BASE,0&X2 Y 7 2145 L P93 0!0 1353 7245 54 76 SBR X2 Y 4 2152 H 094 1353 7246 54 77 CW 1&X2 Y 4 2156 ) 0!1 1353 7247 54 78 BCE HUH,0&X3,0 Y 8 2160 B K18 0?0 0 1353 7248 54 79 BCE HUH2,0&X3,1 Y 8 2168 B K36 0?0 1 1353 7249 54 80 BCE SCAN,0&X3,2 Y 8 2176 B T82 0?0 2 1353 7250 54 81 LCA @*@,0&X2 Y 7 2184 L Q39 0!0 1354 7251 54 82 SBR X2 Y 4 2191 H 094 1354 7252 54 83 CW 1&X2 Y 4 2195 ) 0!1 1354 7253 54 84 LCA BASE,0&X2 Y 7 2199 L P93 0!0 1354 7254 54 85 SBR X2 Y 4 2206 H 094 1354 7255 54 86 CW 1&X2 Y 4 2210 ) 0!1 1354 7256 54 87 B SCAN Y 4 2214 B T82 1354 7257 54 88 HUH MCW SAV2,X3 Y 7 2218 M Q42 099 1355 7258 54 89 MCW @/@,1&X3 Y 7 2225 M P22 0?1 1355 7259 54 90 B SCAN Y 4 2232 B T82 1355 7260 54 91 HUH2 MCW SAV2,X2 Y 7 2236 M Q42 094 1355 7261 54 92 SBR X2,1&X2 Y 7 2243 H 094 0!1 1355 7262 54 93 B SCAN Y 4 2250 B T82 1355 7263 54 94 SWEAT CW XLOGFN,XXPNTL Y 7 2254 ) 119 120 1356 7264 54 95 CW XCOMF1,XFLTFU Y 7 2261 ) 117 125 1356 7265 54 96 BWZ CTU1,BMOD,2 Y 8 2268 V L21 P76 2 1356 7266 54 97 BWZ CTU1,BMOD,B Y 8 2276 V L21 P76 B 1356 7267 54 98 LCA @X@,0&X2 Y 7 2284 L P21 0!0 1356 7268 54 99 SBR X2 Y 4 2291 H 094 1357 7269 55 00 CW 0&X2,XFIXFU Y 7 2295 ) 0!0 124 1357 7270 55 01 LCA XEXPON,0&X2 Y 7 2302 L 157 0!0 1357 7271 55 02 LCA @&@ Y 4 2309 L Q43 1357 7272 55 03 SBR X2 Y 4 2313 H 094 1357 7273 55 04 CW 2&X2 Y 4 2317 ) 0!2 1357 7274 55 05 CTU1 LCA @E@,0&X2 Y 7 2321 L Q35 0!0 1357 7275 55 06 LCA @F*<4?@ F,*,12-6-8,4,12-0 Y 4 2328 L Q48 1358 7276 55 07 LCA XPON Y 4 2332 L P67 1358 7277 55 08 SBR X2 Y 4 2336 H 094 1358 7278 55 09 CW 1&X2 Y 4 2340 ) 0!1 1358 7279 55 10 C 0&X1,BLK4 Y 7 2344 C 0|0 P75 1358 7280 55 11 SAR X3 Y 4 2351 Q 099 1358 7281 55 12 BCE FSUB,3&X3,$ Y 8 2355 B O23 0?3 $ 1358 1 ARITH PHASE FIVE 50373 PAGE 177 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7282 55 13 SWM SW 1&X3 Y 4 2363 , 0?1 1359 7283 55 14 MVDWN X1,X2 Y MACRO 7284 LCA 0&X1,0&X2 Y 7 2367 L 0|0 0!0 GEN 1359 7285 SAR X1 Y 4 2374 Q 089 GEN 1359 7286 C 0&X2 Y 4 2378 C 0!0 GEN 1359 7287 SAR X2 Y 4 2382 Q 094 GEN 1359 7288 55 15 CW 1&X2 Y 4 2386 ) 0!1 1359 7289 55 16 LCA @G|@ Y 4 2390 L Q50 1359 7290 55 17 SBR X2 Y 4 2394 H 094 1360 7291 55 18 BWZ BSFLT,BMOD,2 Y 8 2398 V M25 P76 2 1360 7292 55 19 BWZ BSFLT,BMOD,B Y 8 2406 V M25 P76 B 1360 7293 55 20 LCA @F@,0&X2 Y 7 2414 L P20 0!0 1360 7294 55 21 SBR X2 Y 4 2421 H 094 1360 7295 55 22 BSFLT LCA BASE,0&X2 Y 7 2425 L P93 0!0 1360 7296 55 23 LCA @<4?#@ Y 4 2432 L Q54 1361 7297 55 24 SBR X2 Y 4 2436 H 094 1361 7298 55 25 CW 5&X2 Y 4 2440 ) 0!5 1361 7299 55 26 C 0&X1,@B700@ Y 7 2444 C 0|0 Q58 1361 7300 55 27 BE SCAN Y 5 2451 B T82 S 1361 7301 55 28 CW 1&X2 Y 4 2456 ) 0!1 1361 7302 55 29 B SCAN Y 4 2460 B T82 1361 7303 55 30 DCW @|@ Y 1 2464 1362 7304 55 31 HLD20 DCW #20 Y 20 2484 1362 7305 55 32 ELSE B Y 1 2485 B 1362 7306 55 33 DCW #3 Y 3 2488 1362 7307 55 34 BWZ Y 1 2489 V 1362 7308 55 35 PLUS DCW #3 Y 3 2492 1362 7309 55 36 DSA 277&X3 Y 3 2495 2G7 1362 7310 55 37 IFPLS DC @B@ Y 1 2496 1362 7311 55 38 BCE Y 1 2497 B 1363 7312 55 39 ZERO DCW #3 Y 3 2500 1363 7313 55 40 DSA 280 Y 3 2503 280 1363 7314 55 41 IFZRO DC @0@ Y 1 2504 1363 7315 55 42 BWZ Y 1 2505 V 1363 7316 55 43 MINUS DCW #3 Y 3 2508 1363 7317 55 44 DSA 277&X3 Y 3 2511 2G7 1363 7318 55 45 IFMNS DC @K@ Y 1 2512 1363 7319 55 46 XSUB MZ 3&X1,XPMOD Y 7 2513 Y 0|3 P68 1363 7320 55 47 SBR X1,11&X1 Y 7 2520 H 089 0/1 1364 7321 55 48 BCE GOTSB,0&X1,$ Y 8 2527 B N42 0|0 $ 1364 7322 55 49 SBR X1,6&X1 Y 7 2535 H 089 0|6 1364 7323 55 50 GOTSB C X1,X3 Y 7 2542 C 089 099 1364 7324 55 51 BE *&5 Y 5 2549 B N58 S 1364 7325 55 52 SW 1&X1 Y 4 2554 , 0|1 1364 7326 55 53 LCA 0&X1,XPON Y 7 2558 L 0|0 P67 1365 7327 55 54 SAR X1 Y 4 2565 Q 089 1365 7328 55 55 BE SKIP Y 5 2569 B Y80 S 1365 7329 55 56 B MVBAL Y 4 2574 B Y57 1365 7330 55 57 BSUB C 0&X1,BLK8#8 Y 7 2578 C 0|0 Q66 1365 7331 55 58 SAR X3 Y 4 2585 Q 099 1365 1 ARITH PHASE FIVE 50373 PAGE 178 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7332 55 59 BCE GTSUB,1&X3,$ Y 8 2589 B O08 0?1 $ 1365 7333 55 60 C 0&X3,BLK6 Y 7 2597 C 0?0 Q72 1366 7334 55 61 SAR X3 Y 4 2604 Q 099 1366 7335 55 62 GTSUB MZ 3&X3,BMOD Y 7 2608 Y 0?3 P76 1366 7336 55 63 SW 1&X3 Y 4 2615 , 0?1 1366 7337 55 64 B LOAD Y 4 2619 B Z10 1366 7338 55 65 FSUB C 0&X3,BLK8 Y 7 2623 C 0?0 Q66 1366 7339 55 66 SAR X3 Y 4 2630 Q 099 1366 7340 55 67 BCE SWM,1&X3,$ Y 8 2634 B L63 0?1 $ 1367 7341 55 68 C 0&X3,BLK6#6 Y 7 2642 C 0?0 Q72 1367 7342 55 69 SAR X3 Y 4 2649 Q 099 1367 7343 55 70 B SWM Y 4 2653 B L63 1367 7344 55 71 SUB1 MZ HLD18-9,FSTMD Y 7 2657 Y P09 P19 1367 7345 55 72 BCE NOWOP,HLD18-11,$ Y 8 2664 B S54 P07 $ 1367 7346 55 73 MZ HLD18-15,FSTMD Y 7 2672 Y P03 P19 1368 7347 55 74 B NOWOP Y 4 2679 B S54 1368 7348 55 75 DCW #1 Y 1 2683 1368 7349 55 76 CODE DCW #3 Y 3 2686 1368 7350 55 77 LTORG * Y 2687 SAVX3Y DCW #03 Y 3 2689 AREA 1368 MODSWY DCW #01 Y 1 2690 AREA 1368 HEX3 Y DCW #03 Y 3 2693 AREA 1368 DCW @&-@*.#@ Y 6 2699 LIT 1369 OPMD Y DCW #01 Y 1 2700 AREA 1369 HLD18Y DCW #18 Y 18 2718 AREA 1369 FSTMDY DCW #01 Y 1 2719 AREA 1369 DCW @F@ Y 1 2720 LIT 1369 DCW @X@ Y 1 2721 LIT 1369 DCW @/@ Y 1 2722 LIT 1369 DCW @ARITH6@ Y 6 2728 LIT 1370 DCW @K@ Y 1 2729 LIT 1370 BLK20Y DCW #20 Y 20 2749 AREA 1370 DCW &1 Y 1 2750 LIT 1370 XPON Y DCW #17 Y 17 2767 AREA 1371 XPMODY DCW #01 Y 1 2768 AREA 1371 HEX31Y DCW #03 Y 3 2771 AREA 1371 BLK4 Y DCW #04 Y 4 2775 AREA 1371 BMOD Y DCW #01 Y 1 2776 AREA 1371 BASE Y DCW #17 Y 17 2793 AREA 1372 DCW @ERROR 30 - FIX TO FLOAT POWER, STATEMENT @ Y 41 2834 LIT 1374 DCW @E@ Y 1 2835 LIT 1374 DCW @G*@ Y 2 2837 LIT 1374 DCW @3@ Y 1 2838 LIT 1374 DCW @*@ Y 1 2839 LIT 1374 SAV2 Y DCW #03 Y 3 2842 AREA 1375 DCW @&@ Y 1 2843 LIT 1375 DCW @F*<4?@ Y 5 2848 LIT 1375 DCW @G|@ Y 2 2850 LIT 1375 DCW @<4?#@ Y 4 2854 LIT 1375 DCW @B700@ Y 4 2858 LIT 1375 1 ARITH PHASE FIVE 50373 PAGE 179 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD BLK8 Y DCW #08 Y 8 2866 AREA 1375 BLK6 Y DCW #06 Y 6 2872 AREA 1376 7351 55 78 SYSGM DCW @}@ SYSTEM GROUP MARK Y 1 2873 GMARK 1376 7352 55 79 XFR START Y B 838 1377 1 FORTRAN ARITH PHASE SIX 50383 PAGE 180 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7353 55 80 JOB FORTRAN ARITH PHASE SIX Y 7354 55 81 FBEGN ARITH SIX,X1,,X2,,X3,,S Y MACRO 7355 SFX S S GEN 7356 110 DCW @ARITH SIX@ S 9 0110 GEN 1380 7357 X1 EQU 089 S 0089 GEN 7358 X2 EQU 094 S 0094 GEN 7359 X3 EQU 099 S 0099 GEN 7360 55 82 NXTOP EQU 086 S 0086 7361 55 83 ORG XBEGIN S 0838 7362 55 84 INISH BCE FENDX,X2,. S 8 0838 B S51 094 . 1381 7363 55 85 SBR HEX2#3,0&X2 S 7 0846 H N43 0!0 1381 7364 55 86 MN 0&X3 S 4 0853 D 0?0 1381 7365 55 87 MN S 1 0857 D 1381 7366 55 88 SAR NOMO#3 S 4 0858 Q N46 1381 7367 55 89 SBR HEX1#3,0&X1 S 7 0862 H N49 0|0 1381 7368 55 90 MCW NXTOP,MXTMP S 7 0869 M 086 N78 1381 7369 55 91 MCW PARAMA&6,TMPSZ#3 S 7 0876 M 692 N52 1382 7370 55 92 MN &0,TMPSZ-2 S 7 0883 D N53 N50 1382 7371 55 93 A &2,TMPSZ S 7 0890 A N54 N52 1382 7372 55 94 C TMPSZ,PARAMA&4 S 7 0897 C N52 690 1382 7373 55 95 BL START S 5 0904 B 916 T 1382 7374 55 96 MCW PARAMA&4,TMPSZ S 7 0909 M 690 N52 1383 7375 55 97 START C X2,NOMO S 7 0916 C 094 N46 1383 7376 55 98 BE DUN S 5 0923 B S21 S 1383 7377 55 99 MCW TABLE&165,TABLE&164 S 7 0928 M N06 N05 1383 7378 56 00 GETUM BCE GOTUM,2&X2,< DELTA 12-6-8 S 8 0935 B 959 0!2 < 1383 7379 56 01 SBR X2 S 4 0943 H 094 1383 7380 56 02 BCE NXGUY,1&X2,} GM S 8 0947 B S10 0!1 } GMARK 1384 7381 56 03 B GETUM S 4 0955 B 935 1384 7382 56 04 GOTUM MN 4&X2,DLVAL#3 S 7 0959 D 0!4 N57 1384 7383 56 05 MN S 1 0966 D 1384 7384 56 06 MCW @0@ S 4 0967 M N58 1384 7385 56 07 BWZ BMPUM,4&X2,2 S 8 0971 V |16 0!4 2 1384 7386 56 08 A &100,DLVAL S 7 0979 A N61 N57 1384 7387 56 09 BWZ BMPUM,4&X2,S S 8 0986 V |16 0!4 S 1385 7388 56 10 A &100,DLVAL S 7 0994 A N61 N57 1385 7389 56 11 BWZ BMPUM,4&X2,K S 8 1001 V |16 0!4 K 1385 7390 56 12 A &100,DLVAL S 7 1009 A N61 N57 1385 7391 56 13 BMPUM MCW DLVAL,X3 S 7 1016 M N57 099 1385 7392 56 14 A X3 S 4 1023 A 099 1386 7393 56 15 A DLVAL,X3 S 7 1027 A N57 099 1386 7394 56 16 BCE ASSGN,5&X2,# S 8 1034 B |60 0!5 # 1386 7395 56 17 MCW MATRX-1&X3,X1 S 7 1042 M TA7 089 1386 7396 56 18 MCW @|@,TABLE-1&X1 S 7 1049 M N62 LU0 1386 7397 56 19 B CMPAD S 4 1056 B |89 1386 7398 56 20 ASSGN MCM TABLE S 4 1060 P L41 1387 7399 56 21 SAR X1 S 4 1064 Q 089 1387 7400 56 22 MA -TABLE,X1 S 7 1068 # N65 089 1387 7401 56 23 MCW *-6,TABLE-1&X1 S 7 1075 M |75 LU0 1387 7402 56 24 MCW X1,MATRX-1&X3 S 7 1082 M 089 TA7 1387 1 FORTRAN ARITH PHASE SIX 50383 PAGE 181 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7403 56 25 CMPAD ZA X1,ACCUM-4 S 7 1089 ? 089 N68 1387 7404 56 26 M TMPSZ,ACCUM#7 S 7 1096 @ N52 N72 1388 7405 56 27 SW ACCUM-4 S 4 1103 , N68 1388 7406 56 28 FPACK ACCUM,4&X2,X3 S MACRO 7407 INCLD ZONES S MACRO 7408 MN ACCUM,4&X2 S 7 1107 D N72 0!4 GEN 1388 7409 MN S 1 1114 D GEN 1388 7410 MN S 1 1115 D GEN 1388 7411 SAR *&4 S 4 1116 Q /23 GEN 1388 7412 MCW 0,X3 S 7 1120 M 000 099 GEN 1388 7413 MCW @0@ S 4 1127 M N58 GEN 1389 7414 A X3 S 4 1131 A 099 GEN 1389 7415 MZ ZONES&1&X3,4&X2 S 7 1135 Y NA0 0!4 GEN 1389 7416 CW S 1 1142 ) GEN 1389 7417 SBR *&7 S 4 1143 H /53 GEN 1389 7418 MZ ZONES&X3, 0 S 7 1147 Y N?9 000 GEN 1389 7419 56 29 CW ACCUM-4 S 4 1154 ) N68 1389 7420 56 30 MA NXTOP,4&X2 S 7 1158 # 086 0!4 1390 7421 56 31 C X1,HYTEST#3 S 7 1165 C 089 N75 1390 7422 56 32 BH GOBAK S 5 1172 B /99 U 1390 7423 56 33 MCW X1,HYTEST S 7 1177 M 089 N75 1390 7424 56 34 MCW 4&X2,MXTMP#3 S 7 1184 M 0!4 N78 1390 7425 56 354 BWZ TSTZN,MXTMP,2 V3M4 S 8 1191 V T06 N78 2 1391 7426 56 36 GOBAK SBR X2,3&X2 S 7 1199 H 094 0!3 1391 7427 56 37 B GETUM S 4 1206 B 935 1391 7428 56 38 NXGUY SBR X2,4&X2 S 7 1210 H 094 0!4 1391 7429 56 39 B START S 4 1217 B 916 1391 7430 56 40 DUN MCW HEX2,X3 S 7 1221 M N43 099 1391 7431 56 41 MCW HEX1,X1 S 7 1228 M N49 089 1392 7432 56 42 C 0&X1 S 4 1235 C 0|0 1392 7433 56 43 C S 1 1239 C 1392 7434 56 44 SAR X1 S 4 1240 Q 089 1392 7435 56 45 MCW MXTMP,NXTOP S 7 1244 M N78 086 1392 7436 56 46 FENDX FENDX D,,,,,,SYS6,I/O TWO S MACRO 7437 FENDX BSS 333,D S 5 1251 B 333 D GEN 1392 7438 SBR TCLEAR,SYS6 S 7 1256 H 710 O22 GEN 1392 7439 LCA @I/O TWO@,110 S 7 1263 L N85 110 GEN 1393 7440 B MONTER S 4 1270 B 700 GEN 1393 7441 56 47 BLWUP BW GOBAK,LGSW S 8 1274 V /99 N07 1 1393 7442 56 48 CS 332 S 4 1282 / 332 1393 7443 56 49 CS S 1 1286 / 1393 7444 56 50 MLC @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 S 7 1287 M O21 270 1393 7445 56 51 W S 1 1294 2 1393 7446 56 52 SW FAILSW,LGSW S 7 1295 , 184 N07 1394 7447 56 53 B GOBAK S 4 1302 B /99 1394 7448 56 531 TSTZN BWZ BLWUP,MXTMP-2,2 V3M4 S 8 1306 V S74 N76 2 1394 7449 56 532 B GOBAK V3M4 S 4 1314 B /99 1394 7450 56 54 MATRX DA 1X1023 S 1318 2340 1394 7451 56 55 TABLE DA 1X165,| S 2341 2506 1394 DC @|@ S 1 2506 RMARK 1395 1 FORTRAN ARITH PHASE SIX 50383 PAGE 182 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7452 56 56 LGSW DC #1 S 1 2507 1395 7453 56 57 ORG * S 2508 7454 LTORG * WVS: AUTOCODER SHOULDN'T LOAD INCLD AT ORG S 2508 7455 DCW #1 S 1 2508 GEN 1395 7456 ZONES DC 9 S 1 2509 GEN 1395 7457 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ S 31 2540 GEN 1395 * LTORG* GEN HEX2 S DCW #03 S 3 2543 AREA 1395 NOMO S DCW #03 S 3 2546 AREA 1396 HEX1 S DCW #03 S 3 2549 AREA 1396 TMPSZS DCW #03 S 3 2552 AREA 1396 DCW &0 S 1 2553 LIT 1396 DCW &2 S 1 2554 LIT 1396 DLVALS DCW #03 S 3 2557 AREA 1396 DCW @0@ S 1 2558 LIT 1396 DCW &100 S 3 2561 LIT 1397 DCW @|@ S 1 2562 LIT 1397 DCW -TABLES S 3 2565 W5I ADCON 1397 ACCUMS DCW #07 S 7 2572 AREA 1397 HYTEST DCW #03 S 3 2575 AREA 1397 MXTMPS DCW #03 S 3 2578 AREA 1397 DCW @I/O TWO@ S 7 2585 LIT 1397 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ S 36 2621 LIT 1398 7458 56 58 SYS6 DCW @}@ SYSTEM AND WORK GROUP MARK S 1 2622 GMARK 1398 7459 56 59 XFR INISH S B 838 1399 1 1401 FORTRAN INPUT/OUTPUT PHASE TWO 50393 PAGE 183 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7460 56 60 JOB 1401 FORTRAN INPUT/OUTPUT PHASE TWO S 7461 56 61 FBEGN I/O TWO,X1,,X2,R,X3,,U S MACRO 7462 SFX U U GEN 7463 110 DCW @I/O TWO@ U 7 0110 GEN 1402 7464 X1 EQU 089 U 0089 GEN 7465 X2 EQU 094 U 0094 GEN 7466 094 DCW 000 U 3 0094 GEN 1403 7467 096 DC 00 U 2 0096 GEN 1403 7468 X3 EQU 099 U 0099 GEN 7469 56 62 ORG XBEGIN U 0838 7470 56 63 START BCE OUT,0&X1, U 8 0838 B 870 0|0 1404 7471 56 64 MCW 0&X1,CODE#4 U 7 0846 M 0|0 S30 1404 7472 56 65 MCW CODE-3,*&8 U 7 0853 M S27 867 1404 7473 56 66 BCE WORK,@BZN@,0 D CHAR INITIALIZED U 8 0860 B 893 S33 0 1404 7474 56 67 BCE U 1 0868 B 1404 7475 56 68 BCE U 1 0869 B 1404 7476 56 69 OUT FENDX C,,,,,,SYS1,CGOTO U MACRO 7477 OUT BSS 333,C U 5 0870 B 333 C GEN 1404 7478 SBR TCLEAR,SYS1 U 7 0875 H 710 T24 GEN 1405 7479 LCA @CGOTO@,110 U 7 0882 L S38 110 GEN 1405 7480 B MONTER U 4 0889 B 700 GEN 1405 7481 56 70 WORK MCW @B@,IOCW U 7 0893 M S39 S26 1405 7482 56 71 MCW @<@,2&X1 12-6-8 U 7 0900 M S40 0|2 1405 7483 56 72 SBR KLOBR&6,2&X1 U 7 0907 H /23 0|2 1405 7484 56 73 BCE CTU1,CODE-3,B U 8 0914 B 944 S27 B 1406 7485 56 74 MCW @R@,IOCW U 7 0922 M S41 S26 1406 7486 56 75 BCE CTU1,CODE-3,Z U 8 0929 B 944 S27 Z 1406 7487 56 76 MCW @M@,IOCW U 7 0937 M S42 S26 1406 7488 56 77 CTU1 MVDWN X1,X3 U MACRO 7489 CTU1 LCA 0&X1,0&X3 U 7 0944 L 0|0 0?0 GEN 1406 7490 SAR X1 U 4 0951 Q 089 GEN 1407 7491 C 0&X3 U 4 0955 C 0?0 GEN 1407 7492 SAR X3 U 4 0959 Q 099 GEN 1407 7493 56 78 LCA 1&X1,2&X3 U 7 0963 L 0|1 0?2 1407 7494 56 79 SBR X3 U 4 0970 H 099 1407 7495 56 80 BWZ *&5,CODE,2 U 8 0974 V 986 S30 2 1407 7496 56 81 B CHNG U 4 0982 B 994 1407 7497 56 82 BWZ CKNUM,CODE-2,2 U 8 0986 V |08 S28 2 1408 7498 56 83 CHNG MCW CODE,X2 U 7 0994 M S30 094 1408 7499 56 84 MCW 0&X2,CODE U 7 1001 M 0!0 S30 1408 7500 56 85 CKNUM BCE NONUM,0&X1,} 12-7-8 U 8 1008 B /59 0|0 } GMARK 1408 7501 56 86 MN 0&X1 U 4 1016 D 0|0 1408 7502 56 87 SAR X2 U 4 1020 Q 094 1408 7503 56 88 BCE CONST,0&X2,} 12-7-8 U 8 1024 B S04 0!0 } GMARK 1409 7504 56 89 SYMB MCW @0@,TUNO U 7 1032 M S43 S25 1409 7505 56 90 MCW 0&X1,MVMSK-3 U 7 1039 M 0|0 S18 1409 7506 56 91 MCW @D@,MVMSK-6 U 7 1046 M S44 S15 1409 7507 56 92 MZ *-4,MVMSK-4 U 7 1053 Y |55 S17 1409 7508 56 93 CW MVSW#1 U 4 1060 ) S45 1410 7509 56 94 SLIDE C 0&X1 U 4 1064 C 0|0 1410 1 1401 FORTRAN INPUT/OUTPUT PHASE TWO 50393 PAGE 184 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7510 56 95 SAR X1 U 4 1068 Q 089 1410 7511 56 96 LCA IOCW,0&X3 U 7 1072 L S26 0?0 1410 7512 56 97 SBR X3 TO SOURCE U 4 1079 H 099 1410 7513 56 98 BW NOINT,MVSW U 8 1083 V /06 S45 1 1410 7514 56 99 SW MVSW U 4 1091 , S45 1410 7515 57 00 LCA MVMSK,0&X3 LOAD INITIALIZE U 7 1095 L S21 0?0 1411 7516 57 01 SBR X3 U 4 1102 H 099 1411 7517 57 02 NOINT LCA 1&X1,0&X3 LOAD GM U 7 1106 L 0|1 0?0 1411 7518 57 03 SBR X3 U 4 1113 H 099 1411 7519 57 04 KLOBR BCE START,0,< 12-6-8 U 8 1117 B 838 000 < 1411 7520 57 05 FQUIT U MACRO 7521 CS 332 U 4 1125 / 332 GEN 1411 7522 CS U 1 1129 / GEN 1411 7523 CC 1 U 2 1130 F 1 GEN 1412 7524 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 U 7 1132 M S81 270 GEN 1412 7525 W U 1 1139 2 GEN 1412 7526 CC 1 U 2 1140 F 1 GEN 1412 7527 BCE *&6,MONTOR,1 U 8 1142 B /55 769 1 GEN 1412 7528 RWD 1 U 5 1150 U %U1 R GEN 1412 7529 H *-3 U 4 1155 . /55 GEN 1412 7530 57 06 NONUM FTMSG 33,NO TAPE UNIT NUMBER,CODE,21 U MACRO 7531 NONUM CS 332 U 4 1159 / 332 GEN 1413 7532 CS U 1 1163 / GEN 1413 7533 SW FAILSW U 4 1164 , 184 GEN 1413 7534 MN CODE,224&21 U 7 1168 D S30 245 GEN 1413 7535 MN U 1 1175 D GEN 1413 7536 MN U 1 1176 D GEN 1413 7537 MCW @ERROR 33 - NO TAPE UNIT NUMBER, STATEMENT @ U 4 1177 M T23 GEN 1413 7538 W U 1 1181 2 GEN 1414 7539 BCV *&5 U 5 1182 B /91 @ GEN 1414 7540 B *&3 U 4 1187 B /93 GEN 1414 7541 CC 1 U 2 1191 F 1 GEN 1414 7542 57 07 MCW @0@,TUNO U 7 1193 M S43 S25 1414 7543 57 08 B SYMB U 4 1200 B |32 1414 7544 57 09 CONST MN 0&X1,TUNO U 7 1204 D 0|0 S25 1414 7545 57 10 B SLIDE U 4 1211 B |64 1415 7546 57 11 MVMSK DCW @MXXX0?4@ 0,12-0,4 U 7 1221 1415 7547 57 12 IOCW DCW @U%U0X@ U 5 1226 1415 7548 57 13 TUNO EQU IOCW-1 U 1225 7549 57 14 LTORG * U 1227 CODE U DCW #04 U 4 1230 AREA 1415 DCW @BZN@ U 3 1233 LIT 1415 DCW @CGOTO@ U 5 1238 LIT 1415 DCW @B@ U 1 1239 LIT 1415 DCW @<@ U 1 1240 LIT 1416 DCW @R@ U 1 1241 LIT 1416 DCW @M@ U 1 1242 LIT 1416 DCW @0@ U 1 1243 LIT 1416 DCW @D@ U 1 1244 LIT 1416 MVSW U DCW #01 U 1 1245 AREA 1416 1 1401 FORTRAN INPUT/OUTPUT PHASE TWO 50393 PAGE 185 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ U 36 1281 LIT 1417 DCW @ERROR 33 - NO TAPE UNIT NUMBER, STATEMENT @ U 42 1323 LIT 1419 7550 57 15 SYS1 DCW @}@ SYSTEM GROUP MARK U 1 1324 GMARK 1419 7551 57 16 XFR START U B 838 1420 1 1401 FORTRAN COMPUTED GO TO PHASE 50403 PAGE 186 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7552 57 17 JOB 1401 FORTRAN COMPUTED GO TO PHASE U 7553 57 18 FBEGN CGOTO,X1,,X2,R,X3,,. U MACRO 7554 SFX . . GEN 7555 110 DCW @CGOTO@ . 5 0110 GEN 1423 7556 X1 EQU 089 . 0089 GEN 7557 X2 EQU 094 . 0094 GEN 7558 094 DCW 000 . 3 0094 GEN 1424 7559 096 DC 00 . 2 0096 GEN 1424 7560 X3 EQU 099 . 0099 GEN 7561 57 19 ORG XBEGIN . 0838 7562 57 20 INITL SW GM1,GM2 . 7 0838 , S95 T09 1425 7563 57 21 START BWZ OUT,0&X1,1 . 8 0845 V T20 0|0 1 1425 7564 57 22 MCW 0&X1,ID#3 . 7 0853 M 0|0 T62 1425 7565 57 23 MCW ID,MASK . 7 0860 M T62 T12 1425 7566 57 24 MCW @]@,1&X1 11-5-8 . 7 0867 M T63 0|1 1425 7567 57 25 SBR KLOBR&6,1&X1 . 7 0874 H |78 0|1 1426 7568 57 26 C 0&X1 . 4 0881 C 0|0 1426 7569 57 27 SAR X1 . 4 0885 Q 089 1426 7570 57 28 C 2&X1,@T@ . 7 0889 C 0|2 T64 1426 7571 57 29 BU DUN . 5 0896 B T13 / 1426 7572 57 30 SMALL S MAX#2 . 4 0901 S T66 1426 7573 57 31 LOOP MN 0&X1 . 4 0905 D 0|0 1426 7574 57 32 MN . 1 0909 D 1427 7575 57 33 MN . 1 0910 D 1427 7576 57 34 SAR X1 . 4 0911 Q 089 1427 7577 57 35 A &1,MAX . 7 0915 A T67 T66 1427 7578 57 36 C MAX,&11 . 7 0922 C T66 T69 1427 7579 57 37 BE ERROR . 5 0929 B S23 S 1427 7580 57 38 C 0&X1,@,@ . 7 0934 C 0|0 T70 1427 7581 57 39 BU LOOP . 5 0941 B 905 / 1428 7582 57 40 MN 0&X1 . 4 0946 D 0|0 1428 7583 57 41 SAR X1 . 4 0950 Q 089 1428 7584 57 42 B RUADR . 4 0954 B /14 1428 7585 57 43 LCA MASK,0&X3 . 7 0958 L T12 0?0 1428 7586 57 44 LCA TRAP . 4 0965 L T59 1428 7587 57 45 LCA . 1 0969 L 1428 7588 57 46 LCA . 1 0970 L 1429 7589 57 47 SBR X3 . 4 0971 H 099 1429 7590 57 48 SBR X1,1&X1 . 7 0975 H 089 0|1 1429 7591 57 49 ANYMO BW NOMO,4&X1 . 8 0982 V |53 0|4 1 1429 7592 57 50 SW BRNCH-6 . 4 0990 , T44 1429 7593 57 51 MN MAX,BRNCH . 7 0994 D T66 T50 1429 7594 57 52 MCW I . 4 1001 M T02 1429 7595 57 53 MCW 6&X1 . 4 1005 M 0|6 1430 7596 57 54 SAR X1 . 4 1009 Q 089 1430 7597 57 55 CW BRNCH-6 . 4 1013 ) T44 1430 7598 57 56 MZ @K@,BRNCH-5 . 7 1017 Y T71 T45 1430 7599 57 57 MZ *-4,BRNCH-2 . 7 1024 Y |26 T48 1430 7600 57 58 LCA BRNCH,0&X3 . 7 1031 L T50 0?0 1430 7601 57 59 SBR X3 . 4 1038 H 099 1430 1 1401 FORTRAN COMPUTED GO TO PHASE 50403 PAGE 187 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7602 57 60 S &1,MAX . 7 1042 S T67 T66 1431 7603 57 61 B ANYMO . 4 1049 B 982 1431 7604 57 62 NOMO LCA GM1,0&X3 . 7 1053 L S95 0?0 1431 7605 57 63 SBR X3 . 4 1060 H 099 1431 7606 57 64 BOTM C 0&X1 . 4 1064 C 0|0 1431 7607 57 65 SAR X1 . 4 1068 Q 089 1431 7608 57 66 KLOBR BCE START,0,] 11-5-8 . 8 1072 B 845 000 ] 1431 7609 57 67 FQUIT . MACRO 7610 CS 332 . 4 1080 / 332 GEN 1432 7611 CS . 1 1084 / GEN 1432 7612 CC 1 . 2 1085 F 1 GEN 1432 7613 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 . 7 1087 M U07 270 GEN 1432 7614 W . 1 1094 2 GEN 1432 7615 CC 1 . 2 1095 F 1 GEN 1432 7616 BCE *&6,MONTOR,1 . 8 1097 B /10 769 1 GEN 1432 7617 RWD 1 . 5 1105 U %U1 R GEN 1433 7618 H *-3 . 4 1110 . /10 GEN 1433 7619 57 68 RUADR SBR EXRUA&3 . 4 1114 H S22 1433 7620 57 69 S COUNT#1 . 4 1118 S U08 1433 7621 57 70 OK MN 0&X1,TEST&7 . 7 1122 D 0|0 /55 1433 7622 57 71 SAR X1 . 4 1129 Q 089 1433 7623 57 72 BCE RUFIX,COUNT,B . 8 1133 B /81 U08 B 1433 7624 57 73 A &1,COUNT . 7 1141 A T67 U08 1434 7625 57 74 TEST BCE OK,@0123456789@,0 . 8 1148 B /22 U18 0 1434 7626 57 75 CHAIN 9 . MACRO 7627 BCE . 1 1156 B GEN 1434 7628 BCE . 1 1157 B GEN 1434 7629 BCE . 1 1158 B GEN 1434 7630 BCE . 1 1159 B GEN 1434 7631 BCE . 1 1160 B GEN 1434 7632 BCE . 1 1161 B GEN 1435 7633 BCE . 1 1162 B GEN 1435 7634 BCE . 1 1163 B GEN 1435 7635 BCE . 1 1164 B GEN 1435 7636 57 76 ERR1 BCE ERROR,0&X1,} 12-7-8 . 8 1165 B S23 0|0 } GMARK 1435 7637 57 77 SBR X1 . 4 1173 H 089 1435 7638 57 78 B ERR1 . 4 1177 B /65 1435 7639 57 79 RUFIX BWZ FIXED,2&X1,K . 8 1181 V /93 0|2 K 1436 7640 57 80 B ERR1 . 4 1189 B /65 1436 7641 57 81 FIXED MZ BLANK#1,2&X1 . 7 1193 Y U19 0|2 1436 7642 57 82 MCW 3&X1,I . 7 1200 M 0|3 T02 1436 7643 57 83 C 0&X1,GM1 . 7 1207 C 0|0 S95 1436 7644 57 84 BU ERR1 . 5 1214 B /65 / 1436 7645 57 85 EXRUA B 0 . 4 1219 B 000 1437 7646 57 86 ERROR BWZ *&5,ID,2 . 8 1223 V S35 T62 2 1437 7647 57 87 B ZONE . 4 1231 B S43 1437 7648 57 88 BWZ PRINT,ID-2,2 . 8 1235 V S57 T60 2 1437 7649 57 89 ZONE MCW ID,X2 . 7 1243 M T62 094 1437 7650 57 90 MCW 0&X2,ID . 7 1250 M 0!0 T62 1437 7651 57 91 PRINT FTMSG 34,COMPUTED GO TO SYNTAX,ID,23 . MACRO 1 1401 FORTRAN COMPUTED GO TO PHASE 50403 PAGE 188 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7652 PRINT CS 332 . 4 1257 / 332 GEN 1438 7653 CS . 1 1261 / GEN 1438 7654 SW FAILSW . 4 1262 , 184 GEN 1438 7655 MN ID,224&23 . 7 1266 D T62 247 GEN 1438 7656 MN . 1 1273 D GEN 1438 7657 MN . 1 1274 D GEN 1438 7658 MCW @ERROR 34 - COMPUTED GO TO SYNTAX, STATEMENT @ . 4 1275 M U63 GEN 1438 7659 W . 1 1279 2 GEN 1439 7660 BCV *&5 . 5 1280 B S89 @ GEN 1439 7661 B *&3 . 4 1285 B S91 GEN 1439 7662 CC 1 . 2 1289 F 1 GEN 1439 7663 57 92 B BOTM . 4 1291 B |64 1439 7664 57 93 GM1 DC @}@ GM . 1 1295 GMARK 1439 7665 57 94 DCW @T@ . 1 1296 1439 7666 57 95 DC XLINKS INOPERATIVE IN VER 3 . 3 1299 840 1439 7667 57 96 I DCW #3 . 3 1302 1439 7668 57 97 DCW #3 MAX VALUE OF I . 3 1305 1440 7669 57 98 BASE DCW #3 BASE ADDRESS OF TABLE . 3 1308 1440 7670 57 99 GM2 DC @}@ GM . 1 1309 GMARK 1440 7671 58 00 MASK DC #3 . 3 1312 1440 7672 58 01 DUN SBR X1,5&X1 . 7 1313 H 089 0|5 1440 7673 58 02 OUT FENDX C,,,,,,SYSCG,GOMSK . MACRO 7674 OUT BSS 333,C . 5 1320 B 333 C GEN 1440 7675 SBR TCLEAR,SYSCG . 7 1325 H 710 U69 GEN 1440 7676 LCA @GOMSK@,110 . 7 1332 L U68 110 GEN 1440 7677 B MONTER . 4 1339 B 700 GEN 1441 7678 58 03 BRNCH DCW @BXXXXXXA@ . 8 1350 1441 7679 58 04 NOP 1001 . 4 1351 N |01 1441 7680 58 05 H . 1 1355 . 1441 7681 58 06 TRAP DCW @BIIB@ . 4 1359 1441 7682 58 07 LTORG * . 1360 ID . DCW #03 . 3 1362 AREA 1441 DCW @]@ . 1 1363 LIT 1441 DCW @T@ . 1 1364 LIT 1442 MAX . DCW #02 . 2 1366 AREA 1442 DCW &1 . 1 1367 LIT 1442 DCW &11 . 2 1369 LIT 1442 DCW @,@ . 1 1370 LIT 1442 DCW @K@ . 1 1371 LIT 1442 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ . 36 1407 LIT 1443 COUNT. DCW #01 . 1 1408 AREA 1443 DCW @0123456789@ . 10 1418 LIT 1444 BLANK. DCW #01 . 1 1419 AREA 1444 DCW @ERROR 34 - COMPUTED GO TO SYNTAX, STATEMENT @ . 44 1463 LIT 1446 DCW @GOMSK@ . 5 1468 LIT 1446 7683 58 08 SYSCG DCW @}@ SYSTEM GROUP MARK . 1 1469 GMARK 1446 7684 58 09 XFR INITL . B 838 1447 1 1401 FORTRAN GO TO MASK PHASE 50413 PAGE 189 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7685 58 10 JOB 1401 FORTRAN GO TO MASK PHASE . 7686 58 11 FBEGN GOMSK,X1,,,,X3,,* . MACRO 7687 SFX * * GEN 7688 110 DCW @GOMSK@ * 5 0110 GEN 1450 7689 X1 EQU 089 * 0089 GEN 7690 X3 EQU 099 * 0099 GEN 7691 58 12 ORG XBEGIN * 0838 7692 58 13 START BCE OUT,0&X1, BLANK * 8 0838 B 861 0|0 1451 7693 58 14 MCW 0&X1,CODE#4 * 7 0846 M 0|0 962 1451 7694 58 15 BCE CTU,CODE-3,G * 8 0853 B 884 959 G 1451 7695 58 16 OUT FENDX C,,,,,,SYS1,STOP/PAUSE * MACRO 7696 OUT BSS 333,C * 5 0861 B 333 C GEN 1451 7697 SBR TCLEAR,SYS1 * 7 0866 H 710 975 GEN 1451 7698 LCA @STOP/PAUSE@,110 * 7 0873 L 972 110 GEN 1452 7699 B MONTER * 4 0880 B 700 GEN 1452 7700 58 17 CTU MVDWN X1,X3 * MACRO 7701 CTU LCA 0&X1,0&X3 * 7 0884 L 0|0 0?0 GEN 1452 7702 SAR X1 * 4 0891 Q 089 GEN 1452 7703 C 0&X3 * 4 0895 C 0?0 GEN 1452 7704 SAR X3 * 4 0899 Q 099 GEN 1452 7705 58 18 LCA 1&X3,2&X3 * 7 0903 L 0?1 0?2 1452 7706 58 19 SBR X3 * 4 0910 H 099 1453 7707 58 20 MVDWN X1,X3 * MACRO 7708 LCA 0&X1,0&X3 * 7 0914 L 0|0 0?0 GEN 1453 7709 SAR X1 * 4 0921 Q 089 GEN 1453 7710 C 0&X3 * 4 0925 C 0?0 GEN 1453 7711 SAR X3 * 4 0929 Q 099 GEN 1453 7712 58 21 MCW @B@,1&X3 * 7 0933 M 973 0?1 1453 7713 58 22 LCA 1&X1 * 4 0940 L 0|1 1453 7714 58 23 SBR X3 * 4 0944 H 099 1454 7715 58 24 MZ @K@,4&X3 * 7 0948 Y 974 0?4 1454 7716 58 25 B START * 4 0955 B 838 1454 7717 58 26 LTORG * * 0959 CODE * DCW #04 * 4 0962 AREA 1454 DCW @STOP/PAUSE@ * 10 0972 LIT 1454 DCW @B@ * 1 0973 LIT 1454 DCW @K@ * 1 0974 LIT 1454 7718 58 27 SYS1 DCW @}@ SYSTEM GROUP MARK * 1 0975 GMARK 1455 7719 58 28 XFR START * B 838 1456 1 1401 FORTRAN STOP/PAUSE PHASE 50423 PAGE 190 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7720 58 29 JOB 1401 FORTRAN STOP/PAUSE PHASE * 7721 58 30 FBEGN STOP/PAUSE,X1,,X2,,X3,,3 * MACRO 7722 SFX 3 3 GEN 7723 110 DCW @STOP/PAUSE@ 3 10 0110 GEN 1459 7724 X1 EQU 089 3 0089 GEN 7725 X2 EQU 094 3 0094 GEN 7726 X3 EQU 099 3 0099 GEN 7727 58 31 ORG XBEGIN 3 0838 7728 58 32 START CS 299 3 4 0838 / 299 1460 7729 58 33 NUTYP BCE OUT,0&X1, BLANK 3 8 0842 B 873 0|0 1460 7730 58 34 MCW 0&X1,CODE#4 3 7 0850 M 0|0 W02 1460 7731 58 35 FBCEQ DOIT,CODE-3,A,S 3 MACRO 7732 BCE DOIT, CODE-3, A 3 8 0857 B 896 V99 A GEN 1460 7733 BCE DOIT, CODE-3, S 3 8 0865 B 896 V99 S GEN 1460 7734 58 36 OUT FENDX C,,,,,,SYS1,LIGHT 3 MACRO 7735 OUT BSS 333,C 3 5 0873 B 333 C GEN 1461 7736 SBR TCLEAR,SYS1 3 7 0878 H 710 W61 GEN 1461 7737 LCA @LIGHT@,110 3 7 0885 L W07 110 GEN 1461 7738 B MONTER 3 4 0892 B 700 GEN 1461 7739 58 37 DOIT MCW @<@,2&X1 12-6-8 3 7 0896 M W08 0|2 1461 7740 58 38 SBR KLOBR&6,2&X1 3 7 0903 H S58 0|2 1461 7741 58 39 MVDWN X1,X3 3 MACRO 7742 LCA 0&X1,0&X3 3 7 0910 L 0|0 0?0 GEN 1462 7743 SAR X1 3 4 0917 Q 089 GEN 1462 7744 C 0&X3 3 4 0921 C 0?0 GEN 1462 7745 SAR X3 3 4 0925 Q 099 GEN 1462 7746 58 40 LCA 1&X3,2&X3 3 7 0929 L 0?1 0?2 1462 7747 58 41 SBR X3 3 4 0936 H 099 1462 7748 58 42 BCE NOAD,0&X1,} GM 3 8 0940 B |69 0|0 } GMARK 1462 7749 58 43 CS WORK 3 4 0948 / V98 1463 7750 58 44 FFLIP 0&X1,LOWK,X1,X2,,WM 3 MACRO 7751 MN LOWK 3 4 0952 D V00 GEN 1463 7752 MN 3 1 0956 D GEN 1463 7753 SAR X2 3 4 0957 Q 094 GEN 1463 7754 SBR X1, 0&X1 3 7 0961 H 089 0|0 GEN 1463 7755 )0K212 MCW 0&X1,)0L212#1 3 7 0968 M 0|0 W09 GEN 1463 7756 SAR X1 3 4 0975 Q 089 GEN 1463 7757 BW )0M212, 1&X1 3 8 0979 V |02 0|1 1 GEN 1464 7758 MCW )0L212, 2&X2 3 7 0987 M W09 0!2 GEN 1464 7759 SBR X2 3 4 0994 H 094 GEN 1464 7760 B )0K212 3 4 0998 B 968 GEN 1464 7761 )0M212 EQU *&1 3 1002 GEN 7762 58 45 SW LOWK 3 4 1002 , V00 1464 7763 58 46 BCE OKAY2,LOWK&3, BLANK 3 8 1006 B |42 V03 1464 7764 58 47 MCW MSG1,222 3 7 1014 M T15 222 1465 7765 58 48 MCW MSG2,247 3 7 1021 M T33 247 1465 7766 58 49 MCW LOWK&4,228 3 7 1028 M V04 228 1465 7767 58 50 MCW LOWK&2,251 3 7 1035 M V02 251 1465 7768 58 51 OKAY2 BCE *&5,LOWK&2, BLANK 3 8 1042 B |54 V02 1465 7769 58 52 B SETUP 3 4 1050 B |84 1466 1 1401 FORTRAN STOP/PAUSE PHASE 50423 PAGE 191 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7770 58 53 MCW LOWK&1,LOWK&2 3 7 1054 M V01 V02 1466 7771 58 54 MCW @0@ 3 4 1061 M W10 1466 7772 58 55 B OKAY2 3 4 1065 B |42 1466 7773 58 56 NOAD LCA @000@,LOWK&2 3 7 1069 L W13 V02 1466 7774 58 57 C 0&X1 3 4 1076 C 0|0 1466 7775 58 58 SAR X1 3 4 1080 Q 089 1466 7776 58 59 SETUP MCW LOWK&2,SAVE3#3 3 7 1084 M V02 W16 1467 7777 58 60 A @0@,LOWK&3 3 7 1091 A W10 V03 1467 7778 58 61 C LOWK&2,SAVE3 3 7 1098 C V02 W16 1467 7779 58 62 BE AOK 3 5 1105 B /70 S 1467 7780 58 63 BCE NUERR,201, BLANK 3 8 1110 B /31 201 1467 7781 58 64 RTN MZ BLNK3#3,251 3 7 1118 Y W19 251 1468 7782 58 65 MZ 3 1 1125 Y 1468 7783 58 66 MZ 3 1 1126 Y 1468 7784 58 67 B AOK 3 4 1127 B /70 1468 7785 58 68 NUERR MCW MSG1,222 3 7 1131 M T15 222 1468 7786 58 69 MCW MSG2,247 3 7 1138 M T33 247 1468 7787 58 70 MCW LOWK&2,226 3 7 1145 M V02 226 1468 7788 58 71 MCW LOWK&2,251 3 7 1152 M V02 251 1469 7789 58 72 MCW BLANK,223 3 7 1159 M W17 223 1469 7790 58 73 B RTN 3 4 1166 B /18 1469 7791 58 74 AOK BCE CTU,201, BLANK 3 8 1170 B /94 201 1469 7792 58 75 W 3 1 1178 2 1469 7793 58 76 FORMS 3 MACRO 7794 BCV *&5 3 5 1179 B /88 @ GEN 1469 7795 B *&3 3 4 1184 B /90 GEN 1469 7796 CC 1 3 2 1188 F 1 GEN 1470 7797 58 77 CS 299 3 4 1190 / 299 1470 7798 58 78 CTU CW LOWK 3 4 1194 ) V00 1470 7799 58 79 BCE PAUSE,CODE-3,A 3 8 1198 B S33 V99 A 1470 7800 58 80 LCA @BIIB@,0&X3 3 7 1206 L W23 0?0 1470 7801 58 81 LCA @.@ 3 4 1213 L W24 1470 7802 58 82 LCA LOWK&2 3 4 1217 L V02 1470 7803 58 83 LCA 1&X1 3 4 1221 L 0|1 1471 7804 58 84 SBR X3 3 4 1225 H 099 1471 7805 58 85 B KLOBR 3 4 1229 B S52 1471 7806 58 86 PAUSE LCA @.@,0&X3 3 7 1233 L W24 0?0 1471 7807 58 87 LCA LOWK&2 3 4 1240 L V02 1471 7808 58 88 LCA 1&X1 3 4 1244 L 0|1 1471 7809 58 89 SBR X3 3 4 1248 H 099 1471 7810 58 90 KLOBR BCE NUTYP,0,< 12-6-8 3 8 1252 B 842 000 < 1472 7811 58 91 FQUIT 3 MACRO 7812 CS 332 3 4 1260 / 332 GEN 1472 7813 CS 3 1 1264 / GEN 1472 7814 CC 1 3 2 1265 F 1 GEN 1472 7815 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 3 7 1267 M W60 270 GEN 1472 7816 W 3 1 1274 2 GEN 1472 7817 CC 1 3 2 1275 F 1 GEN 1472 7818 BCE *&6,MONTOR,1 3 8 1277 B S90 769 1 GEN 1473 7819 RWD 1 3 5 1285 U %U1 R GEN 1473 1 1401 FORTRAN STOP/PAUSE PHASE 50423 PAGE 192 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7820 H *-3 3 4 1290 . S90 GEN 1473 7821 58 92 MSG1 DCW @ERROR 35 - HALT NUMBER@ 3 22 1315 1473 7822 58 93 MSG2 DCW @TO BE DISPLAYED AS@ 3 18 1333 1474 7823 58 94 ORG *&X00 3 1400 7824 58 95 ORG *&99 3 1499 7825 58 96 DCW @N@ 3 1 1499 1475 7826 58 97 LOWK DS 1 3 1500 7827 58 98 WORK DS 98 3 1598 7828 58 99 LTORG * 3 1599 CODE 3 DCW #04 3 4 1602 AREA 1476 DCW @LIGHT@ 3 5 1607 LIT 1476 DCW @<@ 3 1 1608 LIT 1476 )0L212 DCW #01 3 1 1609 AREA 1476 DCW @0@ 3 1 1610 LIT 1476 DCW @000@ 3 3 1613 LIT 1476 SAVE33 DCW #03 3 3 1616 AREA 1476 BLNK33 DCW #03 3 3 1619 AREA 1477 DCW @BIIB@ 3 4 1623 LIT 1477 DCW @.@ 3 1 1624 LIT 1477 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 3 36 1660 LIT 1478 7829 59 00 SYS1 DCW @}@ SYSTEM GROUP MARK 3 1 1661 GMARK 1478 7830 59 01 BLANK EQU BLNK3-2 3 1617 7831 59 02 XFR START 3 B 838 1479 1 1401 FORTRAN SENSE LIGHT PHASE 50433 PAGE 193 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7832 59 03 JOB 1401 FORTRAN SENSE LIGHT PHASE 3 7833 59 04 FBEGN LIGHT,X1,,X2,R,X3,,5 3 MACRO 7834 SFX 5 5 GEN 7835 110 DCW @LIGHT@ 5 5 0110 GEN 1482 7836 X1 EQU 089 5 0089 GEN 7837 X2 EQU 094 5 0094 GEN 7838 094 DCW 000 5 3 0094 GEN 1483 7839 096 DC 00 5 2 0096 GEN 1483 7840 X3 EQU 099 5 0099 GEN 7841 59 05 ORG XBEGIN 5 0838 7842 59 06 START BCE OUT,0&X1, BLANK 5 8 0838 B 861 0|0 1484 7843 59 07 MCW 0&X1,CODE#4 5 7 0846 M 0|0 /88 1484 7844 59 08 BCE DOIT,CODE-3,J 5 8 0853 B 884 /85 J 1484 7845 59 09 OUT FENDX C,,,,,,SYSL,IFCOND 5 MACRO 7846 OUT BSS 333,C 5 5 0861 B 333 C GEN 1484 7847 SBR TCLEAR,SYSL 5 7 0866 H 710 S92 GEN 1484 7848 LCA @IFCOND@,110 5 7 0873 L /94 110 GEN 1485 7849 B MONTER 5 4 0880 B 700 GEN 1485 7850 59 10 DOIT MVDWN X1,X3 5 MACRO 7851 DOIT LCA 0&X1,0&X3 5 7 0884 L 0|0 0?0 GEN 1485 7852 SAR X1 5 4 0891 Q 089 GEN 1485 7853 C 0&X3 5 4 0895 C 0?0 GEN 1485 7854 SAR X3 5 4 0899 Q 099 GEN 1485 7855 59 11 SBR KLOBR&6,1&X1 5 7 0903 H /26 0|1 1485 7856 59 12 MCW @]@,1&X1 11-5-8 5 7 0910 M /95 0|1 1486 7857 59 13 LCA 1&X3,2&X3 5 7 0917 L 0?1 0?2 1486 7858 59 14 SBR X3 5 4 0924 H 099 1486 7859 59 15 MCW CODE,HOLD#3 MCW 0&X2,HOLD 5 7 0928 M /88 /98 1486 7860 59 16 BWZ *&5,HOLD,2 5 8 0935 V 947 /98 2 1486 7861 59 17 B SWEAT 5 4 0943 B 955 1486 7862 59 18 BWZ CKGM,HOLD-2,2 5 8 0947 V 969 /96 2 1487 7863 59 19 SWEAT MCW HOLD,X2 5 7 0955 M /98 094 1487 7864 59 20 MCW 0&X2,HOLD 5 7 0962 M 0!0 /98 1487 7865 59 21 CKGM BCE BAD,0&X1,} GM 5 8 0969 B |15 0|0 } GMARK 1487 7866 59 22 MCW 0&X1,HLD2#2 5 7 0977 M 0|0 S00 1487 7867 59 23 BCE *&5,HLD2-1,} GM 5 8 0984 B 996 /99 } GMARK 1488 7868 59 24 B BAD 5 4 0992 B |15 1488 7869 59 25 MN 0&X1,*&8 5 7 0996 D 0|0 |10 1488 7870 59 26 BCE OK,@01234@,0 5 8 1003 B |68 S05 0 1488 7871 59 27 CHAIN 4 5 MACRO 7872 BCE 5 1 1011 B GEN 1488 7873 BCE 5 1 1012 B GEN 1488 7874 BCE 5 1 1013 B GEN 1488 7875 BCE 5 1 1014 B GEN 1489 7876 59 28 BAD FTMSG 36,ILLEGAL SENSE LIGHT,HOLD,21 5 MACRO 7877 BAD CS 332 5 4 1015 / 332 GEN 1489 7878 CS 5 1 1019 / GEN 1489 7879 SW FAILSW 5 4 1020 , 184 GEN 1489 7880 MN HOLD,224&21 5 7 1024 D /98 245 GEN 1489 7881 MN 5 1 1031 D GEN 1489 1 1401 FORTRAN SENSE LIGHT PHASE 50433 PAGE 194 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7882 MN 5 1 1032 D GEN 1489 7883 MCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 5 4 1033 M S47 GEN 1490 7884 W 5 1 1037 2 GEN 1490 7885 BCV *&5 5 5 1038 B |47 @ GEN 1490 7886 B *&3 5 4 1043 B |49 GEN 1490 7887 CC 1 5 2 1047 F 1 GEN 1490 7888 59 29 SBR X3,4&X3 5 7 1049 H 099 0?4 1490 7889 59 30 C 0&X1 5 4 1056 C 0|0 1490 7890 59 31 SAR X1 5 4 1060 Q 089 1491 7891 59 32 B START 5 4 1064 B 838 1491 7892 59 33 OK MZ *-4,0&X1 5 7 1068 Y |70 0|0 1491 7893 59 34 BCE ZERO,0&X1,0 5 8 1075 B /62 0|0 0 1491 7894 59 35 MN 0&X1,MASK1 5 7 1083 D 0|0 /84 1491 7895 59 36 LCA MASK1,0&X3 5 7 1090 L /84 0?0 1491 7896 59 37 SBR X3 5 4 1097 H 099 1492 7897 59 38 RTN C 0&X1 5 4 1101 C 0|0 1492 7898 59 39 SAR X1 5 4 1105 Q 089 1492 7899 59 40 LCA 1&X1,0&X3 5 7 1109 L 0|1 0?0 1492 7900 59 41 SBR X3 5 4 1116 H 099 1492 7901 59 42 KLOBR BCE START,0,] 11-5-8 5 8 1120 B 838 000 ] 1492 7902 59 43 FQUIT 5 MACRO 7903 CS 332 5 4 1128 / 332 GEN 1492 7904 CS 5 1 1132 / GEN 1493 7905 CC 1 5 2 1133 F 1 GEN 1493 7906 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 5 7 1135 M S83 270 GEN 1493 7907 W 5 1 1142 2 GEN 1493 7908 CC 1 5 2 1143 F 1 GEN 1493 7909 BCE *&6,MONTOR,1 5 8 1145 B /58 769 1 GEN 1493 7910 RWD 1 5 5 1153 U %U1 R GEN 1493 7911 H *-3 5 4 1158 . /58 GEN 1494 7912 59 44 ZERO LCA @,@,0&X3 5 7 1162 L S84 0?0 1494 7913 59 45 LCA @,082084@ 5 4 1169 L S91 1494 7914 59 46 SBR X3 5 4 1173 H 099 1494 7915 59 47 B RTN 5 4 1177 B /01 1494 7916 59 48 MASK1 DCW @)080@ 5 4 1184 1494 7917 59 49 LTORG * 5 1185 CODE 5 DCW #04 5 4 1188 AREA 1494 DCW @IFCOND@ 5 6 1194 LIT 1495 DCW @]@ 5 1 1195 LIT 1495 HOLD 5 DCW #03 5 3 1198 AREA 1495 HLD2 5 DCW #02 5 2 1200 AREA 1495 DCW @01234@ 5 5 1205 LIT 1495 DCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 5 42 1247 LIT 1497 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 5 36 1283 LIT 1497 DCW @,@ 5 1 1284 LIT 1498 DCW @,082084@ 5 7 1291 LIT 1498 7918 59 50 SYSL DCW @}@ SYSTEM GROUP MARK 5 1 1292 GMARK 1498 7919 59 51 XFR START 5 B 838 1499 1 1401 FORTRAN IF %HARDWARE) PHASE 50443 PAGE 195 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7920 59 52 JOB 1401 FORTRAN IF %HARDWARE) PHASE 5 7921 59 53 FBEGN IFCOND,X1,,X2,R,X3,,4 5 MACRO 7922 SFX 4 4 GEN 7923 110 DCW @IFCOND@ 4 6 0110 GEN 1502 7924 X1 EQU 089 4 0089 GEN 7925 X2 EQU 094 4 0094 GEN 7926 094 DCW 000 4 3 0094 GEN 1503 7927 096 DC 00 4 2 0096 GEN 1503 7928 X3 EQU 099 4 0099 GEN 7929 59 54 ORG XBEGIN 4 0838 7930 59 55 START BCE OUT,0&X1, BLANK 4 8 0838 B 870 0|0 1504 7931 59 56 MCW 0&X1,CODE 4 7 0846 M 0|0 U45 1504 7932 59 57 MCW 4 1 0853 M 1504 7933 59 58 FBCEQ DOIT,CODE-3,W,K 4 MACRO 7934 BCE DOIT, CODE-3, W 4 8 0854 B 893 U42 W GEN 1504 7935 BCE DOIT, CODE-3, K 4 8 0862 B 893 U42 K GEN 1504 7936 59 59 OUT FENDX C,,,,,,SYS1,CONTINUE 4 MACRO 7937 OUT BSS 333,C 4 5 0870 B 333 C GEN 1504 7938 SBR TCLEAR,SYS1 4 7 0875 H 710 W14 GEN 1505 7939 LCA @CONTINUE@,110 4 7 0882 L U69 110 GEN 1505 7940 B MONTER 4 4 0889 B 700 GEN 1505 7941 59 60 DOIT MCW @<@,2&X1 12-6-8 4 7 0893 M U70 0|2 1505 7942 59 61 SBR KLOBR&6,2&X1 4 7 0900 H S03 0|2 1505 7943 59 62 MVDWN X1,X3 4 MACRO 7944 LCA 0&X1,0&X3 4 7 0907 L 0|0 0?0 GEN 1505 7945 SAR X1 4 4 0914 Q 089 GEN 1506 7946 C 0&X3 4 4 0918 C 0?0 GEN 1506 7947 SAR X3 4 4 0922 Q 099 GEN 1506 7948 59 63 LCA 1&X3,2&X3 4 7 0926 L 0?1 0?2 1506 7949 59 64 SBR X3 4 4 0933 H 099 1506 7950 59 65 MCW 0&X1,ON 4 7 0937 M 0|0 U36 1506 7951 59 66 MCW 4 1 0944 M 1506 7952 59 67 SAR X1 4 4 0945 Q 089 1507 7953 59 68 MZ @K@,ON-1 4 7 0949 Y U71 U35 1507 7954 59 69 MZ @K@,OFF-1 4 7 0956 Y U71 U32 1507 7955 59 70 BWZ *&5,CODE,2 4 8 0963 V 975 U45 2 1507 7956 59 71 B FLIP 4 4 0971 B 983 1507 7957 59 72 BWZ CKCOM,CODE-2,2 4 8 0975 V 997 U43 2 1507 7958 59 73 FLIP MCW CODE,X2 4 7 0983 M U45 094 1508 7959 59 74 MCW 0&X2,CODE 4 7 0990 M 0!0 U45 1508 7960 59 75 CKCOM B AOK 4 4 0997 B |20 1508 7961 59 76 KILL C 0&X1 4 4 1001 C 0|0 1508 7962 59 77 SAR X1 4 4 1005 Q 089 1508 7963 59 78 SBR X3,4&X3 4 7 1009 H 099 0?4 1508 7964 59 79 B START 4 4 1016 B 838 1508 7965 59 80 AOK MN 0&X1 4 4 1020 D 0|0 1509 7966 59 81 SAR X1 4 4 1024 Q 089 1509 7967 59 82 BCE LIGHT,CODE-3,K 4 8 1028 B S54 U42 K 1509 7968 59 83 MCW 0&X1,BOX#1 PROCESS IF SENSE 4 7 1036 M 0|0 U72 1509 7969 59 84 MCW BOX,*&8 SWITCH 4 7 1043 M U72 |57 1509 1 1401 FORTRAN IF %HARDWARE) PHASE 50443 PAGE 196 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 7970 59 85 BCE AOK2,@0123456@,0 4 8 1050 B /02 U79 0 1509 7971 59 86 CHAIN 6 4 MACRO 7972 BCE 4 1 1058 B GEN 1509 7973 BCE 4 1 1059 B GEN 1510 7974 BCE 4 1 1060 B GEN 1510 7975 BCE 4 1 1061 B GEN 1510 7976 BCE 4 1 1062 B GEN 1510 7977 BCE 4 1 1063 B GEN 1510 7978 59 87 FTMSG 37,ILLEGAL SENSE SWITCH,CODE,22 4 MACRO 7979 CS 332 4 4 1064 / 332 GEN 1510 7980 CS 4 1 1068 / GEN 1510 7981 SW FAILSW 4 4 1069 , 184 GEN 1511 7982 MN CODE,224&22 4 7 1073 D U45 246 GEN 1511 7983 MN 4 1 1080 D GEN 1511 7984 MN 4 1 1081 D GEN 1511 7985 MCW @ERROR 37 - ILLEGAL SENSE SWITCH, STATEMENT @ 4 4 1082 M V22 GEN 1511 7986 W 4 1 1086 2 GEN 1511 7987 BCV *&5 4 5 1087 B |96 @ GEN 1511 7988 B *&3 4 4 1092 B |98 GEN 1512 7989 CC 1 4 2 1096 F 1 GEN 1512 7990 59 88 B KILL 4 4 1098 B |01 1512 7991 59 89 AOK2 A &1,BOX 4 7 1102 A V23 U72 1512 7992 59 90 MN BOX,MASK1 4 7 1109 D U72 U41 1512 7993 59 91 MCW ON,MASK1-1 4 7 1116 M U36 U40 1512 7994 59 92 MCW OFF,X2 4 7 1123 M U33 094 1512 7995 59 93 MCW 0&X2,X2 4 7 1130 M 0!0 094 1513 7996 59 94 S &10,X2&1 4 7 1137 S V25 095 1513 7997 59 95 C CODE,X2 4 7 1144 C U45 094 1513 7998 59 96 BE NOXTR 4 5 1151 B S39 S 1513 7999 59 97 MCW OFF,MASK2 4 7 1156 M U33 U49 1513 8000 59 98 LCA MASK2,0&X3 4 7 1163 L U49 0?0 1514 8001 59 99 LCA MASK1 4 4 1170 L U41 1514 8002 60 00 SBR X3 4 4 1174 H 099 1514 8003 60 01 RETRN C 0&X1 4 4 1178 C 0|0 1514 8004 60 02 SAR X1 4 4 1182 Q 089 1514 8005 60 03 LCA 1&X1,0&X3 4 7 1186 L 0|1 0?0 1514 8006 60 04 SBR X3 4 4 1193 H 099 1514 8007 60 05 KLOBR BCE START,0,< 12-6-8 4 8 1197 B 838 000 < 1515 8008 60 06 FQUIT 4 MACRO 8009 CS 332 4 4 1205 / 332 GEN 1515 8010 CS 4 1 1209 / GEN 1515 8011 CC 1 4 2 1210 F 1 GEN 1515 8012 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 4 7 1212 M V61 270 GEN 1515 8013 W 4 1 1219 2 GEN 1515 8014 CC 1 4 2 1220 F 1 GEN 1515 8015 BCE *&6,MONTOR,1 4 8 1222 B S35 769 1 GEN 1516 8016 RWD 1 4 5 1230 U %U1 R GEN 1516 8017 H *-3 4 4 1235 . S35 GEN 1516 8018 60 07 NOXTR LCA MASK1,0&X3 4 7 1239 L U41 0?0 1516 8019 60 08 SBR X3 4 4 1246 H 099 1516 1 1401 FORTRAN IF %HARDWARE) PHASE 50443 PAGE 197 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8020 60 09 B RETRN 4 4 1250 B /78 1516 8021 60 10 LIGHT MCW 0&X1,BOX 4 7 1254 M 0|0 U72 1516 8022 60 11 MCW BOX,*&8 4 7 1261 M U72 S75 1517 8023 60 12 BCE AOK3,@1234@,0 4 8 1268 B T17 V65 0 1517 8024 60 13 CHAIN 3 4 MACRO 8025 BCE 4 1 1276 B GEN 1517 8026 BCE 4 1 1277 B GEN 1517 8027 BCE 4 1 1278 B GEN 1517 8028 60 14 FTMSG 36,ILLEGAL SENSE LIGHT,CODE,21 4 MACRO 8029 CS 332 4 4 1279 / 332 GEN 1517 8030 CS 4 1 1283 / GEN 1517 8031 SW FAILSW 4 4 1284 , 184 GEN 1518 8032 MN CODE,224&21 4 7 1288 D U45 245 GEN 1518 8033 MN 4 1 1295 D GEN 1518 8034 MN 4 1 1296 D GEN 1518 8035 MCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 4 4 1297 M W07 GEN 1518 8036 W 4 1 1301 2 GEN 1518 8037 BCV *&5 4 5 1302 B T11 @ GEN 1518 8038 B *&3 4 4 1307 B T13 GEN 1519 8039 CC 1 4 2 1311 F 1 GEN 1519 8040 60 15 B KILL 4 4 1313 B |01 1519 8041 60 16 AOK3 MCW @080@,WORK3#3 4 7 1317 M W10 W13 1519 8042 60 17 A BOX,WORK3 4 7 1324 A U72 W13 1519 8043 60 18 MCW WORK3,MASK3-1 4 7 1331 M W13 U56 1519 8044 60 19 MCW OFF 4 4 1338 M U33 1519 8045 60 20 MCW WORK3,MASK4 4 7 1342 M W13 U61 1520 8046 60 21 MCW ON,X2 4 7 1349 M U36 094 1520 8047 60 22 MCW 0&X2,X2 4 7 1356 M 0!0 094 1520 8048 60 23 S &10,X2&1 4 7 1363 S V25 095 1520 8049 60 24 C CODE,X2 4 7 1370 C U45 094 1520 8050 60 25 BE CHEAP 4 5 1377 B U12 S 1521 8051 60 26 MCW ON,MASK2 4 7 1382 M U36 U49 1521 8052 60 27 LCA MASK2,0&X3 4 7 1389 L U49 0?0 1521 8053 60 28 LCA MASK4 4 4 1396 L U61 1521 8054 60 29 LCA MASK3 4 4 1400 L U57 1521 8055 60 30 SBR X3 4 4 1404 H 099 1521 8056 60 31 B RETRN 4 4 1408 B /78 1521 8057 60 32 CHEAP LCA MASK4,0&X3 4 7 1412 L U61 0?0 1522 8058 60 33 LCA MASK3 4 4 1419 L U57 1522 8059 60 34 SBR X3 4 4 1423 H 099 1522 8060 60 35 B RETRN 4 4 1427 B /78 1522 8061 60 36 OFF DCW #3 4 3 1433 1522 8062 60 37 ON DCW #3 4 3 1436 1522 8063 60 38 MASK1 DCW @B &@ 4 5 1441 1522 8064 60 39 DCW #1 4 1 1442 1523 8065 60 40 CODE DCW #3 4 3 1445 1523 8066 60 41 MASK2 DCW @B @ 4 4 1449 1523 8067 60 42 MASK3 DCW @V 1@ 4 8 1457 1523 8068 60 43 MASK4 DCW @, @ 4 4 1461 1523 8069 60 44 LTORG * 4 1462 1 1401 FORTRAN IF %HARDWARE) PHASE 50443 PAGE 198 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @CONTINUE@ 4 8 1469 LIT 1523 DCW @<@ 4 1 1470 LIT 1523 DCW @K@ 4 1 1471 LIT 1524 BOX 4 DCW #01 4 1 1472 AREA 1524 DCW @0123456@ 4 7 1479 LIT 1524 DCW @ERROR 37 - ILLEGAL SENSE SWITCH, STATEMENT @ 4 43 1522 LIT 1526 DCW &1 4 1 1523 LIT 1526 DCW &10 4 2 1525 LIT 1526 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 4 36 1561 LIT 1527 DCW @1234@ 4 4 1565 LIT 1528 DCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 4 42 1607 LIT 1530 DCW @080@ 4 3 1610 LIT 1530 WORK34 DCW #03 4 3 1613 AREA 1530 8070 60 45 SYS1 DCW @}@ SYSTEM GROUP MARK 4 1 1614 GMARK 1530 8071 60 46 XFR START 4 B 838 1531 1 1401 FORTRAN CONTINUE PHASE 50453 PAGE 199 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8072 60 47 JOB 1401 FORTRAN CONTINUE PHASE 4 8073 60 48 FBEGN CONTINUE,X1,,,,X3,,& 4 MACRO 8074 SFX & & GEN 8075 110 DCW @CONTINUE@ & 8 0110 GEN 1534 8076 X1 EQU 089 & 0089 GEN 8077 X3 EQU 099 & 0099 GEN 8078 60 49 ORG XBEGIN & 0838 8079 60 50 START BCE OUT,0&X1, BLANK & 8 0838 B 861 0|0 1535 8080 60 51 MCW 0&X1,CODE#4 & 7 0846 M 0|0 925 1535 8081 60 52 BCE ISCTU,CODE-3,C & 8 0853 B 884 922 C 1535 8082 60 53 OUT FENDX C,,,,,,SYS1,DOMSK & MACRO 8083 OUT BSS 333,C & 5 0861 B 333 C GEN 1535 8084 SBR TCLEAR,SYS1 & 7 0866 H 710 931 GEN 1535 8085 LCA @DOMSK@,110 & 7 0873 L 930 110 GEN 1536 8086 B MONTER & 4 0880 B 700 GEN 1536 8087 60 54 ISCTU MVDWN X1,X3 & MACRO 8088 ISCTU LCA 0&X1,0&X3 & 7 0884 L 0|0 0?0 GEN 1536 8089 SAR X1 & 4 0891 Q 089 GEN 1536 8090 C 0&X3 & 4 0895 C 0?0 GEN 1536 8091 SAR X3 & 4 0899 Q 099 GEN 1536 8092 60 55 LCA 1&X1,2&X3 & 7 0903 L 0|1 0?2 1536 8093 60 56 C 0&X1 & 4 0910 C 0|0 1537 8094 60 57 SAR X1 & 4 0914 Q 089 1537 8095 60 58 B START & 4 0918 B 838 1537 8096 60 59 LTORG * & 0922 CODE & DCW #04 & 4 0925 AREA 1537 DCW @DOMSK@ & 5 0930 LIT 1537 8097 60 60 SYS1 DCW @}@ SYSTEM GROUP MARK & 1 0931 GMARK 1537 8098 60 61 XFR START & B 838 1538 1 1401 FORTRAN DO PHASE 50463 PAGE 200 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8099 60 62 JOB 1401 FORTRAN DO PHASE & 8100 60 63 FBEGN DOMSK,X1,,X2,R,X3,,% & MACRO 8101 SFX % % GEN 8102 110 DCW @DOMSK@ % 5 0110 GEN 1541 8103 X1 EQU 089 % 0089 GEN 8104 X2 EQU 094 % 0094 GEN 8105 094 DCW 000 % 3 0094 GEN 1542 8106 096 DC 00 % 2 0096 GEN 1542 8107 X3 EQU 099 % 0099 GEN 8108 60 64 * DO PHASE ALGORITHM 8109 60 65 * 8110 60 66 * OUTER 8111 60 67 * 8112 60 68 * NO SAME DIFF 8113 60 69 * I B XT B XT B XT 8114 60 70 * N 8115 60 71 * N GM T BK T IN T BK 8116 60 72 * E EZ B BK B IN B BK 8117 60 73 * R HD - BK - IN - BK 8118 60 74 * 8119 60 75 ORG XBEGIN % 0838 8120 60 76 INITL SW GM1,GM2 % 7 0838 , V98 W26 1543 8121 60 77 SW GM3,GM4 % 7 0845 , W31 W22 1543 8122 60 78 MCW X3,HEX3#3 % 7 0852 M 099 W37 1543 8123 60 79 START BWZ OUT,000&X1,1 % 8 0859 V V33 0|0 1 1543 8124 60 80 MCW @<@,2&X1 12-6-8 % 7 0867 M W38 0|2 1543 8125 60 81 SBR KLOBR&6,2&X1 % 7 0874 H S65 0|2 1544 8126 60 82 C 000&X1 % 4 0881 C 0|0 1544 8127 60 83 SAR X1 % 4 0885 Q 089 1544 8128 60 84 C 002&X1,@D@ % 7 0889 C 0|2 W39 1544 8129 60 85 BU DUN % 5 0896 B V26 / 1544 8130 60 86 CW XDOAD1,XDOAD2 % 7 0901 ) 111 112 1544 8131 60 87 CW XDOAD3,XDOINI % 7 0908 ) 113 114 1545 8132 60 88 MCW 005&X1,X2 % 7 0915 M 0|5 094 1545 8133 60 89 MCW 000&X2,TOP#3 % 7 0922 M 0!0 W42 1545 8134 60 90 MCW 000&X1,X2 % 7 0929 M 0|0 094 1545 8135 60 91 SAR X1 % 4 0936 Q 089 1545 8136 60 92 MCW 000&X2,BOTM#3 % 7 0940 M 0!0 W45 1545 8137 60 93 ZA TOP,ACCUM#3 % 7 0947 ? W42 W48 1546 8138 60 94 S BOTM,ACCUM % 7 0954 S W45 W48 1546 8139 60 95 MCW @N@,SWTCH % 7 0961 M W49 S12 1546 8140 60 96 BWZ ERR1,ACCUM,B % 8 0968 V T97 W48 B 1546 8141 60 97 MCW X1,X2 % 7 0976 M 089 094 1546 8142 60 98 MCW @ @,EXIT % 7 0983 M W52 W21 1547 8143 60 99 MCW @T@,GOBAK-3 % 7 0990 M W53 W27 1547 8144 61 00 MCW @B@,NOAPX % 7 0997 M W54 S16 1547 8145 61 01 LOOP C 000&X2 % 4 1004 C 0!0 1547 8146 61 02 C % 1 1008 C 1547 8147 61 03 SAR X2 % 4 1009 Q 094 1547 8148 61 04 C 002&X2,@D@ % 7 1013 C 0!2 W39 1547 1 1401 FORTRAN DO PHASE 50463 PAGE 201 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8149 61 05 BU DIFNT % 5 1020 B |90 / 1548 8150 61 06 MCW 000&X2,X3 % 7 1025 M 0!0 099 1548 8151 61 07 C 000&X3,TOP % 7 1032 C 0?0 W42 1548 8152 61 08 BH LOOP % 5 1039 B |04 U 1548 8153 61 09 C 000&X3,BOTM % 7 1044 C 0?0 W45 1548 8154 61 10 BH ERR2 % 5 1051 B U42 U 1548 8155 61 11 BCE RUDIF,1&X2,H % 8 1056 B |71 0!1 H 1549 8156 61 12 MCW @E@,1&X2 % 7 1064 M W55 0!1 1549 8157 61 13 RUDIF BL DIFNT % 5 1071 B |90 T 1549 8158 61 14 MCW @H@,1&X2 % 7 1076 M W56 0!1 1549 8159 61 15 MCW 5&X2,EXIT % 7 1083 M 0!5 W21 1549 8160 61 16 DIFNT BCE MDIFY,4&X1,H % 8 1090 B /20 0|4 H 1550 8161 61 17 MCW @N@,NOAPX % 7 1098 M W49 S16 1550 8162 61 18 BCE MDIFY,4&X1,} GROUP MK % 8 1105 B /20 0|4 } GMARK 1550 8163 61 19 MCW @B@,GOBAK-3 % 7 1113 M W54 W27 1550 8164 61 20 MDIFY MCW BOTM,MASK % 7 1120 M W45 W34 1550 8165 61 21 SW 006&X1 % 4 1127 , 0|6 1551 8166 61 22 MCW 008&X1,MASK-9 % 7 1131 M 0|8 W25 1551 8167 61 23 MCW 008&X1,GOBAK % 7 1138 M 0|8 W30 1551 8168 61 24 CKSYN B TEST % 4 1145 B T01 1551 8169 61 25 DCW @,@ % 1 1149 1551 8170 61 26 DCW &I % 3 1152 W18 1551 8171 61 27 B TEST % 4 1153 B T01 1551 8172 61 28 DCW @#@ % 1 1157 1552 8173 61 29 DCW &M1 % 3 1160 W09 1552 8174 61 30 B TEST % 4 1161 B T01 1552 8175 61 31 DCW @,@ % 1 1165 1552 8176 61 32 DCW &M2 % 3 1168 W12 1552 8177 61 33 BWZ M3IS1,000&X1,1 % 8 1169 V T86 0|0 1 1552 8178 61 34 B TEST % 4 1177 B T01 1552 8179 61 35 DCW @,@ % 1 1181 1553 8180 61 36 DCW &M3 % 3 1184 W15 1553 8181 61 37 BWZ SEND,000&X1,1 % 8 1185 V /97 0|0 1 1553 8182 61 38 B ERROR % 4 1193 B U80 1553 8183 61 39 SEND MCW HEX3,X3 % 7 1197 M W37 099 1553 8184 61 40 MN 000&X1 % 4 1204 D 0|0 1553 8185 61 41 SAR X1 % 4 1208 Q 089 1553 8186 61 42 SWTCH NOP KLOBR % 4 1212 N S59 1554 8187 61 43 NOAPX NOP REG % 4 1216 N S40 1554 8188 61 44 A &1,GNSTMZ % 7 1220 A W57 151 1554 8189 61 45 LCA MASK,000&X3 % 7 1227 L W34 0?0 1554 8190 61 46 CHAIN 2 % MACRO 8191 LCA % 1 1234 L GEN 1554 8192 LCA % 1 1235 L GEN 1554 8193 61 47 SBR X3 % 4 1236 H 099 1554 8194 61 48 REG LCA GM2-1,0&X3 % 7 1240 L W25 0?0 1555 8195 61 49 CHAIN 8 % MACRO 8196 LCA % 1 1247 L GEN 1555 8197 LCA % 1 1248 L GEN 1555 8198 LCA % 1 1249 L GEN 1555 1 1401 FORTRAN DO PHASE 50463 PAGE 202 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8199 LCA % 1 1250 L GEN 1555 8200 LCA % 1 1251 L GEN 1555 8201 LCA % 1 1252 L GEN 1555 8202 LCA % 1 1253 L GEN 1556 8203 LCA % 1 1254 L GEN 1556 8204 61 50 SBR HEX3 % 4 1255 H W37 1556 8205 61 51 KLOBR BCE START,0,< 12-6-8 % 8 1259 B 859 000 < 1556 8206 61 52 FQUIT % MACRO 8207 CS 332 % 4 1267 / 332 GEN 1556 8208 CS % 1 1271 / GEN 1556 8209 CC 1 % 2 1272 F 1 GEN 1556 8210 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 % 7 1274 M W93 270 GEN 1557 8211 W % 1 1281 2 GEN 1557 8212 CC 1 % 2 1282 F 1 GEN 1557 8213 BCE *&6,MONTOR,1 % 8 1284 B S97 769 1 GEN 1557 8214 RWD 1 % 5 1292 U %U1 R GEN 1557 8215 H *-3 % 4 1297 . S97 GEN 1557 8216 61 53 TEST SBR X2 % 4 1301 H 094 1557 8217 61 54 C 000&X1,000&X2 % 7 1305 C 0|0 0!0 1558 8218 61 55 SAR X1 % 4 1312 Q 089 1558 8219 61 56 BU ERROR % 5 1316 B U80 / 1558 8220 61 57 MCW 003&X2,*&7 % 7 1321 M 0!3 T34 1558 8221 61 58 MCW 000&X1,000 % 7 1328 M 0|0 000 1558 8222 61 59 S COUNT#1 % 4 1335 S W94 1558 8223 61 60 OK A &1,COUNT % 7 1339 A W57 W94 1559 8224 61 61 BCE 004&X2,COUNT,D % 8 1346 B 0!4 W94 D 1559 8225 61 62 MN 000&X1,RUOK&7 % 7 1354 D 0|0 T72 1559 8226 61 63 SAR X1 % 4 1361 Q 089 1559 8227 61 64 RUOK BCE OK,@0123456789@,0 % 8 1365 B T39 X04 0 1559 8228 61 65 CHAIN 9 % MACRO 8229 BCE % 1 1373 B GEN 1559 8230 BCE % 1 1374 B GEN 1559 8231 BCE % 1 1375 B GEN 1560 8232 BCE % 1 1376 B GEN 1560 8233 BCE % 1 1377 B GEN 1560 8234 BCE % 1 1378 B GEN 1560 8235 BCE % 1 1379 B GEN 1560 8236 BCE % 1 1380 B GEN 1560 8237 BCE % 1 1381 B GEN 1560 8238 61 66 B ERROR % 4 1382 B U80 1561 8239 61 67 M3IS1 MCW ONEADR,M3 % 7 1386 M 142 W15 1561 8240 61 68 B SEND % 4 1393 B /97 1561 8241 61 69 ERR1 FTMSG 38,ILLEGAL RANGE OF DO,TOP,21 % MACRO 8242 ERR1 CS 332 % 4 1397 / 332 GEN 1561 8243 CS % 1 1401 / GEN 1561 8244 SW FAILSW % 4 1402 , 184 GEN 1561 8245 MN TOP,224&21 % 7 1406 D W42 245 GEN 1561 8246 MN % 1 1413 D GEN 1562 8247 MN % 1 1414 D GEN 1562 8248 MCW @ERROR 38 - ILLEGAL RANGE OF DO, STATEMENT @ % 4 1415 M X46 GEN 1562 1 1401 FORTRAN DO PHASE 50463 PAGE 203 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8249 W % 1 1419 2 GEN 1562 8250 BCV *&5 % 5 1420 B U29 @ GEN 1562 8251 B *&3 % 4 1425 B U31 GEN 1562 8252 CC 1 % 2 1429 F 1 GEN 1562 8253 61 70 AVOID MCW @B@,SWTCH % 7 1431 M W54 S12 1563 8254 61 71 B CKSYN % 4 1438 B /45 1563 8255 61 72 ERR2 FTMSG 39,ILLEGAL NESTING,TOP,17 % MACRO 8256 ERR2 CS 332 % 4 1442 / 332 GEN 1563 8257 CS % 1 1446 / GEN 1563 8258 SW FAILSW % 4 1447 , 184 GEN 1563 8259 MN TOP,224&17 % 7 1451 D W42 241 GEN 1563 8260 MN % 1 1458 D GEN 1563 8261 MN % 1 1459 D GEN 1564 8262 MCW @ERROR 39 - ILLEGAL NESTING, STATEMENT @ % 4 1460 M X84 GEN 1564 8263 W % 1 1464 2 GEN 1564 8264 BCV *&5 % 5 1465 B U74 @ GEN 1564 8265 B *&3 % 4 1470 B U76 GEN 1564 8266 CC 1 % 2 1474 F 1 GEN 1564 8267 61 73 B AVOID % 4 1476 B U31 1564 8268 61 74 ERROR FTMSG 40,DO SYNTAX,TOP,11 % MACRO 8269 ERROR CS 332 % 4 1480 / 332 GEN 1565 8270 CS % 1 1484 / GEN 1565 8271 SW FAILSW % 4 1485 , 184 GEN 1565 8272 MN TOP,224&11 % 7 1489 D W42 235 GEN 1565 8273 MN % 1 1496 D GEN 1565 8274 MN % 1 1497 D GEN 1565 8275 MCW @ERROR 40 - DO SYNTAX, STATEMENT @ % 4 1498 M Y16 GEN 1565 8276 W % 1 1502 2 GEN 1566 8277 BCV *&5 % 5 1503 B V12 @ GEN 1566 8278 B *&3 % 4 1508 B V14 GEN 1566 8279 CC 1 % 2 1512 F 1 GEN 1566 8280 61 75 C 001&X1 % 4 1514 C 0|1 1566 8281 61 76 SAR X1 % 4 1518 Q 089 1566 8282 61 77 B KLOBR % 4 1522 B S59 1566 8283 61 78 DUN SBR X1,5&X1 % 7 1526 H 089 0|5 1567 8284 61 79 OUT MCW HEX3,X3 % 7 1533 M W37 099 1567 8285 61 80 MN 0&X3 % 4 1540 D 0?0 1567 8286 61 81 SAR X2 % 4 1544 Q 094 1567 8287 61 82 KLEAR CS 0&X2 % 4 1548 / 0!0 1567 8288 61 83 SBR X2 % 4 1552 H 094 1567 8289 61 84 C 0&X2,DOEND % 7 1556 C 0!0 Y99 1567 8290 61 85 BU KLEAR % 5 1563 B V48 / 1568 8291 61 86 FENDX E,GM1,,,BEGINZ,,TABELZ,RESORT 1 % MACRO 8292 BSS 333,E % 5 1568 B 333 E GEN 1568 8293 SBR INITXT&3,BEGINZ % 7 1573 H 796 /75 GEN 1568 8294 SBR TCLEAR,TABELZ % 7 1580 H 710 M99 GEN 1568 8295 LCA @RESORT 1@,110 % 7 1587 L Y24 110 GEN 1568 8296 B MONTER % 4 1594 B 700 GEN 1568 8297 61 87 GM1 DC @}@ GROUP MK % 1 1598 GMARK 1568 8298 61 88 DCW @T@ % 1 1599 1568 1 1401 FORTRAN DO PHASE 50463 PAGE 204 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8299 61 89 DC DOADR1 % 3 1602 924 1569 8300 61 90 DCW @T@ % 1 1603 1569 8301 61 91 DC DOADR2 % 3 1606 921 1569 8302 61 92 M1 DCW #3 % 3 1609 1569 8303 61 93 M2 DCW #3 % 3 1612 1569 8304 61 94 M3 DCW #3 % 3 1615 1569 8305 61 95 I DCW #3 % 3 1618 1570 8306 61 96 EXIT DCW #3 % 3 1621 1570 8307 61 97 GM4 DC @}@ GROUP MK % 1 1622 GMARK 1570 8308 61 98 DC #3 XYZ OF INTERNAL NUMBER % 3 1625 1570 8309 61 99 GM2 DC @}@ GROUP MK % 1 1626 GMARK 1570 8310 62 00 DCW @T@ % 1 1627 1570 8311 62 01 GOBAK DC #3 % 3 1630 1570 8312 62 02 GM3 DC @}@ GROUP MK % 1 1631 GMARK 1570 8313 62 03 MASK DC #3 % 3 1634 1570 8314 62 04 LTORG * % 1635 HEX3 % DCW #03 % 3 1637 AREA 1570 DCW @<@ % 1 1638 LIT 1570 DCW @D@ % 1 1639 LIT 1570 TOP % DCW #03 % 3 1642 AREA 1570 BOTM % DCW #03 % 3 1645 AREA 1571 ACCUM% DCW #03 % 3 1648 AREA 1571 DCW @N@ % 1 1649 LIT 1571 DCW @ @ % 3 1652 LIT 1571 DCW @T@ % 1 1653 LIT 1571 DCW @B@ % 1 1654 LIT 1571 DCW @E@ % 1 1655 LIT 1571 DCW @H@ % 1 1656 LIT 1572 DCW &1 % 1 1657 LIT 1572 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ % 36 1693 LIT 1572 COUNT% DCW #01 % 1 1694 AREA 1572 DCW @0123456789@ % 10 1704 LIT 1573 DCW @ERROR 38 - ILLEGAL RANGE OF DO, STATEMENT @ % 42 1746 LIT 1575 DCW @ERROR 39 - ILLEGAL NESTING, STATEMENT @ % 38 1784 LIT 1576 DCW @ERROR 40 - DO SYNTAX, STATEMENT @ % 32 1816 LIT 1577 DCW @RESORT 1@ % 8 1824 LIT 1578 8315 62 05 DCW @}@ SYSTEM GROUP MARK % 1 1825 GMARK 1578 8316 62 06 ORG *&X00 % 1900 8317 62 07 DOEND EQU * % 1899 8318 62 08 XFR INITL % B 838 1579 1 1401 FORTRAN RESORT PHASE ONE 50473 PAGE 205 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8319 62 09 JOB 1401 FORTRAN RESORT PHASE ONE % 8320 62 10 FBEGN RESORT 1,X1,,X2,,X3,,Z % MACRO 8321 SFX Z Z GEN 8322 110 DCW @RESORT 1@ Z 8 0110 GEN 1582 8323 X1 EQU 089 Z 0089 GEN 8324 X2 EQU 094 Z 0094 GEN 8325 X3 EQU 099 Z 0099 GEN 8326 62 11 ORG XBEGIN Z 0838 8327 62 12 THREE DCW 0 Z 1 0838 1583 8328 62 13 COUNT DCW 000 Z 3 0841 1583 8329 62 14 ASIDE DCW 000 Z 3 0844 1583 8330 62 15 TBL1 DCW 000 Z 3 0847 1583 8331 62 16 LAST DCW 000 Z 3 0850 1583 8332 62 17 STORE DCW 000 Z 3 0853 1583 8333 62 18 SAUCE DCW 000 Z 3 0856 1583 8334 62 19 DIFF DCW 000 Z 3 0859 1584 8335 62 20 ADDIN DCW 000 Z 3 0862 1584 8336 62 21 INTNO DCW 000 Z 3 0865 1584 8337 62 22 FROMX EQU SAUCE Z 0856 8338 62 23 WKBK1 DCW 00000 Z 5 0870 1584 8339 62 24 WKBK2 DCW 00000 Z 5 0875 1584 8340 62 25 AREA1 DCW 00000 Z 5 0880 1584 8341 62 26 ADRES EQU BSAUCE Z 0148 8342 62 27 TBL2 DCW 000 Z 3 0883 1584 8343 62 28 TEST1 DCW 0 Z 1 0884 1585 8344 62 29 ZONE DCW 99 Z 2 0886 1585 8345 62 30 HOLD DCW @ @ Z 5 0891 1585 8346 62 31 CNVRT DCW @ @ Z 5 0896 1585 8347 62 32 TABLE DCW 9 Z 1 0897 1585 8348 62 33 DC 9 Z 1 0898 1585 8349 62 34 DCW @Z9@ Z 2 0900 1585 8350 62 35 DCW @R9@ Z 2 0902 1585 8351 62 36 DCW @I9@ Z 2 0904 1586 8352 62 37 DCW @9Z@ Z 2 0906 1586 8353 62 38 DCW @ZZ@ Z 2 0908 1586 8354 62 39 DCW @RZ@ Z 2 0910 1586 8355 62 40 DCW @IZ@ Z 2 0912 1586 8356 62 41 DCW @9R@ Z 2 0914 1586 8357 62 42 DCW @ZR@ Z 2 0916 1586 8358 62 43 DCW @RR@ Z 2 0918 1587 8359 62 44 DCW @IR@ Z 2 0920 1587 8360 62 45 DCW @9I@ Z 2 0922 1587 8361 62 46 DCW @ZI@ Z 2 0924 1587 8362 62 47 DCW @RI@ Z 2 0926 1587 8363 62 48 DCW @II@ Z 2 0928 1587 8364 62 49 K5TOK3 SBR CMBCK&3 CONVERT FIVE DIGIT NUMBER Z 4 0929 H 968 1587 8365 62 50 ZA CNVRT-3,X1 TO THREE DIGIT ADRES Z 7 0933 ? 893 089 1588 8366 62 51 MZ @ @,X1 BLANK Z 7 0940 Y /26 089 1588 8367 62 52 A X1 Z 4 0947 A 089 1588 8368 62 53 MZ TABLE&X1,CNVRT-2 Z 7 0951 Y 8Z7 894 1588 1 1401 FORTRAN RESORT PHASE ONE 50473 PAGE 206 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8369 62 54 MZ TABLE&1&X1,CNVRT Z 7 0958 Y 8Z8 896 1588 8370 62 55 CMBCK B 0000 Z 4 0965 B 000 1588 8371 62 56 EXPND SBR CZONE&10 CONVERT THREE DIGIT ADRES Z 4 0969 H |24 1589 8372 62 57 MLC @ @,HOLD TO FIVE DIGIT NUMBER Z 7 0973 M /31 891 1589 8373 62 58 MN CNVRT,HOLD Z 7 0980 D 896 891 1589 8374 63 59 MN Z 1 0987 D 1589 8375 62 60 MN Z 1 0988 D 1589 8376 62 61 MZ CNVRT,ZONE Z 7 0989 Y 896 886 1589 8377 62 62 MZ CNVRT-2,ZONE-1 Z 7 0996 Y 894 885 1589 8378 62 63 MLC &TABLE&1,CZONE&6 Z 7 1003 M /34 |20 1590 8379 62 64 S CNVRT Z 4 1010 S 896 1590 8380 62 65 CZONE C ZONE,000 Z 7 1014 C 886 000 1590 8381 62 66 BE 000 Z 5 1021 B 000 S 1590 8382 62 67 A @1@,HOLD-3 Z 7 1026 A /35 888 1590 8383 62 68 SW CZONE&4 Z 4 1033 , |18 1590 8384 62 69 A @002@,CZONE&6 Z 7 1037 A /38 |20 1591 8385 62 70 CW CZONE&4 Z 4 1044 ) |18 1591 8386 62 71 B CZONE Z 4 1048 B |14 1591 8387 62 72 IMVUP SBR HERE&3 Z 4 1052 H |91 1591 8388 62 73 MN 0&X3 Z 4 1056 D 0?0 1591 8389 62 74 SAR X3 Z 4 1060 Q 099 1591 8390 62 75 REMCK MCM 1&X3 Z 4 1064 P 0?1 1591 8391 62 76 MN Z 1 1068 D 1592 8392 62 77 SBR X3 Z 4 1069 H 099 1592 8393 62 78 BCE REMCK,0&X3,| Z 8 1073 B |64 0?0 | 1592 8394 62 79 SBR X3,1&X3 Z 7 1081 H 099 0?1 1592 8395 62 80 HERE B 0 Z 4 1088 B 000 1592 8396 62 81 ERRMS FQUIT Z MACRO 8397 ERRMS CS 332 Z 4 1092 / 332 GEN 1592 8398 CS Z 1 1096 / GEN 1592 8399 CC 1 Z 2 1097 F 1 GEN 1593 8400 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 Z 7 1099 M /74 270 GEN 1593 8401 W Z 1 1106 2 GEN 1593 8402 CC 1 Z 2 1107 F 1 GEN 1593 8403 BCE *&6,MONTOR,1 Z 8 1109 B /22 769 1 GEN 1593 8404 RWD 1 Z 5 1117 U %U1 R GEN 1593 8405 H *-3 Z 4 1122 . /22 GEN 1593 8406 62 82 LTORG * Z 1126 DCW @ @ Z 1 1126 LIT 1594 DCW @ @ Z 5 1131 LIT 1594 DCW &TABLEZ&1 Z 3 1134 898 ADCON 1594 DCW @1@ Z 1 1135 LIT 1594 DCW @002@ Z 3 1138 LIT 1594 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ Z 36 1174 LIT 1595 8407 62 83 BEGIN SBR SAUCE,0&X3 Z 7 1175 H 856 0?0 1596 8408 62 84 SBR X1,END Z 7 1182 H 089 M99 1596 8409 62 85 SBR TBL1 EQUIV TO ONE BELOW TBL1 Z 4 1189 H 847 1596 8410 62 86 MLC INTST,TMS3&6 Z 7 1193 M 183 S13 1596 8411 62 87 MZ @Z@,TMS3&5 Z 7 1200 Y V23 S12 1596 8412 62 88 TMS3 SBR X1,0 Z 7 1207 H 089 000 1596 1 1401 FORTRAN RESORT PHASE ONE 50473 PAGE 207 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8413 62 89 A @1@,THREE Z 7 1214 A V24 838 1597 8414 62 90 C THREE,@3@ Z 7 1221 C 838 V25 1597 8415 62 91 BH TMS3 Z 5 1228 B S07 U 1597 8416 62 92 SBR COUNT,0&X1 Z 7 1233 H 841 0|0 1597 8417 62 93 SBR TBL2,1&X1 STARTING ADRES OF TBL2 Z 7 1240 H 883 0|1 1597 8418 62 94 MLC @ @,THREE Z 7 1247 M V26 838 1598 8419 62 95 BCE *&5,GNSTM, DO GEN STMNTS EXIST, TST BLANK Z 8 1254 B S66 151 1598 8420 62 96 B *&27 Z 4 1262 B S92 1598 8421 62 97 SBR ADDIN,1&X1 Z 7 1266 H 862 0|1 1598 8422 62 98 SBR CNVRT Z 4 1273 H 896 1598 8423 62 99 B EXPND Z 4 1277 B 969 1598 8424 63 00 MLC HOLD,WKBK1 Z 7 1281 M 891 870 1599 8425 63 01 B ROOM Z 4 1288 B T61 1599 8426 63 02 MLC GNSTM,WKBK2 STARTING ADRES OF TBL2 Z 7 1292 M 151 875 1599 8427 63 03 A WKBK2 MULTIPLY BY SIX Z 4 1299 A 875 1599 8428 63 04 A WKBK2 Z 4 1303 A 875 1599 8429 63 05 A GNSTM Z 4 1307 A 151 1599 8430 63 06 A GNSTM,WKBK2 Z 7 1311 A 151 875 1599 8431 63 07 SBR CNVRT,1&X1 Z 7 1318 H 896 0|1 1600 8432 63 08 B EXPND Z 4 1325 B 969 1600 8433 63 09 MLC HOLD,WKBK1 Z 7 1329 M 891 870 1600 8434 63 10 A WKBK2,WKBK1 Z 7 1336 A 875 870 1600 8435 63 11 MLC WKBK1,CNVRT Z 7 1343 M 870 896 1600 8436 63 12 B K5TOK3 Z 4 1350 B 929 1600 8437 63 13 MLC CNVRT,ADDIN ONE POS ABOVE TBL2 Z 7 1354 M 896 862 1601 8438 63 14 ROOM MLC SAUCE,CNVRT Z 7 1361 M 856 896 1601 8439 63 15 B EXPND Z 4 1368 B 969 1601 8440 63 16 MLC HOLD,AREA1 Z 7 1372 M 891 880 1601 8441 63 17 C WKBK1,AREA1 Z 7 1379 C 870 880 1601 8442 63 18 BH *&5 Z 5 1386 B T95 U 1601 8443 63 19 B ERRMS Z 4 1391 B |92 1602 8444 63 20 MESSG @STARTING ADDRESS OF STATEMENTS@,43,1,K Z MACRO 8445 CC 1 Z 2 1395 F 1 GEN 1602 8446 CS 332 Z 4 1397 / 332 GEN 1602 8447 CS Z 1 1401 / GEN 1602 8448 MCW @STARTING ADDRESS OF STATEMENTS@,43&200 Z 7 1402 M V56 243 GEN 1602 8449 W Z 1 1409 2 GEN 1602 8450 CC K Z 2 1410 F K GEN 1602 8451 63 21 CS 332 Z 4 1412 / 332 1603 8452 63 22 CS Z 1 1416 / 1603 8453 63 23 MCW @SEQ@,208 Z 7 1417 M V59 208 1603 8454 63 24 MCW @STARTING ADDRESS@,242 Z 7 1424 M V75 242 1603 8455 63 25 MCW @DISPLAY@,256 Z 7 1431 M V82 256 1603 8456 63 26 W Z 1 1438 2 1603 8457 63 27 CC J Z 2 1439 F J 1603 8458 63 28 CS 332 Z 4 1441 / 332 1604 8459 63 29 CS Z 1 1445 / 1604 8460 63 30 LCA @000@,208 Z 7 1446 L V85 208 1604 8461 63 31 MLC FROMX,X1 Z 7 1453 M 856 089 1604 8462 63 32 SBR X1,2&X1 GMWM1&1 TOP Z 7 1460 H 089 0|2 1604 1 1401 FORTRAN RESORT PHASE ONE 50473 PAGE 208 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8463 63 33 SBR X3 Z 4 1467 H 099 1604 8464 63 34 B IMVUP Z 4 1471 B |52 1604 8465 63 35 MLC X3,X2 Z 7 1475 M 099 094 1605 8466 63 36 FENDX C,,,BEGIN,BEGIN,BEGIN,SYS1,RESORT 2 Z MACRO 8467 BSS 333,C Z 5 1482 B 333 C GEN 1605 8468 SBR INITAP&6,BEGIN Z 7 1487 H 786 /75 GEN 1605 8469 SBR BCLEAR Z 4 1494 H 833 GEN 1605 8470 SBR INITXT&3,BEGIN Z 7 1498 H 796 /75 GEN 1605 8471 SBR TCLEAR,SYS1 Z 7 1505 H 710 V94 GEN 1605 8472 LCA @RESORT 2@,110 Z 7 1512 L V93 110 GEN 1606 8473 B MONTER Z 4 1519 B 700 GEN 1606 8474 63 37 LTORG * Z 1523 DCW @Z@ Z 1 1523 LIT 1606 DCW @1@ Z 1 1524 LIT 1606 DCW @3@ Z 1 1525 LIT 1606 DCW @ @ Z 1 1526 LIT 1606 DCW @STARTING ADDRESS OF STATEMENTS@ Z 30 1556 LIT 1607 DCW @SEQ@ Z 3 1559 LIT 1607 DCW @STARTING ADDRESS@ Z 16 1575 LIT 1608 DCW @DISPLAY@ Z 7 1582 LIT 1608 DCW @000@ Z 3 1585 LIT 1608 DCW @RESORT 2@ Z 8 1593 LIT 1608 8475 63 38 SYS1 DCW @}@ SYSTEM GROUP MARK Z 1 1594 GMARK 1608 8476 63 39 XFR BEGIN Z B /75 1609 1 1401 FORTRAN RESORT PHASE TWO 50483 PAGE 209 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8477 63 40 JOB 1401 FORTRAN RESORT PHASE TWO Z 8478 63 41 ORG BEGIN Z 1175 8479 63 42 110 DC 2 Z 1 0110 1612 8480 63 43 MLC TBL2,X3 ADRES OF TBL2 IN X3 Z 7 1175 M 883 099 1613 8481 63 44 B SAVE Z 4 1182 B S25 1613 8482 63 45 INIT SBR X2,2&X2 Z 7 1186 H 094 0!2 1613 8483 63 46 MZ X3,ASIDE Z 7 1193 Y 099 844 1613 8484 63 47 MLC X2,X3 Z 7 1200 M 094 099 1613 8485 62 48 B IMVUP Z 4 1207 B |52 1613 8486 62 49 MLC X3,X2 POS GMWM2&1 IN X2 Z 7 1211 M 099 094 1614 8487 62 50 MLC ASIDE,X3 Z 7 1218 M 844 099 1614 8488 63 51 SAVE SBR STORE,2&X2 POS GMWM3-1 IN STORE Z 7 1225 H 853 0!2 1614 8489 63 52 BWZ *&5,0&X2,2 ZONE IN HUNS POS OF INT NO Z 8 1232 V S44 0!0 2 1614 8490 63 53 B *&9 Z 4 1240 B S52 1614 8491 63 54 BWZ CNTNU,2&X2,2 TST FOR ZN IN UNTS POS OF INT NO Z 8 1244 V S70 0!2 2 1615 8492 63 55 MLC 2&X2,X2 PCKUP INTNO FROM TBL PUT IN X2 Z 7 1252 M 0!2 094 1615 8493 63 56 MLC 0&X2,X2 Z 7 1259 M 0!0 094 1615 8494 63 57 B *&8 Z 4 1266 B S77 1615 8495 63 58 CNTNU MLC 2&X2,X2 PLACE INTNO IN X2 Z 7 1270 M 0!2 094 1615 8496 63 59 SBR INTNO,0&X2 Z 7 1277 H 865 0!0 1616 8497 63 60 SBR MLPLY&6 Z 4 1284 H T01 1616 8498 63 61 MZ @R@,MLPLY&5 Z 7 1288 Y W55 T00 1616 8499 63 62 MLPLY SBR X2,0 Z 7 1295 H 094 000 1616 8500 63 63 MLC INTNO,*&14 Z 7 1302 M 865 T22 1616 8501 63 64 MZ @R@,*&6 Z 7 1309 Y W55 T21 1616 8502 63 65 SBR X2,0 Z 7 1316 H 094 000 1617 8503 63 66 C TABEL&X2,@ @ TEST FOR FILLED TABLE-BLANKS Z 7 1323 C MR9 W58 1617 8504 63 67 BU GNTBL Z 5 1330 B T46 / 1617 8505 63 68 MLC X1,TABEL&X2 HI ORD POS OF INST IN TBL1 Z 7 1335 M 089 MR9 1617 8506 63 69 B SETX1 Z 4 1342 B T96 1617 8507 63 70 GNTBL SW 3&X3 Z 4 1346 , 0?3 1617 8508 63 71 MLC TABEL&X2,5&X3 GEN BRANCH SECOND IN TBL2 Z 7 1350 M MR9 0?5 1618 8509 63 72 CW 3&X3 Z 4 1357 ) 0?3 1618 8510 63 73 MLC X1,2&X3 ORIG INST FIRST IN TBL2 Z 7 1361 M 089 0?2 1618 8511 63 74 MLC @1@,TEST1 SWTCH FOR REPLC TBL Z 7 1368 M W59 884 1618 8512 63 75 SBR TABEL&X2,2&X3 LOW ORDER POS OF ENTRY1, TBL2 Z 7 1375 H MR9 0?2 1618 8513 63 76 MZ @Z@,TABEL-1&X2 A ZONE IN TENS POS OF TBL1 Z 7 1382 Y W60 MR8 1618 8514 63 77 SBR X3,6&X3 Z 7 1389 H 099 0?6 1619 8515 63 78 SETX1 MLC STORE,X2 Z 7 1396 M 853 094 1619 8516 63 79 C ADRES,STORE Z 7 1403 C 148 853 1619 8517 63 80 BU RESET Z 5 1410 B V90 / 1619 8518 63 81 BCE CTOAL,TEST1,0 Z 8 1415 B U48 884 0 1619 8519 63 82 MLC @0@,TEST1 Z 7 1423 M W61 884 1620 8520 63 83 MLC X1,X3 Z 7 1430 M 089 099 1620 8521 63 84 B IMVUP Z 4 1437 B |52 1620 8522 63 85 MZ @Z@,1&X3 Z 7 1441 Y W60 0?1 1620 8523 63 86 CTOAL MLC ADDIN,X2 Z 7 1448 M 862 094 1620 8524 63 87 LCA @:@,0&X2 5-8 WITH WM ABOVE PROGRAM Z 7 1455 L W62 0!0 1620 8525 63 88 MLC TBL1,X3 ADRES ONE POS ABOVE TABLE 1 Z 7 1462 M 847 099 1621 8526 63 89 SBR X3,3&X3 Z 7 1469 H 099 0?3 1621 1 1401 FORTRAN RESORT PHASE TWO 50483 PAGE 210 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8527 63 90 MLC 86,CNVRT TRUE STARTING ADRES Z 7 1476 M 086 896 1621 8528 63 91 B EXPND Z 4 1483 B 969 1621 8529 63 92 MLC HOLD,WKBK1 Z 7 1487 M 891 870 1621 8530 63 93 SBR CNVRT,0&X2 Z 7 1494 H 896 0!0 1621 8531 63 94 B EXPND Z 4 1501 B 969 1622 8532 63 95 MLC HOLD,WKBK2 Z 7 1505 M 891 875 1622 8533 63 96 S WKBK2,WKBK1 Z 7 1512 S 875 870 1622 8534 63 97 BWZ *&5,WKBK1,K IS DIFF NEG Z 8 1519 V V31 870 K 1622 8535 63 98 B *&8 Z 4 1527 B V38 1622 8536 63 99 A @16000@,WKBK1 Z 7 1531 A W67 870 1622 8537 64 00 MLC WKBK1,CNVRT Z 7 1538 M 870 896 1623 8538 64 01 B K5TOK3 Z 4 1545 B 929 1623 8539 64 02 MLC CNVRT,DIFF DIFF BET ACT AND FIXED ADRES Z 7 1549 M 896 859 1623 8540 64 03 SBR X2,1&X2 HIGH ORD ADRES OF SORTED PROGRAM Z 7 1556 H 094 0!1 1623 8541 64 04 SBR INTST Z 4 1563 H 183 1623 8542 64 05 FENDX C,,,,,,SYS2,RESORT 3 Z MACRO 8543 BSS 333,C Z 5 1567 B 333 C GEN 1623 8544 SBR TCLEAR,SYS2 Z 7 1572 H 710 W76 GEN 1624 8545 LCA @RESORT 3@,110 Z 7 1579 L W75 110 GEN 1624 8546 B MONTER Z 4 1586 B 700 GEN 1624 8547 64 06 RESET MLC X3,ASIDE Z 7 1590 M 099 844 1624 8548 64 07 MLC X1,X3 Z 7 1597 M 089 099 1624 8549 64 08 B IMVUP SET X1 TO GMWM1&1 OF NXT INSTR Z 4 1604 B |52 1624 8550 64 09 MLC X3,X1 Z 7 1608 M 099 089 1625 8551 64 10 MLC ASIDE,X3 Z 7 1615 M 844 099 1625 8552 64 11 BCE *&15,TEST1,0 Z 8 1622 B W44 884 0 1625 8553 64 12 MLC @0@,TEST1 Z 7 1630 M W61 884 1625 8554 64 13 MZ @Z@,1&X1 Z 7 1637 Y W60 0|1 1625 8555 64 14 SBR X1,4&X1 Z 7 1644 H 089 0|4 1626 8556 64 15 B INIT Z 4 1651 B /86 1626 8557 64 16 LTORG * Z 1655 DCW @R@ Z 1 1655 LIT 1626 DCW @ @ Z 3 1658 LIT 1626 DCW @1@ Z 1 1659 LIT 1626 DCW @Z@ Z 1 1660 LIT 1626 DCW @0@ Z 1 1661 LIT 1626 DCW @:@ Z 1 1662 LIT 1627 DCW @16000@ Z 5 1667 LIT 1627 DCW @RESORT 3@ Z 8 1675 LIT 1627 8558 64 17 SYS2 DCW @}@ SYSTEM GROUP MARK Z 1 1676 GMARK 1627 8559 64 18 XFR BEGIN Z B /75 1628 1 1401 FORTRAN RESORT PHASE THREE 50493 PAGE 211 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8560 64 19 JOB 1401 FORTRAN RESORT PHASE THREE Z 8561 64 20 ORG BEGIN Z 1175 8562 64 21 110 DC @3@ Z 1 0110 1631 8563 64 22 SW GMWM Z 4 1175 , M60 1632 8564 64 23 B NEXT&7 Z 4 1179 B /90 1632 8565 64 24 NEXT SBR X3,0 RE-INIT X3 Z 7 1183 H 099 000 1632 8566 64 25 SBR LAST Z 4 1190 H 850 1632 8567 64 26 BCE ADONE,0&X3, TST FOR BLANKS IN TBL Z 8 1194 B Z22 0?0 1632 8568 64 27 SBR NEXT&6,3&X3 Z 7 1202 H /89 0?3 1632 8569 64 28 MN 0&X3 Z 4 1209 D 0?0 1632 8570 64 29 SAR *&7 Z 4 1213 Q S23 1633 8571 64 30 BWZ CASE2,0,S A ZONE IN TENS POS OF TBL1 Z 8 1217 V Y18 000 S 1633 8572 64 31 MLC 0&X3,X1 PLACE HI ORD POS OF INST IN X1 Z 7 1225 M 0?0 089 1633 8573 64 32 SBR ADDIN,0&X3 Z 7 1232 H 862 0?0 1633 8574 64 33 MLC X1,PREP1#3 SAVE X1 Z 7 1239 M 089 M39 1633 8575 64 34 SPACE MLC X1,X3 Z 7 1246 M 089 099 1634 8576 64 35 B IMVUP Z 4 1253 B |52 1634 8577 64 36 MLC X3,CNVRT Z 7 1257 M 099 896 1634 8578 64 37 B EXPND Z 4 1264 B 969 1634 8579 64 38 MLC HOLD,AREA1 Z 7 1268 M 891 880 1634 8580 64 39 A @1@,AREA1 Z 7 1275 A M40 880 1634 8581 64 40 MLC PREP1,CNVRT Z 7 1282 M M39 896 1635 8582 64 41 B EXPND Z 4 1289 B 969 1635 8583 64 42 MLC HOLD,AREA2 Z 7 1293 M 891 M34 1635 8584 64 43 S AREA2,AREA1 LNGTH OF NXT INST TO BE MOVED Z 7 1300 S M34 880 1635 8585 64 44 MLC X2,CNVRT NXT AVAIL POS IN SORTED AREA Z 7 1307 M 094 896 1635 8586 64 45 B EXPND Z 4 1314 B 969 1635 8587 64 46 MLC HOLD,WKBK1 Z 7 1318 M 891 870 1636 8588 64 47 B NUFRM Z 4 1325 B Y82 1636 8589 64 48 BL SQUEZ Z 5 1329 B Z63 T 1636 8590 64 49 LIST MLC PREP1,X1 Z 7 1334 M M39 089 1636 8591 64 50 BCE *&12,TEST2,1 PRINT STMT NO, HI ORD ADRES Z 8 1341 B T60 M35 1 1636 8592 64 51 A @1@,208 Z 7 1349 A M40 208 1636 8593 64 52 B ADDR1 Z 4 1356 B V27 1637 8594 64 53 MLC @0@,TEST2 RESET INDICATOR Z 7 1360 M M41 M35 1637 8595 64 54 MLC X3,GARY&6 Z 7 1367 M 099 V26 1637 8596 64 55 MCW 3&X1,X3 Z 7 1374 M 0|3 099 1637 8597 64 56 MCW 0&X3,X3 Z 7 1381 M 0?0 099 1637 8598 64 57 SBR 3&X1,4&X3 Z 7 1388 H 0|3 0?4 1637 8599 64 58 MA DIFF,3&X1 Z 7 1395 # 859 0|3 1638 8600 64 59 MCW X1,HEX1#3 Z 7 1402 M 089 M44 1638 8601 64 60 ROUND MZ *-4,9&X3 Z 7 1409 Y U11 0?9 1638 8602 64 61 MZ *-4,12&X3 Z 7 1416 Y U18 0A2 1638 8603 64 62 MZ *-4,15&X3 Z 7 1423 Y U25 0A5 1638 8604 64 63 MZ *-4,18&X3 Z 7 1430 Y U32 0A8 1639 8605 64 64 BCE OUTER,22&X3, BLANK Z 8 1437 B U84 0B2 1639 8606 64 65 MCW 22&X3,X1 Z 7 1445 M 0B2 089 1639 8607 64 66 MCW 0&X1,22&X3 Z 7 1452 M 0|0 0B2 1639 8608 64 67 MA @004@,22&X3 Z 7 1459 # M47 0B2 1639 8609 64 68 MA DIFF,22&X3 Z 7 1466 # 859 0B2 1640 1 1401 FORTRAN RESORT PHASE THREE 50493 PAGE 212 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8610 64 69 MCW 0&X1,X3 Z 7 1473 M 0|0 099 1640 8611 64 70 B ROUND Z 4 1480 B U09 1640 8612 64 71 OUTER SBR 22&X3,4&X2 Z 7 1484 H 0B2 0!4 1640 8613 64 72 MA DIFF,22&X3 Z 7 1491 # 859 0B2 1640 8614 64 73 MCW HEX1,X1 Z 7 1498 M M44 089 1640 8615 64 74 BCE *&8,0&X1,B Z 8 1505 B V20 0|0 B 1641 8616 64 75 SBR 3&X1,DOADR3 Z 7 1513 H 0|3 918 1641 8617 64 76 GARY SBR X3,0 Z 7 1520 H 099 000 1641 8618 64 77 ADDR1 MCW DIFF,227 Z 7 1527 M 859 227 1641 8619 64 78 MA X2,227 Z 7 1534 # 094 227 1641 8620 64 79 MCW 227,X3 Z 7 1541 M 227 099 1642 8621 64 80 MCW X3,CNVRT Z 7 1548 M 099 896 1642 8622 64 81 B EXPND Z 4 1555 B 969 1642 8623 64 82 MCS HOLD,244 Z 7 1559 Z 891 244 1642 8624 64 83 MCW X3,256 Z 7 1566 M 099 256 1642 8625 64 84 MA @004@,256 Z 7 1573 # M47 256 1642 8626 64 85 W Z 1 1580 2 1643 8627 64 86 FORMS Z MACRO 8628 BCV *&5 Z 5 1581 B V90 @ GEN 1643 8629 B *&3 Z 4 1586 B V92 GEN 1643 8630 CC 1 Z 2 1590 F 1 GEN 1643 8631 65 87 MLC X2,SYMBL-1 Z 7 1592 M 094 W93 1643 8632 64 88 BCE CNTU2,0&X1,} DUZ STMNT EXIST 12-7-8 Z 8 1599 B W46 0|0 } GMARK 1643 8633 64 89 MN 0&X2 MOVE STATEMENT Z 4 1607 D 0!0 1643 8634 64 90 SAR X2 Z 4 1611 Q 094 1644 8635 64 91 CTNMV MCM 0&X1 Z 4 1615 P 0|0 1644 8636 64 92 SAR STRX1&6 Z 4 1619 Q W41 1644 8637 64 93 MCM 0&X1,1&X2 Z 7 1623 P 0|0 0!1 1644 8638 64 94 MN Z 1 1630 D 1644 8639 64 95 SBR X2 Z 4 1631 H 094 1644 8640 64 96 STRX1 SBR X1,0 Z 7 1635 H 089 000 1644 8641 64 971 B *&15 V3M4 Z 4 1642 B W60 1645 8642 64 972 CNTU2 SBR X1,1&X1 V3M4 Z 7 1646 H 089 0|1 1645 8643 64 973 MLC @B@,SYMBL&7 V3M4 Z 7 1653 M M48 X01 1645 8644 64 98 BWZ *&5,0&X1,2 DUZ REPLC TBL NEED UPDATING Z 8 1660 V W72 0|0 2 1645 8645 64 99 B CHNGE Z 4 1668 B W80 1645 8646 65 00 BWZ SYMBL,2&X1,2 Z 8 1672 V W94 0|2 2 1645 8647 65 04 CHNGE MLC 2&X1,X3 UPDATE REPLC TABLE Z 7 1680 M 0|2 099 1646 8648 65 05 SBR 0&X3,0 Z 7 1687 H 0?0 000 1646 8649 65 06 SYMBL MLC @:@,0&X1 MV SYMB INTO STMNT 5-8 Z 7 1694 M M49 0|0 1646 8650 65 07 NOP BOTOM SKIP TRAWM FOR NO STMNT Z 4 1701 N X53 1646 8651 65 08 MN 0&X1 Z 4 1705 D 0|0 1646 8652 65 09 MN Z 1 1709 D 1646 8653 65 10 SAR X1 GMWM2-1 OF STMNT JUST MOVED Z 4 1710 Q 089 1646 8654 65 11 MN 0&X2 Z 4 1714 D 0!0 1647 8655 65 12 SAR TRAWM&6 Z 4 1718 Q X28 1647 8656 65 13 TRAWM LCA 0&X1,0&X2 TRANSFER WORD MARKS Z 7 1722 L 0|0 0!0 1647 8657 65 14 SBR TRAWM&6 Z 4 1729 H X28 1647 8658 65 15 C 0&X1 Z 4 1733 C 0|0 1647 8659 65 16 SAR X1 Z 4 1737 Q 089 1647 1 1401 FORTRAN RESORT PHASE THREE 50493 PAGE 213 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8660 65 17 BCE *&5,0&X1,} 12-7-8 Z 8 1741 B X53 0|0 } GMARK 1647 8661 65 18 B TRAWM Z 4 1749 B X22 1648 8662 65 19 BOTOM MLC @N@,SYMBL&7 RE-INIT NOP BRANCH Z 7 1753 M M50 X01 1648 8663 65 20 C LAST,COUNT Z 7 1760 C 850 841 1648 8664 65 21 BU TSTCS Z 5 1767 B Y06 / 1648 8665 65 22 LDSYM LCA @:@,0&X2 5-8 Z 7 1772 L M49 0!0 1648 8666 65 23 SBR X3 Z 4 1779 H 099 1648 8667 65 24 FENDX C,,,,,,SYSGM,RESORT 4 Z MACRO 8668 BSS 333,C Z 5 1783 B 333 C GEN 1648 8669 SBR TCLEAR,SYSGM Z 7 1788 H 710 M61 GEN 1649 8670 LCA @RESORT 4@,110 Z 7 1795 L M58 110 GEN 1649 8671 B MONTER Z 4 1802 B 700 GEN 1649 8672 65 25 TSTCS BCE PART2,TEST1,1 TST FOR 2ND PART OF GEN INT NO Z 8 1806 B Y50 884 1 1649 8673 65 26 B NEXT SORT NEXT STATEMENT Z 4 1814 B /83 1649 8674 65 27 CASE2 MLC 0&X3,X3 LOW ORD ADRES OF TBL2 Z 7 1818 M 0?0 099 1649 8675 65 28 MLC 0&X3,X1 Z 7 1825 M 0?0 089 1650 8676 65 29 SBR PART2&10,3&X3 Z 7 1832 H Y60 0?3 1650 8677 65 30 MLC @1@,TEST1 Z 7 1839 M M40 884 1650 8678 65 31 B SPACE-14 Z 4 1846 B S32 1650 8679 65 32 PART2 MLC @0@,TEST1 RESET INDICATOR Z 7 1850 M M41 884 1650 8680 65 33 MLC 0,X1 Z 7 1857 M 000 089 1650 8681 65 34 MLC PART2&10,ADDIN PREPX3 FOR WMTST Z 7 1864 M Y60 862 1651 8682 65 35 MLC @1@,TEST2 Z 7 1871 M M40 M35 1651 8683 65 36 B SPACE-7 Z 4 1878 B S39 1651 8684 65 37 NUFRM SBR STREG&3 Z 4 1882 H Z21 1651 8685 65 38 MLC FROMX,CNVRT Z 7 1886 M 856 896 1651 8686 65 39 B EXPND Z 4 1893 B 969 1651 8687 65 40 MLC HOLD,WKBK2 Z 7 1897 M 891 875 1652 8688 65 41 S WKBK1,WKBK2 SPACE AVAIL FOR NXT INST Z 7 1904 S 870 875 1652 8689 65 42 C AREA1,WKBK2 Z 7 1911 C 880 875 1652 8690 65 43 STREG B 0 Z 4 1918 B 000 1652 8691 65 44 ADONE A @1@,208 ADD 1 FOR VANISHED STMNT Z 7 1922 A M40 208 1652 8692 65 45 C LAST,COUNT Z 7 1929 C 850 841 1652 8693 65 46 BE LDSYM Z 5 1936 B X72 S 1653 8694 65 47 SBR X3,3&X3 Z 7 1941 H 099 0?3 1653 8695 65 48 SBR LAST Z 4 1948 H 850 1653 8696 65 49 B NEXT&11 Z 4 1952 B /94 1653 8697 65 50 FIXIT SBR FROMX,2&X3 NEW GMWM1-1 IF HI ORD STMNT Z 7 1956 H 856 0?2 1653 8698 65 51 SQUEZ MLC FROMX,X3 GMWM1-1 OR HIORD STMNT Z 7 1963 M 856 099 1653 8699 65 52 SBR X3,2&X3 GMWM1&1 OF HI ORD STMNT Z 7 1970 H 099 0?2 1654 8700 65 53 B IMVUP Z 4 1977 B |52 1654 8701 65 54 BCE FIXIT,0&X3,: TST FOR USED HI ORD STMNTS 5-8 Z 8 1981 B Z56 0?0 : 1654 8702 65 55 B NUFRM Z 4 1989 B Y82 1654 8703 65 56 BL LOOP-7 Z 5 1993 B !02 T 1654 8704 65 57 B LIST Z 4 1998 B T34 1654 8705 65 58 SBR SAVE1&6,0&X2 Z 7 2002 H M11 0!0 1654 8706 65 59 LOOP C X3,PARAMA&2 Z 7 2009 C 099 688 1655 8707 65 60 BE LOPP Z 5 2016 B !36 S 1655 8708 65 61 SBR X1,3&X3 SAVE GMWM3 Z 7 2021 H 089 0?3 1655 8709 65 62 BCE MVAGN-7,0&X1,} 12-7-8 Z 8 2028 B !49 0|0 } GMARK 1655 1 1401 FORTRAN RESORT PHASE THREE 50493 PAGE 214 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8710 65 63 LOPP B NUFRM Z 4 2036 B Y82 1655 8711 65 64 BL ERRMS Z 5 2040 B |92 T 1655 8712 65 65 B SAVE1 Z 4 2045 B M05 1656 8713 65 66 SBR X3,4&X3 Z 7 2049 H 099 0?4 1656 8714 65 67 MVAGN B IMVUP Z 4 2056 B |52 1656 8715 65 68 C 0&X3,@:@ SEARCH FOR USED STMNT 5-8 Z 7 2060 C 0?0 M49 1656 8716 65 69 BU LOOP Z 5 2067 B !09 / 1656 8717 65 70 SBR HOLD2&6,0&X3 Z 7 2072 H J38 0?0 1656 8718 65 71 SBR STORE,2&X3 Z 7 2079 H 853 0?2 1657 8719 65 72 SBR X3,3&X3 TOX ADRES IN X3 Z 7 2086 H 099 0?3 1657 8720 65 73 MVDWN LCA 0&X1,0&X3 OVERLAY USED STMNTS Z 7 2093 L 0|0 0?0 1657 8721 65 74 SAR X1 Z 4 2100 Q 089 1657 8722 65 75 C 0&X3 Z 4 2104 C 0?0 1657 8723 65 76 SAR X3 Z 4 2108 Q 099 1657 8724 65 77 BCE *&5,0&X1,} 12-7-8 Z 8 2112 B J24 0|0 } GMARK 1658 8725 65 78 B MVDWN Z 4 2120 B !93 1658 8726 65 79 MN 0&X1 Z 4 2124 D 0|0 1658 8727 65 80 SAR ASIDE Z 4 2128 Q 844 1658 8728 65 81 HOLD2 SBR X1,0 Z 7 2132 H 089 000 1658 8729 65 82 BWZ *&5,1&X1,S A ZONE IN TENS POS OF INST Z 8 2139 V J51 0|1 S 1658 8730 65 83 B *&8 Z 4 2147 B J58 1658 8731 65 84 MLC @1@,TEST3 Z 7 2151 M M40 M36 1659 8732 65 85 BWZ *&5,0&X1,2 TST FOR ZN IN INTNO ST JUST MOVED Z 8 2158 V J70 0|0 2 1659 8733 65 86 B *&9 Z 4 2166 B J78 1659 8734 65 87 BWZ UPDAT,2&X1,2 TST FOR ZN IN UNITS POS Z 8 2170 V J96 0|2 2 1659 8735 65 88 MLC 2&X1,X1 ADRES OF INT NO Z 7 2178 M 0|2 089 1659 8736 65 89 MLC 0&X1,X2 INT NO IN X2 Z 7 2185 M 0|0 094 1660 8737 65 90 B *&8 Z 4 2192 B K03 1660 8738 65 91 UPDAT MLC 2&X1,X2 INIT NO IN X2 Z 7 2196 M 0|2 094 1660 8739 65 92 SBR INTNO,0&X2 MULT INT NO BY 3 Z 7 2203 H 865 0!0 1660 8740 65 93 SBR MULT&6 Z 4 2210 H K27 1660 8741 65 94 MZ @R@,MULT&5 Z 7 2214 Y M59 K26 1660 8742 65 95 MULT SBR X2,0 Z 7 2221 H 094 000 1661 8743 65 96 MLC INTNO,*&14 Z 7 2228 M 865 K48 1661 8744 65 97 MZ @R@,*&6 Z 7 2235 Y M59 K47 1661 8745 65 98 SBR X2,0 ENTRY POS ON TBL1 Z 7 2242 H 094 000 1661 8746 65 99 BWZ ACHCK,TABEL-1&X2,S Z 8 2249 V K68 MR8 S 1661 8747 66 00 SBR TABEL&X2,1&X3 NEW HI ORD POS IN TBL1 Z 7 2257 H MR9 0?1 1662 8748 66 01 B NUPOS&14 Z 4 2264 B L08 1662 8749 66 02 ACHCK MLC TABEL&X2,X1 Z 7 2268 M MR9 089 1662 8750 66 03 BCE NUPOS,TEST3,1 Z 8 2275 B K94 M36 1 1662 8751 66 04 SBR 3&X1,1&X3 NEW HI ORD POS IN TBL2, ENTRY2 Z 7 2283 H 0|3 0?1 1662 8752 66 05 B NUPOS&14 Z 4 2290 B L08 1662 8753 66 06 NUPOS SBR 0&X1,1&X3 NEW HI ORD POS IN TBL2, ENTRY1 Z 7 2294 H 0|0 0?1 1663 8754 66 07 MLC @0@,TEST3 Z 7 2301 M M41 M36 1663 8755 66 08 C ASIDE,FROMX WAS WHOLE TOP MOVED DOWN Z 7 2308 C 844 856 1663 8756 66 09 BE RTNLD Z 5 2315 B L48 S 1663 8757 66 10 MLC ASIDE,X1 Z 7 2320 M 844 089 1663 8758 66 11 MN 0&X3 Z 4 2327 D 0?0 1663 8759 66 12 MN Z 1 2331 D 1663 1 1401 FORTRAN RESORT PHASE THREE 50493 PAGE 215 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8760 66 13 MN Z 1 2332 D 1664 8761 66 14 SAR HOLD2&6 Z 4 2333 Q J38 1664 8762 66 15 SBR X1,1&X1 Z 7 2337 H 089 0|1 1664 8763 66 16 B MVDWN Z 4 2344 B !93 1664 8764 66 17 RTNLD LCA GMWM,0&X3 Z 7 2348 L M60 0?0 1664 8765 66 18 SBR FROMX NEW GMWM1-1 OF HI ORD UNSRT INST Z 4 2355 H 856 1664 8766 66 19 C ADRES,STORE Z 7 2359 C 148 853 1664 8767 66 20 BE FINIS Z 5 2366 B L96 S 1665 8768 66 21 MLC STORE,X3 Z 7 2371 M 853 099 1665 8769 66 22 SBR X1,1&X3 Z 7 2378 H 089 0?1 1665 8770 66 23 SBR X3,2&X3 Z 7 2385 H 099 0?2 1665 8771 66 24 B MVAGN Z 4 2392 B !56 1665 8772 66 25 FINIS B NUFRM Z 4 2396 B Y82 1665 8773 66 26 BL ERRMS Z 5 2400 B |92 T 1665 8774 66 27 SAVE1 SBR X2,0 Z 7 2405 H 094 000 1666 8775 66 28 MLC ADDIN,X3 Z 7 2412 M 862 099 1666 8776 66 29 MLC 0&X3,PREP1 Z 7 2419 M 0?0 M39 1666 8777 66 30 B LIST Z 4 2426 B T34 1666 8778 66 31 AREA2 DCW 00000 Z 5 2434 1666 8779 66 32 TEST2 DCW 0 Z 1 2435 1666 8780 66 33 TEST3 DCW 0 Z 1 2436 1666 8781 66 34 LTORG * Z 2437 PREP1Z DCW #03 Z 3 2439 AREA 1667 DCW @1@ Z 1 2440 LIT 1667 DCW @0@ Z 1 2441 LIT 1667 HEX1 Z DCW #03 Z 3 2444 AREA 1667 DCW @004@ Z 3 2447 LIT 1667 DCW @B@ Z 1 2448 LIT 1667 DCW @:@ Z 1 2449 LIT 1667 DCW @N@ Z 1 2450 LIT 1668 DCW @RESORT 4@ Z 8 2458 LIT 1668 DCW @R@ Z 1 2459 LIT 1668 8782 66 35 GMWM DC @}@ WORK GROUP MK Z 1 2460 GMARK 1668 8783 66 36 SYSGM DCW @}@ SYSTEM GROUP MK Z 1 2461 GMARK 1668 8784 66 37 ORG *&X00 Z 2500 8785 66 38 END EQU * Z 2499 8786 66 39 TABEL EQU END Z 2499 8787 66 40 XFR BEGIN Z B /75 1669 1 1401 FORTRAN RESORT PHASE FOUR 5050A PAGE 216 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8788 66 41 JOB 1401 FORTRAN RESORT PHASE FOUR Z 8789 66 42 ORG BEGIN Z 1175 8790 66 43 110 DC 4 Z 1 0110 1672 8791 66 44 MLC BSAUCE,X1 Z 7 1175 M 148 089 1673 8792 66 45 SBR X1,1&X1 Z 7 1182 H 089 0|1 1673 8793 66 46 C ADTBLL,X1 Z 7 1189 C 145 089 1673 8794 66 47 BE ENDPH Z 5 1196 B S60 S 1673 8795 66 48 CONST SBR X1,3&X1 NXT TBL ENTRY Z 7 1201 H 089 0|3 1673 8796 66 49 MLC 0&X1,X2 CONTRNTS OF TBL IN X2 Z 7 1208 M 0|0 094 1674 8797 66 50 BWZ BYP4,X2-1,2 Z 8 1215 V S34 093 2 1674 8798 66 51 MCW 0&X2,0&X1 Z 7 1223 M 0!0 0|0 1674 8799 66 52 B CMP4 Z 4 1230 B S48 1674 8800 66 53 BYP4 MA DIFF,X2 Z 7 1234 # 859 094 1674 8801 66 54 MCW X2,0&X1 Z 7 1241 M 094 0|0 1675 8802 66 55 CMP4 C X1,ADTBLL Z 7 1248 C 089 145 1675 8803 66 56 BU CONST Z 5 1255 B S01 / 1675 8804 66 57 ENDPH MCW DIFF,X1 Z 7 1260 M 859 089 1675 8805 66 58 MA X3,X1 Z 7 1267 # 099 089 1675 8806 66 59 MCW X1,RTR&6 Z 7 1274 M 089 U69 1676 8807 66 60 SBR CNVRT,0&X3 Z 7 1281 H 896 0?0 1676 8808 66 61 B EXPND Z 4 1288 B 969 1676 8809 66 62 MLC HOLD,WKBK1 Z 7 1292 M 891 870 1676 8810 66 63 MCW HOLD,WKBK3#5 Z 7 1299 M 891 W68 1676 8811 66 64 MLC DIFF,CNVRT Z 7 1306 M 859 896 1676 8812 66 65 B EXPND Z 4 1313 B 969 1677 8813 66 66 A HOLD,WKBK1 Z 7 1317 A 891 870 1677 8814 66 67 C SIXTN,WKBK1 Z 7 1324 C W63 870 1677 8815 66 68 BL *&8 Z 5 1331 B T43 T 1677 8816 66 69 S SIXTN,WKBK1 Z 7 1336 S W63 870 1677 8817 66 70 MLC BSAUCE,CNVRT Z 7 1343 M 148 896 1677 8818 66 71 B EXPND Z 4 1350 B 969 1678 8819 66 72 C HOLD,WKBK1 Z 7 1354 C 891 870 1678 8820 66 73 BH ERRMS Z 5 1361 B |92 U 1678 8821 66 74 MZ X1,TESTA&7 Z 7 1366 Y 089 V77 1678 8822 66 75 MCW X1-2,TESTB&7 Z 7 1373 M 087 V97 1678 8823 66 76 MLC INTST,X2 Z 7 1380 M 183 094 1678 8824 66 77 MA DIFF,INTST Z 7 1387 # 859 183 1679 8825 66 78 C WKBK1,WKBK3 Z 7 1394 C 870 W68 1679 8826 66 79 BH WMTST Z 5 1401 B V14 U 1679 8827 66 80 MVD LCA 0&X3,0&X1 Z 7 1406 L 0?0 0|0 1679 8828 66 81 SAR X3 Z 4 1413 Q 099 1679 8829 66 82 C 0&X1 Z 4 1417 C 0|0 1679 8830 66 83 SAR X1 Z 4 1421 Q 089 1679 8831 66 84 BCE *&5,0&X3,: 5-8 Z 8 1425 B U37 0?0 : 1680 8832 66 85 B MVD Z 4 1433 B U06 1680 8833 66 86 DUN CS 0&X1 Z 4 1437 / 0|0 1680 8834 66 87 SBR X1 Z 4 1441 H 089 1680 8835 66 88 C X1,@W99@ Z 7 1445 C 089 W71 1680 8836 66 89 BU DUN Z 5 1452 B U37 / 1680 8837 66 90 CW 0&X1 Z 4 1457 ) 0|0 1680 1 1401 FORTRAN RESORT PHASE FOUR 5050A PAGE 217 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8838 66 91 CW Z 1 1461 ) 1681 8839 66 92 CW Z 1 1462 ) 1681 8840 66 93 RTR SBR X3,0 Z 7 1463 H 099 000 1681 8841 66 94 SW 0&X1,1&X3 Z 7 1470 , 0|0 0?1 1681 8842 66 95 MLC DIFF,X2 Z 7 1477 M 859 094 1681 8843 66 96 FENDX D,,,,,,GM50A,SHIFT CFL Z MACRO 8844 BSS 333,D Z 5 1484 B 333 D GEN 1681 8845 SBR TCLEAR,GM50A Z 7 1489 H 710 W90 GEN 1681 8846 LCA @SHIFT CFL@,110 Z 7 1496 L W80 110 GEN 1682 8847 B MONTER Z 4 1503 B 700 GEN 1682 8848 66 974 ADD1 MA @001@,X2 V3M4 Z 7 1507 # W83 094 1682 8849 66 98 WMTST BW LDWRD,1&X2 Z 8 1514 V V26 0!1 1 1682 8850 66 99 B ADD1 Z 4 1522 B V07 1682 8851 67 00 LDWRD MLC X2,X1 Z 7 1526 M 094 089 1682 8852 67 01 MA DIFF,X1 Z 7 1533 # 859 089 1683 8853 67 02 LCA 0&X2,0&X1 Z 7 1540 L 0!0 0|0 1683 8854 67 03 C X2,X3 Z 7 1547 C 094 099 1683 8855 67 04 BU ADD1 Z 5 1554 B V07 / 1683 8856 67 05 LCA @ @,2&X3 BLANKS Z 7 1559 L W85 0?2 1683 8857 67 06 CW 1&X3 Z 4 1566 ) 0?1 1683 8858 67 07 TESTA BWZ TESTB,X3,2 Z 8 1570 V V90 099 2 1684 8859 67 08 CS 0&X3 Z 4 1578 / 0?0 1684 8860 67 09 SBR X3 Z 4 1582 H 099 1684 8861 67 10 B TESTA Z 4 1586 B V70 1684 8862 67 11 TESTB BCE TESTC,X3-2,0 Z 8 1590 B W10 097 0 1684 8863 67 12 CS 0&X3 Z 4 1598 / 0?0 1684 8864 67 13 SBR X3 Z 4 1602 H 099 1684 8865 67 14 B TESTB Z 4 1606 B V90 1685 8866 67 15 TESTC C X3,X1 Z 7 1610 C 099 089 1685 8867 67 16 BE FIN1S Z 5 1617 B W41 S 1685 8868 67 17 LCA @ @,0&X3 BLANK Z 7 1622 L W86 0?0 1685 8869 67 18 CW 0&X3 Z 4 1629 ) 0?0 1685 8870 67 19 SBR X3 Z 4 1633 H 099 1685 8871 67 20 B TESTC Z 4 1637 B W10 1685 8872 67 21 FIN1S MCW INTST,X1 Z 7 1641 M 183 089 1686 8873 67 22 MA @I9I@,X1 Z 7 1648 # W89 089 1686 8874 67 23 B DUN Z 4 1655 B U37 1686 8875 67 24 SIXTN DCW @16000@ Z 5 1663 1686 8876 67 25 LTORG * Z 1664 WKBK3Z DCW #05 Z 5 1668 AREA 1686 DCW @W99@ Z 3 1671 LIT 1686 DCW @SHIFT CFL@ Z 9 1680 LIT 1687 DCW @001@ Z 3 1683 LIT 1687 DCW @ @ Z 2 1685 LIT 1687 DCW @ @ Z 1 1686 LIT 1687 DCW @I9I@ Z 3 1689 LIT 1687 8877 67 26 GM50A DCW @}@ GROUP MARK Z 1 1690 GMARK 1687 8878 67 27 XFR BEGIN Z B /75 1688 1 SHIFT CONSTANTS,FORMATS,AND LISTS 5050B PAGE 218 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8879 67 28 JOB SHIFT CONSTANTS,FORMATS,AND LISTS Z 8880 67 29 110 DCW @SHIFT CFL@ Z 9 0110 1691 8881 67 30 NXBTM EQU 83 Z 0083 8882 67 31 ORG BEGINZ Z 1175 8883 67 32 C PARAMA&2,CONLST Z 7 1175 C 688 194 1692 8884 67 33 BE EXIT Z 5 1182 B V53 S 1692 8885 67 34 MCW BSAUCE,X1 Z 7 1187 M 148 089 1692 8886 67 35 MCW BSAUCE,X2 Z 7 1194 M 148 094 1692 8887 67 36 MA MACFLS,X2 Z 7 1201 # 163 094 1692 8888 67 37 SBR RSX3&6,0&X3 Z 7 1208 H U93 0?0 1693 8889 67 38 CW CNVRT-2 Z 4 1215 ) 894 1693 8890 67 39 MCW X2,CNVRT Z 7 1219 M 094 896 1693 8891 67 40 B EXPND Z 4 1226 B 969 1693 8892 67 41 MCW HOLD,X25#5 Z 7 1230 M 891 V98 1693 8893 67 42 MCW X3,CNVRT Z 7 1237 M 099 896 1693 8894 67 43 B EXPND Z 4 1244 B 969 1694 8895 67 44 MCW HOLD,X35#5 Z 7 1248 M 891 W03 1694 8896 67 45 C X25,X35 Z 7 1255 C V98 W03 1694 8897 67 46 BH ERRMS Z 5 1262 B |92 U 1694 8898 67 47 MCW BSAUCE,CNVRT Z 7 1267 M 148 896 1694 8899 67 48 B EXPND Z 4 1274 B 969 1694 8900 67 49 MCW HOLD,NXBTM5#5 Z 7 1278 M 891 W08 1695 8901 67 50 MCW CONLST,CNVRT Z 7 1285 M 194 896 1695 8902 67 51 B EXPND Z 4 1292 B 969 1695 8903 67 52 MCW HOLD,CNLST5#5 Z 7 1296 M 891 W13 1695 8904 67 53 C NXBTM5,CNLST5 Z 7 1303 C W08 W13 1695 8905 67 544 BH MAD V3M4 Z 5 1310 B T19 U 1695 8906 67 545 B WRDMV V3M4 Z 4 1315 B T97 1696 8907 67 55 MAD MA @001@,X1 Z 7 1319 # W16 089 1696 8908 67 56 MA @001@,X2 Z 7 1326 # W16 094 1696 8909 67 57 BW LDWM,0&X1 Z 8 1333 V T86 0|0 1 1696 8910 67 58 CW 0&X2 Z 4 1341 ) 0!0 1696 8911 67 59 MN 0&X1,0&X2 Z 7 1345 D 0|0 0!0 1696 8912 67 60 MZ 0&X1,0&X2 Z 7 1352 Y 0|0 0!0 1697 8913 67 61 CWX1 CW 0&X1 Z 4 1359 ) 0|0 1697 8914 67 62 C X1,CONLST Z 7 1363 C 089 194 1697 8915 67 63 BU MAD Z 5 1370 B T19 / 1697 8916 67 64 MLC CONLST,X3 Z 7 1375 M 194 099 1697 8917 67 65 B TSTWM Z 4 1382 B U04 1697 8918 67 66 LDWM LCA 0&X1,0&X2 Z 7 1386 L 0|0 0!0 1698 8919 67 67 B CWX1 Z 4 1393 B T59 1698 8920 67 68 WRDMV MLC BSAUCE,X3 Z 7 1397 M 148 099 1698 8921 67 69 TSTWM BW MANXB,1&X3 TEST FOR WORD MARKIN TEST ADR&1 Z 8 1404 V U20 0?1 1 1698 8922 67 70 CW WMSW#1 Z 4 1412 ) W17 1698 8923 67 71 SW 1&X3 Z 4 1416 , 0?1 1698 8924 67 72 MANXB MCW PARAMA&2,X1 Z 7 1420 M 688 089 1699 8925 67 73 MCW CONLST,X2 Z 7 1427 M 194 094 1699 8926 67 74 LOAD LCA 0&X1,0&X2 Z 7 1434 L 0|0 0!0 1699 8927 67 75 SBR X2 Z 4 1441 H 094 1699 8928 67 76 SBR X1 Z 4 1445 H 089 1699 1 SHIFT CONSTANTS,FORMATS,AND LISTS 5050B PAGE 219 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8929 67 77 MA PLUSDF,X1 Z 7 1449 # 160 089 1699 8930 67 78 C X1,X3 Z 7 1456 C 089 099 1700 8931 67 79 BU LOAD Z 5 1463 B U34 / 1700 8932 67 80 BW RSX3,WMSW BRANCH IF WM SWITCH IS ON Z 8 1468 V U87 W17 1 1700 8933 67 81 MA MACFLS,X3 Z 7 1476 # 163 099 1700 8934 67 82 CW 1&X3 Z 4 1483 ) 0?1 1700 8935 67 83 RSX3 SBR X3,0 Z 7 1487 H 099 000 1700 8936 67 84 MA MACFLS,NXBTM Z 7 1494 # 163 083 1701 8937 67 85 MA MACFLS,ADTBLL Z 7 1501 # 163 145 1701 8938 67 86 MA MACFLS,BSAUCE Z 7 1508 # 163 148 1701 8939 67 87 MCW PARAMA&2,X1 Z 7 1515 M 688 089 1701 8940 67 88 CX1CN C X1,CONLST Z 7 1522 C 089 194 1701 8941 67 89 BE EXIT Z 5 1529 B V53 S 1702 8942 67 90 MCW @ @,0&X1 MOVE BLANKS TO CLEAR STORAGE. Z 7 1534 M W18 0|0 1702 8943 67 91 CW 0&X1 Z 4 1541 ) 0|0 1702 8944 67 92 SBR X1 Z 4 1545 H 089 1702 8945 67 93 B CX1CN Z 4 1549 B V22 1702 8946 67 94 EXIT FENDX C,,,XBEGIN,XBEGIN,,GM50C,REPLACE 1 Z MACRO 8947 EXIT BSS 333,C Z 5 1553 B 333 C GEN 1702 8948 SBR INITAP&6,XBEGIN Z 7 1558 H 786 838 GEN 1702 8949 SBR BCLEAR Z 4 1565 H 833 GEN 1703 8950 SBR INITXT&3,XBEGIN Z 7 1569 H 796 838 GEN 1703 8951 SBR TCLEAR,GM50C Z 7 1576 H 710 W28 GEN 1703 8952 LCA @REPLACE 1@,110 Z 7 1583 L W27 110 GEN 1703 8953 B MONTER Z 4 1590 B 700 GEN 1703 8954 67 95 LTORG * Z 1594 X25 Z DCW #05 Z 5 1598 AREA 1703 X35 Z DCW #05 Z 5 1603 AREA 1703 NXBTM5 DCW #05 Z 5 1608 AREA 1704 CNLST5 DCW #05 Z 5 1613 AREA 1704 DCW @001@ Z 3 1616 LIT 1704 WMSW Z DCW #01 Z 1 1617 AREA 1704 DCW @ @ Z 1 1618 LIT 1704 DCW @REPLACE 1@ Z 9 1627 LIT 1704 8955 67 96 GM50C DCW @}@ GROUP MARK Z 1 1628 GMARK 1704 8956 67 97 XFR BEGIN Z B /75 1705 1 1401 FORTRAN REPLACE PHASE ONE 50513 PAGE 220 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 8957 67 98 JOB 1401 FORTRAN REPLACE PHASE ONE Z 8958 67 99 FBEGN REPLACE 1,X1,R,X2,,X3,,V Z MACRO 8959 SFX V V GEN 8960 110 DCW @REPLACE 1@ V 9 0110 GEN 1708 8961 X1 EQU 089 V 0089 GEN 8962 089 DCW 000 V 3 0089 GEN 1709 8963 091 DC 00 V 2 0091 GEN 1709 8964 X2 EQU 094 V 0094 GEN 8965 X3 EQU 099 V 0099 GEN 8966 68 00 ORG XBEGIN V 0838 8967 68 01 INIT MCW X3,GARY#3 V 7 0838 M 099 S57 1710 8968 68 02 MCW BSAUCE,*&7 V 7 0845 M 148 858 1710 8969 68 03 MCW @>@,0 6-8 PUNCH V 7 0852 M S58 000 1710 8970 68 04 MCW PERIOD,X2 V 7 0859 M 154 094 1710 8971 68 05 MCW @>@,1600 6-8 PUNCH V 7 0866 M S58 W00 1710 8972 68 06 SCNDL BCE DOLR,0&X2,$ V 8 0873 B 915 0!0 $ 1711 8973 68 07 CHAIN 9 V MACRO 8974 BCE V 1 0881 B GEN 1711 8975 BCE V 1 0882 B GEN 1711 8976 BCE V 1 0883 B GEN 1711 8977 BCE V 1 0884 B GEN 1711 8978 BCE V 1 0885 B GEN 1711 8979 BCE V 1 0886 B GEN 1711 8980 BCE V 1 0887 B GEN 1712 8981 BCE V 1 0888 B GEN 1712 8982 BCE V 1 0889 B GEN 1712 8983 68 08 RU68 BCE SKGBG,0&X2,> 6-8 PUNCH V 8 0890 B |23 0!0 > 1712 8984 66 09 CHAIN 9 V MACRO 8985 BCE V 1 0898 B GEN 1712 8986 BCE V 1 0899 B GEN 1712 8987 BCE V 1 0900 B GEN 1712 8988 BCE V 1 0901 B GEN 1713 8989 BCE V 1 0902 B GEN 1713 8990 BCE V 1 0903 B GEN 1713 8991 BCE V 1 0904 B GEN 1713 8992 BCE V 1 0905 B GEN 1713 8993 BCE V 1 0906 B GEN 1713 8994 66 10 SBR X2 V 4 0907 H 094 1713 8995 68 11 B SCNDL V 4 0911 B 873 1714 8996 68 114 DOLR BCE RU68,0&X2,> 6-8 PUNCH V3M4 V 8 0915 B 890 0!0 > 1714 8997 68 124 BCE FND,0&X2,$ V3M4 V 8 0923 B 939 0!0 $ 1714 8998 68 13 SBR X2 V 4 0931 H 094 1714 8999 68 14 B DOLR V 4 0935 B 915 1714 9000 68 15 FND MN 0&X2 V 4 0939 D 0!0 1714 9001 68 16 SAR X2 V 4 0943 Q 094 1714 9002 68 17 BCE SETSW,0&X2,$ V 8 0947 B 974 0!0 $ 1715 9003 68 18 CHAIN 15 V MACRO 9004 BCE V 1 0955 B GEN 1715 9005 BCE V 1 0956 B GEN 1715 9006 BCE V 1 0957 B GEN 1715 1 1401 FORTRAN REPLACE PHASE ONE 50513 PAGE 221 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9007 BCE V 1 0958 B GEN 1715 9008 BCE V 1 0959 B GEN 1715 9009 BCE V 1 0960 B GEN 1715 9010 BCE V 1 0961 B GEN 1716 9011 BCE V 1 0962 B GEN 1716 9012 BCE V 1 0963 B GEN 1716 9013 BCE V 1 0964 B GEN 1716 9014 BCE V 1 0965 B GEN 1716 9015 BCE V 1 0966 B GEN 1716 9016 BCE V 1 0967 B GEN 1716 9017 BCE V 1 0968 B GEN 1717 9018 BCE V 1 0969 B GEN 1717 9019 68 19 B SCNDL V 4 0970 B 873 1717 9020 68 20 SETSW CW XDOSBS V 4 0974 ) 116 1717 9021 68 21 DLOOP MN 0&X2 V 4 0978 D 0!0 1717 9022 68 22 CHAIN 2 V MACRO 9023 MN V 1 0982 D GEN 1717 9024 MN V 1 0983 D GEN 1717 9025 68 23 SAR X2 V 4 0984 Q 094 1718 9026 68 24 SW 1&X2 V 4 0988 , 0!1 1718 9027 68 25 BCE NDOLR,0&X2,$ V 8 0992 B |11 0!0 $ 1718 9028 68 26 MZ *-4,2&X2 V 7 1000 Y |02 0!2 1718 9029 68 27 B DLOOP V 4 1007 B 978 1718 9030 68 28 NDOLR MN 0&X2 V 4 1011 D 0!0 1718 9031 68 29 SAR X2 V 4 1015 Q 094 1718 9032 68 30 B SCNDL V 4 1019 B 873 1719 9033 68 31 SKGBG MCW &TEST5,RU68&3 V 7 1023 M S61 893 1719 9034 68 32 MCW X3,X2 V 7 1030 M 099 094 1719 9035 68 33 B SCNDL V 4 1037 B 873 1719 9036 68 34 TEST5 BCE EXIT,0&X3, BLANK V 8 1041 B S18 0?0 1719 9037 68 35 MCW X3,SBR&6 V 7 1049 M 099 /45 1719 9038 68 36 C 0&X3 MOVE POINTER V 4 1056 C 0?0 1720 9039 68 37 SBR X2 V 4 1060 H 094 1720 9040 68 38 SBR X3 V 4 1064 H 099 1720 9041 68 39 BCE PSKIP,1&X3,| V 8 1068 B /82 0?1 | 1720 9042 68 40 TEST2 BWZ TEST5,4&X2,1 V 8 1076 V |41 0!4 1 1720 9043 68 41 BWZ V 1 1084 V 1720 9044 68 42 BWZ V 1 1085 V 1720 9045 68 43 BM REPLC,3&X2 V 8 1086 V /50 0!3 K 1721 9046 68 44 C 4&X2,@2G7@ CHANGE ON REAS. OF OBJ ARITH V 7 1094 C 0!4 S64 1721 9047 68 45 BE TEST5 V 5 1101 B |41 S 1721 9048 68 46 BWZ ADDU,3&X2,B V 8 1106 V /25 0!3 B 1721 9049 68 47 RIGHT SBR X2,3&X2 V 7 1114 H 094 0!3 1721 9050 68 48 B TEST2 V 4 1121 B |76 1721 9051 68 49 ADDU MCW 4&X2,X1 V 7 1125 M 0!4 089 1722 9052 68 50 MZ *-6,SBR&5 V 7 1132 Y /32 /44 1722 9053 68 51 SBR SBR 4&X2,0 V 7 1139 H 0!4 000 1722 9054 68 52 B RIGHT V 4 1146 B /14 1722 9055 68 53 REPLC MCW 4&X2,X1 V 7 1150 M 0!4 089 1722 9056 68 54 MA MACFLS,X1 V 7 1157 # 163 089 1722 1 1401 FORTRAN REPLACE PHASE ONE 50513 PAGE 222 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9057 68 55 MCW 0&X1,X1 V 7 1164 M 0|0 089 1723 9058 68 56 MCW X1,4&X2 V 7 1171 M 089 0!4 1723 9059 68 57 B RIGHT V 4 1178 B /14 1723 9060 68 58 PSKIP BW SKIP,2&X3 V 8 1182 V /94 0?2 1 1723 9061 68 59 B TEST5 V 4 1190 B |41 1723 9062 68 60 SKIP C 0&X3 V 4 1194 C 0?0 1723 9063 68 61 SBR X3 V 4 1198 H 099 1723 9064 68 62 C 4&X3,@B700@ CHANGE ON REORIGIN OF OBJ ARITH V 7 1202 C 0?4 S68 1724 9065 68 63 BE TEST5 V 5 1209 B |41 S 1724 9066 68 64 B SKIP V 4 1214 B /94 1724 9067 68 65 EXIT MCW GARY,X3 V 7 1218 M S57 099 1724 9068 68 66 FENDX C,,,,STARTR,,SYS1,LOAD 52B&C V MACRO 9069 BSS 333,C V 5 1225 B 333 C GEN 1724 9070 SBR INITXT&3,STARTR V 7 1230 H 796 934 GEN 1724 9071 SBR TCLEAR,SYS1 V 7 1237 H 710 S79 GEN 1725 9072 LCA @LOAD 52B&C@,110 V 7 1244 L S78 110 GEN 1725 9073 B MONTER V 4 1251 B 700 GEN 1725 9074 68 67 LTORG * V 1255 GARY V DCW #03 V 3 1257 AREA 1725 DCW @>@ V 1 1258 LIT 1725 DCW &TEST5V V 3 1261 |41 ADCON 1725 DCW @2G7@ V 3 1264 LIT 1725 DCW @B700@ V 4 1268 LIT 1726 DCW @LOAD 52B&C@ V 10 1278 LIT 1726 9075 68 68 SYS1 DCW @}@ SYSTEM GROUP MARK V 1 1279 GMARK 1726 9076 68 69 XFR INIT V B 838 1727 1 LOAD PHASE 52-SECTIONS B & C 5052A PAGE 223 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9077 68 70 JOB LOAD PHASE 52-SECTIONS B & C V 9078 68 71 SFX R R 9079 68 72 110 DCW @LOAD 52B&C@ R 10 0110 1730 9080 68 73 ORG XBEGIN R 0838 9081 68 74 XLINKS DCW #3 R 3 0840 1731 9082 68 75 YUSR12 DCW #3 R 3 0843 1731 9083 68 76 YUSR11 DCW #3 R 3 0846 1731 9084 68 77 YUSR10 DCW #3 R 3 0849 1731 9085 68 78 YUSER9 DCW #3 R 3 0852 1731 9086 68 79 YUSER8 DCW #3 R 3 0855 1731 9087 68 80 YUSER7 DCW #3 R 3 0858 1731 9088 68 81 YUSER6 DCW #3 R 3 0861 1732 9089 68 82 YUSER5 DCW #3 R 3 0864 1732 9090 68 83 YUSER4 DCW #3 R 3 0867 1732 9091 68 84 YUSER3 DCW #3 R 3 0870 1732 9092 68 85 YUSER2 DCW #3 R 3 0873 1732 9093 68 86 YUSER1 DCW #3 R 3 0876 1732 9094 68 87 SQRTFN DCW #3 R 3 0879 1732 9095 68 88 FLTFUN DCW #3 R 3 0882 1733 9096 68 89 FIXFUN DCW #3 R 3 0885 1733 9097 68 90 NEGTFN DCW #3 R 3 0888 1733 9098 68 91 ABSVAL DCW #3 R 3 0891 1733 9099 68 92 ATANFN DCW #3 R 3 0894 1733 9100 68 93 XPNETL DCW #3 R 3 0897 1733 9101 68 94 LOGFUN DCW #3 R 3 0900 1733 9102 68 95 SINFUN DCW #3 R 3 0903 1734 9103 68 96 COMFN1 DCW #3 R 3 0906 1734 9104 68 97 DOSBSC DCW #3 R 3 0909 1734 9105 68 98 OBLIST DCW @J32@ FMTXT CHANGE IF OBJ FORMAT REASSEMBLED R 3 0912 1734 9106 68 99 DOINIT DCW #3 R 3 0915 1734 9107 69 00 DOADR3 DCW #3 R 3 0918 1734 9108 69 01 DOADR2 DCW #3 R 3 0921 1734 9109 69 02 DOADR1 DCW #3 R 3 0924 1735 9110 69 03 TBLAD DCW DOADR1 R 3 0927 924 1735 9111 69 04 FIXWD DCW #3 R 3 0930 1735 9112 69 05 FLTWD DCW #3 R 3 0933 1735 9113 69 064 START B ADJX3 V3M4 R 4 0934 B |27 1735 9114 69 07 LD52C FENDX ,,,START,START1,,GMWM,FUNLOAD C R MACRO 9115 LD52C SBR INITAP&6,START R 7 0938 H 786 934 GEN 1735 9116 SBR BCLEAR R 4 0945 H 833 GEN 1735 9117 SBR INITXT&3,START1 R 7 0949 H 796 337 GEN 1736 9118 SBR TCLEAR,GMWM R 7 0956 H 710 W96 GEN 1736 9119 LCA @FUNLOAD C@,110 R 7 0963 L 982 110 GEN 1736 9120 B MONTER R 4 0970 B 700 GEN 1736 9121 69 08 LTORG * R 0974 DCW @FUNLOAD C@ R 9 0982 LIT 1736 9122 69 09 EXIT3 SBR INITAP&6,333 R 7 0983 H 786 333 1737 9123 69 10 SBR BCLEAR,EXIT3 R 7 0990 H 833 983 1737 9124 69 11 FENDX C,,,,LD52C,,GMWM,FUNLOAD B R MACRO 9125 BSS 333,C R 5 0997 B 333 C GEN 1737 1 LOAD PHASE 52-SECTIONS B & C 5052A PAGE 224 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9126 SBR INITXT&3,LD52C R 7 1002 H 796 938 GEN 1737 9127 SBR TCLEAR,GMWM R 7 1009 H 710 W96 GEN 1737 9128 LCA @FUNLOAD B@,110 R 7 1016 L |70 110 GEN 1738 9129 B MONTER R 4 1023 B 700 GEN 1738 9130 69 111 ADJX3 BWZ CKX3,X3,2 V3M4 R 8 1027 V |39 099 2 1738 9131 69 112 B EXIT3 V3M4 R 4 1035 B 983 1738 9132 69 113 CKX3 BWZ CHGX3,X3-2,S V3M4 R 8 1039 V |51 097 S 1738 9133 69 114 B EXIT3 V3M4 R 4 1047 B 983 1738 9134 69 115 CHGX3 SBR X3,2000 V3M4 R 7 1051 H 099 !00 1739 9135 69 116 B EXIT3 V3M4 R 4 1058 B 983 1739 9136 69 12 LTORG * R 1062 DCW @FUNLOAD B@ R 9 1070 LIT 1739 9137 69 13 ORG 1696 R 1696 9138 69 14 GMWM DCW @}@ GROUP MARK R 1 1696 GMARK 1740 9139 69 15 XFR START R B 934 1741 1 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-B 5052B PAGE 225 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9140 69 16 JOB 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-B R 9141 69 17 FBEGN FUNLOAD B,X1,R,X2,R,X3,,R R MACRO 9142 SFX R R GEN 9143 110 DCW @FUNLOAD B@ R 9 0110 GEN 1744 9144 X1 EQU 089 R 0089 GEN 9145 089 DCW 000 R 3 0089 GEN 1745 9146 091 DC 00 R 2 0091 GEN 1745 9147 X2 EQU 094 R 0094 GEN 9148 094 DCW 000 R 3 0094 GEN 1745 9149 096 DC 00 R 2 0096 GEN 1745 9150 X3 EQU 099 R 0099 GEN 9151 69 18 NXBTM EQU 83 R 0083 9152 69 19 ORG 333 R 0333 9153 69 20 H 333 R 4 0333 . 333 1746 9154 69 21 START1 CS 080 R 4 0337 / 080 1746 9155 69 22 MCW X3,HEX3 R 7 0341 M 099 W35 1746 9156 69 23 SBR X3,1&X3 R 7 0348 H 099 0?1 1746 9157 69 24 SW 1,40 R 7 0355 , 001 040 1746 9158 69 25 SW 47,54 R 7 0362 , 047 054 1746 9159 69 26 SW 61,68 R 7 0369 , 061 068 1747 9160 69 27 SW 72 R 4 0376 , 072 1747 9161 69 28 MCW MONTOR,READ R 7 0380 M 769 /60 1747 9162 69 29 B GET R 4 0387 B /49 1747 9163 69 30 MCW NXBTM,X2 R 7 0391 M 083 094 1747 9164 69 31 MN 0&X2 R 4 0398 D 0!0 1747 9165 69 32 MN R 1 0402 D 1747 9166 69 33 SBR KLOBR&6 R 4 0403 H |95 1748 9167 69 34 MCW @_@ 11-7-8 R 4 0407 M V65 1748 9168 69 35 NOP R 1 0411 N 1748 9169 69 36 LOOP2 MCW X3,NOP4&3 R 7 0412 M 099 436 1748 9170 69 37 MZ @B@,NOP4&2 R 7 0419 Y V66 435 1748 9171 69 38 MCW DSA,X3 R 7 0426 M V60 099 1748 9172 59 39 NOP4 NOP 0 R 4 0433 N 000 1748 9173 59 40 SAR X3 R 4 0437 Q 099 1749 9174 59 41 GET2 B GET R 4 0441 B /49 1749 9175 59 42 AGET2 C 005,@____@ ALL 11-7-8 R 7 0445 C 005 V70 1749 9176 59 43 BU MVAD R 5 0452 B 468 / 1749 9177 69 44 MCW X3,HXCMN#3 R 7 0457 M 099 V73 1749 9178 69 45 B GET2 R 4 0464 B 441 1749 9179 69 46 MVAD MCW TBAD2,X1 R 7 0468 M V63 089 1749 9180 69 47 BMPT2 SBR TBAD2,1&X1 R 7 0475 H V63 0|1 1750 9181 69 48 CX1 C X1,&NDTABL R 7 0482 C 089 V76 1750 9182 69 49 BE OUT R 5 0489 B T59 S 1750 9183 69 50 MCW @H@,BMPT2 R 7 0494 M V77 475 1750 9184 69 51 C TBLAD,&YUSER1 R 7 0501 C 927 V80 1750 9185 69 52 CKUSR BE STOTP R 5 0508 B U23 S 1750 9186 69 53 MCW TBLAD,X2 R 7 0513 M 927 094 1751 9187 69 54 C 0&X2 R 4 0520 C 0!0 1751 9188 69 55 SAR TBLAD R 4 0524 Q 927 1751 9189 69 56 BW NODIC,0&X1 R 8 0528 V T35 0|0 1 1751 1 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-B 5052B PAGE 226 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9190 69 57 NOPSW MCW @N@,SW1 R 7 0536 M V81 583 1751 9191 69 58 CKZN BWZ PURE,42,2 R 8 0543 V /31 042 2 1751 9192 69 59 MN 46,LOAD&6 R 7 0551 D 046 578 1752 9193 69 60 CHAIN 5 R MACRO 9194 MN R 1 0558 D GEN 1752 9195 MN R 1 0559 D GEN 1752 9196 MN R 1 0560 D GEN 1752 9197 MN R 1 0561 D GEN 1752 9198 MN R 1 0562 D GEN 1752 9199 69 61 MZ 46,LOAD&6 R 7 0563 Y 046 578 1752 9200 69 62 MN R 1 0570 D 1753 9201 69 63 MZ R 1 0571 Y 1753 9202 69 64 LOAD LCA 0,0&X3 R 7 0572 L 000 0?0 1753 9203 69 65 SBR X2 R 4 0579 H 094 1753 9204 69 66 SW1 NOP CTU1 R 4 0583 N 608 1753 9205 69 67 MCW TBLAD,X1 R 7 0587 M 927 089 1753 9206 69 68 SBR 3&X1,1&X2 R 7 0594 H 0|3 0!1 1753 9207 69 69 MCW @B@,SW1 R 7 0601 M V66 583 1754 9208 69 70 CTU1 MZ 45,HLDZN#1 R 7 0608 Y 045 V82 1754 9209 69 71 B RELOC FIELD R 4 0615 B S17 1754 9210 69 72 S X1&1 R 4 0619 S 090 1754 9211 69 73 DOWM C 50&X1,@040@ PROCESS SUBSEQUENT R 7 0623 C 0V0 V85 1754 9212 69 74 BE READ2 DATA FIELDS IF ANY R 5 0630 B |11 S 1754 9213 69 75 MCW 50&X1,SETWM&3 R 7 0635 M 0V0 667 1755 9214 69 76 MZ @B@,SETWM&2 R 7 0642 Y V66 666 1755 9215 69 77 BCE SETWM,SETWM,) R 8 0649 B 664 664 ) 1755 9216 69 78 MCW @,@,SETWM R 7 0657 M V86 664 1755 9217 69 79 SETWM SW 0&X3 SET WORD MARK IN R 4 0664 , 0?0 1755 9218 69 80 SAR X2 STORAGE R 4 0668 Q 094 1755 9219 69 81 B BRELC R 4 0672 B 934 1756 9220 69 82 NOP 000 R 4 0676 N 000 1756 9221 69 83 GMK1 DCW @}@ GROUP MARK R 1 0680 GMARK 1756 9222 69 84 XFR LD52CR R B 938 1757 1 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-C 5052C PAGE 227 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9223 69 85 JOB 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-C R 9224 69 86 110 DCW @FUNLOAD C@ R 9 0110 1760 9225 69 87 ORG STARTR R 0934 9226 69 88 BRELC MZ 49&X1,HLDZN R 7 0934 Y 0U9 V82 1761 9227 59 89 B RELOC RELOCATE OPERANDS R 4 0941 B S17 1761 9228 69 90 ADDS NOP @4@,X1 R 7 0945 N V87 089 1761 9229 69 91 ADDS2 A @3@,X1 R 7 0952 A V88 089 1761 9230 69 92 BCE TYPE1,ADDS,A R 8 0959 B 993 945 A 1761 9231 69 93 MCW @A@,ADDS R 7 0967 M V89 945 1762 9232 69 94 MCW @N@,ADDS2 R 7 0974 M V81 952 1762 9233 69 95 BCE ADDS,SETWM,) R 8 0981 B 945 664 ) 1762 9234 69 96 B DOWM R 4 0989 B 623 1762 9235 69 97 TYPE1 MCW @N@,ADDS R 7 0993 M V81 945 1762 9236 69 98 MCW @A@,ADDS2 R 7 1000 M V89 952 1763 9237 69 99 B DOWM R 4 1007 B 623 1763 9238 70 00 READ2 MCW 46,LAST#3 R 7 1011 M 046 V92 1763 9239 70 01 MCW @N@,ADDS R 7 1018 M V81 945 1763 9240 70 02 MCW @A@,ADDS2 R 7 1025 M V89 952 1763 9241 70 03 B GET R 4 1032 B /49 1763 9242 70 04 CKEX BCE END,68,B R 8 1036 B |56 068 B 1764 9243 70 05 BCE END,40,/ R 8 1044 B |56 040 / 1764 9244 70 06 B CKZN R 4 1052 B 543 1764 9245 70 07 END MCW LAST,NOP3&3 R 7 1056 M V92 |73 1764 9246 70 08 MZ @B@,NOP3&2 R 7 1063 Y V66 |72 1764 9247 70 09 NOP3 NOP 0&X3 R 4 1070 N 0?0 1764 9248 70 10 SAR X3 R 4 1074 Q 099 1765 9249 70 11 SBR HEX3 R 4 1078 H W35 1765 9250 70 12 SBR X3,1&X3 R 7 1082 H 099 0?1 1765 9251 70 13 KLOBR BCE LOOP2,0,_ 11-7-8 R 8 1089 B 412 000 _ 1765 9252 70 14 CS 332 R 4 1097 / 332 1765 9253 70 15 CS R 1 1101 / 1765 9254 70 16 CC 1 R 2 1102 F 1 1765 9255 70 17 MCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@,270 R 7 1104 M W28 270 1766 9256 70 18 W R 1 1111 2 1766 9257 70 19 CC 1 R 2 1112 F 1 1766 9258 70 20 BCE *&6,MONTOR,1 R 8 1114 B /27 769 1 1766 9259 70 21 RWD 1 R 5 1122 U %U1 R 1766 9260 70 22 H *-3 R 4 1127 . /27 1766 9261 70 23 PURE SBR 71,READ2 R 7 1131 H 071 |11 1766 9262 70 24 MCW @B@,68 R 7 1138 M V66 068 1767 9263 70 25 B 40 R 4 1145 B 040 1767 9264 70 26 GET SBR GETXT&3 R 4 1149 H /87 1767 9265 70 27 MCW @ @,001 R 7 1153 M W29 001 1767 9266 70 28 READ R GETXT R 4 1160 1 /84 1767 9267 70 29 MVNIN MCW &9,RDCNT#1 R 7 1164 M W30 W31 1767 9268 70 30 RDTAP RT 1,1 R 8 1171 M %U1 001 R 1768 9269 70 31 BER TPERR R 5 1179 B /88 L 1768 9270 70 32 GETXT B 0 R 4 1184 B 000 1768 9271 70 33 TPERR BSP 1 R 5 1188 U %U1 B 1768 9272 70 34 S &1,RDCNT R 7 1193 S W32 W31 1768 1 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-C 5052C PAGE 228 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9273 70 35 BWZ RDTAP,RDCNT,B R 8 1200 V /71 W31 B 1768 9274 70 36 NOP 3333 R 4 1208 N C33 1769 9275 70 37 H R 1 1212 . 1769 9276 70 38 B MVNIN R 4 1213 B /64 1769 9277 70 39 RELOC SBR RELXT&3 R 4 1217 H T34 1769 9278 70 40 BWZ RELXT,HLDZN,2 R 8 1221 V T31 V82 2 1769 9279 70 41 BWZ ISB,HLDZN,S R 8 1229 V S88 V82 S 1769 9280 70 42 MCW X3,HEX3#3 R 7 1237 M 099 W35 1769 9281 70 43 BWZ SW2X2,4&X2,2 R 8 1244 V S66 0!4 2 1770 9282 70 44 MCW HXCMN,X3 R 7 1252 M V73 099 1770 9283 70 45 MZ *-4,4&X2 R 7 1259 Y S61 0!4 1770 9284 70 46 SW2X2 MA X3,4&X2 R 7 1266 # 099 0!4 1770 9285 70 67 MCW HEX3,X3 R 7 1273 M W35 099 1770 9286 70 48 BWZ RELXT,HLDZN,K R 8 1280 V T31 V82 K 1771 9287 70 49 ISB MCW X3,HEX3 R 7 1288 M 099 W35 1771 9288 70 50 BWZ MCWX2,7&X2,2 R 8 1295 V T17 0!7 2 1771 9289 70 51 MCW HXCMN,X3 R 7 1303 M V73 099 1771 9290 70 52 MZ *-4,7&X2 R 7 1310 Y T12 0!7 1771 9291 70 53 MCWX2 MA X3,7&X2 R 7 1317 # 099 0!7 1772 9292 70 54 MCW HEX3,X3 R 7 1324 M W35 099 1772 9293 70 55 RELXT B 0 R 4 1331 B 000 1772 9294 70 56 NODIC B GET R 4 1335 B /49 1772 9295 70 57 BCE GET2,40,/ R 8 1339 B 441 040 / 1772 9296 70 58 BCE GET2,68,B R 8 1347 B 441 068 B 1772 9297 70 59 B NODIC R 4 1355 B T35 1773 9298 70 60 OUT NOP OUT2 R 4 1359 N U41 1773 9299 70 61 MCW @B@,OUT R 7 1363 M V66 T59 1773 9300 70 62 SBR TBAD2,XSINFU R 7 1370 H V63 118 1773 9301 70 63 MCW HEX3,X2 R 7 1377 M W35 094 1773 9302 70 64 SBR GOTOFN,1&X2 R 7 1384 H 188 0!1 1773 9303 70 65 MCW @N@,BMPT2 R 7 1391 M V81 475 1774 9304 70 66 MCW @N@,NOPSW R 7 1398 M V81 536 1774 9305 70 67 MCW @B@,SW1 R 7 1405 M V66 583 1774 9306 70 68 MCW HEX3,BTM#3 R 7 1412 M W35 W38 1774 9307 70 69 B AGET2 R 4 1419 B 445 1774 9308 70 70 STOTP MCW HEX3,TOP#3 R 7 1423 M W35 W41 1774 9309 70 71 MCW @N@,CKUSR R 7 1430 M V81 508 1775 9310 70 72 B CKUSR&5 R 4 1437 B 513 1775 9311 70 73 OUT2 MCW HEX3,X3 R 7 1441 M W35 099 1775 9312 70 74 MCW PARAMA&2,X2 R 7 1448 M 688 094 1775 9313 70 75 C 0&X2 R 4 1455 C 0!0 1775 9314 70 76 SAR X2 R 4 1459 Q 094 1775 9315 70 77 SBR FLTWD R 4 1463 H 933 1775 9316 70 78 C 0&X2 R 4 1467 C 0!0 1776 9317 70 79 SAR FIXWD R 4 1471 Q 930 1776 9318 70 80 BCE MTPX1,XLINKS, BLANK R 8 1475 B V08 840 1776 9319 70 81 MCW XLINKS,X1 R 7 1483 M 840 089 1776 9320 70 82 MA @013@,X1 R 7 1490 # W44 089 1776 9321 70 83 MLC CONLST,0&X1 R 7 1497 M 194 0|0 1776 9322 70 84 CW XLINKW R 4 1504 ) 185 1777 1 1401 FORTRAN FUNCTION/SUBROUTINE LOADER-C 5052C PAGE 229 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9323 70 85 MTPX1 MCW TOP,X1 R 7 1508 M W41 089 1777 9324 70 86 MCW BTM,X2 R 7 1515 M W38 094 1777 9325 70 87 FENDX ,,,START,START,,1696,RELOAD SS R MACRO 9326 SBR INITAP&6,START R 7 1522 H 786 934 GEN 1777 9327 SBR BCLEAR R 4 1529 H 833 GEN 1777 9328 SBR INITXT&3,START R 7 1533 H 796 934 GEN 1777 9329 SBR TCLEAR,1696 R 7 1540 H 710 W96 GEN 1778 9330 LCA @RELOAD SS@,110 R 7 1547 L W53 110 GEN 1778 9331 B MONTER R 4 1554 B 700 GEN 1778 9332 70 88 DSA DSA -2000 R 3 1560 !0? 1778 9333 70 89 TBAD2 DCW XDOAD1 R 3 1563 111 1778 9334 70 90 LOGSW DC #1 R 1 1564 1778 9335 70 91 LTORG * R 1565 DCW @_@ R 1 1565 LIT 1778 DCW @B@ R 1 1566 LIT 1778 DCW @____@ R 4 1570 LIT 1779 HXCMNR DCW #03 R 3 1573 AREA 1779 DCW &NDTABL R 3 1576 140 ADCON 1779 DCW @H@ R 1 1577 LIT 1779 DCW &YUSER1 R 3 1580 876 ADCON 1779 DCW @N@ R 1 1581 LIT 1779 HLDZNR DCW #01 R 1 1582 AREA 1779 DCW @040@ R 3 1585 LIT 1780 DCW @,@ R 1 1586 LIT 1780 DCW @4@ R 1 1587 LIT 1780 DCW @3@ R 1 1588 LIT 1780 DCW @A@ R 1 1589 LIT 1780 LAST R DCW #03 R 3 1592 AREA 1780 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ R 36 1628 LIT 1781 DCW @ @ R 1 1629 LIT 1781 DCW &9 R 1 1630 LIT 1781 RDCNTR DCW #01 R 1 1631 AREA 1781 DCW &1 R 1 1632 LIT 1782 HEX3 R DCW #03 R 3 1635 AREA 1782 BTM R DCW #03 R 3 1638 AREA 1782 TOP R DCW #03 R 3 1641 AREA 1782 DCW @013@ R 3 1644 LIT 1782 DCW @RELOAD SS@ R 9 1653 LIT 1782 9336 70 92 DCW @}@ SYSTEM GROUP MARK R 1 1654 GMARK 1782 9337 70 93 XFR START1 R B 337 1783 1 1401 FORTRAN RELOCATABLE PACKAGE 50533 PAGE 230 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9338 70 94 JOB 1401 FORTRAN RELOCATABLE PACKAGE R 9339 SFX / / 9340 3 86 DELTA EQU ACCHI-200 / 0079 9341 70 95 110 DCW @]]]]]@ ALL 11-5-8 FIRST CARD OF PACKAGE / 5 0110 1786 1 1401 FORTRAN OBJECT TIME DO 0533 PAGE 231 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9342 3 91 JOB 1401 FORTRAN OBJECT TIME DO / 9343 3 92 SFX A A 9344 3 93 X1 EQU 089 A 0089 9345 3 94 X2 EQU 94 A 0094 9346 3 95 X3 EQU 099 A 0099 9347 3 96 ORG 2000 A 2000 9348 3 97 DO1 SBR EXITL A 4 2000 H J41 1787 9349 3 98 SBR X2 A 4 2004 H 094 1787 9350 3 99 SBR X2,4&X2 A 7 2008 H 094 0!4 1787 9351 4 00 B INITL&4 A 4 2015 B !96 1787 9352 4 01 INITL EQU *&74 A 2092 9353 4 02 EXITL EQU *&123 A 2141 9354 4 03 XFR 0 A B 000 1788 9355 4 04 ORG 2000 A 2000 9356 4 05 DO2 SBR X2 A 4 2000 H 094 1791 9357 4 06 MCW 11&X2,DO3&6 A 7 2004 M 0J1 !46 1791 9358 4 07 MCW A 1 2011 M 1791 9359 4 08 MCW 5&X2,LIMT&3 A 7 2012 M 0!5 !50 1791 9360 4 09 MCW 11&X2,SBIX&3 A 7 2019 M 0J1 !57 1791 9361 4 10 MCW 14&X2,TESTL&3 A 7 2026 M 0J4 !64 1791 9362 4 11 SBR EXDO3&3,15&X2 A 7 2033 H !72 0J5 1792 9363 4 12 DO3 EQU *&1 A 2040 9364 4 13 LIMT EQU *&8 A 2047 9365 4 14 SBIX EQU *&15 A 2054 9366 4 15 TESTL EQU *&22 A 2061 9367 4 16 EXDO3 EQU *&30 A 2069 9368 4 17 XFR 0 A B 000 1793 9369 4 18 ORG 2000 A 2000 9370 4 19 A 0,0 A 7 2000 A 000 000 1796 9371 4 20 BFIXW ZA,000,FIXWORD A MACRO 9372 ZA A 1 2007 ? GEN 1796 9373 DC 000 A 3 2010 GEN 1796 9374 DC @_0@ 11-7-8,0 A 2 2012 GEN 1796 9375 DC 0 A 1 2013 GEN 1796 9376 4 21 BFIXW S,000,FIXWORD A MACRO 9377 S A 1 2014 S GEN 1796 9378 DC 000 A 3 2017 GEN 1796 9379 DC @_0@ 11-7-8,0 A 2 2019 GEN 1796 9380 DC 0 A 1 2020 GEN 1796 9381 4 22 BFIXW BWZ,000,FIXWORD,,K A MACRO 9382 BWZ A 1 2021 V GEN 1796 9383 DC 000 A 3 2024 GEN 1796 9384 DC @_0@ 11-7-8,0 A 2 2026 GEN 1796 9385 DC 0 A 1 2027 GEN 1796 9386 DC @K@ A 1 2028 GEN 1796 9387 4 23 B 0 A 4 2029 B 000 1796 9388 4 24 XFR 0 A B 000 1797 1 1401 FORTRAN INITIALIZATION OF DO LOOPS FOR DO,LIST 50533 PAGE 232 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9389 4 25 JOB 1401 FORTRAN INITIALIZATION OF DO LOOPS FOR DO,LIST A 9390 4 26 ORG 2000 A 2000 9391 4 27 INITIL SBR EXITEL&3 A 4 2000 H !49 1800 9392 4 28 MCW 2&X2,*&4 A 7 2004 M 0!2 !14 1800 9393 4 29 * NOTE - ADDRESS OF FIXWORD INITIALIZED BY LATER PASS 9394 4 30 BFIXW ZA,000,FIXWORD A MACRO 9395 ZA A 1 2011 ? GEN 1800 9396 DC 000 A 3 2014 GEN 1800 9397 DC @_0@ 11-7-8,0 A 2 2016 GEN 1800 9398 DC 0 A 1 2017 GEN 1800 9399 4 31 MCW 8&X2,*&4 A 7 2018 M 0!8 !28 1800 9400 4 32 BFIXW S,000,FIXWORD A MACRO 9401 S A 1 2025 S GEN 1800 9402 DC 000 A 3 2028 GEN 1800 9403 DC @_0@ 11-7-8,0 A 2 2030 GEN 1800 9404 DC 0 A 1 2031 GEN 1800 9405 4 33 MCW 11&X2,*&7 A 7 2032 M 0J1 !45 1800 9406 4 34 AFIXW LCA,FIXWORD,,000 A MACRO 9407 LCA A 1 2039 L GEN 1801 9408 DC @_0@ 11-7-8,0 A 2 2041 GEN 1801 9409 DC 0 A 1 2042 GEN 1801 9410 DC 000 A 3 2045 GEN 1801 9411 4 35 EXITEL B 000 A 4 2046 B 000 1801 9412 4 36 LTORG * A 2050 9413 4 37 XFR 0 A B 000 1802 1 1401 FORTRAN OBJECT TIME LIST 50533 PAGE 233 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9414 4 38 JOB 1401 FORTRAN OBJECT TIME LIST A 9415 4 39 ORG 2000 A 2000 9416 4 40 OBJLST SBR X2 A 4 2000 H 094 1805 9417 4 41 SBR BSTAN&6,2&X2 A 7 2004 H !93 0!2 1805 9418 4 42 SBR XTLST&3,3&X2 A 7 2011 H !97 0!3 1805 9419 4 43 MCW 2&X2,ADLST#3 A 7 2018 M 0!2 L94 1805 9420 4 44 XYZ MCW ADLST,X2 A 7 2025 M L94 094 1805 9421 4 45 BW SMPLE,0&X2 A 8 2032 V J04 0!0 1 1806 9422 4 46 BCE ARRAY,0&X2,, A 8 2040 B J22 0!0 , 1806 9423 4 47 BCE SUBSCB,0&X2,$ A 8 2048 B K53 0!0 $ 1806 9424 4 48 BCE INDX1,0&X2,% BEGIN OF DO-TYPE A 8 2056 B K75 0!0 % 1806 9425 4 49 BCE INDX4,0&X2,) END OF INNERMOST DO A 8 2064 B L34 0!0 ) 1807 9426 4 50 BCE INDX2,0&X2,# END OF OUTER DO-TYPE A 8 2072 B K98 0!0 # 1807 9427 4 51 MCW BLANK#3,X1 END OF LIST A 7 2080 M L97 089 1807 9428 4 52 BSTAN MCW ADLST,0 A 7 2087 M L94 000 1807 9429 4 53 XTLST B 0 A 4 2094 B 000 1807 9430 4 54 RAY DCW @XXXXXX@ A 6 2103 1808 9431 4 55 SMPLE MCW 2&X2,X1 A 7 2104 M 0!2 089 1808 9432 4 56 SBR ADLST,3&X2 A 7 2111 H L94 0!3 1808 9433 4 57 B BSTAN A 4 2118 B !87 1808 9434 4 58 ARRAY MZ 2136,*&8 FMTZON CHANGE ON REASM OF OBJ FORMAT A 7 2122 Y J36 J36 1808 9435 4 59 BCE NOSWT,@2S@,2 A 8 2129 B K28 L99 2 1808 9436 4 60 BCE A 1 2137 B 1809 9437 4 61 BWZ INRAY,RAY-4,2 A 8 2138 V J84 !99 2 1809 9438 4 62 MCW 6&X2,RAY A 7 2146 M 0!6 J03 1809 9439 4 63 MN PARAMA&4,SBRLT&6 A 7 2153 D 690 J97 1809 9440 4 64 MN A 1 2160 D 1809 9441 4 65 BWZ *&9,RAY-4,K A 8 2161 V J77 !99 K 1809 9442 4 66 MN PARAMA&6,SBRLT&6 A 7 2169 D 692 J97 1809 9443 4 67 MN A 1 2176 D 1810 9444 4 68 MZ *-4,RAY-4 A 7 2177 Y J79 !99 1810 9445 4 69 INRAY MCW RAY-3,X1 A 7 2184 M J00 089 1810 9446 4 70 SBRLT SBR X1,0&X1 A 7 2191 H 089 0|0 1810 9447 4 71 MCW X1,RAY-3 A 7 2198 M 089 J00 1810 9448 4 72 C RAY,RAY-3 A 7 2205 C J03 J00 1810 9449 4 73 BU BSTAN A 5 2212 B !87 / 1811 9450 4 74 MZ *-6,RAY-4 A 7 2217 Y K17 !99 1811 9451 4 75 B DUN1 A 4 2224 B K42 1811 9452 4 76 NOSWT MCW 6&X2,RAY A 7 2228 M 0!6 J03 1811 9453 4 77 MCW @.@,X1 A 7 2235 M M00 089 1811 9454 4 78 DUN1 SBR ADLST,7&X2 A 7 2242 H L94 0!7 1811 9455 4 79 B BSTAN A 4 2249 B !87 1812 9456 4 80 SUBSCB T DOSBSC A 4 2253 T 909 1812 9457 4 81 MZ *-4,X1-1 A 7 2257 Y K59 088 1812 9458 4 82 MCW X2,ADLST A 7 2264 M 094 L94 1812 9459 4 83 B BSTAN A 4 2271 B !87 1812 9460 4 84 INDX1 SBR X2,1&X2 A 7 2275 H 094 0!1 1812 9461 4 85 T DOINIT A 4 2282 T 915 1812 9462 4 86 MN 0&X2 A 4 2286 D 0!0 1813 9463 4 87 SBR X2 A 4 2290 H 094 1813 1 1401 FORTRAN OBJECT TIME LIST 50533 PAGE 234 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9464 4 88 B SETUP A 4 2294 B L05 1813 9465 4 89 INDX2 MCW 3&X2,X2 A 7 2298 M 0!3 094 1813 9466 4 90 SETUP MCW 12&X2,INDX3&6 A 7 2305 M 0J2 L47 1813 9467 4 91 MCW A 1 2312 M 1813 9468 4 92 MCW 6&X2,LIMIT&3 A 7 2313 M 0!6 L51 1813 9469 4 93 MCW 12&X2,SUBIX&3 A 7 2320 M 0J2 L58 1814 9470 4 94 SBR LPARN#3,0&X2 SAVE ADDR OF LEFT PAREN A 7 2327 H M03 0!0 1814 9471 4 95 INDX4 MCW LPARN,X2 SET X2 TO ADDR OF LEFT PAREN A 7 2334 M M03 094 1814 9472 4 96 INDX3 A 0,0 A 7 2341 A 000 000 1814 9473 4 97 * NOTE - ADDRESS OF FIXWORD INIITIALIZED BY LATER PHASE OF COMPILER 9474 4 98 LIMIT BFIXW ZA,000,FIXWORD A MACRO 9475 LIMIT ZA A 1 2348 ? GEN 1814 9476 DC 000 A 3 2351 GEN 1814 9477 DC @_0@ 11-7-8,0 A 2 2353 GEN 1814 9478 DC 0 A 1 2354 GEN 1814 9479 4 99 SUBIX BFIXW S,000,FIXWORD A MACRO 9480 SUBIX S A 1 2355 S GEN 1814 9481 DC 000 A 3 2358 GEN 1814 9482 DC @_0@ 11-7-8,0 A 2 2360 GEN 1815 9483 DC 0 A 1 2361 GEN 1815 9484 5 00 * IMPORTANT NOTE - THE OPERAND -SATFY- IN THE FOLLOWING MACRO 9485 5 01 * WILL NOT BE CODED AS RELOCATABLE BY THE RELOCATABLE 9486 5 02 * CONDENSING ROUTINE. THIS IS DUE TO THE FACT THAT THE 9487 5 03 * CONDENSER DOES NOT RECOGNIZE DC OR DCW STATEMENTS AS HAVING 9488 5 04 * RELOCATABLE OPERANDS. IT IS NECESSARY TO MANUALLY ZONE THE 9489 5 05 * SET WORD MARK INSTRUCTION WITH AND 11-PUNCH TO CAUSE 9490 5 06 * RELOCATION. 9491 5 07 BFIXW BWZ,SATFY,FIXWORD,,K A MACRO 9492 BWZ A 1 2362 V GEN 1815 9493 DC SATFY A 3 2365 L81 GEN 1815 9494 DC @_0@ 11-7-8,0 A 2 2367 GEN 1815 9495 DC 0 A 1 2368 GEN 1815 9496 DC @K@ A 1 2369 GEN 1815 9497 5 08 SBR ADLST,16&X2 A 7 2370 H L94 0J6 1815 9498 5 09 B XYZ A 4 2377 B !25 1815 9499 5 10 SATFY MCW 15&X2,ADLST A 7 2381 M 0J5 L94 1815 9500 5 11 B XYZ A 4 2388 B !25 1816 9501 5 12 LTORG * A 2392 ADLSTA DCW #03 A 3 2394 AREA 1816 BLANKA DCW #03 A 3 2397 AREA 1816 DCW @2S@ A 2 2399 LIT 1816 DCW @.@ A 1 2400 LIT 1816 LPARNA DCW #03 A 3 2403 AREA 1816 9502 5 13 XFR 0 A B 000 1817 1 1401 FORTRAN OBJECT TIME SUBSCRIPTS 50533 PAGE 235 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9503 5 14 JOB 1401 FORTRAN OBJECT TIME SUBSCRIPTS A 9504 5 15 ORG 2000 A 2000 9505 5 16 OTSUB SBR EXITS&3 A 4 2000 H J78 1820 9506 5 17 MCW 3&X2,AAA#3 A 7 2004 M 0!3 J94 1820 9507 5 18 S PROD#5 A 4 2011 S J99 1820 9508 5 19 BAV *&1 A 5 2015 B !20 Z 1820 9509 5 20 SBR1 MCW 9&X2,LCA&3 A 7 2020 M 0!9 !44 1820 9510 5 21 MCW 6&X2,ZA&3 A 7 2027 M 0!6 !37 1820 9511 5 22 ZA ZA 000,WORKBB#5 A 7 2034 ? 000 K04 1821 9512 5 23 LCA LCA 000,BFEEL-6 A 7 2041 L 000 K09 1821 9513 5 24 M WORKBB,BFEEL#11 A 7 2048 @ K04 K15 1821 9514 5 25 A BFEEL,PROD A 7 2055 A K15 J99 1821 9515 5 26 C PROD-3,@15@ A 7 2062 C J96 K17 1821 9516 5 27 BL OHALT A 5 2069 B J79 T 1822 9517 5 28 BCE PACK,10&X2,$ A 8 2074 B !93 0J0 $ 1822 9518 5 29 SBR X2,6&X2 A 7 2082 H 094 0!6 1822 9519 5 30 B SBR1 A 4 2089 B !20 1822 9520 5 31 PACK A &96,PROD-3 A 7 2093 A K19 J96 1822 9521 5 32 BAV PACK A 5 2100 B !93 Z 1822 9522 5 33 MZ PROD-4,PROD A 7 2105 Y J95 J99 1823 9523 5 34 ZA PROD-2,X1&1 A 7 2112 ? J97 090 1823 9524 5 35 MZ ZONES-99&X1,PROD-2 A 7 2119 Y !Z2 J97 1823 9525 5 36 MCW PROD,X1 A 7 2126 M J99 089 1823 9526 5 37 MCW X1,SBR&6 A 7 2133 M 089 J60 1823 9527 5 38 MZ ZONES-2,SBR&5 A 7 2140 Y J89 J59 1824 9528 5 39 MCW AAA,X1 A 7 2147 M J94 089 1824 9529 5 40 SBR SBR X1,0&X1 COMPUTE ADDRESS A 7 2154 H 089 0|0 1824 9530 5 41 MZ AAA-1,X1-1 A 7 2161 Y J93 088 1824 9531 5 42 SBR X2,11&X2 A 7 2168 H 094 0J1 1824 9532 5 43 EXITS B 000 A 4 2175 B 000 1824 9533 5 44 OHALT NOP 2002 A 4 2179 N !02 1825 9534 5 45 H A 1 2183 . 1825 9535 5 46 B OHALT A 4 2184 B J79 1825 9536 5 47 ZONES DCW @2SKB@ A 4 2191 1825 9537 5 48 LTORG * A 2192 AAA A DCW #03 A 3 2194 AREA 1825 PROD A DCW #05 A 5 2199 AREA 1825 WORKBB DCW #05 A 5 2204 AREA 1825 BFEELA DCW #11 A 11 2215 AREA 1826 DCW @15@ A 2 2217 LIT 1826 DCW &96 A 2 2219 LIT 1826 9538 5 49 XFR 0 A B 000 1827 1 1401 FORTRAN FUNCTION COMMON DECK 50533 PAGE 236 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9539 5 17 JOB 1401 FORTRAN FUNCTION COMMON DECK A 9540 SFX / / 9541 5 18 * INSERT BEFORE SIN-COS DECK 9542 5 19 ORG 2000 / 2000 9543 5 20 * 9544 5 21 110 DCW @_____@ ALL 11-7-8 / 5 0110 1830 9545 5 22 * 9546 5 23 * VARIABLE LENGTH DIVIDE 9547 5 24 * 9548 5 25 DIVID SBR DVXT&3 / 4 2000 H !46 1831 9549 5 26 MCW ACCHI&X3,SPOT / 7 2004 M 2G9 250 1831 9550 5 27 MN / 1 2011 D 1831 9551 5 28 LCA &0 / 4 2012 L K61 1831 9552 5 29 S &0,SPOT-1&X2 / 7 2016 S K61 2M9 1831 9553 5 30 D 0&X1,SPOT / 7 2023 % 0|0 250 1831 9554 5 31 MN SPOT-1&X2,ACCHI&X3 / 7 2030 D 2M9 2G9 1831 9555 5 32 MCW / 1 2037 M 1832 9556 5 33 MN / 1 2038 D 1832 9557 5 34 SAR X1 / 4 2039 Q 089 1832 9558 5 35 DVXT B XXX / 4 2043 B 000 1832 9559 5 36 * 9560 5 37 * POWER SERIES CALCULATION 9561 5 38 * 9562 5 39 CALC SBR CALXT&3 / 4 2047 H J90 1832 9563 5 40 CW LOGM1,LOGM2 / 7 2051 ) J49 J71 1832 9564 5 41 CALC1 S TOP&1&X3 CLEAR SERIES ACCUMULATOR / 4 2058 S 2?2 1832 9565 5 42 CW ACCHI&1 / 4 2062 ) 280 1833 9566 5 43 CW / 1 2066 ) 1833 9567 5 44 SW / 1 2067 , 1833 9568 5 45 S X2&2 / 4 2068 S 096 1833 9569 5 46 SBR X2,SPOT / 7 2072 H 094 250 1833 9570 5 47 CALCL MCS SPOT / 4 2079 Z 250 1833 9571 5 48 SW 0&X1 / 4 2083 , 0|0 1833 9572 5 49 BCE FINIS,0&X2, / 8 2087 B J83 0!0 1834 9573 5 50 MZ SPOT&1,1&X2 / 7 2095 Y 251 0!1 1834 9574 5 51 A 1&X2,TOP&1&X3 ADD TERM TO SERIES ACCUMULATION / 7 2102 A 0!1 2?2 1834 9575 5 52 A DEC,X2&1 / 7 2109 A K59 095 1834 9576 5 53 C X2,X1 / 7 2116 C 094 089 1834 9577 5 54 BH FINIS / 5 2123 B J83 U 1835 9578 5 55 A UPBY,NCON / 7 2128 A K50 K53 1835 9579 5 56 A NCON,NCTR / 7 2135 A K53 K56 1835 9580 5 57 NOP XXX,SPOT&1 / 7 2142 N 000 251 1835 9581 5 58 LOGM1 ZA NORMALLY PART OF NOP / 1 2149 ? 1835 9582 5 59 M ACCHI&X3,SPOT&4&X3 / 7 2150 @ 2G9 2E4 1835 9583 5 60 MZ SPOT&4&X3,SPOT&5 / 7 2157 Y 2E4 255 1836 9584 5 61 NOP SPOT&5,XXX / 7 2164 N 255 000 1836 9585 5 62 LOGM2 ZA NORMALLY PART OF NOP / 1 2171 ? 1836 9586 5 63 D NCTR,4&X1 / 7 2172 % K56 0|4 1836 9587 5 64 B CALCL / 4 2179 B !79 1836 9588 5 65 FINIS SW ACCHI&1 / 4 2183 , 280 1836 1 1401 FORTRAN FUNCTION COMMON DECK 50533 PAGE 237 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9589 5 66 CALXT B XXX / 4 2187 B 000 1836 9590 5 67 * 9591 5 68 STR1 S ACCHI&X3 / 4 2191 S 2G9 1837 9592 5 69 MN &1,ACCHI&1 / 7 2195 D K62 280 1837 9593 5 70 MZ TWTCH,ACCHI&X3 / 7 2202 Y K60 2G9 1837 9594 5 71 MZ CALC,TWTCH / 7 2209 Y !47 K60 1837 9595 5 72 ZA &1,EXP / 7 2216 ? K62 W79 1837 9596 5 73 B CLRX / 4 2223 B 755 1837 9597 5 74 * 9598 5 75 * COMMON CONSTANTS 9599 5 76 * 9600 5 77 LN10 EQU * / 2226 9601 5 78 DCW 23025850929940456840179 / 23 2249 1838 9602 5 79 UPBY DCW #1 / 1 2250 1838 9603 5 80 NCON DCW #3 / 3 2253 1838 9604 5 81 NCTR DCW #3 / 3 2256 1838 9605 5 82 DEC DCW #3 / 3 2259 1838 9606 5 83 TWTCH DCW @A@ / 1 2260 1838 9607 5 84 * LOADER DCW &0 / 1 2261 LIT 1838 DCW &1 / 1 2262 LIT 1839 9608 5 85 EX DIVID / B !00 1840 1 1401 FLOATING POINT SINE - COSINE SUBROUTINE 50533 PAGE 238 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9609 5 50 JOB 1401 FLOATING POINT SINE - COSINE SUBROUTINE / 9610 5 51 SFX / / 9611 5 53 ORG 2000 / 2000 9612 5 54 * 9613 5 55 TRIGF BCE COSF,CODE,C / 8 2000 B !24 924 C 1843 9614 5 56 SINF BE STRZE SINE 0 # 0 / 5 2008 B /42 S 1843 9615 5 57 MZ ACCHI&X3,ZA1 SINE -X # -SINE X / 7 2013 Y 2G9 K23 1843 9616 5 58 B SNCS / 4 2020 B !36 1843 9617 5 59 COSF BE STR1 COSINE 0 # 1 / 5 2024 B J91 S 1843 9618 5 60 MZ &1,ZA1 COS -X # COS X / 7 2029 Y M28 K23 1843 9619 5 61 SNCS MCW @ @,BOX / 7 2036 M M29 M33 1844 9620 5 62 ZA EXP,EXPB / 7 2043 ? W79 W82 1844 9621 5 63 S &1,EXP / 7 2050 S M28 W79 1844 9622 5 64 BM SMALL,EXP / 8 2057 V L05 W79 K 1844 9623 5 65 A &2,EXP / 7 2065 A M30 W79 1844 9624 5 66 S X3,EXP / 7 2072 S 099 W79 1845 9625 5 67 BWZ ARGLG,EXP,B / 8 2079 V L90 W79 B 1845 9626 5 68 ZA EXPB,EXP / 7 2087 ? W82 W79 1845 9627 5 69 SBR X1,PIOV2&X3 REDUCE ARGUMENT / 7 2094 H 089 M?5 1845 9628 5 70 ZA EXP&1,X2&1 / 7 2101 ? W80 095 1845 9629 5 71 B DIVID DIVIDE ARGUMENT BY PI/2 / 4 2108 B !00 1846 9630 5 72 ZA 1&X1,X2&1 / 7 2112 ? 0|1 095 1846 9631 5 73 SUB4 S &40,X2&1 DETERMINE QUADRANT IN WHICH / 7 2119 S M32 095 1846 9632 5 74 BWZ SUB4,X2&1,B ANGLE IS LOCATED AND WHETHER / 8 2126 V J19 095 B 1846 9633 5 75 BCE *&8,CODE,C SINE OR COSINE FUNCTION IS TO / 8 2134 B J49 924 C 1846 9634 5 76 SBR X2,1&X2 / 7 2142 H 094 0!1 1847 9635 5 77 MZ ZONZ&X2,NSIGN / 7 2149 Y M!0 |87 1847 9636 5 78 MN ZONZ&X2,BOX#1 / 7 2156 D M!0 M33 1847 9637 5 79 S DEC DEC # 0 / 4 2163 S K59 1847 9638 5 80 S EXP / 4 2167 S W79 1847 9639 5 81 BCE COS,BOX,2 / 8 2171 B K38 M33 2 1847 9640 5 82 * 9641 5 83 * SINE INITIALIZATION 9642 5 84 * 9643 5 85 SINE ZA ACCHI&X3,TOP&1&X3 / 7 2179 ? 2G9 2?2 1848 9644 5 86 B SQRX / 4 2186 B K64 1848 9645 5 87 ZA TOP&1&X3,SPOT-1 FIRST TERM # X / 7 2190 ? 2?2 249 1848 9646 5 88 ZA SPOT&1 / 4 2197 ? 251 1848 9647 5 89 ZS &2,NCON NCON # -2 / 7 2201 ! M30 K53 1848 9648 5 90 * 9649 5 91 * GENERAL INITIALIZATION FOR SERIES EVALUATION 9650 5 92 * 9651 5 93 SCGEN ZA &8,UPBY UPBY # &8 / 7 2208 ? M34 K50 1848 9652 5 94 S NCTR NCTR # 8 / 4 2215 S K56 1849 9653 5 95 B CALC / 4 2219 B !47 1849 9654 5 96 * 9655 5 97 * PREPARE FIELDS FOR NORMALIZATION 9656 5 98 * 9657 5 99 ZA1 ZA NSIGN / 4 2223 ? |87 1849 9658 6 00 SBR X2,TOP&X3 / 7 2227 H 094 2?1 1849 1 1401 FLOATING POINT SINE - COSINE SUBROUTINE 50533 PAGE 239 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9659 6 01 B NMLZ1 / 4 2234 B |24 1849 9660 6 02 * 9661 6 03 * COSINE INITIALIZATION 9662 6 04 * 9663 6 05 COS B SQRX / 4 2238 B K64 1849 9664 6 06 MN &1,0&X1 FIRST TERM # 1 / 7 2242 D M28 0|0 1849 9665 6 07 ZS &6,NCON NCON # -6 / 7 2249 ! M35 K53 1850 9666 6 08 S EXP / 4 2256 S W79 1850 9667 6 09 B SCGEN / 4 2260 B K08 1850 9668 6 10 * 9669 6 11 * SQUARE ARGUMENT 9670 6 12 * 9671 6 13 SQRX SBR SQRXT&3 / 4 2264 H L04 1850 9672 6 14 MCW ACCHI&X3,SPOT / 7 2268 M 2G9 250 1850 9673 6 15 SBR X1 / 4 2275 H 089 1850 9674 6 16 LCA @0@ / 4 2279 L M36 1850 9675 6 17 M ACCHI&X3,SPOT&1&X3 / 7 2283 @ 2G9 2E1 1851 9676 6 18 ZS SPOT&2,ACCHI&X3 CHANGE TO -% X SQUARED ) / 7 2290 ! 252 2G9 1851 9677 6 19 S SPOT&1 / 4 2297 S 251 1851 9678 6 20 SQRXT B XXX / 4 2301 B 000 1851 9679 6 21 * 9680 6 22 * SMALL VALUES OF X 9681 6 23 * 9682 6 24 SMALL A X3,EXP / 7 2305 A 099 W79 1851 9683 6 25 BM TSTFC,EXP / 8 2312 V L71 W79 K 1851 9684 6 26 ZA EXPB,EXP / 7 2320 ? W82 W79 1852 9685 6 27 MZ ACCHI&X3,ACCHI-1&X3 SHIFT CONTENTS OF ACCHI&X3 / 7 2327 Y 2G9 2G8 1852 9686 6 28 ZA ACCHI-1&X3,ACCHI&X3 ONE POSITION RIGHT / 7 2334 ? 2G8 2G9 1852 9687 6 29 A EXPB / 4 2341 A W82 1852 9688 6 30 ZS EXPB&1,DEC DEC # 20*EXP / 7 2345 ! W83 K59 1852 9689 6 31 MZ &1,NSIGN / 7 2352 Y M28 |87 1852 9690 6 32 BCE COS,CODE,C / 8 2359 B K38 924 C 1853 9691 6 33 B SINE / 4 2367 B J79 1853 9692 6 34 TSTFC BCE STR1,CODE,C / 8 2371 B J91 924 C 1853 9693 6 35 ZA EXPB,EXP / 7 2379 ? W82 W79 1853 9694 6 36 B CLRWK / 4 2386 B /34 1853 9695 6 37 ARGLG B ERMSG / 4 2390 B U71 1853 9696 6 38 DCW @SCL@ / 3 2396 1853 9697 6 39 B STRZE / 4 2397 B /42 1854 9698 6 40 * 9699 6 41 ZONZ EQU * / 2400 9700 6 42 DCW @AKJBA@ / 5 2405 1854 9701 6 43 * 9702 6 44 PIOV2 EQU * / 2405 9703 6 45 DCW 1570796326794896619231 / 22 2427 1854 DCW &1 / 1 2428 LIT 1854 DCW @ @ / 1 2429 LIT 1854 DCW &2 / 1 2430 LIT 1854 DCW &40 / 2 2432 LIT 1854 BOX / DCW #01 / 1 2433 AREA 1855 1 1401 FLOATING POINT SINE - COSINE SUBROUTINE 50533 PAGE 240 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &8 / 1 2434 LIT 1855 DCW &6 / 1 2435 LIT 1855 DCW @0@ / 1 2436 LIT 1855 9704 6 46 EX TRIGF / B !00 1856 1 1401 FLOATING POINT NATURAL LOGARITHM 50533 PAGE 241 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9705 6 47 JOB 1401 FLOATING POINT NATURAL LOGARITHM / 9706 6 48 * 9707 6 49 ORG 2000 / 2000 9708 6 50 * 9709 6 51 LOGF MZ ACCHI&X3,BASEZ / 7 2000 Y 2G9 W84 1859 9710 6 52 LOGF2 BE LOG99 / 5 2007 B K50 S 1859 9711 6 53 BM LOGER, ACCHI&X3 Q. NEGATIVE ARGUMENT / 8 2012 V K24 2G9 K 1859 9712 6 54 LOGF1 C SPOT-2,ACCHI&X3 / 7 2020 C 248 2G9 1859 9713 6 55 SAR X1 / 4 2027 Q 089 1859 9714 6 56 SW 0&X1 / 4 2031 , 0|0 1859 9715 6 57 MN &1, 2&X1 SET UP CONSTANT ONE / 7 2035 D L15 0|2 1860 9716 6 58 * FOR FASTEST RATE OF CONVERGENCE, PLACE ARG BETWEEN .32 AND 3.2 9717 6 59 C ACCHI&2,@31@ / 7 2042 C 281 L17 1860 9718 6 60 BH NOSHF / 5 2049 B !68 U 1860 9719 6 61 ZA ACCHI-1&X3,ACCHI&X3 / 7 2054 ? 2G8 2G9 1860 9720 6 62 A &1, EXP SHIFT DEC POINT 1 TO LEFT / 7 2061 A L15 W79 1860 9721 6 63 * 9722 6 64 NOSHF S ACCHI&X3, SPOT-1 COMPUTE 1-X / 7 2068 S 2G9 249 1861 9723 6 65 ZS SPOT-1,LZONE CORRECT SIGN / 7 2075 ! 249 L14 1861 9724 6 66 S &1, EXP SHIFT DEC POINT 1 TO RIGHT / 7 2082 S L15 W79 1861 9725 6 67 A &1, ACCHI&1 COMPUTE X&1 / 7 2089 A L15 280 1861 9726 6 68 S &0, SPOT&X3 CREATE QUOTIENT FIELD / 7 2096 S L18 2E0 1861 9727 6 69 D ACCHI&X3, SPOT-1 COMPUTE U # X-1 / X&1 / 7 2103 % 2G9 249 1862 9728 6 70 LCA SPOT-1, HOLD / 7 2110 L 249 L13 1862 9729 6 71 M HOLD, SPOT&1&X3 COMPUTE U **2 / 7 2117 @ L13 2E1 1862 9730 6 72 ZA SPOT-1, ACCHI&X3 / 7 2124 ? 249 2G9 1862 9731 6 73 ZA HOLD, SPOT&1 / 7 2131 ? L13 251 1862 9732 6 74 ZA LINIT,DEC DEC SET TO 0 / 7 2138 ? K87 K59 1863 9733 6 75 ZA NCTR SET TO 1 / 1 2145 ? 1863 9734 6 76 ZA NCON SET TO 2 / 1 2146 ? 1863 9735 6 77 ZA UPBY SET TO 0 / 1 2147 ? 1863 9736 6 78 SW LOGM1,LOGM2 / 7 2148 , J49 J71 1863 9737 6 79 SBR LOGM1-4,HOLD / 7 2155 H J45 L13 1863 9738 6 80 SBR LOGM2-1 / 4 2162 H J70 1863 9739 6 81 SBR CALXT&3,LOGRT / 7 2166 H J90 J77 1864 9740 6 82 B CALC1 / 4 2173 B !58 1864 9741 6 83 LOGRT A TOP&1&X3 DOUBLE RESULT / 4 2177 A 2?2 1864 9742 6 84 MZ LZONE, TOP&X3 GET PROPER SIGN / 7 2181 Y L14 2?1 1864 9743 6 85 ZA LN10&1&X3,SPOT-2 / 7 2188 ? KB7 248 1864 9744 6 86 M EXP, SPOT&2 COMPUTE N * LOG10 / 7 2195 @ W79 252 1864 9745 6 87 A TOP&X3, SPOT&2 ADD N * LOG10 TO RESULT / 7 2202 A 2?1 252 1865 9746 6 88 SBR X2, SPOT&2 / 7 2209 H 094 252 1865 9747 6 89 S EXPB / 4 2216 S W82 1865 9748 6 90 B MVZON / 4 2220 B |10 1865 9749 6 91 * 9750 6 92 LOGER BW *&8,4&X2 / 8 2224 V K39 0!4 1 1865 9751 6 93 B ERMSG / 4 2232 B U71 1865 9752 6 94 DCW @LNN@ / 3 2238 1865 9753 6 95 MZ LINIT,ACCHI&X3 MAKE SIGN PLUS AND FIND / 7 2239 Y K87 2G9 1866 9754 6 96 B LOGF1 LOG OF ABSOLUTE VALUE / 4 2246 B !20 1866 1 1401 FLOATING POINT NATURAL LOGARITHM 50533 PAGE 242 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9755 6 97 LOG99 BW POWER,4&X2 / 8 2250 V K76 0!4 1 1866 9756 6 98 B ERMSG / 4 2258 B U71 1866 9757 6 99 DCW @LNZ@ / 3 2264 1866 9758 7 00 MZ -0,ACCHI&X3 GIVE LARGE NEG NUMBER AS RESULT / 7 2265 Y L19 2G9 1866 9759 7 01 B STR99 / 4 2272 B /15 1866 9760 7 02 POWER CW ZROSW / 4 2276 ) W84 1867 9761 7 03 B STR1 / 4 2280 B J91 1867 9762 7 04 * 9763 7 05 DCW &0 UPBY / 1 2284 1867 9764 7 06 DCW &2 NCON / 1 2285 1867 9765 7 07 DCW &1 NCTR / 1 2286 1867 9766 7 08 LINIT DCW &0 DEC / 1 2287 1867 9767 7 09 HOLD DCW #26 / 26 2313 1867 9768 7 10 LZONE DCW #1 / 1 2314 1868 DCW &1 / 1 2315 LIT 1868 DCW @31@ / 2 2317 LIT 1868 DCW &0 / 1 2318 LIT 1868 DCW -0 / 1 2319 LIT 1868 9769 7 11 EX LOGF / B !00 1869 1 1401 FORTRAN FLOATING POINT EXPONENTIAL 50533 PAGE 243 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9770 7 12 JOB 1401 FORTRAN FLOATING POINT EXPONENTIAL / 9771 7 13 * 9772 7 14 ORG 2000 / 2000 9773 7 15 * 9774 7 16 EXPF MZ ONE,NSIGN / 7 2000 Y K90 |87 1872 9775 7 17 MN XPNUM,*&8 / 7 2007 D W84 !21 1872 9776 7 18 BCE OUTM1,@02468@,0 / 8 2014 B !40 K99 0 1872 9777 7 19 CHAIN 4 / MACRO 9778 BCE / 1 2022 B GEN 1872 9779 BCE / 1 2023 B GEN 1872 9780 BCE / 1 2024 B GEN 1872 9781 BCE / 1 2025 B GEN 1872 9782 7 20 MZ BASEZ,NSIGN / 7 2026 Y W84 |87 1873 9783 7 21 MN @8@,XPNUM / 7 2033 D L00 W84 1873 9784 7 22 OUTM1 BW RUNML,ZROSW / 8 2040 V !79 W84 1 1873 9785 7 23 SW ZROSW BASE IS ZERO / 4 2048 , W84 1873 9786 7 24 ZS ACCHI&X3 / 4 2052 ! 2G9 1873 9787 7 25 BU QSIGN BRANCH IF ARG NOT ZERO / 5 2056 B J21 / 1873 9788 7 26 B ERMSG / 4 2061 B U71 1873 9789 7 27 DCW @ZTZ@ ZERO TO ZERO POWER / 3 2067 1874 9790 7 28 PETTY MZ NSIGN,TWTCH / 7 2068 Y |87 K60 1874 9791 7 29 B STR1 / 4 2075 B J91 1874 9792 7 30 RUNML BE PETTY / 5 2079 B !68 S 1874 9793 7 31 NRML ZA EXP,EXPB / 7 2084 ? W79 W82 1874 9794 7 32 S ONE,EXPB / 7 2091 S K90 W82 1874 9795 7 33 BM SML,EXPB BRANCH IF EXP LESS OR # TO ZERO / 8 2098 V K45 W82 K 1875 9796 7 34 S THREE,EXPB / 7 2106 S K94 W82 1875 9797 7 35 BM REDUC,EXPB BRANCH IF EXP GREATER THAN ZERO / 8 2113 V J40 W82 K 1875 9798 7 36 * AND LESS THAN FOUR 9799 7 37 * 9800 7 38 * DETERMINE WHETHER EXPONENT OVERFLOW OR UNDERFLOW 9801 7 39 * 9802 7 40 QSIGN BM STRZE,ACCHI&X3 BRANCH IF ARGUMENT NEGATIVE / 8 2121 V /42 2G9 K 1875 9803 7 41 B ERMSG EXPONENT OVERFLOW / 4 2129 B U71 1875 9804 7 42 DCW @EOF@ / 3 2135 1875 9805 7 43 B STR99 / 4 2136 B /15 1876 9806 7 44 * 9807 7 45 * EXPONENT # &1, &2, OR &3 9808 7 46 * 9809 7 47 REDUC SBR X1,LN10&X3 STORE ADDRESS OF DIVISOR / 7 2140 H 089 KB6 1876 9810 7 48 ZA EXP&1,X2&1 / 7 2147 ? W80 095 1876 9811 7 49 B DIVID / 4 2154 B !00 1876 9812 7 50 C 0&X1,THC99 / 7 2158 C 0|0 K93 1876 9813 7 51 BL QSIGN BRANCH IF QUOT GREATER THAN 99 / 5 2165 B J21 T 1876 9814 7 52 ZA 0&X1,EXP / 7 2170 ? 0|0 W79 1877 9815 7 53 MZ ACCHI&X3,EXP / 7 2177 Y 2G9 W79 1877 9816 7 54 * 9817 7 55 * PREPARE FIELDS FOR SERIES CALCULATION 9818 7 56 * 9819 7 57 S DEC / 4 2184 S K59 1877 1 1401 FORTRAN FLOATING POINT EXPONENTIAL 50533 PAGE 244 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9820 7 58 FTERM C SPOT,ACCHI&X3 SET UP TERM DEVELOPMENT AREA / 7 2188 C 250 2G9 1877 9821 7 59 SAR X1 / 4 2195 Q 089 1877 9822 7 60 SW 0&X1 / 4 2199 , 0|0 1877 9823 7 61 S SPOT&1 CLEAR TERM DEVELOPMENT AREA / 4 2203 S 251 1877 9824 7 62 MN ONE,0&X1 FIRST TERM # 1 / 7 2207 D K90 0|0 1878 9825 7 63 ZA THC99-2,NCTR SET NCTR # ZERO / 7 2214 ? K91 K56 1878 9826 7 64 ZA SET NCON # 1 / 1 2221 ? 1878 9827 7 65 ZA SET UPBY # ZERO / 1 2222 ? 1878 9828 7 66 B CALC / 4 2223 B !47 1878 9829 7 67 * 9830 7 68 * PREPARE FIELDS FOR NORMALIZING 9831 7 69 * 9832 7 70 MZ TOP&1&X3,TOP&X3 / 7 2227 Y 2?2 2?1 1878 9833 7 71 SBR X2,TOP&X3 / 7 2234 H 094 2?1 1878 9834 7 72 B NMLZ1 / 4 2241 B |24 1879 9835 7 73 * 9836 7 74 * EXPONENTS LESS OR # TO ZERO 9837 7 75 * 9838 7 76 SML A X3,EXPB / 7 2245 A 099 W82 1879 9839 7 77 BM PETTY,EXPB BRANCH IF -E GREATER THAN PRECISION / 8 2252 V !68 W82 K 1879 9840 7 78 ZS EXP&1,DEC SET DEC # E / 7 2260 ! W80 K59 1879 9841 7 79 S EXP / 4 2267 S W79 1879 9842 7 80 MZ ACCHI&X3,ACCHI-1&X3 SET UP SERIES MULTIPLIER / 7 2271 Y 2G9 2G8 1879 9843 7 81 ZA ACCHI-1&X3,ACCHI&X3 / 7 2278 ? 2G8 2G9 1880 9844 7 82 B FTERM / 4 2285 B J88 1880 9845 7 83 DCW 0 / 1 2289 1880 9846 7 84 ONE DCW &1 / 1 2290 1880 9847 7 85 THC99 DCW &099 / 3 2293 1880 9848 7 86 THREE DCW &3 / 1 2294 1880 DCW @02468@ / 5 2299 LIT 1880 DCW @8@ / 1 2300 LIT 1881 9849 7 87 EX EXPF / B !00 1882 1 1401 FLOATING POINT ARCTANGENT 50533 PAGE 245 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9850 7 88 JOB 1401 FLOATING POINT ARCTANGENT / 9851 7 89 * 9852 7 90 ORG 2000 / 2000 9853 7 91 * 9854 7 92 CASE1 BE STRZE / 5 2000 B /42 S 1885 9855 7 93 MZ &1,INITL / 7 2005 Y M61 L62 1885 9856 7 94 ZA ACCHI-1&X3,ACCHI&X3 / 7 2012 ? 2G8 2G9 1885 9857 7 95 S DEC / 4 2019 S K59 1885 9858 7 96 S TOP&1&X3 / 4 2023 S 2?2 1885 9859 7 97 C SPOT-2,ACCHI&X3 / 7 2027 C 248 2G9 1885 9860 7 98 SAR X1 / 4 2034 Q 089 1885 9861 7 99 SW 0&X1 / 4 2038 , 0|0 1886 9862 8 00 ZA @0?@,SPOT&X3 / 7 2042 ? M63 2E0 1886 9863 8 01 MCW @0?@,EXPB / 7 2049 M M63 W82 1886 9864 8 02 MN EXP,EXPB / 7 2056 D W79 W82 1886 9865 8 03 MN / 1 2063 D 1886 9866 8 04 C EXPB,@0?@ / 7 2064 C W82 M63 1886 9867 8 05 BE ZEREX / 5 2071 B K83 S 1886 9868 8 06 S X3,EXPB / 7 2076 S 099 W82 1887 9869 8 07 BM TEST,EXPB / 8 2083 V J50 W82 K 1887 9870 8 08 BM CASE2,EXP / 8 2091 V J03 W79 K 1887 9871 8 09 B CASE7 / 4 2099 B J21 1887 9872 8 10 CASE2 MCW ACCHI&X3,TOP&X3 / 7 2103 M 2G9 2?1 1887 9873 8 11 A &1,EXP / 7 2110 A M61 W79 1888 9874 8 12 B SIGN / 4 2117 B J39 1888 9875 8 13 CASE7 S EXP / 4 2121 S W79 1888 9876 8 14 ADDPI2 A PIOV4&1&X3,TOP&1&X3 / 7 2125 A MA4 2?2 1888 9877 8 15 ADDPI4 A PIOV4&1&X3,TOP&1&X3 / 7 2132 A MA4 2?2 1888 9878 8 16 SIGN SBR X2,TOP&X3 / 7 2139 H 094 2?1 1888 9879 8 17 B NMLZ1 / 4 2146 B |24 1889 9880 8 18 TEST BM CASE3,EXP / 8 2150 V K47 W79 K 1889 9881 8 19 MN &1,2&X1 / 7 2158 D M61 0|2 1889 9882 8 20 SHIFT ZA SPOT-1&X3,SPOT&X3 / 7 2165 ? 2D9 2E0 1889 9883 8 21 S &1,EXP / 7 2172 S M61 W79 1889 9884 8 22 C EXP,@0?@ / 7 2179 C W79 M63 1890 9885 8 23 BL SHIFT / 5 2186 B J65 T 1890 9886 8 24 D ACCHI&X3,SPOT-1 / 7 2191 % 2G9 249 1890 9887 8 25 C 2&X1,@042@ / 7 2198 C 0|2 M66 1890 9888 8 26 BH CASE6 / 5 2205 B K32 U 1890 9889 8 27 ZS INITL / 4 2210 ! L62 1890 9890 8 28 MCW SPOT-3,ACCHI&X3 / 7 2214 M 247 2G9 1891 9891 8 29 ZA @0?@,SPOT&X3 / 7 2221 ? M63 2E0 1891 9892 8 30 B CASE4 / 4 2228 B K95 1891 9893 8 31 CASE6 SBR CALXT&3,ADDPI2 / 7 2232 H J90 J25 1891 9894 8 32 ZS INITL / 4 2239 ! L62 1891 9895 8 33 B MLTPLY / 4 2243 B L41 1891 9896 8 34 CASE3 SBR CALXT&3,SIGN / 7 2247 H J90 J39 1892 9897 8 35 ZA EXP,EXPB / 7 2254 ? W79 W82 1892 9898 8 36 A EXPB / 4 2261 A W82 1892 9899 8 37 ZS EXPB&1,DEC / 7 2265 ! W83 K59 1892 1 1401 FLOATING POINT ARCTANGENT 50533 PAGE 246 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9900 8 38 MCW ACCHI&X3,SPOT-3 / 7 2272 M 2G9 247 1892 9901 8 39 B MLTPLY / 4 2279 B L41 1892 9902 8 40 ZEREX C ACCHI&3,@042@ / 7 2283 C 282 M66 1893 9903 8 41 BH CASE3 / 5 2290 B K47 U 1893 9904 8 42 CASE4 SBR CALXT&3,ADDPI4 / 7 2295 H J90 J32 1893 9905 8 43 ZS INITL / 4 2302 ! L62 1893 9906 8 44 MN &1,2&X1 / 7 2306 D M61 0|2 1893 9907 8 45 S ACCHI&X3,SPOT-1 / 7 2313 S 2G9 249 1893 9908 8 46 A &1,ACCHI&1 / 7 2320 A M61 280 1894 9909 8 47 A @0?@,SPOT&X3 / 7 2327 A M63 2E0 1894 9910 8 48 D ACCHI&X3,SPOT-1 / 7 2334 % 2G9 249 1894 9911 8 49 MLTPLY LCA SPOT-1,HOLDD / 7 2341 L 249 M60 1894 9912 8 50 M HOLDD,SPOT&2&X3 / 7 2348 @ M60 2E2 1894 9913 8 51 ZS SPOT-1,ACCHI&X3 / 7 2355 ! 249 2G9 1895 9914 8 52 INITL ZA HOLDD / 4 2362 ? M60 1895 9915 8 53 ZA HOLDD,SPOT&1 / 7 2366 ? M60 251 1895 9916 8 54 ZA &2,NCON / 7 2373 ? M67 K53 1895 9917 8 55 S UPBY / 4 2380 S K50 1895 9918 8 56 ZA &1,NCTR / 7 2384 ? M61 K56 1895 9919 8 57 SW LOGM1,LOGM2 / 7 2391 , J49 J71 1896 9920 8 58 SBR LOGM1-4,HOLDD / 7 2398 H J45 M60 1896 9921 8 59 SBR LOGM2-1 / 4 2405 H J70 1896 9922 8 60 B CALC1 / 4 2409 B !58 1896 9923 8 61 PIOV4 EQU *&1 / 2413 9924 8 62 DCW @078539816339744830961566@ / 24 2436 1897 9925 8 63 HOLDD DCW #24 / 24 2460 1898 DCW &1 / 1 2461 LIT 1898 DCW @0?@ / 2 2463 LIT 1898 DCW @042@ / 3 2466 LIT 1898 DCW &2 / 1 2467 LIT 1898 9926 8 64 EX CASE1 / B !00 1899 1 1401 ABSOLUTE VALUE - NEGATE SUBROUTINE 50533 PAGE 247 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9927 8 65 JOB 1401 ABSOLUTE VALUE - NEGATE SUBROUTINE / 9928 8 66 * 9929 8 67 ORG 2000 / 2000 9930 8 68 ABSVL MZ *&1,ACCHI&X3 NEGATE ABSOLUTE VALUE OF ARGUMENT / 7 2000 Y !07 2G9 1902 9931 8 69 EX ABSVL / B !00 1903 9932 8 70 * 9933 8 71 ORG 2000 / 2000 9934 8 72 NEGF ZS ACCHI&X3 / 4 2000 ! 2G9 1906 9935 8 73 B CLRWK / 4 2004 B /34 1906 9936 8 74 EX NEGF / B !00 1907 1 FLOAT TO FIX CONVERSION 50533 PAGE 248 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9937 8 75 JOB FLOAT TO FIX CONVERSION / 9938 8 76 * 9939 8 77 ORG 2000 / 2000 9940 8 78 * 9941 8 79 FIXF SW FIXSW / 4 2000 , W87 1910 9942 8 80 SBR X1,0&X3 / 7 2004 H 089 0?0 1910 9943 8 81 MCW PARAMA&4,*&7 / 7 2011 M 690 !24 1910 9944 8 82 SBR X3,000 / 7 2018 H 099 000 1910 9945 8 83 S &1,EXP / 7 2025 S J32 W79 1910 9946 8 84 BM STRZE,EXP STORE ZERO IF CHAR OF ARG LESS THAN 1 / 8 2032 V /42 W79 K 1911 9947 8 85 ZA EXP&1,X2&1 / 7 2040 ? W80 095 1911 9948 8 86 C X1,X2 / 7 2047 C 089 094 1911 9949 8 87 BL EXPLS / 5 2054 B J07 T 1911 9950 8 88 S X1&1,X2&1 / 7 2059 S 090 095 1911 9951 8 89 C X3,X2 / 7 2066 C 099 094 1912 9952 8 90 BH STRZE / 5 2073 B /42 U 1912 9953 8 91 S SPOT&1&X2 / 4 2078 S 2N1 1912 9954 8 92 ZA ACCHI&X1,SPOT / 7 2082 ? 2X9 250 1912 9955 8 93 MZ SPOT,SPOT&1&X2 / 7 2089 Y 250 2N1 1912 9956 8 94 ZA SPOT&1&X2,ACCHI&X3 STORE FIXPT NUMBERS MODULO K / 7 2096 ? 2N1 2G9 1912 9957 8 95 B CLRWK / 4 2103 B /34 1913 9958 8 96 EXPLS MZ ACCHI&X1,ACCHI&1&X2 ADD ONLY INTEGER PLACES / 7 2107 Y 2X9 2Q0 1913 9959 8 97 LCA ACCHI&1&X2,SPOT / 7 2114 L 2Q0 250 1913 9960 8 98 ZA SPOT,ACCHI&X3 / 7 2121 ? 250 2G9 1913 9961 8 99 B CLRWK / 4 2128 B /34 1913 DCW &1 / 1 2132 LIT 1913 9962 9 00 EX FIXF / B !00 1914 1 FIX TO FLOAT CONVERSION 50533 PAGE 249 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9963 9 01 JOB FIX TO FLOAT CONVERSION / 9964 9 02 * 9965 9 03 ORG 2000 / 2000 9966 9 04 * 9967 9 05 FLOT CW FIXSW / 4 2000 ) W87 1917 9968 9 06 BW *&5,4&X2 / 8 2004 V !16 0!4 1 1917 9969 9 07 B *&8 / 4 2012 B !23 1917 9970 9 08 MN ACCHI&X3,XPNUM / 7 2016 D 2G9 W84 1917 9971 9 09 SBR X2,SPOT / 7 2023 H 094 250 1917 9972 9 10 LCA ACCHI&X3 / 4 2030 L 2G9 1917 9973 9 11 MCW PARAMA&6,*&7 / 7 2034 M 692 !47 1918 9974 9 12 SBR X3,000 / 7 2041 H 099 000 1918 9975 9 13 ZA X3,EXPB / 7 2048 ? 099 W82 1918 9976 9 14 B MVZON / 4 2055 B |10 1918 9977 9 15 EX FLOT / B !00 1919 1 1401 FLOATING POINT SQUARE ROOT 50533 PAGE 250 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 9978 9 16 JOB 1401 FLOATING POINT SQUARE ROOT / 9979 9 17 * 9980 9 18 ORG 2000 / 2000 9981 9 19 * 9982 9 20 SQRTF BM QERR,ACCHI&X3 BRANCH IF ARGUMENT NEGATIVE / 8 2000 V J87 2G9 K 1922 9983 9 21 MN ACCHI&X3,TOP&21&X3 / 7 2008 D 2G9 2B2 1922 9984 9 22 MCW / 1 2015 M 1922 9985 9 23 SW / 1 2016 , 1922 9986 9 24 SBR X1 / 4 2017 H 089 1922 9987 9 25 LCA &1,TOP INITIALIZE SUBTRAHEND / 7 2021 L K09 201 1922 9988 9 26 SBR X2 / 4 2028 H 094 1922 9989 9 27 ZA EXP&1,ACCHI&4 DETERMINE EXPONENT OF ROOT / 7 2032 ? W80 283 1923 9990 9 28 A &1, ACCHI&3 / 7 2039 A K09 282 1923 9991 9 29 M &50,ACCHI&6 / 7 2046 @ K11 285 1923 9992 9 30 MN ACCHI&4, EXP / 7 2053 D 283 W79 1923 9993 9 31 MN / 1 2060 D 1923 9994 9 32 BCE CKSGN,ACCHI&5,0 / 8 2061 B !80 284 0 1923 9995 9 33 SBR X1,1&X1 / 7 2069 H 089 0|1 1924 9996 9 34 B QSTRT / 4 2076 B !95 1924 9997 9 35 CKSGN BWZ QSTRT,EXP,B / 8 2080 V !95 W79 B 1924 9998 9 36 A &1,EXP / 7 2088 A K09 W79 1924 9999 9 37 QSTRT S ACCHI&X3 / 4 2095 S 2G9 1924 | 9 38 QRTN S &11,2&X2 ADJUST SUBTRAHEND / 7 2099 S K13 0!2 1924 | 1 9 39 SW 21&X2 / 4 2106 , 0K1 1925 | 2 9 40 CW / 1 2110 ) 1925 | 3 9 41 SBR X2, 1&X2 / 7 2111 H 094 0!1 1925 | 4 9 42 ZS &1, CNTR#1 / 7 2118 ! K09 K14 1925 | 5 9 43 QLOOP A &1,CNTR COMPUTE RESULT DIGITS / 7 2125 A K09 K14 1925 | 6 9 44 A &2,1&X2 INCREASE SUBTRAHEND / 7 2132 A K15 0!1 1925 | 7 9 45 S 1&X2,2&X1 DO ODD-INTEGER SUBTRACTIONS / 7 2139 S 0!1 0|2 1926 | 8 9 46 BWZ QLOOP, 2&X1, B / 8 2146 V J25 0|2 B 1926 | 9 9 47 A 1&X2, 2&X1 / 7 2154 A 0!1 0|2 1926 | 10 9 48 MN CNTR, DELTA&X2 / 7 2161 D K14 0P9 1926 | 11 9 49 SBR X1, 2&X1 / 7 2168 H 089 0|2 1926 | 12 9 50 BWZ QRTN, DELTA&X2, 2 / 8 2175 V !99 0P9 2 1927 | 13 9 51 B CLRWK / 4 2183 B /34 1927 | 14 9 52 QERR B ERMSG / 4 2187 B U71 1927 | 15 9 53 DCW @SQN@ / 3 2193 1927 | 16 9 54 MZ &1,ACCHI&X3 / 7 2194 Y K09 2G9 1927 | 17 9 55 CS ACCHI-1 / 4 2201 / 278 1927 | 18 9 56 B SQRTF&8 / 4 2205 B !08 1927 DCW &1 / 1 2209 LIT 1928 DCW &50 / 2 2211 LIT 1928 DCW &11 / 2 2213 LIT 1928 CNTR / DCW #01 / 1 2214 AREA 1928 DCW &2 / 1 2215 LIT 1928 | 19 9 57 EX SQRTF / B !00 1929 1 1401 FORTRAN USER FUNCTIONS 50533 PAGE 251 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD | 20 9 58 JOB 1401 FORTRAN USER FUNCTIONS / | 21 9 59 SFX A A | 22 9 60 ORG 2000 A 2000 | 23 9 61 DCW @USER FUNCTION 1 GOES HERE@ A 26 2025 1932 | 24 9 62 XFR 0 A B 000 1933 | 25 9 63 ORG 2000 A 2000 | 26 9 64 DCW @USER FUNCTION 2 GOES HERE@ A 26 2025 1936 | 27 9 65 XFR 0 A B 000 1937 | 28 9 66 ORG 2000 A 2000 | 29 9 67 DCW @USER FUNCTION 3 GOES HERE@ A 26 2025 1940 | 30 9 68 XFR 0 A B 000 1941 | 31 9 69 ORG 2000 A 2000 | 32 9 70 DCW @USER FUNCTION 4 GOES HERE@ A 26 2025 1944 | 33 9 71 XFR 0 A B 000 1945 | 34 9 72 ORG 2000 A 2000 | 35 9 73 DCW @USER FUNCTION 5 GOES HERE@ A 26 2025 1948 | 36 9 74 XFR 0 A B 000 1949 | 37 9 75 ORG 2000 A 2000 | 38 9 76 DCW @USER FUNCTION 6 GOES HERE@ A 26 2025 1952 | 39 9 77 XFR 0 A B 000 1953 | 40 9 78 ORG 2000 A 2000 | 41 9 79 DCW @USER FUNCTION 7 GOES HERE@ A 26 2025 1956 | 42 9 80 XFR 0 A B 000 1957 | 43 9 81 ORG 2000 A 2000 | 44 9 82 DCW @USER FUNCTION 8 GOES HERE@ A 26 2025 1960 | 45 9 83 XFR 0 A B 000 1961 | 46 9 84 ORG 2000 A 2000 | 47 9 85 DCW @USER FUNCTION 9 GOES HERE@ A 26 2025 1964 | 48 9 86 XFR 0 A B 000 1965 | 49 9 87 ORG 2000 A 2000 | 50 9 88 DCW @USER FUNCTION 10 GOES HERE@ A 26 2025 1968 | 51 9 89 XFR 0 A B 000 1969 | 52 9 90 ORG 2000 A 2000 | 53 9 91 DCW @USER FUNCTION 11 GOES HERE@ A 26 2025 1972 | 54 9 92 XFR 0 A B 000 1973 | 55 9 93 ORG 2000 A 2000 | 56 9 94 DCW @USER FUNCTION 12 GOES HERE@ A 26 2025 1976 | 57 9 95 XFR 0 A B 000 1977 1 1401 FORTRAN RELOCATABLE XLINKF 50533 PAGE 252 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD | 58 9 96 JOB 1401 FORTRAN RELOCATABLE XLINKF A | 59 9 97 ORG 2000 A 2000 | 60 9 98 RSTART MCW CLRCON,359 CHANG ON REASM OF FIXED XLINK A 7 2000 M !13 359 1980 | 61 9 99 B 337 A 4 2007 B 337 1980 | 62 10 00 CLRCON DCW #3 A 3 2013 1980 | 63 10 01 EX RSTART A B !00 1981 1 1401 FORTRAN FUNCTION BRANCH ROUTINE 50533 PAGE 253 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD | 64 10 02 JOB 1401 FORTRAN FUNCTION BRANCH ROUTINE A | 65 10 03 ORG 2000 A 2000 | 66 10 04 T SINFUN,4&X2,S A 8 2000 T 903 0!4 S 1984 | 67 10 05 XFR 0 A B 000 1985 | 68 10 06 ORG 2000 A 2000 | 69 10 07 T SINFUN,4&X2,C A 8 2000 T 903 0!4 C 1988 | 70 10 08 XFR 0 A B 000 1989 | 71 10 09 ORG 2000 A 2000 | 72 10 10 T LOGFUN,4&X2,G A 8 2000 T 900 0!4 G 1992 | 73 10 11 XFR 0 A B 000 1993 | 74 10 12 ORG 2000 A 2000 | 75 10 13 T XPNETL,4&X2,E A 8 2000 T 897 0!4 E 1996 | 76 10 14 XFR 0 A B 000 1997 | 77 10 15 ORG 2000 A 2000 | 78 10 16 T ATANFN,4&X2,T A 8 2000 T 894 0!4 T 2000 | 79 10 17 XFR 0 A B 000 2001 | 80 10 18 ORG 2000 A 2000 | 81 10 19 T ABSVAL,4&X2,A A 8 2000 T 891 0!4 A 2004 | 82 10 20 XFR 0 A B 000 2005 | 83 10 21 ORG 2000 A 2000 | 84 10 22 T NEGTFN,4&X2,N A 8 2000 T 888 0!4 N 2008 | 85 10 23 XFR 0 A B 000 2009 | 86 10 24 ORG 2000 A 2000 | 87 10 25 T FIXFUN,4&X2,X A 8 2000 T 885 0!4 X 2012 | 88 10 26 XFR 0 A B 000 2013 | 89 10 27 ORG 2000 A 2000 | 90 10 28 T FLTFUN,4&X2,F A 8 2000 T 882 0!4 F 2016 | 91 10 29 XFR 0 A B 000 2017 | 92 10 30 ORG 2000 A 2000 | 93 10 31 T SQRTFN,4&X2,Q A 8 2000 T 879 0!4 Q 2020 | 94 10 32 XFR 0 A B 000 2021 | 95 10 33 ORG 2000 A 2000 | 96 10 34 T YUSER1,4&X2,R A 8 2000 T 876 0!4 R 2024 | 97 10 35 XFR 0 A B 000 2025 | 98 10 36 ORG 2000 A 2000 | 99 10 37 T YUSER2,4&X2,U A 8 2000 T 873 0!4 U 2028 |100 10 38 XFR 0 A B 000 2029 |101 10 39 ORG 2000 A 2000 |102 10 40 T YUSER3,4&X2,P A 8 2000 T 870 0!4 P 2032 |103 10 41 XFR 0 A B 000 2033 |104 10 42 ORG 2000 A 2000 |105 10 43 T YUSER4,4&X2,W A 8 2000 T 867 0!4 W 2036 |106 10 44 XFR 0 A B 000 2037 |107 10 45 ORG 2000 A 2000 |108 10 46 T YUSER5,4&X2,Y A 8 2000 T 864 0!4 Y 2040 |109 10 47 XFR 0 A B 000 2041 |110 10 48 ORG 2000 A 2000 |111 10 49 T YUSER6,4&X2,Z A 8 2000 T 861 0!4 Z 2044 |112 10 50 XFR 0 A B 000 2045 |113 10 51 ORG 2000 A 2000 1 1401 FORTRAN FUNCTION BRANCH ROUTINE 50533 PAGE 254 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |114 10 52 T YUSER7,4&X2,J A 8 2000 T 858 0!4 J 2048 |115 10 53 XFR 0 A B 000 2049 |116 10 54 ORG 2000 A 2000 |117 10 55 T YUSER8,4&X2,K A 8 2000 T 855 0!4 K 2052 |118 10 56 XFR 0 A B 000 2053 |119 10 57 ORG 2000 A 2000 |120 10 58 T YUSER9,4&X2,L A 8 2000 T 852 0!4 L 2056 |121 10 59 XFR 0 A B 000 2057 |122 10 60 ORG 2000 A 2000 |123 10 61 T YUSR10,4&X2,M A 8 2000 T 849 0!4 M 2060 |124 10 62 XFR 0 A B 000 2061 |125 10 63 ORG 2000 A 2000 |126 10 64 T YUSR11,4&X2,D A 8 2000 T 846 0!4 D 2064 |127 10 65 XFR 0 A B 000 2065 |128 10 66 ORG 2000 A 2000 |129 10 67 T YUSR12,4&X2,H A 8 2000 T 843 0!4 H 2068 |130 10 68 XFR 0 A B 000 2069 |131 10 69 ORG 2000 A 2000 |132 10 70 T XLINKS,4&X2,I A 8 2000 T 840 0!4 I 2072 |133 10 71 XFR 0 A B 000 2073 |134 71 02 110 DCW @;;;;;@ ALL 11-6-8 LAST CARD OF PACKAGE A 5 0110 2076 1 1401 FORTRAN RELOADING SNAPSHOT 5053R PAGE 255 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |135 71 03 JOB 1401 FORTRAN RELOADING SNAPSHOT A |136 71 04 SFX # # |137 71 05 110 DCW @RELOAD SS@ # 9 0110 2077 |138 71 06 ORG STARTR # 0934 |139 71 07 BEGIN B EXIT1 # 4 0934 B |00 2078 |140 71 08 RETRN MCW @D@,WORD # 7 0938 M 990 680 2078 |141 71 09 CW WORD # 4 0945 ) 680 2078 |142 71 10 FENDX C,,,STARTR,STARTR,,GM53S,FORMATPAK # MACRO |143 BSS 333,C # 5 0949 B 333 C GEN 2078 |144 SBR INITAP&6,STARTR # 7 0954 H 786 934 GEN 2078 |145 SBR BCLEAR # 4 0961 H 833 GEN 2078 |146 SBR INITXT&3,STARTR # 7 0965 H 796 934 GEN 2078 |147 SBR TCLEAR,GM53S # 7 0972 H 710 W96 GEN 2079 |148 LCA @FORMATPAK@,110 # 7 0979 L 999 110 GEN 2079 |149 B MONTER # 4 0986 B 700 GEN 2079 |150 71 11 LTORG * # 0990 DCW @D@ # 1 0990 LIT 2079 DCW @FORMATPAK@ # 9 0999 LIT 2079 |151 71 12 EXIT1 SBR INITAP&6,333 # 7 1000 H 786 333 2079 |152 71 13 SBR BCLEAR,EXIT1 # 7 1007 H 833 |00 2080 |153 71 14 SBR INITXT&3,RETRN # 7 1014 H 796 938 2080 |154 71 15 SBR TCLEAR,GM53S # 7 1021 H 710 W96 2080 |155 71 16 LCA @SNAPSHOT53@,110 # 7 1028 L |48 110 2080 |156 71 17 B MONTER # 4 1035 B 700 2080 |157 71 18 LTORG * # 1039 DCW @SNAPSHOT53@ # 10 1048 LIT 2081 |158 71 19 ORG 1696 # 1696 |159 71 20 GM53S DCW @}@ GROUP MARK # 1 1696 GMARK 2082 |160 71 21 XFR BEGIN # B 934 2083 1 1401 FORTRAN SNAPSHOT 53S 5053S PAGE 256 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |161 71 22 JOB 1401 FORTRAN SNAPSHOT 53S # |162 71 23 XXX EQU 0 # 0000 |163 71 24 XL1 EQU 089 # 0089 |164 71 25 XL2 EQU 094 # 0094 |165 71 26 XL3 EQU 099 # 0099 |166 71 27 ORG 333 # 0333 |167 71 28 SBR PRTXT&3 # 4 0333 H 567 2086 |168 71 29 SBR HLDXT&6 # 4 0337 H 408 2086 |169 71 30 MCW @000@,LINCT-2 # 7 0341 M 661 656 2086 |170 71 31 MCW XL3, HLD32&6 # 7 0348 M 099 415 2086 |171 71 32 MCW XL1, HLD31&6 # 7 0355 M 089 422 2086 |172 71 33 SBR XL1, 1 # 7 0362 H 089 001 2086 |173 71 34 SBR XL3, 202 # 7 0369 H 099 202 2087 |174 71 35 CS 332 # 4 0376 / 332 2087 |175 71 36 CS # 1 0380 / 2087 |176 71 37 MCW 110,210 # 7 0381 M 110 210 2087 |177 71 38 BSS ONLY,F # 5 0388 B 621 F 2087 |178 71 39 CC 1 # 2 0393 F 1 2087 |179 71 40 MCW 094,250 # 7 0395 M 094 250 2087 |180 71 41 HLDXT SBR 216,XXX # 7 0402 H 216 000 2088 |181 71 42 HLD32 SBR 256,XXX # 7 0409 H 256 000 2088 |182 71 43 HLD31 SBR 244,XXX # 7 0416 H 244 000 2088 |183 71 44 W # 1 0423 2 2088 |184 71 45 CC K # 2 0424 F K 2088 |185 71 46 ZA &2,PGCTR#2 # 7 0426 ? 662 664 2088 |186 71 47 NULIN CS 332 # 4 0433 / 332 2088 |187 71 48 CS # 1 0437 / 2089 |188 71 49 CC J # 2 0438 F J 2089 |189 71 50 MCW LINCT,306 # 7 0440 M 658 306 2089 |190 71 51 MCW # 1 0447 M 2089 |191 71 52 SBR MVHED&6 # 4 0448 H 465 2089 |192 71 53 MCW @9@, CTR-1 # 7 0452 M 665 668 2089 |193 71 54 MVHED MCW CTR-1,XXX # 7 0459 M 668 000 2089 |194 71 55 MCW HEAD # 4 0466 M 651 2090 |195 71 56 SBR MVHED&6 # 4 0470 H 465 2090 |196 71 57 A @I0@, CTR#2 # 7 0474 A 667 669 2090 |197 71 58 BWZ MVHED, CTR-1, 2 # 8 0481 V 459 668 2 2090 |198 71 59 A &1,LINCT-2 # 7 0489 A 670 656 2090 |199 71 60 W # 1 0496 2 2090 |200 71 61 LOOP SW 0&X3 # 4 0497 , 0?0 2090 |201 71 62 MCW 0&X1,0&X3 # 7 0501 M 0|0 0?0 2091 |202 71 63 BW CMPAB,0&X1 # 8 0508 V 520 0|0 1 2091 |203 71 64 CW 0&X3 # 4 0516 ) 0?0 2091 |204 71 65 CMPAB C XL1,PARAMA&2 # 7 0520 C 089 688 2091 |205 71 66 BU CPL # 5 0527 B 568 / 2091 |206 71 67 W # 1 0532 2 2091 |207 71 68 WM # 2 0533 2 ) 2091 |208 71 69 RSTRX MCW HLD31&6,XL1 # 7 0535 M 422 089 2092 |209 71 70 MCW HLD32&6,XL3 # 7 0542 M 415 099 2092 |210 71 71 CS 332 # 4 0549 / 332 2092 1 1401 FORTRAN SNAPSHOT 53S 5053S PAGE 257 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |211 71 71 CS # 1 0553 / 2092 |212 71 73 BSS *&5,G # 5 0554 B 563 G 2092 |213 71 74 B PRTXT # 4 0559 B 564 2092 |214 71 75 H # 1 0563 . 2092 |215 71 76 PRTXT B 0 # 4 0564 B 000 2093 |216 71 77 CPL SBR XL1, 1&X1 # 7 0568 H 089 0|1 2093 |217 71 78 BCE INC, XL3-2, 2 # 8 0575 B 632 097 2 2093 |218 71 79 SBR XL3, 201 # 7 0583 H 099 201 2093 |219 71 80 W # 1 0590 2 2093 |220 71 81 WM # 2 0591 2 ) 2093 |221 71 82 A &1,PGCTR # 7 0593 A 670 664 2093 |222 71 83 C PGCTR,&15 # 7 0600 C 664 672 2094 |223 71 84 BU NULIN # 5 0607 B 433 / 2094 |224 71 85 S PGCTR # 4 0612 S 664 2094 |225 71 86 CCB NULIN,1 # 5 0616 F 433 1 2094 |226 71 87 ONLY MCW WORD,220 # 7 0621 M 680 220 2094 |227 71 88 W RSTRX # 4 0628 2 535 2094 |228 71 89 INC A &1,XL3 # 7 0632 A 670 099 2094 |229 71 90 B LOOP # 4 0639 B 497 2095 |230 71 91 HEAD DCW @9........@ # 9 0651 2095 |231 71 92 DCW @9-@ # 2 0653 2095 |232 71 93 LINCT DCW 00000 # 5 0658 2095 |233 71 94 LTORG * # 0659 DCW @000@ # 3 0661 LIT 2095 DCW &2 # 1 0662 LIT 2095 PGCTR# DCW #02 # 2 0664 AREA 2095 DCW @9@ # 1 0665 LIT 2096 DCW @I0@ # 2 0667 LIT 2096 CTR # DCW #02 # 2 0669 AREA 2096 DCW &1 # 1 0670 LIT 2096 DCW &15 # 2 0672 LIT 2096 |234 71 95 DCW @EXECUTE@ # 7 0679 2096 |235 71 96 WORD DCW @}@ GROUP MARK IN 680 # 1 0680 GMARK 2096 |236 71 97 XFR RETRN # B 938 2097 1 1401 FORTRAN FORMAT PACKAGE 5054A PAGE 258 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |237 1 01 JOB 1401 FORTRAN FORMAT PACKAGE # |238 1 02 CTL 645 11 # |239 1 03 SFX ; ; |240 1 04 110 DCW @FORMATPAK@ ; 9 0110 2100 |241 1 05 X1 EQU 089 ; 0089 |242 1 06 X2 EQU 094 ; 0094 |243 1 07 X3 EQU 099 ; 0099 |244 1 13 ORG STARTR ; 0934 |245 1 14 FOMAT SW GMWM,FORMAQ ; 7 0934 , S53 W97 2101 |246 1 15 BCE TPSYS,MONTOR,N TAPE OR CARD SYSTEM ; 8 0941 B |59 769 N 2101 |247 1 16 CDSYS BCE CDLIO,PARAMA&10,L L#LIMITED I/O ; 8 0949 B |26 696 L 2101 |248 1 17 SKLIO R ; 1 0957 1 2101 |249 1 18 BCE NTEST,68,B ; 8 0958 B 970 068 B 2101 |250 1 19 B SKLIO ; 4 0966 B 957 2101 |251 1 20 NTEST BCE SKFIO,PARAMA&10,X X#NO I/O ; 8 0970 B |34 696 X 2102 |252 1 21 R 040 ; 4 0978 1 040 2102 |253 1 22 CWFIO CW GMK ; 4 0982 ) 28W 2102 |254 1 23 C PARAMA&4,@01@ ; 7 0986 C 690 S39 2102 |255 1 24 BU ATEST ; 5 0993 B |05 / 2102 |256 1 25 LCA @N@,CWMKS ; 7 0998 L S40 A38 2102 |257 1 26 ATEST BCE CDAF,PARAMA&10,A A#A FORMAT ; 8 1005 B |47 696 A 2103 |258 1 27 SKAIO R ; 1 1013 1 2103 |259 1 28 BCE EXITA,68,B ; 8 1014 B /41 068 B 2103 |260 1 29 B SKAIO ; 4 1022 B |13 2103 |261 1 30 CDLIO R 040 ; 4 1026 1 040 2103 |262 1 31 CWLIO CW GPWDMK ; 4 1030 ) !22 2103 |263 1 32 SKFIO R ; 1 1034 1 2103 |264 1 33 BCE ATEST,68,B ; 8 1035 B |05 068 B 2104 |265 1 34 B SKFIO ; 4 1043 B |34 2104 |266 1 35 CDAF R 040 ; 4 1047 1 040 2104 |267 1 36 CWAF CW GM54D ; 4 1051 ) 61W 2104 |268 1 37 B EXITA ; 4 1055 B /41 2104 |269 1 38 TPSYS BCE TPLIO,PARAMA&10,L ; 8 1059 B /64 696 L 2104 |270 1 39 SKPL RTW 1,GMWM ; 8 1067 L %U1 S53 R 2105 |271 1 40 BER TPER ; 5 1075 B S11 L 2105 |272 1 41 BCE SKPF,PARAMA&10,X ; 8 1080 B /77 696 X 2105 |273 1 42 FULIO RTW 1,FORMAQ ; 8 1088 L %U1 W97 R 2105 |274 1 43 BER TPER ; 5 1096 B S11 L 2105 |275 1 44 C PARAMA&4,@01@ ; 7 1101 C 690 S39 2106 |276 1 45 BU TSTAF ; 5 1108 B /20 / 2106 |277 1 46 LCA @N@,CWMKS ; 7 1113 L S40 A38 2106 |278 1 47 TSTAF BCE TPAF,PARAMA&10,A ; 8 1120 B /94 696 A 2106 |279 1 48 SKPAF RTW 1,GMWM ; 8 1128 L %U1 S53 R 2106 |280 1 49 BER TPER ; 5 1136 B S11 L 2107 |281 1 50 EXITA FENDX C,,,,,,GMWM,REPLACE 2 ; MACRO |282 EXITA BSS 333,C ; 5 1141 B 333 C GEN 2107 |283 SBR TCLEAR,GMWM ; 7 1146 H 710 S53 GEN 2107 |284 LCA @REPLACE 2@,110 ; 7 1153 L S49 110 GEN 2107 |285 B MONTER ; 4 1160 B 700 GEN 2107 |286 1 51 TPLIO RTW 1,FORMAQ ; 8 1164 L %U1 W97 R 2107 1 1401 FORTRAN FORMAT PACKAGE 5054A PAGE 259 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |287 1 52 BER TPER ; 5 1172 B S11 L 2108 |288 1 53 SKPF RTW 1,GMWM ; 8 1177 L %U1 S53 R 2108 |289 1 54 BER TPER ; 5 1185 B S11 L 2108 |290 1 55 B SKPAF ; 4 1190 B /28 2108 |291 1 56 TPAF RTW 1,ABEGN ; 8 1194 L %U1 28| R 2108 |292 1 57 BER TPER ; 5 1202 B S11 L 2108 |293 1 58 B EXITA ; 4 1207 B /41 2108 |294 1 59 TPER SBR BBACK&3 ; 4 1211 H S37 2109 |295 1 60 MA @I8G@,BBACK&3 ; 7 1215 # S52 S37 2109 |296 1 61 BSP 1 ; 5 1222 U %U1 B 2109 |297 1 62 H 3333,3333 ; 7 1227 . C33 C33 2109 |298 1 63 BBACK B 0 ; 4 1234 B 000 2109 |299 1 64 LTORG * ; 1238 DCW @01@ ; 2 1239 LIT 2109 DCW @N@ ; 1 1240 LIT 2109 DCW @REPLACE 2@ ; 9 1249 LIT 2110 DCW @I8G@ ; 3 1252 LIT 2110 |300 1 65 GMWM DCW @}@ GROUP MARK ; 1 1253 GMARK 2110 |301 1 66 XFR FOMAT NEXT COMES LIO, THEN FULL I/O ; B 934 2111 1 OBJECT TIME FORMAT 5054B PAGE 260 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |302 1 67 JOB OBJECT TIME FORMAT ; |303 1 68 ORG 1697 ; 1697 |304 1 69 START SBR X1 ; 4 1697 H 089 2114 |305 1 70 SW GPWDMK ; 4 1701 , !22 2114 |306 1 71 CW 0&X1 ; 4 1705 ) 0|0 2114 |307 1 72 MCW X3,SAVX3#3 SAVE X3 ; 7 1709 M 099 Z99 2114 |308 1 73 LCA @001@,X3 ; 7 1716 L !02 099 2114 |309 1 74 BWZ WRTAP,0&X1,S GO TO WRITE TAPE ON ZONE. ; 8 1723 V Z17 0|0 S 2114 |310 1 75 MCW @R@,IO4&7 SET READ TAPE D MODIFIER ; 7 1731 M !03 Y55 2115 |311 1 76 RDTAP MCW 6&X1,LOC#3 ; 7 1738 M 0|6 !06 2115 |312 1 77 IO1 MCW LOC,IO12&6 ; 7 1745 M !06 X58 2115 |313 1 78 IO12 BCE RET,000,. . IS END OF LIST, RETURN ; 8 1752 B Z02 000 . 2115 |314 1 79 MA @006@,LOC ; 7 1760 # !09 !06 2115 |315 1 80 MCW LOC,IO15&3 ; 7 1767 M !06 X77 2116 |316 1 81 IO15 MCW 000,ADDR#6 ADDR IS LOC OF DATA ADDR ; 7 1774 M 000 !15 2116 |317 1 82 SW ADDR-2 ; 4 1781 , !13 2116 |318 1 83 MA @001@,ADDR ADDR IS NOW LOC OF DATA ADDR &1 ; 7 1785 # !02 !15 2116 |319 1 84 MCW ADDR,IO2&3 ; 7 1792 M !15 Y02 2116 |320 1 85 IO2 MCW 000,SAVCH#1 SAVE CHAR AFTER DATA AREA ; 7 1799 M 000 !16 2116 |321 1 86 MCW ADDR,IO3&6 ; 7 1806 M !15 Y19 2117 |322 1 87 IO3 LCA GPWDMK,000 MOVE GP MK WD MK TO DATA ADDR &1 ; 7 1813 L !22 000 2117 |323 1 88 MCW ADDR-3,IO4&6 MOVE FIRST CHAR ADDR OF DATA ; 7 1820 M !12 Y54 2117 |324 1 89 MN 0&X1,IO4&3 MOVE TAPE NO. ; 7 1827 D 0|0 Y51 2117 |325 1 90 S COUNT#1,COUNT CLEAR READ-ERROR COUNTER ; 7 1834 S !17 !17 2117 |326 1 91 MZ @A@,IO4&5 ; 7 1841 Y !18 Y53 2118 |327 1 92 IO4 RTW 1,000 ; 8 1848 L %U1 000 R 2118 |328 1 94 BER RWT31 ; 5 1856 B Z28 L 2118 |329 1 95 MCW ADDR,IO5&6 ; 7 1861 M !15 Y74 2118 |330 1 96 IO5 MCW SAVCH,000 RETURN CHAR AFTER DATA AREA ; 7 1868 M !16 000 2118 |331 1 97 MA @001@,LOC STEP TO NEXT VARIABLE IN LIST ; 7 1875 # !02 !06 2119 |332 1 98 CW ADDR-2 ; 4 1882 ) !13 2119 |333 1 981 BEF RWT78 V3M4 ; 5 1886 B Z90 K 2119 |334 1 982 MA @001@,LOC V3M4 ; 7 1891 # !02 !06 2119 |335 1 99 B IO1 ; 4 1898 B X45 2119 |336 2 00 RET MCW SAVX3,X3 RESTORE X3 ; 7 1902 M Z99 099 2119 |337 2 01 SW 0&X1 ; 4 1909 , 0|0 2119 |338 2 02 B 7&X1 ; 4 1913 B 0|7 2120 |339 2 03 WRTAP MCW @W@,IO4&7 SET WRITE TAPE D MODIFIER ; 7 1917 M !19 Y55 2120 |340 2 04 B RDTAP ; 4 1924 B X38 2120 |341 2 05 RWT31 BCE RWT77,COUNT,I TEST READ-ERROR COUNTER ; 8 1928 B Z83 !17 I 2120 |342 2 06 MN IO4&3,*&4 ; 7 1936 D Y51 Z46 2120 |343 2 07 UB %U0 BACKSPACE ; 5 1943 U %U0 B 2120 |344 2 08 BCE RWT41,IO4&7,W ; 8 1948 B Z67 Y55 W 2121 |345 2 09 A @1@,COUNT INCREASE READ-ERROR COUNTER ; 7 1956 A !20 !17 2121 |346 2 10 B IO4 ; 4 1963 B Y48 2121 |347 2 11 RWT41 MN IO4&3,*&4 ; 7 1967 D Y51 Z77 2121 |348 2 12 UE %U0 SKIP AND ERASE ; 5 1974 U %U0 E 2121 |349 2 13 B IO4 ; 4 1979 B Y48 2121 |350 2 14 RWT77 H *-6,777 TAPE-ERROR ; 7 1983 . Z83 777 2122 |351 2 15 RWT78 H *-6,888 END-OF-FILE ; 7 1990 . Z90 888 2122 1 OBJECT TIME FORMAT 5054B PAGE 261 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |352 2 16 LTORG * ; 1997 SAVX3; DCW #03 ; 3 1999 AREA 2122 DCW @001@ ; 3 2002 LIT 2122 DCW @R@ ; 1 2003 LIT 2122 LOC ; DCW #03 ; 3 2006 AREA 2122 DCW @006@ ; 3 2009 LIT 2122 ADDR ; DCW #06 ; 6 2015 AREA 2123 SAVCH; DCW #01 ; 1 2016 AREA 2123 COUNT; DCW #01 ; 1 2017 AREA 2123 DCW @A@ ; 1 2018 LIT 2123 DCW @W@ ; 1 2019 LIT 2123 DCW @1@ ; 1 2020 LIT 2123 |353 2 17 DCW @ @ ; 1 2021 2123 |354 2 18 GPWDMK DCW @}@ GROUP MARK ; 1 2022 GMARK 2124 |355 2 19 XFR CWLIO ; B |30 2125 1 OBJECT TIME FORMAT 5054C PAGE 262 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |356 2 20 JOB OBJECT TIME FORMAT ; |357 2 21 ORG 1697 ; 1697 |358 2 22 FORMAQ SBR X1 ; 4 1697 H 089 2128 |359 2 23 MLC 0&X1,FMTZON SAVE I/O CODE ; 7 1701 M 0|0 J36 2128 |360 2 24 MLC *-6,IO ; 7 1708 M X08 D38 2128 |361 2 25 SBR FMTXT&3, 7&X1 STORE EXIT FROM FORMAT ROUTN ; 7 1715 H J35 0|7 2128 |362 2 26 MCW 6&X1,LIST&6 ; 7 1722 M 0|6 Z68 2128 |363 2 27 ZA *-6,PCTR SET SCALE FACTOR TO ZERO ; 7 1729 ? X29 L27 2128 |364 2 28 CW INSW#1 ; 4 1736 ) 25| 2129 |365 2 29 SW GMK ; 4 1740 , 28W 2129 |366 2 30 MCW 3&X1, XL2 MV ADDR OF SPEC TO X2 ; 7 1744 M 0|3 094 2129 |367 2 31 SBR X3, 200 INITILZE WKAREA CTR TO LFT ; 7 1751 H 099 200 2129 |368 2 32 SBR TUMUCH#3,334 ; 7 1758 H 25T 334 2129 |369 2 33 BCE READC, 0&X1, & READ CARD ; 8 1765 B E60 0|0 & 2129 |370 2 34 BCE PUNCH, 0&X1, - PUNCH CARD ; 8 1773 B E29 0|0 - 2130 |371 2 35 BCE PRINT, 0&X1, * PRINT LINE ; 8 1781 B D75 0|0 * 2130 |372 2 36 BWZ RDITP, 0&X1, K READ INPUT TAPE ; 8 1789 V C16 0|0 K 2130 |373 2 37 BWZ WT2,0&X1,B WRITE OUTPUT TAPE ; 8 1797 V C79 0|0 B 2130 |374 2 38 SBR X2,RDRTB SET RETRN FOR READ TAPE ; 7 1805 H 094 Z16 2130 |375 2 39 CS 332 CLEAR WRK AREA FOR READ TAPE ; 4 1812 / 332 2131 |376 2 40 CS AND WRITE TAPE ; 1 1816 / 2131 |377 2 41 CS ; 1 1817 / 2131 |378 2 42 SBR X3,100 SET WKAREA TO 100 ; 7 1818 H 099 100 2131 |379 2 43 MLC ELL,IO ; 7 1825 M !79 D38 2131 |380 2 44 LOOP2 SW 0&X3 ; 4 1832 , 0?0 2131 |381 2 45 B GETAD ; 4 1836 B Z43 2131 |382 2 46 BWZ RDITP,FMTZON,2 EXIT IF READ TAPE ; 8 1840 V C16 J36 2 2132 |383 2 47 SBR BUCKT,100 ; 7 1848 H 25W 100 2132 |384 2 48 MVAGN MLC 0&X1,0&X3 ; 7 1855 M 0|0 0?0 2132 |385 2 49 SAR X2 ; 4 1862 Q 094 2132 |386 2 50 B SBRX3 ; 4 1866 B J37 2132 |387 2 51 BW *&5,1&X2 ; 8 1870 V Y82 0!1 1 2132 |388 2 52 B MVAGN ; 4 1878 B Y55 2133 |389 2 53 B CKOVF GO CK IF WE ARE PAST 332 ; 4 1882 B Q08 2133 |390 2 54 SBR OUTPT&3,TPCMND ; 7 1886 H K22 C88 2133 |391 2 55 B LOOP2 GO GET NXT ADDRS OF DATA ; 4 1893 B Y32 2133 |392 2 56 OUT B CKOVF GO CK IF WE ARE PAST 332 ; 4 1897 B Q08 2133 |393 2 57 MLCWA 0&X3,0&X1 MV DATA FRM WRKAREA TO STRGE ; 7 1901 L 0?0 0|0 2133 |394 2 58 B GETAD GO GET NXT ADDR OF DATA ; 4 1908 B Z43 2133 |395 2 59 RDRTN B SBRX3 ; 4 1912 B J37 2134 |396 2 60 RDRTB BW OUT,1&X3 ; 8 1916 V Y97 0?1 1 2134 |397 2 61 B RDRTN NO BRNCH TO STEP CTR ; 4 1924 B Z12 2134 |398 2 62 FMAIN SBR OUTPT&3 RETRN FROMM RD,PCH,PRT,RD-WT ; 4 1928 H K22 2134 |399 2 63 MLC X3,BUCKT#3 ; 7 1932 M 099 25W 2134 |400 2 64 B 0&X2 GO PROCESS ACCRDNG TO FORMAT ; 4 1939 B 0!0 2134 |401 2 65 GETAD SBR GTXT&3 ; 4 1943 H !06 2134 |402 2 66 MLC X2,SAVE2&6 FREE X2 FOR LIST ROUTINE ; 7 1947 M 094 !02 2135 |403 2 67 BW ALRDY,LKHED ; 8 1954 V !31 24Z 1 2135 |404 2 68 LIST T OBLIST ; 4 1962 T 912 2135 |405 2 69 MLBOX DCW #3 ; 3 1968 2135 1 OBJECT TIME FORMAT 5054C PAGE 263 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |406 2 70 SBR X2 END OF OBLST, ARRAY ADRES ; 4 1969 H 094 2135 |407 2 71 RMVZN MZ NOZN,X1-1 ; 7 1973 Y B66 088 2135 |408 2 72 BCE NTRAY,X1,. ENTIRE ARRAY FOR WRITE TAPE ; 8 1980 B !46 089 . 2136 |409 2 73 BCE UNDUN,X1, BLANK ; 8 1988 B !07 089 2136 |410 2 74 SAVE2 SBR X2, XXX RESTORE X2 ; 7 1996 H 094 000 2136 |411 2 75 GTXT B XXX ; 4 2003 B 000 2136 |412 2 76 UNDUN BW FMTXT,INSW ; 8 2007 V J32 25| 1 2136 |413 2 77 C BUCKT,X3 ; 7 2015 C 25W 099 2137 |414 2 78 BU NDLIN ; 5 2022 B K08 / 2137 |415 2 79 B FMTXT ; 4 2027 B J32 2137 |416 2 80 ALRDY CW LKHED ; 4 2031 ) 24Z 2137 |417 2 81 MLC SAVE1,X1 ; 7 2035 M 26U 089 2137 |418 2 82 B RMVZN ; 4 2042 B Z73 2137 |419 2 83 NTRAY MLC 2&X2,X3 MV LFT ADDR OF ARRAY-1 TO X3 ; 7 2046 M 0!2 099 2137 |420 2 84 MLC 5&X2,X1 MV RIGHT ADDR OF ARRAY TO X1 ; 7 2053 M 0!5 089 2138 |421 2 85 MLC 1&X1,GMKHD#1 SAVE CHAR AT RIGHTHAND ADDR ; 7 2060 M 0|1 25X 2138 |422 2 86 BW *&5,1&X1 PLUS ONE AND REPLACE BY GMK ; 8 2067 V !79 0|1 1 2138 |423 2 87 CW GMKSW#1 FOR READING OR WRITING FROM ; 4 2075 ) 25Y 2138 |424 2 88 ELL MLCWA GMK,1&X1 ; 7 2079 L 28W 0|1 2138 |425 2 89 B SBRX3 ; 4 2086 B J37 2138 |426 2 90 SBR X2,ARRTN SET RETURN FROM I/O ROUTINE ; 7 2090 H 094 J09 2139 |427 2 91 BWZ RDITP,FMTZON,2 GO READ TAP E ENTIRE ARRAY ; 8 2097 V C16 J36 2 2139 |428 2 92 B TPCMND ; 4 2105 B C88 2139 |429 2 93 ARRTN MLC GMKHD,1&X1 RETURN FROM READ OR WRITE TP ; 7 2109 M 25X 0|1 2139 |430 2 94 BW FMTXT,GMKSW ENTIRE ARRAY- RESET CHARACTR ; 8 2116 V J32 25Y 1 2139 |431 2 95 CW 1&X1 WHEREGMK WAS INSERTED ; 4 2124 ) 0|1 2139 |432 2 96 SW GMKSW ; 4 2128 , 25Y 2140 |433 2 97 FMTXT B XXX EGRESS ; 4 2132 B 000 2140 |434 2 98 FMTZON DCW @ @ ; 1 2136 2140 |435 2 99 SBRX3 SBR SBRX3&14 ; 4 2137 H J51 2140 |436 3 00 SBR X3,1&X3 ; 7 2141 H 099 0?1 2140 |437 3 01 B 0 ; 4 2148 B 000 2140 |438 3 02 OPNPR SBR X2 ENTRY FOR LFT PAREN IN FRMAT ; 4 2152 H 094 2140 |439 3 03 MN 0&X2 ; 4 2156 D 0!0 2141 |440 3 04 MN ; 1 2160 D 2141 |441 3 05 MN ; 1 2161 D 2141 |442 3 06 MN ; 1 2162 D 2141 |443 3 07 SAR REPEAT&3 ; 4 2163 Q L09 2141 |444 3 08 MCW 2&X2, RTPA#3 MV NMBR OF TIMES ROUTINE IS ; 7 2167 M 0!2 26/ 2141 |445 3 09 SBR LAST1&3,3&X2 ; 7 2174 H K07 0!3 2141 |446 3 10 B DECRA TO BE EXECUTED TO HLD AREA ; 4 2181 B J89 2142 |447 3 11 CLSPR SBR X2 ENTRY FOR RIGHT PAREN FRM ; 4 2185 H 094 2142 |448 3 12 DECRA S ONE,RTPA ; 7 2189 S E78 26/ 2142 |449 3 13 BM 0&X2, RTPA HAVE FINISHED THIS SET OF ; 8 2196 V 0!0 26/ K 2142 |450 3 14 LAST1 B XXX ; 4 2204 B 000 2142 |451 3 15 NDLIN SBR X2 ENTRY FOR / IN FORMAT ROUTIN ; 4 2208 H 094 2142 |452 3 16 MLC BUCKT,X3 ; 7 2212 M 25W 099 2142 |453 3 17 OUTPT B XXX ; 4 2219 B 000 2143 |454 3 18 EOJ1 BW NOPSW,INSW ; 8 2223 V K43 25| 1 2143 |455 3 19 C BUCKT,X3 ; 7 2231 C 25W 099 2143 1 OBJECT TIME FORMAT 5054C PAGE 264 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |456 3 20 BU NDLIN ; 5 2238 B K08 / 2143 |457 3 21 NOPSW MLC LIST&6,*&7 ; 7 2243 M Z68 K56 2143 |458 3 22 BCE NOPBR,0,, ; 8 2250 B K98 000 , 2143 |459 3 23 MLC LIST&6,*&7 ; 7 2258 M Z68 K71 2144 |460 3 24 T OBLIST ; 4 2265 T 912 2144 |461 3 25 EJBOX DCW #3 ; 3 2271 2144 |462 3 26 BCE FMTXT,X1, ; 8 2272 B J32 089 2144 |463 3 27 MLC EJBOX,MLBOX ; 7 2280 M K71 Z68 2144 |464 3 28 MLC X1,SAVE1#3 ; 7 2287 M 089 26U 2144 |465 3 29 SW LKHED ; 4 2294 , 24Z 2145 |466 3 30 NOPBR BW NDLIN,INSW GO GET NEW RCD IF INPUT ; 8 2298 V K08 25| 1 2145 |467 3 31 REPEAT B XXX ; 4 2306 B 000 2145 |468 3 32 SCALE SBR X2 ; 4 2310 H 094 2145 |469 3 33 ZA 2&X2,PCTR SAVE SCALING FACTOR ; 7 2314 ? 0!2 L27 2145 |470 3 34 B 3&X2 RETURN TO FORMAT SPEC ; 4 2321 B 0!3 2145 |471 3 35 PCTR DCW &000 ; 3 2327 2145 |472 3 36 HOLLR SBR X2 ; 4 2328 H 094 2146 |473 3 37 TESTH BW HOLIN,INSW ; 8 2332 V L47 25| 1 2146 |474 3 38 HLOUT MLC 0&X2,0&X3 ; 7 2340 M 0!0 0?0 2146 |475 3 39 HOLIN MLC 0&X3,0&X2 ; 7 2347 M 0?0 0!0 2146 |476 3 40 B SBRX3 ; 4 2354 B J37 2146 |477 3 41 SBR X2,1&X2 ; 7 2358 H 094 0!1 2146 |478 3 42 BW *&5,0&X2 ; 8 2365 V L77 0!0 1 2147 |479 3 43 B TESTH ; 4 2373 B L32 2147 |480 3 44 B CKOVF ; 4 2377 B Q08 2147 |481 3 45 B 0&X2 ; 4 2381 B 0!0 2147 |482 3 46 GETW SBR X2 ; 4 2385 H 094 2147 |483 3 47 MCW 3&X2, RPTB#3 ; 7 2389 M 0!3 26X 2147 |484 3 48 DCRPB S ONE,RPTB ; 7 2396 S E78 26X 2147 |485 3 49 BWZ GTRTN,RPTB,B ; 8 2403 V M31 26X B 2148 |486 3 50 BCE 7&X2,0&X2,I ; 8 2411 B 0!7 0!0 I 2148 |487 3 51 BCE 7&X2,0&X2,A ; 8 2419 B 0!7 0!0 A 2148 |488 3 52 B 10&X2 ; 4 2427 B 0J0 2148 |489 3 53 GTRTN B GETAD ; 4 2431 B Z43 2148 |490 3 54 AFIXW S,FIXWD ; MACRO |491 S ; 1 2435 S GEN 2148 |492 DC @_0@ 11-7-8,0 ; 2 2437 GEN 2148 |493 DC 0 ; 1 2438 GEN 2148 |494 3 55 EFNTN AFLTW SW,FLTWD,-1 ; MACRO |495 EFNTN SW ; 1 2439 , GEN 2148 |496 DC @;0@ 11-6-8,0 ; 2 2441 GEN 2148 |497 DC -1 ; 1 2442 GEN 2149 |498 3 56 BW INEFI, INSW ; 8 2443 V F55 25| 1 2149 |499 3 57 CS 24 ; 4 2451 / 024 2149 |500 3 58 SW 0&X3 ; 4 2455 , 0?0 2149 |501 3 59 MN ; 1 2459 D 2149 |502 3 60 SBR X3 ; 4 2460 H 099 2150 |503 3 61 SBR JOE4&3,2&X3 ; 7 2464 H Q97 0?2 2150 |504 3 62 SBR FINS&3 ; 4 2471 H A49 2150 |505 3 63 SW 001 ; 4 2475 , 001 2150 1 OBJECT TIME FORMAT 5054C PAGE 265 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |506 3 64 BCE INOTN, 0&X2, I ; 8 2479 B Q33 0!0 I 2150 |507 3 65 BCE AOUT,0&X2,A ; 8 2487 B 41Z 0!0 A 2150 |508 3 66 EFOUT BFLTW MLC,@0|0@,FLTWD ; MACRO |509 EFOUT MLC ; 1 2495 M GEN 2150 |510 DC @0|0@ ; 3 2498 GEN 2150 |511 DC @;0@ 11-6-8,0 ; 2 2500 GEN 2151 |512 DC 0 ; 1 2501 GEN 2151 |513 3 67 MCW ; 1 2502 M 2151 |514 3 68 SBR XL1 ; 4 2503 H 089 2151 |515 3 69 SW 0&X1 ; 4 2507 , 0|0 2151 |516 3 70 A WD, XL3 ; 7 2511 A 0!6 099 2151 |517 3 71 SBR FINS-1,2&X3 ; 7 2518 H A45 0?2 2152 |518 3 72 MLC @0.0@ ; 4 2525 M 27| 2152 |519 3 73 SW 2&X3 ; 4 2529 , 0?2 2152 |520 3 74 BCE EFTI,1&X1,0 ; 8 2533 B N49 0|1 0 2152 |521 3 75 BFLTW BWZ,FOVFL,FLTWD,-2,2 ; MACRO |522 BWZ ; 1 2541 V GEN 2152 |523 DC FOVFL ; 3 2544 O74 GEN 2152 |524 DC @;0@ 11-6-8,0 ; 2 2546 GEN 2152 |525 DC -2 ; 1 2547 GEN 2152 |526 DC 2 ; 1 2548 GEN 2152 |527 3 76 EFTI BCE *&12,0&X2,E ; 8 2549 B N68 0!0 E 2152 |528 3 77 BFLTW A,PCTR,FLTWD ; MACRO |529 A ; 1 2557 A GEN 2153 |530 DC PCTR ; 3 2560 L27 GEN 2153 |531 DC @;0@ 11-6-8,0 ; 2 2562 GEN 2153 |532 DC 0 ; 1 2563 GEN 2153 |533 3 78 B *&8 ; 4 2564 B N75 2153 |534 3 79 BFLTW S,PCTR,FLTWD ; MACRO |535 S ; 1 2568 S GEN 2153 |536 DC PCTR ; 3 2571 L27 GEN 2153 |537 DC @;0@ 11-6-8,0 ; 2 2573 GEN 2153 |538 DC 0 ; 1 2574 GEN 2153 |539 3 80 AFLTW MLNS,FLTWD,,ECON ; MACRO |540 MLNS ; 1 2575 D GEN 2153 |541 DC @;0@ 11-6-8,0 ; 2 2577 GEN 2153 |542 DC 0 ; 1 2578 GEN 2153 |543 DC ECON ; 3 2581 F54 GEN 2153 |544 3 81 MN ; 1 2582 D 2153 |545 3 82 AFLTW MLC,FLTWD ; MACRO |546 MLC ; 1 2583 M GEN 2153 |547 DC @;0@ 11-6-8,0 ; 2 2585 GEN 2153 |548 DC 0 ; 1 2586 GEN 2153 |549 3 83 BCE FTYP,0&X2,F ; 8 2587 B P04 0!0 F 2153 |550 3 84 C ECON,ZERO4-2 ; 7 2595 C F54 B68 2154 |551 3 85 BE *&9 ; 5 2602 B O15 S 2154 |552 3 86 BWZ *&8,ECON-2,K ; 8 2607 V O22 F52 K 2154 |553 3 87 MLZS NOZN,ECON-2 ; 7 2615 Y B66 F52 2154 |554 3 88 BFLTW ZA,PCTR,FLTWD ; MACRO |555 ZA ; 1 2622 ? GEN 2154 1 OBJECT TIME FORMAT 5054C PAGE 266 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |556 DC PCTR ; 3 2625 L27 GEN 2154 |557 DC @;0@ 11-6-8,0 ; 2 2627 GEN 2154 |558 DC 0 ; 1 2628 GEN 2154 |559 3 89 UPX1 AFLTW MLNS,FLTWD,,*&8 ; MACRO |560 UPX1 MLNS ; 1 2629 D GEN 2154 |561 DC @;0@ 11-6-8,0 ; 2 2631 GEN 2154 |562 DC 0 ; 1 2632 GEN 2154 |563 DC *&8 ; 3 2635 O43 GEN 2155 |564 3 90 MN ; 1 2636 D 2155 |565 3 91 SBR X1, XXX&X1 ; 7 2637 H 089 0|0 2155 |566 3 92 ZA 837,POINT CHANGE IF ARITH REASSEMBLED ; 7 2644 ? 837 24X 2155 |567 3 93 S DOPRT,POINT ; 7 2651 S E09 24X 2155 |568 3 94 BFLTW C,POINT,FLTWD ; MACRO |569 C ; 1 2658 C GEN 2156 |570 DC POINT ; 3 2661 24X GEN 2156 |571 DC @;0@ 11-6-8,0 ; 2 2663 GEN 2156 |572 DC 0 ; 1 2664 GEN 2156 |573 3 95 BH INTEG ; 5 2665 B P28 U 2156 |574 3 96 B OK1 ; 4 2670 B P97 2156 |575 3 97 FOVFL MLC @ X @,2&X3 ; 7 2674 M 27T 0?2 2156 |576 3 98 MLC ; 1 2681 M 2156 |577 3 99 SBR X3,2&X3 ; 7 2682 H 099 0?2 2156 |578 4 00 SBR FINSI-1 ; 4 2689 H A53 2156 |579 4 01 A D, X3 ; 7 2693 A 0!9 099 2157 |580 4 02 B CWMKS ; 4 2700 B A38 2157 |581 4 03 FTYP BM NEGX,ECON-2 ; 8 2704 V P66 F52 K 2157 |582 4 04 C WD, ECON ; 7 2712 C 0!6 F54 2157 |583 4 05 BL UPX1 ; 5 2719 B O29 T 2157 |584 4 06 B FOVFL ; 4 2724 B O74 2157 |585 4 07 INTEG S 23 ; 4 2728 S 023 2157 |586 4 08 AFIXW MCM,FIXWD,&1,001 ; MACRO |587 MCM ; 1 2732 P GEN 2158 |588 DC @_0@ 11-7-8,0 ; 2 2734 GEN 2158 |589 DC &1 ; 1 2735 GEN 2158 |590 DC 001 ; 3 2738 GEN 2158 |591 4 09 MLC ZERO4 ; 4 2739 M B70 2158 |592 4 10 MZ ; 1 2743 Y 2158 |593 4 11 MLC ECON,X1 ; 7 2744 M F54 089 2158 |594 4 12 MLC ZERO4-3 ; 4 2751 M B67 2158 |595 4 13 MLC GMK,3&X1 ; 7 2755 M 28W 0|3 2158 |596 4 14 B OK1 ; 4 2762 B P97 2158 |597 4 15 NEGX MZ NOZN,0&X1 ; 7 2766 Y B66 0|0 2159 |598 4 16 C D,ECON ; 7 2773 C 0!9 F54 2159 |599 4 17 BU BRHI ; 5 2780 B P92 / 2159 |600 4 18 AFIXW C,FIXWD,&1,FIVE ; MACRO |601 C ; 1 2785 C GEN 2159 |602 DC @_0@ 11-7-8,0 ; 2 2787 GEN 2159 |603 DC &1 ; 1 2788 GEN 2159 |604 DC FIVE ; 3 2791 24Y GEN 2159 |605 4 19 BRHI BH MVDAT ; 5 2792 B Q65 U 2159 1 OBJECT TIME FORMAT 5054C PAGE 267 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |606 4 20 OK1 AFLTW MLZS,FLTWD,-2,@0|0@ ; MACRO |607 OK1 MLZS ; 1 2797 Y GEN 2159 |608 DC @;0@ 11-6-8,0 ; 2 2799 GEN 2159 |609 DC -2 ; 1 2800 GEN 2159 |610 DC @0|0@ ; 3 2803 GEN 2159 |611 4 21 B MVDAT ; 4 2804 B Q65 2160 |612 4 22 CKOVF SBR OVFEX&3 ; 4 2808 H Q32 2160 |613 4 23 C TUMUCH,X3 ; 7 2812 C 25T 099 2160 |614 4 24 BL OVFEX ; 5 2819 B Q29 T 2160 |615 4 25 NOP 3700 ; 4 2824 N G00 2160 |616 4 26 H ; 1 2828 . 2160 |617 4 27 OVFEX B XXX ; 4 2829 B 000 2160 |618 4 28 INOTN BFIXW MLC,@0|0@,FIXWD ; MACRO |619 INOTN MLC ; 1 2833 M GEN 2161 |620 DC @0|0@ ; 3 2836 GEN 2161 |621 DC @_0@ 11-7-8,0 ; 2 2838 GEN 2161 |622 DC 0 ; 1 2839 GEN 2161 |623 4 29 A W, XL3 ; 7 2840 A 0!6 099 2161 |624 4 30 MCW W, XL1 ; 7 2847 M 0!6 089 2161 |625 4 31 AFIXW ZA,FIXWD,,@0|0@ ; MACRO |626 ZA ; 1 2854 ? GEN 2161 |627 DC @_0@ 11-7-8,0 ; 2 2856 GEN 2161 |628 DC 0 ; 1 2857 GEN 2161 |629 DC @0|0@ ; 3 2860 GEN 2161 |630 4 32 B SBRX3 ; 4 2861 B J37 2161 |631 4 33 MVDAT MCS 0&X1,0&X3 ; 7 2865 Z 0|0 0?0 2161 |632 4 34 SBR SAVE&6 ; 4 2872 H R58 2162 |633 4 35 MLNS 0&X1,0&X3 ; 7 2876 D 0|0 0?0 2162 |634 4 36 SBR MCS&3,0&X3 ; 7 2883 H A90 0?0 2162 |635 4 37 SBR FINSI-1 ; 4 2890 H A53 2162 |636 4 38 JOE4 SW XXX ; 4 2894 , 000 2162 |637 4 39 BWZ BACK,0&X1,K ; 8 2898 V R10 0|0 K 2162 |638 4 40 B SAVE ; 4 2906 B R52 2162 |639 4 41 BACK BCE EXIT,0&X3, BLANK ; 8 2910 B R34 0?0 2163 |640 4 42 SBR X3 ; 4 2918 H 099 2163 |641 4 43 BW SAVE,1&X3 NO ROOM FOR SIGN ; 8 2922 V R52 0?1 1 2163 |642 4 44 B BACK ; 4 2930 B R10 2163 |643 4 45 EXIT MLZS MINUS,0&X3 ; 7 2934 Y G89 0?0 2163 |644 4 46 SW 1&X3 ; 4 2941 , 0?1 2163 |645 4 47 SBR FINSI-1,1&X3 ; 7 2945 H A53 0?1 2164 |646 4 48 SAVE SBR X3,111 DUMMY ADDRESS ; 7 2952 H 099 111 2164 |647 4 49 BCE FINS,0&X2,I ; 8 2959 B A46 0!0 I 2164 |648 4 50 A D,X3 ; 7 2967 A 0!9 099 2164 |649 4 51 BCE JUMPF,0&X2,F ; 8 2974 B R93 0!0 F 2164 |650 4 52 MLNS 0&X3 ; 4 2982 D 0?0 2165 |651 4 53 MLNS ; 1 2986 D 2165 |652 4 54 MLNS ; 1 2987 D 2165 |653 4 55 MLNS ; 1 2988 D 2165 |654 4 56 SBR X3 ; 4 2989 H 099 2165 |655 4 57 JUMPF SBR OVR1&6,1&X3 ; 7 2993 H ?88 0?1 2165 1 OBJECT TIME FORMAT 5054C PAGE 268 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |656 4 58 S 1&X3 ; 4 3000 S 0?1 2165 |657 4 59 MLNS ; 1 3004 D 2166 |658 4 60 SAR X3 ; 4 3005 Q 099 2166 |659 4 61 BCE MDIG,0&X2,E ; 8 3009 B ?44 0!0 E 2166 |660 4 62 BWZ MDIG,ECON-2,B ; 8 3017 V ?44 F52 B 2166 |661 4 63 C D,ECON ; 7 3025 C 0!9 F54 2166 |662 4 64 BH OVR1 ; 5 3032 B ?82 U 2166 |663 4 65 A ECON,X3 ; 7 3037 A F54 099 2167 |664 4 66 MDIG BCE OVR1,3&X1,} GMK ; 8 3044 B ?82 0|3 } GMARK 2167 |665 4 67 MLNS 1&X1,2&X3 ; 7 3052 D 0|1 0?2 2167 |666 4 68 SBR X1,1&X1 ; 7 3059 H 089 0|1 2167 |667 4 69 BWZ OVR1,2&X3,B ; 8 3066 V ?82 0?2 B 2167 |668 4 70 SBR X3 ; 4 3074 H 099 2168 |669 4 71 B MDIG ; 4 3078 B ?44 2168 |670 4 72 OVR1 SBR X3,XXX ; 7 3082 H 099 000 2168 |671 4 73 BAV *&1 ; 5 3089 B ?94 Z 2168 |672 4 74 A ECON-3,0&X3 ; 7 3094 A F51 0?0 2168 |673 4 75 MLC NOZN,0&X3 ; 7 3101 M B66 0?0 2168 |674 4 76 BCE CWMKS-5,0&X2,F ; 8 3108 B A33 0!0 F 2169 |675 4 77 SBR X3,4&X3 ; 7 3116 H 099 0?4 2169 |676 4 78 MLNS 0&X3 ; 4 3123 D 0?0 2169 |677 4 79 MCW ECON ; 4 3127 M F54 2169 |678 4 80 MZ ; 1 3131 Y 2169 |679 4 81 MCW ; 1 3132 M 2169 |680 4 82 BAV ARRAV ; 5 3133 B A66 Z 2169 |681 4 83 CWMKS AFIXW CW,FIXWD ; MACRO |682 CWMKS CW ; 1 3138 ) GEN 2170 |683 DC @_0@ 11-7-8,0 ; 2 3140 GEN 2170 |684 DC 0 ; 1 3141 GEN 2170 |685 4 84 CW XXX ; 4 3142 ) 000 2170 |686 4 85 FINS CW 000 ; 4 3146 ) 000 2170 |687 4 86 CW XXX ; 4 3150 ) 000 2170 |688 4 87 FINSI AFIXW SW,FIXWD,&1 ; MACRO |689 FINSI SW ; 1 3154 , GEN 2170 |690 DC @_0@ 11-7-8,0 ; 2 3156 GEN 2170 |691 DC &1 ; 1 3157 GEN 2170 |692 4 88 B CKOVF ; 4 3158 B Q08 2170 |693 4 89 B DCRPB ; 4 3162 B L96 2170 |694 4 90 ARRAV MLC FINS-1,X1 ; 7 3166 M A45 089 2171 |695 4 91 MLZS NOZN,0&X1 ; 7 3173 Y B66 0|0 2171 |696 4 92 MLC ; 1 3180 M 2171 |697 4 93 A ; 1 3181 A 2171 |698 4 94 BAV OVR9S ; 5 3182 B A95 Z 2171 |699 4 95 MCS MCS 0 ; 4 3187 Z 000 2171 |700 4 96 B CWMKS ; 4 3191 B A38 2171 |701 4 97 OVR9S MN 0&X1 ; 4 3195 D 0|0 2172 |702 4 98 C ; 1 3199 C 2172 |703 4 99 MN ; 1 3200 D 2172 |704 5 00 SBR X1 ; 4 3201 H 089 2172 |705 5 01 C FINS&3,X1 ; 7 3205 C A49 089 2172 1 OBJECT TIME FORMAT 5054C PAGE 269 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |706 5 02 BL CLEAR ; 5 3212 B B44 T 2172 |707 5 03 SW 0&X1 ; 4 3217 , 0|0 2172 |708 5 04 MLC 1&X1,0&X1 ; 7 3221 M 0|1 0|0 2173 |709 5 05 CW ; 1 3228 ) 2173 |710 5 061 LCA @10@,2&X1 V3M4 ; 7 3229 L 27V 0|2 2173 |711 5 062 CW 1&X1 V3M4 ; 4 3236 ) 0|1 2173 |712 5 07 B CWMKS ; 4 3240 B A38 2173 |713 5 08 CLEAR MLC 1&X3,0&X3 ; 7 3244 M 0?1 0?0 2173 |714 5 09 MLC ; 1 3251 M 2173 |715 5 10 MLC ; 1 3252 M 2174 |716 5 11 MLC @ X @,3&X1 ; 7 3253 M 27T 0|3 2174 |717 5 12 B CWMKS ; 4 3260 B A38 2174 |718 5 13 DCW 1 ; 1 3264 2174 |719 5 14 DCW @.@ ; 1 3265 2174 |720 5 15 NOZN DCW @ @ ; 1 3266 2174 |721 5 16 ZERO4 DCW 0000 ; 4 3270 2174 |722 5 17 INI MLC X1,X3 ; 7 3271 M 089 099 2175 |723 5 18 MLZS ZAFLT,*&8 ; 7 3278 Y 07X B92 2175 |724 5 19 BFIXW MLNS,@0?0@,FIXWD,&1 ; MACRO |725 MLNS ; 1 3285 D GEN 2175 |726 DC @0?0@ ; 3 3288 GEN 2175 |727 DC @_0@ 11-7-8,0 ; 2 3290 GEN 2175 |728 DC &1 ; 1 3291 GEN 2175 |729 5 20 ZA ; 1 3292 ? 2175 |730 5 21 MLC URZRO&6,X1 ; 7 3293 M 16/ 089 2175 |731 5 22 AFIXW MLCWA,FIXWD,,@0|0@ ; MACRO |732 MLCWA ; 1 3300 L GEN 2175 |733 DC @_0@ 11-7-8,0 ; 2 3302 GEN 2175 |734 DC 0 ; 1 3303 GEN 2175 |735 DC @0|0@ ; 3 3306 GEN 2175 |736 5 23 B MRWM ; 4 3307 B 17| 2176 |737 5 24 HLTGO NOP 4002 ; 4 3311 N 00S 2176 |738 5 25 H ; 1 3315 . 2176 |739 5 26 RDITP SW INSW ; 4 3316 , 25| 2176 |740 5 27 RD2 CS 332 ; 4 3320 / 332 2176 |741 5 28 CS ; 1 3324 / 2176 |742 5 29 B TPCMND ; 4 3325 B C88 2176 |743 5 30 CMBCK BEF HLTGO ; 5 3329 B C11 K 2177 |744 5 31 BCE TPCMND,12&X3,} GM ; 8 3334 B C88 0A2 } GMARK 2177 |745 5 32 CHAIN 12 ; MACRO |746 BCE ; 1 3342 B GEN 2177 |747 BCE ; 1 3343 B GEN 2177 |748 BCE ; 1 3344 B GEN 2177 |749 BCE ; 1 3345 B GEN 2177 |750 BCE ; 1 3346 B GEN 2177 |751 BCE ; 1 3347 B GEN 2178 |752 BCE ; 1 3348 B GEN 2178 |753 BCE ; 1 3349 B GEN 2178 |754 BCE ; 1 3350 B GEN 2178 |755 BCE ; 1 3351 B GEN 2178 1 OBJECT TIME FORMAT 5054C PAGE 270 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |756 BCE ; 1 3352 B GEN 2178 |757 BCE ; 1 3353 B GEN 2178 |758 5 33 B FMAIN ; 4 3354 B Z28 2179 |759 5 34 B RD2 ; 4 3358 B C20 2179 |760 5 35 WTM MLNS FMTZON,*&4 ; 7 3362 D J36 C72 2179 |761 5 36 WTM 0 ; 5 3369 U %U0 M 2179 |762 5 37 NOP 4003 ; 4 3374 N 00T 2179 |763 5 38 H ; 1 3378 . 2179 |764 5 39 WT2 CS 332 ; 4 3379 / 332 2179 |765 5 40 CS ; 1 3383 / 2180 |766 5 41 B FMAIN ; 4 3384 B Z28 2180 |767 5 42 TPCMND MLNS FMTZON,IO&3 ; 7 3388 D J36 D41 2180 |768 5 43 MLC @R@,IO&7 ; 7 3395 M 27W D45 2180 |769 5 44 ZA @R@,POINT ; 7 3402 ? 27W 24X 2180 |770 5 45 BW SVGMK,INSW ; 8 3409 V D31 25| 1 2180 |771 5 46 MLC @W@,IO&7 ; 7 3417 M 27X D45 2181 |772 5 47 A &41,POINT ; 7 3424 A 27Z 24X 2181 |773 5 48 SVGMK MLCWA GMK,333 ; 7 3431 L 28W 333 2181 |774 5 49 IO RT 0,0&X3 ; 8 3438 M %U0 0?0 R 2181 |775 5 50 MLCWA FORMAQ,333 ; 7 3446 L W97 333 2181 |776 5 51 BER TPERR ; 5 3453 B E95 L 2182 |777 5 52 BCE CMBCK,IO&7,R ; 8 3458 B C29 D45 R 2182 |778 5 53 BEF WTM ; 5 3466 B C62 K 2182 |779 5 54 B WT2 ; 4 3471 B C79 2182 |780 5 55 PRINT CS 333 ; 4 3475 / 333 2182 |781 5 56 CS ; 1 3479 / 2182 |782 5 57 B FMAIN ; 4 3480 B Z28 2182 |783 5 58 PRZRO BCE DOPRT,200, BLANK ; 8 3484 B E09 200 2183 |784 5 59 BCE SPACE, 200, 0 ; 8 3492 B E24 200 0 2183 |785 5 60 MN 200, *&2 ; 7 3500 D 200 E08 2183 |786 5 61 CC 0 ; 2 3507 F 0 2183 |787 5 62 DOPRT W ; 1 3509 2 2183 |788 5 63 BCV *&5 ; 5 3510 B E19 @ 2183 |789 5 64 B PRINT ; 4 3515 B D75 2183 |790 5 65 CCB PRINT,1 ; 5 3519 F D75 1 2184 |791 5 66 SPACE CCB DOPRT,J ; 5 3524 F E09 J 2184 |792 5 67 PUNCH MLC @281@,TUMUCH ; 7 3529 M 28S 25T 2184 |793 5 68 CS FMAIN,285 ; 7 3536 / Z28 285 2184 |794 5 69 SW 200 ; 4 3543 , 200 2184 |795 5 70 LCA 279,180 ; 7 3547 L 279 180 2184 |796 5 71 P ; 1 3554 4 2184 |797 5 72 SSB PUNCH,4 ; 5 3555 K E29 4 2185 |798 5 73 READC CS 80 ; 4 3560 / 080 2185 |799 5 74 MLC @281@,TUMUCH ; 7 3564 M 28S 25T 2185 |800 5 75 SW 1, INSW ; 7 3571 , 001 25| 2185 |801 5 76 ONE R ; 1 3578 1 2185 |802 5 77 LCA 80,279 ; 7 3579 L 080 279 2185 |803 5 78 SSB FMAIN,1 ; 5 3586 K Z28 1 2185 |804 5 79 B READC ; 4 3591 B E60 2186 |805 5 80 TPERR MLNS FMTZON,BSPTP&3 ; 7 3595 D J36 F12 2186 1 OBJECT TIME FORMAT 5054C PAGE 271 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |806 5 81 MLNS FMTZON,SKP&3 ; 7 3602 D J36 F25 2186 |807 5 82 BSPTP BSP 0 ; 5 3609 U %U0 B 2186 |808 5 83 BCE *&6,IO&7,R ; 8 3614 B F27 D45 R 2186 |809 5 84 SKP SKP 0 ; 5 3622 U %U0 E 2186 |810 5 85 S ONE,POINT ; 7 3627 S E78 24X 2187 |811 5 86 BWZ SVGMK,POINT,B ; 8 3634 V D31 24X B 2187 |812 5 87 NOP 1111 ; 4 3642 N /11 2187 |813 5 88 H ; 1 3646 . 2187 |814 5 89 B TPCMND ; 4 3647 B C88 2187 |815 5 90 DCW @E@ ; 1 3651 2187 |816 5 91 DCW @ @ ; 1 3652 2187 |817 5 92 ECON DCW 00 ; 2 3654 2188 |818 5 93 INEFI SW 0&X3 ; 4 3655 , 0?0 2188 |819 5 94 MLC X1,URZRO&6 ; 7 3659 M 089 16/ 2188 |820 5 95 MLC X3,X1 ; 7 3666 M 099 089 2188 |821 5 96 A WD,X1 ; 7 3673 A 0!6 089 2188 |822 5 97 BCE OUTQ,0&X2,I ; 8 3680 B G03 0!0 I 2188 |823 5 98 BCE OUTQA,0&X2,A ; 8 3688 B 39| 0!0 A 2189 |824 5 99 A D,X1 ; 7 3696 A 0!9 089 2189 |825 6 00 OUTQ SW 0&X1 ; 4 3703 , 0|0 2189 |826 6 01 SBR MRWM&3,0&X1 ; 7 3707 H 17T 0|0 2189 |827 6 02 AFLTW S,FLTWD ; MACRO |828 S ; 1 3714 S GEN 2189 |829 DC @;0@ 11-6-8,0 ; 2 3716 GEN 2189 |830 DC 0 ; 1 3717 GEN 2189 |831 6 03 S ; 1 3718 S 2189 |832 6 031 BFLTW MLZS,NOZN,FLTWD,-2 V3M4 ; MACRO |833 MLZS ; 1 3719 Y GEN 2189 |834 DC NOZN ; 3 3722 B66 GEN 2189 |835 DC @;0@ 11-6-8,0 ; 2 3724 GEN 2189 |836 DC -2 ; 1 3725 GEN 2189 |837 6 032 SCNBL MLZS PLUS4,ZAFLT V3M4 ; 7 3726 Y G97 07X 2190 |838 6 044 BCE BLANK, 0&X3, BLANK V3M4 ; 8 3733 B G73 0?0 2190 |839 6 054 BCE MINUS,0&X3,- V3M4 ; 8 3741 B G89 0?0 - 2190 |840 6 064 BCE MINUS,0&X3,@ 4-8 V3M4 ; 8 3749 B G89 0?0 @ 2190 |841 6 08 ZS ZAFLT V3M4 ; 4 3757 ! 07X 2190 |842 6 09 BCE KILL,0&X3,& ; 8 3761 B G93 0?0 & 2191 |843 6 10 B MV2WK ; 4 3769 B H01 2191 |844 6 11 BLANK BW URZRO-8,1&X3 ; 8 3773 V 14X 0?1 1 2191 |845 6 12 B SBRX3 ; 4 3781 B J37 2191 |846 6 13 B SCNBL ; 4 3785 B G26 2191 |847 6 131 MINUS ZS ZAFLT V3M4 ; 4 3789 ! 07X 2191 |848 6 14 KILL SW 1&X3 ; 4 3793 , 0?1 2191 |849 6 154 PLUS4 B SBRX3 V3M4 ; 4 3797 B J37 2192 |850 6 16 MV2WK BCE INI, 0&X2, I ; 8 3801 B B71 0!0 I 2192 |851 6 17 BFIXW SBR,089,FIXWD,-1 ; MACRO |852 SBR ; 1 3809 H GEN 2192 |853 DC 089 ; 3 3812 GEN 2192 |854 DC @_0@ 11-7-8,0 ; 2 3814 GEN 2192 |855 DC -1 ; 1 3815 GEN 2192 1 OBJECT TIME FORMAT 5054C PAGE 272 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |856 6 18 BFLTW MLZS,NOZN,FLTWD,-2 ; MACRO |857 MLZS ; 1 3816 Y GEN 2192 |858 DC NOZN ; 3 3819 B66 GEN 2192 |859 DC @;0@ 11-6-8,0 ; 2 3821 GEN 2192 |860 DC -2 ; 1 3822 GEN 2192 |861 6 19 CW SIGSW#1,SWB#1 ; 7 3823 ) 28T 28U 2192 |862 6 20 CW SWA#1 ; 4 3830 ) 28V 2192 |863 6 21 S XPN ; 4 3834 S 23Y 2193 |864 6 22 BCE ABEGN,0&X2,A ; 8 3838 B 28| 0!0 A 2193 |865 6 23 B LEWP2 ; 4 3846 B H96 2193 |866 6 24 PYNT1 SBR POINT,0&X3 ; 7 3850 H 24X 0?0 2193 |867 6 25 SW SWA ; 4 3857 , 28V 2193 |868 6 26 BW LEWP, SIGSW Q. DATA NOT FRACTIONAL ; 8 3861 V H76 28T 1 2193 |869 6 27 SBR POINT, 1&X3 ; 7 3869 H 24X 0?1 2194 |870 6 28 LEWP BW OVR,1&X3 ; 8 3876 V 06S 0?1 1 2194 |871 6 29 BCE OVR,1&X3, BLANK ; 8 3884 B 06S 0?1 2194 |872 6 30 B SBRX3 ; 4 3892 B J37 2194 |873 6 31 LEWP2 BCE PYNT1,0&X3,. ; 8 3896 B H50 0?0 . 2194 |874 6 32 C 0&X3,ZERO4-3 ; 7 3904 C 0?0 B67 2195 |875 6 33 BL MVDIG ; 5 3911 B 17Y T 2195 |876 6 34 BH QFTYP ; 5 3916 B I33 U 2195 |877 6 35 BW MVDIG, SIGSW Q. SIGNIFICANT ZERO ; 8 3921 V 17Y 28T 1 2195 |878 6 36 B LEWP ; 4 3929 B H76 2195 |879 6 37 QFTYP BCE FHLT,0&X2,F ; 8 3933 B I86 0!0 F 2195 |880 6 38 SBR END,4&X3 ; 7 3941 H 24/ 0?4 2196 |881 6 39 MLZS PLUS,ZAEXP ; 7 3948 Y I91 05/ 2196 |882 6 40 BCE PROCE, 0&X3, E ; 8 3955 B I95 0?0 E 2196 |883 6 41 ZOND MZ 0&X3, ZAEXP ; 7 3963 Y 0?0 05/ 2196 |884 6 42 FBCEQ GRAB, 0&X3, &,- ; MACRO |885 BCE GRAB, 0&X3, & ; 8 3970 B 02X 0?0 & GEN 2196 |886 BCE GRAB, 0&X3, - ; 8 3978 B 02X 0?0 - GEN 2197 |887 6 43 FHLT NOP 1121 ERROR HALT DATA IS WRONG ; 4 3986 N /21 2197 |888 6 44 H MODE ; 1 3990 . 2197 |889 6 45 PLUS B FHLT ; 4 3991 B I86 2197 |890 6 46 PROCE BWZ HERE,1&X3,2 ; 8 3995 V 01/ 0?1 2 2197 |891 6 47 B SBRX3 ; 4 4003 B J37 2197 |892 6 48 B ZOND ; 4 4007 B I63 2197 |893 6 49 HERE BCE *&5,1&X3, BLANK ; 8 4011 B 02T 0?1 2198 |894 6 50 B *&5 ; 4 4019 B 02X 2198 |895 6 51 B SBRX3 ; 4 4023 B J37 2198 |896 6 52 GRAB SW 1&X3 ; 4 4027 , 0?1 2198 |897 6 53 MV2WM BW ZAEXP, 2&X3 ; 8 4031 V 05/ 0?2 1 2198 |898 6 54 BCE ZAEXP,2&X3, BLANK ; 8 4039 B 05/ 0?2 2198 |899 6 55 SBR X3 ; 4 4047 H 099 2199 |900 6 56 ZAEXP ZA 1&X3, XPN ; 7 4051 ? 0?1 23Y 2199 |901 6 57 B ZAFLT ; 4 4058 B 07X 2199 |902 6 58 OVR BCE FHLT, 0&X2, E ; 8 4062 B I86 0!0 E 2199 |903 6 59 SBR END, 1&X3 ; 7 4070 H 24/ 0?1 2199 |904 6 60 ZAFLT AFLTW ZA,FLTWD,-2 ; MACRO |905 ZAFLT ZA ; 1 4077 ? GEN 2199 1 OBJECT TIME FORMAT 5054C PAGE 273 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |906 DC @;0@ 11-6-8,0 ; 2 4079 GEN 2199 |907 DC -2 ; 1 4080 GEN 2199 |908 6 61 BW *&5, SIGSW ; 8 4081 V 09T 28T 1 2200 |909 6 62 B URZRO ; 4 4089 B 15V 2200 |910 6 63 BW NOSWT, SWA A. ACTUAL DECIMAL PT. IN DATA ; 8 4093 V 11V 28V 1 2200 |911 6 64 S D, END ; 7 4101 S 0!9 24/ 2200 |912 6 65 ZA END, POINT ; 7 4108 ? 24/ 24X 2200 |913 6 66 NOSWT S POINT, MSD ; 7 4115 S 24X 24U 2201 |914 6 67 A PCTR,XPN ; 7 4122 A L27 23Y 2201 |915 6 68 ZS MSD ; 4 4129 ! 24U 2201 |916 6 69 A MSD,XPN ; 7 4133 A 24U 23Y 2201 |917 6 70 BFLTW ZA,XPN,FLTWD ; MACRO |918 ZA ; 1 4140 ? GEN 2201 |919 DC XPN ; 3 4143 23Y GEN 2201 |920 DC @;0@ 11-6-8,0 ; 2 4145 GEN 2201 |921 DC 0 ; 1 4146 GEN 2201 |922 6 71 BCE INI,0&X2,I ; 8 4147 B B71 0!0 I 2202 |923 6 72 URZRO AFLTW MLC,FLTWD,,XXX ; MACRO |924 URZRO MLC ; 1 4155 M GEN 2202 |925 DC @;0@ 11-6-8,0 ; 2 4157 GEN 2202 |926 DC 0 ; 1 4158 GEN 2202 |927 DC XXX ; 3 4161 000 GEN 2202 |928 6 73 LCA ; 1 4162 L 2202 |929 6 74 MLC MRWM&3,X3 ; 7 4163 M 17T 099 2202 |930 6 75 MRWM CW XXX ; 4 4170 ) 000 2202 |931 6 76 B FINSI ; 4 4174 B A54 2202 |932 6 77 MVDIG BW *&12, SIGSW ; 8 4178 V 19X 28T 1 2202 |933 6 78 SBR MSD, 0&X3 ; 7 4186 H 24U 0?0 2203 |934 6 79 SW SIGSW ; 4 4193 , 28T 2203 |935 6 80 BW LEWP, SWB ; 8 4197 V H76 28U 1 2203 |936 6 81 MN 0&X3, 2&X1 ; 7 4205 D 0?0 0|2 2203 |937 6 82 SBR X1 ; 4 4212 H 089 2203 |938 6 83 SW SWB ; 4 4216 , 28U 2203 |939 6 84 BCE LEWP,4&X1,} GMK ; 8 4220 B H76 0|4 } GMARK 2204 |940 6 85 CW SWB ; 4 4228 ) 28U 2204 |941 6 86 B LEWP ; 4 4232 B H76 2204 |942 6 87 XPN DCW #3 ; 3 4238 2204 |943 6 88 END DCW #3 ; 3 4241 2204 |944 6 89 MSD DCW #3 ; 3 4244 2204 |945 6 90 POINT DCW #3 ; 3 4247 2204 |946 6 91 FIVE DCW @5@ ; 1 4248 2205 |947 6 92 LKHED DC #1 ; 1 4249 2205 |948 6 93 LTORG * ; 4250 INSW ; DCW #01 ; 1 4250 AREA 2205 TUMUCH DCW #03 ; 3 4253 AREA 2205 BUCKT; DCW #03 ; 3 4256 AREA 2205 GMKHD; DCW #01 ; 1 4257 AREA 2205 GMKSW; DCW #01 ; 1 4258 AREA 2205 RTPA ; DCW #03 ; 3 4261 AREA 2205 SAVE1; DCW #03 ; 3 4264 AREA 2206 1 OBJECT TIME FORMAT 5054C PAGE 274 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD RPTB ; DCW #03 ; 3 4267 AREA 2206 DCW @0.0@ ; 3 4270 LIT 2206 DCW @ X @ ; 3 4273 LIT 2206 DCW @10@ ; 2 4275 LIT 2206 DCW @R@ ; 1 4276 LIT 2206 DCW @W@ ; 1 4277 LIT 2206 DCW &41 ; 2 4279 LIT 2207 DCW @281@ ; 3 4282 LIT 2207 SIGSW; DCW #01 ; 1 4283 AREA 2207 SWB ; DCW #01 ; 1 4284 AREA 2207 SWA ; DCW #01 ; 1 4285 AREA 2207 |949 5 94 GMK DCW @}@ GROUP MARK ; 1 4286 GMARK 2207 |950 6 95 W EQU 6&X2 ; 0006 X |951 6 96 WD EQU 6&X2 ; 0006 X |952 6 97 D EQU 9&X2 ; 0009 X |953 6 98 XXX EQU 0 ; 0000 |954 6 99 XL1 EQU 089 ; 0089 |955 7 00 XL2 EQU 094 ; 0094 |956 7 01 XL3 EQU 099 ; 0099 |957 7 04 XFR CWFIO ; B 982 2208 1 A FORMAT 5054D PAGE 275 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD |958 7 05 JOB A FORMAT ; |959 7 06 ORG 4280 ; 4280 |960 7 07 ABEGN BW *&12,SIGSW ; 8 4280 V 29Z 28T 1 2211 |961 7 08 SBR MSD,0&X3 ; 7 4288 H 24U 0?0 2211 |962 7 09 SW SIGSW ; 4 4295 , 28T 2211 |963 7 10 BW LEWPA,SWB ; 8 4299 V 34/ 28U 1 2211 |964 7 11 MN 0&X3,2&X1 ; 7 4307 D 0?0 0|2 2211 |965 7 12 MZ 0&X3,2&X1 ; 7 4314 Y 0?0 0|2 2212 |966 7 13 SBR X1 ; 4 4321 H 089 2212 |967 7 14 SW SWB ; 4 4325 , 28U 2212 |968 7 15 BCE LEWPA,4&X1,} GROUP MARK ; 8 4329 B 34/ 0|4 } GMARK 2212 |969 7 16 CW SWB ; 4 4337 ) 28U 2212 |970 7 17 LEWPA BW OVRA,1&X3 ; 8 4341 V 35X 0?1 1 2212 |971 7 18 B SBRX3 ; 4 4349 B J37 2212 |972 7 19 B ABEGN ; 4 4353 B 28| 2213 |973 7 20 OVRA SBR END,1&X3 ; 7 4357 H 24/ 0?1 2213 |974 7 21 MCW URZRO&6,NEXTA&6 ; 7 4364 M 16/ 37X 2213 |975 7 22 NEXTA MCW 0,0 ; 7 4371 M 000 000 2213 |976 7 23 LCA ; 1 4378 L 2213 |977 7 24 MLC MRWM&3,X3 ; 7 4379 M 17T 099 2213 |978 7 25 B FINSI ; 4 4386 B A54 2213 |979 7 26 OUTQA BFLTW MCW,BLK3,FLTWD ; MACRO |980 OUTQA MCW ; 1 4390 M GEN 2214 |981 DC BLK3 ; 3 4393 57X GEN 2214 |982 DC @;0@ 11-6-8,0 ; 2 4395 GEN 2214 |983 DC 0 ; 1 4396 GEN 2214 |984 7 27 BFLTW MCW,BLK20,FLTWD,-2 ; MACRO |985 MCW ; 1 4397 M GEN 2214 |986 DC BLK20 ; 3 4400 59X GEN 2214 |987 DC @;0@ 11-6-8,0 ; 2 4402 GEN 2214 |988 DC -2 ; 1 4403 GEN 2214 |989 7 28 SW 0&X1 ; 4 4404 , 0|0 2214 |990 7 29 SBR MRWM&3,0&X1 ; 7 4408 H 17T 0|0 2214 |991 7 30 B MV2WK ; 4 4415 B H01 2214 |992 7 31 AOUT MCW EFOUT&6,NEXA&6 ; 7 4419 M N01 43S 2214 |993 7 32 NEXA MCW 0,0 ; 7 4426 M 000 000 2215 |994 7 33 MCW ; 1 4433 M 2215 |995 7 34 SBR X1 ; 4 4434 H 089 2215 |996 7 35 SBR TEMPX1#3,1&X1 ; 7 4438 H 60T 0|1 2215 |997 7 36 SBR TEMPX3#3,0&X3 ; 7 4445 H 60W 0?0 2215 |998 7 37 MA 6&X2,TEMPX3 ; 7 4452 # 0!6 60W 2215 |999 7 38 SBR TEMP32,1&X3 ; 7 4459 H 60| 0?1 2216 / 7 39 MCW NEXA&6,TFLTWD#3 ; 7 4466 M 43S 60Z 2216 / 1 7 40 MA @I9H@,TFLTWD ; 7 4473 # 61S 60Z 2216 / 2 7 41 MOVNUM MN 1&X1,2&X3 ; 7 4480 D 0|1 0?2 2216 / 3 7 42 MZ 1&X1,2&X3 ; 7 4487 Y 0|1 0?2 2216 / 4 7 43 C TEMP32,TEMPX3 ; 7 4494 C 60| 60W 2217 / 5 7 44 BE FINI1 ; 5 4501 B 55| S 2217 / 6 7 45 C TEMPX1,TFLTWD ; 7 4506 C 60T 60Z 2217 / 7 7 46 BE FINI1 ; 5 4513 B 55| S 2217 1 A FORMAT 5054D PAGE 276 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD / 8 7 47 MA @001@,TEMPX1 ; 7 4518 # 61V 60T 2217 / 9 7 48 MA @001@,TEMP32 ; 7 4525 # 61V 60| 2217 / 10 7 49 SBR X1,1&X1 ; 7 4532 H 089 0|1 2218 / 11 7 50 SBR X3,1&X3 ; 7 4539 H 099 0?1 2218 / 12 7 51 B MOVNUM ; 4 4546 B 48| 2218 / 13 7 52 FINI1 SBR FINS&7,0&X3 ; 7 4550 H A53 0?0 2218 / 14 7 53 MCW TEMPX3,X3 ; 7 4557 M 60W 099 2218 / 15 7 54 SBR X3,2&X3 ; 7 4564 H 099 0?2 2218 / 16 7 55 B FINS ; 4 4571 B A46 2219 / 17 7 56 BLK3 DCW #3 ; 3 4577 2219 / 18 7 57 BLK20 DCW #20 ; 20 4597 2219 / 19 7 58 TEMP32 DCW @ @ ; 3 4600 2219 / 20 7 59 LTORG * ; 4601 TEMPX1 DCW #03 ; 3 4603 AREA 2219 TEMPX3 DCW #03 ; 3 4606 AREA 2219 TFLTWD DCW #03 ; 3 4609 AREA 2219 DCW @I9H@ ; 3 4612 LIT 2220 DCW @001@ ; 3 4615 LIT 2220 / 21 7 60 GM54D DCW @}@ GROUP MARK ; 1 4616 GMARK 2220 / 22 7 61 XFR CWAF ; B |51 2221 1 1401 FORTRAN REPLACE PHASE TWO 50553 PAGE 277 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD / 23 71 98 JOB 1401 FORTRAN REPLACE PHASE TWO ; / 24 71 99 SFX Q Q / 25 72 00 NXTOP EQU 086 Q 0086 / 26 72 01 NXBTM EQU 083 Q 0083 / 27 72 02 X1 EQU 089 Q 0089 / 28 72 03 X2 EQU 094 Q 0094 / 29 72 04 X3 EQU 099 Q 0099 / 30 72 05 FIXWD EQU FIXWDR Q 0930 / 31 72 06 FLTWD EQU FLTWDR Q 0933 / 32 72 07 ORG STARTR Q 0934 / 33 72 08 INIT SBR GARY#3,1&X3 Q 7 0934 H V13 0?1 2224 / 34 72 09 SW 1&X3 Q 4 0941 , 0?1 2224 / 35 72 10 SBR LIMIT#3,0&X2 Q 7 0945 H V16 0!0 2224 / 36 72 11 SBR TOP#3,0&X1 Q 7 0952 H V19 0|0 2224 / 37 72 12 MCW PARAMA&2,X2 Q 7 0959 M 688 094 2224 / 38 72 13 C 0&X2 Q 4 0966 C 0!0 2224 / 39 72 14 C Q 1 0970 C 2224 / 40 72 15 C Q 1 0971 C 2225 / 41 72 16 SBR RON&6 Q 4 0972 H T93 2225 / 42 72 17 MCW NXTOP,X2 Q 7 0976 M 086 094 2225 / 43 72 18 MN 0&X2 Q 4 0983 D 0!0 2225 / 44 72 19 SAR TOP2#3 Q 4 0987 Q V22 2225 / 45 72 20 TEST5 C X3,LIMIT Q 7 0991 C 099 V16 2225 / 46 72 21 SWTCH BE EXITA Q 5 0998 B /57 S 2225 / 47 72 22 C 0&X3 Q 4 1003 C 0?0 2226 / 48 72 23 SBR X2 Q 4 1007 H 094 2226 / 49 72 24 SBR X3 Q 4 1011 H 099 2226 / 50 72 25 BCE TEST2,1&X3,T Q 8 1015 B |95 0?1 T 2226 / 51 72 26 CKFX MCW 4&X3,BOX Q 7 1023 M 0?4 V25 2226 / 52 72 27 BCE FXFLT,BOX-2,; 11-6-8 Q 8 1030 B T98 V23 ; 2226 / 53 72 28 BCE FXFLT,BOX-2,_ 11-7-8 Q 8 1038 B T98 V23 _ 2227 / 54 72 29 BCE RON,BOX-2,] 11-5-8 Q 8 1046 B T87 V23 ] 2227 / 55 72 30 MCW BOX,4&X3 Q 7 1054 M V25 0?4 2227 / 56 72 31 CKBOP MCW 7&X3,BOX#3 Q 7 1061 M 0?7 V25 2227 / 57 72 32 BCE FXFLT,BOX-2,; 11-6-8 Q 8 1068 B T98 V23 ; 2227 / 58 72 33 BCE FXFLT,BOX-2,_ 11-7-8 Q 8 1076 B T98 V23 _ 2228 / 59 72 34 MCW BOX,7&X3 Q 7 1084 M V25 0?7 2228 / 60 72 35 B TEST5 Q 4 1091 B 991 2228 / 61 72 36 TEST2 BCE TEST5,4&X3,$ Q 8 1095 B 991 0?4 $ 2228 / 62 72 37 C 0&X3,@B700@ Q 7 1103 C 0?0 V29 2228 / 63 72 38 BE TEST5 Q 5 1110 B 991 S 2228 / 64 72 39 BWZ CKFX,4&X2,1 Q 8 1115 V |23 0!4 1 2229 / 65 72 40 BWZ Q 1 1123 V 2229 / 66 72 41 BWZ Q 1 1124 V 2229 / 67 72 42 MCW @B@,1&X3 Q 7 1125 M V30 0?1 2229 / 68 72 43 MCW 4&X2,X1 Q 7 1132 M 0!4 089 2229 / 69 72 44 MCW 0&X1,X1 Q 7 1139 M 0|0 089 2229 / 70 72 45 MCW X1,4&X2 Q 7 1146 M 089 0!4 2229 / 71 72 46 B CKFX Q 4 1153 B |23 2230 / 72 72 47 EXITA MCW &EXIT,SWTCH&3 Q 7 1157 M V33 |01 2230 1 1401 FORTRAN REPLACE PHASE TWO 50553 PAGE 278 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD / 73 72 48 MCW TOP,X3 Q 7 1164 M V19 099 2230 / 74 72 49 MCW @W96@,LIMIT FORM-1 CHG ON REASSM OF OBJ FORMAT Q 7 1171 M V36 V16 2230 / 75 72 50 B TEST5 Q 4 1178 B 991 2230 / 76 72 51 EXIT MCW GARY,X3 Q 7 1182 M V13 099 2230 / 77 72 52 SBR X3,1&X3 Q 7 1189 H 099 0?1 2231 / 78 72 53 MZ X3,ALL9 Q 7 1196 Y 099 V07 2231 / 79 72 54 MZ Q 1 1203 Y 2231 / 80 72 55 MCW Q 1 1204 M 2231 / 81 72 56 MZ NXBTM,ALL91 Q 7 1205 Y 083 V10 2231 / 82 72 57 MZ Q 1 1212 Y 2231 / 83 72 58 MCW Q 1 1213 M 2231 / 84 72 59 C ALL9,ALL91 Q 7 1214 C V07 V10 2232 / 85 72 60 BE SPCL Q 5 1221 B S84 S 2232 / 86 72 61 MCW NXBTM,X3 Q 7 1226 M 083 099 2232 / 87 72 62 CLEER CS 0&X3 Q 4 1233 / 0?0 2232 / 88 72 63 SBR X3 Q 4 1237 H 099 2232 / 89 72 64 C X3,ALL9 Q 7 1241 C 099 V07 2232 / 90 72 65 BU CLEER Q 5 1248 B S33 / 2232 / 91 72 66 SNGL C X3,GARY Q 7 1253 C 099 V13 2233 / 92 72 67 BE EOJ Q 5 1260 B S95 S 2233 / 93 72 68 LCA BLNK#1,0&X3 Q 7 1265 L V37 0?0 2233 / 94 72 69 SBR X3 Q 4 1272 H 099 2233 / 95 72 70 CW 1&X3 Q 4 1276 ) 0?1 2233 / 96 72 71 B SNGL Q 4 1280 B S53 2233 / 97 72 72 SPCL MCW NXBTM,X3 Q 7 1284 M 083 099 2233 / 98 72 73 B SNGL Q 4 1291 B S53 2234 / 99 72 74 EOJ MCW NXBTM,X3 Q 7 1295 M 083 099 2234 /100 72 75 MCW @|@,0&X3 Q 7 1302 M V38 0?0 2234 /101 72 76 SBR X3 Q 4 1309 H 099 2234 /102 72 77 MCW @]@,0&X3 11-5-8 Q 7 1313 M V39 0?0 2234 /103 72 78 MCW 0&X3 Q 4 1320 M 0?0 2234 /104 72 79 SBR X3 Q 4 1324 H 099 2234 /105 72 80 LCA BLNK,2&X3 Q 7 1328 L V37 0?2 2235 /106 72 81 LCA BLNK Q 4 1335 L V37 2235 /107 72 82 MCW DOSBSC,SUBSCR Q 7 1339 M 909 191 2235 /108 72 83 FENDX C,,,XBEGIN,XBEGIN,XBEGIN,SYS2,SNAPSHOT Q MACRO /109 BSS 333,C Q 5 1346 B 333 C GEN 2235 /110 SBR INITAP&6,XBEGIN Q 7 1351 H 786 838 GEN 2235 /111 SBR BCLEAR Q 4 1358 H 833 GEN 2235 /112 SBR INITXT&3,XBEGIN Q 7 1362 H 796 838 GEN 2236 /113 SBR TCLEAR,SYS2 Q 7 1369 H 710 V49 GEN 2236 /114 LCA @SNAPSHOT@,110 Q 7 1376 L V47 110 GEN 2236 /115 B MONTER Q 4 1383 B 700 GEN 2236 /116 72 84 RON SBR 4&X3,0 Q 7 1387 H 0?4 000 2236 /117 72 85 B CKBOP Q 4 1394 B |61 2236 /118 72 86 FXFLT SBR FXT&3 Q 4 1398 H U85 2237 /119 72 87 MCW FIXWD,BOX2 Q 7 1402 M 930 094 2237 /120 72 88 BCE *&8,BOX-2,_ 11-7-8 Q 8 1409 B U24 V23 _ 2237 /121 72 89 MCW FLTWD,BOX2 Q 7 1417 M 933 094 2237 /122 72 90 BCE EOFX,BOX,0 Q 8 1424 B U75 V25 0 2237 1 1401 FORTRAN REPLACE PHASE TWO 50553 PAGE 279 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /123 72 91 BWZ POSTV,BOX,B Q 8 1432 V U86 V25 B 2238 /124 72 92 BOX2 EQU X2 Q 0094 /125 72 93 SW BOX-1 Q 4 1440 , V24 2238 /126 72 94 LOOP A &1,BOX Q 7 1444 A V48 V25 2238 /127 72 95 BWZ DUN2,BOX,B Q 8 1451 V U71 V25 B 2238 /128 72 96 MN 0&X2 Q 4 1459 D 0!0 2238 /129 72 97 SAR X2 Q 4 1463 Q 094 2238 /130 72 98 B LOOP Q 4 1467 B U44 2238 /131 72 99 DUN2 CW BOX-1 Q 4 1471 ) V24 2239 /132 73 00 EOFX MCW BOX2,BOX Q 7 1475 M 094 V25 2239 /133 73 01 FXT B 0 Q 4 1482 B 000 2239 /134 73 02 POSTV MN BOX,SBR&6 Q 7 1486 D V25 V00 2239 /135 73 03 MN Q 1 1493 D 2239 /136 73 04 SBR SBR BOX,0&X2 Q 7 1494 H V25 0!0 2239 /137 73 05 B FXT Q 4 1501 B U82 2239 /138 73 06 ALL9 DCW 999 Q 3 1507 2240 /139 73 07 ALL91 DCW 999 Q 3 1510 2240 /140 73 08 LTORG * Q 1511 GARY Q DCW #03 Q 3 1513 AREA 2240 LIMITQ DCW #03 Q 3 1516 AREA 2240 TOP Q DCW #03 Q 3 1519 AREA 2240 TOP2 Q DCW #03 Q 3 1522 AREA 2240 BOX Q DCW #03 Q 3 1525 AREA 2240 DCW @B700@ Q 4 1529 LIT 2241 DCW @B@ Q 1 1530 LIT 2241 DCW &EXIT Q Q 3 1533 /82 ADCON 2241 DCW @W96@ Q 3 1536 LIT 2241 BLNK Q DCW #01 Q 1 1537 AREA 2241 DCW @|@ Q 1 1538 LIT 2241 DCW @]@ Q 1 1539 LIT 2241 DCW @SNAPSHOT@ Q 8 1547 LIT 2242 DCW &1 Q 1 1548 LIT 2242 /141 73 09 SYS2 DCW @}@ SYSTEM GROUP MARK Q 1 1549 GMARK 2242 /142 73 10 XFR INIT Q B 934 2243 1 1401 FORTRAN SNAPSHOT PHASE 50563 PAGE 280 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /143 73 11 JOB 1401 FORTRAN SNAPSHOT PHASE Q /144 73 12 FBEGN SNAPSHOT,X1,R,,,X3,R,8,XXX Q MACRO /145 SFX 8 8 GEN /146 XXX EQU 0 8 0000 GEN /147 110 DCW @SNAPSHOT@ 8 8 0110 GEN 2246 /148 X1 EQU 089 8 0089 GEN /149 089 DCW 000 8 3 0089 GEN 2247 /150 091 DC 00 8 2 0091 GEN 2247 /151 X3 EQU 099 8 0099 GEN /152 099 DCW 000 8 3 0099 GEN 2248 /153 100 DC 0 8 1 0100 GEN 2248 /154 73 13 ORG XBEGIN 8 0838 /155 73 14 START BCE *&5,PARAMA&8,S 8 8 0838 B 850 694 S 2249 /156 73 15 B RSTRX 8 4 0846 B /28 2249 /157 73 16 BW NOGUD,FAILSW 8 8 0850 V /58 184 1 2249 /158 73 17 SBR X1,4200 8 7 0858 H 089 20| 2249 /159 73 18 SBR X3,201 8 7 0865 H 099 201 2249 /160 73 19 BCE NOIO,PARAMA&10,X 8 8 0872 B 900 696 X 2250 /161 73 20 BCE LIO,PARAMA&10,L 8 8 0880 B 925 696 L 2250 /162 73 21 BCE AFORM,PARAMA&10,A 8 8 0888 B 950 696 A 2250 /163 73 22 B PRINT 8 4 0896 B 971 2250 /164 73 23 NOIO SBR X1,1600 8 7 0900 H 089 W00 2250 /165 73 24 MCW @01600@,LINCT 8 7 0907 M T26 T21 2251 /166 73 25 MCW @1696@,BIGMS 8 7 0914 M T30 T00 2251 /167 73 26 B PRINT 8 4 0921 B 971 2251 /168 73 27 LIO SBR X1,2000 8 7 0925 H 089 !00 2251 /169 73 28 MCW @02000@,LINCT 8 7 0932 M T35 T21 2251 /170 73 29 MCW @2015@,BIGMS 8 7 0939 M T39 T00 2251 /171 73 30 B PRINT 8 4 0946 B 971 2252 /172 73 31 AFORM SBR X1,4600 8 7 0950 H 089 60| 2252 /173 73 32 MCW @04600@,LINCT 8 7 0957 M T44 T21 2252 /174 73 33 MCW @4616@,BIGMS 8 7 0964 M T48 T00 2252 /175 73 34 PRINT MESSG @SNAPSHOT OF OBJECT PROGRAM@,60,1,J 8 MACRO /176 PRINT CC 1 8 2 0971 F 1 GEN 2252 /177 CS 332 8 4 0973 / 332 GEN 2252 /178 CS 8 1 0977 / GEN 2252 /179 MCW @SNAPSHOT OF OBJECT PROGRAM@,60&200 8 7 0978 M T74 260 GEN 2253 /180 W 8 1 0985 2 GEN 2253 /181 CC J 8 2 0986 F J GEN 2253 /182 73 35 MESSG @INPUT/OUTPUT AREAS LOCATED FROM 001-332@,39,,J 8 MACRO /183 CS 332 8 4 0988 / 332 GEN 2253 /184 CS 8 1 0992 / GEN 2253 /185 MCW @INPUT/OUTPUT AREAS LOCATED FROM 001-332@,39&200 8 7 0993 M U13 239 GEN 2253 /186 W 8 1 1000 2 GEN 2253 /187 CC J 8 2 1001 F J GEN 2254 /188 73 36 MESSG BIGMS,48,,K 8 MACRO /189 CS 332 8 4 1003 / 332 GEN 2254 /190 CS 8 1 1007 / GEN 2254 /191 MCW BIGMS,48&200 8 7 1008 M T00 248 GEN 2254 /192 W 8 1 1015 2 GEN 2254 1 1401 FORTRAN SNAPSHOT PHASE 50563 PAGE 281 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /193 CC K 8 2 1016 F K GEN 2254 /194 73 37 ZA &3,PGCTR 8 7 1018 ? U14 U67 2254 /195 73 38 NULIN CS 332 8 4 1025 / 332 2255 /196 73 39 CS 8 1 1029 / 2255 /197 73 40 CC J 8 2 1030 F J 2255 /198 73 41 MCW LINCT,311 8 7 1032 M T21 311 2255 /199 73 42 MCW 8 1 1039 M 2255 /200 73 43 MCW 8 1 1040 M 2255 /201 73 44 SBR MVHED&6 8 4 1041 H |58 2255 /202 73 45 MCW @9@,CTR-1 8 7 1045 M U15 U18 2256 /203 73 46 MVHED MCW CTR-1,XXX 8 7 1052 M U18 000 2256 /204 73 47 MCW HEAD 8 4 1059 M T09 2256 /205 73 48 SBR MVHED&6 8 4 1063 H |58 2256 /206 73 49 A @I0@,CTR#2 8 7 1067 A U17 U19 2256 /207 73 50 BWZ MVHED,CTR-1,2 8 8 1074 V |52 U18 2 2256 /208 73 51 A &1,LINCT-2 8 7 1082 A U20 T19 2257 /209 73 52 W 8 1 1089 2 2257 /210 73 53 LOOP SW 0&X3 8 4 1090 , 0?0 2257 /211 73 54 MCW 0&X1,0&X3 8 7 1094 M 0|0 0?0 2257 /212 73 55 BW CMPAB,0&X1 8 8 1101 V /13 0|0 1 2257 /213 73 56 CW 0&X3 8 4 1109 ) 0?0 2257 /214 73 57 CMPAB C X1,PARAMA&2 8 7 1113 C 089 688 2257 /215 73 58 BU CPL 8 5 1120 B /88 / 2258 /216 73 59 W 8 1 1125 2 2258 /217 73 60 WM 8 2 1126 2 ) 2258 /218 73 61 RSTRX FENDX C,,,,BEGIN/,,SYSG,CONDECK1 8 MACRO /219 RSTRX BSS 333,C 8 5 1128 B 333 C GEN 2258 /220 SBR INITXT&3,BEGIN/ 8 7 1133 H 796 884 GEN 2258 /221 SBR TCLEAR,SYSG 8 7 1140 H 710 U70 GEN 2258 /222 LCA @CONDECK1@,110 8 7 1147 L U28 110 GEN 2258 /223 B MONTER 8 4 1154 B 700 GEN 2259 /224 73 62 NOGUD MESSG @SNAPSHOT DEFERRED DUE TO INPUT ERRORS@,37,J 8 MACRO /225 NOGUD CC J 8 2 1158 F J GEN 2259 /226 CS 332 8 4 1160 / 332 GEN 2259 /227 CS 8 1 1164 / GEN 2259 /228 MCW @SNAPSHOT DEFERRED DUE TO INPUT ERRORS@,37&200 8 7 1165 M U65 237 GEN 2259 /229 W 8 1 1172 2 GEN 2259 /230 73 63 FORMS 8 MACRO /231 BCV *&5 8 5 1173 B /82 @ GEN 2259 /232 B *&3 8 4 1178 B /84 GEN 2260 /233 CC 1 8 2 1182 F 1 GEN 2260 /234 73 64 B RSTRX 8 4 1184 B /28 2260 /235 73 65 CPL SBR X1,1&X1 8 7 1188 H 089 0|1 2260 /236 73 66 BCE INC,X3-2,2 8 8 1195 B S42 097 2 2260 /237 73 67 SBR X3,201 8 7 1203 H 099 201 2260 /238 73 68 W 8 1 1210 2 2260 /239 73 69 WM 8 2 1211 2 ) 2261 /240 73 70 A &1,PGCTR#2 8 7 1213 A U20 U67 2261 /241 73 71 C PGCTR,&15 8 7 1220 C U67 U69 2261 /242 73 72 BU NULIN 8 5 1227 B |25 / 2261 1 1401 FORTRAN SNAPSHOT PHASE 50563 PAGE 282 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /243 73 73 S PGCTR 8 4 1232 S U67 2261 /244 73 74 CC 1 8 2 1236 F 1 2261 /245 73 75 B NULIN 8 4 1238 B |25 2261 /246 73 76 INC A &1,X3 8 7 1242 A U20 099 2262 /247 73 77 B LOOP 8 4 1249 B |90 2262 /248 73 78 BIGMS DCW @FIXED OBJECT TIME ROUTINES LOCATED FROM 333-4279@ 8 48 1300 2264 /249 73 79 HEAD DCW @9........@ 8 9 1309 2264 /250 73 80 DCW @9@ 8 1 1310 2264 /251 73 81 DCW @-AREA-@ 8 6 1316 2264 /252 73 82 LINCT DCW 04200 8 5 1321 2264 /253 73 83 LTORG * 8 1322 DCW @01600@ 8 5 1326 LIT 2265 DCW @1696@ 8 4 1330 LIT 2265 DCW @02000@ 8 5 1335 LIT 2265 DCW @2015@ 8 4 1339 LIT 2265 DCW @04600@ 8 5 1344 LIT 2265 DCW @4616@ 8 4 1348 LIT 2265 DCW @SNAPSHOT OF OBJECT PROGRAM@ 8 26 1374 LIT 2266 DCW @INPUT/OUTPUT AREAS LOCATED FROM 001-332@ 8 39 1413 LIT 2267 DCW &3 8 1 1414 LIT 2268 DCW @9@ 8 1 1415 LIT 2268 DCW @I0@ 8 2 1417 LIT 2268 CTR 8 DCW #02 8 2 1419 AREA 2268 DCW &1 8 1 1420 LIT 2268 DCW @CONDECK1@ 8 8 1428 LIT 2268 DCW @SNAPSHOT DEFERRED DUE TO INPUT ERRORS@ 8 37 1465 LIT 2269 PGCTR8 DCW #02 8 2 1467 AREA 2269 DCW &15 8 2 1469 LIT 2270 /254 73 84 SYSG DCW @}@ SYSTEM GROUP MARK 8 1 1470 GMARK 2270 /255 73 85 XFR START 8 B 838 2271 1 1401 FORTRAN CONDENSED DECK PHASE ONE 50573 PAGE 283 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /256 73 86 JOB 1401 FORTRAN CONDENSED DECK PHASE ONE 8 /257 73 87 FBEGN CONDECK1,,,,,,,/ 8 MACRO /258 SFX / / GEN /259 110 DCW @CONDECK1@ / 8 0110 GEN 2274 /260 73 88 LAST EQU CONLST / 0194 /261 73 89 ORG XBEGIN / 0838 /262 73 90 PCHCD SBR PXT&3 / 4 0838 H 858 2275 /263 73 91 A &1,175 / 7 0842 A 883 175 2275 /264 73 92 BSS MCW18,B / 5 0849 B 859 B 2275 /265 73 93 P / 1 0854 4 2275 /266 73 94 PXT B 0 / 4 0855 B 000 2275 /267 73 95 MCW18 MCW 180,280 / 7 0859 M 180 280 2275 /268 73 96 MCW / 1 0866 M 2275 /269 73 97 WP / 1 0867 6 2276 /270 73 98 FORMS / MACRO /271 BCV *&5 / 5 0868 B 877 @ GEN 2276 /272 B *&3 / 4 0873 B 879 GEN 2276 /273 CC 1 / 2 0877 F 1 GEN 2276 /274 73 99 B PXT / 4 0879 B 855 2276 /275 74 00 LTORG * / 0883 DCW &1 / 1 0883 LIT 2276 /276 74 01 BEGIN BCE GOTTA,PARAMA&7,P / 8 0884 B 896 693 P 2276 /277 74 02 B FENDX / 4 0892 B 956 2277 /278 74 03 GOTTA BW FENDX,FAILSW / 8 0896 V 956 184 1 2277 /279 74 04 LCA CONLST,LAST / 7 0904 L 194 194 2277 /280 74 05 CS 180 / 4 0911 / 180 2277 /281 74 06 SW 101 / 4 0915 , 101 2277 /282 74 07 MCW PARAMA-1,180 / 7 0919 M 685 180 2277 /283 74 08 BSS MESSG,B / 5 0926 B 935 B 2277 /284 74 09 B CDDMP / 4 0931 B 997 2278 /285 74 10 MESSG MESSG @CONDENSED DECK@,60,1,J / MACRO /286 MESSG CC 1 / 2 0935 F 1 GEN 2278 /287 CS 332 / 4 0937 / 332 GEN 2278 /288 CS / 1 0941 / GEN 2278 /289 MCW @CONDENSED DECK@,60&200 / 7 0942 M U04 260 GEN 2278 /290 W / 1 0949 2 GEN 2278 /291 CC J / 2 0950 F J GEN 2278 /292 74 11 B CDDMP / 4 0952 B 997 2279 /293 74 12 FENDX FENDX C,,,BEGIN,BEGIN,BEGIN,SYS1,CONDECK2 / MACRO /294 FENDX BSS 333,C / 5 0956 B 333 C GEN 2279 /295 SBR INITAP&6,BEGIN / 7 0961 H 786 884 GEN 2279 /296 SBR BCLEAR / 4 0968 H 833 GEN 2279 /297 SBR INITXT&3,BEGIN / 7 0972 H 796 884 GEN 2279 /298 SBR TCLEAR,SYS1 / 7 0979 H 710 U17 GEN 2279 /299 LCA @CONDECK2@,110 / 7 0986 L U12 110 GEN 2280 /300 B MONTER / 4 0993 B 700 GEN 2280 /301 74 13 CDDMP LCA @0000@,175 / 7 0997 L U16 175 2280 /302 74 14 BWZ LITCS,PARAMA&2,2 / 8 1004 V |45 688 2 2280 /303 74 15 MCW CS1A,152 / 7 1012 M T19 152 2280 /304 74 16 B PCHCD / 4 1019 B 838 2280 1 1401 FORTRAN CONDENSED DECK PHASE ONE 50573 PAGE 284 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /305 74 17 MCW PARAMA&2,CS2XA / 7 1023 M 688 T48 2281 /306 74 18 MCW CS2A,171 / 7 1030 M T90 171 2281 /307 74 19 B PCHCD / 4 1037 B 838 2281 /308 74 20 B DOBC1 / 4 1041 B |74 2281 /309 74 21 LITCS MCW CS1,144 / 7 1045 M /40 144 2281 /310 74 22 B PCHCD / 4 1052 B 838 2281 /311 74 23 MCW PARAMA&2,CS2X / 7 1056 M 688 /69 2282 /312 74 24 MCW CS2, 170 / 7 1063 M S10 170 2282 /313 74 25 B PCHCD / 4 1070 B 838 2282 /314 74 26 DOBC1 MCW BC1,171 / 7 1074 M S21 171 2282 /315 74 27 CS / 1 1081 / 2282 /316 74 28 LCA BC2,146 / 7 1082 L S67 146 2282 /317 74 29 B PCHCD / 4 1089 B 838 2282 /318 74 30 B FENDX / 4 1093 B 956 2283 /319 74 31 CS1 DCW @,008015,019026,030,034041,045,053,0570571026@ / 44 1140 2285 /320 74 32 CS2X DCW @L068112,102106,113/101099/I99@ / 29 1169 2285 /321 74 33 CS2 DC @,027A070028)027B0010270B0261,001/001113I0@ / 41 1210 2287 /322 74 34 BC1 DCW @,0010011040@ / 11 1221 2287 /323 74 35 BC2 DCW @,008015,022029,036040,047054,061068,072/061039@ / 46 1267 2289 /324 74 364 DCW @,008015,022026,030037,044,049,053034@ V3M4 / 36 1303 2290 /325 74 37 CS1A DC @,035036N00001026@ V3M4 / 16 1319 2291 /326 74 38 CS2XA DCW @L068116,105106,110117B101/I9I@ / 29 1348 2292 /327 74 39 CS2A DC @H029NNNC029056B026/B001/0991,001/001117I0?@ V3M4 / 42 1390 2294 /328 74 40 LTORG * / 1391 DCW @CONDENSED DECK@ / 14 1404 LIT 2294 DCW @CONDECK2@ / 8 1412 LIT 2294 DCW @0000@ / 4 1416 LIT 2294 /329 74 41 SYS1 DCW @}@ SYSTEM GROUP MARK / 1 1417 GMARK 2294 /330 74 42 XFR BEGIN / B 884 2295 1 1401 FORTRAN CONDENSED DECK PHASE TWO 50583 PAGE 285 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /331 74 43 JOB 1401 FORTRAN CONDENSED DECK PHASE TWO / /332 74 44 FBEGN CONDECK2,,,,,,,2 / MACRO /333 SFX 2 2 GEN /334 110 DCW @CONDECK2@ 2 8 0110 GEN 2298 /335 74 45 ORG BEGIN/ 2 0884 /336 74 46 START MCW MONTOR,READ 2 7 0884 M 769 |74 2299 /337 74 47 BW PCHTS,XLINKW BRANCH IF XLINKF SWITCH OFF 2 8 0891 V 984 185 1 2299 /338 74 48 MCW MONTOR,SKPSS SKIP SNAPSHOT 2 7 0899 M 769 920 2299 /339 74 49 SBR TPERR&15,RDTPS 2 7 0906 H /17 931 2299 /340 74 50 SBR CK4B-1,MVNSS 2 7 0913 H /30 924 2299 /341 74 51 SKPSS R ENDSS 2 4 0920 1 944 2300 /342 74 52 MVNSS MCW &9,RDCNT 2 7 0924 M V36 V85 2300 /343 74 53 RDTPS RT 1,1 2 8 0931 M %U1 001 R 2300 /344 74 54 BER TPERR 2 5 0939 B /02 L 2300 /345 74 55 ENDSS BCE *&5,68,B 2 8 0944 B 956 068 B 2300 /346 74 56 B SKPSS 2 4 0952 B 920 2300 /347 74 57 SBR GETXT&3,CK4B 11-5-8 CARD ALREADY READ 2 7 0956 H /01 /31 2301 /348 74 58 SBR TPERR&15,RDTAP RESTORE TPERR OPERANDS 2 7 0963 H /17 |85 2301 /349 74 59 SBR CK4B-1,MVNIN 2 7 0970 H /30 |78 2301 /350 74 60 A &1,NBRSW 2 7 0977 A V37 V86 2301 /351 74 61 PCHTS BCE *&5,PARAMA&7,P 2 8 0984 B 996 693 P 2301 /352 74 62 B READ 2 4 0992 B |74 2302 /353 74 63 BW NOPUN,FAILSW 2 8 0996 V /66 184 1 2302 /354 74 64 MCW @1040@,171 2 7 1004 M V41 171 2302 /355 74 65 MCW @L014100,092097,081082,083084@ 2 4 1011 M V69 2302 /356 74 66 CS 2 1 1015 / 2302 /357 74 67 LCA @00000000000000@, 114 2 7 1016 L V83 114 2302 /358 74 68 MCW @B@,RETRN 2 7 1023 M V84 |70 2302 /359 74 69 B PCHCD V3M4 2 4 1030 B 838 2303 /360 74 70 MCW @1040@,171 2 7 1034 M V41 171 2303 /361 74 71 MCW LDFMT-1 2 4 1041 M V34 2303 /362 74 72 CS 2 1 1045 / 2303 /363 74 73 MCW MASK,157 2 7 1046 M U63 157 2303 /364 74 74 SW SYSC2 2 4 1053 , W12 2303 /365 74 75 MCW SYSC2,108 2 7 1057 M W12 108 2303 /366 75 76 MCW PARAMA&6 2 4 1064 M 692 2304 /367 75 77 MCW 2 1 1068 M 2304 /368 75 78 LCA 2 1 1069 L 2304 /369 74 79 RETRN NOP PCHCD 2 4 1070 N 838 2304 /370 74 80 READ R GETXT 2 4 1074 1 |98 2304 /371 74 81 MVNIN MCW &9,RDCNT#1 2 7 1078 M V36 V85 2304 /372 74 82 RDTAP RT 1,1 2 8 1085 M %U1 001 R 2304 /373 74 83 BER TPERR 2 5 1093 B /02 L 2305 /374 74 84 GETXT B ONCE 2 4 1098 B /55 2305 /375 74 85 TPERR BSP 1 2 5 1102 U %U1 B 2305 /376 74 86 S &1,RDCNT 2 7 1107 S V37 V85 2305 /377 74 87 BWZ RDTAP,RDCNT,B 2 8 1114 V |85 V85 B 2305 /378 74 88 NOP 3333 2 4 1122 N C33 2305 /379 74 89 H 2 1 1126 . 2305 /380 74 90 B MVNIN 2 4 1127 B |78 2306 1 1401 FORTRAN CONDENSED DECK PHASE TWO 50583 PAGE 286 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /381 74 91 CK4B BCE FENDX,68,B 2 8 1131 B /85 068 B 2306 /382 74 92 MCW 71,171 2 7 1139 M 071 171 2306 /383 74 93 CHAIN 5 2 MACRO /384 MCW 2 1 1146 M GEN 2306 /385 MCW 2 1 1147 M GEN 2306 /386 MCW 2 1 1148 M GEN 2306 /387 MCW 2 1 1149 M GEN 2306 /388 MCW 2 1 1150 M GEN 2307 /389 74 94 B RETRN 2 4 1151 B |70 2307 /390 74 95 ONCE SBR GETXT&3,CK4B 2 7 1155 H /01 /31 2307 /391 74 96 B READ 2 4 1162 B |74 2307 /392 74 97 NOPUN MESSG MESSG,43,,J 2 MACRO /393 NOPUN CS 332 2 4 1166 / 332 GEN 2307 /394 CS 2 1 1170 / GEN 2307 /395 MCW MESSG,43&200 2 7 1171 M V06 243 GEN 2307 /396 W 2 1 1178 2 GEN 2308 /397 CC J 2 2 1179 F J GEN 2308 /398 74 98 B READ 2 4 1181 B |74 2308 /399 74 99 FENDX A &1,NBRSW#1 2 7 1185 A V37 V86 2308 /400 75 00 BCE EXIT,NBRSW,3 2 8 1192 B S95 V86 3 2308 /401 75 01 BCE READ,NBRSW,2 2 8 1200 B |74 V86 2 2308 /402 75 02 BW *&5,XLINKW BRANCH IF XLINKF SWITCH OFF 2 8 1208 V S20 185 1 2308 /403 75 03 B READ 2 4 1216 B |74 2309 /404 75 04 MCW MONTOR,SKPXL SKIP XLINK 2 7 1220 M 769 S41 2309 /405 75 05 SBR TPERR&15,RDTPX 2 7 1227 H /17 S52 2309 /406 75 06 SBR CK4B-1,MVNXL 2 7 1234 H /30 S45 2309 /407 75 07 SKPXL R ENDXL 2 4 1241 1 S65 2309 /408 75 08 MVNXL MCW &9,RDCNT 2 7 1245 M V36 V85 2309 /409 75 09 RDTPX RT 1,1 2 8 1252 M %U1 001 R 2310 /410 75 10 BER TPERR 2 5 1260 B /02 L 2310 /411 75 11 ENDXL BCE *&5,68,B 2 8 1265 B S77 068 B 2310 /412 75 12 B SKPXL 2 4 1273 B S41 2310 /413 75 13 SBR TPERR&15,RDTAP RESTORE TPERR OPERANDS 2 7 1277 H /17 |85 2310 /414 75 14 SBR CK4B-1,MVNIN 2 7 1284 H /30 |78 2310 /415 75 15 B FENDX 2 4 1291 B /85 2311 /416 75 16 EXIT SBR GETXT&3,FEND2 2 7 1295 H /01 T06 2311 /417 75 17 B READ 2 4 1302 B |74 2311 /418 75 18 FEND2 BCE FEND3,RETRN,N 2 8 1306 B U05 |70 N 2311 /419 75 19 CS 171 2 4 1314 / 171 2311 /420 75 20 SW 101 2 4 1318 , 101 2311 /421 75 21 MCW @1040@,171 2 7 1322 M V41 171 2311 /422 75 22 MCW LDFMT-1 2 4 1329 M V34 2312 /423 75 23 MCW @M002V36@,146 CHANGE ON REASM OF OB ARITH XSIZE&6 2 7 1333 M V93 146 2312 /424 75 24 MCW PARAMA&4,102 2 7 1340 M 690 102 2312 /425 75 25 B PCHCD 2 4 1347 B 838 2312 /426 75 26 MCW @837@,146 CHANGE ON REASM OF OB ARITH FSIZE&6 2 7 1351 M V96 146 2312 /427 75 27 MCW PARAMA&6,102 2 7 1358 M 692 102 2312 /428 75 28 B PCHCD 2 4 1365 B 838 2313 /429 75 29 MCW @3T30@,146 CHANGE ON REASM OF OB ARITH OUT1-1 2 7 1369 M W00 146 2313 /430 75 30 MCW GOTOFN,103 2 7 1376 M 188 103 2313 1 1401 FORTRAN CONDENSED DECK PHASE TWO 50583 PAGE 287 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /431 75 31 B PCHCD 2 4 1383 B 838 2313 /432 75 32 MCW @S09@,146 CHANGE ON REASM OF OB ARITH STSUB&3 2 7 1387 M W03 146 2313 /433 75 33 MCW SUBSCR,103 2 7 1394 M 191 103 2313 /434 75 34 B PCHCD 2 4 1401 B 838 2314 /435 75 35 FEND3 FENDX C,,,XBEGIN,XBEGIN,XBEGIN,SYSC2,CONDECK3 2 MACRO /436 FEND3 BSS 333,C 2 5 1405 B 333 C GEN 2314 /437 SBR INITAP&6,XBEGIN 2 7 1410 H 786 838 GEN 2314 /438 SBR BCLEAR 2 4 1417 H 833 GEN 2314 /439 SBR INITXT&3,XBEGIN 2 7 1421 H 796 838 GEN 2314 /440 SBR TCLEAR,SYSC2 2 7 1428 H 710 W12 GEN 2314 /441 LCA @CONDECK3@,110 2 7 1435 L W11 110 GEN 2315 /442 B MONTER 2 4 1442 B 700 GEN 2315 /443 75 36 DCW @L008@ 2 4 1449 2315 /444 75 37 DC PARAMA&7 2 3 1452 693 2315 /445 75 38 DC @,@ 2 1 1453 2315 /446 75 39 DC PARAMA&3 2 3 1456 689 2315 /447 75 40 DC PARAMA&5 2 3 1459 691 2315 /448 75 41 DC @,@ 2 1 1460 2315 /449 75 42 MASK DC PARAMA&7 2 3 1463 693 2315 /450 75 43 MESSG DCW @CONDENSED DECK DEFERRED DUE TO INPUT ERRORS@ 2 43 1506 2317 /451 75 44 LDFMT DCW @L039000,040040,040040,040040$@ 2 29 1535 2317 /452 75 45 LTORG * 2 1536 DCW &9 2 1 1536 LIT 2317 DCW &1 2 1 1537 LIT 2317 DCW @1040@ 2 4 1541 LIT 2317 DCW @L014100,092097,081082,083084@ 2 28 1569 LIT 2318 DCW @00000000000000@ 2 14 1583 LIT 2319 DCW @B@ 2 1 1584 LIT 2319 RDCNT2 DCW #01 2 1 1585 AREA 2319 NBRSW2 DCW #01 2 1 1586 AREA 2319 DCW @M002V36@ 2 7 1593 LIT 2319 DCW @837@ 2 3 1596 LIT 2319 DCW @3T30@ 2 4 1600 LIT 2319 DCW @S09@ 2 3 1603 LIT 2320 DCW @CONDECK3@ 2 8 1611 LIT 2320 /453 75 46 SYSC2 DCW @}@ SYSTEM GROUP MARK 2 1 1612 GMARK 2320 /454 75 47 PCHCD EQU PCHCD/ 2 0838 /455 75 48 XFR START 2 B 884 2321 1 1401 FORTRAN FIXED ROUTINE FOR CONDENSING ROUTINE 50593 PAGE 288 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /456 75 49 JOB 1401 FORTRAN FIXED ROUTINE FOR CONDENSING ROUTINE 2 /457 75 50 110 DCW @]]]]]@ ALL 11-5-8 FIRST CARD 2 5 0110 2324 1 1401 FORTRAN SNAPSHOT ROUTINE 5059A PAGE 289 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /458 1 01 JOB 1401 FORTRAN SNAPSHOT ROUTINE 2 /459 1 02 CTL 644 11 2 /460 1 03 SFX _ _ /461 1 04 XXX EQU 0 _ 0000 /462 1 05 XL1 EQU 089 _ 0089 /463 1 06 XL2 EQU 094 _ 0094 /464 1 07 XL3 EQU 099 _ 0099 /465 1 09 ORG 333 _ 0333 /466 1 10 SBR PRTXT&3 _ 4 0333 H 567 2325 /467 1 11 SBR HLDXT&6 _ 4 0337 H 408 2325 /468 1 12 MCW @000@,LINCT-2 _ 7 0341 M 661 656 2325 /469 1 13 MCW XL3, HLD32&6 _ 7 0348 M 099 415 2325 /470 1 14 MCW XL1, HLD31&6 _ 7 0355 M 089 422 2325 /471 1 15 SBR XL1, 1 _ 7 0362 H 089 001 2325 /472 1 16 SBR XL3, 202 _ 7 0369 H 099 202 2326 /473 1 17 CS 332 _ 4 0376 / 332 2326 /474 1 18 CS _ 1 0380 / 2326 /475 1 19 NOP 110,210 _ 7 0381 N 110 210 2326 /476 1 20 BSS ONLY,F _ 5 0388 B 621 F 2326 /477 1 21 CC 1 _ 2 0393 F 1 2326 /478 1 22 MCW 094,250 _ 7 0395 M 094 250 2326 /479 1 23 HLDXT SBR 216,XXX _ 7 0402 H 216 000 2327 /480 1 24 HLD32 SBR 256,XXX _ 7 0409 H 256 000 2327 /481 1 25 HLD31 SBR 244,XXX _ 7 0416 H 244 000 2327 /482 1 26 W _ 1 0423 2 2327 /483 1 27 CC K _ 2 0424 F K 2327 /484 1 28 ZA &2,PGCTR#2 _ 7 0426 ? 662 664 2327 /485 1 29 NULIN CS 332 _ 4 0433 / 332 2327 /486 1 30 CS _ 1 0437 / 2328 /487 1 31 CC J _ 2 0438 F J 2328 /488 1 32 MCW LINCT,306 _ 7 0440 M 658 306 2328 /489 1 33 MCW _ 1 0447 M 2328 /490 1 34 SBR MVHED&6 _ 4 0448 H 465 2328 /491 1 35 MCW @9@, CTR-1 _ 7 0452 M 665 668 2328 /492 1 36 MVHED MCW CTR-1,XXX _ 7 0459 M 668 000 2328 /493 1 37 MCW HEAD _ 4 0466 M 651 2329 /494 1 38 SBR MVHED&6 _ 4 0470 H 465 2329 /495 1 39 A @I0@, CTR#2 _ 7 0474 A 667 669 2329 /496 1 40 BWZ MVHED, CTR-1, 2 _ 8 0481 V 459 668 2 2329 /497 1 41 A &1,LINCT-2 _ 7 0489 A 670 656 2329 /498 1 42 W _ 1 0496 2 2329 /499 1 43 LOOP SW 0&X3 _ 4 0497 , 0?0 2329 /500 1 44 MCW 0&X1,0&X3 _ 7 0501 M 0|0 0?0 2330 /501 1 45 BW CMPAB,0&X1 _ 8 0508 V 520 0|0 1 2330 /502 1 46 CW 0&X3 _ 4 0516 ) 0?0 2330 /503 1 47 CMPAB C XL1,PARAMA&2 _ 7 0520 C 089 688 2330 /504 1 48 BU CPL _ 5 0527 B 568 / 2330 /505 1 49 W _ 1 0532 2 2330 /506 1 50 WM _ 2 0533 2 ) 2330 /507 1 51 RSTRX MCW HLD31&6,XL1 _ 7 0535 M 422 089 2331 1 1401 FORTRAN SNAPSHOT ROUTINE 5059A PAGE 290 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /508 1 52 MCW HLD32&6,XL3 _ 7 0542 M 415 099 2331 /509 1 53 CS 332 _ 4 0549 / 332 2331 /510 1 54 CS _ 1 0553 / 2331 /511 1 55 BSS *&5,G _ 5 0554 B 563 G 2331 /512 1 56 B PRTXT _ 4 0559 B 564 2331 /513 1 57 H _ 1 0563 . 2331 /514 1 58 PRTXT H 0 _ 4 0564 . 000 2332 /515 1 59 CPL SBR XL1, 1&X1 _ 7 0568 H 089 0|1 2332 /516 1 60 BCE INC, XL3-2, 2 _ 8 0575 B 632 097 2 2332 /517 1 61 SBR XL3, 201 _ 7 0583 H 099 201 2332 /518 1 62 W _ 1 0590 2 2332 /519 1 63 WM _ 2 0591 2 ) 2332 /520 1 64 A &1,PGCTR _ 7 0593 A 670 664 2332 /521 1 65 C PGCTR,&15 _ 7 0600 C 664 672 2333 /522 1 66 BU NULIN _ 5 0607 B 433 / 2333 /523 1 67 S PGCTR _ 4 0612 S 664 2333 /524 1 68 CCB NULIN,1 _ 5 0616 F 433 1 2333 /525 1 69 ONLY MCW @EXECUTED@,220 _ 7 0621 M 680 220 2333 /526 1 70 W RSTRX _ 4 0628 2 535 2333 /527 1 71 INC A &1,XL3 _ 7 0632 A 670 099 2333 /528 1 72 B LOOP _ 4 0639 B 497 2334 /529 1 73 HEAD DCW @9........@ _ 9 0651 2334 /530 1 74 DCW @9-@ _ 2 0653 2334 /531 1 75 LINCT DCW 00000 _ 5 0658 2334 /532 1 76 LTORG * _ 0659 DCW @000@ _ 3 0661 LIT 2334 DCW &2 _ 1 0662 LIT 2334 PGCTR_ DCW #02 _ 2 0664 AREA 2334 DCW @9@ _ 1 0665 LIT 2335 DCW @I0@ _ 2 0667 LIT 2335 CTR _ DCW #02 _ 2 0669 AREA 2335 DCW &1 _ 1 0670 LIT 2335 DCW &15 _ 2 0672 LIT 2335 DCW @EXECUTED@ _ 8 0680 LIT 2335 /533 1 77 XFR 0 _ B 000 2336 1 1401 FORTRAN FIXED XLINK ROUTINE 5059B PAGE 291 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /534 1 78 JOB 1401 FORTRAN FIXED XLINK ROUTINE _ /535 1 79 ORG 333 _ 0333 /536 1 80 H 333 _ 4 0333 . 333 2339 /537 1 81 START MCW 86,XL2 X2 FOLLOWS B700 _ 7 0337 M 086 094 2339 /538 1 82 CS 80 _ 4 0344 / 080 2339 /539 1 83 BCE ARRAY,0&X2,$ _ 8 0348 B 585 0!0 $ 2339 /540 1 84 CLEAR CS 000 _ 4 0356 / 000 2339 /541 1 85 SBR ADR3 _ 4 0360 H 359 2339 /542 1 86 C ADR3,@699@ _ 7 0364 C 359 645 2339 /543 1 87 BU CLEAR _ 5 0371 B 356 / 2340 /544 1 88 SW ACCHI-5&X3 _ 4 0376 , 2G4 2340 /545 1 89 MZ ACCHI&X3,FIELD _ 7 0380 Y 2G9 642 2340 /546 1 90 C FIELD,ACCHI&X3 _ 7 0387 C 642 2G9 2340 /547 1 91 BE CARDS _ 5 0394 B 603 S 2340 /548 1 92 BM GETM,ACCHI&X3 _ 8 0399 V 620 2G9 K 2340 /549 1 93 MZ ZERO,ACCHI&X3 _ 7 0407 Y 637 2G9 2341 /550 1 94 C 699,ACCHI&X3 _ 7 0414 C 699 2G9 2341 /551 1 95 BE GETM _ 5 0421 B 620 S 2341 /552 1 96 SW 22 _ 4 0426 , 022 2341 /553 1 97 MCW GM,22 _ 7 0430 M 680 022 2341 /554 1 98 SERCH RT 1,1 _ 8 0437 M %U1 001 R 2341 /555 1 99 BEF OUT _ 5 0445 B 478 K 2342 /556 2 00 C 10,@LIB@ _ 7 0450 C 010 648 2342 /557 2 01 BU SERCH _ 5 0457 B 437 / 2342 /558 2 02 C 17,ACCHI&X3 _ 7 0462 C 017 2G9 2342 /559 2 03 BE T1 _ 5 0469 B 498 S 2342 /560 2 54 B SERCH _ 4 0474 B 437 2342 /561 2 05 OUT NOP CARDS _ 4 0478 N 603 2342 /562 2 06 MCW TPERM,OUT V3M4 _ 7 0482 M 581 478 2343 /563 2 07 RWD 1 _ 5 0489 U %U1 R 2343 /564 2 08 B SERCH _ 4 0494 B 437 2343 /565 2 09 T1 LCA ZEROS,101 _ 7 0498 L 641 101 2343 /566 2 10 LCA ZEROS _ 4 0505 L 641 2343 /567 2 11 LCA ZEROS _ 4 0509 L 641 2343 /568 2 12 RTW 1,333 _ 8 0513 L %U1 333 R 2343 /569 2 13 BER ERR _ 5 0521 B 557 L 2344 /570 2 14 MCW ZERO,CTRR _ 7 0526 M 637 641 2344 /571 2 15 SBR TPERM-1,T2 _ 7 0533 H 580 540 2344 /572 2 16 T2 RTW 1,700 _ 8 0540 L %U1 700 R 2344 /573 2 17 BER ERR _ 5 0548 B 557 L 2344 /574 2 18 TBOOT B 000 FROM LIBED _ 4 0553 B 000 2344 /575 2 19 ERR A ONE,CTRR _ 7 0557 A 679 641 2345 /576 2 20 BCE TPERM,CTRR,9 _ 8 0564 B 581 641 9 2345 /577 2 21 BSP 1 _ 5 0572 U %U1 B 2345 /578 2 22 B T1 _ 4 0577 B 498 2345 /579 2 23 TPERM H TPERM _ 4 0581 . 581 2345 /580 2 24 ARRAY MCW 3&X2,ADR3 _ 7 0585 M 0!3 359 2345 /581 2 25 MZ ZERO,ADR3-1 _ 7 0592 Y 637 358 2346 /582 2 26 B CLEAR _ 4 0599 B 356 2346 /583 2 27 CARDS SW 1 _ 4 0603 , 001 2346 1 1401 FORTRAN FIXED XLINK ROUTINE 5059B PAGE 292 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /584 2 28 R _ 1 0607 1 2346 /585 2 29 BCE 1,1,, _ 8 0608 B 001 001 , 2346 /586 2 30 B CARDS _ 4 0616 B 603 2346 /587 2 31 GETM RWD 1 _ 5 0620 U %U1 R 2346 /588 2 32 RTW 1,1 _ 8 0625 L %U1 001 R 2347 /589 2 33 B 1 EXECUTE MONITOR PROGRAM _ 4 0633 B 001 2347 /590 2 34 ADR3 EQU CLEAR&3 _ 0359 /591 2 35 FIELD DCW @000000@ _ 6 0642 2347 /592 2 36 ZEROS EQU FIELD-1 _ 0641 /593 2 37 ZERO EQU ZEROS-4 _ 0637 /594 2 38 CTRR EQU ZEROS _ 0641 /595 2 39 ACCHI EQU 279 _ 0279 /596 2 42 LTORG * _ 0643 DCW @699@ _ 3 0645 LIT 2347 DCW @LIB@ _ 3 0648 LIT 2347 /597 2 43 ORG 679 _ 0679 /598 2 44 ONE DCW 1 _ 1 0679 2348 /599 2 441 GM DC @}@ GROUP MARK IN 680 _ 1 0680 GMARK 2348 /600 2 45 XFR 0 _ B 000 2349 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 293 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /601 2 46 JOB 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES _ /602 2 47 * /603 2 48 SFX ^ ^ /604 2 49 * /605 2 50 XINIT XL1,XL2,XL3,,,,XXXX ^ MACRO /606 XXX EQU 0 ^ 0000 GEN /607 XL1 EQU 089 ^ 0089 GEN /608 089 DCW 000 ^ 3 0089 GEN 2352 /609 091 DC 00 ^ 2 0091 GEN 2352 /610 XL2 EQU 094 ^ 0094 GEN /611 094 DCW 000 ^ 3 0094 GEN 2352 /612 096 DC 00 ^ 2 0096 GEN 2352 /613 XL3 EQU 099 ^ 0099 GEN /614 099 DCW 000 ^ 3 0099 GEN 2352 /615 100 DC 0 ^ 1 0100 GEN 2352 /616 2 51 * /617 2 52 XNMBR ^ MACRO /618 X1 EQU 089 ^ 0089 GEN /619 X2 EQU 094 ^ 0094 GEN /620 X3 EQU 099 ^ 0099 GEN /621 2 53 * /622 2 54 WKZON EQU 200 ^ 0200 /623 2 55 TOP EQU WKZON&1 ^ 0201 /624 2 56 SPOT EQU WKZON&50 ^ 0250 /625 2 57 ACCHI EQU WKZON&79 ^ 0279 /626 2 58 * /627 2 59 ORG 700 ^ 0700 /628 2 60 * /629 2 61 * ARITHMETIC ROUTINE MONITOR /630 2 62 * /631 2 63 ARITF SBR X2 ^ 4 0700 H 094 2353 /632 2 64 SBR 086 STORE FIRST LOCATION OF ARITH STRING ^ 4 0704 H 086 2353 /633 2 65 SBR STMNM&6 ^ 4 0708 H V06 2353 /634 2 66 ARITH MCW 2&X2, X1 ^ 7 0712 M 0!2 089 2353 /635 2 67 SAR ALGRT&6 ^ 4 0719 Q 765 2353 /636 2 68 SBBR1 SBR BRWHR&6 ^ 4 0723 H S27 2353 /637 2 69 BCE STSUB,0&X2,$ CHECK FOR SUBSCRIPTED STORE LOCATION ^ 8 0727 B S06 0!0 $ 2353 /638 2 70 SBR OUT2&6,0&X1 ^ 7 0735 H T75 0|0 2354 /639 2 71 CS WKZON&103 CLEAR WORK AREA ^ 4 0742 / 303 2354 /640 2 72 CS ^ 1 0746 / 2354 /641 2 73 CS ^ 1 0747 / 2354 /642 2 74 LCA @0@, ACCHI&1 ^ 7 0748 L W85 280 2354 /643 2 75 CLRX S X1&2 ^ 4 0755 S 091 2354 /644 2 76 ALGRT SBR XL2, XXX ^ 7 0759 H 094 000 2354 /645 2 77 C 4&X2, @#@ ^ 7 0766 C 0!4 W86 2355 /646 2 78 MCW 4&X2, SIGNF ^ 7 0773 M 0!4 924 2355 /647 2 79 SW TOP ^ 4 0780 , 201 2355 /648 2 80 EXIT BL QFUNC ^ 5 0784 B T05 T 2355 /649 2 81 SBR NGBMP&6,4&X2 ^ 7 0789 H 874 0!4 2355 /650 2 82 BCE OPDSC,5&X2,$ CHECK FOR SUBSCRIPTED OPERAND ^ 8 0796 B /99 0!5 $ 2355 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 294 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /651 2 83 MCW 7&X2, XL1 ^ 7 0804 M 0!7 089 2356 /652 2 84 SAR ALGRT&6 ^ 4 0811 Q 765 2356 /653 2 85 SBBR2 BWZ XSIZE,X1-1,K BRANCH IF FIXPT COMPUTATION ^ 8 0815 V V30 088 K 2356 /654 2 86 BWZ XSIZE,X1-1,S ^ 8 0823 V V30 088 S 2356 /655 2 87 * /656 2 88 * FLOAT ARITHMETIC /657 2 89 * /658 2 90 FSIZE SBR X3,XXX STORE FLOAT SIZE ^ 7 0831 H 099 000 2356 /659 2 91 CW FIXSW#1 ^ 4 0838 ) W87 2356 /660 2 92 MCW 0&X1,EXPB STORE EXPONENT ^ 7 0842 M 0|0 W82 2357 /661 2 93 SAR XL1 ^ 4 0849 Q 089 2357 /662 2 94 MCW 0&X1,SPOT INITIALIZE WORK AREA ^ 7 0853 M 0|0 250 2357 /663 2 95 SBR XL2 ^ 4 0860 H 094 2357 /664 2 96 LCA @0@ ^ 4 0864 L W85 2357 /665 2 97 NGBMP BW *&8,0 ^ 8 0868 V 883 000 1 2357 /666 2 98 MZ SPOT, NSIGN ^ 7 0876 Y 250 |87 2358 /667 2 99 S @0@,SPOT&2&X3 ^ 7 0883 S W85 2E2 2358 /668 3 00 C 1&X2, @0@ ^ 7 0890 C 0!1 W85 2358 /669 3 01 A XL3, XL2 ^ 7 0897 A 099 094 2358 /670 3 02 BCE FDIV,CODE,/ BRANCH FOR DIVISION ^ 8 0904 B S33 924 / 2358 /671 3 03 BCE FMPY,CODE,* BRANCH FOR MULTIPLICATION - ^ 8 0912 B S62 924 * 2359 /672 3 04 * /673 3 05 * FLOATING ADD / SUBTRACT /674 3 06 * /675 3 07 S SIGNF ^ 4 0920 S 924 2359 /676 3 08 SIGNF ZA NSIGN ^ 4 0924 ? |87 2359 /677 3 09 BCE NUVAL,ACCHI&1,0 BR, IF 1ST OPERAND OF COMPUTATION ^ 8 0928 B |17 280 0 2359 /678 3 10 BE CLRWK ^ 5 0936 B /34 S 2359 /679 3 11 S EXPB,EXP ^ 7 0941 S W82 W79 2359 /680 3 12 ZA EXP&1,XL1&1 ^ 7 0948 ? W80 090 2360 /681 3 13 C XL3,XL1 ^ 7 0955 C 099 089 2360 /682 3 14 BM RTN1,EXP ^ 8 0962 V /65 W79 K 2360 /683 3 15 BH CHGEX BR IF PREV RESULT TO BE RETAINED IN WK ACC ^ 5 0970 B /88 U 2360 /684 3 16 A EXP,EXPB ^ 7 0975 A W79 W82 2360 /685 3 17 ZA SPOT,SPOT&X1 INITIALIZE WORK AREA ^ 7 0982 ? 250 2V0 2361 /686 3 18 ZA XL3&1,XL1&1 ^ 7 0989 ? 100 090 2361 /687 3 19 ASCOM MZ NSIGN,0&X2 ^ 7 0996 Y |87 0!0 2361 /688 3 20 A ACCHI&X1,0&X2 ^ 7 1003 A 2X9 0!0 2361 /689 3 21 MVZON MZ 0&X2,NSIGN ^ 7 1010 Y 0!0 |87 2361 /690 3 22 NUVAL ZA EXPB,EXP ^ 7 1017 ? W82 W79 2362 /691 3 23 * /692 3 24 * NORMALIZE /693 3 25 * /694 3 26 NMLZ1 MCW RCDMK,1&X2 ^ 7 1024 M W75 0!1 2362 /695 3 27 MZ ^ 1 1031 Y 2362 /696 3 28 MZ ^ 1 1032 Y 2362 /697 3 29 A ^ 1 1033 A 2362 /698 3 30 MN ^ 1 1034 D 2362 /699 3 31 SBR XL1 ^ 4 1035 H 089 2362 /700 3 32 S ACCHI&2&X3 ^ 4 1039 S 2H1 2363 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 295 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /701 3 33 NLOOP BCE STRZE,2&X1,| ^ 8 1043 B /42 0|2 | 2363 /702 3 34 SBR XL1 ^ 4 1051 H 089 2363 /703 3 35 BCE NLOOP, 1&X1, 0 ^ 8 1055 B |43 0|1 0 2363 /704 3 36 MCM 1&X1, ACCHI&1 ^ 7 1063 P 0|1 280 2363 /705 3 37 S XL3, XL2 ^ 7 1070 S 099 094 2363 /706 3 98 CW ^ 1 1077 ) 2363 /707 3 39 CW ^ 1 1078 ) 2364 /708 3 40 S ^ 1 1079 S 2364 /709 3 41 S XL1,EXP ^ 7 1080 S 089 W79 2364 /710 3 42 NSIGN ZA ACCHI&X3 MOVE PROPER SIGN TO WORK ACCUMULATOR ^ 4 1087 ? 2G9 2364 /711 3 43 SW ^ 1 1091 , 2364 /712 3 44 BCE CLRWK,EXP-2,0 ^ 8 1092 B /34 W77 0 2364 /713 3 45 BM STRZE,EXP BRANCH ON EXPONENT UNDERFLOW ^ 8 1100 V /42 W79 K 2364 /714 3 46 * /715 3 47 * EXPONENT OVERFLOW DUE TO NORMALIZATION /716 3 48 * /717 3 49 B ERMSG ^ 4 1108 B U71 2365 /718 3 50 DCW @NOF@ ^ 3 1114 2365 /719 3 51 * /720 3 52 * STORE NINES IN WORK ACCUMULATOR AND EXP ON EXPONENT OVFL /721 3 53 * /722 3 54 STR99 ZA &99,EXP ^ 7 1115 ? W89 W79 2365 /723 3 55 MN &99,ACCHI&X3 ^ 7 1122 D W89 2G9 2365 /724 3 56 MCW ^ 1 1129 M 2365 /725 3 57 MCW ACCHI-1&X3 ^ 4 1130 M 2G8 2365 /726 3 58 CLRWK CS ACCHI-1 ^ 4 1134 / 278 2365 /727 3 59 B CLRX ^ 4 1138 B 755 2366 /728 3 60 * /729 3 61 * STORE ZERO IN WORK ACCUMULATOR /730 3 62 * /731 3 63 STRZE S EXP ^ 4 1142 S W79 2366 /732 3 64 S ACCHI&X3 ^ 4 1146 S 2G9 2366 /733 3 65 B CLRWK ^ 4 1150 B /34 2366 /734 3 66 * /735 3 67 * DIVISION BY ZERO ATTEMPTED /736 3 68 * /737 3 69 DVERR B ERMSG ^ 4 1154 B U71 2366 /738 3 70 DCW @DZE@ ^ 3 1160 2366 /739 3 71 B STR99 ^ 4 1161 B /15 2366 /740 3 72 * /741 3 73 RTN1 BH NUVAL BRANCH TO STORE NEW VALUE IN WK ACC ^ 5 1165 B |17 U 2367 /742 3 74 S XL3&1,XL1&1 INITIALIZE INDEX REGISTERS ^ 7 1170 S 100 090 2367 /743 3 75 MZ ACCHI&X3,ACCHI&X1 INITIALIZE WORK ACCUMULATOR ^ 7 1177 Y 2G9 2X9 2367 /744 3 76 B ASCOM ^ 4 1184 B 996 2367 /745 3 77 * /746 3 78 CHGEX A EXPB,EXP ^ 7 1188 A W82 W79 2367 /747 3 79 B CLRWK ^ 4 1195 B /34 2367 /748 3 80 * /749 3 81 * SUBSCRIPTED VARIABLES /750 3 32 * 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 296 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /751 3 83 OPDSC SBR X2,5&X2 ^ 7 1199 H 094 0!5 2368 /752 3 84 STSUB B XXX ^ 4 1206 B 000 2368 /753 3 85 MN 0&X2 ^ 4 1210 D 0!0 2368 /754 3 86 MN ^ 1 1214 D 2368 /755 3 87 MN ^ 1 1215 D 2368 /756 3 88 MN ^ 1 1216 D 2368 /757 3 89 SAR ALGRT&6 ^ 4 1217 Q 765 2368 /758 3 90 BRWHR BCE SBBR1,XXX,$ ^ 8 1221 B 723 000 $ 2369 /759 3 91 B SBBR2 ^ 4 1229 B 815 2369 /760 3 92 * /761 3 93 * FLOATING DIVIDE /762 3 94 * /763 3 95 FDIV BE DVERR ^ 5 1233 B /54 S 2369 /764 3 96 MN ACCHI&X3, 1&X2 ^ 7 1238 D 2G9 0!1 2369 /765 3 97 MCW ^ 1 1245 M 2369 /766 3 98 MN ^ 1 1246 D 2369 /767 3 99 D 0&X1, SPOT&1 ^ 7 1247 % 0|0 251 2369 /768 4 00 ZS EXPB ^ 4 1254 ! W82 2370 /769 4 01 B NDMDV ^ 4 1258 B S83 2370 /770 4 02 * /771 4 03 * FLOATING MULTIPLY /772 4 04 * /773 4 05 FMPY M ACCHI&X3, SPOT&1&X3 ^ 7 1262 @ 2G9 2E1 2370 /774 4 06 SBR X2,3&X2 ^ 7 1269 H 094 0!3 2370 /775 4 07 S &2,EXP ^ 7 1276 S W90 W79 2370 /776 4 08 NDMDV A EXPB, EXP ^ 7 1283 A W82 W79 2370 /777 4 09 MZ ACCHI&X3, *&1 ^ 7 1290 Y 2G9 S97 2371 /778 4 10 ZA NSIGN ^ 4 1297 ? |87 2371 /779 4 11 B NMLZ1 ^ 4 1301 B |24 2371 /780 4 12 * /781 4 13 * EXIT ROUTINE /782 4 14 * /783 4 15 QFUNC BCE OUT1,4&X2,| BR IF CONTENTS OF WK ACC TO BE STORED ^ 8 1305 B T31 0!4 | 2371 /784 4 16 SBR ALGRT&6,1&X2 ^ 7 1313 H 765 0!1 2371 /785 4 17 C ACCHI&1,@0@ ^ 7 1320 C 280 W85 2371 /786 4 18 B XXX BRANCH TO FUNCTION SELECTION ROUTINE ^ 4 1327 B 000 2372 /787 4 19 OUT1 BCE OUT2,ACCHI&1,0 ^ 8 1331 B T69 280 0 2372 /788 4 20 BW OUT2,FIXSW ^ 8 1339 V T69 W87 1 2372 /789 4 21 BW FINST,4&X2 BRANCH IF FINAL STORAGE OF COMP ^ 8 1347 V T92 0!4 1 2372 /790 4 22 SBR X3,2&X3 ^ 7 1355 H 099 0?2 2372 /791 4 23 MVEXP MCM EXP-1,ACCHI-1&X3 ^ 7 1362 P W78 2G8 2373 /792 4 24 OUT2 LCA ACCHI&X3,XXX ^ 7 1369 L 2G9 000 2373 /793 4 25 BW 5&X2,4&X2 BR TO PROG MAINLINE IF END OF ARITH STR ^ 8 1376 V 0!5 0!4 1 2373 /794 4 26 SAR XL2 ^ 4 1384 Q 094 2373 /795 4 27 B ARITH ^ 4 1388 B 712 2373 /796 4 28 * /797 4 29 * ROUNDING FOR FINAL STORAGE /798 4 30 * /799 4 31 FINST A &5,ACCHI-1&X3 ^ 7 1392 A W91 2G8 2373 /800 4 82 BWZ RDOVF,ACCHI&1,S ^ 8 1399 V U18 280 S 2374 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 297 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /801 4 33 ZONMV MZ ACCHI&X3,ACCHI-2&X3 ^ 7 1407 Y 2G9 2G7 2374 /802 4 34 B MVEXP ^ 4 1414 B T62 2374 /803 4 35 RDOVF A &1,EXP ^ 7 1418 A W92 W79 2374 /804 4 36 BCE NORND,EXP-2,1 ^ 8 1425 B U48 W77 1 2374 /805 4 37 S ACCHI&X3 ^ 4 1433 S 2G9 2374 /806 4 38 LCA @1@,ACCHI&1 ^ 7 1437 L W93 280 2375 /807 4 39 B ZONMV ^ 4 1444 B U07 2375 /808 4 40 * /809 4 41 * NO ROUNDING IF EXPONENT OVERFLOW WOULD OCCUR /810 4 42 * /811 4 43 NORND MN &99,ACCHI&X3 ^ 7 1448 D W89 2G9 2375 /812 4 44 MCW ^ 1 1455 M 2375 /813 4 45 MCW ACCHI-1&X3 ^ 4 1456 M 2G8 2375 /814 4 46 S &1,EXP ^ 7 1460 S W92 W79 2375 /815 4 47 B ZONMV ^ 4 1467 B U07 2375 /816 4 48 * /817 4 49 * PRINT ERROR MESSAGE /818 4 50 * /819 4 51 ERMSG SBR STRX2&6 ^ 4 1471 H U92 2376 /820 4 52 CS TOP&1&X3 ^ 4 1475 / 2?2 2376 /821 4 53 SBR RINX2&6,0&X3 ^ 7 1479 H V25 0?0 2376 /822 4 54 STRX2 SBR X3,XXX ^ 7 1486 H 099 000 2376 /823 4 55 MCW 2&X3,TOP&11 ^ 7 1493 M 0?2 212 2376 /824 4 56 STMNM SBR TOP&16,XXX ^ 7 1500 H 217 000 2376 /825 4 57 W ^ 1 1507 2 2376 /826 4 58 SW TOP ^ 4 1508 , 201 2377 /827 4 59 SBR ERMXT&3,3&X3 ^ 7 1512 H V29 0?3 2377 /828 4 60 RINX2 SBR X3,XXX ^ 7 1519 H 099 000 2377 /829 4 61 ERMXT B XXX ^ 4 1526 B 000 2377 /830 4 62 * /831 4 63 * FIXED POINT ENTRY /832 4 64 * /833 4 65 XSIZE SBR X3,XXX STORE FIX-SIZE ^ 7 1530 H 099 000 2377 /834 4 66 SW FIXSW ^ 4 1537 , W87 2377 /835 4 67 * /836 4 68 FIXPT MCS 0&X1, SPOT ^ 7 1541 Z 0|0 250 2378 /837 4 69 BCE XDIV, CODE, / ^ 8 1548 B W23 924 / 2378 /838 4 70 BCE XMPY, CODE, * ^ 8 1556 B V98 924 * 2378 /839 4 71 * /840 4 72 * FIXED ADD / SUBTRACT /841 4 73 * /842 4 74 BWZ SUBTR, CODE, K Q. SUBTRACT ^ 8 1564 V V87 924 K 2378 /843 4 75 A 0&X1, ACCHI&X3 ^ 7 1572 A 0|0 2G9 2378 /844 4 76 ADDRT ZA ACCHI&X3 ^ 4 1579 ? 2G9 2379 /845 4 77 B CLRWK ^ 4 1583 B /34 2379 /846 4 78 * /847 4 79 SUBTR S 0&X1, ACCHI&X3 ^ 7 1587 S 0|0 2G9 2379 /848 4 80 B ADDRT ^ 4 1594 B V79 2379 /849 4 81 * /850 4 82 * FIXED MULTIPLY 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 5059C PAGE 298 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /851 4 83 * /852 4 84 XMPY LCA 0&X1, SPOT ^ 7 1598 L 0|0 250 2379 /853 4 85 M ACCHI&X3, SPOT&1&X3 ^ 7 1605 @ 2G9 2E1 2379 /854 4 86 MCW SPOT&1&X3, ACCHI&X3 ^ 7 1612 M 2E1 2G9 2380 /855 4 87 B CLRWK ^ 4 1619 B /34 2380 /856 4 88 * /857 4 89 * FIXED DIVIDE /858 4 90 * /859 4 91 XDIV BCE DVERR, SPOT, ^ 8 1623 B /54 250 2380 /860 4 92 MCW 0&X1,SPOT&X3 ^ 7 1631 M 0|0 2E0 2380 /861 4 93 MN ^ 1 1638 D 2380 /862 4 94 SBR MVQUT&3 ^ 4 1639 H W64 2380 /863 4 95 LCA ACCHI&X3 ^ 4 1643 L 2G9 2380 /864 4 96 ZA ACCHI&X3, SPOT&X3 ^ 7 1647 ? 2G9 2E0 2381 /865 4 97 D 0&X1, SPOT&1 ^ 7 1654 % 0|0 251 2381 /866 4 98 MVQUT MCW SPOT-1,ACCHI&X3 ^ 7 1661 M 249 2G9 2381 /867 4 99 B CLRWK ^ 4 1668 B /34 2381 /868 5 00 * /869 5 01 DCW 000 ^ 3 1674 2381 /870 5 02 RCDMK DCW @|@ ^ 1 1675 2381 /871 5 03 DCW 0 ^ 1 1676 2381 /872 5 04 EXP DCW 000 ^ 3 1679 2382 /873 5 05 DC @|@ ^ 1 1680 2382 /874 5 06 EXPB DCW 00 ^ 2 1682 2382 /875 5 07 DC 0 ^ 1 1683 2382 /876 5 08 CODE EQU SIGNF ^ 0924 /877 5 09 ZROSW EQU *&1 ^ 1684 /878 5 10 BASEZ EQU *&1 ^ 1684 /879 5 11 XPNUM DCW @8@ ^ 1 1684 2382 /880 5 12 LTORG * ^ 1685 DCW @0@ ^ 1 1685 LIT 2382 DCW @#@ ^ 1 1686 LIT 2382 FIXSW^ DCW #01 ^ 1 1687 AREA 2382 DCW &99 ^ 2 1689 LIT 2382 DCW &2 ^ 1 1690 LIT 2383 DCW &5 ^ 1 1691 LIT 2383 DCW &1 ^ 1 1692 LIT 2383 DCW @1@ ^ 1 1693 LIT 2383 /881 5 13 DS 1 ^ 1694 /882 5 14 DCW @0@ ^ 1 1695 2384 /883 5 15 DC @}@ SYSTEM GROUP MARK ^ 1 1696 GMARK 2384 /884 5 16 XFR 0 ^ B 000 2385 /885 75 56 110 DCW @;;;;;@ ALL 11-6-8 LAST CARD ^ 5 0110 2388 1 1401 FORTRAN CONDENSED DECK PHASE THREE 50603 PAGE 299 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /886 75 57 JOB 1401 FORTRAN CONDENSED DECK PHASE THREE ^ /887 75 58 FBEGN CONDECK3,X1,R,X2,R,X3,R,1 ^ MACRO /888 SFX 1 1 GEN /889 110 DCW @CONDECK3@ 1 8 0110 GEN 2389 /890 X1 EQU 089 1 0089 GEN /891 089 DCW 000 1 3 0089 GEN 2390 /892 091 DC 00 1 2 0091 GEN 2390 /893 X2 EQU 094 1 0094 GEN /894 094 DCW 000 1 3 0094 GEN 2390 /895 096 DC 00 1 2 0096 GEN 2390 /896 X3 EQU 099 1 0099 GEN /897 099 DCW 000 1 3 0099 GEN 2390 /898 100 DC 0 1 1 0100 GEN 2390 /899 75 59 LAST EQU CONLST 1 0194 /900 75 60 ORG XBEGIN 1 0838 /901 75 61 BEGIN MCW GOGOGO,X1 1 7 0838 M 183 089 2391 /902 75 62 BCE *&5,PARAMA&7,P 1 8 0845 B 857 693 P 2391 /903 75 63 B GARY 1 4 0853 B U74 2391 /904 75 64 BW GARY,FAILSW 1 8 0857 V U74 184 1 2391 /905 75 65 REST SBR WPB&3,RESET 1 7 0865 H /55 893 2391 /906 75 66 MCW CON40-11,BOX1 1 7 0872 M V10 V38 2392 /907 75 67 MCW @146@,X3 1 7 0879 M V25 099 2392 /908 75 68 MCW @L@,140 1 7 0886 M V26 140 2392 /909 75 69 RESET CS 139 1 4 0893 / 139 2392 /910 75 70 FORMS 1 MACRO /911 BCV *&5 1 5 0897 B 906 @ GEN 2392 /912 B *&3 1 4 0902 B 908 GEN 2392 /913 CC 1 1 2 0906 F 1 GEN 2392 /914 75 71 MCW CON40,171 1 7 0908 M V21 171 2393 /915 75 72 SW 140 1 4 0915 , 140 2393 /916 75 73 CS 332 1 4 0919 / 332 2393 /917 75 74 CS 1 1 0923 / 2393 /918 75 75 SW 101 1 4 0924 , 101 2393 /919 75 76 MCW @001@,X2 1 7 0928 M V29 094 2393 /920 75 77 MCW @1@,FLIP#1 1 7 0935 M V30 V31 2393 /921 75 78 MCW BOX1#7,153 1 7 0942 M V38 153 2394 /922 75 79 BW SKIP2,SKPSW 1 8 0949 V S91 V22 1 2394 /923 75 80 MOVE MN 0&X1,100&X2 1 7 0957 D 0|0 1!0 2394 /924 75 81 MZ 0&X1,100&X2 1 7 0964 Y 0|0 1!0 2394 /925 75 82 CPAR C LAST,X1 1 7 0971 C 194 089 2394 /926 75 83 BE TERM 1 5 0978 B S04 S 2395 /927 75 84 SBR X1,1&X1 1 7 0983 H 089 0|1 2395 /928 75 85 SBR X2,1&X2 1 7 0990 H 094 0!1 2395 /929 75 86 BCE SKIP,0&X1,] 11-5-8 1 8 0997 B S83 0|0 ] 2395 /930 75 87 BW CDFUL,0&X1 1 8 1005 V S15 0|0 1 2395 /931 75 88 TBKFF C @040@,X2 1 7 1013 C V41 094 2396 /932 75 89 BL MOVE 1 5 1020 B 957 T 2396 /933 75 90 C @160@,X3 1 7 1025 C V44 099 2396 /934 75 91 BL LOZNG 1 5 1032 B /75 T 2396 /935 75 92 MCW @040@,167 1 7 1037 M V41 167 2396 1 1401 FORTRAN CONDENSED DECK PHASE THREE 50603 PAGE 300 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /936 75 93 BH *&8 1 5 1044 B |56 U 2396 /937 75 94 MCW @040@, 164 1 7 1049 M V41 164 2397 /938 75 95 CW 140 1 4 1056 ) 140 2397 /939 75 96 SW SW 000 1 4 1060 , 000 2397 /940 75 97 SBR X2 1 4 1064 H 094 2397 /941 75 98 A -990,X2&1 1 7 1068 A V47 095 2397 /942 75 99 MCW 239,139 1 7 1075 M 239 139 2397 /943 76 00 SBR SBR X1,000 1 7 1082 H 089 000 2398 /944 76 01 COMMA MCW CON40-11,BOX1 1 7 1089 M V10 V38 2398 /945 76 02 MCW @146@,X3 1 7 1096 M V25 099 2398 /946 76 03 WP A @1@,CDNO 1 7 1103 A V30 175 2398 /947 76 04 MN 0&X2 1 4 1110 D 0!0 2398 /948 76 05 SBR 143 1 4 1114 H 143 2398 /949 76 06 C 143,@000@ 1 7 1118 C 143 V50 2399 /950 76 07 BE END1 V3M4 1 5 1125 B T48 S 2399 /951 76 08 MN 0&X1 1 4 1130 D 0|0 2399 /952 76 09 SBR 146 1 4 1134 H 146 2399 /953 76 10 LCA 180,280 1 7 1138 L 180 280 2399 /954 76 11 LCA 1 1 1145 L 2399 /955 76 12 LCA 1 1 1146 L 2399 /956 76 13 BSS SWLWP,B 1 5 1147 B /56 B 2400 /957 76 14 WPB P RESET 1 4 1152 4 893 2400 /958 76 15 SWLWP SW LWPB&1 1 4 1156 , /72 2400 /959 76 16 MCW WPB&3,LWPB&3 1 7 1160 M /55 /74 2400 /960 76 17 CW LWPB&1 1 4 1167 ) /72 2400 /961 76 18 LWPB WP RESET 1 4 1171 6 893 2400 /962 76 19 LOZNG MCW @)@,BOX1-6 1 7 1175 M V51 V32 2400 /963 76 20 MCW X1,BOX1 1 7 1182 M 089 V38 2401 /964 76 21 MCW X1 1 4 1189 M 089 2401 /965 76 22 MCW @153@,X3 1 7 1193 M V54 099 2401 /966 76 23 B WP 1 4 1200 B /03 2401 /967 76 24 TERM SBR WPB&3,END1 1 7 1204 H /55 T48 2401 /968 76 25 B WP 1 4 1211 B /03 2401 /969 76 26 CDFUL MCW X1,SBR&6 1 7 1215 M 089 |88 2402 /970 76 27 SBR SW&3,100&X2 1 7 1222 H |63 1!0 2402 /971 76 28 C @040@,X2 1 7 1229 C V41 094 2402 /972 76 29 BE COMMA 1 5 1236 B |89 S 2402 /973 76 30 C @167@,X3 1 7 1241 C V57 099 2402 /974 76 31 BE COMMA 1 5 1248 B |89 S 2402 /975 76 32 SBR X3,3&X3 1 7 1253 H 099 0?3 2403 /976 76 33 ZS FLIP 1 4 1260 ! V31 2403 /977 76 34 BM PLUS1,FLIP 1 8 1264 V T37 V31 K 2403 /978 76 25 MCW MCW X1,0&X3 1 7 1272 M 089 0?0 2403 /979 76 36 B MOVE 1 4 1279 B 957 2403 /980 76 37 SKIP SW SKPSW 1 4 1283 , V22 2403 /981 76 38 B COMMA 1 4 1287 B |89 2403 /982 76 39 SKIP2 CW SKPSW 1 4 1291 ) V22 2404 /983 76 40 MCM 0&X1 1 4 1295 P 0|0 2404 /984 76 41 SBR X1 1 4 1299 H 089 2404 /985 76 42 BW MOVE,0&X1 1 8 1303 V 957 0|0 1 2404 1 1401 FORTRAN CONDENSED DECK PHASE THREE 50603 PAGE 301 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD /986 76 43 MCW X1,153 1 7 1311 M 089 153 2404 /987 76 44 MCW X1 1 4 1318 M 089 2404 /988 76 45 MCW @)@ 1 4 1322 M V51 2404 /989 76 46 MCW @153@,X3 1 7 1326 M V54 099 2405 /990 76 47 B MOVE 1 4 1333 B 957 2405 /991 76 48 PLUS1 SBR X3,1&X3 1 7 1337 H 099 0?1 2405 /992 76 49 B MCW 1 4 1344 B S72 2405 /993 76 50 END1 SBR X1,1697 FORMAT 1 7 1348 H 089 W97 2405 /994 76 51 BCE END2,PARAMA&10,X 1 8 1355 B U26 696 X 2405 /995 76 52 BCE LIO,PARAMA&10,L 1 8 1363 B U04 696 L 2406 /996 76 53 BCE AFORM,PARAMA&10,A 1 8 1371 B U15 696 A 2406 /997 76 54 NEXT1 SBR CPAR&3,HIFMT 1 7 1379 H 974 V03 2406 /998 76 55 SBR WP&25,END2 V3M4 1 7 1386 H /28 U26 2406 /999 76 56 SBR TERM&6,END2 1 7 1393 H S10 U26 2406 S 76 57 B REST 1 4 1400 B 865 2407 S 1 76 58 LIO SBR HIFMT,2016 1 7 1404 H V03 !16 2407 S 2 76 59 B NEXT1 1 4 1411 B T79 2407 S 3 76 60 AFORM SBR HIFMT,4617 1 7 1415 H V03 61X 2407 S 4 76 61 B NEXT1 1 4 1422 B T79 2407 S 5 76 62 END2 CS 171 1 4 1426 / 171 2407 S 6 76 63 MCW @080@,146 1 7 1430 M V60 146 2407 S 7 76 64 MCW GOGOGO 1 4 1437 M 183 2408 S 8 76 65 LCA @/@ 1 4 1441 L V61 2408 S 9 76 66 A @1@,CDNO 1 7 1445 A V30 175 2408 S 10 76 67 LCA 180,280 1 7 1452 L 180 280 2408 S 11 76 68 LCA 1 1 1459 L 2408 S 12 76 69 CS 1 1 1460 / 2408 S 13 76 70 BSS WPCS,B 1 5 1461 B U97 B 2408 S 14 76 71 P 1 1 1466 4 2409 S 15 76 72 CS180 CS 180 1 4 1467 / 180 2409 S 16 76 73 P 1 1 1471 4 2409 S 17 76 74 SS 8 1 2 1472 K 8 2409 S 18 76 75 GARY FENDX C,,,,,,SYS2,GAUX ONE 1 MACRO S 19 GARY BSS 333,C 1 5 1474 B 333 C GEN 2409 S 20 SBR TCLEAR,SYS2 1 7 1479 H 710 V73 GEN 2409 S 21 LCA @GAUX ONE@,110 1 7 1486 L V69 110 GEN 2409 S 22 B MONTER 1 4 1493 B 700 GEN 2410 S 23 76 76 WPCS WP CS180 1 4 1497 6 U67 2410 S 24 76 77 HIFMT DSA 4280 CHANGE IF ARRAYS DONOT ORIGIN AT 4280 1 3 1503 28| 2410 S 25 76 78 CON40 DCW @,040040,0400401040@ 1 18 1521 2410 S 26 76 79 SKPSW DC #1 1 1 1522 2410 S 27 76 80 LTORG * 1 1523 DCW @146@ 1 3 1525 LIT 2410 DCW @L@ 1 1 1526 LIT 2410 DCW @001@ 1 3 1529 LIT 2410 DCW @1@ 1 1 1530 LIT 2411 FLIP 1 DCW #01 1 1 1531 AREA 2411 BOX1 1 DCW #07 1 7 1538 AREA 2411 DCW @040@ 1 3 1541 LIT 2411 DCW @160@ 1 3 1544 LIT 2411 1 1401 FORTRAN CONDENSED DECK PHASE THREE 50603 PAGE 302 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW -990 1 3 1547 LIT 2411 DCW @000@ 1 3 1550 LIT 2411 DCW @)@ 1 1 1551 LIT 2412 DCW @153@ 1 3 1554 LIT 2412 DCW @167@ 1 3 1557 LIT 2412 DCW @080@ 1 3 1560 LIT 2412 DCW @/@ 1 1 1561 LIT 2412 DCW @GAUX ONE@ 1 8 1569 LIT 2412 S 28 76 81 DCW @I99@ 1 3 1572 2412 S 29 76 82 SYS2 DCW @}@ SYSTEM GROUP MARK 1 1 1573 GMARK 2413 S 30 76 83 CDNO EQU 175 1 0175 S 31 76 84 XFR BEGIN 1 B 838 2414 1 1401 FORTRAN GEAUX PHASE ONE 5061A PAGE 303 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S 32 76 85 JOB 1401 FORTRAN GEAUX PHASE ONE 1 S 33 76 86 FBEGN GEAUX 1,X1,R,,,,,6 1 MACRO S 34 SFX 6 6 GEN S 35 110 DCW @GEAUX 1@ 6 7 0110 GEN 2417 S 36 X1 EQU 089 6 0089 GEN S 37 089 DCW 000 6 3 0089 GEN 2418 S 38 091 DC 00 6 2 0091 GEN 2418 S 39 76 87 ORG XBEGIN 6 0838 S 40 76 88 START LCA BLNK4#4,84 INITIALIZE SENSE 6 7 0838 L |78 084 2419 S 41 76 89 SW 84 LIGHTS 6 4 0845 , 084 2419 S 42 76 90 SW 6 1 0849 , 2419 S 43 76 91 SW 6 1 0850 , 2419 S 44 76 92 MESSG @END OF COMPILATION@,18,1 6 MACRO S 45 CC 1 6 2 0851 F 1 GEN 2419 S 46 CS 332 6 4 0853 / 332 GEN 2419 S 47 CS 6 1 0857 / GEN 2419 S 48 MCW @END OF COMPILATION@,18&200 6 7 0858 M |96 218 GEN 2420 S 49 W 6 1 0865 2 GEN 2420 S 50 76 93 MCW GOGOGO,X1 6 7 0866 M 183 089 2420 S 51 76 94 BW BAD,FAILSW 6 8 0873 V |56 184 1 2420 S 52 76 95 MESSG @PRESS START TO GO@,17,J 6 MACRO S 53 CC J 6 2 0881 F J GEN 2420 S 54 CS 332 6 4 0883 / 332 GEN 2420 S 55 CS 6 1 0887 / GEN 2420 S 56 MCW @PRESS START TO GO@,17&200 6 7 0888 M /13 217 GEN 2421 S 57 W 6 1 0895 2 GEN 2421 S 58 76 96 OUT SW SYS2 6 4 0896 , /44 2421 S 59 76 97 LCA SYS2,693 6 7 0900 L /44 693 2421 S 60 76 98 BCE CDSYS,MONTOR,1 6 8 0907 B 963 769 1 2421 S 61 76 99 BW SKPXL,XLINKW 6 8 0915 V 988 185 1 2421 S 62 77 00 SBR TPERX&15,RTPXL 6 7 0923 H 962 930 2422 S 63 77 01 RTPXL RTW 1,333 6 8 0930 L %U1 333 R 2422 S 64 77 02 BER TPERX 6 5 0938 B 947 L 2422 S 65 77 03 B OUT33 6 4 0943 B |20 2422 S 66 77 04 TPERX BSP 1 6 5 0947 U %U1 B 2422 S 67 77 05 H 4444,4444 6 7 0952 . 44U 44U 2422 S 68 77 06 B SKPXL 6 4 0959 B 988 2423 S 69 77 07 CDSYS BW SKPXC,XLINKW 6 8 0963 V 975 185 1 2423 S 70 77 08 R 040 6 4 0971 1 040 2423 S 71 77 09 SKPXC R 6 1 0975 1 2423 S 72 77 10 BCE OUT2,68,B IF B, BRANCH TO READ ARITH 6 8 0976 B |01 068 B 2423 S 73 77 11 B SKPXC 6 4 0984 B 975 2423 S 74 77 12 SKPXL RTW 1,SYS2 6 8 0988 L %U1 /44 R 2423 S 75 77 13 BER TPERX 6 5 0996 B 947 L 2424 S 76 77 14 OUT2 BSS 333,C 6 5 1001 B 333 C 2424 S 77 77 15 LCA @N@,381 6 7 1006 L /14 381 2424 S 78 77 16 LCA @.@,564 6 7 1013 L /15 564 2424 S 79 77 17 OUT33 CW 680 RETURN FROM LOADING XLINK 6 4 1020 ) 680 2424 S 80 77 18 SBR TCLEAR,SYS2 6 7 1024 H 710 /44 2424 S 81 77 19 SBR INITAP&6,201 6 7 1031 H 786 201 2425 1 1401 FORTRAN GEAUX PHASE ONE 5061A PAGE 304 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S 82 77 20 SBR INITXT&3,201 6 7 1038 H 796 201 2425 S 83 77 21 SBR BCLEAR,XBEGIN 6 7 1045 H 833 838 2425 S 84 77 22 B MONTER 6 4 1052 B 700 2425 S 85 77 23 BAD MESSG @CORRECT ERRORS AND RECOMPILE@,28,J 6 MACRO S 86 BAD CC J 6 2 1056 F J GEN 2425 S 87 CS 332 6 4 1058 / 332 GEN 2425 S 88 CS 6 1 1062 / GEN 2425 S 89 MCW @CORRECT ERRORS AND RECOMPILE@,28&200 6 7 1063 M /43 228 GEN 2426 S 90 W 6 1 1070 2 GEN 2426 S 91 77 24 B OUT 6 4 1071 B 896 2426 S 92 77 25 LTORG * 6 1075 BLNK46 DCW #04 6 4 1078 AREA 2426 DCW @END OF COMPILATION@ 6 18 1096 LIT 2426 DCW @PRESS START TO GO@ 6 17 1113 LIT 2427 DCW @N@ 6 1 1114 LIT 2427 DCW @.@ 6 1 1115 LIT 2427 DCW @CORRECT ERRORS AND RECOMPILE@ 6 28 1143 LIT 2428 S 93 77 26 SYS2 DCW @}@ SYSTEM GROUP MARK 6 1 1144 GMARK 2428 S 94 77 27 XFR START 6 B 838 2429 1 1401 FORTRAN FIXED XLINK ROUTINE 5061B PAGE 305 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S 95 77 28 JOB 1401 FORTRAN FIXED XLINK ROUTINE 6 S 96 77 29 SFX # AS IN SNAPSHOTS # S 97 77 30 ORG 333 # 0333 S 98 77 31 H 333 # 4 0333 . 333 2432 S 99 77 32 START MCW 86,XL2 X2 FOLLOWS B700 # 7 0337 M 086 094 2432 S100 77 33 CS 80 # 4 0344 / 080 2432 S101 77 34 BCE ARRAY,0&X2,$ # 8 0348 B 585 0!0 $ 2432 S102 77 35 CLEAR CS 000 # 4 0356 / 000 2432 S103 77 36 SBR ADR3 # 4 0360 H 359 2432 S104 77 37 C ADR3,@699@ # 7 0364 C 359 645 2432 S105 77 38 BU CLEAR # 5 0371 B 356 / 2433 S106 77 39 SW ACCHI-5&X3 # 4 0376 , 2G4 2433 S107 77 40 MZ ACCHI&X3,FIELD # 7 0380 Y 2G9 642 2433 S108 77 41 C FIELD,ACCHI&X3 # 7 0387 C 642 2G9 2433 S109 77 42 BE CARDS # 5 0394 B 603 S 2433 S110 77 43 BM GETM,ACCHI&X3 # 8 0399 V 620 2G9 K 2433 S111 77 44 MZ ZERO,ACCHI&X3 # 7 0407 Y 637 2G9 2434 S112 77 45 C 699,ACCHI&X3 # 7 0414 C 699 2G9 2434 S113 77 46 BE GETM # 5 0421 B 620 S 2434 S114 77 47 SW 22 # 4 0426 , 022 2434 S115 77 48 MCW GM,22 # 7 0430 M 680 022 2434 S116 77 49 SERCH RT 1,1 # 8 0437 M %U1 001 R 2434 S117 77 50 BEF OUT # 5 0445 B 478 K 2435 S118 77 51 C 10,@LIB@ # 7 0450 C 010 648 2435 S119 77 52 BU SERCH # 5 0457 B 437 / 2435 S120 77 53 C 17,ACCHI&X3 # 7 0462 C 017 2G9 2435 S121 77 54 BE T1 # 5 0469 B 498 S 2435 S122 77 55 B SERCH # 4 0474 B 437 2435 S123 77 56 OUT NOP CARDS # 4 0478 N 603 2435 S124 77 57 MCW TPERM,OUT V3M4 # 7 0482 M 581 478 2436 S125 77 58 RWD 1 # 5 0489 U %U1 R 2436 S126 77 59 B SERCH # 4 0494 B 437 2436 S127 77 60 T1 LCA ZEROS,101 # 7 0498 L 641 101 2436 S128 77 61 LCA ZEROS # 4 0505 L 641 2436 S129 77 62 LCA ZEROS # 4 0509 L 641 2436 S130 77 63 RTW 1,333 # 8 0513 L %U1 333 R 2436 S131 77 64 BER ERR # 5 0521 B 557 L 2437 S132 77 65 MCW ZERO,CTRR # 7 0526 M 637 641 2437 S133 77 66 SBR TPERM-1,T2 # 7 0533 H 580 540 2437 S134 77 67 T2 RTW 1,700 # 8 0540 L %U1 700 R 2437 S135 77 68 BER ERR # 5 0548 B 557 L 2437 S136 77 69 TBOOT B 000 FROM LIBED # 4 0553 B 000 2437 S137 77 70 ERR A ONE,CTRR # 7 0557 A 679 641 2438 S138 77 71 BCE TPERM,CTRR,9 # 8 0564 B 581 641 9 2438 S139 77 72 BSP 1 # 5 0572 U %U1 B 2438 S140 77 73 B T1 # 4 0577 B 498 2438 S141 77 74 TPERM H TPERM # 4 0581 . 581 2438 S142 77 75 ARRAY MCW 3&X2,ADR3 # 7 0585 M 0!3 359 2438 S143 77 76 MZ ZERO,ADR3-1 # 7 0592 Y 637 358 2439 S144 77 77 B CLEAR # 4 0599 B 356 2439 1 1401 FORTRAN FIXED XLINK ROUTINE 5061B PAGE 306 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S145 77 78 CARDS SW 1 # 4 0603 , 001 2439 S146 77 79 R # 1 0607 1 2439 S147 77 80 BCE 1,1,, # 8 0608 B 001 001 , 2439 S148 77 81 B CARDS # 4 0616 B 603 2439 S149 77 82 GETM RWD 1 # 5 0620 U %U1 R 2439 S150 77 83 RTW 1,1 # 8 0625 L %U1 001 R 2440 S151 77 84 B 1 EXECUTE MONITOR PROGRAM # 4 0633 B 001 2440 S152 77 85 ADR3 EQU CLEAR&3 # 0359 S153 77 86 FIELD DCW @000000@ # 6 0642 2440 S154 77 87 ZEROS EQU FIELD-1 # 0641 S155 77 88 ZERO EQU ZEROS-4 # 0637 S156 77 89 CTRR EQU ZEROS # 0641 S157 77 90 ACCHI EQU 279 # 0279 S158 77 91 LTORG * # 0643 DCW @699@ # 3 0645 LIT 2440 DCW @LIB@ # 3 0648 LIT 2440 S159 77 92 ORG 679 # 0679 S160 77 93 ONE DCW @1@ # 1 0679 2441 S161 77 94 GM DCW @}@ GROUP MARK IN 680 # 1 0680 GMARK 2441 S162 77 95 XFR OUT336 # B |20 2442 1 1401 FORTRAN GEAUX PHASE TWO 50623 PAGE 307 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S163 77 96 JOB 1401 FORTRAN GEAUX PHASE TWO # S164 77 97 SFX 6 6 S165 77 98 110 DCW @GEAUX TWO@ 6 9 0110 2445 S166 77 99 ORG 201 6 0201 S167 78 00 YIPEE BCE MONTOR,MONTOR,1 6 8 0201 B 769 769 1 2446 S168 78 01 RTP RTW 1,MONTER 6 8 0209 L %U1 700 R 2446 S169 78 02 BER TPERR 6 5 0217 B 284 L 2446 S170 78 03 RWD 1 6 5 0222 U %U1 R 2446 S171 78 04 INIT MCW SUBSCR,ARSUB 6 7 0227 M 191 S09 2446 S172 78 05 CW 1696 6 4 0234 ) W96 2446 S173 78 06 MCW GOTOFN,FUNC 6 7 0238 M 188 T30 2447 S174 78 07 MCW PARAMA&4,FIXSZ 6 7 0245 M 690 V36 2447 S175 78 08 MCW PARAMA&6,FLTSZ 6 7 0252 M 692 837 2447 S176 78 09 CC 1 6 2 0259 F 1 2447 S177 78 10 BW HALT,FAILSW 6 8 0261 V 280 184 1 2447 S178 78 11 MCW GOGOGO,X1 6 7 0269 M 183 089 2447 S179 78 12 H 0&X1 6 4 0276 . 0|0 2448 S180 78 13 HALT H *-3 6 4 0280 . 280 2448 S181 78 14 TPERR BSP 1 6 5 0284 U %U1 B 2448 S182 78 15 H 3333,3333 6 7 0289 . C33 C33 2448 S183 78 16 B RTP 6 4 0296 B 209 2448 S184 78 17 DCW 0 6 1 0300 2448 S185 78 18 FUNC EQU 1330 CHANGE ON REASM OF OB ARITH OUT1-1 6 1330 S186 78 19 FIXSZ EQU 1536 CHANGE ON REASM OF OB ARITH XSIZE&6 6 1536 S187 78 20 FLTSZ EQU 837 CHANGE ON REASM OF OB ARITH FSIZE&6 6 0837 S188 78 21 ARSUB EQU 1209 CHANGE ON REASM OF OB ARITH STSUB&3 6 1209 S189 78 22 LTORG * 6 0301 S190 78 23 DCW @}@ SYSTEM GROUP MARK 6 1 0301 GMARK 2448 S191 78 24 XFR YIPEE 6 B 201 2449 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 308 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S192 1 01 013 JOB 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 6 S193 1 03 * S194 1 04 SFX / / S195 1 05 * S196 1 06 XINIT XL1,XL2,XL3,,,,XXXX / MACRO S197 XXX EQU 0 / 0000 GEN S198 XL1 EQU 089 / 0089 GEN S199 089 DCW 000 / 3 0089 GEN 2452 S200 091 DC 00 / 2 0091 GEN 2452 S201 XL2 EQU 094 / 0094 GEN S202 094 DCW 000 / 3 0094 GEN 2452 S203 096 DC 00 / 2 0096 GEN 2452 S204 XL3 EQU 099 / 0099 GEN S205 099 DCW 000 / 3 0099 GEN 2452 S206 100 DC 0 / 1 0100 GEN 2452 S207 1 07 * S208 1 08 XNMBR / MACRO S209 X1 EQU 089 / 0089 GEN S210 X2 EQU 094 / 0094 GEN S211 X3 EQU 099 / 0099 GEN S212 1 09 * S213 1 10 WKZON EQU 200 / 0200 S214 1 11 TOP EQU WKZON&1 / 0201 S215 1 12 SPOT EQU WKZON&50 / 0250 S216 1 13 ACCHI EQU WKZON&79 / 0279 S217 1 14 * S218 1 15 ORG 700 / 0700 S219 1 16 * S220 1 17 * ARITHMETIC ROUTINE MONITOR S221 1 18 * S222 1 19 ARITF SBR X2 / 4 0700 H 094 2453 S223 1 20 SBR 086 STORE FIRST LOCATION OF ARITH STRING / 4 0704 H 086 2453 S224 1 21 SBR STMNM&6 / 4 0708 H V06 2453 S225 1 22 ARITH MCW 2&X2, X1 / 7 0712 M 0!2 089 2453 S226 1 23 SAR ALGRT&6 / 4 0719 Q 765 2453 S227 1 24 SBBR1 SBR BRWHR&6 / 4 0723 H S27 2453 S228 1 25 BCE STSUB,0&X2,$ CHECK FOR SUBSCRIPTED STORE LOCATION / 8 0727 B S06 0!0 $ 2453 S229 1 26 SBR OUT2&6,0&X1 / 7 0735 H T75 0|0 2454 S230 1 27 CS WKZON&103 CLEAR WORK AREA / 4 0742 / 303 2454 S231 1 28 CS / 1 0746 / 2454 S232 1 29 CS / 1 0747 / 2454 S233 1 30 LCA @0@, ACCHI&1 / 7 0748 L W85 280 2454 S234 1 31 CLRX S X1&2 / 4 0755 S 091 2454 S235 1 32 ALGRT SBR XL2, XXX / 7 0759 H 094 000 2454 S236 1 33 C 4&X2, @#@ / 7 0766 C 0!4 W86 2455 S237 1 34 MCW 4&X2, SIGNF / 7 0773 M 0!4 924 2455 S238 1 35 SW TOP / 4 0780 , 201 2455 S239 1 36 EXIT BL QFUNC / 5 0784 B T05 T 2455 S240 1 37 SBR NGBMP&6,4&X2 / 7 0789 H 874 0!4 2455 S241 1 38 BCE OPDSC,5&X2,$ CHECK FOR SUBSCRIPTED OPERAND / 8 0796 B /99 0!5 $ 2455 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 309 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S242 1 39 MCW 7&X2, XL1 / 7 0804 M 0!7 089 2456 S243 1 40 SAR ALGRT&6 / 4 0811 Q 765 2456 S244 1 41 SBBR2 BWZ XSIZE,X1-1,K BRANCH IF FIXPT COMPUTATION / 8 0815 V V30 088 K 2456 S245 1 42 BWZ XSIZE,X1-1,S / 8 0823 V V30 088 S 2456 S246 1 43 * S247 1 44 * FLOAT ARITHMETIC S248 1 45 * S249 1 46 FSIZE SBR X3,XXX STORE FLOAT SIZE / 7 0831 H 099 000 2456 S250 1 47 CW FIXSW#1 / 4 0838 ) W87 2456 S251 1 48 MCW 0&X1,EXPB STORE EXPONENT / 7 0842 M 0|0 W82 2457 S252 1 49 SAR XL1 / 4 0849 Q 089 2457 S253 1 50 MCW 0&X1,SPOT INITIALIZE WORK AREA / 7 0853 M 0|0 250 2457 S254 1 51 SBR XL2 / 4 0860 H 094 2457 S255 1 52 LCA @0@ / 4 0864 L W85 2457 S256 1 53 NGBMP BW *&8,0 / 8 0868 V 883 000 1 2457 S257 1 54 MZ SPOT, NSIGN / 7 0876 Y 250 |87 2458 S258 1 55 S @0@,SPOT&2&X3 / 7 0883 S W85 2E2 2458 S259 1 56 C 1&X2, @0@ / 7 0890 C 0!1 W85 2458 S260 1 57 A XL3, XL2 / 7 0897 A 099 094 2458 S261 1 58 BCE FDIV,CODE,/ BRANCH FOR DIVISION / 8 0904 B S33 924 / 2458 S262 1 59 BCE FMPY,CODE,* BRANCH FOR MULTIPLICATION - / 8 0912 B S62 924 * 2459 S263 1 60 * S264 1 61 * FLOATING ADD / SUBTRACT S265 1 62 * S266 1 63 S SIGNF / 4 0920 S 924 2459 S267 1 64 SIGNF ZA NSIGN / 4 0924 ? |87 2459 S268 1 65 BCE NUVAL,ACCHI&1,0 BR, IF 1ST OPERAND OF COMPUTATION / 8 0928 B |17 280 0 2459 S269 1 66 BE CLRWK / 5 0936 B /34 S 2459 S270 1 67 S EXPB,EXP / 7 0941 S W82 W79 2459 S271 1 68 ZA EXP&1,XL1&1 / 7 0948 ? W80 090 2460 S272 1 69 C XL3,XL1 / 7 0955 C 099 089 2460 S273 1 70 BM RTN1,EXP / 8 0962 V /65 W79 K 2460 S274 1 71 BH CHGEX BR IF PREV RESULT TO BE RETAINED IN WK ACC / 5 0970 B /88 U 2460 S275 1 72 A EXP,EXPB / 7 0975 A W79 W82 2460 S276 1 73 ZA SPOT,SPOT&X1 INITIALIZE WORK AREA / 7 0982 ? 250 2V0 2461 S277 1 74 ZA XL3&1,XL1&1 / 7 0989 ? 100 090 2461 S278 1 75 ASCOM MZ NSIGN,0&X2 / 7 0996 Y |87 0!0 2461 S279 1 76 A ACCHI&X1,0&X2 / 7 1003 A 2X9 0!0 2461 S280 1 77 MVZON MZ 0&X2,NSIGN / 7 1010 Y 0!0 |87 2461 S281 1 78 NUVAL ZA EXPB,EXP / 7 1017 ? W82 W79 2462 S282 1 79 * S283 1 80 * NORMALIZE S284 1 81 * S285 1 82 NMLZ1 MCW RCDMK,1&X2 / 7 1024 M W75 0!1 2462 S286 1 83 MZ / 1 1031 Y 2462 S287 1 84 MZ / 1 1032 Y 2462 S288 1 85 A / 1 1033 A 2462 S289 1 86 MN / 1 1034 D 2462 S290 1 87 SBR XL1 / 4 1035 H 089 2462 S291 1 88 S ACCHI&2&X3 / 4 1039 S 2H1 2463 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 310 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S292 1 89 NLOOP BCE STRZE,2&X1,| / 8 1043 B /42 0|2 | 2463 S293 1 90 SBR XL1 / 4 1051 H 089 2463 S294 1 91 BCE NLOOP, 1&X1, 0 / 8 1055 B |43 0|1 0 2463 S295 1 92 MCM 1&X1, ACCHI&1 / 7 1063 P 0|1 280 2463 S296 1 93 S XL3, XL2 / 7 1070 S 099 094 2463 S297 1 94 CW / 1 1077 ) 2463 S298 1 95 CW / 1 1078 ) 2464 S299 1 96 S / 1 1079 S 2464 S300 1 97 S XL1,EXP / 7 1080 S 089 W79 2464 S301 1 98 NSIGN ZA ACCHI&X3 MOVE PROPER SIGN TO WORK ACCUMULATOR / 4 1087 ? 2G9 2464 S302 1 99 SW / 1 1091 , 2464 S303 2 00 BCE CLRWK,EXP-2,0 / 8 1092 B /34 W77 0 2464 S304 2 01 BM STRZE,EXP BRANCH ON EXPONENT UNDERFLOW / 8 1100 V /42 W79 K 2464 S305 2 02 * S306 2 03 * EXPONENT OVERFLOW DUE TO NORMALIZATION S307 2 04 * S308 2 05 B ERMSG / 4 1108 B U71 2465 S309 2 06 DCW @NOF@ / 3 1114 2465 S310 2 07 * S311 2 08 * STORE NINES IN WORK ACCUMULATOR AND EXP ON EXPONENT OVFL S312 2 09 * S313 2 10 STR99 ZA &99,EXP / 7 1115 ? W89 W79 2465 S314 2 11 MN &99,ACCHI&X3 / 7 1122 D W89 2G9 2465 S315 2 12 MCW / 1 1129 M 2465 S316 2 13 MCW ACCHI-1&X3 / 4 1130 M 2G8 2465 S317 2 14 CLRWK CS ACCHI-1 / 4 1134 / 278 2465 S318 2 15 B CLRX / 4 1138 B 755 2466 S319 2 16 * S320 2 17 * STORE ZERO IN WORK ACCUMULATOR S321 2 18 * S322 2 19 STRZE S EXP / 4 1142 S W79 2466 S323 2 20 S ACCHI&X3 / 4 1146 S 2G9 2466 S324 2 21 B CLRWK / 4 1150 B /34 2466 S325 2 22 * S326 2 23 * DIVISION BY ZERO ATTEMPTED S327 2 24 * S328 2 25 DVERR B ERMSG / 4 1154 B U71 2466 S329 2 26 DCW @DZE@ / 3 1160 2466 S330 2 27 B STR99 / 4 1161 B /15 2466 S331 2 28 * S332 2 29 RTN1 BH NUVAL BRANCH TO STORE NEW VALUE IN WK ACC / 5 1165 B |17 U 2467 S333 2 30 S XL3&1,XL1&1 INITIALIZE INDEX REGISTERS / 7 1170 S 100 090 2467 S334 2 31 MZ ACCHI&X3,ACCHI&X1 INITIALIZE WORK ACCUMULATOR / 7 1177 Y 2G9 2X9 2467 S335 2 32 B ASCOM / 4 1184 B 996 2467 S336 2 33 * S337 2 34 CHGEX A EXPB,EXP / 7 1188 A W82 W79 2467 S338 2 35 B CLRWK / 4 1195 B /34 2467 S339 2 36 * S340 2 37 * SUBSCRIPTED VARIABLES S341 2 38 * 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 311 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S342 2 39 OPDSC SBR X2,5&X2 / 7 1199 H 094 0!5 2468 S343 2 40 STSUB B XXX / 4 1206 B 000 2468 S344 2 41 MN 0&X2 / 4 1210 D 0!0 2468 S345 2 42 MN / 1 1214 D 2468 S346 2 43 MN / 1 1215 D 2468 S347 2 44 MN / 1 1216 D 2468 S348 2 45 SAR ALGRT&6 / 4 1217 Q 765 2468 S349 2 46 BRWHR BCE SBBR1,XXX,$ / 8 1221 B 723 000 $ 2469 S350 2 47 B SBBR2 / 4 1229 B 815 2469 S351 2 48 * S352 2 49 * FLOATING DIVIDE S353 2 50 * S354 2 51 FDIV BE DVERR / 5 1233 B /54 S 2469 S355 2 52 MN ACCHI&X3, 1&X2 / 7 1238 D 2G9 0!1 2469 S356 2 53 MCW / 1 1245 M 2469 S357 2 54 MN / 1 1246 D 2469 S358 2 55 D 0&X1, SPOT&1 / 7 1247 % 0|0 251 2469 S359 2 56 ZS EXPB / 4 1254 ! W82 2470 S360 2 57 B NDMDV / 4 1258 B S83 2470 S361 2 58 * S362 2 59 * FLOATING MULTIPLY S363 2 60 * S364 2 61 FMPY M ACCHI&X3, SPOT&1&X3 / 7 1262 @ 2G9 2E1 2470 S365 2 62 SBR X2,3&X2 / 7 1269 H 094 0!3 2470 S366 2 63 S &2,EXP / 7 1276 S W90 W79 2470 S367 2 64 NDMDV A EXPB, EXP / 7 1283 A W82 W79 2470 S368 2 65 MZ ACCHI&X3, *&1 / 7 1290 Y 2G9 S97 2471 S369 2 66 ZA NSIGN / 4 1297 ? |87 2471 S370 2 67 B NMLZ1 / 4 1301 B |24 2471 S371 2 68 * S372 2 69 * EXIT ROUTINE S373 2 70 * S374 2 71 QFUNC BCE OUT1,4&X2,| BR IF CONTENTS OF WK ACC TO BE STORED / 8 1305 B T31 0!4 | 2471 S375 2 72 SBR ALGRT&6,1&X2 / 7 1313 H 765 0!1 2471 S376 2 73 C ACCHI&1,@0@ / 7 1320 C 280 W85 2471 S377 2 74 B XXX BRANCH TO FUNCTION SELECTION ROUTINE / 4 1327 B 000 2472 S378 2 75 OUT1 BCE OUT2,ACCHI&1,0 / 8 1331 B T69 280 0 2472 S379 2 76 BW OUT2,FIXSW / 8 1339 V T69 W87 1 2472 S380 2 77 BW FINST,4&X2 BRANCH IF FINAL STORAGE OF COMP / 8 1347 V T92 0!4 1 2472 S381 2 78 SBR X3,2&X3 / 7 1355 H 099 0?2 2472 S382 2 79 MVEXP MCM EXP-1,ACCHI-1&X3 / 7 1362 P W78 2G8 2473 S383 2 80 OUT2 LCA ACCHI&X3,XXX / 7 1369 L 2G9 000 2473 S384 2 81 BW 5&X2,4&X2 BR TO PROG MAINLINE IF END OF ARITH STR / 8 1376 V 0!5 0!4 1 2473 S385 2 82 SAR XL2 / 4 1384 Q 094 2473 S386 2 83 B ARITH / 4 1388 B 712 2473 S387 2 84 * S388 2 85 * ROUNDING FOR FINAL STORAGE S389 2 86 * S390 2 87 FINST A &5,ACCHI-1&X3 / 7 1392 A W91 2G8 2473 S391 2 88 BWZ RDOVF,ACCHI&1,S / 8 1399 V U18 280 S 2474 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 312 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S392 2 89 ZONMV MZ ACCHI&X3,ACCHI-2&X3 / 7 1407 Y 2G9 2G7 2474 S393 2 90 B MVEXP / 4 1414 B T62 2474 S394 2 91 RDOVF A &1,EXP / 7 1418 A W92 W79 2474 S395 2 92 BCE NORND,EXP-2,1 / 8 1425 B U48 W77 1 2474 S396 2 93 S ACCHI&X3 / 4 1433 S 2G9 2474 S397 2 94 LCA @1@,ACCHI&1 / 7 1437 L W93 280 2475 S398 2 95 B ZONMV / 4 1444 B U07 2475 S399 2 96 * S400 2 97 * NO ROUNDING IF EXPONENT OVERFLOW WOULD OCCUR S401 2 98 * S402 2 99 NORND MN &99,ACCHI&X3 / 7 1448 D W89 2G9 2475 S403 3 00 MCW / 1 1455 M 2475 S404 3 01 MCW ACCHI-1&X3 / 4 1456 M 2G8 2475 S405 3 02 S &1,EXP / 7 1460 S W92 W79 2475 S406 3 03 B ZONMV / 4 1467 B U07 2475 S407 3 04 * S408 3 05 * PRINT ERROR MESSAGE S409 3 06 * S410 3 07 ERMSG SBR STRX2&6 / 4 1471 H U92 2476 S411 3 08 CS TOP&1&X3 / 4 1475 / 2?2 2476 S412 3 09 SBR RINX2&6,0&X3 / 7 1479 H V25 0?0 2476 S413 3 10 STRX2 SBR X3,XXX / 7 1486 H 099 000 2476 S414 3 11 MCW 2&X3,TOP&11 / 7 1493 M 0?2 212 2476 S415 3 12 STMNM SBR TOP&16,XXX / 7 1500 H 217 000 2476 S416 3 13 W / 1 1507 2 2476 S417 3 14 SW TOP / 4 1508 , 201 2477 S418 3 15 SBR ERMXT&3,3&X3 / 7 1512 H V29 0?3 2477 S419 3 16 RINX2 SBR X3,XXX / 7 1519 H 099 000 2477 S420 3 17 ERMXT B XXX / 4 1526 B 000 2477 S421 3 18 * S422 3 19 * FIXED POINT ENTRY S423 3 20 * S424 3 21 XSIZE SBR X3,XXX STORE FIX-SIZE / 7 1530 H 099 000 2477 S425 3 22 SW FIXSW / 4 1537 , W87 2477 S426 3 23 * S427 3 24 FIXPT MCS 0&X1, SPOT / 7 1541 Z 0|0 250 2478 S428 3 25 BCE XDIV, CODE, / / 8 1548 B W23 924 / 2478 S429 3 26 BCE XMPY, CODE, * / 8 1556 B V98 924 * 2478 S430 3 27 * S431 3 28 * FIXED ADD / SUBTRACT S432 3 29 * S433 3 30 BWZ SUBTR, CODE, K Q. SUBTRACT / 8 1564 V V87 924 K 2478 S434 3 31 A 0&X1, ACCHI&X3 / 7 1572 A 0|0 2G9 2478 S435 3 32 ADDRT ZA ACCHI&X3 / 4 1579 ? 2G9 2479 S436 3 33 B CLRWK / 4 1583 B /34 2479 S437 3 34 * S438 3 35 SUBTR S 0&X1, ACCHI&X3 / 7 1587 S 0|0 2G9 2479 S439 3 36 B ADDRT / 4 1594 B V79 2479 S440 3 37 * S441 3 38 * FIXED MULTIPLY 1 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 PAGE 313 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD S442 3 39 * S443 3 40 XMPY LCA 0&X1, SPOT / 7 1598 L 0|0 250 2479 S444 3 41 M ACCHI&X3, SPOT&1&X3 / 7 1605 @ 2G9 2E1 2479 S445 3 42 MCW SPOT&1&X3, ACCHI&X3 / 7 1612 M 2E1 2G9 2480 S446 3 43 B CLRWK / 4 1619 B /34 2480 S447 3 44 * S448 3 45 * FIXED DIVIDE S449 3 46 * S450 3 47 XDIV BCE DVERR, SPOT, / 8 1623 B /54 250 2480 S451 3 48 MCW 0&X1,SPOT&X3 / 7 1631 M 0|0 2E0 2480 S452 3 49 MN / 1 1638 D 2480 S453 3 50 SBR MVQUT&3 / 4 1639 H W64 2480 S454 3 51 LCA ACCHI&X3 / 4 1643 L 2G9 2480 S455 3 52 ZA ACCHI&X3, SPOT&X3 / 7 1647 ? 2G9 2E0 2481 S456 3 53 D 0&X1, SPOT&1 / 7 1654 % 0|0 251 2481 S457 3 54 MVQUT MCW SPOT-1,ACCHI&X3 / 7 1661 M 249 2G9 2481 S458 3 55 B CLRWK / 4 1668 B /34 2481 S459 3 56 * S460 3 57 DCW 000 / 3 1674 2481 S461 3 58 RCDMK DCW @|@ / 1 1675 2481 S462 3 59 DCW 0 / 1 1676 2481 S463 3 60 EXP DCW 000 / 3 1679 2482 S464 3 61 DC @|@ / 1 1680 2482 S465 3 62 EXPB DCW 00 / 2 1682 2482 S466 3 63 DC 0 / 1 1683 2482 S467 3 64 CODE EQU SIGNF / 0924 S468 3 65 ZROSW EQU *&1 / 1684 S469 3 66 BASEZ EQU *&1 / 1684 S470 3 67 XPNUM DCW @8@ / 1 1684 2482 S471 3 68 LTORG * / 1685 DCW @0@ / 1 1685 LIT 2482 DCW @#@ / 1 1686 LIT 2482 FIXSW/ DCW #01 / 1 1687 AREA 2482 DCW &99 / 2 1689 LIT 2482 DCW &2 / 1 1690 LIT 2483 DCW &5 / 1 1691 LIT 2483 DCW &1 / 1 1692 LIT 2483 DCW @1@ / 1 1693 LIT 2483 S472 3 69 DS 1 / 1694 S473 3 70 DCW @0@ / 1 1695 2484 S474 3 71 DC @}@ SYSTEM GROUP MARK / 1 1696 GMARK 2484 S475 SFX 6 6 S476 78 28 END INIT THE DEED IS DONE 6 / 227 080 1 PAGE 314 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS )0J005 1902 )0J013 1180 )0J050 1412 )0J054 1815 )0J065 913 )0J070 910 )0J091 895 )0J093 871 )0J094 967 )0J099 1817 )0J114 1094 )0J131 865 )0J163 961 )0K005 1921 )0K013 1199 )0K028 1207 )0K029 1395 )0K039 1539 )0K043 1608 )0K050 1431 )0K053 1702 )0K054 1834 )0K070 929 )0K073 1518 )0K076 1855 )0K081 1019 )0K093 890 )0K094 986 )0K099 1836 )0K212 968 )0L005 2842 )0L013 1375 )0L028 1719 )0L029 1750 )0L039 1928 )0L043 2004 )0L050 2166 )0L053 2252 )0L054 2256 )0L065 933 )0L070 1052 )0L073 2395 )0L076 2430 )0L081 1122 )0L091 915 )0L093 2050 )0L094 2061 )0L099 2202 )0L114 1114 )0L131 885 )0L163 981 )0L212 1609 )0M005 2840 )0M013 1373 )0M028 1257 )0M029 1429 )0M039 1573 )0M043 1642 )0M050 2164 )0M053 1736 )0M054 2254 )0M070 1050 )0M073 1552 )0M076 1889 )0M081 1053 )0M093 2048 )0M094 2059 )0M099 2200 )0M212 1002 )0P005 1940 )0P013 1218 )0P050 1450 )0P054 1853 )0P070 948 )0P093 909 )0P094 1005 )0P099 1855 A K 2341 A1 G 1126 A2 G 1142 A3 G 1022 AAA A 2194 ABEGN; 4280 ABIT A 1700 ABIT2A 1973 ABOTMX 844 ABSVAL 891 ABSVL/ 2000 ABSVL< 1872 ACCHI# 279 ACCHI/ 279 ACCHI^ 279 ACCHI_ 279 ACCUM% 1648 ACCUMG 873 ACCUMH 2136 ACCUMI 2762 ACCUMN 1322 ACCUMO 1380 ACCUMP 1357 ACCUMS 2572 ACHCKZ 2268 ACLEAR 707 ACTL 9 1391 ADD I 2048 ADD1 7 2917 ADD1 L 1167 ADD1 Z 1507 ADD3 7 948 ADDINZ 862 ADDPI2 2125 ADDPI4 2132 ADDR ; 2015 ADDR1Z 1527 ADDRT/ 1579 ADDRT^ 1579 ADDS R 945 ADDS2R 952 ADDU V 1125 ADJST7 1360 ADJSTH 2084 ADJX3R 1027 ADLSTA 2394 ADNL 7 1440 ADONEX 142 ADONEZ 1922 ADR 9 1714 ADR3 # 359 ADR3 _ 359 ADRESZ 148 ADRSSJ 2394 ADRSSX 2145 ADTBLL 145 AFORM1 1415 AFORM8 950 AFORMH 2060 AGAINC 1022 AGAINN 1544 AGET2R 445 ALCONI 2335 ALGRT/ 759 ALGRT^ 759 ALL3 Y 1736 ALL9 9 1616 ALL9 C 1802 ALL9 D 1090 ALL9 Q 1507 ALL919 1619 ALL91Q 1510 ALL92C 1805 ALPH N 1051 ALPHAM 1610 ALRDY; 2031 ALTERH 1354 ALTERX 1157 ANYMO. 982 ANYMOG 1309 AOK 3 1170 AOK 4 1020 AOK1 C 1127 AOK2 4 1102 AOK3 4 1317 AOP 7 3088 AOUT ; 4419 AREA1Z 880 AREA2Z 2434 ARGLG/ 2390 ARIT T 1664 ARITF/ 700 ARITF^ 700 ARITH/ 712 ARITH0 1153 ARITH1 1075 ARITH2 1119 ARITHE 1156 ARITH^ 712 ARRAV; 3166 ARRAY# 585 ARRAYA 2122 ARRAYI 1358 ARRAY_ 585 ARRTN; 2109 ARSUB6 1209 ARTYP< 1085 ASCOM/ 996 ASCOM^ 996 ASIDEZ 844 ASSGNS 1060 ATANFN 894 ATEST; 1005 ATSGNA 1689 AUNIQB 1217 AVOID% 1431 B A 2511 BACK ; 2910 BACK2M 1299 BACK39 950 BACK5C 1134 BAD 5 1015 BAD 6 1056 BADSTM 1848 BADSWM 1942 BAKUPK 2232 BASE . 1308 BASE J 840 BASE N 840 BASE O 840 BASE P 840 BASE Y 2793 BASEZ/ 1684 BASEZ^ 1684 BBACK; 1234 BC1 / 1221 BC2 / 1267 BCE1 7 1317 BCE3 7 2655 BCE5 Y 992 BCEQ T 2035 BCLEAR 833 BEGIN# 934 BEGIN/ 884 BEGIN1 838 BEGIN9 838 BEGINC 1010 BEGINE 838 BEGINJ 857 BEGINX 867 BEGINZ 1175 BFEELA 2215 BGIN T 1510 BGMSG0 2631 BIG 7 1302 BIG N 1436 BIGMS8 1300 BLANK. 1419 BLANK3 1617 BLANK5 1797 BLANK9 1711 BLANK; 3773 BLANKA 2397 BLANKD 1099 BLANKE 1503 BLANKF 1701 BLANKH 2096 BLANKI 2787 BLANKK 2504 BLANKP 1404 BLK10< 2475 BLK20; 4597 BLK20Y 2749 BLK3 ; 4577 BLK4 7 3045 BLK4 Y 2775 BLK6 Y 2872 BLK8 Y 2866 BLKOP7 901 BLNK 9 1673 BLNK Q 1537 BLNK1< 2595 BLNK2I 2788 BLNK33 1619 BLNK3A 2971 BLNK3C 1825 BLNK3F 1792 BLNK46 1078 BLNK5G 1887 BLNK6I 2792 BLNKS0 2814 BLWUPS 1274 BMOD Y 2776 BMP4 Y 1039 BMPT2R 475 BMPUMS 1016 BMPUMY 1135 BMPX17 2032 BMPX1K 1165 BOP 7 3063 BOTH T 1161 BOTM % 1645 BOTM . 1064 BOTM I 1445 BOTM J 2193 BOTM K 2089 BOTM M 958 BOTM N 1367 BOTM O 1611 BOTM2I 1453 BOTM2K 2100 BOTOMZ 1753 BOX / 2433 BOX 4 1472 BOX < 2502 BOX H 2141 BOX I 2655 BOX J 2301 BOX K 2347 BOX M 1938 BOX O 2107 BOX Q 1525 BOX1 1 1538 BOX2 < 2518 BOX2 I 2664 BOX2 Q 94 BPDWNG 1329 BRANCH 1631 BRELCR 934 BRHI ; 2792 BRNCH. 1350 BRWHR/ 1221 BRWHR^ 1221 BSAUCE 148 BSFLTY 2425 BSP E 1434 BSPTP; 3609 BSTANA 2087 BSTARG 1446 BSUB Y 2578 BTESTD 857 BTM R 1638 BTMCGN 1428 BTMNLN 1313 BUCKT; 4256 BUMP D 926 BUMP H 1209 BUMP J 1186 BUMP K 2547 BUMP N 1036 BUMP O 1479 BUMP X 1590 BUMP1K 1055 BUMPRK 1912 BX2B2T 1398 BYP E 882 BYP F 1533 BYP4 Z 1234 CALC / 2047 CALC1/ 2058 CALCL/ 2079 CALXT/ 2187 CANU 7 1496 CARDS# 603 CARDS_ 603 CASE1/ 2000 CASE2/ 2103 CASE2Z 1818 CASE3/ 2247 CASE4/ 2295 CASE6/ 2232 CASE7/ 2121 CCLEAR 830 CDAF ; 1047 CDDMP/ 997 CDFUL1 1215 CDINT< 2001 CDLIO; 1026 CDNO 1 175 CDSYS6 963 CDSYS; 949 CERR C 1688 CGBTML 1282 CGOTOE 1311 CGOTON 1367 CHAINJ 1201 CHAINL 1001 CHAINN 1533 CHAINO 1494 CHAMPG 857 CHAR A 2388 CHEAP4 1412 CHGEX/ 1188 CHGEX^ 1188 CHGX3R 1051 CHKN T 1977 CHKNDT 1044 CHNG U 994 CHNGEZ 1680 CHUMPG 1653 CINCHG 1672 CK A 742 CK4B 2 1131 CKBITT 872 CKBOPQ 1061 CKCMTB 914 CKCOM4 997 CKCOMX 1248 CKDL27 924 CKDONE 1045 CKEX R 1036 CKEXTL 975 CKFIX7 1807 CKFIXJ 1940 CKFIXY 1340 CKFMTD 904 CKFMTT 1315 CKFUN< 1641 CKFUNB 1349 CKFX Q 1023 CKGM 5 969 CKGM < 1268 CKGM F 1307 CKIF K 2183 CKLFPX 1240 CKLHCA 1973 CKLSTX 1798 CKND 7 1527 CKNG < 1598 CKNG X 1092 CKNODF 1545 CKNUMU 1008 CKOP 0 1539 CKOVF; 2808 CKPRNG 1146 CKREFJ 857 CKRT 7 1070 CKSGN/ 2080 CKSIMG 1274 CKSWFY 1316 CKSWXY 1328 CKSYN% 1145 CKTALK 1498 CKTYPX 1822 CKUSR0 2003 CKUSRR 508 CKWMKX 1260 CKX3 R 1039 CKXF Y 936 CKXP < 1431 CKXPNI 2299 CKZN R 543 CKZRO7 1919 CKZROT 1827 CLEAR# 356 CLEAR; 3244 CLEARB 1309 CLEARD 965 CLEAR_ 356 CLEERC 1422 CLEERQ 1233 CLOSE< 1339 CLR 9 923 CLR A 1103 CLR T 992 CLR1 0 878 CLR1 N 958 CLR1 O 860 CLR1 P 878 CLR2 0 929 CLR2 N 1011 CLR2 O 978 CLR2 P 1009 CLRCON 2013 CLRFCT 2599 CLRI T 1733 CLRWK/ 1134 CLRWK^ 1134 CLRX / 755 CLRX ^ 755 CLSCK< 1392 CLSPR; 2185 CLZOK< 1378 CMBCK; 3329 CMBCKZ 965 CMNT A 2358 CMP2 7 2863 CMP3 7 1019 CMP4 Z 1248 CMP5 Y 1046 CMPAB# 520 CMPAB7 520 CMPAB8 1113 CMPAB_ 520 CMPADS 1089 CMPARA 1409 CMPARD 985 CMPSWG 1177 CNLFTK 1720 CNLS5O 2066 CNLST5 1613 CNT C 1599 CNTNUZ 1270 CNTR / 2214 CNTR 0 2828 CNTRL0 1381 CNTRLK 2381 CNTU C 1157 CNTU E 1346 CNTU2Z 1646 CNVRTZ 896 CODE & 925 CODE * 962 CODE / 924 CODE 0 2761 CODE 3 1602 CODE 4 1445 CODE 5 1188 CODE 9 1649 CODE < 2447 CODE B 2449 CODE I 2646 CODE J 2286 CODE K 2353 CODE L 1286 CODE N 1062 CODE O 2096 CODE T 879 CODE U 1230 CODE W 1198 CODE X 841 CODE Y 2686 CODE ^ 924 COMFN1 906 COMFN< 1856 COMMA1 1089 COMMAM 1257 COMMAX 1088 COMP F 1084 COMP G 1006 COMP N 1235 COMP O 1292 COMP P 1267 COMP X 1019 COMPAT 838 COMPLT 1115 COMRTT 1129 COMUT7 1214 CON401 1521 CONLST 194 CONSTB 2465 CONSTI 1851 CONSTU 1204 CONSTZ 1201 COOL M 1750 COPY I 1840 COPY J 1031 COPY O 1343 COS / 2238 COSF / 2024 COSIN< 1864 COUNT% 1694 COUNT. 1408 COUNT; 2017 COUNTA 2503 COUNTH 2049 COUNTI 2708 COUNTK 2423 COUNTL 1292 COUNTN 1677 COUNTX 2058 COUNTZ 841 CPAR 1 971 CPAR W 1021 CPL # 568 CPL 7 568 CPL 8 1188 CPL _ 568 CR K 1459 CS1 / 1140 CS1801 1467 CS1A / 1319 CS2 / 1210 CS2A / 1390 CS2X / 1169 CS2XA/ 1348 CTNMVZ 1615 CTOALZ 1448 CTR # 669 CTR 7 669 CTR 8 1419 CTR _ 669 CTRR # 641 CTRR _ 641 CTU * 884 CTU 3 1194 CTU1 R 608 CTU1 U 944 CTU1 Y 2321 CTU3 G 1816 CTU3 H 1062 CTU4 G 1661 CTUCDA 2824 CTUL F 1465 CURDL7 2972 CVT3 7 3091 CVTDL7 2758 CVTXT7 2833 CW 7 2720 CW X 1790 CW1 Y 1101 CW2 7 2928 CW5 7 2614 CWAF ; 1051 CWFIO; 982 CWLIO; 1030 CWMKS; 3138 CWPRT7 908 CWX1 Z 1359 CX1 R 482 CX1CNZ 1522 CX2 7 2001 CZONEZ 1014 D ; 9+X2 D2 7 997 DATA E 1478 DBLOP< 2161 DBLSWT 1439 DCRPB; 2396 DEC / 2259 DECR 7 1927 DECRA; 2189 DELT17 974 DELT27 1166 DELTA/ 79 DELTAI 1682 DIFF Z 859 DIFNT% 1090 DIMENF 979 DIMSWF 1700 DIV < 1446 DIV Y 1463 DIV2 < 1470 DIVCK< 1484 DIVID/ 2000 DL2 7 3032 DLOOPV 978 DLVALS 2557 DMSN E 1443 DO B 1521 DO E 1338 DO M 1276 DO1 A 2000 DO2 A 2000 DO3 A 2040 DOADR1 924 DOADR2 921 DOADR3 918 DOBC1/ 1074 DOCOD7 2217 DOCOD< 943 DOEND% 1899 DOINIT 915 DOIT 3 896 DOIT 4 893 DOIT 5 884 DOLLRX 1737 DOLR V 915 DOLR1J 1995 DOLR2J 2013 DOLST9 1116 DONE C 1366 DONE E 1057 DONE G 1683 DONE J 1747 DOPRT; 3509 DOSBSC 909 DOSPC9 1532 DOWM R 623 DRESSG 852 DRESSI 2636 DROP4W 1098 DSA R 1560 DSW F 1710 DUM3 A 2560 DUM5 A 2565 DUMMYA 1166 DUMMYB 979 DUN % 1526 DUN . 1313 DUN 0 2519 DUN J 2147 DUN L 1052 DUN S 1221 DUN X 1168 DUN Z 1437 DUN1 A 2242 DUN2 Q 1471 DUN2 X 1137 DVERR/ 1154 DVERR^ 1154 DVXT / 2043 EASY B 1422 ECON ; 3654 EFNTN; 2439 EFOUT; 2495 EFTI ; 2549 EINPTT 1870 EJBOX; 2271 ELL ; 2079 ELSE Y 2485 EMASQX 1963 ENCODE 1173 END ; 4241 END B 1337 END C 2900 END R 1056 END Z 2499 END1 1 1348 END2 1 1426 END2 T 1021 ENDCDE 1182 ENDPHZ 1260 ENDSS2 944 ENDSWA 2828 ENDXL2 1265 EOF E 1419 EOFX Q 1475 EOJ 0 2458 EOJ C 1647 EOJ D 949 EOJ H 2008 EOJ Q 1295 EOJ1 ; 2223 EOPHSD 1065 EOSTM< 1310 EOSTMT 1612 EOSTR7 2158 EOSTRY 1421 EOTWOC 2000 EQBX1G 1465 EQSCN< 1107 EQUALI 2254 EQUIVE 1454 EQUIVG 1165 ERCTRG 1994 ERMSG/ 1471 ERMSG^ 1471 ERMXT/ 1526 ERMXT^ 1526 ERR # 557 ERR 9 1487 ERR G 1505 ERR M 1877 ERR _ 557 ERR1 % 1397 ERR1 . 1165 ERR1 0 2413 ERR2 % 1442 ERR2 0 2375 ERR3 0 2337 ERR4 0 2299 ERR460 1852 ERR5 0 2261 ERR6 0 2223 ERRMSZ 1092 ERROR% 1480 ERROR. 1223 ERRORE 1092 ERRORT 206 ERRORX 1922 ERRSWG 2144 ERRSWI 2504 ERRTPA 797 ERRWTT 1269 ERSIGT 1258 ERVBLI 2600 EXCHNN 1641 EXCMAX 1100 EXDO3A 2069 EXDRPW 1120 EXGTL0 1343 EXGTP0 1599 EXIT % 1621 EXIT / 784 EXIT 2 1295 EXIT ; 2934 EXIT A 1096 EXIT C 1486 EXIT I 2134 EXIT N 1265 EXIT O 1322 EXIT P 1297 EXIT Q 1182 EXIT V 1218 EXIT Z 1553 EXIT ^ 784 EXIT1# 1000 EXIT1M 1798 EXIT2M 1606 EXIT3R 983 EXITA; 1141 EXITAQ 1157 EXITEL 2046 EXITLA 2141 EXITSA 2175 EXMVD0 1287 EXMVPN 933 EXP / 1679 EXP ^ 1679 EXPB / 1682 EXPB ^ 1682 EXPF / 2000 EXPH3X 969 EXPLS/ 2107 EXPMIX 1693 EXPN Y 1808 EXPNDZ 969 EXRDMN 1044 EXRUA. 1219 EXRUAX 1893 EXRUKX 1901 EXSLDN 960 EXSLDW 1094 EXSLDX 965 EXSNDW 1188 FAIL F 1646 FAILSW 184 FBAD T 2287 FBOX T 1460 FDIV / 1233 FDIV ^ 1233 FEED I 1693 FEND22 1306 FEND32 1405 FENDX/ 956 FENDX2 1185 FENDX7 2937 FENDX< 920 FENDXS 1251 FENDXY 1478 FEWSWI 2598 FHLT ; 3986 FIELD# 642 FIELD_ 642 FIGHTG 1269 FIN1SZ 1641 FIND G 980 FIND I 937 FIND M 1137 FIND O 1259 FIND W 889 FIND1J 1723 FIND2J 947 FIND2M 1200 FINI T 1216 FINI1; 4550 FINIS/ 2183 FINIST 2054 FINISZ 2396 FINS ; 3146 FINSI; 3154 FINST/ 1392 FINST^ 1392 FIRST7 1663 FIRSTB 2429 FIRSTG 86 FIVE ; 4248 FIX 7 2573 FIX1 H 1332 FIXED. 1193 FIXEDA 2831 FIXEDB 2430 FIXEDG 1216 FIXEDH 1365 FIXEDJ 2031 FIXEDK 1931 FIXEDO 1693 FIXF / 2000 FIXFUN 885 FIXITZ 1956 FIXPT/ 1541 FIXPT^ 1541 FIXSW/ 1687 FIXSW^ 1687 FIXSZ6 1536 FIXT 7 2724 FIXWDQ 930 FIXWDR 930 FIXXPY 2077 FLIP 1 1531 FLIP 4 983 FLIP J 1003 FLIP K 1863 FLIP T 1345 FLOATK 1506 FLOT / 2000 FLT Y 2032 FLTFUN 882 FLTSWG 1828 FLTSZ6 837 FLTWDQ 933 FLTWDR 933 FMAIN; 1928 FMAT I 2470 FMPY / 1262 FMPY ^ 1262 FMTNOT 2429 FMTXT; 2132 FMTZON 2136 FNCTRJ 2300 FND V 939 FNDLZI 1571 FNISH0 1761 FNISHW 1124 FNLIZX 1697 FOKAYT 2246 FOMAT; 934 FORCE0 1659 FORK N 1409 FORMAQ 1697 FORMAT 2527 FOUNDG 1181 FOUNDJ 997 FOUNDO 1309 FOUNDW 939 FOVFL; 2674 FQUITP 1197 FRMATE 1353 FROMXZ 856 FRONTB 2440 FSCAN< 1775 FSIZE/ 831 FSIZE^ 831 FST1 7 1695 FSTMDY 2719 FSTNUA 1260 FSUB Y 2623 FTBL1< 2442 FTERM/ 2188 FTMSGY 1998 FTYP ; 2704 FULIO; 1088 FULL J 2211 FULL N 1066 FULL O 1712 FUN 0 1981 FUNBX< 2485 FUNC 6 1330 FUNCSW 195 FUNSTJ 1649 FUNY 0 2117 FXFLTQ 1398 FXMOD0 2175 FXPRMD 1016 FXSW G 1827 FXT Q 1482 GARY 1 1474 GARY Q 1513 GARY V 1257 GARY Z 1520 GDLXT7 2870 GENERM 1761 GET F 1066 GET G 988 GET I 2071 GET R 1149 GET2 G 1086 GET2 R 441 GETAD; 1943 GETDL7 2837 GETLF0 1291 GETM # 620 GETM _ 620 GETSTT 880 GETUMS 935 GETW ; 2385 GETWM7 2890 GETXT2 1098 GETXTR 1184 GM # 680 GM 0 2573 GM A 2529 GM C 1806 GM D 1091 GM F 1691 GM G 839 GM H 2085 GM I 2555 GM J 2493 GM K 2349 GM M 1930 GM N 1725 GM X 1011 GM _ 680 GM1 % 1598 GM1 . 1295 GM1 7 2240 GM1 9 1627 GM1 < 2160 GM1 T 1503 GM2 % 1626 GM2 . 1309 GM2 C 1219 GM2 O 1333 GM3 % 1631 GM4 % 1622 GM50AZ 1690 GM50CZ 1628 GM53S# 1696 GM54D; 4616 GMK ; 4286 GMK1 R 680 GMKHD; 4257 GMKSW; 4258 GMWM ; 1253 GMWM R 1696 GMWM Z 2460 GNSTMZ 151 GNTBLZ 1346 GNTMP0 1573 GO X 852 GOBAK% 1630 GOBAKJ 1298 GOBAKS 1199 GOGOGO 183 GOTEQ< 1131 GOTEQY 1232 GOTFN< 1883 GOTO E 1306 GOTOFN 188 GOTOP< 1191 GOTSBY 2542 GOTSQY 1009 GOTTA/ 896 GOTUM0 1562 GOTUMS 959 GOTWM7 2906 GPWDMK 2022 GRAB ; 4027 GRAB10 1180 GRAB1M 1473 GRIEFY 1154 GSTXTT 924 GT1 G 1386 GTADR9 1473 GTNUM0 1516 GTRTN; 2431 GTSUBY 2608 GTXT ; 2003 GUTS K 1067 HALT 6 280 HEAD # 651 HEAD 7 651 HEAD 8 1309 HEAD _ 651 HEADRN 1507 HERE 9 1569 HERE ; 4011 HERE T 1787 HERE Z 1088 HEX1 7 2965 HEX1 < 2543 HEX1 G 1999 HEX1 I 2711 HEX1 K 2439 HEX1 L 1279 HEX1 M 1941 HEX1 N 1054 HEX1 O 2091 HEX1 S 2549 HEX1 W 1194 HEX1 X 2056 HEX1 Z 2444 HEX1XX 947 HEX2 0 2758 HEX2 7 3024 HEX2 < 2537 HEX2 F 1709 HEX2 G 1927 HEX2 J 2327 HEX2 O 2132 HEX2 S 2543 HEX2 X 2053 HEX2XN 1360 HEX3 % 1637 HEX3 7 3040 HEX3 < 2540 HEX3 G 876 HEX3 K 2366 HEX3 L 1276 HEX3 M 2031 HEX3 N 1684 HEX3 R 1635 HEX3 T 875 HEX3 X 2085 HEX3 Y 2693 HEX31Y 2771 HIFMT1 1503 HLD18Y 2718 HLD2 5 1200 HLD20Y 2484 HLD31# 416 HLD317 416 HLD31_ 416 HLD32# 409 HLD327 409 HLD32_ 409 HLD357 3008 HLD5AC 1363 HLDOP7 2966 HLDXT# 402 HLDXT7 402 HLDXT_ 402 HLDZNR 1582 HLERRT 1409 HLFT 7 1054 HLOUT; 2340 HLTGO; 3311 HNOT T 1306 HOLD / 2313 HOLD 5 1198 HOLD C 1922 HOLD F 1703 HOLD Z 891 HOLD1E 1499 HOLD1H 2154 HOLD2Z 2132 HOLD3E 1502 HOLD3G 2003 HOLD3X 2077 HOLD4E 1498 HOLD5C 1357 HOLD5D 1096 HOLD5I 2811 HOLD5J 2382 HOLD5X 2068 HOLD6C 2005 HOLD8J 2390 HOLDD/ 2460 HOLDXE 1514 HOLIN; 2347 HOLLR; 2328 HOLLRA 1751 HOPE 7 1476 HOPE27 1555 HSW A 1394 HSW2 A 1402 HUH Y 2218 HUH2 Y 2236 HXCMNR 1573 HYTEST 2575 I % 1618 I . 1302 ID . 1362 IEXITT 1808 IF 0 1221 IF E 1313 IFEXPM 1362 IFMNSY 2512 IFPLSY 2496 IFSL E 1467 IFSSWE 1327 IFTYPY 1522 IFZROY 2504 IMVUPZ 1052 INC # 632 INC 7 632 INC 8 1242 INC _ 632 INCTOA 1375 INDIR< 982 INDX1A 2275 INDX2A 2298 INDX3A 2341 INDX4A 2334 INEFI; 3655 INI ; 3271 INILZ1 2506 INILZ2 2509 INISHG 1724 INISHS 838 INIT 6 227 INIT Q 934 INIT V 838 INIT Z 1186 INITAP 780 INITIL 2000 INITL% 838 INITL. 838 INITL/ 2362 INITL0 838 INITLA 2092 INITLF 839 INITLG 1034 INITLH 891 INITLI 838 INITLK 838 INITLL 838 INITLM 838 INITLW 838 INITXT 793 INNERX 1421 INOTN; 2833 INOUTM 1130 INPUTA 2373 INPUTJ 1763 INRAYA 2184 INSW ; 4250 INTEG; 2728 INTNOZ 865 INTSTZ 183 IO ; 3438 IO1 ; 1745 IO12 ; 1752 IO15 ; 1774 IO2 ; 1799 IO3 ; 1813 IO4 ; 1848 IO5 ; 1868 IOBGNT 2153 IOCW U 1226 IOSW T 1438 IOTYP9 1012 IOTYPT 1402 IOWK T 2309 ISB R 1288 ISCTU& 884 ISEQUG 1158 ISFMTD 938 ISFSWJ 2310 ISFUN< 1683 ISGM J 945 ISIN G 1673 ISREDG 1584 ISTRIA 1851 ISTWO7 2683 ISXP < 1513 JOE4 ; 2894 JUMP A 1425 JUMPF; 2993 K5TOK3 929 KARITT 2411 KEEP2J 1079 KEEPX< 1989 KEOJ T 2415 KERR I 2561 KFSM A 2423 KH T 2388 KILL 0 2447 KILL 4 1001 KILL ; 3793 KILL < 2450 KILL K 2369 KILL M 981 KLEAR% 1548 KLEFTT 2399 KLINET 2407 KLOBR% 1259 KLOBR. 1072 KLOBR0 1179 KLOBR3 1252 KLOBR4 1197 KLOBR5 1120 KLOBR9 1349 KLOBRG 1393 KLOBRI 1468 KLOBRK 2111 KLOBRR 1089 KLOBRT 838 KLOBRU 1117 KP T 2419 KPROCA 2548 KRITET 2403 KVSTMI 2582 KWM 7 1379 KWM2 7 2139 KWMXT7 1387 KX T 2395 L2PRMA 1089 LABELM 1003 LARRYA 2557 LAST / 194 LAST 0 2752 LAST 1 194 LAST < 2482 LAST G 1447 LAST R 1592 LAST Z 850 LAST1; 2204 LCA A 2041 LD52CR 938 LDCOMI 1783 LDFLTO 1165 LDFMT2 1535 LDOLRI 1970 LDRNDA 3000 LDSYMZ 1772 LDWM Z 1386 LDWRDZ 1526 LDZERK 1530 LEADRH 1343 LEFT 7 3063 LENNYB 1059 LEWP ; 3876 LEWP2; 3896 LEWPA; 4341 LFPART 1498 LFPARX 1467 LFTRTK 1962 LGM 9 1323 LGSW H 2095 LGSW J 2248 LGSW S 2507 LIGHT4 1254 LIGHTB 1458 LIMIOH 2068 LIMITA 2348 LIMITI 1171 LIMITJ 1038 LIMITO 1350 LIMITQ 1516 LIMT A 2047 LINCT# 658 LINCT7 658 LINCT8 1321 LINCT_ 658 LINIT/ 2287 LINK G 1477 LINK H 2139 LIO 1 1404 LIO 8 925 LIST 9 1641 LIST ; 1962 LIST C 1799 LIST I 2168 LIST X 935 LIST Z 1334 LITCS/ 1045 LK4CMT 1839 LKHED; 4249 LN10 / 2226 LOAD M 1174 LOAD R 572 LOAD Y 1910 LOAD Z 1434 LOAD1I 2280 LOAD27 1131 LOAD2I 2265 LOADGM 1622 LOC ; 2006 LOC N 1273 LOC O 1330 LOC P 1305 LOD A 754 LOD E 991 LOD2 I 1767 LODX O 1188 LOG99/ 2250 LOGER/ 2224 LOGF / 2000 LOGF1/ 2020 LOGF2/ 2007 LOGFUN 900 LOGM1/ 2149 LOGM2/ 2171 LOGRT/ 2177 LOGSWR 1564 LOOK I 1216 LOOP # 497 LOOP % 1004 LOOP . 905 LOOP 0 1303 LOOP 7 497 LOOP 8 1090 LOOP G 929 LOOP I 1255 LOOP M 1496 LOOP N 1473 LOOP Q 1444 LOOP X 1752 LOOP Z 2009 LOOP _ 497 LOOP1< 1135 LOOP1C 1329 LOOP1D 849 LOOP2; 1832 LOOP2< 1154 LOOP2R 412 LOOP3< 1143 LOOP3H 1010 LOOPAH 1647 LOOPYX 1389 LOPP Z 2036 LOWERG 1416 LOWK 3 1500 LOZNG1 1175 LOZSCF 1441 LPARNA 2403 LSADDY 1703 LSTIOT 1457 LWPB 1 1171 LZONE/ 2314 M A 2537 M1 % 1609 M2 % 1612 M2PRTA 1233 M3 % 1615 M3IS1% 1386 M3IS1X 1619 MACFLS 163 MAD Z 1319 MAIN < 998 MAIN G 1359 MAIN X 1020 MANXBZ 1420 MARK A 2534 MARK K 1486 MARTYB 1318 MASK % 1634 MASK . 1312 MASK 2 1463 MASK14 1441 MASK15 1184 MASK19 1626 MASK24 1449 MASK34 1457 MASK44 1461 MATRX0 2643 MATRXS 1318 MAX . 1366 MAX J 844 MAX N 844 MAX O 844 MAX P 844 MAXDL7 3021 MAYBE7 1391 MAYBEK 1091 MAYFNB 1369 MCFL5O 2087 MCM2 I 1263 MCS ; 3187 MCW 1 1272 MCW18/ 859 MCWX2R 1317 MDIFY% 1120 MDIFYI 960 MDIG ; 3044 MESBX< 2642 MESCM< 2072 MESSG/ 935 MESSG2 1506 MESUR7 1410 MESUR< 2053 MESXT< 2079 MIDSW7 3018 MINUS; 3789 MINUSY 2508 MIXUPJ 1103 MKFIXY 1364 MKFLTY 1294 MKFMTT 1391 MKND T 1835 MKPLSY 1642 MKTSTM 1559 MLBOX; 1968 MLPLYZ 1295 MLTPLY 2341 MN F 1695 MNTERB 1495 MOD J 2314 MOD N 1058 MOD O 2120 MODCHY 1085 MODSWY 2690 MONTER 700 MONTOR 769 MOR T 1062 MOV < 1926 MOVE 1 957 MOVE A 1174 MOVE C 1293 MOVE H 2033 MOVNUM 4480 MPLR H 1133 MRKRSI 2501 MRWM ; 4170 MSD ; 4244 MSERRA 1077 MSG G 1951 MSG1 3 1315 MSG2 3 1333 MTPX1R 1508 MULT Z 2221 MULTYF 1356 MULTYN 1446 MUVE C 1453 MV2GMT 2260 MV2N T 1904 MV2WK; 3801 MV2WM; 4031 MV2XTT 1994 MVAD R 468 MVADRT 2352 MVAGN; 1855 MVAGNZ 2056 MVBALY 1857 MVD Z 1406 MVDAT; 2865 MVDIG; 4178 MVDIGT 1924 MVDWN0 1257 MVDWNT 2081 MVDWNY 894 MVDWNZ 2093 MVEXP/ 1362 MVEXP^ 1362 MVHED# 459 MVHED7 459 MVHED8 1052 MVHED_ 459 MVIPTA 1211 MVLS Y 1662 MVMSKU 1221 MVNIN2 1078 MVNINR 1164 MVNSS2 924 MVNXL2 1245 MVQUT/ 1661 MVQUT^ 1661 MVRPTT 1672 MVSW U 1245 MVUP 0 953 MVUP N 853 MVUP2T 1086 MVZON/ 1010 MVZON^ 1010 MXTMPS 2578 MYB2 A 1817 N A 2528 NAME F 1019 NAME G 969 NBRSW2 1586 NCON / 2253 NCTR / 2256 NCTR T 2438 NDFNDB 1385 NDLIN; 2208 NDMDV/ 1283 NDMDV^ 1283 NDOLRV 1011 NDOLRX 1768 NDRITH 3153 NDRPLT 2231 NDTABL 140 NEG 0 1948 NEG2 7 1644 NEG3 7 1269 NEGAT7 1239 NEGAT< 1626 NEGF / 2000 NEGTFN 888 NEGX ; 2766 NEST G 1209 NEW A 1546 NEW J 1302 NEW N 1606 NEW O 1626 NEW X 989 NEWCDG 1435 NEXA ; 4426 NEXT 0 2766 NEXT < 2465 NEXT F 1344 NEXT N 1065 NEXT Y 974 NEXT Z 1183 NEXT11 1379 NEXT1X 963 NEXTA; 4371 NGBMP/ 868 NGBMP^ 868 NINE A 773 NISH 0 1528 NIX H 1598 NLOOP/ 1043 NLOOP^ 1043 NMBR B 2425 NMLZ1/ 1024 NMLZ1^ 1024 NOAD 3 1069 NOAPX% 1216 NOARIY 1499 NOBR Y 1748 NOCOLH 1147 NOCVTY 1382 NODICR 1335 NODUNH 1972 NOFMT9 1439 NOFUN< 1818 NOGUD8 1158 NOINTU 1106 NOIO 8 900 NOIO H 2076 NOLSTX 918 NOMO . 1053 NOMO 0 2745 NOMO < 2453 NOMO G 1247 NOMO I 2243 NOMO N 852 NOMO O 688 NOMO P 1342 NOMO S 2546 NOMO1I 2235 NONUMN 1569 NONUMU 1159 NOP C 1150 NOP3 R 1070 NOP4 R 433 NOPADK 2345 NOPBR; 2298 NOPR J 983 NOPRMA 2324 NOPSW; 2243 NOPSWR 536 NOPTM7 1887 NOPUN2 1166 NORAYH 1984 NORM M 1637 NORMLI 2029 NORMLK 1379 NORMLN 1274 NORND/ 1448 NORND^ 1448 NORT 7 1101 NOSHF/ 2068 NOSUBT 1772 NOSWT; 4115 NOSWTA 2228 NOSWTT 2373 NOTHRN 1243 NOTING 1800 NOTINI 1381 NOTYTN 1294 NOWOPY 1254 NOXTR4 1239 NOZN ; 3266 NOZO M 1393 NRML / 2084 NSIGN/ 1087 NSIGN^ 1087 NTEST; 970 NTRAY; 2046 NUERR3 1131 NUFRMZ 1882 NULIN# 433 NULIN8 1025 NULINE 433 NULIN_ 433 NUM 0 2820 NUM N 1316 NUM O 1374 NUM P 1351 NUMBER 2533 NUPOSZ 2294 NUSTM7 871 NUSTM< 883 NUSTMC 1022 NUSTME 852 NUSTMY 866 NUTYP3 842 NUTYPC 1063 NUVAL/ 1017 NUVAL^ 1017 NXBTM0 2755 NXBTM5 1608 NXBTMJ 83 NXBTMK 83 NXBTMM 83 NXBTMN 83 NXBTMO 83 NXBTMP 83 NXBTMQ 83 NXBTMR 83 NXBTMT 83 NXBTMX 83 NXBTMZ 83 NXGUYS 1210 NXGUYX 1977 NXTOPH 2052 NXTOPJ 86 NXTOPQ 86 NXTOPS 86 OBJLST 2000 OBLIST 912 ODDBLK 1822 ODDSWK 2544 OFF 4 1433 OHALTA 2179 OK % 1339 OK . 1122 OK 5 1068 OK F 1112 OK1 ; 2797 OKAY 0 2099 OKAY23 1042 OLDCDG 1385 ON 4 1436 ONCE 2 1155 ONE # 679 ONE / 2290 ONE ; 3578 ONE A 2510 ONE B 2426 ONE _ 679 ONEADR 142 ONLY # 621 ONLY 7 621 ONLY _ 621 OOPS1G 1828 OOPS2G 1972 OP 7 3064 OPDSC/ 1199 OPDSC^ 1199 OPMD Y 2700 OPNCK< 1663 OPNPR; 2152 OPS 0 2642 OPTM 7 1823 ORGVBI 2814 OTHER9 1421 OTHR29 1428 OTSUBA 2000 OUT # 478 OUT % 1533 OUT & 861 OUT * 861 OUT . 1320 OUT 0 2547 OUT 3 873 OUT 4 870 OUT 5 861 OUT 6 896 OUT ; 1897 OUT A 2520 OUT F 1588 OUT G 1735 OUT H 1390 OUT I 2138 OUT J 2057 OUT K 2153 OUT L 1237 OUT M 1899 OUT N 1100 OUT O 1776 OUT R 1359 OUT U 870 OUT W 1139 OUT X 1988 OUT _ 478 OUT1 / 1331 OUT1 G 1685 OUT1 N 1484 OUT1 ^ 1331 OUT2 / 1369 OUT2 6 1001 OUT2 9 886 OUT2 R 1441 OUT2 ^ 1369 OUT3 9 981 OUT336 1020 OUTERX 1440 OUTERZ 1484 OUTM1/ 2040 OUTPT7 1733 OUTPT; 2219 OUTQ ; 3703 OUTQA; 4390 OVER M 1118 OVFEX; 2829 OVFLWJ 1973 OVFLWN 1645 OVFLWO 1671 OVR ; 4062 OVR1 ; 3082 OVR9S; 3195 OVRA ; 4357 PACK A 2093 PACK C 1295 PACK H 985 PACK J 1385 PACK2J 1425 PAKSWC 1807 PARAMA 686 PARAMH 686 PAREN0 1618 PARERT 1569 PAROKT 1584 PARSWT 2431 PART2Z 1850 PASS 0 1244 PASS J 2163 PASS K 2195 PASS O 1746 PASS W 1131 PASS X 1007 PAUSE3 1233 PAUSEE 1332 PCHCD/ 838 PCHCD2 838 PCHTS2 984 PCTR ; 2327 PERIOD 154 PETTY/ 2068 PGCTR# 664 PGCTR7 664 PGCTR8 1467 PGCTR_ 664 PGET T 1424 PGNO A 2931 PHEW I 1954 PHEW K 1652 PHEW1K 1659 PHILF0 2815 PHIRT0 2816 PHSE1X 845 PHSE2N 937 PHSE2O 849 PHSE2P 849 PHSE2T 980 PHSE2X 845 PHSE3J 857 PHSE3N 1187 PHSE3O 849 PHSE3X 845 PHSE4N 1187 PICK C 1104 PIOV2/ 2405 PIOV4/ 2413 PKXT A 1969 PLACEM 1937 PLUS ; 3991 PLUS < 1544 PLUS Y 2492 PLUS11 1337 PLUS1L 1226 PLUS4; 3797 PLUSDF 160 PMOV 7 2039 PMOV M 1856 PMOV1C 1213 PMOV2C 1258 PMOV3E 1126 PNOT T 1479 POINT; 4247 POSTVQ 1486 POWER/ 2276 PRDX B 938 PRED F 1694 PRED G 1826 PREP1Z 2439 PRESZK 2444 PRINT. 1257 PRINT8 971 PRINT; 3475 PRINTE 1380 PRINTL 1094 PRMCDA 681 PRMSGA 1190 PRNTNT 250 PRNUMN 1562 PROBFB 1397 PROCE; 3995 PROD A 2199 PROD H 2091 PRODL7 1963 PRTHDA 2267 PRTSW7 2936 PRTXT# 564 PRTXT7 564 PRTXT_ 564 PRZRO; 3484 PSKIPV 1182 PSUDON 1581 PULL1G 1409 PUNCH; 3529 PUNCHE 1375 PURE R 1131 PUT1 B 1620 PUT2 B 1631 PUT3 B 1642 PUT4 B 1653 PUT5 B 1664 PUT6 B 1675 PUT7 B 1686 PUTB I 2224 PUTC I 2438 PUTE M 1090 PUTMIX 1652 PUTN T 2010 PUTS X 1280 PXT / 855 PYNT1; 3850 PZ Y 1779 QERR / 2187 QFTYP; 3933 QFUNC/ 1305 QFUNC^ 1305 QLOOP/ 2125 QRTN / 2099 QSIGN/ 2121 QSTRT/ 2095 QUIT A 2233 QVERRG 1867 QVXT G 1905 RANDMJ 1075 RANDMN 964 RANDMO 1388 RAY A 2103 RCDMK/ 1675 RCDMK^ 1675 RD2 ; 3320 RDCNT2 1585 RDCNTA 837 RDCNTR 1631 RDITP; 3316 RDITPE 1370 RDMSGG 1909 RDOVF/ 1418 RDOVF^ 1418 RDRTB; 1916 RDRTN; 1912 RDTAP2 1085 RDTAP; 1738 RDTAPE 1403 RDTAPR 1171 RDTPS2 931 RDTPX2 1252 RDXERB 1469 RDXT G 1947 READ 2 1074 READ E 1357 READ R 1160 READ2R 1011 READC; 3560 REDUC/ 2140 REDUNG 1859 REFSWT 2530 REG % 1240 RELOCH 2081 RELOCR 1217 RELOKT 1697 RELXTR 1331 REMCKZ 1064 REMOVE 1484 REMV B 996 REPEAT 2306 REPLCE 1314 REPLCV 1150 REPLST 2171 RESET0 2508 RESET1 893 RESETF 1191 RESETX 1068 RESETZ 1590 REST 1 865 RESTOI 1347 RESTRJ 1264 RESTRO 1545 RESTRX 1456 RET ; 1902 RETRN# 938 RETRN2 1070 RETRN4 1178 RETRN9 1176 RETRNT 995 RIGHT7 3088 RIGHTK 2442 RIGHTV 1114 RINX2/ 1519 RINX2^ 1519 RMVCMX 1817 RMVZN; 1973 RON Q 1387 ROOM Z 1361 ROUNDZ 1409 ROWS I 2767 RPLCED 881 RPTB ; 4267 RSTART 2000 RSTRX# 535 RSTRX7 535 RSTRX8 1128 RSTRX_ 535 RSX2 O 1161 RSX3 Z 1487 RTLFTK 1549 RTLFTN 1380 RTN 3 1118 RTN 5 1101 RTN1 / 1165 RTN1 ^ 1165 RTN2 J 1494 RTNA I 1093 RTNB I 1950 RTNLDZ 2348 RTP 6 209 RTPA ; 4261 RTPARI 2212 RTPARJ 1795 RTPARM 1369 RTPART 1541 RTPARX 1272 RTPXL6 930 RTR Z 1463 RTREVE 976 RU68 V 890 RUADR. 1114 RUADRX 1842 RUBADL 1178 RUCGTN 1229 RUCOM0 1228 RUCONK 1216 RUDIF% 1071 RUDUNX 922 RUDUPX 978 RUFIX. 1181 RUFIX0 2207 RUFN I 1487 RUINT0 1836 RUIO T 1352 RUNML/ 2079 RUOK % 1365 RUOK X 1897 RWD E 1425 RWT31; 1928 RWT41; 1967 RWT77; 1983 RWT78; 1990 S K 2342 SATFYA 2381 SAUCEK 2700 SAUCEN 3200 SAUCEO 2600 SAUCEP 2700 SAUCEZ 856 SAV1 A 2838 SAV2 Y 2842 SAVCH; 2016 SAVE ; 2952 SAVE Z 1225 SAVE1; 4264 SAVE1G 1968 SAVE1N 1143 SAVE1X 2080 SAVE1Z 2405 SAVE2; 1996 SAVE2J 856 SAVE33 1616 SAVE3C 2003 SAVE5G 2143 SAVX2O 2057 SAVX37 2962 SAVX3; 1999 SAVX3Y 2689 SBBR1/ 723 SBBR1^ 723 SBBR2/ 815 SBBR2^ 815 SBIX A 2054 SBR 1 1082 SBR A 2154 SBR Q 1494 SBR V 1139 SBR1 A 2020 SBR4 X 1212 SBR6 C 1161 SBRAYI 1743 SBRLTA 2191 SBRX3; 2137 SBSCR0 1347 SBSCRI 1583 SBVRT0 1890 SCALE; 2310 SCAN J 873 SCAN K 986 SCAN Y 1382 SCAN2G 1609 SCAN2Y 1389 SCANRA 2070 SCFB B 1199 SCGEN/ 2208 SCNBL; 3726 SCNBXT 2435 SCNDLV 873 SCNEQY 1216 SEEK J 981 SEEK O 1293 SEEK W 923 SEL A 1310 SEL B 1134 SEND % 1197 SEND 0 1912 SEND J 1272 SEND W 1169 SENLTE 1477 SENSEB 1260 SENSEM 1193 SERCH# 437 SERCH_ 437 SET K 1266 SET1 T 1533 SET3 M 1671 SETN T 1122 SETP 9 1606 SETSWV 974 SETUP3 1084 SETUPA 2305 SETUPK 1002 SETUPX 1634 SETWMM 1540 SETWMR 664 SETX1Z 1396 SETX2T 2272 SHIFT/ 2165 SHIFTE 1026 SIGN / 2139 SIGNF/ 924 SIGNF^ 924 SIGSW; 4283 SINE / 2179 SINF / 2008 SINFUN 903 SIX0 M 1999 SIXTNZ 1663 SKAIO; 1013 SKFIO; 1034 SKGBGV 1023 SKIP 0 1603 SKIP 1 1283 SKIP L 956 SKIP V 1194 SKIP Y 1880 SKIP21 1291 SKIPFH 1605 SKLIO; 957 SKLOZI 1547 SKP ; 3622 SKPAF; 1128 SKPF ; 1177 SKPL ; 1067 SKPSS2 920 SKPSW1 1522 SKPXC6 975 SKPXL2 1241 SKPXL6 988 SLASHA 1535 SLASHT 1636 SLIDEI 1415 SLIDEN 937 SLIDEU 1064 SLIDEW 1064 SLIDEX 942 SLIP X 893 SMALL. 901 SMALL/ 2305 SML / 2245 SMPLEA 2104 SNCS / 2036 SNDM2X 1523 SNDPTX 1001 SNDUMY 1128 SNGL 9 943 SNGL Q 1253 SNSE B 2457 SPACE; 3524 SPACEG 878 SPACEX 2140 SPACEZ 1246 SPCL Q 1284 SPEC 9 1644 SPLITI 1656 SPOT / 250 SPOT ^ 250 SQRTF/ 2000 SQRTFN 879 SQRX / 2264 SQRXT/ 2301 SQUEZZ 1963 SQUOZ< 1572 SQUOZO 1704 SQUOZW 959 START# 337 START% 859 START& 838 START* 838 START. 845 START0 1060 START1 337 START2 884 START3 838 START4 838 START5 838 START6 838 START7 838 START8 838 START9 842 START; 1697 START< 838 STARTA 838 STARTB 838 STARTC 1022 STARTD 838 STARTF 914 STARTG 1115 STARTH 931 STARTI 856 STARTJ 879 STARTK 877 STARTL 898 STARTM 864 STARTN 1205 STARTO 1210 STARTR 934 STARTS 916 STARTU 838 STARTW 854 STARTX 888 STARTY 838 START[ 838 START_ 337 STATEM 2026 STLOCE 83 STMNM/ 1500 STMNM^ 1500 STMNOA 2822 STMNOE 1494 STO 0 913 STODDK 2264 STOP E 1336 STORE1 1237 STORE2 1271 STOREA 1364 STOREZ 853 STOTPR 1423 STR1 / 2191 STR99/ 1115 STR99^ 1115 STREGZ 1918 STRIPM 1717 STRIPO 1414 STRX1Z 1635 STRX2/ 1486 STRX2^ 1486 STRZE/ 1142 STRZE^ 1142 STSUB/ 1206 STSUB^ 1206 SUB C 1096 SUB1 7 2728 SUB1 Y 2657 SUB2 K 1198 SUB3 7 2147 SUB4 / 2119 SUB5 Y 1190 SUBIXA 2355 SUBSC< 2199 SUBSCB 2253 SUBSCK 1176 SUBSCR 191 SUBSWI 2503 SUBSWK 2038 SUBTR/ 1587 SUBTRI 2033 SUBTRJ 1131 SUBTRN 989 SUBTRO 1424 SUBTR^ 1587 SUBXT7 2754 SV1 X 2063 SVGMK; 3431 SVORGG 1181 SVZN M 2028 SVZN X 2060 SW 1 1060 SW1 A 1332 SW1 I 1119 SW1 R 583 SW1 T 2430 SW2X2R 1266 SWA ; 4285 SWAP 7 1575 SWB ; 4284 SWCH N 1583 SWCHAI 956 SWCHAJ 1099 SWCHAK 2272 SWCHBI 1332 SWCHBJ 1731 SWCHCJ 1256 SWCHDJ 2076 SWCHEJ 943 SWCHFJ 1806 SWCHGJ 1739 SWCHSK 2243 SWCHXK 1390 SWCHZK 1404 SWEAT5 955 SWEATY 2254 SWIX2J 1594 SWLWP1 1156 SWM Y 2363 SWOFFX 1608 SWTCH% 1212 SWTCH2 1416 SWTCHQ 998 SWTCHX 1543 SYMB U 1032 SYMBLZ 1694 SYN2RI 1938 SYN2SI 2502 SYNER< 2122 SYNERF 1484 SYNERG 883 SYNERM 1802 SYNTXK 1784 SYS1 & 931 SYS1 * 975 SYS1 / 1417 SYS1 3 1661 SYS1 4 1614 SYS1 9 1758 SYS1 D 1112 SYS1 E 1567 SYS1 F 1845 SYS1 G 1979 SYS1 K 2601 SYS1 U 1324 SYS1 V 1279 SYS1 W 1256 SYS1 X 1265 SYS1 Z 1594 SYS2 1 1573 SYS2 6 1144 SYS2 G 2145 SYS2 H 2273 SYS2 O 1397 SYS2 P 1405 SYS2 Q 1549 SYS2 T 2599 SYS2 X 2197 SYS2 Z 1676 SYS3 N 1689 SYS3 X 1018 SYS4 J 2499 SYS4 N 1726 SYS5 L 1361 SYS6 S 2622 SYSC22 1612 SYSCG. 1469 SYSG 8 1470 SYSGM0 3091 SYSGM7 3103 SYSGM< 2768 SYSGMA 2999 SYSGMY 2873 SYSGMZ 2461 SYSGM[ 1068 SYSL 5 1292 SYSMKC 1427 T1 # 498 T1 _ 498 T2 # 540 T2 _ 540 TABELZ 2499 TABLE7 2241 TABLEC 838 TABLEE 1197 TABLEK 2311 TABLEM 1992 TABLES 2341 TABLEZ 897 TAIL 0 2747 TAIL K 1837 TAKE M 1591 TALLYG 865 TAMAXT 2600 TAMR1T 1599 TAMROF 980 TAPE 9 1710 TBAD2R 1563 TBEGIN 1810 TBKFF1 1013 TBL1 Z 847 TBL2 Z 883 TBLADR 927 TBLR 7 2572 TBOOT# 553 TBOOT_ 553 TCLEAR 710 TEMP 0 2572 TEMP O 2136 TEMP2O 2139 TEMP32 4600 TEMPX1 4603 TEMPX3 4606 TEN A 2536 TERM 1 1204 TEST % 1301 TEST . 1148 TEST / 2150 TEST H 1313 TEST J 1671 TEST K 1435 TEST M 932 TEST1B 1089 TEST1K 1016 TEST1Z 884 TEST2B 1102 TEST2K 1031 TEST2Q 1095 TEST2V 1076 TEST2Z 2435 TEST3Z 2436 TEST5M 1590 TEST5Q 991 TEST5V 1041 TESTAZ 1570 TESTBZ 1590 TESTCZ 1610 TESTET 1998 TESTH; 2332 TESTLA 2061 TFLTWD 4609 THC99/ 2293 THREE/ 2294 THREEZ 838 THRU L 1045 TLGM 9 1282 TLU I 1240 TMPSZS 2552 TMS3 Z 1207 TNMBRB 1598 TOP % 1642 TOP / 201 TOP M 914 TOP Q 1519 TOP R 1641 TOP ^ 201 TOP2 Q 1522 TOTALA 2807 TOTALK 2428 TOVL A 1228 TPAF ; 1194 TPCMND 3388 TPER ; 1211 TPERM# 581 TPERM_ 581 TPERR2 1102 TPERR6 284 TPERR; 3595 TPERRR 1188 TPERX6 947 TPLIO; 1164 TPNAMM 1161 TPSYS; 1059 TRACKK 200 TRAP . 1359 TRAWMZ 1722 TRIGF/ 2000 TRY2 M 1702 TRYITK 972 TSDUNH 1660 TST1 < 1172 TST1 G 1195 TSTAF; 1120 TSTCSZ 1806 TSTFC/ 2371 TSTIOH 838 TSTNDA 1669 TSTWMZ 1404 TSTZNS 1306 TU I 2204 TUBIGH 1566 TUF 7 1328 TUF2 7 1344 TUKIT0 2493 TUMUCH 4253 TUNO 9 1638 TUNO I 1336 TUNO U 1225 TURN G 1592 TURN I 1858 TURN K 1994 TUSW I 2599 TWISTI 2097 TWISTK 1603 TWLV58 1043 TWO A 2513 TWO9 N 1275 TWO9 O 1332 TWO9 P 1307 TWTCH/ 2260 TYPE 0 2870 TYPE1R 993 UNARY7 2672 UNDEFJ 1824 UNDUN; 2007 UNIQ F 1050 UNITS0 2819 UNITSK 1894 UNPAKA 1876 UNPAKN 1200 UNPAKO 1256 UNPAKP 1231 UNREFJ 965 UNREFN 1412 UNREFT 1361 UPBY / 2250 UPDATZ 2196 UPLIMJ 848 UPLIMN 849 UPLIMO 848 UPLIMP 848 UPX1 ; 2629 URFSWT 2562 URZRO; 4155 VARBLI 1992 VARBLM 1283 VBLSWI 2779 VERSEI 2505 VSERRI 1036 VZONEI 2768 VZONEJ 2336 W ; 6+X2 WCTR T 2507 WD ; 6+X2 WITCHM 1224 WK5 A 2653 WK5 O 2071 WK51 A 2648 WK51 O 2208 WKBK1Z 870 WKBK2Z 875 WKBK3Z 1668 WKZON/ 200 WKZON^ 200 WMSW Z 1617 WMTSTZ 1514 WORD # 680 WORDLI 2587 WORK 3 1598 WORK A 2425 WORK B 2422 WORK F 1690 WORK G 849 WORK I 2646 WORK J 2296 WORK K 2363 WORK O 2106 WORK U 893 WORK1M 2009 WORK34 1613 WORK3A 2834 WORK3C 1352 WORK3I 2597 WORK5J 853 WORK6A 2817 WORK9C 1820 WORKBB 2204 WORRYL 968 WORRYM 1026 WORRYN 1321 WORRYY 1109 WOW K 2043 WP 1 1103 WPB 1 1152 WPCS 1 1497 WRAP N 1390 WRDMVZ 1397 WRONGX 1116 WRTAP; 1917 WRTAPE 1412 WT2 ; 3379 WTM ; 3362 WTOTPE 1395 X1 % 89 X1 & 89 X1 * 89 X1 . 89 X1 / 89 X1 0 89 X1 1 89 X1 3 89 X1 4 89 X1 5 89 X1 6 89 X1 7 89 X1 8 89 X1 9 89 X1 ; 89 X1 < 89 X1 A 89 X1 B 89 X1 C 89 X1 D 89 X1 E 89 X1 F 89 X1 G 89 X1 H 89 X1 I 89 X1 J 89 X1 K 89 X1 L 89 X1 M 89 X1 N 89 X1 O 89 X1 P 89 X1 Q 89 X1 R 89 X1 S 89 X1 T 89 X1 U 89 X1 V 89 X1 W 89 X1 X 89 X1 Y 89 X1 Z 89 X1 ^ 89 X2 % 94 X2 . 94 X2 / 94 X2 0 94 X2 1 94 X2 3 94 X2 4 94 X2 5 94 X2 7 94 X2 9 94 X2 ; 94 X2 < 94 X2 A 94 X2 C 94 X2 D 94 X2 E 94 X2 F 94 X2 G 94 X2 H 94 X2 I 94 X2 J 94 X2 K 94 X2 L 94 X2 M 94 X2 N 94 X2 O 94 X2 P 94 X2 Q 94 X2 R 94 X2 S 94 X2 T 94 X2 U 94 X2 V 94 X2 W 94 X2 X 94 X2 Y 94 X2 Z 94 X2 ^ 94 X25 Z 1598 X3 % 99 X3 & 99 X3 * 99 X3 . 99 X3 / 99 X3 0 99 X3 1 99 X3 3 99 X3 4 99 X3 5 99 X3 7 99 X3 8 99 X3 9 99 X3 ; 99 X3 < 99 X3 A 99 X3 F 99 X3 G 99 X3 H 99 X3 I 99 X3 J 99 X3 K 99 X3 L 99 X3 M 99 X3 N 99 X3 O 99 X3 P 99 X3 Q 99 X3 R 99 X3 S 99 X3 T 99 X3 U 99 X3 V 99 X3 W 99 X3 X 99 X3 Y 99 X3 Z 99 X3 ^ 99 X35 Z 1603 X3ANDI 7+X3 XABSVA 122 XATANF 121 XBEGIN 838 XCOMF1 117 XDIV / 1623 XDIV ^ 1623 XDOAD1 111 XDOAD2 112 XDOAD3 113 XDOINI 114 XDOSBS 116 XEUNTK 1683 XEXPON 157 XFIXFU 124 XFLTFU 125 XL1 # 89 XL1 / 89 XL1 7 89 XL1 ; 89 XL1 A 89 XL1 C 89 XL1 E 89 XL1 ^ 89 XL1 _ 89 XL2 # 94 XL2 / 94 XL2 ; 94 XL2 A 94 XL2 C 94 XL2 E 94 XL2 T 94 XL2 ^ 94 XL2 _ 94 XL3 # 99 XL3 / 99 XL3 7 99 XL3 ; 99 XL3 A 99 XL3 C 99 XL3 E 99 XL3 T 99 XL3 ^ 99 XL3 _ 99 XLINKF 139 XLINKS 840 XLINKW 185 XLOGFN 119 XMPY / 1598 XMPY ^ 1598 XNEGTF 123 XNOT T 1281 XOBLST 115 XPANDI 1726 XPMODY 2768 XPN ; 4238 XPNETL 897 XPNUM/ 1684 XPNUM^ 1684 XPON Y 2767 XPONTK 2420 XSINFU 118 XSIZE/ 1530 XSIZE^ 1530 XSQRTF 126 XSUB Y 2513 XTLSTA 2094 XTPSW9 1757 XUSER1 127 XUSER2 128 XUSER3 129 XUSER4 130 XUSER5 131 XUSER6 132 XUSER7 133 XUSER8 134 XUSER9 135 XUSR10 136 XUSR11 137 XUSR12 138 XXPNTL 120 XXX # 0 XXX / 0 XXX 7 0 XXX 8 0 XXX 9 1165 XXX ; 0 XXX T 0 XXX ^ 0 XXX _ 0 XXXX C 0 XXXX E 0 XYZ A 2025 YEAH M 1413 YESIOT 1291 YIPEE6 201 YUSER1 876 YUSER2 873 YUSER3 870 YUSER4 867 YUSER5 864 YUSER6 861 YUSER7 858 YUSER8 855 YUSER9 852 YUSR10 849 YUSR11 846 YUSR12 843 ZA A 2034 ZA1 / 2223 ZADD C 1442 ZAEXP; 4051 ZAFLT; 4077 ZEREX/ 2283 ZERO # 637 ZERO 5 1162 ZERO M 1644 ZERO Y 2500 ZERO _ 637 ZERO4; 3270 ZEROS# 641 ZEROS_ 641 ZEROZJ 2247 ZNA J 1929 ZON19O 1334 ZONCH< 2035 ZOND ; 3963 ZONE . 1243 ZONE 0 2829 ZONE C 1009 ZONE L 1080 ZONE N 1627 ZONE Z 886 ZONESA 2191 ZONESH 2098 ZONESI 2602 ZONESJ 2250 ZONESN 1276 ZONESO 2015 ZONESP 1308 ZONESS 2509 ZONESX 2019 ZONMV/ 1407 ZONMV^ 1407 ZONZ / 2400 ZROSW/ 1684 ZROSW^ 1684