ibm:ibm1130-lib:dmsr2v12:kforph04_lst
KFORPH04
| Table Of Contents |
|---|
|
- kforph04.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph04.asm 1130 FORTRAN COMPILER PHASE 4 2 | *************************************************** K0400020 3 | *STATUS - VERSION 2 MODIFICATION 12 * K0400030 4 | * * K0400040 5 | *FUNCTION/OPERATION- * K0400050 6 | * * PLACES COMMON STMNT VARIABLE INTO THE SYMBOL* K0400060 7 | * TABLE. INCLUDES DIMENSION INFORMATION, IF * K0400070 8 | * PRESENT. * K0400080 9 | * * REMOVES COMMON STMNTS FROM THE STRING * K0400090 10 | * AND INSERTS A DUMMY ERROR STMT(ERROR NUM 2-11 K0400100 11 | * BER EQUAL TO ZERO) TO ACT AS A LINE COUNT2-11 K0400110 12 | * PLACE HOLDER. 2-11 K0400120 13 | * * CHECKS FOR A SUBROUTINE OR FUNCTION STMNT. * K0400130 14 | * * PLACES THE NAME AND DUMMY ARGUMENTS OF THE * K0400140 15 | * SUBROUTINE OR FUNCTION STATEMENT INTO THE * K0400150 16 | * SYMBOL TABLE. DELETES THE STMNT FROM THE * K0400160 17 | * STMNT STRING AND INSERTS A DUMMY ERROR 2-11 K0400170 18 | * STMNT(ERROR NUMBER EQUAL TO ZERO) TO 2-11 K0400180 19 | * ACT AS A LINE COUNT PLACE HOLDER 2-11 K0400190 20 | * * CHECKS REAL AND INTEGER STATEMENTS FOR THE * K0400200 21 | * WORD FUNCTION * K0400210 22 | * * PHASE 4 IS A TWO PASS PHASE. THE FIRST PASS * K0400220 23 | * PROCESSES COMMON STATEMENTS. THE SECOND * K0400230 24 | * PASS PROCESSES A SUBROUTINE OR FUNCTION * K0400240 25 | * STATEMENTS, INCLUDING A FUNCTION DESIGNATED * K0400250 26 | * IN A REAL OR INTEGER STATEMENT. * K0400260 27 | * * K0400270 28 | *ENTRY POINTS- * K0400280 29 | * PH-PHASE 4 IS READ INTO CORE BY PHASE 3 AND * K0400290 30 | * EXECUTION BEGUN AT LOCATION PH. * K0400300 31 | * * K0400310 32 | *INPUT- * K0400320 33 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0400330 34 | * STRING SCANNED BY THE COMPILER MAY BE * K0400340 35 | * CONSIDERED INPUT. * K0400350 36 | * * K0400360 37 | *OUTPUT- * K0400370 38 | * NONE IN THE USUAL SENSE. HOWEVER, PHASE 4 * K0400380 39 | * REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0400390 40 | * ENTRIES TO THE SYMBOL TABLE. * K0400400 41 | * * K0400410 42 | *EXTERNAL ROUTINES-N/A * K0400420 43 | * * K0400430 44 | *EXITS- * K0400440 45 | * NORMAL- * K0400450 46 | * PHASE EXITS NORMALLY IF NO STMNTS OF THE * K0400460 47 | * TYPE IT PROCESSES ARE ENCOUNTERED OR IF NO * K0400470 48 | * ERRORS ARE FOUND. PHASE 5 IS LOADED AND * K0400480 49 | * EXECUTED. * K0400490 50 | * ERROR- * K0400500 51 | * THE FLOW OF COMPILER PROCESSING IS NOT * K0400510 52 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED * K0400520 53 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0400530 54 | * ON THE STRING AND STMNT SCANNING PROCESS * K0400540 55 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0400550 56 | * OF AN OVERLAP ERROR. COMPILATION IS * K0400560 57 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0400570 58 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0400580 59 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0400590 60 | * THE ERRORS DETECTED BY PHASE 4 ARE 7, 8, * K0400600 61 | * 10, 11, 12, 13, 14 AND 15. * K0400610 62 | * * K0400620 63 | *TABLES/WORK AREAS- * K0400630 64 | * NON EXCEPT STATEMENT STRING AREA, SYMBOL * K0400640 65 | * TABLE, AND FORTRAN COMMUNICATION AREA * K0400650 66 | * * K0400660 67 | *ATTRIBUTES-N/A * K0400670 68 | * * K0400680 69 | *NOTES- * K0400690 70 | * THE SWITCHES USED IN PHASE 4 FOLLOW. IF NON- * K0400700 71 | * ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0400710 72 | * SWITCH IS NORMAL=N. * K0400720 73 | * * NORM2-SYNTAX ERROR IN COMMON STMNT * K0400730 74 | * T=SYNTAX ERROR PRESENT * K0400740 75 | * * ASW1-RIGHT PARENTHESIS ENCOUNTERED * K0400750 76 | * N=NOT ENCOUNTERED * K0400760 77 | * * ASW2-REAL STATEMENT ENCOUNTERED * K0400770 78 | * N=NOT ENCOUNTERED * K0400780 79 | * * ASW3-INTEGER STATEMENT ENCOUNTERED * K0400790 80 | * N=NOT ENCOUNTERED * K0400800 81 | * * SW5 -SECOND PASS SWITCH 2-11 K0400810 82 | * T=SECOND PASS MODE 2-11 K0400820 83 | * * SW5A-FIO STATEMENT PRESENT * K0400830 84 | * N=NOT PRESENT * K0400840 85 | *************************************************** K0400850 86 | ABS K0400860 87 | * K0400870 88 | * SYSTEM EQUATES K0400880 8000 89 | MEMRY EQU /8000 K0400890 7A23 90 | OVERL EQU MEMRY-1501 START OF FCOM K0400900 7FBC 91 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K0400910 0078 92 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0400920 0003 93 | PHLEN EQU 3 NO. OF SECTORS THIS PHASE K0400930 7A23 94 | ORG OVERL K0400940 0022 95 | PHID EQU 34 ID NUMBER THIS PHASE K0400950 96 | * K0400960 97 | * FORTRAN COMMUNICATION AREA K0400970 7A23 98 | ORG BSS 1 ORIGIN ADDRESS 2-4 K0400980 7A24 99 | SOFS BSS 1 START OF STRING K0400990 7A25 100 | EOFS BSS 1 END OF STRING K0401000 7A26 101 | SOFST BSS 1 START OF SYMBOL TABLE K0401010 7A27 102 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0401020 7A28 103 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0401030 7A29 104 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0401040 7A2A 105 | EOFST BSS 1 END OF SYMBOL TABLE K0401050 7A2B 106 | COMON BSS 1 NEXT AVAILABLE COMMON K0401060 7A2C 107 | CSIZE BSS 1 SIZE OF COMMON K0401070 7A2D 108 | ERROR BSS 1 OVERLAP ERROR K0401080 7A2E 109 | FNAME BSS 1 PROGRAM NAME K0401090 7A2F 110 | BSS 1 K0401100 7A30 111 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0401110 7A31 112 | CCWD BSS 1 CONTROL CARD WORD K0401120 113 | * BIT 15 TRANSFER TRACE K0401130 114 | * BIT 14 ARITHMETIC TRACE K0401140 115 | * BIT 13 EXTENDED PRECISION K0401150 116 | * BIT 12 LIST SYMBOL TABLE K0401160 117 | * BIT 11 LIST SUBPROGRAM NAMES K0401170 118 | * BIT 10 LIST SOURCE PROGRAM K0401180 119 | * BIT 9 ONE WORD INTEGERS K0401190 120 | * BIT 8 ORIGIN 2-4 K0401200 7A32 121 | IOCS BSS 1 IOCS CONTROL CARD WORD K0401210 122 | * BIT 15 CARD K0401220 123 | * BIT 14 PAPER TAPE K0401230 124 | * BIT 13 TYPEWRITER K0401240 125 | * BIT 12 1403 PRINTER K0401250 126 | * BIT 11 2501 READER K0401260 127 | * BIT 10 KEYBOARD K0401270 128 | * BIT 9 1442 PUNCH K0401280 129 | * BIT 8 DISK K0401290 130 | * BIT 7 1132 PRINTER K0401300 131 | * BIT 3 PLOTTER K0401310 7A33 132 | DFCNT BSS 1 K0401320 133 | * K0401330 134 | * K0401340 135 | * END OF FORTRAN COMMUNICATION K0401350 136 | * AREA K0401360 137 | * K0401370 138 | * K0401380 7A36 139 | BPHAR EQU *+2 BEGIN PHASE AREA K0401390 7A34 0000 140 | DC 0 LOADER WORK AREA K0401400 7A35 FFDE 141 | DC -34 -PHASE ID FOR SLET LOOKUP K0401410 7A36 01F2 142 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0401420 7A37 0001 143 | DC 1 ONE ENTRY TO BE SET BY LDR K0401430 7A36 144 | ORG *-2 K0401440 7A36 4C00 7A3B 145 | OKJOE BSC L PH BEGIN PROCESSING PHASE K0401450 146 | * K0401460 147 | * K0401470 7A38 1400 148 | COMMC DC /1400 COMMON K0401480 7A39 0800 149 | ENDC DC /0800 END K0401490 7A3A 7C00 150 | IDTPE DC /7C00 STMNT ID TYPE MASK K0401500 151 | * K0401510 152 | * INITIALIZES THE PHASE K0401520 153 | * CHECK FOR A PREVIOUS OVERLAP K0401530 154 | * ERROR K0401540 7A3B 6122 155 | PH LDX 1 PHID INITIALIZE INPUT POINTER K0401550 7A3C 6D00 0078 156 | STX L1 $PHSE STORE IN SYS PHASE AREA K0401560 7A3E 6580 7A24 157 | LDX I1 SOFS INITIALIZE STRING I/P PT K0401570 158 | * K0401580 159 | * OVERLAP ERROR ON K0401590 7A40 C0EC 160 | LD ERROR TEST FOR OVERLAP ERROR K0401600 7A41 4C20 7B87 161 | BSC L NXTPQ,Z BRANCH IF ERROR K0401610 162 | * K0401620 163 | * K0401630 164 | * CHECKS FOR END AND COMMON STMNTS K0401640 165 | * UPDATES THE I/P STRING PT (XR1) K0401650 166 | * TO MOVE TO THE NEXT STMNT K0401660 7A43 C100 167 | TST LD 1 0 LOAD STMNT ID WORD K0401670 7A44 1801 168 | SRA 1 K0401680 7A45 E0F4 169 | AND IDTPE GET ID TYPE K0401690 7A46 90F2 170 | S ENDC IS IT END K0401700 7A47 4C18 7B87 171 | BSC L NXTPQ,+- BRANCH IF YES K0401710 172 | * K0401720 173 | * K0401730 7A49 90EE 174 | S COMMC IS IT COMMON K0401740 7A4A 4818 175 | BSC +- SKIP IF NOT K0401750 7A4B 7007 176 | MDX FIX CHECK FOR TYPE OF COMMON K0401760 177 | * K0401770 178 | * MOVE TO NEXT STMNT K0401780 7A4C C100 179 | MV LD 1 LOAD STMNT ID WORD K0401790 7A4D 1802 180 | SRA 2 SHIFT NORM TO RIGHT K0401800 7A4E E034 181 | AND IDNRM ISOLATE NORM K0401810 7A4F D001 182 | STO NXID+1 K0401820 7A50 7500 0000 183 | NXID MDX L1 MOVE POINTER TO NEXT STMNT K0401830 7A52 70F0 184 | MDX TST GO TEST STMNT TYPE K0401840 185 | * K0401850 186 | * UNUSED CODE REMOVED 2-9 K0401860 187 | * K0401870 188 | * INITIALIZE TO SCAN COMMON STMNTS K0401880 7A53 6933 189 | FIX STX 1 IDADR SAVE INPUT POINTER 2-11 K0401890 7A54 7101 190 | MDX 1 1 MOVE POINTER K0401900 7A55 1010 191 | SLA 16 K0401910 7A56 D02E 192 | STO NORM2 CLEAR NORM2 K0401920 7A57 7007 193 | MDX DD2 BRANCH TO SCAN COM ST 2-9 K0401930 194 | * K0401940 195 | * K0401950 196 | * CHECKS FOR STMNT TERMINATOR K0401960 7A58 C100 197 | PTB LD 1 0 IS CHARACTER K0401970 7A59 902A 198 | S SEMIC SEMICOLON K0401980 7A5A 4C18 7A9F 199 | BSC L REMOV,+- BRANCH IF YES 2-11 K0401990 200 | * K0402000 201 | * K0402010 7A5C C028 202 | LD NORM2 IS THERE SYNTAX ERROR IN K0402020 7A5D 4C04 7A96 203 | BSC L SETUP,E COMMON STMNT - BRANCH YES K0402030 204 | * K0402040 205 | * UNUSED CODE REMOVED 2-9 K0402050 206 | * K0402060 207 | * CHECKS THE NAME FOR VADIDTY K0402070 7A5F C100 208 | DD2 LD 1 0 LOAD WORD K0402080 7A60 4810 209 | BSC - SKIP IF NOT SPECIAL CHAR K0402090 7A61 703A 210 | MDX ERAH GO TO ERROR 7 K0402100 7A62 D026 211 | STO WD1 SAVE WORD K0402110 7A63 1002 212 | SLA 2 K0402120 7A64 4C2A 7A9C 213 | BSC L ERAH,C+Z BRANCH IF NUMERIC K0402130 7A66 C101 214 | LD 1 1 LOAD 2ND WORD K0402140 7A67 4C28 7A6C 215 | BSC L MAD,+Z BRANCH IF PART OF NAME K0402150 7A69 C028 216 | LD ZERO LOAD ZEROES K0402160 7A6A D01F 217 | STO WD2 STORE AS 2ND WORD IN NAME K0402170 7A6B 7005 218 | MDX ZORRO CHECK FOR DUPLICATES K0402180 7A6C D01D 219 | MAD STO WD2 STORE 2ND WORD K0402190 7A6D 7101 220 | MDX 1 1 MOVE POINTER K0402200 7A6E C101 221 | LD 1 1 LOAD NEXT WORD K0402210 7A6F 4C28 7A9C 222 | BSC L ERAH,+Z BRANCH NOT SPECIAL CHAR K0402220 223 | * K0402230 224 | * SCANS THE SYM TBL FOR K0402240 225 | * DUPLICATION OF THE VAR NAME K0402250 7A71 6780 7A27 226 | ZORRO LDX I3 SOFNS INITIALIZE SYMBOL TABLE PT K0402260 7A73 7009 227 | MDX JACK START LOOP K0402270 228 | * K0402280 7A74 C301 229 | LOOP LD 3 1 DOES FIRST WORD IN NAME K0402290 7A75 9013 230 | S WD1 MATCH TABLE WORD K0402300 7A76 4820 231 | BSC Z SKIP IF YES K0402310 232 | * K0402320 7A77 7004 233 | MDX EAT GET NEXT TABLE ENTRY K0402330 7A78 C302 234 | LD 3 2 DOES SECOND WORD IN NAME K0402340 7A79 9010 235 | S WD2 EQUAL TABLE 2ND WORD K0402350 7A7A 4C18 7A93 236 | BSC L HELP,+- BRANCH IF YES K0402360 237 | * K0402370 7A7C 73FD 238 | EAT MDX 3 -3 GET NEXT TABLE ENTRY K0402380 7A7D 6B0D 239 | JACK STX 3 SAVEQ SAVE TABLE POINTER K0402390 7A7E C00C 240 | LD SAVEQ HAS ENTIRE TABLE BEEN K0402400 7A7F 90AA 241 | S EOFST CHECKED FOR DUPLICATES K0402410 7A80 4820 242 | BSC Z SKIP IF YES K0402420 7A81 70F2 243 | MDX LOOP CONTINUE LOOP K0402430 7A82 7045 244 | MDX PLACE PUT IN SYMBOL TABLE K0402440 245 | * K0402450 246 | * CONSTANTS K0402460 7A83 01FF 247 | IDNRM DC /01FF NORM MASK K0402470 7A84 001E 248 | SEMIC DC /001E SEMICOLON K0402480 7A85 0000 249 | NORM2 DC 0 SWITCH TWO K0402490 7A86 0001 250 | SW2 DC 1 SWITCH 2 K0402500 7A87 0000 251 | IDADR DC 0 STMNT ID ADRS 2-11 K0402510 7A88 0000 252 | SW5 DC 0 SECOND PASS MODE SW 2-11 K0402520 7A89 0000 253 | WD1 DC 0 WORD 1 OF COMMON NAME K0402530 7A8A 0000 254 | WD2 DC 0 WORD 2 OF COMMON NAME K0402540 7A8B 0000 255 | SAVEQ DC 0 SYMBOL TABLE POINTER K0402550 7A8C 0000 256 | ERRNO DC 0 ERROR NUMBER K0402560 7A8D 000A 257 | ERR10 DC 10 ERROR NO. 10 K0402570 7A8E 000B 258 | ERR11 DC 11 ERROR NO. 11 K0402580 7A8F 0007 259 | ERR7 DC 7 ERROR NO. 7 K0402590 7A90 0008 260 | ERR8 DC 8 ERROR NO. 8 K0402600 7A91 A008 261 | ERRID DC /A008 ERROR STMNT ID WORD K0402610 7A92 8000 262 | ZERO DC /8000 USEFUL CONSTANT K0402620 263 | * UNUSED WORDS REMOVED 2-9 K0402630 264 | * K0402640 265 | * SETUP ERRORS K0402650 7A93 C0FA 266 | HELP LD ERR11 SET ERROR NO. 11 K0402660 7A94 D0F7 267 | STO ERRNO GO TO CLOSE K0402670 7A95 700B 268 | MDX EROR UP STRING 2-11 K0402680 7A96 C0F6 269 | SETUP LD ERR10 SET ERROR NO. 10 K0402690 7A97 D0F4 270 | STO ERRNO GO TO CLOSE K0402700 7A98 7008 271 | MDX EROR UP STRING 2-11 K0402710 7A99 C0F6 272 | GEEP LD ERR8 SET ERROR NO. 8 K0402720 7A9A D0F1 273 | STO ERRNO GO TO CLOSE K0402730 7A9B 7005 274 | MDX EROR UP STRING 2-11 K0402740 7A9C C0F2 275 | ERAH LD ERR7 SET ERROR NO. 7 K0402750 7A9D D0EE 276 | STO ERRNO K0402760 7A9E 7002 277 | MDX EROR CLOSE UP STRING 2-11 K0402770 278 | * K0402780 7A9F 1010 279 | REMOV SLA 16 CLEAR ACCM - SET TO 2-11 K0402790 7AA0 D0EB 280 | STO ERRNO DUMMY ERROR NUMBR 2-11 K0402800 281 | * K0402810 282 | * REPLACE STMNT WITH ERROR ID/OR DUMMY 2-11 K0402820 283 | * ERROR ID(ERROR NO. = ZERO) AND 2-11 K0402830 284 | * CLOSE THE STRING 2-11 K0402840 285 | * K0402850 7AA1 6580 7A87 286 | EROR LDX I1 IDADR RESET STMNT ID POINTER 2-11 K0402860 7AA3 C100 287 | LD 1 0 LOAD STMNT ID WORD K0402870 7AA4 1802 288 | SRA 2 RIGHT-JUSTIFY NORM K0402880 7AA5 E0DD 289 | AND IDNRM CLEAR ALL BUT NORM K0402890 290 | * K0402900 7AA6 D04E 291 | STO NRMSV ADD NORM TO STRING POINTER K0402910 7AA7 80DF 292 | A IDADR TO GET ADDRESS OF NEXT2-11 K0402920 7AA8 D001 293 | STO *+1 STATEMENT 2-11 K0402930 7AA9 6600 0000 294 | LDX L2 *-* INITIALIZE LOOP PTR 2-11 K0402940 295 | * K0402950 7AAB C0E5 296 | LD ERRID LOAD ERROR STMNT ID WORD K0402960 7AAC D100 297 | STO 1 0 PUT ON STRING K0402970 7AAD C0DE 298 | LD ERRNO LOAD ERROR NUMBER K0402980 7AAE D101 299 | STO 1 1 PUT ON STRING K0402990 7AAF 7102 300 | MDX 1 +2 MOVE POINTER 2-11 K0403000 301 | * K0403010 7AB0 C400 7A25 302 | LD L EOFS COMPUTE RANGE OF LOOP K0403020 7AB2 90D4 303 | S IDADR SUBTRACT POINTER THEN 2-11 K0403030 7AB3 9041 304 | S NRMSV SUBTRACT NORM TO GET K0403040 7AB4 D001 305 | STO *+1 RANGE OF LOOP 2-11 K0403050 7AB5 6700 0000 306 | LDX L3 *-* INITL RANGE COUNTER 2-11 K0403060 307 | * K0403070 7AB7 690A 308 | STX 1 SAVX1+1 SAVE STRING POINTER 2-11 K0403080 7AB8 7301 309 | MDX 3 1 K0403090 7AB9 C200 310 | LOOP1 LD 2 0 MOVE WORD DOWN K0403100 7ABA D100 311 | STO 1 0 IN STRING 2-11 K0403110 7ABB 7101 312 | MDX 1 1 MOVE POINTERS K0403120 7ABC 7201 313 | MDX 2 1 K0403130 7ABD 73FF 314 | MDX 3 -1 DECREMENT RANGE COUNTER K0403140 7ABE 70FA 315 | MDX LOOP1 CONTINUE LOOP K0403150 316 | * K0403160 7ABF 6D00 7A25 317 | STX L1 EOFS NEW END OF STRING K0403170 7AC1 6500 0000 318 | SAVX1 LDX L1 *-* RESTORE INPUT POINTER 2-11 K0403180 319 | * K0403190 7AC3 C0C4 320 | LD SW5 CHECK PASS MODE 2-11 K0403200 7AC4 4C20 7C22 321 | BSC L SOS,Z BRCH IF SECOND 2-11 K0403210 7AC6 4C00 7A43 322 | BSC L TST BRCH IF FIRST 2-11 K0403220 323 | * K0403230 324 | * PLACES A VARIABLE NAME IN THE K0403240 325 | * SYM TBL - SETS THE COMMON AND K0403250 326 | * TYPE INDICATORS IN THE SYM TBL K0403260 327 | * ID WORD - CHECKS FOR A SYM TBL K0403270 328 | * OVERLAP K0403280 7AC8 C0C1 329 | PLACE LD WD2 PUT 2ND WORD INTO K0403290 7AC9 D302 330 | STO 3 2 SYMBOL TABLE K0403300 7ACA C0BE 331 | LD WD1 PUT 1ST WORD INTO K0403310 7ACB D301 332 | STO 3 1 SYMBOL TABLE K0403320 333 | * K0403330 334 | * SET TYPE AND COMMON INDICATORS K0403340 7ACC C0BC 335 | LD WD1 GET FIRST LETTER K0403350 7ACD E02A 336 | AND PIT1 OF NAME K0403360 7ACE 902A 337 | S RGTI IS IT I OR GREATER K0403370 7ACF 4828 338 | BSC +Z SKIP IF YES K0403380 7AD0 7005 339 | MDX REEL GO SET REAL ID WORD K0403390 7AD1 9028 340 | S RGTN IS IT N OR LESS K0403400 7AD2 4C30 7AD6 341 | BSC L REEL,Z- BRANCH IF NOT K0403410 7AD4 C026 342 | LD IDCI LOAD INTEGER INDICATOR K0403420 7AD5 7001 343 | MDX VIP GO PUT IN SYMBOL TABLE ID K0403430 7AD6 C025 344 | REEL LD IDCR LOAD REAL SYM TBL ID K0403440 7AD7 D300 345 | VIP STO 3 0 PUT IN SYMBOL TABLE 2-9 K0403450 7AD8 74FD 7A2A 346 | MDX L EOFST,-3 MODIFY SYMBOL K0403460 7ADA 74FD 7A28 347 | MDX L SOFXT,-3 TABLE ADDRESSES K0403470 7ADC 74FD 7A29 348 | MDX L SOFGT,-3 K0403480 349 | * K0403490 350 | * SYMBOL TABLE OVERLAP K0403500 7ADE C400 7A2A 351 | LD L EOFST LOAD END OF SYMBOL TABLE K0403510 7AE0 8015 352 | A CONST ADD TWO K0403520 7AE1 9400 7A25 353 | S L EOFS SUBTRACT END OF STRING K0403530 7AE3 4C28 7B85 354 | BSC L JIMY,+Z BRANCH IF NEGATIVE-OVERLAP K0403540 355 | * K0403550 356 | * K0403560 7AE5 7101 357 | MDX 1 1 MOVE POINTER K0403570 358 | * K0403580 359 | * K0403590 7AE6 C100 360 | LD 1 0 LOAD NEXT WORD K0403600 7AE7 9015 361 | S PARNL IS CHAR LEFT PARENTHESIS K0403610 7AE8 4C18 7B09 362 | BSC L PRTE,+- BRANCH IF YES K0403620 363 | * K0403630 364 | * CHECKS FOR A COMMA OPTR K0403640 7AEA C100 365 | DD3 LD 1 0 LOAD WORD K0403650 7AEB 9012 366 | S COMAC IS CHARACTER COMMA K0403660 7AEC 4818 367 | BSC +- SKIP IF NO K0403670 7AED 7004 368 | MDX DD1 GO GET NEXT WORD K0403680 369 | * K0403690 370 | * UNUSED CODE REMOVED 2-9 K0403700 371 | * K0403710 372 | * K0403720 7AEE C097 373 | LD SW2 SET SYNTAX ERROR IN K0403730 7AEF D095 374 | STO NORM2 COMMON STMNT SWITCH K0403740 7AF0 6400 7A58 375 | LDX L PTB GO CHECK CHARACTER K0403750 376 | * K0403760 377 | * K0403770 378 | * UPDATES THE I/P STRING PT (XR1) K0403780 379 | * TO MOVE TO THE NEXT STRING WORD K0403790 7AF2 7101 380 | DD1 MDX 1 1 MOVE POINTER K0403800 7AF3 6400 7A5F 381 | LDX L DD2 GET NEXT WORD K0403810 382 | * K0403820 383 | * CONSTANTS K0403830 7AF5 0000 384 | NRMSV DC 0 NORM K0403840 7AF6 0002 385 | CONST DC 2 TWO K0403850 7AF7 6000 386 | PIT DC /6000 NUMERIC ZONE BIT MASK K0403860 7AF8 7E00 387 | PIT1 DC /7E00 ONE CHAR EBC MASK K0403870 7AF9 1200 388 | RGTI DC /1200 I K0403880 7AFA 1800 389 | RGTN DC /1800 N K0403890 7AFB 6020 390 | IDCI DC /6020 INTEGER SYMBOL TABLE ID K0403900 7AFC 2020 391 | IDCR DC /2020 REAL SYMBOL TABLE ID K0403910 7AFD 000D 392 | PARNL DC /000D LEFT PARENTHESIS K0403920 7AFE 002B 393 | COMAC DC /002B COMMA K0403930 7B00 394 | BSS E 0 K0403940 7B00 0000 395 | TEM DC 0 EBC NUMBER TO K0403950 7B01 0000 396 | DC 0 BE CONVERTED K0403960 7B02 7E00 397 | COT1 DC /7E00 EBC NUMERIC MASK K0403970 7B03 7800 398 | COT2 DC /7800 EBC NUMERIC BITS MASK K0403980 7B04 0000 399 | HELP1 DC 0 TEMPORARY STORAGE K0403990 7B05 4800 400 | NINT DC /4800 NINE K0404000 7B06 0000 401 | SUMM DC 0 TEMPORARY TOTAL K0404010 7B07 0000 402 | CNT DC 0 DIMENSION COUNTER K0404020 7B08 001D 403 | PARNR DC /001D RIGHT PARENTHESIS K0404030 404 | * K0404040 405 | * K0404050 406 | * CONVERTS THE DIMENSION CONSTANT K0404060 407 | * TO BINARY K0404070 7B09 1010 408 | PRTE SLA 16 K0404080 7B0A D0FC 409 | STO CNT CLEAR COUNTER K0404090 410 | * K0404100 411 | * K0404110 7B0B 7101 412 | MDX 1 1 MOVE POINTER K0404120 413 | * K0404130 414 | * K0404140 7B0C C100 415 | LD 1 0 LOAD WORD K0404150 7B0D E0E9 416 | AND PIT IS IT NUMERIC K0404160 7B0E F0E8 417 | EOR PIT K0404170 7B0F 4C20 7A99 418 | BSC L GEEP,Z BRANCH IF NOT K0404180 419 | * K0404190 420 | * CHANGE CONSTANT TO BINARY NO. K0404200 7B11 2000 421 | LDS 0 CLEAR STATUS INDICATORS K0404210 7B12 10A0 422 | SLT 32 CLEAR ACC AND EXTENSION K0404220 7B13 D0F2 423 | STO SUMM ZERO TOTAL K0404230 424 | * K0404240 7B14 C100 425 | LD 1 LOAD FIRST WORD K0404250 7B15 D8EA 426 | STD TEM STORE IN WORK AREA K0404260 7B16 C101 427 | LD 1 1 LOAD 2ND WORD K0404270 7B17 4C10 7B1F 428 | BSC L AOT,- BRANCH ON OPERATOR K0404280 7B19 1001 429 | SLA 1 GET RID OF INDICATOR BIT K0404290 7B1A D0E6 430 | STO TEM+1 STORE 2ND WORD K0404300 7B1B C102 431 | LD 1 2 LOAD 3RD WORD K0404310 7B1C 7101 432 | MDX 1 1 MOVE POINTER K0404320 7B1D 4C08 7A99 433 | BSC L GEEP,+ BRANCH ON NO OPERATOR K0404330 7B1F C0E0 434 | AOT LD TEM LOAD FIRST WORD K0404340 7B20 E0E1 435 | AOT1 AND COT1 GET FIRST CHAR FROM WORD K0404350 7B21 1002 436 | SLA 2 SHIFT TO TEST IF NUMERIC K0404360 437 | * K0404370 7B22 4C02 7B28 438 | BSC L PILL,C BRANCH CARRY ON K0404380 7B24 4C18 7B44 439 | BSC L NEX,+- BRANCH END OF CONVERSION K0404390 7B26 6400 7A99 440 | LDX L GEEP BRANCH ERROR K0404400 7B28 4C10 7A99 441 | PILL BSC L GEEP,- BRANCH NOT NUMERIC K0404410 7B2A E0D8 442 | AND COT2 GET NUMBER BITS K0404420 7B2B 90D9 443 | S NINT IS NO. GREATER THAN NINE K0404430 7B2C 4C30 7A99 444 | BSC L GEEP,-Z BRANCH IF YES K0404440 7B2E 80D6 445 | A NINT RESTORE ORIGINAL VALUE K0404450 446 | * K0404460 7B2F 180B 447 | SRA 11 RIGHT JUSTIFY NUMBER K0404470 7B30 D0D3 448 | STO HELP1 SAVE NUMBER K0404480 7B31 C0D4 449 | LD SUMM LOAD PREVIOUS TOTAL K0404490 7B32 1001 450 | SLA 1 MULTIPLY BY TWO K0404500 7B33 D00E 451 | STO TEMPT SAVE K0404510 7B34 4C28 7A99 452 | BSC L GEEP,+Z BRANCH IF OVERFLOW K0404520 7B36 1002 453 | SLA 2 MULTIPLY TOTAL BY 8 K0404530 7B37 4C2A 7A99 454 | BSC L GEEP,C+Z BRANCH IF ERROR IN NUMBER K0404540 7B39 8008 455 | A TEMPT GET PREVIOUS TOTAL X 10 K0404550 7B3A 80C9 456 | A HELP1 ADD UNITS VALUE K0404560 7B3B 4C01 7A99 457 | BSC L GEEP,O BRANCH IF OVERFLOW K0404570 7B3D D0C8 458 | STO SUMM STORE NEW TOTAL K0404580 459 | * K0404590 7B3E C8C1 460 | LDD TEM SHIFT NUMBER TO K0404600 7B3F 1086 461 | SLT 6 GET EBC NUMBER K0404610 7B40 D8BF 462 | STD TEM IN POSITION K0404620 7B41 70DE 463 | MDX AOT1 GO PROCESS NUMBER K0404630 464 | * K0404640 465 | * CONSTANTS K0404650 7B42 0000 466 | TEMPT DC 0 TEMPORARY STORAGE K0404660 7B43 0003 467 | THRE DC 3 THREE K0404670 468 | * K0404680 469 | * PLACES A DIMENSION CONSTANT INTO K0404690 470 | * THE SYMBOL TABLE K0404700 7B44 7401 7B07 471 | NEX MDX L CNT,1 INCREMENT DIMENSION COUNT K0404710 472 | * K0404720 473 | * K0404730 7B46 C0BF 474 | LD SUMM LOAD DIMENSION VALUE K0404740 7B47 4C18 7A99 475 | BSC L GEEP,+- BRANCH IF ZERO K0404750 476 | * K0404760 477 | * PUT CONSTANT IN SYMBOL TABLE K0404770 7B49 C0BD 478 | LD CNT LOAD DIMENSION COUNT K0404780 7B4A 9400 7A86 479 | S L SW2 WAS COUNT ONE K0404790 7B4C 4820 480 | BSC Z SKIP IF YES K0404800 7B4D 7005 481 | MDX O2 CHECK FOR COUNT OF TWO K0404810 7B4E C0B7 482 | LD SUMM LOAD DIMENSION VALUE K0404820 7B4F D3FF 483 | STO 3 -1 PUT IN ALL K0404830 7B50 D3FE 484 | STO 3 -2 THREE DIMENSION K0404840 7B51 D3FD 485 | STO 3 -3 WORDS K0404850 7B52 7014 486 | MDX NEXP GO GET NEXT NUMBER K0404860 487 | * K0404870 7B53 9400 7A86 488 | O2 S L SW2 WAS COUNT TWO K0404880 7B55 4820 489 | BSC Z SKIP IF YES K0404890 7B56 7009 490 | MDX O3 CHECK FOR COUNT OF THREE K0404900 7B57 C3FF 491 | LD 3 -1 GET VALUE FOR 2ND AND 3RD K0404910 7B58 A0AD 492 | M SUMM DIMENSION BY MULTIPLYING K0404920 7B59 1081 493 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0404930 7B5A 4C20 7A99 494 | BSC L GEEP,Z *IF TOO GREAT 2-7 K0404940 7B5C 108F 495 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0404950 7B5D D3FE 496 | STO 3 -2 VALUE K0404960 7B5E D3FD 497 | STO 3 -3 STORE IN TABLE K0404970 7B5F 7007 498 | MDX NEXP GO GET NEXT NUMBER K0404980 499 | * K0404990 7B60 C3FD 500 | O3 LD 3 -3 GET VALUE FOR 3RD DIM K0405000 7B61 A0A4 501 | M SUMM BY MULTIPLYING 2ND VALUE K0405010 7B62 1081 502 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0405020 7B63 4C20 7A99 503 | BSC L GEEP,Z *IF TOO GREAT 2-7 K0405030 7B65 108F 504 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0405040 7B66 D3FD 505 | STO 3 -3 STORE IN TABLE K0405050 506 | * K0405060 507 | * K0405070 508 | * CHECKS FOR A COMMA, A RIGHT K0405080 509 | * PARENTHESIS, AND AN OVERLAP K0405090 510 | * ERROR - INDICATES THE K0405100 511 | * DIMENSIONING LEVEL IN THE SYM K0405110 512 | * TBL ID WORD K0405120 7B67 7101 513 | NEXP MDX 1 1 MOVE STRING POINTER K0405130 514 | * K0405140 515 | * K0405150 7B68 C100 516 | LD 1 0 LOAD WORD K0405160 7B69 9094 517 | S COMAC IS CHARACTER COMMA K0405170 7B6A 4C18 7B88 518 | BSC L TCNT,+- BRANCH IF YES K0405180 519 | * K0405190 520 | * K0405200 7B6C 8091 521 | A COMAC RESTORE ORIGINAL VALUE K0405210 7B6D 909A 522 | S PARNR IS IT RIGHT PARENTHESIS K0405220 7B6E 4C20 7A99 523 | BSC L GEEP,Z BRANCH IF NOT K0405230 524 | * K0405240 525 | * PUT DIMENSION COUNT IN SYM TBL K0405250 7B70 C096 526 | LD CNT LOAD DIMENSION COUNT K0405260 7B71 100B 527 | SLA 11 POSITION FOR SYMBOL TABLE K0405270 7B72 EB00 528 | OR 3 0 COMBINE WITH ID WORD K0405280 7B73 D300 529 | STO 3 0 NEW SYMBOL TABLE ID WORD K0405290 7B74 74FD 7A2A 530 | MDX L EOFST,-3 MODIFY SYMBOL K0405300 7B76 74FD 7A28 531 | MDX L SOFXT,-3 TABLE ADDRESSES K0405310 7B78 74FD 7A29 532 | MDX L SOFGT,-3 K0405320 533 | * K0405330 534 | * K0405340 7B7A C400 7A2A 535 | LD L EOFST TEST FOR TABLE OVERLAP K0405350 7B7C 8007 536 | A TWO ADD TWO K0405360 7B7D 9400 7A25 537 | S L EOFS SUBTRACT END OF STRING K0405370 7B7F 4C28 7B85 538 | BSC L JIMY,+Z BRANCH IF OVERLAP K0405380 539 | * K0405390 540 | * K0405400 7B81 7101 541 | MDX 1 1 MOVE POINTER K0405410 7B82 6400 7AEA 542 | LDX L DD3 GO CHECK NEXT WORD K0405420 543 | * K0405430 544 | * CONSTANT K0405440 7B84 0002 545 | TWO DC 2 TWO K0405450 546 | * K0405460 547 | * K0405470 7B85 7401 7A2D 548 | JIMY MDX L ERROR,1 SET OVERLAP ERROR K0405480 549 | * K0405490 550 | * K0405500 7B87 7007 551 | NXTPQ MDX START GO TO NEXT PART OF PHASE K0405510 552 | * K0405520 553 | * K0405530 554 | * CHECKS THAT DIMENTIONING K0405540 555 | * DOES NOT EXCEED THREE LEVELS K0405550 7B88 C400 7B07 556 | TCNT LD L CNT LOAD DIMENSION COUNT K0405560 7B8A 90B8 557 | S THRE IS IT THREE OR GREATER K0405570 7B8B 4C28 7B0B 558 | BSC L PRTE+2,+Z BRANCH IF NOT K0405580 7B8D 6400 7A99 559 | LDX L GEEP ERROR - BRANCH K0405590 SUBROUTINE OR FUNCTION 561 | * UNUSED CODE REMOVED 2-9 K0405610 562 | * K0405620 7B8F C400 7A2D 563 | START LD L ERROR IS THERE OVERLAP ERROR K0405630 7B91 4C20 7C22 564 | BSC L SOS,Z BRANCH IF YES K0405640 565 | * K0405650 566 | * INITIALIZE PHASE K0405660 7B93 6580 7A24 567 | LDX I1 SOFS INITIALIZE STRING POINTER K0405670 7B95 6C00 7A88 568 | STX L SW5 SET SW5 ON 2-11 K0405680 569 | * K0405690 570 | * K0405700 7B97 C100 571 | STARF LD 1 0 LD STMNT ID K0405710 7B98 180B 572 | SRA 11 K0405720 7B99 9062 573 | S FIOC TEST IF FIO CALL K0405730 7B9A 4C20 7BA4 574 | BSC L STAR1,Z BRANCH IF NOT K0405740 575 | * K0405750 7B9C 685E 576 | STX SW5A SET FIO STMNT PRESENT SW K0405760 577 | * K0405770 7B9D C100 578 | LD 1 0 GET STMNT NORM K0405780 7B9E 1802 579 | SRA 2 K0405790 7B9F E065 580 | AND IDNVQ K0405800 7BA0 D001 581 | STO *+1 K0405810 7BA1 7500 0000 582 | MDX L1 *-* MOVE TO NEXT STMNT K0405820 583 | * K0405830 7BA3 70F3 584 | MDX STARF CHECK NEXT STMNT K0405840 585 | * K0405850 586 | * K0405860 587 | * CHECKS THE FORTRAN COMMUNICATION K0405870 588 | * AREA (SORF) FOR A SUBP INDN - K0405880 589 | * IF NONE, CHECKS THE FIRST STMNT K0405890 590 | * TO SEE IF IT IS REAL OR INTEGER K0405900 7BA4 C400 7A30 591 | STAR1 LD L SORF HAVE SUBROUTINE OR FUNC K0405910 7BA6 4C20 7BCC 592 | BSC L DO3,Z BRANCH IF YES K0405920 593 | * K0405930 594 | * K0405940 7BA8 C100 595 | LD 1 0 LOAD STMNT ID WORD K0405950 7BA9 1801 596 | SRA 1 K0405960 7BAA E05B 597 | AND IDTPQ GET STMNT ID TYPE K0405970 7BAB 9051 598 | S REALC IS STMNT REAL K0405980 7BAC 4C18 7BB4 599 | BSC L TRY,+- BRANCH IF YES K0405990 7BAE 904F 600 | S INTC IS STMNT INTEGER K0406000 7BAF 4C20 7C22 601 | BSC L SOS,Z BRANCH IF NOT K0406010 602 | * K0406020 603 | * K0406030 7BB1 6C00 7C36 604 | STX L0 ASW3 SET INTEGER STMNT SW K0406040 7BB3 7002 605 | MDX TRY+2 CHECK FOR FUNCTION K0406050 606 | * K0406060 607 | * K0406070 608 | * CHECKS FOR THE WORD 'FUNCTION' K0406080 609 | * IN A REAL OR INTEGER STMNT - K0406090 610 | * IF FOUND, INDICATES A FUNCTION K0406100 611 | * IN THE FORTRAN COMMUNICATION K0406110 612 | * AREA (SORF) K0406120 7BB4 6C00 7C35 613 | TRY STX L0 ASW2 SET REAL STMNT SW K0406130 614 | * K0406140 615 | * ARE NEXT FOUR WORDS 'FUNCTION' K0406150 7BB6 C101 616 | LD 1 1 LOAD WORD K0406160 7BB7 9047 617 | S FUNC1 ARE CHARACTERS 'FU' K0406170 7BB8 4C20 7C22 618 | BSC L SOS,Z BRANCH IF NOT K0406180 7BBA C102 619 | LD 1 2 LOAD 2ND WORD K0406190 7BBB 9044 620 | S FUNC2 ARE CHARACTERS 'NC' K0406200 7BBC 4C20 7C22 621 | BSC L SOS,Z BRANCH IF NOT K0406210 7BBE C103 622 | LD 1 3 LOAD 3RD WORD K0406220 7BBF 9041 623 | S FUNC3 ARE CHARACTERS 'IO' K0406230 7BC0 4C20 7C22 624 | BSC L SOS,Z BRANCH IF NOT K0406240 7BC2 C104 625 | LD 1 4 LOAD 4TH WORD K0406250 7BC3 903E 626 | S FUNC4 IS CHARACTER 'N' K0406260 7BC4 4C20 7C22 627 | BSC L SOS,Z BRANCH IF NOT K0406270 7BC6 6D00 7A87 628 | STX L1 IDADR SAVE STMNT ID POINTER 2-11 K0406280 7BC8 7105 629 | MDX 1 5 MOVE POINTER K0406290 630 | * K0406300 631 | * INDICATE FUNCTION IN K0406310 632 | * COMMUNICATION AREA K0406320 7BC9 7401 7A30 633 | MDX L SORF,1 SET FUNCTION IN SORF K0406330 7BCB 700A 634 | MDX DO2+2 CHECK FOR LEGAL NAME 2-12 K0406340 635 | * K0406350 636 | * K0406360 637 | * CHECKS FOR A SUBP OR FUNC STMNT K0406370 7BCC C100 638 | DO3 LD 1 0 LOAD STMNT ID WORD K0406380 7BCD 180B 639 | SRA 11 GET STMNT ID TYPE K0406390 7BCE 902A 640 | S SF1 IS IT FUNCTION K0406400 7BCF 4C18 7BD4 641 | BSC L DO2,+- BRANCH IF YES K0406410 7BD1 9028 642 | S SF2 IS IT SUBROUTINE K0406420 7BD2 4C20 7C22 643 | BSC L SOS,Z BRANCH IF NO K0406430 644 | * K0406440 645 | * CHECKS FOR A VALID SUBP NAME K0406450 7BD4 6D00 7A87 646 | DO2 STX L1 IDADR SAVE STMNT ID POINTER 2-11 K0406460 7BD6 7101 647 | MDX 1 1 MOVE POINTER K0406470 7BD7 C100 648 | LD 1 0 LOAD WORD K0406480 7BD8 4810 649 | BSC - SKIP IF NUMBER OR LETTER K0406490 7BD9 703B 650 | MDX ER7 ERROR K0406500 7BDA D028 651 | STO WRD1 SAVE WORD K0406510 7BDB C101 652 | LD 1 1 LOAD 2ND WORD K0406520 7BDC 4C28 7BE1 653 | BSC L MADS,+Z BRANCH IF NAME TWO WORDS K0406530 7BDE C02D 654 | LD ZO SET ZEROS FOR K0406540 7BDF D024 655 | STO WRD2 SECOND WORD OF NAME K0406550 7BE0 7005 656 | MDX ZOR PUT NAME IN SYMBOL TABLE K0406560 7BE1 D022 657 | MADS STO WRD2 STORE 2ND WORD K0406570 7BE2 7101 658 | MDX 1 1 MOVE POINTER K0406580 7BE3 C101 659 | LD 1 1 LOAD NEXT WORD K0406590 7BE4 4C28 7C15 660 | BSC L ER7,+Z ERROR IF NOT SPECIAL OPER K0406600 661 | * K0406610 662 | * SCANS THE SYM TBL FOR K0406620 663 | * DUPLICATION OF THE SUBP NAME K0406630 7BE6 6780 7A27 664 | ZOR LDX I3 SOFNS INITIALIZE SYMBOL TABLE PT K0406640 7BE8 7009 665 | MDX HACK START CHECK K0406650 7BE9 C301 666 | LOP LD 3 1 DOES FIRST WORD OF SYMBOL K0406660 7BEA 9018 667 | S WRD1 TABLE MATCH 1ST PART K0406670 7BEB 4820 668 | BSC Z SKIP IF YES K0406680 7BEC 7004 669 | MDX EATQ GET NEXT TABLE ENTRY K0406690 7BED C302 670 | LD 3 2 DOES 2ND WORD OF SYMBOL K0406700 7BEE 9015 671 | S WRD2 TABLE MATCH 2ND PART K0406710 7BEF 4C18 7C0D 672 | BSC L CHK,+- BRANCH IF YES K0406720 7BF1 73FD 673 | EATQ MDX 3 -3 GO TO NEXT TABLE ENTRY K0406730 7BF2 6B14 674 | HACK STX 3 SAVE STORE POINTER K0406740 7BF3 C013 675 | LD SAVE HAS ENTIRE SYMBOL TABLE K0406750 7BF4 9400 7A2A 676 | S L EOFST BEEN CHECKED FOR DUPLICATE K0406760 7BF6 4820 677 | BSC Z SKIP IF YES K0406770 7BF7 70F1 678 | MDX LOP CONTINUE LOOP K0406780 7BF8 7040 679 | MDX PLACQ PLACE NAME IN TABLE K0406790 680 | * K0406800 681 | * CONSTANTS K0406810 7BF9 000D 682 | SF1 DC /0D FUNCTION K0406820 7BFA FFF7 683 | SF2 DC /04-/0D SUBROUTINE K0406830 7BFB 0000 684 | SW5A DC 0 SWITCH 5A K0406840 7BFC 001B 685 | FIOC DC /1B FIO K0406850 7BFD 2400 686 | REALC DC /2400 REAL K0406860 7BFE 0400 687 | INTC DC /0400 INTEGER K0406870 7BFF 8D22 688 | FUNC1 DC /8D22 FU K0406880 7C00 D0E3 689 | FUNC2 DC /D0E3 NC K0406890 7C01 92B2 690 | FUNC3 DC /92B2 TI K0406900 7C02 D000 691 | FUNC4 DC /D000 ON K0406910 7C03 0000 692 | WRD1 DC *-* TEMPORARY STORAGE FOR K0406920 7C04 0000 693 | WRD2 DC *-* SYMBOL TABLE ENTRY K0406930 7C05 01FF 694 | IDNVQ DC /01FF NORM MASK K0406940 7C06 7C00 695 | IDTPQ DC /7C00 STMNT ID TYPE MASK K0406950 7C07 0000 696 | SAVE DC 0 TEMPORARY STORAGE K0406960 7C08 0007 697 | ER7R DC 7 ERROR NO. 7 K0406970 7C09 000C 698 | ERR12 DC 12 ERROR NO. 12 K0406980 7C0A 000D 699 | ERR13 DC 13 ERROR NO. 13 K0406990 7C0B 000E 700 | ERR14 DC 14 ERROR NO. 14 K0407000 7C0C 8000 701 | ZO DC /8000 SECOND WORD OF 1 WORD NAME K0407010 702 | * K0407020 703 | * CHECKS THAT A PARAMETER NAME K0407030 704 | * HAS NOT BEEN ENTERED INTO COMMON K0407040 7C0D C300 705 | CHK LD 3 0 LOAD SYMBOL TABLE ID WORD K0407050 7C0E 1002 706 | SLA 2 IS IT IN COMMON K0407060 7C0F 4828 707 | BSC +Z BRANCH IF NOT K0407070 7C10 700C 708 | MDX ER13 GO SET UP ERROR 13 K0407080 709 | * K0407090 710 | * SET UP ERRORS K0407100 7C11 C0F9 711 | ER14 LD ERR14 SET UP K0407110 7C12 D400 7A8C 712 | STO L ERRNO ERROR NO. 14 2-11 K0407120 7C14 700B 713 | MDX CLOSE CLOSE UP STRING K0407130 7C15 C0F2 714 | ER7 LD ER7R SET UP K0407140 7C16 D400 7A8C 715 | STO L ERRNO ERROR NO. 7 2-11 K0407150 7C18 7007 716 | MDX CLOSE CLOSE UP STRING K0407160 7C19 C0EF 717 | ER12 LD ERR12 SET UP K0407170 7C1A D400 7A8C 718 | STO L ERRNO ERROR NO. 12 2-11 K0407180 7C1C 7003 719 | MDX CLOSE CLOSE UP STRING K0407190 7C1D C0EC 720 | ER13 LD ERR13 SET UP K0407200 7C1E D400 7A8C 721 | STO L ERRNO ERROR NO. 13 2-11 K0407210 722 | * K0407220 7C20 4C00 7AA1 723 | CLOSE BSC L EROR BRCH TO INSERT ERROR 2-11 K0407230 724 | * K0407240 725 | * BRANCHES TO THE ROL ROUTINE TO K0407250 726 | * LOAD THE NEXT PHASE K0407260 727 | * K0407270 7C22 6580 7C29 728 | SOS LDX I1 NXTPH+1 LOAD PARAM FOR READING K0407280 7C24 C805 729 | LDD NXTPH+2 NEXT PHASE K0407290 7C25 4C00 7FBC 730 | BSC L ROL GO TO READ NEXT PHASE K0407300 7C28 731 | BSS E 0 K0407310 7C28 0023 732 | NXTPH DC 35 ID OF NEXT PHASE K0407320 7C29 733 | BSS 3 LOADER TABLE FOR NEXT PHS K0407330 734 | * K0407340 735 | * CONSTANTS K0407350 7C2C 7E00 736 | H7E00 DC /7E00 STMNT ID TYPE MASK K0407360 7C2D 1200 737 | H1200 DC /1200 I K0407370 7C2E 1800 738 | H1800 DC /1800 N K0407380 7C2F 4080 739 | H4080 DC /4080 INTEGER SUBPROGRAM K0407390 7C30 0080 740 | H0080 DC /0080 REAL SUBPROGRAM K0407400 7C31 001E 741 | SEMI DC /001E SEMICOLON K0407410 7C32 FFF2 742 | RPAR DC /1D-/2B RIGHT PARENTHESIS K0407420 7C33 000D 743 | LPAR DC /0D LEFT PARENTHESIS K0407430 7C34 0002 744 | TWOS DC 2 TWO K0407440 7C35 0000 745 | ASW2 DC *-* SWITCH 2A K0407450 7C36 0000 746 | ASW3 DC *-* SWITCH 3A K0407460 7C37 0003 747 | THREE DC 3 THREE K0407470 7C38 8001 748 | SIGN1 DC /8001 SIGN K0407480 749 | * K0407490 750 | * PLACES THE SUBP NAME INTO THE K0407500 751 | * SYM TBL - PLACES THE ADDR OF THE K0407510 752 | * SYM TBL ENTRY INTO THE FORTRAN K0407520 753 | * COMMUNICATIONS AREA (FNAME) K0407530 7C39 C0CA 754 | PLACQ LD WRD2 LOAD SECOND WORD K0407540 7C3A D302 755 | STO 3 2 PUT IN SYMBOL TABLE K0407550 7C3B C0C7 756 | LD WRD1 LOAD FIRST WORD K0407560 7C3C D301 757 | STO 3 1 PUT IN SYMBOL TABLE K0407570 758 | * K0407580 759 | * PUT SYMBOL TABLE ADDRESS IN K0407590 760 | * COMMUNICATION AREA K0407600 7C3D C400 7A26 761 | LD L SOFST FIND LOCATION OF PRESENT K0407610 7C3F 90C7 762 | S SAVE ENTRY RELATIVE TO START K0407620 7C40 1890 763 | SRT 16 OF SYMBOL TABLE K0407630 7C41 A8F5 764 | D THREE GET ENTRY POSITION K0407640 7C42 80F5 765 | A SIGN1 GIVE SIGN K0407650 7C43 D400 7A2E 766 | STO L FNAME SAVE K0407660 767 | * K0407670 768 | * K0407680 7C45 C0EF 769 | LD ASW2 IS IT REAL K0407690 7C46 4C18 7C4B 770 | BSC L IGER,+- BRANCH IF NOT K0407700 771 | * K0407710 772 | * K0407720 7C48 1010 773 | SLA 16 K0407730 7C49 D0EB 774 | STO ASW2 CLEAR REAL STMNT SW K0407740 7C4A 7010 775 | MDX REELQ GO SET REAL SUBPROGRAM BIT K0407750 776 | * K0407760 777 | * K0407770 7C4B C0EA 778 | IGER LD ASW3 ID IT INTEGER K0407780 7C4C 4C18 7C51 779 | BSC L PLAC1,+- BRANCH IF NOT K0407790 780 | * K0407800 781 | * K0407810 7C4E 1010 782 | SLA 16 K0407820 7C4F D0E6 783 | STO ASW3 CLEAR INTEGER STMNT SW K0407830 7C50 7008 784 | MDX PLAC1+8 GO SET INTEGER SUBPRG BITS K0407840 785 | * K0407850 786 | * SET THE SUBP AND TYPE INDRS IN K0407860 787 | * THE SYM TBL ID WORD OF A SUBP K0407870 788 | * SUBP NAME FOUND IN A SUBP, FUNC, K0407880 789 | * REAL FUNCTION, OR INTEGER FUNC K0407890 790 | * STMNT - CHECKS FOR A SYM TBL K0407900 791 | * OVERLAP K0407910 7C51 C0B1 792 | PLAC1 LD WRD1 LOAD FIRST WORD K0407920 7C52 E0D9 793 | AND H7E00 CLEAR ALL BUT FIRST WORD K0407930 7C53 90D9 794 | S H1200 IS IT LESS THAN I K0407940 7C54 4828 795 | BSC +Z SKIP IF YES K0407950 7C55 7005 796 | MDX REELQ GO SET REAL SUBP BITS K0407960 7C56 90D7 797 | S H1800 IS IT N OR LESS K0407970 7C57 4C30 7C5B 798 | BSC L REELQ,Z- BRANCH IF NOT K0407980 7C59 C0D5 799 | LD H4080 SET INTEGER SUBPRG BITS K0407990 7C5A 7001 800 | MDX VIPQ SET INTEGER SUBP BITS K0408000 7C5B C0D4 801 | REELQ LD H0080 SET REAL SUBPROGRAM BITS K0408010 7C5C D300 802 | VIPQ STO 3 0 PUT IN SYMBOL TABLE K0408020 7C5D 73FD 803 | MDX 3 -3 MOVE SYMBOL TABLE POINTER K0408030 7C5E 6F00 7A2A 804 | STX L3 EOFST NEW END OF SYMBOL TABLE K0408040 7C60 74FD 7A28 805 | MDX L SOFXT,-3 MOVE SYMBOL K0408050 7C62 74FD 7A29 806 | MDX L SOFGT,-3 TABLE ADDRESSES K0408060 807 | * K0408070 808 | * SYMBOL TABLE OVERLAP K0408080 7C64 C400 7A2A 809 | LD L EOFST LOAD END OF SYMBOL TABLE K0408090 7C66 80CD 810 | A TWOS ADD TWO K0408100 7C67 9400 7A25 811 | S L EOFS SUBTRACT END OF STRING K0408110 7C69 4C28 7CDD 812 | BSC L JIMMY,+Z BRANCH IF OVERLAP ERROR K0408120 813 | * K0408130 814 | * K0408140 7C6B 7101 815 | SLOP MDX 1 1 MOVE POINTER K0408150 816 | * K0408160 817 | * K0408170 818 | * CHECKS FOR A LEFT PARENTHESIS OR K0408180 819 | * A STMNT TERMINATOR FOLLOWING THE K0408190 820 | * SUBP NAME K0408200 7C6C C100 821 | DTB LD 1 0 LOAD WORD K0408210 7C6D 90C3 822 | S SEMI IS CHARACTER SEMI-COLON K0408220 7C6E 4C18 7CD4 823 | BSC L RMV,+- BRANCH IF YES K0408230 824 | * K0408240 825 | * K0408250 7C70 C034 826 | LD ASW1 RIGHT PARENTHESIS FOUND K0408260 7C71 4C20 7C19 827 | BSC L ER12,Z BRANCH IF YES K0408270 828 | * K0408280 829 | * K0408290 7C73 C100 830 | LD 1 0 LOAD WORD K0408300 7C74 90BE 831 | S LPAR IS CHARACTER LEFT PAREN K0408310 7C75 4C20 7C19 832 | BSC L ER12,Z BRANCH IF NOT K0408320 833 | * K0408330 834 | * K0408340 7C77 7101 835 | FLIP MDX 1 1 MOVE POINTER K0408350 836 | * K0408360 837 | * CHECKS FOR A VALID PARAM NAME K0408370 7C78 C100 838 | FLOP LD 1 0 LOAD WORD K0408380 7C79 4C10 7C15 839 | BSC L ER7,- ERROR IF OPERATOR 2-4 K0408390 7C7B 1002 840 | SLA 2 ERROR IF NOT 2-4 K0408400 7C7C 4C2A 7C15 841 | BSC L ER7,C+Z ALPHABETIC CHARACTER 2-4 K0408410 7C7E C100 842 | LD 1 0 LOAD WORD AGAIN 2-4 K0408420 7C7F D01F 843 | STO WDD1 SAVE WORD K0408430 7C80 C101 844 | LD 1 1 LOAD 2ND WORD K0408440 7C81 4C28 7C87 845 | BSC L SADS,+Z BRANCH IF PART OF NAME K0408450 7C83 C400 7C0C 846 | LD L ZO LOAD ZEROS AS 2ND WORD K0408460 7C85 D01A 847 | STO WDD2 STORE K0408470 7C86 7005 848 | MDX ZARRO GO PUT IN SYMBOL TABLE K0408480 7C87 D018 849 | SADS STO WDD2 STORE 2ND WORD K0408490 7C88 7101 850 | MDX 1 1 MOVE POINTER K0408500 7C89 C101 851 | LD 1 1 LOAD NEXT WORD K0408510 7C8A 4C28 7C15 852 | BSC L ER7,+Z BRANCH NOT SPECIAL CHAR K0408520 853 | * K0408530 854 | * SCANS THE SYM TBL FOR K0408540 855 | * DUPLICATION OF A VAR NAME K0408550 7C8C 6780 7A27 856 | ZARRO LDX I3 SOFNS LOAD START OF CHECK ADDR K0408560 7C8E 7009 857 | MDX CAKE START LOOP K0408570 7C8F C301 858 | LIPS LD 3 1 DOES FIRST WORD OF NAME K0408580 7C90 900E 859 | S WDD1 MATCH 1ST WORD OF TABLE K0408590 7C91 4820 860 | BSC Z SKIP IF YES K0408600 7C92 7004 861 | MDX CLET GET NEXT SYMBOL TBL ENTRY K0408610 7C93 C302 862 | LD 3 2 DOES 2ND WORD MATCH 2ND K0408620 7C94 900B 863 | S WDD2 WORD OF SYMBOL TBL ENTRY K0408630 7C95 4C18 7C0D 864 | BSC L CHK,+- BRANCH IF YES K0408640 7C97 73FD 865 | CLET MDX 3 -3 MOVE PT TO NEXT TBL ENTRY K0408650 7C98 6B08 866 | CAKE STX 3 SIV SAVE TABLE POINTER K0408660 7C99 C007 867 | LD SIV LOAD ENTRY ADDRESS K0408670 7C9A 9400 7A2A 868 | S L EOFST SUBTRACT END OF TABLE K0408680 7C9C 4820 869 | BSC Z SKIP IF FINISHED CHECK K0408690 7C9D 70F1 870 | MDX LIPS CONTINUE LOOP K0408700 7C9E 7008 871 | MDX PIECE PUT NAME IN SYMBOL TABLE K0408710 872 | * K0408720 873 | * CONSTANTS K0408730 7C9F 0000 874 | WDD1 DC 0 TEMPORARY STORAGE FOR K0408740 7CA0 0000 875 | WDD2 DC 0 SYMBOL TABLE ENTRY K0408750 7CA1 0000 876 | SIV DC 0 TEMPORARY STORAGE K0408760 7CA2 4400 877 | IDCII DC /4400 INTEGER FUNCTION K0408770 7CA3 0400 878 | IDCRR DC /0400 REAL FUNCTION K0408780 7CA4 002B 879 | COMA DC /2B COMMA K0408790 7CA5 0000 880 | ASW1 DC 0 SWITCH 1A K0408800 7CA6 000F 881 | ERR15 DC 15 ERROR NO. 15 K0408810 882 | * K0408820 883 | * PLACES THE PARAM NAME INTO THE K0408830 884 | * SYM TBL - SETS THE PARAM AND K0408840 885 | * TYPE INDICATORS IN THE SYM TBL - K0408850 886 | * CHECKS FOR A SYM TBL OVERLAP K0408860 887 | * CHECKS FOR A COMMA OR RIGHT K0408870 888 | * PARENTHESIS K0408880 7CA7 C0F8 889 | PIECE LD WDD2 LOAD 2ND WORD K0408890 7CA8 D302 890 | STO 3 2 PUT IN SYMBOL TABLE K0408900 7CA9 C0F5 891 | LD WDD1 LOAD 1ST WORD K0408910 7CAA D301 892 | STO 3 1 PUT IN SYMBOL TABLE K0408920 893 | * K0408930 894 | * INDICATE TYPE AND K0408940 895 | * FORMAL PARAMETER K0408950 7CAB C0F3 896 | LD WDD1 LOAD FIRST WORD K0408960 7CAC E400 7C2C 897 | AND L H7E00 GET FIRST CHARACTER K0408970 7CAE 9400 7C2D 898 | S L H1200 IS IT LESS THAN I K0408980 7CB0 4828 899 | BSC +Z SKIP IF NO K0408990 7CB1 7006 900 | MDX KEEL SET REAL INDICATORS K0409000 7CB2 9400 7C2E 901 | S L H1800 IS IT GREATER THAN N K0409010 7CB4 4C30 7CB8 902 | BSC L KEEL,Z- BRANCH IF YES K0409020 7CB6 C0EB 903 | LD IDCII LOAD INTEGER FUNCTION ID K0409030 7CB7 7001 904 | MDX HIPS GO PUT IN SYMBOL TABLE K0409040 7CB8 C0EA 905 | KEEL LD IDCRR LOAD REAL FUNCTION ID K0409050 7CB9 D300 906 | HIPS STO 3 0 PUT IN SYMBOL TABLE K0409060 7CBA 73FD 907 | MDX 3 -3 MOVE POINTER K0409070 7CBB 6F00 7A2A 908 | STX L3 EOFST NEW END OF SYMBOL TABLE K0409080 7CBD 74FD 7A28 909 | MDX L SOFXT,-3 MODIFY SYMBOL K0409090 7CBF 74FD 7A29 910 | MDX L SOFGT,-3 TABLE ADDRESSES K0409100 911 | * K0409110 912 | * SYMBOL TABLE OVERLAP K0409120 7CC1 C400 7A2A 913 | LD L EOFST LOAD END OF SYMBOL TABLE K0409130 7CC3 8400 7C34 914 | A L TWOS ADD TWO K0409140 7CC5 9400 7A25 915 | S L EOFS SUBTRACT END OF STRING K0409150 7CC7 4C28 7CDD 916 | BSC L JIMMY,+Z BRANCH IF OVERLAP K0409160 917 | * K0409170 918 | * K0409180 7CC9 7101 919 | MDX 1 1 MOVE STRING POINTER K0409190 920 | * K0409200 921 | * K0409210 7CCA C100 922 | LD 1 0 LOAD WORD K0409220 7CCB 90D8 923 | S COMA IS CHARACTER COMMA K0409230 7CCC 4C18 7C77 924 | BSC L FLIP,+- BRANCH IF YES K0409240 925 | * K0409250 926 | * K0409260 7CCE 9400 7C32 927 | S L RPAR IS CHARACTER RIGHT PAREN K0409270 7CD0 4C20 7C19 928 | BSC L ER12,Z BRANCH IF NOT K0409280 929 | * K0409290 930 | * K0409300 7CD2 68D2 931 | STX 0 ASW1 SET RIGHT PARENTHESIS SW K0409310 7CD3 7097 932 | MDX SLOP CHECK REST OF STMNT K0409320 933 | * K0409330 7CD4 C400 7BFB 934 | RMV LD L SW5A IS FIO STMNT PRESENT 2-11 K0409340 7CD6 4C18 7A9F 935 | BSC L REMOV,+- BRCH IF NOT 2-11 K0409350 7CD8 C0CD 936 | LD ERR15 IF PRESENT 2-11 K0409360 7CD9 D400 7A8C 937 | STO L ERRNO SET ERROR TO 15 2-11 K0409370 7CDB 4C00 7AA1 938 | BSC L EROR AND INSERT ON STRING 2-11 K0409380 939 | * K0409390 940 | * K0409400 7CDD 7401 7A2D 941 | JIMMY MDX L ERROR,1 SET OVERLAP ERROR INDR K0409410 7CDF 6400 7C22 942 | LDX L SOS GO TO END OF PHASE K0409420 7CE1 943 | BSS BPHAR+PHLEN*320-1-* PATCH AREA K0409430 7DF5 0000 944 | DC 0 K0409440 7DF6 945 | END BPHAR-2 K0409450 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 92 156 AOT 7B1F 434 428 AOT1 7B20 435 463 ASW1 7CA5 880 826 931 ASW2 7C35 745 613 769 774 ASW3 7C36 746 604 778 783 BPHAR 7A36 139 943 945 CAKE 7C98 866 857 CCWD 7A31 112 CHK 7C0D 705 672 864 CLET 7C97 865 861 CLOSE 7C20 723 713 716 719 CNT 7B07 402 409 471 478 526 556 COMA 7CA4 879 923 COMAC 7AFE 393 366 517 521 COMMC 7A38 148 174 COMON 7A2B 106 CONST 7AF6 385 352 COT1 7B02 397 435 COT2 7B03 398 442 CSIZE 7A2C 107 DD1 7AF2 380 368 DD2 7A5F 208 193 381 DD3 7AEA 365 542 DFCNT 7A33 132 DO2 7BD4 646 634 641 DO3 7BCC 638 592 DTB 7C6C 821 EAT 7A7C 238 233 EATQ 7BF1 673 669 ENDC 7A39 149 170 EOFS 7A25 100 302 317 353 537 811 915 EOFST 7A2A 105 241 346 351 530 535 676 804 809 868 908 913 ER12 7C19 717 827 832 928 ER13 7C1D 720 708 ER14 7C11 711 ER7 7C15 714 650 660 839 841 852 ER7R 7C08 697 714 ERAH 7A9C 275 210 213 222 EROR 7AA1 286 268 271 274 277 723 938 ERR10 7A8D 257 269 ERR11 7A8E 258 266 ERR12 7C09 698 717 ERR13 7C0A 699 720 ERR14 7C0B 700 711 ERR15 7CA6 881 936 ERR7 7A8F 259 275 ERR8 7A90 260 272 ERRID 7A91 261 296 ERRNO 7A8C 256 267 270 273 276 280 298 712 715 718 721 937 ERROR 7A2D 108 160 548 563 941 FIOC 7BFC 685 573 FIX 7A53 189 176 FLIP 7C77 835 924 FLOP 7C78 838 FNAME 7A2E 109 766 FUNC1 7BFF 688 617 FUNC2 7C00 689 620 FUNC3 7C01 690 623 FUNC4 7C02 691 626 GEEP 7A99 272 418 433 440 441 444 452 454 457 475 494 503 523 559 H0080 7C30 740 801 H1200 7C2D 737 794 898 H1800 7C2E 738 797 901 H4080 7C2F 739 799 H7E00 7C2C 736 793 897 HACK 7BF2 674 665 HELP 7A93 266 236 HELP1 7B04 399 448 456 HIPS 7CB9 906 904 IDADR 7A87 251 189 286 292 303 628 646 IDCI 7AFB 390 342 IDCII 7CA2 877 903 IDCR 7AFC 391 344 IDCRR 7CA3 878 905 IDNRM 7A83 247 181 289 IDNVQ 7C05 694 580 IDTPE 7A3A 150 169 IDTPQ 7C06 695 597 IGER 7C4B 778 770 INTC 7BFE 687 600 IOCS 7A32 121 JACK 7A7D 239 227 JIMMY 7CDD 941 812 916 JIMY 7B85 548 354 538 KEEL 7CB8 905 900 902 LIPS 7C8F 858 870 LOOP 7A74 229 243 LOOP1 7AB9 310 315 LOP 7BE9 666 678 LPAR 7C33 743 831 MAD 7A6C 219 215 MADS 7BE1 657 653 MEMRY 8000 89 90 91 MV 7A4C 179 NEX 7B44 471 439 NEXP 7B67 513 486 498 NINT 7B05 400 443 445 NORM2 7A85 249 192 202 374 NRMSV 7AF5 384 291 304 NXID 7A50 183 182 NXTPH 7C28 732 142 728 729 NXTPQ 7B87 551 161 171 O2 7B53 488 481 O3 7B60 500 490 OKJOE 7A36 145 ORG 7A23 98 OVERL 7A23 90 94 PARNL 7AFD 392 361 PARNR 7B08 403 522 PH 7A3B 155 145 PHID 0022 95 155 PHLEN 0003 93 943 PIECE 7CA7 889 871 PILL 7B28 441 438 PIT 7AF7 386 416 417 PIT1 7AF8 387 336 PLAC1 7C51 792 779 784 PLACE 7AC8 329 244 PLACQ 7C39 754 679 PRTE 7B09 408 362 558 PTB 7A58 197 375 REALC 7BFD 686 598 REEL 7AD6 344 339 341 REELQ 7C5B 801 775 796 798 REMOV 7A9F 279 199 935 RGTI 7AF9 388 337 RGTN 7AFA 389 340 RMV 7CD4 934 823 ROL 7FBC 91 730 RPAR 7C32 742 927 SADS 7C87 849 845 SAVE 7C07 696 674 675 762 SAVEQ 7A8B 255 239 240 SAVX1 7AC1 318 308 SEMI 7C31 741 822 SEMIC 7A84 248 198 SETUP 7A96 269 203 SF1 7BF9 682 640 SF2 7BFA 683 642 SIGN1 7C38 748 765 SIV 7CA1 876 866 867 SLOP 7C6B 815 932 SOFGT 7A29 104 348 532 806 910 SOFNS 7A27 102 226 664 856 SOFS 7A24 99 157 567 SOFST 7A26 101 761 SOFXT 7A28 103 347 531 805 909 SORF 7A30 111 591 633 SOS 7C22 728 321 564 601 618 621 624 627 643 942 STAR1 7BA4 591 574 STARF 7B97 571 584 START 7B8F 563 551 SUMM 7B06 401 423 449 458 474 482 492 501 SW2 7A86 250 373 479 488 SW5 7A88 252 320 568 SW5A 7BFB 684 576 934 TCNT 7B88 556 518 TEM 7B00 395 426 430 434 460 462 TEMPT 7B42 466 451 455 THRE 7B43 467 557 THREE 7C37 747 764 TRY 7BB4 613 599 605 TST 7A43 167 184 322 TWO 7B84 545 536 TWOS 7C34 744 810 914 VIP 7AD7 345 343 VIPQ 7C5C 802 800 WD1 7A89 253 211 230 331 335 WD2 7A8A 254 217 219 235 329 WDD1 7C9F 874 843 859 891 896 WDD2 7CA0 875 847 849 863 889 WRD1 7C03 692 651 667 756 792 WRD2 7C04 693 655 657 671 754 ZARRO 7C8C 856 848 ZERO 7A92 262 216 ZO 7C0C 701 654 846 ZOR 7BE6 664 656 ZORRO 7A71 226 218
ibm/ibm1130-lib/dmsr2v12/kforph04_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator