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 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE 102 CTL 6611 103 SFX 3 104 * 105 X1 EQU 89 3 0089 106 X2 EQU 94 3 0094 107 X3 EQU 99 3 0099 108 * 109 * PLACES IN IOP PHASE 110 * 111 WRITE4 EQU 334 WRITE ROUTINE IN PHASE 4 3 0334 112 READ 4 EQU 345 READ ROUTINE IN PHASE 4 3 0345 113 GETX14 EQU 352 WHERE I/O ROUTINES GET PACKET ADR 3 0352 114 TAPZX4 EQU 367 EXIT FROM TAPE I/O IF 11&X1 ZONED 3 0367 115 TAPEX4 EQU 456 EXIT FROM SYSTEM I/O 3 0456 116 EOFX 4 EQU 472 EOF EXIT FROM SYSTEM I/O 3 0472 117 ENTER4 EQU 555 PHASE LOADER 3 0555 118 NEED 4 EQU 925 PHASE ID FOR PHASE LOADER 3 0925 119 * 120 * PLACES IN 00F PHASE 121 * 122 IOR1 EQU 950 FIRST I/O ROUTINE 3 0950 123 IOR1F EQU 961 FIRST I/O ROUTINE EOF EXIT 3 0961 124 IOR1R EQU 979 RESTORE INDEX REGISTER IN I/O 1 3 0979 125 IOR2 EQU 990 SECOND I/O ROUTINE 3 0990 126 IOR2R EQU 1019 RESTORE INDEX REGISTER IN I/O 2 3 1019 127 SWAPR EQU 1111 RESTORE INDEX REGISTER IN SWAP 3 1111 128 HTOP EQU 1156 TOP OF HIGH BUFFER 1X996 3 1156 129 LBP6 EQU 1159 ADDR & 6 OF LOW BUFFER 3 1159 130 RWD1 EQU 1166 REWIND 1 3 1166 131 RWD1R EQU 1182 RECOVER IN RWD1 3 1182 132 NLST EQU 1344 NO LIST IF 1 3 1344 133 LOPKT EQU 1358 ADDRESS OF LOW PACKET 3 1358 134 SUBFNC EQU 1391 S FOR SUBROUTINE, F FOR FUNCTION 3 1391 135 GOTARR EQU 1402 GOT AN ARRAY DECLARATION 3 1402 136 * 137 ORG 1476 3 1476 138 ORG 1776 3 1776 139 1 776 ENTER SBR IOR1F&6,R1EOF 3 7 1776 H 967 P56 4 140 1 783 SBR IOR1R&3,X2 3 7 1783 H 982 094 4 141 1 790 MCW HTOP,X2 3 7 1790 M /56 094 4 142 1 797 SBR IOR2R&3,X3 3 7 1797 H |22 099 4 143 1 804 SBR RWD1R&6,X2 3 7 1804 H /88 094 4 144 1 811 SBR SWAPR&3,X2 3 7 1811 H /14 094 5 145 1 818 MCW LBP6,X3 3 7 1818 M /59 099 5 146 1 825 CW GMWM 3 4 1825 ) M8/ 5 147 1 829 GET.90 B R1 GET A TOKEN 3 4 1829 B ?40 5 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 833 CHK.90 C TOKEN,K.90 TOKEN COMPARE .90 3 7 1833 C Z01 E20 5 149 1 840 BU GET.90 Q. NOT BEGINNING OF STATEMENT 3 5 1840 B Y29 / 5 150 * 151 * AT BEGINNING OF A STATEMENT, .90 TOKEN 152 * 153 1 845 GOT.90 B R1 GET A TOKEN 3 4 1845 B ?40 5 154 1 849 CW DIMSW TURN BRANCH TO CHKTIK OFF 3 4 1849 ) B85 6 155 1 853 SW NONUM TURN ON BRANCH, NUMERIC CHK OFF 3 4 1853 , B38 6 156 1 857 MCW TOKEN,TOKSV 3 7 1857 M Z01 T2V 6 157 1 864 B R1 GET A TOKEN 3 4 1864 B ?40 6 158 1 868 BCE GOT.3X,TOKEN-1,3 3 8 1868 B !27 Z00 3 6 159 1 876 BCE GOT.4X,TOKEN-1,4 3 8 1876 B Z02 Z00 4 6 160 1 884 BCE GOT.2X,TOKEN-1,2 3 8 1884 B Z66 Z00 2 7 161 1 892 B GET.9X 3 4 1892 B Z10 7 162 1 898 ADRTXT DCW #3 ADDRESS OF TOKEN TEXT IN W20 3 3 1898 7 163 1 901 TOKEN DCW #3 3 3 1901 7 164 1 902 GOT.4X BCE SKPLAB,TOKEN,8 Q. TOKEN IS .48, LABEL 3 8 1902 B Z30 Z01 8 7 165 1 910 GET.9X B R1 GET A TOKEN 3 4 1910 B ?40 7 166 1 914 BCE GOT.90,TOKEN-1,9 3 8 1914 B Y45 Z00 9 7 167 1 922 SW 1351 DCW ',T51' 3 4 1922 , T51 8 168 1 926 B GET.9X 3 4 1926 B Z10 8 169 * 170 * SKIP LABEL TOKEN TEXT 171 * 172 1 930 SKPLAB B R1 GET A TOKEN 3 4 1930 B ?40 8 173 1 934 BCE *&5,TOKEN-2,. Q. TOKEN IDENTIFIER 3 8 1934 B Z46 Y99 . 8 174 1 942 B SKPLAB NO, SKIP TOKEN TEXT 3 4 1942 B Z30 8 175 1 946 BCE GOT.3X,TOKEN-1,3 3 8 1946 B !27 Z00 3 8 176 1 954 BCE GOT.90,TOKEN-1,9 .9X IS .90 3 8 1954 B Y45 Z00 9 9 177 1 962 B GET.9X 3 4 1962 B Z10 9 178 * 179 * PROCESS .2X TOKENS 180 * 181 1 966 GOT.2X BCE GOT.28,TOKEN,8 Q. .28 INTEGER FUNCTION 3 8 1966 B Z94 Z01 8 9 182 1 974 BCE GOT.29,TOKEN,9 Q. .29 REAL FUNCTION 3 8 1974 B !16 Z01 9 9 183 1 982 BCE GOT.27,TOKEN,7 Q. .27 LOGICAL FUNCTION 3 8 1982 B !05 Z01 7 9 184 1 990 B GET.9X IGNORE OTHER .2X STATEMENTS 3 4 1990 B Z10 10 185 1 994 GOT.28 MCW KB,TYPE .28 INTEGER FUNCTION 3 7 1994 M 37X K4Z 10 186 2 001 B FUNC 3 4 2001 B K06 10 187 2 005 GOT.27 MCW KK,TYPE .27 LOGICAL FUNCTION 3 7 2005 M 37Z K4Z 10 188 2 012 B FUNC 3 4 2012 B K06 10 189 2 016 GOT.29 MCW KS,TYPE .29 REAL FUNCTION 3 7 2016 M 37Y K4Z 10 190 2 023 B FUNC 3 4 2023 B K06 10 191 * 192 * PROCESS .3X TOKENS 193 * 194 2 027 GOT.3X BCE GOT.34,TOKEN,4 Q. .34 EQUIVALENCE 3 8 2027 B N72 Z01 4 11 195 2 035 TST.32 BCE GOT.32,TOKEN,2 Q. .32 DIMENSION 3 8 2035 B L64 Z01 2 11 196 2 043 BCE GOT.36,TOKEN,6 Q. .36 REAL 3 8 2043 B J39 Z01 6 11 197 2 051 BCE GOT.35,TOKEN,5 Q. .35 INTEGER 3 8 2051 B !99 Z01 5 11 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 2 059 BCE GOT.33,TOKEN,3 Q. .33 COMMON 3 8 2059 B M55 Z01 3 12 199 2 067 BCE GOT.37,TOKEN,7 Q. .37 LOGICAL 3 8 2067 B J28 Z01 7 12 200 2 075 BCE GOT.39,TOKEN,9 Q. .39 EXTERNAL 3 8 2075 B J10 Z01 9 12 201 2 083 BCE GOT.31,TOKEN,1 Q. .31 SUBROUTINE 3 8 2083 B L18 Z01 1 12 202 2 091 BCE GOT.30,TOKEN,0 Q. .30 FUNCTION 3 8 2091 B J99 Z01 0 13 203 * 204 * INTEGER 205 * 206 2 099 GOT.35 MCW KB,TYPE INDICATE INTEGER TYPE 3 7 2099 M 37X K4Z 13 207 2 106 B TYPEL GO PROCESS TYPE DECL LIST 3 4 2106 B J46 13 208 * 209 * EXTERNAL 210 * 211 2 110 GOT.39 MCW KX,KIND INDICATE EXTERNAL NAME 3 7 2110 M E92 E81 13 212 2 117 MCW KB,TYPE INDICATE INTEGER TYPE 3 7 2117 M 37X K4Z 13 213 2 124 B DECLL GO PROCESS DECL LIST 3 4 2124 B J53 13 214 * 215 * LOGICAL 216 * 217 2 128 GOT.37 MCW KK,TYPE INDICATE LOGICAL TYPE 3 7 2128 M 37Z K4Z 14 218 2 135 B TYPEL GO PROCESS TYPE DECL LIST 3 4 2135 B J46 14 219 * 220 * REAL, PROCESS REAL, LOGICAL, EXTERNAL LISTS HERE TOO 221 * 222 2 139 GOT.36 MCW KS,TYPE INDICATE REAL TYPE 3 7 2139 M 37Y K4Z 14 223 2 146 TYPEL MCW KT,KIND INDICATE TYPED NAME 3 7 2146 M E93 E81 14 224 2 153 DECLL B GTXTOK GET TEXT OF TOKEN 3 4 2153 B A46 14 225 2 157 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2157 M Y98 J67 14 226 2 164 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2164 L 000 E58 15 227 2 171 B DECL DECLARE THE NAME IN TKTXT 3 4 2171 B F05 15 228 2 175 BCE GOT.90,TOKEN-1,9 Q. AT END OF STATEMENT 3 8 2175 B Y45 Z00 9 15 229 2 183 C TOKEN,K.08 TOKEN COMPARE .08 3 7 2183 C Z01 E29 15 230 2 190 BU ERR31 Q. TOKEN NOT COMMA 3 5 2190 B E02 / 15 231 2 195 B DECLL 3 4 2195 B J53 15 232 * 233 * FUNCTION WITH OR WITHOUT TYPE PREFIX 234 * 235 2 199 GOT.30 MCW K6B,X20.20 CLEAR DIMENSIONS 3 7 2199 M T1| E78 16 236 2 206 FUNC B GTXTOK GET TEXT OF TOKEN 3 4 2206 B A46 16 237 2 210 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2210 M Y98 K20 16 238 2 217 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2217 L 000 E58 16 239 2 224 MCW KW,KIND INDICATE FUNCTION 3 7 2224 M K5| E81 16 240 2 231 B DECL DECLARE THE NAME IN TKTXT 3 4 2231 B F05 16 241 2 235 LCA W20.6,SUBFNC-1 FIRST SIX CHARS OF NAME 3 7 2235 L E35 T90 17 242 2 242 MCW KF,SUBFNC INDICATE FUNCTION 3 7 2242 M K5/ T91 17 243 2 249 C TOKEN,K.06 TOKEN COMPARE .06 3 7 2249 C Z01 E26 17 244 2 256 BU ERR13 Q. TOKEN NE LEFT PARENTHESIS 3 5 2256 B Q04 / 17 245 * 246 * PROCESS DUMMY ARGUMENT NAME LIST 247 * 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 261 DUMMY B GTXTOK GET TEXT OF TOKEN 3 4 2261 B A46 17 249 2 265 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2265 M Y98 K75 17 250 2 272 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2272 L 000 E58 18 251 2 279 MCW KY,KIND INDICATE DUMMY ARGUMENT NAME 3 7 2279 M K5S E81 18 252 2 286 B DECL DECLARE THE NAME IN TKTXT 3 4 2286 B F05 18 253 2 290 C TOKEN,K.08 TOKEN COMPARE .08 3 7 2290 C Z01 E29 18 254 2 297 BE DUMMY Q. TOKEN EQ COMMA 3 5 2297 B K61 S 18 255 2 302 C TOKEN,K.07 TOKEN COMPARE .07 3 7 2302 C Z01 E23 18 256 2 309 BE GET.90 Q. TOKEN EQ RIGHT PARENTHESIS 3 5 2309 B Y29 S 19 257 2 314 B ERR14 3 4 2314 B D72 19 258 * 259 * SUBROUTINE 260 * 261 2 318 GOT.31 B GTXTOK GET TEXT OF TOKEN 3 4 2318 B A46 19 262 2 322 LCA W20.6,SUBFNC-1 FIRST SIX CHARS OF NAME 3 7 2322 L E35 T90 19 263 2 329 MCW KS2,SUBFNC INDICATE SUBROUTINE 3 7 2329 M E94 T91 19 264 2 336 C TOKEN,K.06 TOKEN COMPARE .06 3 7 2336 C Z01 E26 19 265 2 343 BE DUMMY Q. TOKEN EQ LEFT PARENTHESIS 3 5 2343 B K61 S 19 266 2 348 C TOKEN,K.90 TOKEN COMPARE .90 3 7 2348 C Z01 E20 20 267 2 355 BE GOT.90 Q. TOKEN IS END 3 5 2355 B Y45 S 20 268 2 360 B ERR13 TOKEN NOT END AND NOT LEFT PAREN 3 4 2360 B Q04 20 269 * 270 * DIMENSION 271 * 272 2 364 GOT.32 B GTXTOK GET TEXT OF TOKEN 3 4 2364 B A46 20 273 2 368 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2368 M Y98 L78 20 274 2 375 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2375 L 000 E58 20 275 2 382 C K.06,TOKEN .06 LEFT PAREN COMPARE TOKEN 3 7 2382 C E26 Z01 21 276 2 389 BU ERR31 Q. TOKEN NE LEFT PARENTHESIS 3 5 2389 B E02 / 21 277 2 394 SW DIMSW TURN BRANCH TO CHKTIK ON 3 4 2394 , B85 21 278 2 398 SW GOTARR SET GOT AN ARRAY FLAG 3 4 2398 , U02 21 279 2 402 B GTXTOK GET DIMENSIONS INTO W20 3 4 2402 B A46 21 280 2 406 MCW ADRTXT,*&4 ADDRESS OF DIMENSIONS IN W20 3 7 2406 M Y98 M16 21 281 2 413 LCA 0-0,X20.20 DIMENSIONS TO X20.20 3 7 2413 L 000 E78 21 282 2 420 MCW KS2,KIND INDICATE ARRAY NAME 3 7 2420 M E94 E81 22 283 2 427 B DECL DECLARE THE NAME IN TKTXT 3 4 2427 B F05 22 284 2 431 BCE GOT.90,TOKEN-1,9 Q. END OF STATEMENT 3 8 2431 B Y45 Z00 9 22 285 2 439 C TOKEN,K.08 TOKEN COMPARE .08 3 7 2439 C Z01 E29 22 286 2 446 BE GOT.32 Q. TOKEN EQ COMMA 3 5 2446 B L64 S 22 287 2 451 B ERR31 3 4 2451 B E02 22 288 * 289 * COMMON 290 * 291 2 455 GOT.33 B GTXTOK GET TEXT OF TOKEN 3 4 2455 B A46 22 292 2 459 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2459 M Y98 M69 23 293 2 466 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2466 L 000 E58 23 294 2 473 SW NLST 3 4 2473 , T44 23 295 2 477 LCA K6B,X20.20 CLEAR DIMENSIONS 3 7 2477 L T1| E78 23 296 2 484 C TOKEN,K.06 TOKEN COMPARE .06 3 7 2484 C Z01 E26 23 297 2 491 BE COMDIM Q. TOKEN EQ LEFT PARENTHESIS 3 5 2491 B N38 S 23 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 496 COM2 MCW COMNUM,KIND COMMON COUNTER 3 7 2496 M E91 E81 24 299 2 503 A *-6,COMNUM BUMP COMMON COUNTER 3 7 2503 A N03 E91 24 300 2 510 B DECL DECLARE THE NAME IN TKTXT 3 4 2510 B F05 24 301 2 514 BCE GOT.90,TOKEN-1,9 Q. END OF STATEMENT 3 8 2514 B Y45 Z00 9 24 302 2 522 C TOKEN,K.08 TOKEN COMPARE .08 3 7 2522 C Z01 E29 24 303 2 529 BE GOT.33 Q. TOKEN EQ COMMA 3 5 2529 B M55 S 24 304 2 534 B ERR31 3 4 2534 B E02 25 305 * 306 * NAME DIMENSIONED IN COMMON STATEMENT 307 * 308 2 538 COMDIM SW DIMSW TURN BRANCH TO CHKTIK CHECK ON 3 4 2538 , B85 25 309 2 542 CW NONUM TURN OFF BRANCH, NUMERIC CHK ON 3 4 2542 ) B38 25 310 2 546 B GTXTOK GET TEXT OF TOKEN 3 4 2546 B A46 25 311 2 550 SW GOTARR SET GOT AN ARRAY FLAG 3 4 2550 , U02 25 312 2 554 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2554 M Y98 N64 25 313 2 561 LCA 0-0,X20.20 GET DIMENSIONS TO X20 3 7 2561 L 000 E78 25 314 2 568 B COM2 3 4 2568 B M96 26 315 * 316 * EQUIVALENCE 317 * 318 2 572 GOT.34 SW NEED2 TURN ON NEED PASS 2 FLAG 3 4 2572 , ?39 26 319 2 576 B CHK.90 GET TO BEGINNING OF STMT 3 4 2576 B Y33 26 320 2 580 EQVLP B R1 GET A TOKEN 3 4 2580 B ?40 26 321 2 584 C TOKEN,K.06 TOKEN COMPARE .06 3 7 2584 C Z01 E26 26 322 2 591 BU ERR31 Q. TOKEN NE LEFT PARENTHESIS 3 5 2591 B E02 / 26 323 2 596 SW 3588 DCW ',E88' 3 4 2596 , E88 26 324 2 600 SBR EQVRP&3,ERR31 SET RIGHT PAREN IS ERROR BRANCH 3 7 2600 H O58 E02 27 325 2 607 EQVNXT B GTXTOK GET TEXT OF TOKEN 3 4 2607 B A46 27 326 2 611 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2611 M Y98 O21 27 327 2 618 LCA 0-0,TKTXT GET TEXT OF TOKEN INTO TKTXT 3 7 2618 L 000 E58 27 328 2 625 MCW KQ,KIND 3 7 2625 M E95 E81 27 329 2 632 BCE EQVSUB,TOKEN,6 Q. TOKEN EQ .06 LEFT PAREN 3 8 2632 B P14 Z01 6 28 330 2 640 LCA K1A,X20.20 USE 1 FOR SUBSCRIPT 3 7 2640 L E96 E78 28 331 2 647 SW EQVNS SET EQUIV NO SUBSCRIPT FLAG 3 4 2647 , K5T 28 332 2 651 EQVDEC B DECL DECLARE THE NAME IN TKTXT 3 4 2651 B F05 28 333 2 655 EQVRP BCE EQVC,TOKEN,7 Q. TOKEN EQ .07 RIGHT PAREN 3 8 2655 B O82 Z01 7 28 334 2 663 SBR EQVRP&3,EQVC SET RIGHT PAREN IS NORMAL BRANCH 3 7 2663 H O58 O82 28 335 2 670 BCE EQVNXT,TOKEN,8 Q. TOKEN EQ .08 COMMA 3 8 2670 B O07 Z01 8 29 336 2 678 B ERR31 3 4 2678 B E02 29 337 2 682 EQVC B R1 GET A TOKEN 3 4 2682 B ?40 29 338 2 686 C TOKEN,K.08 TOKEN COMPARE .08 COMMA 3 7 2686 C Z01 E29 29 339 2 693 BU *&5 Q. TOKEN NOT .08 COMMA 3 5 2693 B P02 / 29 340 2 698 B EQVLP GO LOOK OR LEFT PAREN 3 4 2698 B N80 29 341 2 702 BCE EQVFIN,TOKEN-1,9 Q. END OF STATEMENT 3 8 2702 B P48 Z00 9 30 342 2 710 B ERR31 3 4 2710 B E02 30 343 * SUBSCRIPTS IN EQUIVALENCE NAME 344 2 714 EQVSUB SW DIMSW TURN BRANCH TO CHKTIK ON 3 4 2714 , B85 30 345 2 718 CW EQVNS CLEAR EQUIV NO SUBSCRIPT FLAG 3 4 2718 ) K5T 30 346 2 722 CW NONUM TURN OFF BRANCH, NUMERIC CHECK ON 3 4 2722 ) B38 30 347 2 726 B GTXTOK GET TEXT OF TOKEN 3 4 2726 B A46 30 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 2 730 MCW ADRTXT,*&4 ADDRESS OF TOKEN TEXT IN W20 3 7 2730 M Y98 P40 30 349 2 737 LCA 0-0,X20.20 TEXT OF SUBSCRIPTS INTO X20.20 3 7 2737 L 000 E78 31 350 2 744 B EQVDEC 3 4 2744 B O51 31 351 2 748 EQVFIN CW 4350 DCW ')35|' 3 4 2748 ) 35| 31 352 2 752 B GOT.90 3 4 2752 B Y45 31 353 * 354 * EOF ON R1 355 * 356 2 756 R1EOF BW PASS2,NEED2 Q. NEED PASS 2 3 8 2756 V R24 ?39 1 31 357 2 764 MCW X2,HTOP 3 7 2764 M 094 /56 31 358 2 771 MCW X3,LBP6 3 7 2771 M 099 /59 32 359 2 778 MCW K21F,NEED 4 ENTER 3 7 2778 M K5W 925 32 360 2 785 B ENTER4 21F PHASE 3 4 2785 B 555 32 361 * 362 2 789 ERRC33 MCW KC33,ERRTK 3 7 2789 M K5Z T1W 32 363 2 796 B WERR 3 4 2796 B Q19 32 364 2 800 B CHK.90 GET TO BEGINNING OF STMT 3 4 2800 B Y33 32 365 2 804 ERR13 MCW KA13,ERRTK 3 7 2804 M K6S T1W 33 366 2 811 B WERR 3 4 2811 B Q19 33 367 2 815 B GET.90 GET TO BEGINNING OF STMT 3 4 2815 B Y29 33 368 * 369 * OUTPUT .90, SAVED TOKEN, 000, .49, ERROR TOKEN, 0-7-8 $ $ 370 * 371 2 819 WERR SBR WERRX&3 3 4 2819 H R20 33 372 2 823 MCW TOKEN,HTOK SAVE THE TOKEN 3 7 2823 M Z01 R23 33 373 2 830 SWCH BCE TIME2,*&1, UNCONDITIONAL 2ND TIME 3 8 2830 B Q53 Q38 33 374 2 838 MCW COL70,TOKEN 11-6-8-COLON 7 0 TO TOKEN 3 7 2838 M K6V Z01 34 375 2 845 B W2 3 4 2845 B ?88 34 376 2 849 SW SWCH&4 TURN ON BRANCH 3 4 2849 , Q34 34 377 2 853 TIME2 MCW K.90A,TOKEN 3 7 2853 M T2Y Z01 34 378 2 860 SAR TIME2&3 3 4 2860 Q Q56 34 379 2 864 SBR TKOTST&6 3 4 2864 H Q78 34 380 2 868 B W2 3 4 2868 B ?88 34 381 2 872 TKOTST BCE *&5,0,$ 3 8 2872 B Q84 000 $ 35 382 2 880 B TIME2 3 4 2880 B Q53 35 383 2 884 SBR TIME2&3,K.90A 3 7 2884 H Q56 T2Y 35 384 2 891 MCW WEIRD,TOKEN 0-7-8 $ $ 3 7 2891 M T1T Z01 35 385 2 898 B W2 3 4 2898 B ?88 35 386 2 902 MCW HTOK,TOKEN RETRIEVE SAVED TOKEN 3 7 2902 M R23 Z01 35 387 2 909 BCE GOT.90,TOKEN-1,9 3 8 2909 B Y45 Z00 9 36 388 2 917 WERRX B 0 3 4 2917 B 000 36 389 2 923 HTOK DCW #3 3 3 2923 36 390 * 391 * DO SECOND PASS OF PROCESSING FOR EQUIVALENCE 392 * 393 2 924 PASS2 B RWD1 REWIND R1 3 4 2924 B /66 36 394 2 928 CW NEED2 TURN OFF NEED PASS 2 FLAG 3 4 2928 ) ?39 36 395 2 932 SBR GOT.3X&3,EQVLP GO DIRECTLY TO EQVLP ON .34 3 7 2932 H !30 N80 36 396 2 939 LCA SKPLAB,TST.32&4 CHANGE TST.32 TO BRANCH TO 3 7 2939 L Z30 !39 36 397 2 946 LCA GET.90 UNCONDITIONALLY 3 1 2946 L 37 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 947 MCW SWAPR&6,X2 1X996 3 7 2947 M /17 094 37 399 2 954 B GET.90 DCW 'BY29' 3 4 2954 B Y29 37 400 * 401 2 958 MCW KA17,ERRTK 3 7 2958 M K6Y T1W 37 402 2 965 B WERR DCW 'BQ19' 3 4 2965 B Q19 37 403 2 969 MA AM3,X3 3 7 2969 # K7/ 099 37 404 2 976 MCW 25&X1,25&X1 DCW 'M0S50S5' 3 7 2976 M 0S5 0S5 37 405 2 983 SBR *&4 3 4 2983 H R90 38 406 2 987 MCW 0-0,W20.13 3 7 2987 M 000 E42 38 407 2 994 MCW K6B 3 4 2994 M T1| 38 408 2 998 MCW W20.10,TOKEN 3 7 2998 M E39 Z01 38 409 3 005 B W2 DCW 'B?88' 3 4 3005 B ?88 38 410 3 009 MCW W20.13,TOKEN 3 7 3009 M E42 Z01 38 411 3 016 B W2 DCW 'B?88' 3 4 3016 B ?88 38 412 3 020 MCW WEIRD,TOKEN DCW 'MT1TZ01' 3 7 3020 M T1T Z01 39 413 3 027 B W2 DCW 'B?88' 3 4 3027 B ?88 39 414 3 031 B CHK.90 GET TO BEGINNING OF STMT 3 4 3031 B Y33 39 415 3 035 B 2958 DCW 'BR58 ' 3 4 3035 B R58 39 416 3 039 NEED2 DC #1 WM NEEDS 2ND PASS FOR EQUIVALENCE 3 1 3039 39 417 * 418 * GET A TOKEN, READING FROM IOR1 IF NECESSARY 419 * 420 3 040 R1 SBR R1X&3 3 4 3040 H ?87 39 421 3 044 MCW X1,SX1 3 7 3044 M 089 A45 39 422 3 051 C 0&X2,K.EB 3 7 3051 C 0!0 K7U 39 423 3 058 BE IOR1 3 5 3058 B 950 S 40 424 3 063 MCW 0&X2,TOKEN 3 7 3063 M 0!0 Z01 40 425 3 070 SBR X2,3&X2 3 7 3070 H 094 0!3 40 426 3 077 MCW SX1,X1 3 7 3077 M A45 089 40 427 3 084 R1X B 0 3 4 3084 B 000 40 428 * 429 * PUT A TOKEN, WRITING USING IOR2 IF NECESSARY 430 * 431 3 088 W2 SBR W2X&3 3 4 3088 H A42 40 432 3 092 MCW X1,SX1 3 7 3092 M 089 A45 41 433 3 099 C 0&X3,K.EB 3 7 3099 C 0?0 K7U 41 434 3 106 BE IOR2 3 5 3106 B 990 S 41 435 3 111 MCW TOKEN,0&X3 3 7 3111 M Z01 0?0 41 436 3 118 SBR X3,3&X3 3 7 3118 H 099 0?3 41 437 3 125 MCW K2B,TOKEN 3 7 3125 M K7W Z01 42 438 3 132 MCW SX1,X1 3 7 3132 M A45 089 42 439 3 139 W2X B 0 3 4 3139 B 000 42 440 3 145 SX1 DCW #3 3 3 3145 42 441 * 442 * GET TEXT TOKEN INTO W20B AND ITS LOW-ORDER CHARACTER ADDRESS 443 * WITHIN W20B INTO ADRTXT. 444 * 445 3 146 GTXTOK SBR GTXTKX&3 3 4 3146 H C31 42 446 3 150 LCA K20B,X20.20 CLEAR DIMENSIONS 3 7 3150 L K9W E78 42 447 3 157 SW CHAR1 SET FIRST CHAR OF TEXT TOKEN 3 4 3157 , K9X 42 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 3 161 ZA *-6,NCOMMA CLEAR COMMA COUNTER 3 7 3161 ? A61 F04 43 449 3 168 MCW AW20B,MVTOK&6 SET TO BEGINNING OF W20 3 7 3168 M L0| B65 43 450 3 175 NXTXTK MCW AK.08,TKSCH&6 RESET TOKEN SEARCH 3 7 3175 M L0T A92 43 451 3 182 B R1 GET A TOKEN 3 4 3182 B ?40 43 452 3 186 TKSCH C TOKEN,K.08 TOKEN COMPARE .08 .06 .07 .90 3 7 3186 C Z01 E29 43 453 3 193 SBR TKSCH&6 NEXT TOKEN 3 4 3193 H A92 43 454 3 197 SBR TKENDT&6 IN TABLE 3 4 3197 H B12 44 455 3 201 BE TXTKID Q. TOKEN EQ COMMA ( ) END 3 5 3201 B B81 S 44 456 3 206 TKENDT BCE *&5,0,% Q. AT END OF TOKEN TABLE 3 8 3206 B B18 000 % 44 457 3 214 B TKSCH GO LOOK AT NEXT TABLE ENTRY 3 4 3214 B A86 44 458 3 218 BCE ERR31,TOKEN-2,. Q. .X, NOT .08 .06 .07 .90 3 8 3218 B E02 Y99 . 44 459 3 226 SW TOKEN TEXT TOKEN 3 4 3226 , Z01 44 460 3 230 CW CHAR1 CLEAR FIRST CHAR FLAG 3 4 3230 ) K9X 44 461 3 234 B MVTOK 3 4 3234 B B59 45 462 3 238 NONUM DCW @%@ WM HERE TO SUPPRESS NUMERIC CHK 3 1 3238 45 463 3 239 C TOKEN,KZ TOKEN COMPARE Z 3 7 3239 C Z01 L0U 45 464 3 246 BL MVTOK Q. TOKEN IS NUMERIC 3 5 3246 B B59 T 45 465 3 251 CW TOKEN 3 4 3251 ) Z01 45 466 3 255 B ERRC33 3 4 3255 B P89 45 467 3 259 MVTOK MCW TOKEN,W20B MOVE CHARACTER INTO W20 3 7 3259 M Z01 E30 45 468 3 266 MA A001,MVTOK&6 BUMP WHERE TO MOVE NEXT CHARACTER 3 7 3266 # L0X B65 46 469 3 273 CW TOKEN 3 4 3273 ) Z01 46 470 3 277 B NXTXTK NEXT TOKEN, MAYBE MORE TEXT 3 4 3277 B A75 46 471 3 281 TXTKID B CHTKID 3 4 3281 B C47 46 472 3 285 DIMSW DC @%@ WM HERE TO PROCESS DIMENSION 3 1 3285 46 473 3 286 BW ERR31,CHAR1 Q. FIRST CHAR OF TEXT TOKEN 3 8 3286 V E02 K9X 1 46 474 3 294 BWZ ERR19,W20B,2 Q. FIRST CHARACTER UNZONED 3 8 3294 V C32 E30 2 46 475 3 302 C MVTOK&6,AW20.7 CHECK TOKEN LENGTH 3 7 3302 C B65 E52 47 476 3 309 BL ERR20 Q. PAST SIXTH CHARACTER 3 5 3309 B D57 T 47 477 3 314 TXFIN MCW MVTOK&6,ADRTXT SAVE ADDRESS IN W20 3 7 3314 M B65 Y98 47 478 3 321 MA AM1,ADRTXT OF TOKEN TEXT 3 7 3321 # L1| Y98 47 479 3 328 GTXTKX B 0 3 4 3328 B 000 47 480 * 481 3 332 ERR19 MCW KA19,ERRTK 3 7 3332 M L1T T1W 47 482 3 339 B WERR DCW 'BQ19' 3 4 3339 B Q19 48 483 3 343 B CHK.90 GET TO BEGINNING OF STMT 3 4 3343 B Y33 48 484 * 485 * PROCESSING A DIMENSION 486 * CHECK THAT TOKEN AFTER TEXT TOKEN IS COMMA OR RIGHT PAREN 487 * 488 3 347 CHTKID BW ERR31,CHAR1 Q. FIRST CHAR OF TEXT TOKEN 3 8 3347 V E02 K9X 1 48 489 3 355 SW CHAR1 SET FIRST CHAR OF TEXT TOKEN 3 4 3355 , K9X 48 490 3 359 C TOKEN,K.08 TOKEN COMPARE .08 3 7 3359 C Z01 E29 48 491 3 366 BE TXCOM Q. TOKEN EQ COMMA 3 5 3366 B D06 S 48 492 3 371 C TOKEN,K.07 TOKEN COMPARE .07 3 7 3371 C Z01 E23 48 493 3 378 BU ERR31 Q. TOKEN NE RIGHT PARENTHESIS 3 5 3378 B E02 / 49 494 3 383 B R1 GET A TOKEN 3 4 3383 B ?40 49 495 3 387 CW DIMSW TURN BRANCH TO CHKTIK OFF 3 4 3387 ) B85 49 496 3 391 SW NONUM TURN ON BRANCH, NUMERIC CHK OFF 3 4 3391 , B38 49 497 3 395 ZA *-6,NCOMMA CLEAR COMMA COUNTER 3 7 3395 ? C95 F04 49 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 3 402 B TXFIN 3 4 3402 B C14 49 499 * 500 * TOKEN AFTER TEXT IS A COMMA 501 * 502 3 406 TXCOM A *-6,NCOMMA BUMP COMMA COUNTER 3 7 3406 A D06 F04 49 503 3 413 BCE ERR00,NCOMMA,C Q. COMMA COUNTER EQ 3 3 8 3413 B D39 F04 C 50 504 3 421 LCA KCOMMA,TOKEN 3 7 3421 L L1U Z01 50 505 3 428 MCW KLPAR,X20.6 3 7 3428 M L1V E64 50 506 3 435 B MVTOK STORE THE COMMA IN W20B 3 4 3435 B B59 50 507 * 508 3 439 ERR00 MCW KA00,ERRTK ERROR A00 TOO MANY DIMENSIONS 3 7 3439 M D56 T1W 50 509 3 446 B WERR 3 4 3446 B Q19 50 510 3 450 B CHK.90 GET TO BEGINNING OF STMT 3 4 3450 B Y33 51 511 3 456 KA00 DCW @A00@ 3 3 3456 51 512 3 457 ERR20 MCW KA20,ERRTK ERROR 20 NAME TOO LONG 3 7 3457 M L1Y T1W 51 513 3 464 B WERR 3 4 3464 B Q19 51 514 3 468 B CHK.90 GET TO BEGINNING OF STMT 3 4 3468 B Y33 51 515 3 472 ERR14 MCW KA14,ERRTK 3 7 3472 M L2/ T1W 51 516 3 479 B WERR 3 4 3479 B Q19 51 517 3 483 B CHK.90 GET TO BEGINNING OF STMT 3 4 3483 B Y33 52 518 3 487 MCW KA16,ERRTK 3 7 3487 M L2U T1W 52 519 3 494 B WERR 3 4 3494 B Q19 52 520 3 498 B CHK.90 GET TO BEGINNING OF STMT 3 4 3498 B Y33 52 521 3 502 ERR31 MCW KA31,ERRTK 3 7 3502 M L2X T1W 52 522 3 509 B WERR 3 4 3509 B Q19 52 523 3 513 B CHK.90 GET TO BEGINNING OF STMT 3 4 3513 B Y33 52 524 3 517 DCW @%@ END OF TABLE SENTINEL 3 1 3517 53 525 3 520 K.90 DCW @.90@ 3 3 3520 53 526 3 523 K.07 DCW @.07@ RIGHT PARENTHESIS 3 3 3523 53 527 3 526 K.06 DCW @.06@ LEFT PARENTHESIS 3 3 3526 53 528 3 529 K.08 DCW @.08@ COMMA OR IMPLIED COMMA AFTER NH 3 3 3529 53 529 3 530 W20B DA 1X20,C BEGINNING OF 20 CHARACTER BUFFER 3 3530 3549 53 530 3 535 W20.6 6 3 3535 SBFLD 531 3 536 W20.7 7 3 3536 SBFLD 532 3 537 W20.10 10 3 3539 SBFLD 533 3 539 W20.11 11 3 3540 SBFLD 534 3 542 W20.13 13 3 3542 SBFLD 535 3 549 W20 20 3 3549 SBFLD 536 3 552 AW20.7 DSA W20.7 3 3 3552 E36 53 537 3 558 TKTXT DCW #6 TOKEN TEXT, RIGHT JUSTIFIED 3 6 3558 54 538 3 559 X20B DA 1X20,C DIMENSIONS HERE 3 3559 3578 54 539 3 564 X20.6 6 LEFT PAREN IF MORE THAN ONE DIM 3 3564 SBFLD 540 3 578 X20.20 20 3 3578 SBFLD 541 3 581 KIND DCW #3 Q EQUIVALENCE NAME, S ARRAY NAME, T TYPE NAME 3 3 3581 54 542 * W FUNCTION NAME, X EXTERNAL NAME, Y DUMMY ARGUMENT 543 3 588 DCW #7 3 7 3588 54 544 3 591 COMNUM DCW 001 COMMON COUNTER 3 3 3591 54 545 3 592 KX DCW @X@ 3 1 3592 55 546 3 593 KT DCW @T@ 3 1 3593 55 547 3 594 KS2 DCW @S@ 3 1 3594 55 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 548 3 595 KQ DCW @Q@ 3 1 3595 55 549 3 596 K1A DCW 1 3 1 3596 55 550 3 599 DCW #3 3 3 3599 55 551 3 602 DCW #3 3 3 3602 55 552 3 604 NCOMMA DCW &00 COMMA COUNTER 3 2 3604 56 553 * 554 * DECLARE A NAME THAT APPEARS IN EXTERNAL, REAL, INTEGER, LOGICAL 555 * EQUIVALENCE, OR COMMON STATEMENT, AS A FUNCTION NAME, OR AS A 556 * DUMMY ARGUMENT. 557 * 558 3 605 DECL SBR DECLX&3 3 4 3605 H G95 56 559 3 609 SW3 B DECL1 3 4 3609 B H85 56 560 3 613 SETLO SBR X1,0-0 LOPKT WAS PUT INTO B-ADDR FIELD 3 7 3613 H 089 000 56 561 3 620 SBR LOOK&3 3 4 3620 H F70 56 562 3 624 B LOOK2 3 4 3624 B F51 56 563 3 628 LOOKL C KB18,0&X1 3 7 3628 C 36Y 0|0 56 564 3 635 SBR X1 3 4 3635 H 089 57 565 3 639 SBR LOOK&3 3 4 3639 H F70 57 566 3 643 BCE CHK33,0&X1,% 3 8 3643 B H21 0|0 % 57 567 3 651 LOOK2 C TKTXT,0&X1 3 7 3651 C E58 0|0 57 568 3 658 SBR X1 3 4 3658 H 089 57 569 3 662 BU LOOKL 3 5 3662 B F28 / 57 570 3 667 LOOK C 0-0,TKTXT 3 7 3667 C 000 E58 57 571 3 674 BU LOOKL 3 5 3674 B F28 / 58 572 3 679 MCW 0&X1,0&X1 3 7 3679 M 0|0 0|0 58 573 3 686 SBR X1 3 4 3686 H 089 58 574 3 690 DECLT BCE TYPNAM,KIND,T Q. TYPED NAME 3 8 3690 B I10 E81 T 58 575 3 698 BCE ARRNAM,KIND,S Q. ARRAY NAME 3 8 3698 B G54 E81 S 58 576 3 706 BCE EQVNAM,KIND,Q Q. EQUIVALENCE NAME 3 8 3706 B I98 E81 Q 59 577 3 714 BCE EXTNAM,KIND,X Q. EXTERNAL NAME 3 8 3714 B I40 E81 X 59 578 3 722 BCE DUMARG,KIND,Y Q. DUMMY ARGUMENT 3 8 3722 B I69 E81 Y 59 579 3 730 BCE DCLDIM,KIND,V Q. WORKING ON DIMENSIONS 3 8 3730 B I80 E81 V 59 580 3 738 BCE FNCNAM,KIND,W Q. FUNCTION NAME 3 8 3738 B I51 E81 W 60 581 3 746 BCE ARR2,X20.20, Q. NO DIMENSIONS IN X20 3 8 3746 B G66 E78 60 582 * 583 * ARRAY NAME 584 * 585 3 754 ARRNAM B DODIM PROCESS DIMENSIONS 3 4 3754 B T2Z 60 586 3 758 BCE ARR3,KIND,S ARRAY NAME 3 8 3758 B G85 E81 S 60 587 3 766 ARR2 BCE *&5,16&X1, 3 8 3766 B G78 0/6 60 588 3 774 B ERR01 3 4 3774 B G96 61 589 3 778 MCW KIND,16&X1 3 7 3778 M E81 0/6 61 590 3 785 ARR3 MCW K6B-5,X20.6 ONE BLANK 3 7 3785 M T0V E64 61 591 3 792 DECLX B 0-0 3 4 3792 B 000 61 592 3 796 ERR01 MCW KA01,ERRTK 3 7 3796 M H20 T1W 61 593 3 803 B WERR 3 4 3803 B Q19 61 594 3 807 MA AM1,COMNUM DECREMENT COMMON COUNTER 3 7 3807 # L1| E91 62 595 3 814 B ARR3 3 4 3814 B G85 62 596 3 820 KA01 DCW @A01@ 3 3 3820 62 597 3 821 CHK33 BCE ERR33,0&X1,| 3 8 3821 B Y8V 0|0 | 62 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 598 3 829 CHAIN 23 MACRO 599 BCE 3 1 3829 B GEN 62 600 BCE 3 1 3830 B GEN 62 601 BCE 3 1 3831 B GEN 62 602 BCE 3 1 3832 B GEN 63 603 BCE 3 1 3833 B GEN 63 604 BCE 3 1 3834 B GEN 63 605 BCE 3 1 3835 B GEN 63 606 BCE 3 1 3836 B GEN 63 607 BCE 3 1 3837 B GEN 63 608 BCE 3 1 3838 B GEN 63 609 BCE 3 1 3839 B GEN 64 610 BCE 3 1 3840 B GEN 64 611 BCE 3 1 3841 B GEN 64 612 BCE 3 1 3842 B GEN 64 613 BCE 3 1 3843 B GEN 64 614 BCE 3 1 3844 B GEN 64 615 BCE 3 1 3845 B GEN 64 616 BCE 3 1 3846 B GEN 65 617 BCE 3 1 3847 B GEN 65 618 BCE 3 1 3848 B GEN 65 619 BCE 3 1 3849 B GEN 65 620 BCE 3 1 3850 B GEN 65 621 BCE 3 1 3851 B GEN 65 622 3 852 LCA TKTXT,0&X1 3 7 3852 L E58 0|0 65 623 3 859 SBR X1 3 4 3859 H 089 66 624 3 863 LCA KB18,0&X1 3 7 3863 L 36Y 0|0 66 625 3 870 SBR X1 3 4 3870 H 089 66 626 3 874 MCW KLPAR,0&X1 3 7 3874 M L1V 0|0 66 627 3 881 B DECLT 3 4 3881 B F90 66 628 * 629 * FIRST TIME PROCESSING FOR DECL ROUTINE 630 * 631 3 885 DECL1 MCW LOPKT,SETLO&6 3 7 3885 M T58 F19 66 632 3 892 MCW KNOP,SW3 3 7 3892 M L2Y F09 67 633 3 899 MCW LOPKT,X1 3 7 3899 M T58 089 67 634 3 906 B CHK33 3 4 3906 B H21 67 635 * 636 * TYPED NAME 637 * 638 3 910 TYPNAM BWZ TYPNM2,18&X1,2 3 8 3910 V I29 0/8 2 67 639 3 918 MCW KA23,ERRTK 3 7 3918 M 37/ T1W 67 640 3 925 B WERR 3 4 3925 B Q19 67 641 3 929 TYPNM2 MZ TYPE,18&X1 3 7 3929 Y K4Z 0/8 68 642 3 936 B ARR3 3 4 3936 B G85 68 643 * 644 * EXTERNAL NAME 645 * 646 3 940 EXTNAM MN *-6,18&X1 *-6 IS D 3 7 3940 D I40 0/8 68 647 3 947 B ARR3 3 4 3947 B G85 68 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 648 * 649 * FUNCTION NAME 650 * 651 3 951 FNCNAM MN K0,18&X1 3 7 3951 D L2Z 0/8 68 652 3 958 MN K1A,17&X1 3 7 3958 D E96 0/7 68 653 3 965 B TYPNM2 3 4 3965 B I29 69 654 * 655 * DUMMY ARGUMENT 656 * 657 3 969 DUMARG MZ DECL1,17&X1 B ZONE 3 7 3969 Y H85 0/7 69 658 3 976 B ARR3 3 4 3976 B G85 69 659 * 660 * COME HERE IF WORKING ON DIMENSIONS 661 * 662 3 980 DCLDIM MN K1,17&X1 3 7 3980 D L3| 0/7 69 663 3 987 MN K0,18&X1 3 7 3987 D L2Z 0/8 69 664 3 994 B DIM2 3 4 3994 B X1X 69 665 * 666 * EQUIVALENCE NAME 667 * 668 3 998 EQVNAM BWZ *&12,17&X1,2 3 8 3998 V 01X 0/7 2 70 669 4 006 MCW KA22,ERRTK 3 7 4006 M L3T T1W 70 670 4 013 B WERR 3 4 4013 B Q19 70 671 4 017 BW QNOSUB,EQVNS Q. EQUIV NAME WITHOUT SUBSCRIPT 3 8 4017 V 05V K5T 1 70 672 4 025 MN 18&X1,*&8 3 7 4025 D 0/8 03Z 70 673 4 032 BCE QNOSUB,K2, 3 8 4032 B 05V L3U 71 674 4 040 MCW KA17,ERRTK 3 7 4040 M K6Y T1W 71 675 4 047 B WERR 3 4 4047 B Q19 71 676 4 051 B CHK.90 GET TO BEGINNING OF STMT 3 4 4051 B Y33 71 677 * 678 * EQUIVALENCE NAME WITHOUT SUBSCRIPTS 679 * 680 4 055 QNOSUB BW 4261,3588 DCW 'V26/E881' 3 8 4055 V 26/ E88 1 71 681 4 063 C 5&X1,K5B 3 7 4063 C 0|5 L3Z 71 682 4 070 BE 4279 DCW 'B27ZS' 3 5 4070 B 27Z S 72 683 4 075 BCE 4087,1&X1, DCW 'B08X0|1 ' 3 8 4075 B 08X 0|1 72 684 4 083 B 4290 DCW 'B29|' 3 4 4083 B 29| 72 685 4 087 SBR 4346,5&X1 DCW 'H34W0|5' 3 7 4087 H 34W 0|5 72 686 4 094 C 4349,4346 DCW 'C34Z34W' 3 7 4094 C 34Z 34W 72 687 4 101 BU 4118 DCW 'B11Y/' 3 5 4101 B 11Y / 72 688 4 106 BWZ ARR3,KIND,2 DCW 'VG85E812' 3 8 4106 V G85 E81 2 73 689 4 114 B 4290 DCW 'B29|' 3 4 4114 B 29| 73 690 4 118 MCW X1,3599 DCW 'M089E99' 3 7 4118 M 089 E99 73 691 4 125 MCW 5&X1,X1 DCW 'M0|5089' 3 7 4125 M 0|5 089 73 692 4 132 BCE 4188,11&X1, DCW 'B18Y0/1 ' 3 8 4132 B 18Y 0/1 73 693 4 140 MCW 3599,X1 DCW 'ME99089' 3 7 4140 M E99 089 74 694 4 147 BCE 4188,16&X1, DCW 'B18Y0/6 ' 3 8 4147 B 18Y 0/6 74 695 4 155 MCW KA21,ERRTK 3 7 4155 M L4S T1W 74 696 4 162 B WERR DCW 'BQ19' 3 4 4162 B Q19 74 697 4 166 MCW 3599,X1 DCW 'ME99089' 3 7 4166 M E99 089 74 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 698 4 173 MCW K6B,10&X1 DCW 'MT1|0/0' 3 7 4173 M T1| 0/0 75 699 4 180 MCW K6B DCW 'MT1|' 3 4 4180 M T1| 75 700 4 184 B ARR3 DCW 'BG85' 3 4 4184 B G85 75 701 4 188 MCW 3599,X1 DCW 'ME99089' 3 7 4188 M E99 089 75 702 4 195 BCE 4290,16&X1, DCW 'B29|0/6 ' 3 8 4195 B 29| 0/6 75 703 4 203 MCW 5&X1,4346 DCW 'M0|534W' 3 7 4203 M 0|5 34W 75 704 4 210 MCW 4346,4220 DCW 'M34W22|' 3 7 4210 M 34W 22| 76 705 4 217 MCW 0,5&X1 DCW 'M0000|5' 3 7 4217 M 000 0|5 76 706 4 224 SBR 4349,5&X1 DCW 'H34Z0|5' 3 7 4224 H 34Z 0|5 76 707 4 231 MCW 4346,4244 DCW 'M34W24U' 3 7 4231 M 34W 24U 76 708 4 238 MCW 4346,0 DCW 'M34W000' 3 7 4238 M 34W 000 76 709 4 245 MCW K2B DCW 'MK7W' 3 4 4245 M K7W 76 710 4 249 BCE 4302,KIND,Q Q. EQUIVALENCE NAME 3 8 4249 B 30S E81 Q 77 711 4 257 B 5900 DCW 'BZ0|' 3 4 4257 B Z0| 77 712 4 261 SBR 4349,5&X1 DCW 'H34Z0|5' 3 7 4261 H 34Z 0|5 77 713 4 268 CW 4350,3588 DCW ')35|E88' 3 7 4268 ) 35| E88 77 714 4 275 B 4063 DCW 'B06T' 3 4 4275 B 06T 77 715 4 279 MCW 4349,5&X1 DCW 'M34Z0|5' 3 7 4279 M 34Z 0|5 77 716 4 286 B 4075 DCW 'B07V' 3 4 4286 B 07V 78 717 4 290 C 10&X1,K5B DCW 'C0/0L3Z' 3 7 4290 C 0/0 L3Z 78 718 4 297 BU 4446 DCW 'B44W/' 3 5 4297 B 44W / 78 719 4 302 BCE 4662,X20.6,% DCW 'B66SE64%' 3 8 4302 B 66S E64 % 78 720 4 310 ZA X20.20,4728 DCW '?E7872Y' 3 7 4310 ? E78 72Y 78 721 4 317 S K1,4728 DCW 'SL3|72Y' 3 7 4317 S L3| 72Y 78 722 4 324 BW 4610,4718 DCW 'V61|71Y1' 3 8 4324 V 61| 71Y 1 79 723 4 332 BW 4380,4350 DCW 'V38|35|1' 3 8 4332 V 38| 35| 1 79 724 4 340 B 4395 DCW 'B39V' 3 4 4340 B 39V 79 725 4 346 DCW #3 3 3 4346 79 726 4 349 DCW #3 3 3 4349 79 727 4 350 DCW #1 3 1 4350 79 728 4 368 KB18 DCW #18 3 18 4368 80 729 4 371 KA23 DCW @A23@ 3 3 4371 80 730 4 376 DCW @00000@ 3 5 4376 80 731 4 377 KB DCW @B@ 3 1 4377 80 732 4 378 KS DCW @S@ 3 1 4378 80 733 4 379 KK DCW @K@ 3 1 4379 80 734 4 380 S 5304,4728 DCW 'ST0U72Y' 3 7 4380 S T0U 72Y 80 735 4 387 BW 4610,4681 DCW 'V61|68/1' 3 8 4387 V 61| 68/ 1 81 736 4 395 BCE 4435,13&X1, DCW 'B43V0/3 ' 3 8 4395 B 43V 0/3 81 737 4 403 MCW 13&X1,3602 DCW 'M0/3F02' 3 7 4403 M 0/3 F02 81 738 4 410 MA A4,3602 DCW '#L4VF02' 3 7 4410 # L4V F02 81 739 4 417 MCW 3602,4427 DCW 'MF0242X' 3 7 4417 M F02 42X 81 740 4 424 ZA 0,4733 DCW '?00073T' 3 7 4424 ? 000 73T 82 741 4 431 B 5097 DCW 'B|9X' 3 4 4431 B |9X 82 742 4 435 ZA A001,4733 DCW '?L0X73T' 3 7 4435 ? L0X 73T 82 743 4 442 B 5097 DCW 'B|9X' 3 4 4442 B |9X 82 744 4 446 BW 4465,4350 DCW 'V46V35|1' 3 8 4446 V 46V 35| 1 82 745 4 454 SW 4350,4718 DCW ',35|71Y' 3 7 4454 , 35| 71Y 82 746 4 461 B 4302 DCW 'B30S' 3 4 4461 B 30S 83 747 4 465 BCE 4554,1&X1, DCW 'B55U0|1 ' 3 8 4465 B 55U 0|1 83 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 748 4 473 SBR 4680,5&X1 DCW 'H68|0|5' 3 7 4473 H 68| 0|5 83 749 4 480 C 4680,4349 DCW 'C68|34Z' 3 7 4480 C 68| 34Z 83 750 4 487 BE 4565 DCW 'B56VS' 3 5 4487 B 56V S 83 751 4 492 MCW 4349,4680 DCW 'M34Z68|' 3 7 4492 M 34Z 68| 83 752 4 499 MA 6348,4680 DCW '#L4Y68|' 3 7 4499 # L4Y 68| 84 753 4 506 MCW 4680,4519 DCW 'M68|51Z' 3 7 4506 M 68| 51Z 84 754 4 513 BCE 4546,0, DCW 'B54W000 ' 3 8 4513 B 54W 000 84 755 4 521 MCW 4349,5&X1 DCW 'M34Z0|5' 3 7 4521 M 34Z 0|5 84 756 4 528 MCW K2B DCW 'MK7W' 3 4 4528 M K7W 84 757 4 532 MA 6351,4680 DCW '#L5/68|' 3 7 4532 # L5/ 68| 85 758 4 539 MCW 4680,4349 DCW 'M68|34Z' 3 7 4539 M 68| 34Z 85 759 4 546 SW 4681 DCW ',68/' 3 4 4546 , 68/ 85 760 4 550 B 4302 DCW 'B30S' 3 4 4550 B 30S 85 761 4 554 MCW 5&X1,4680 DCW 'M0|568|' 3 7 4554 M 0|5 68| 85 762 4 561 B 4480 DCW 'B48|' 3 4 4561 B 48| 85 763 4 565 SW 4718,6083 DCW ',71Y!8T' 3 7 4565 , 71Y !8T 86 764 4 572 MCW 5304,6088 DCW 'MT0U!8Y' 3 7 4572 M T0U !8Y 86 765 4 579 B 4302 DCW 'B30S' 3 4 4579 B 30S 86 766 4 583 CW 6083 DCW ')!8T' 3 4 4583 ) !8T 86 767 4 587 C 5304,6088 DCW 'CT0U!8Y' 3 7 4587 C T0U !8Y 86 768 4 594 BE ARR3 DCW 'BG85S' 3 5 4594 B G85 S 86 769 4 599 MCW KA24,ERRTK 3 7 4599 M 71X T1W 87 770 4 606 B WERR DCW 'BQ19' 3 4 4606 B Q19 87 771 4 610 MCW 4728,4723 DCW 'M72Y72T' 3 7 4610 M 72Y 72T 87 772 4 617 SW 6&X1 DCW ',0|6' 3 4 4617 , 0|6 87 773 4 621 S 10&X1,4728 DCW 'S0/072Y' 3 7 4621 S 0/0 72Y 87 774 4 628 CW 6&X1 DCW ')0|6' 3 4 4628 ) 0|6 87 775 4 632 ZA 4728,5304 DCW '?72YT0U' 3 7 4632 ? 72Y T0U 88 776 4 639 MCW 4723,4728 DCW 'M72T72Y' 3 7 4639 M 72T 72Y 88 777 4 646 CW 4718 DCW ')71Y' 3 4 4646 ) 71Y 88 778 4 650 BW 4583,6083 DCW 'V58T!8T1' 3 8 4650 V 58T !8T 1 88 779 4 658 B 5203 DCW 'BS0T' 3 4 4658 B S0T 88 780 4 662 BCE 4674,13&X1, DCW 'B67U0/3 ' 3 8 4662 B 67U 0/3 88 781 4 670 B 4734 DCW 'B73U' 3 4 4670 B 73U 89 782 4 674 B 2958 DCW 'BR58' 3 4 4674 B R58 89 783 4 681 DCW #4 3 4 4681 89 784 4 701 DCW #20 3 20 4701 89 785 4 714 SAVEX DCW #13 SAVE ALL INDEX REGISTERS HERE 3 13 4714 90 786 4 717 KA24 DCW @A24@ 3 3 4717 90 787 4 718 DC #1 3 1 4718 90 788 4 723 DCW #5 3 5 4723 90 789 4 728 DCW #5 3 5 4728 90 790 4 733 DCW #5 3 5 4733 90 791 4 734 MCW 13&X1,4680 DCW 'M0/368|' 3 7 4734 M 0/3 68| 90 792 4 741 MCW X3,SAVEX SAVE ALL 3 7 4741 M 099 71U 91 793 4 748 MCW INDEX 3 1 4748 M 91 794 4 749 MCW REGISTERS 3 1 4749 M 91 795 4 750 MCW 4680,4760 DCW 'M68|76|' 3 7 4750 M 68| 76| 91 796 4 757 MCM 0,4682 DCW 'P00068S' 3 7 4757 P 000 68S 91 797 4 764 SBR X3,4682 DCW 'H09968S' 3 7 4764 H 099 68S 91 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 798 4 771 SBR 4841,4889 DCW 'H84/88Z' 3 7 4771 H 84/ 88Z 91 799 4 778 SBR 4852 DCW 'H85S' 3 4 4778 H 85S 92 800 4 782 SBR X1,X20.20 DCW 'H089E78' 3 7 4782 H 089 E78 92 801 4 789 SBR X2 DCW 'H094' 3 4 4789 H 094 92 802 4 793 MCW 4376,4884 DCW 'M37W88U' 3 7 4793 M 37W 88U 92 803 4 800 MCW 4376 DCW 'M37W' 3 4 4800 M 37W 92 804 4 804 BW 4891,0&X2 DCW 'V89/0!01' 3 8 4804 V 89/ 0!0 1 92 805 4 812 BCE 4831,0&X2,, DCW 'B83/0!0,' 3 8 4812 B 83/ 0!0 , 93 806 4 820 MA AM1,X2 DCW '#L1|094' 3 7 4820 # L1| 094 93 807 4 827 B 4804 DCW 'B80U' 3 4 4827 B 80U 93 808 4 831 SW 1&X2 DCW ',0!1' 3 4 4831 , 0!1 93 809 4 835 ZA 0&X1,4889 DCW '?0|088Z' 3 7 4835 ? 0|0 88Z 93 810 4 842 SBR 4841 DCW 'H84/' 3 4 4842 H 84/ 93 811 4 846 S A001,4889 DCW 'SL0X88Z' 3 7 4846 S L0X 88Z 94 812 4 853 SBR 4852 DCW 'H85S' 3 4 4853 H 85S 94 813 4 857 MA AM1,X2 DCW '#L1|094' 3 7 4857 # L1| 094 94 814 4 864 MCW X2,X1 DCW 'M094089' 3 7 4864 M 094 089 94 815 4 871 B 4804 DCW 'B80U' 3 4 4871 B 80U 94 816 4 879 DCW #5 3 5 4879 94 817 4 884 DCW #5 3 5 4884 94 818 4 889 DCW #5 3 5 4889 95 819 4 890 DCW @|@ 3 1 4890 95 820 4 891 LCA 4852,4915 DCW 'L85S91V' 3 7 4891 L 85S 91V 95 821 4 898 LCA 4841 DCW 'L84/' 3 4 4898 L 84/ 95 822 4 902 ZA 0&X1,4889 DCW '?0|088Z' 3 7 4902 ? 0|0 88Z 95 823 4 909 S A001,4889 DCW 'SL0X88Z' 3 7 4909 S L0X 88Z 95 824 4 916 SBR X2,4889 DCW 'H09488Z' 3 7 4916 H 094 88Z 95 825 4 923 MCW 6356,4728 DCW 'ML5W72Y' 3 7 4923 M L5W 72Y 96 826 4 930 SW 5&X3,10&X3 DCW ',0?50A0' 3 7 4930 , 0?5 0A0 96 827 4 937 ZA 0&X2,W5B DCW '?0!0!9Y' 3 7 4937 ? 0!0 !9Y 96 828 4 944 SAR X2 DCW 'Q094' 3 4 4944 Q 094 96 829 4 948 BCE 5003,10&X3,| DCW 'B|0T0A0|' 3 8 4948 B |0T 0A0 | 96 830 4 956 ZA 14&X3,W5A DCW '?0A4!9T' 3 7 4956 ? 0A4 !9T 97 831 4 963 C W5B,6356 DCW 'C!9YL5W' 3 7 4963 C !9Y L5W 97 832 4 970 BE 4992 DCW 'B99SS' 3 5 4970 B 99S S 97 833 4 975 B MULT MULTIPLY 3 4 4975 B J2W 97 834 4 981 DSA W5A W5A * W5B 3 3 4981 !9T 97 835 4 984 DSA W5B GIVING W5B 3 3 4984 !9Y 97 836 4 985 A W5B,4728 DCW 'A!9Y72Y' 3 7 4985 A !9Y 72Y 97 837 4 992 ZA 0&X2,W5B DCW '?0!0!9Y' 3 7 4992 ? 0!0 !9Y 98 838 4 999 SAR X2 DCW 'Q094' 3 4 4999 Q 094 98 839 5 003 ZA 9&X3,W5A DCW '?0?9!9T' 3 7 5003 ? 0?9 !9T 98 840 5 010 C W5B,6356 DCW 'C!9YL5W' 3 7 5010 C !9Y L5W 98 841 5 017 BE 5039 DCW 'B|3ZS' 3 5 5017 B |3Z S 98 842 5 022 B MULT MULTIPLY 3 4 5022 B J2W 98 843 5 028 DSA W5A W5A * W5B 3 3 5028 !9T 98 844 5 031 DSA W5B GIVING W5B 3 3 5031 !9Y 99 845 5 032 A W5B,4728 DCW 'A!9Y72Y' 3 7 5032 A !9Y 72Y 99 846 5 039 A 0&X2,4728 DCW 'A0!072Y' 3 7 5039 A 0!0 72Y 99 847 5 046 MCW 4&X3,4733 DCW 'M0?473T' 3 7 5046 M 0?4 73T 99 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 848 5 053 MCW SAVEX,X3 RESTORE 3 7 5053 M 71U 099 99 849 5 060 MCW ALL INDEX 3 1 5060 M 99 850 5 061 MCW REGISTERS 3 1 5061 M 99 851 5 062 BW 4610,4718 DCW 'V61|71Y1' 3 8 5062 V 61| 71Y 1 100 852 5 070 BW 5082,4350 DCW 'V|8S35|1' 3 8 5070 V |8S 35| 1 100 853 5 078 B 5097 DCW 'B|9X' 3 4 5078 B |9X 100 854 5 082 S 5304,4728 DCW 'ST0U72Y' 3 7 5082 S T0U 72Y 100 855 5 089 BW 4610,4681 DCW 'V61|68/1' 3 8 5089 V 61| 68/ 1 100 856 5 097 MCW 4728,10&X1 DCW 'M72Y0/0' 3 7 5097 M 72Y 0/0 101 857 5 104 BCE 5127,13&X1, DCW 'B/2X0/3 ' 3 8 5104 B /2X 0/3 101 858 5 112 S 4728,4733 DCW 'S72Y73T' 3 7 5112 S 72Y 73T 101 859 5 119 BM 5157,4733 DCW 'V/5X73TK' 3 8 5119 V /5X 73T K 101 860 5 127 MZ 4732,4733 DCW 'Y73S73T' 3 7 5127 Y 73S 73T 101 861 5 134 MCW 4349,5144 DCW 'M34Z/4U' 3 7 5134 M 34Z /4U 102 862 5 141 C 0,4733 DCW 'C00073T' 3 7 5141 C 000 73T 102 863 5 148 BH 5177 DCW 'B/7XU' 3 5 5148 B /7X U 102 864 5 153 B 5191 DCW 'B/9/' 3 4 5153 B /9/ 102 865 5 157 MCW KA33,ERRTK 3 7 5157 M L5Z T1W 102 866 5 164 B WERR DCW 'BQ19' 3 4 5164 B Q19 102 867 5 168 B ARR3 DCW 'BG85' 3 4 5168 B G85 102 868 5 176 DCW #5 3 5 5176 103 869 5 177 MCW 4349,5190 DCW 'M34Z/9|' 3 7 5177 M 34Z /9| 103 870 5 184 MCW 4733,0 DCW 'M73T000' 3 7 5184 M 73T 000 103 871 5 191 BCE ARR3,16&X1, DCW 'BG850/6 ' 3 8 5191 B G85 0/6 103 872 5 199 B 5900 DCW 'BZ0|' 3 4 5199 B Z0| 103 873 5 203 SBR 4346,5&X1 DCW 'H34W0|5' 3 7 5203 H 34W 0|5 103 874 5 210 C 4349,4346 DCW 'C34Z34W' 3 7 5210 C 34Z 34W 104 875 5 217 BE 5266 DCW 'BS6WS' 3 5 5217 B S6W S 104 876 5 222 MCW 4349,4346 DCW 'M34Z34W' 3 7 5222 M 34Z 34W 104 877 5 229 MCW 4349,5242 DCW 'M34ZS4S' 3 7 5229 M 34Z S4S 104 878 5 236 MCW 4346,0 DCW 'M34W000' 3 7 5236 M 34W 000 104 879 5 243 MCW K2B DCW 'MK7W' 3 4 5243 M K7W 104 880 5 247 BCE 5289,1&X1, DCW 'BS8Z0|1 ' 3 8 5247 B S8Z 0|1 105 881 5 255 SBR 4349,5&X1 DCW 'H34Z0|5' 3 7 5255 H 34Z 0|5 105 882 5 262 B 5900 DCW 'BZ0|' 3 4 5262 B Z0| 105 883 5 266 BCE 5278,1&X1, DCW 'BS7Y0|1 ' 3 8 5266 B S7Y 0|1 105 884 5 274 B ARR3 DCW 'BG85' 3 4 5274 B G85 105 885 5 278 MCW 5&X1,4349 DCW 'M0|534Z' 3 7 5278 M 0|5 34Z 105 886 5 285 B ARR3 DCW 'BG85' 3 4 5285 B G85 106 887 5 289 MCW 5&X1,4349 DCW 'M0|534Z' 3 7 5289 M 0|5 34Z 106 888 5 296 B 5900 DCW 'BZ0|' 3 4 5296 B Z0| 106 889 5 304 DCW #5 3 5 5304 106 890 5 310 K6B DCW #6 3 6 5310 106 891 5 313 WEIRD DCW @"$$@ 0-7-8 $ $ 3 3 5313 106 892 5 316 ERRTK DCW #3 ERROR CODE TOKEN GOES HERE 3 3 5316 106 893 5 319 K.49 DCW @.49@ 3 3 5319 107 894 5 322 DCW 000 3 3 5322 107 895 5 325 TOKSV DCW 000 3 3 5325 107 896 5 328 K.90A DCW @.90@ 3 3 5328 107 897 * 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 898 * PROCESS DIMENSIONS, OR SUBSCRIPTS IN EQUIVALENCE 899 * 900 5 329 DODIM SBR DIMX&3 3 4 5329 H Y8/ 107 901 5 333 MCW ARM,*&14 3 7 5333 M Y8U T5T 107 902 5 340 MA A16,*&7 3 7 5340 # L6S T5T 107 903 5 347 BCE ERR33,0-0,% 3 8 5347 B Y8V 000 % 108 904 5 355 CHAIN 15 MACRO 905 BCE 3 1 5355 B GEN 108 906 BCE 3 1 5356 B GEN 108 907 BCE 3 1 5357 B GEN 108 908 BCE 3 1 5358 B GEN 108 909 BCE 3 1 5359 B GEN 108 910 BCE 3 1 5360 B GEN 108 911 BCE 3 1 5361 B GEN 109 912 BCE 3 1 5362 B GEN 109 913 BCE 3 1 5363 B GEN 109 914 BCE 3 1 5364 B GEN 109 915 BCE 3 1 5365 B GEN 109 916 BCE 3 1 5366 B GEN 109 917 BCE 3 1 5367 B GEN 109 918 BCE 3 1 5368 B GEN 110 919 BCE 3 1 5369 B GEN 110 920 5 370 MCW ARM,13&X1 3 7 5370 M Y8U 0/3 110 921 5 377 MCW X3,SAVEX SAVE ALL 3 7 5377 M 099 71U 110 922 5 384 MCW INDEX 3 1 5384 M 110 923 5 385 MCW REGISTERS 3 1 5385 M 110 924 5 386 LCA X20.20,SVX20 SAVE DIMENSIONS OR SUBSCRIPTS 3 7 5386 L E78 V9V 110 925 5 393 SBR X2 X2 BEFORE FIRST CHAR OF DIMS 3 4 5393 H 094 111 926 5 397 SBR X3,S15.15 3 7 5397 H 099 W1/ 111 927 5 404 SW 1&X2,S15.6 3 7 5404 , 0!1 W0S 111 928 5 411 SW S15.11 3 4 5411 , W0X 111 929 5 415 BWZ COMRM,1&X2,2 Q. NEXT CHAR OF DIM IS NUMERIC 3 8 5415 V U2X 0!1 2 111 930 5 423 B ADDEND 3 4 5423 B W1T 111 931 * 932 * SEARCH FOR COMMA OR RECORD MARK 933 * HERE, X2 IS SCANNING FORWARD IN SVX20 934 * AND X3 IS IN S15 935 * 936 5 427 COMRM MA A001,X2 3 7 5427 # L0X 094 112 937 5 434 BCE GOTCOM,1&X2,, Q. AT END OF DIMENSION 3 8 5434 B U5U 0!1 , 112 938 5 442 BCE ONEDIM,1&X2,| Q. AT END OF SVX20 3 8 5442 B Y0Y 0!1 | 112 939 5 450 B COMRM 3 4 5450 B U2X 112 940 5 454 GOTCOM ZA 0&X2,W5A DIMENSION TO W5A 3 7 5454 ? 0!0 !9T 112 941 5 461 MCW W5A,0&X3 DIMENSION TO S15.15, .10, .5 3 7 5461 M !9T 0?0 113 942 5 468 SBR X3 3 4 5468 H 099 113 943 5 472 MORDIM BWZ *&5,2&X2,2 Q. ANOTHER DIMENSION 3 8 5472 V U8U 0!2 2 113 944 5 480 B ADDEND 3 4 5480 B W1T 113 945 5 484 SW 2&X2 3 4 5484 , 0!2 113 946 5 488 COMRM2 MA A001,X2 3 7 5488 # L0X 094 113 947 5 495 BCE GOTCR,1&X2,, Q. AT END OF DIMENSION 3 8 5495 B V1V 0!1 , 114 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 948 5 503 BCE GOTCR,1&X2,| Q. AT END OF SVX20 3 8 5503 B V1V 0!1 | 114 949 5 511 B COMRM2 3 4 5511 B U8Y 114 950 5 515 GOTCR ZA 0&X2,W5B DIMENSION TO W5B 3 7 5515 ? 0!0 !9Y 114 951 5 522 MZ *-1,W5B CLOBBER ZONE 3 7 5522 Y V2X !9Y 114 952 5 529 B MULT MULTIPLY 3 4 5529 B J2W 114 953 5 535 DSA W5A W5A * W5B 3 3 5535 !9T 115 954 5 538 DSA W5B GIVING W5B 3 3 5538 !9Y 115 955 5 539 BCE STRDIM,1&X2,| Q. AT END OF SVX20 3 8 5539 B Y1V 0!1 | 115 956 5 547 ZA W5B,W5A PROD OF DIMS TO W5A 3 7 5547 ? !9Y !9T 115 957 5 554 MCW 5&X3,0&X3 SHIFT DIMENSIONS LEFT 3 7 5554 M 0?5 0?0 115 958 5 561 SBR X3 3 4 5561 H 099 115 959 5 565 MCW W5B,10&X3 PRODUCT OF DIMENSIONS TO S15 3 7 5565 M !9Y 0A0 115 960 5 572 B MORDIM PROCESS ANOTHER DIMENSION 3 4 5572 B U7S 116 961 5 595 DA 1X20,C,| DIMENSIONS HERE, RIGHT JUSTIFIED 3 5576 5596 116 DC @|@ 3 1 5596 RMARK 117 962 5 595 SVX20 20 SCANNED FROM LEFT TO RIGHT 3 5595 SBFLD 963 5 597 S15RM DA 1X15,C FIRST DIMENSION IN 1-5 3 5597 5611 117 964 5 602 S15.6 6 PRODUCT OF FIRST TWO DIMS IN 6-10 3 5602 SBFLD 965 5 607 S15.11 11 PRODUCT OF ALL DIMS IN 11-15 3 5607 SBFLD 966 5 611 S15.15 15 3 5611 SBFLD 967 5 612 DCW @|@ 3 1 5612 117 968 * 969 * ADD DIMENSIONS OR SUBSCRIPTS TO THE END OF THE TABLE 970 * 971 5 613 ADDEND LCA X20.20,SVX20 3 7 5613 L E78 V9V 117 972 5 620 SBR X2 3 4 5620 H 094 117 973 5 624 MCW ARM,*&4 3 7 5624 M Y8U W3U 118 974 5 631 SW 0-0 3 4 5631 , 000 118 975 5 635 MCW ARM,*&7 3 7 5635 M Y8U W4Y 118 976 5 642 MCM 1&X2,0-0 3 7 5642 P 0!1 000 118 977 5 649 SBR ARM 3 4 5649 H Y8U 118 978 5 653 MCW KIND,KINDSV 3 7 5653 M E81 X5U 118 979 5 660 NXDIM SW 1&X2 3 4 5660 , 0!1 119 980 5 664 BWZ BSW3F,1&X2,2 Q. ANOTHER DIMENSION 3 8 5664 V X4T 0!1 2 119 981 * 982 * SEARCH FOR RECORD MARK OR COMMA 983 * 984 5 672 SCHRM BCE GOTRM,1&X2,| 3 8 5672 B W9Z 0!1 | 119 985 5 680 BCE GOTRM,1&X2,, 3 8 5680 B W9Z 0!1 , 119 986 5 688 SCHRM2 SBR X2,1&X2 3 7 5688 H 094 0!1 119 987 5 695 B SCHRM 3 4 5695 B W7S 119 988 5 699 GOTRM LCA 0&X2,TKTXT 3 7 5699 L 0!0 E58 120 989 5 706 MCW KV,KIND 3 7 5706 M L6T E81 120 990 5 713 BSW3 B SW3 3 4 5713 B F09 120 991 * 992 5 717 DIM2 MCW BRANCH,BSW3 3 7 5717 M L6U X1T 120 993 5 724 BCE DIMFIN,1&X2,| Q. AT END OF SVX20 3 8 5724 B X5V 0!1 | 120 994 5 732 SBR X2,1&X2 3 7 5732 H 094 0!1 121 995 5 739 B NXDIM 3 4 5739 B W6| 121 996 * 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 997 5 743 BSW3F MCW KNOP,BSW3 3 7 5743 M L2Y X1T 121 998 5 750 B SCHRM2 3 4 5750 B W8Y 121 999 5 754 KINDSV DCW #1 3 1 5754 121 1000 5 755 DIMFIN MCW KINDSV,KIND 3 7 5755 M X5U E81 121 1001 5 762 MCW SAVEX,X3 RESTORE 3 7 5762 M 71U 099 121 1002 5 769 MCW ALL INDEX 3 1 5769 M 122 1003 5 770 MCW REGISTERS 3 1 5770 M 122 1004 5 771 MN ADDEND,18&X1 ADDEND IS LCA, SO THIS MOVES 3 3 7 5771 D W1T 0/8 122 1005 5 778 MN K1,1429 DCW 'DL3|U29' 3 7 5778 D L3| U29 122 1006 5 785 BM DIMX,17&X1 3 8 5785 V Y7Y 0/7 K 122 1007 5 793 SBR ERRTK,3125 A25 3 7 5793 H T1W A25 122 1008 5 800 B WERR 3 4 5800 B Q19 122 1009 5 804 B DIMX 3 4 5804 B Y7Y 123 1010 * 1011 * STORE DIMENSIONS 1012 * 1013 5 808 ONEDIM ZA 0&X2,W5B GET DIMENSION TO W5B 3 7 5808 ? 0!0 !9Y 123 1014 5 815 STRDIM ZA W5B,0&X3 DIMENSION TO S15 3 7 5815 ? !9Y 0?0 123 1015 5 822 SBR GETSIZ&3 3 4 5822 H Y7| 123 1016 5 826 MA A001,GETSIZ&3 3 7 5826 # L0X Y7| 123 1017 5 833 MCW SAVEX,X3 RESTORE 3 7 5833 M 71U 099 123 1018 5 840 MCW ALL INDEX 3 1 5840 M 123 1019 5 841 MCW REGISTERS 3 1 5841 M 124 1020 5 842 MN DIMX,18&X1 DIMX IS B SO THIS MOVES 2 3 7 5842 D Y7Y 0/8 124 1021 5 849 MCW ARM,*&4 3 7 5849 M Y8U Y5Z 124 1022 5 856 SW 0-0 3 4 5856 , 000 124 1023 5 860 MCW ARM,*&7 3 7 5860 M Y8U Y7T 124 1024 5 867 GETSIZ MCM S15RM,0-0 3 7 5867 P V9X 000 124 1025 5 874 SBR ARM 3 4 5874 H Y8U 124 1026 5 878 DIMX B 0-0 3 4 5878 B 000 125 1027 * 1028 5 884 ARM DSA RM ADDR OF A RECORD MARK 3 3 5884 M8| 125 1029 5 885 ERR33 MCW KA33,ERRTK 3 7 5885 M L5Z T1W 125 1030 5 892 B WERR 3 4 5892 B Q19 125 1031 5 896 B R1EOF 3 4 5896 B P56 125 1032 5 900 MCW X3,SAVEX SAVE INDEX REGISTER 3 3 7 5900 M 099 71U 125 1033 5 907 MCW LOPKT,X3 DCW 'MT58099' 3 7 5907 M T58 099 125 1034 5 914 BCE 6099,0&X3,% DCW 'B!9Z0?0%' 3 8 5914 B !9Z 0?0 % 126 1035 5 922 MCW 0&X3,0&X3 DCW 'M0?00?0' 3 7 5922 M 0?0 0?0 126 1036 5 929 MCW DCW 'M' 3 1 5929 M 126 1037 5 930 SBR X3 DCW 'H099' 3 4 5930 H 099 126 1038 5 934 C 5&X3,4346 DCW 'C0?534W' 3 7 5934 C 0?5 34W 126 1039 5 941 BE *&5 3 5 5941 B Z5| S 126 1040 5 946 B 5914 DCW 'BZ1U' 3 4 5946 B Z1U 126 1041 5 950 MCW 4349,5&X3 DCW 'M34Z0?5' 3 7 5950 M 34Z 0?5 127 1042 5 957 BW 5969,4350 DCW 'VZ6Z35|1' 3 8 5957 V Z6Z 35| 1 127 1043 5 965 B 5914 DCW 'BZ1U' 3 4 5965 B Z1U 127 1044 5 969 SW 6&X3 DCW ',0?6' 3 4 5969 , 0?6 127 1045 5 973 S 5304,10&X3 DCW 'ST0U0A0' 3 7 5973 S T0U 0A0 127 1046 5 980 CW 6&X3 DCW ')0?6' 3 4 5980 ) 0?6 127 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1047 5 984 BCE 5914,13&X3, DCW 'BZ1U0A3 ' 3 8 5984 B Z1U 0A3 128 1048 5 992 MCW 13&X3,3602 DCW 'M0A3F02' 3 7 5992 M 0A3 F02 128 1049 5 999 MA A4,3602 DCW '#L4VF02' 3 7 5999 # L4V F02 128 1050 6 006 MCW 3602,*&4 DCW 'MF02!1W' 3 7 6006 M F02 !1W 128 1051 6 013 MCW 0-0,4733 DCW 'M00073T' 3 7 6013 M 000 73T 128 1052 6 020 S 10&X3,4733 DCW 'S0A073T' 3 7 6020 S 0A0 73T 129 1053 6 027 BM 5914,4733 DCW 'VZ1U73TK' 3 8 6027 V Z1U 73T K 129 1054 6 035 MZ 4732,4733 DCW 'Y73S73T' 3 7 6035 Y 73S 73T 129 1055 6 042 MCW 4349,*&4 DCW 'M34Z!5S' 3 7 6042 M 34Z !5S 129 1056 6 049 C 0-0,4733 DCW 'C00073T' 3 7 6049 C 000 73T 129 1057 6 056 BH *&5 DCW 'B!6VU' 3 5 6056 B !6V U 130 1058 6 061 B 5914 DCW 'BZ1U' 3 4 6061 B Z1U 130 1059 6 065 MCW 4349,*&7 DCW 'M34Z!7Y' 3 7 6065 M 34Z !7Y 130 1060 6 072 MCW 4733,0-0 DCW 'M73T000' 3 7 6072 M 73T 000 130 1061 6 079 B 5914 DCW 'BZ1U ' 3 4 6079 B Z1U 130 1062 6 083 DC #1 3 1 6083 130 1063 6 088 DCW #5 3 5 6088 130 1064 6 093 W5A DCW #5 3 5 6093 130 1065 6 098 W5B DCW #5 3 5 6098 131 1066 6 099 MCW SAVEX,X3 RESTORE INDEX REGISTER 3 3 7 6099 M 71U 099 131 1067 6 106 BW *&5,4681 DCW 'VJ1Y68/1' 3 8 6106 V J1Y 68/ 1 131 1068 6 114 B ARR3 DCW 'BG85' 3 4 6114 B G85 131 1069 6 118 CW 4681 DCW ')68/' 3 4 6118 ) 68/ 131 1070 6 122 B ARR3 DCW 'BG85' 3 4 6122 B G85 131 1071 * 1072 * MULTIPLY THE SECOND ARGUMENT BY THE FIRST ARGUMENT, 1073 * LEAVING THE PRODUCT IN THE SECOND ARGUMENT. 1074 * 1075 6 126 MULT SBR X1 3 4 6126 H 089 131 1076 6 130 S PROD&1 CLEAR ACCUMULATOR 3 4 6130 S K4Y 132 1077 6 134 MCW 2&X1,LMPLR&3 GET MULTIPLIER ADDRESS 3 7 6134 M 0|2 J5Y 132 1078 6 141 MCW 5&X1,LMCND&3 GET MULTIPLICAND ADDRESS 3 7 6141 M 0|5 J8Y 132 1079 6 148 MCW 5&X1,SPROD&6 AND USE AS PRODUCT ADDRESS 3 7 6148 M 0|5 K2Y 132 1080 6 155 LMPLR LCA *,MPLR LOAD MULTIPLIER 3 7 6155 L J6/ K3X 132 1081 6 162 MZ KNZ,MPLR CLOBBER MULTIPLIER ZONE 3 7 6162 Y L6V K3X 132 1082 6 169 MPDZ BCE MPSHF,MPLR,0 Q. LOW ORDER DIGIT 3 8 6169 B K0T K3X 0 133 1083 6 177 BCE MPSHF,MPLR,? OF MULTIPLIER ZERO 3 8 6177 B K0T K3X ? 133 1084 6 185 LMCND A *,MCAND NO, ADD MPLR TO MCAND 3 7 6185 A J9/ K4T 133 1085 6 192 S K1,MPLR DECR MULTIPLIER 3 7 6192 S L3| K3X 133 1086 6 199 B MPDZ BACK FOR THE NEXT TEST 3 4 6199 B J6Z 133 1087 6 203 MPSHF BW SPROD,MPLR Q. FINISHED 3 8 6203 V K2S K3X 1 134 1088 6 211 LCA PROD,PROD&1 NO, SHIFT ACCUMULATOR 3 7 6211 L K4X K4Y 134 1089 6 218 B MPDZ BACK FOR THE NEXT TEST 3 4 6218 B J6Z 134 1090 6 222 SPROD MCW PROD,* STORE THE PRODUCT 3 7 6222 M K4X K2Y 134 1091 6 229 B 6&X1 3 4 6229 B 0|6 134 1092 6 233 DA 1X16,C ACCUMULATOR FOR MULTIPLY 3 6233 6248 134 1093 6 237 MPLR 5 MULTIPLIER 3 6237 SBFLD 1094 6 243 MCAND 11 MULTIPLICAND 3 6243 SBFLD 1095 6 247 PROD 15 3 6247 SBFLD 1096 * 1 PHASE 30 OF FORTRAN IV COMPILER -- 20F PHASE PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1097 6 249 TYPE DCW #1 B, INTEGER OR EXTERNAL, K LOGICAL, S REAL 3 1 6249 135 1098 6 250 KW DCW @W@ 3 1 6250 135 1099 6 251 KF DCW @F@ 3 1 6251 135 1100 6 252 KY DCW @Y@ 3 1 6252 136 1101 6 253 EQVNS DCW #1 WM IF NO DIMENSION ON EQUIVALENCE NAME 3 1 6253 136 1102 6 256 K21F DCW @21F@ 3 3 6256 136 1103 6 259 KC33 DCW @C33@ 3 3 6259 136 1104 6 262 KA13 DCW @A13@ 3 3 6262 136 1105 6 265 COL70 DCW @:70@ 11-6-8 SEMICOLON 70 3 3 6265 136 1106 6 268 KA17 DCW @A17@ 3 3 6268 136 1107 6 271 AM3 DSA 15997 ADDRESS -3 FOR MA 3 3 6271 I9G 137 1108 6 274 K.EB DCW @.EB@ 3 3 6274 137 1109 6 276 K2B DCW #2 3 2 6276 137 1110 6 296 K20B DCW #20 3 20 6296 137 1111 6 297 CHAR1 DCW #1 WM FOR FIRST CHAR OF TEXT TOKEN 3 1 6297 137 1112 6 300 AW20B DSA W20B DCW 'E30' 3 3 6300 E30 137 1113 6 303 AK.08 DSA 3529 DCW 'E29' 3 3 6303 E29 137 1114 6 304 KZ DCW @Z@ 3 1 6304 138 1115 6 307 A001 DSA 1 DCW '001' 3 3 6307 001 138 1116 6 310 AM1 DSA 15999 ADDRESS -1 FOR MA 3 3 6310 I9I 138 1117 6 313 KA19 DCW @A19@ 3 3 6313 138 1118 6 314 KCOMMA DCW @,@ 3 1 6314 138 1119 6 315 KLPAR DCW @%@ 3 1 6315 138 1120 6 318 KA20 DCW @A20@ 3 3 6318 138 1121 6 321 KA14 DCW @A14@ 3 3 6321 139 1122 6 324 KA16 DCW @A16@ 3 3 6324 139 1123 6 327 KA31 DCW @A31@ 3 3 6327 139 1124 6 328 KNOP NOP 3 1 6328 N 139 1125 6 329 K0 DCW 0 3 1 6329 139 1126 6 330 K1 DCW 1 3 1 6330 139 1127 6 333 KA22 DCW @A22@ 3 3 6333 139 1128 6 334 K2 DCW 2 3 1 6334 140 1129 6 339 K5B DCW #5 3 5 6339 140 1130 6 342 KA21 DCW @A21@ 3 3 6342 140 1131 6 345 A4 DSA 4 ADDRESS 4 FOR MA 3 3 6345 004 140 1132 6 348 DSA 11 DCW '011' 3 3 6348 011 140 1133 6 351 DSA 15989 DCW 'I8I' 3 3 6351 I8I 140 1134 6 356 DCW @0000?@ 3 5 6356 140 1135 6 359 KA33 DCW @A33@ 3 3 6359 141 1136 6 362 A16 DSA 16 ADDRESS 16 FOR MA 3 3 6362 016 141 1137 6 363 KV DCW @V@ 3 1 6363 141 1138 6 364 BRANCH B 3 1 6364 B 141 1139 6 365 KNZ DCW #1 3 1 6365 141 1140 ORG 6480 3 6480 1141 6 480 RM DCW @|@ 3 1 6480 142 1142 6 481 GMWM DCW @}@ 3 1 6481 GMARK 142 1143 END 3 / 000 080 1 PAGE 22 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A001 3 6307 A16 3 6362 A4 3 6345 ADDEND 5613 ADRTXT 1898 AK.083 6303 AM1 3 6310 AM3 3 6271 ARM 3 5884 ARR2 3 3766 ARR3 3 3785 ARRNAM 3754 AW20.7 3552 AW20B3 6300 BRANCH 6364 BSW3 3 5713 BSW3F3 5743 CHAR13 6297 CHK.90 1833 CHK333 3821 CHTKID 3347 COL703 6265 COM2 3 2496 COMDIM 2538 COMNUM 3591 COMRM2 5488 COMRM3 5427 DCLDIM 3980 DECL 3 3605 DECL13 3885 DECLL3 2153 DECLT3 3690 DECLX3 3792 DIM2 3 5717 DIMFIN 5755 DIMSW3 3285 DIMX 3 5878 DODIM3 5329 DUMARG 3969 DUMMY3 2261 ENTER3 1776 ENTER4 555 EOFX 4 472 EQVC 3 2682 EQVDEC 2651 EQVFIN 2748 EQVLP3 2580 EQVNAM 3998 EQVNS3 6253 EQVNXT 2607 EQVRP3 2655 EQVSUB 2714 ERR003 3439 ERR013 3796 ERR133 2804 ERR143 3472 ERR193 3332 ERR203 3457 ERR313 3502 ERR333 5885 ERRC33 2789 ERRTK3 5316 EXTNAM 3940 FNCNAM 3951 FUNC 3 2206 GET.90 1829 GET.9X 1910 GETSIZ 5867 GETX14 352 GMWM 3 6481 GOT.27 2005 GOT.28 1994 GOT.29 2016 GOT.2X 1966 GOT.30 2199 GOT.31 2318 GOT.32 2364 GOT.33 2455 GOT.34 2572 GOT.35 2099 GOT.36 2139 GOT.37 2128 GOT.39 2110 GOT.3X 2027 GOT.4X 1902 GOT.90 1845 GOTARR 1402 GOTCOM 5454 GOTCR3 5515 GOTRM3 5699 GTXTKX 3328 GTXTOK 3146 HTOK 3 2923 HTOP 3 1156 IOR1 3 950 IOR1F3 961 IOR1R3 979 IOR2 3 990 IOR2R3 1019 K.06 3 3526 K.07 3 3523 K.08 3 3529 K.49 3 5319 K.90 3 3520 K.90A3 5328 K.EB 3 6274 K0 3 6329 K1 3 6330 K1A 3 3596 K2 3 6334 K20B 3 6296 K21F 3 6256 K2B 3 6276 K5B 3 6339 K6B 3 5310 KA00 3 3456 KA01 3 3820 KA13 3 6262 KA14 3 6321 KA16 3 6324 KA17 3 6268 KA19 3 6313 KA20 3 6318 KA21 3 6342 KA22 3 6333 KA23 3 4371 KA24 3 4717 KA31 3 6327 KA33 3 6359 KB 3 4377 KB18 3 4368 KC33 3 6259 KCOMMA 6314 KF 3 6251 KIND 3 3581 KINDSV 5754 KK 3 4379 KLPAR3 6315 KNOP 3 6328 KNZ 3 6365 KQ 3 3595 KS 3 4378 KS2 3 3594 KT 3 3593 KV 3 6363 KW 3 6250 KX 3 3592 KY 3 6252 KZ 3 6304 LBP6 3 1159 LMCND3 6185 LMPLR3 6155 LOOK 3 3667 LOOK23 3651 LOOKL3 3628 LOPKT3 1358 MCAND3 6243 MORDIM 5472 MPDZ 3 6169 MPLR 3 6237 MPSHF3 6203 MULT 3 6126 MVTOK3 3259 NCOMMA 3604 NEED 4 925 NEED23 3039 NLST 3 1344 NONUM3 3238 NXDIM3 5660 NXTXTK 3175 ONEDIM 5808 PASS23 2924 PROD 3 6247 QNOSUB 4055 R1 3 3040 R1EOF3 2756 R1X 3 3084 READ 4 345 RM 3 6480 RWD1 3 1166 RWD1R3 1182 S15.11 5607 S15.15 5611 S15.63 5602 S15RM3 5597 SAVEX3 4714 SCHRM2 5688 SCHRM3 5672 SETLO3 3613 SKPLAB 1930 SPROD3 6222 STRDIM 5815 SUBFNC 1391 SVX203 5595 SW3 3 3609 SWAPR3 1111 SWCH 3 2830 SX1 3 3145 TAPEX4 456 TAPZX4 367 TIME23 2853 TKENDT 3206 TKOTST 2872 TKSCH3 3186 TKTXT3 3558 TOKEN3 1901 TOKSV3 5325 TST.32 2035 TXCOM3 3406 TXFIN3 3314 TXTKID 3281 TYPE 3 6249 TYPEL3 2146 TYPNAM 3910 TYPNM2 3929 W2 3 3088 W20 3 3549 W20.10 3539 W20.11 3540 W20.13 3542 W20.63 3535 W20.73 3536 W20B 3 3530 W2X 3 3139 W5A 3 6093 W5B 3 6098 WEIRD3 5313 WERR 3 2819 WERRX3 2917 WRITE4 334 X1 3 89 X2 3 94 X20.20 3578 X20.63 3564 X20B 3 3559 X3 3 99