ibm:ibm1130-lib:dmsr2v12:kforph03_lst
KFORPH03
| Table Of Contents |
|---|
|
- kforph03.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph03.asm 1130 FORTRAN COMPILER PHASE 3 2 | *************************************************** K0300020 3 | *STATUS - VERSION 2, MODIFICATION 12 * K0300030 4 | * * K0300040 5 | *FUNCTION/OPERATION- * K0300050 6 | * * CHECKS SUBPROGRAM AND SPECIFICATION STMNTS * K0300060 7 | * FOR THE PROPER ORDER. REMOVES ANY STMNT * K0300070 8 | * NUMBERS FROM THESE STATEMENTS * K0300080 9 | * * CHECKS TO ENSURE THAT STMNTS FOLLOWING IF, * K0300090 10 | * GO TO, RETURN, AND STOP STMNTS HAVE STMNT * K0300100 11 | * NUMBERS * K0300110 12 | * * REMOVES CONTINUE STATEMENTS THAT DO NOT HAVE* K0300120 13 | * STATEMENT NUMBERS * K0300130 14 | * * CHECKS THE STMNTS FOR STMNT NUMBERS * K0300140 15 | * * CHECKS THE SYMBOL TABLE FOR A PREVIOUS ENTRY* K0300150 16 | * OF THE SAME STMNT NUMBER * K0300160 17 | * * PLACES THE STMNT NO. INTO THE SYMBOL TABLE * K0300170 18 | * * PLACES THE SYMBOL TABLE ADDRESS INTO THE * K0300180 19 | * STRING ENTRY * K0300190 20 | * * PHASE 3 MAKES TWO PASSES THROUGH THE STMNT * K0300200 21 | * STRING. THE FIRST PASS CHECKS TO ASCERTAIN * K0300210 22 | * THAT THE SUBPROGRAM AND SPECIFICATION * K0300220 23 | * STMNTS ARE IN THE FOLLOWING SEQUENCE * K0300230 24 | * SUBROUTINE OR FUNCTION STATEMENT * K0300240 25 | * EXTERNAL STATEMENTS * K0300250 26 | * DIMENSION STATEMENTS * K0300260 27 | * COMMON STATEMENTS * K0300270 28 | * EQUIVALENCE STATEMENTS * K0300280 29 | * * THE SECOND PASS OF PHASE 3 SCANS THE STMNT * K0300290 30 | * STRING FOR STMNTS WITH STMNT NUMBERS * K0300300 31 | * * K0300310 32 | *ENTRY POINTS- * K0300320 33 | * START-PHASE 3 IS READ INTO CORE BY PHASE 2 * K0300330 34 | * AND EXECUTION BEGUN AT LOCATION START * K0300340 35 | * * K0300350 36 | *INPUT- * K0300360 37 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0300370 38 | * STRING SCANNED BY THE COMPILER MAY BE * K0300380 39 | * CONSIDERED INPUT * K0300390 40 | * * K0300400 41 | *OUTPUT- * K0300410 42 | * NONE IN THE USUAL SENSE. HOWEVER, PHASE 3 * K0300420 43 | * REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0300430 44 | * ENTRIES TO THE SYMBOL TABLE * K0300440 45 | * * K0300450 46 | *EXTERNAL ROUTINES-N/A * K0300460 47 | * * K0300470 48 | *EXITS- * K0300480 49 | * NORMAL- * K0300490 50 | * PHASE EXITS NORMALLY IF NO ERRORS ARE * K0300500 51 | * FOUND. PHASE 4 IS LOADED AND EXECUTED * K0300510 52 | * ERROR- * K0300520 53 | * THE FLOW OF COMPILER PROCESSING IS NOT * K0300530 54 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED * K0300540 55 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0300550 56 | * ON THE STRING AND STMNT SCANNING PROCESS * K0300560 57 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0300570 58 | * OF AN OVERLAP ERROR. COMPILATION IS * K0300580 59 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0300590 60 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0300600 61 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0300610 62 | * THE ERRORS DETECTED BY PHASE 3 ARE 5, 6 * K0300620 63 | * AND 9. * K0300630 64 | * * K0300640 65 | *TABLES/WORK AREAS- * K0300650 66 | * NON EXCEPT STMNT STRING, SYMBOL TABLE AND * K0300660 67 | * FORTRAN COMMUNICATION AREA * K0300670 68 | * * K0300680 69 | *ATTRIBUTES-N/A * K0300690 70 | * * K0300700 71 | *NOTES- * K0300710 72 | * THE SWITCHES USED IN PHASE 3 FOLLOW. IF NON- * K0300720 73 | * ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0300730 74 | * SWITCH IS NOTMAL=N. * K0300740 75 | * * SW1-SUBROUTINE OR FUNCTION ALLOWABLE * K0300750 76 | * T#NOT ALLOWABLE * K0300760 77 | * * SW2-TYPE STATEMENT ALLOWABLE * K0300770 78 | * T#NOT ALLOWABLE * K0300780 79 | * * SW3-DIMENSION STATEMENT ALLOWABLE * K0300790 80 | * T#NOT ALLOWABLE * K0300800 81 | * * SW4-COMMON STATEMENT ALLOWABLE * K0300810 82 | * T#NOT ALLOWABLE * K0300820 83 | * * SW5-EQUIVALENCE STATEMENT ALLOWABLE * K0300830 84 | * T#NOT ALLOWABLE * K0300840 85 | * * SW7-STATEMENT ORDER INDICATOR * K0300850 86 | * T#STATEMENT OUT OF ORDER * K0300860 87 | *************************************************** K0300870 88 | ABS K0300880 89 | * K0300890 90 | * SYSTEM EQUATES K0300900 8000 91 | MEMRY EQU /8000 K0300910 7A23 92 | OVERL EQU MEMRY-1501 START OF FCOM K0300920 7FBC 93 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K0300930 0078 94 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0300940 0002 95 | PHLEN EQU 2 NO SECTORS THIS PHASE 2-9 K0300945 7A23 96 | ORG OVERL K0300950 0021 97 | PHID EQU 33 ID NUMBER THIS PHASE K0300960 98 | * K0300970 99 | * FORTRAN COMMUNICATION AREA K0300980 7A23 100 | ORG BSS 1 ORIGIN ADDRESS 2-9 K0300985 7A24 101 | SOFS BSS 1 START OF STRING K0300990 7A25 102 | EOFS BSS 1 END OF STRING K0301000 7A26 103 | SOFST BSS 1 START OF SYMBOL TABLE K0301010 7A27 104 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0301020 7A28 105 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0301030 7A29 106 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0301040 7A2A 107 | EOFST BSS 1 END OF SYMBOL TABLE K0301050 7A2B 108 | COMON BSS 1 NEXT AVAILABLE COMMON K0301060 7A2C 109 | CSIZE BSS 1 SIZE OF COMMON K0301070 7A2D 110 | ERROR BSS 1 OVERLAP ERROR K0301080 7A2E 111 | FNAME BSS 1 PROGRAM NAME K0301090 7A2F 112 | BSS 1 K0301100 7A30 113 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0301110 7A31 114 | CCWD BSS 1 CONTROL CARD WORD K0301120 115 | * BIT 15 TRANSFER TRACE K0301130 116 | * BIT 14 ARITHMETIC TRACE K0301140 117 | * BIT 13 EXTENDED PRECISION K0301150 118 | * BIT 12 LIST SYMBOL TABLE K0301160 119 | * BIT 11 LIST SUBPROGRAM NAMES K0301170 120 | * BIT 10 LIST SOURCE PROGRAM K0301180 121 | * BIT 9 ONE WORD INTEGERS K0301190 122 | * BIT 8 ORIGIN 2-9 K0301195 7A32 123 | IOCS BSS 1 IOCS CONTROL CARD WORD K0301200 124 | * BIT 15 CARD K0301210 125 | * BIT 14 PAPER TAPE K0301220 126 | * BIT 13 TYPEWRITER K0301230 127 | * BIT 12 1403 PRINTER K0301240 128 | * BIT 11 2501 READER K0301250 129 | * BIT 10 KEYBOARD K0301260 130 | * BIT 9 1442 PUNCH K0301270 131 | * BIT 8 DISK K0301280 132 | * BIT 7 1132 PRINTER K0301290 133 | * BIT 3 PLOTTER K0301300 7A33 134 | DFCNT BSS 1 K0301310 135 | * K0301320 136 | * K0301330 137 | * END OF FORTRAN COMMUNICATION K0301340 138 | * AREA K0301350 139 | * K0301360 7A36 140 | BPHAR EQU *+2 BEGIN PHASE AREA K0301370 7A34 0000 141 | DC 0 LOADER WORK AREA K0301380 7A35 FFDF 142 | DC -33 -PHASE ID FOR SLET LOOKUP K0301390 7A36 0192 143 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0301400 7A37 0001 144 | DC 1 SYSTEM WORK AREA K0301410 7A36 145 | ORG *-2 K0301420 146 | * K0301430 147 | * K0301440 148 | * K0301450 7A36 6121 149 | START LDX 1 PHID GET ID FOR THIS PHASE K0301460 7A37 6D00 0078 150 | STX L1 $PHSE STORE IN SYST PHASE AREA K0301470 7A39 C0F3 151 | LD ERROR IS THERE OVERLAP ERROR K0301480 7A3A 4C20 7BAE 152 | BSC L INIT,Z GO TO NEXT PHASE IF ERROR K0301490 153 | * K0301500 154 | * INITIALIZE PHASE K0301510 7A3C 6580 7A24 155 | LDX I1 SOFS INITIALIZE I/P STRING PT K0301520 156 | * K0301530 157 | * K0301540 7A3E C100 158 | FIOCL LD 1 0 LOAD STMNT ID WORD K0301550 7A3F 180B 159 | SRA 11 GET STMNT ID TYPE K0301560 7A40 903D 160 | S FIOC IS IT INTERNAL OUTPUT FMT K0301570 7A41 4C18 7B20 161 | BSC L MOVE,+- BRANCH IF YES K0301580 162 | * K0301590 163 | * K0301600 164 | * CHECKS FOR A FUNCTION STMNT K0301610 7A43 C100 165 | ST1 LD 1 0 LOAD STMNT ID WORD K0301620 7A44 1801 166 | SRA 1 K0301630 7A45 E03B 167 | AND IDTPE GET STMNT ID TYPE K0301640 7A46 903B 168 | S FUNCK IS IT FUNCTION K0301650 7A47 4C20 7AB6 169 | BSC L SUBRT,Z BRANCH IF NOT K0301660 170 | * K0301670 171 | * K0301680 7A49 C035 172 | LD ONE SET FUNCTION SWITCH (+) K0301690 7A4A D0E5 173 | STO SORF IN SORF K0301700 174 | * K0301710 175 | * K0301720 7A4B C037 176 | JIM LD SW1 IS SUBR OR FUNC ALLOWED K0301730 7A4C 4C20 7AD8 177 | BSC L BO,Z BRANCH IF NOT K0301740 178 | * DOES STMNT HAVE STMNT NUMBER K0301750 179 | * K0301760 7A4E 7401 7A83 180 | MDX L SW1,1 SET SUBR/FUNC NOT ALLOWED K0301770 181 | * K0301780 182 | * K0301790 183 | * CHECKS THE STMNT FOR A K0301800 184 | * STMNT NUMBER K0301810 7A50 C100 185 | ABEL LD 1 0 LOAD STMNT ID WORD K0301820 7A51 4C04 7A9B 186 | BSC L RMOVE,E BRANCH IF NUMBERED STMNT K0301830 187 | * K0301840 188 | * TEST SW7 K0301850 7A53 C030 189 | JACK LD SW7 IS STMNT OUT OF ORDER K0301860 7A54 4C18 7B20 190 | BSC L MOVE,+- BRANCH IF NOT K0301870 191 | * K0301880 192 | * SET UP ERROR NO. 5 K0301890 7A56 C02E 193 | ER5 LD ERR5 LOAD ERROR NO. 5 K0301900 7A57 D02E 194 | STO ERRNO STORE K0301910 7A58 6920 195 | STX 1 SAVE2+1 DUMMY SAVING OF XR1 2-9 K0301914 196 | * *NEEDED WHEN ENTERING 2-9 K0301915 197 | * *ON ERR6 2-9 K0301916 198 | * K0301920 199 | * REPLACES THE ERRONEOUS STMNT K0301930 200 | * WITH AN ERROR MESSAGE K0301940 201 | * CLOSES UP THE STRING K0301950 7A59 C100 202 | CLOSE LD 1 0 LOAD STMNT ID WORD K0301960 7A5A 1802 203 | SRA 2 SHIFT NORM TO RIGHT K0301970 7A5B E02B 204 | AND IDNRM CLEAR ALL BUT NORM K0301980 7A5C D02B 205 | STO NRMSV K0301990 7A5D 692B 206 | STX 1 SAVE1 SAVE INPUT POINTER K0302000 7A5E C02B 207 | LD ERRID LOAD ERROR STMNT ID WORD K0302010 7A5F D100 208 | STO 1 0 PUT ON STRING K0302020 7A60 C0C4 209 | LD EOFS LOAD END OF STRING ADDRESS K0302030 210 | * K0302040 7A61 9027 211 | S SAVE1 GET RANGE OF MOVE LOOP BY K0302050 7A62 9025 212 | S NRMSV SUBTRACTING PRESENT ADDR K0302060 7A63 D027 213 | STO RANGE THEN SUBTRACTING PRESENT K0302070 7A64 6780 7A8B 214 | LDX I3 RANGE STMNT SIZE K0302080 215 | * K0302090 7A66 7301 216 | MDX 3 1 K0302100 7A67 7101 217 | MDX 1 1 MOVE INPUT POINTER K0302110 7A68 C01D 218 | LD ERRNO PUT ERROR NO. K0302120 7A69 D100 219 | STO 1 0 ON STRING K0302130 7A6A C01E 220 | LD SAVE1 GET ADDRESS OF K0302140 7A6B 801C 221 | A NRMSV NEXT STATEMENT K0302150 7A6C D013 222 | STO GET K0302160 7A6D 6680 7A80 223 | LDX I2 GET INITIALIZE POINTER K0302170 224 | * K0302180 7A6F C200 225 | LOOZ LD 2 0 MOVE WORDS IN STRING K0302190 7A70 D101 226 | STO 1 1 NEXT TO ERROR STMNT K0302200 227 | * K0302210 7A71 7101 228 | MDX 1 1 MOVE POINTERS K0302220 7A72 7201 229 | MDX 2 1 K0302230 7A73 73FF 230 | MDX 3 -1 DECREMENT RANGE OF LOOP K0302240 7A74 70FA 231 | MDX LOOZ CONTINUE LOOP K0302250 7A75 69AF 232 | STX 1 EOFS NEW END OF STRING ADDRESS K0302260 7A76 6580 7A89 233 | LDX I1 SAVE1 RESET INPUT POINTER K0302270 7A78 6500 0000 234 | SAVE2 LDX L1 *-* NECESSARY IF ERR6 2-9 K0302275 235 | * K0302280 236 | * SW7 TO NORMAL K0302290 7A7A 1010 237 | SLA 16 K0302300 7A7B D008 238 | STO SW7 CLEAR OUT OF ORDER SWITCH K0302310 7A7C 6400 7B20 239 | LDX L MOVE GO TO NEXT STMNT K0302320 240 | * K0302330 241 | * CONSTANTS K0302340 7A7E 001B 242 | FIOC DC /1B INTERNAL OUTPUT FORMAT K0302350 7A7F 0001 243 | ONE DC 1 ONE K0302360 7A80 0000 244 | GET DC 0 NEXT STMNT ADDR K0302370 7A81 7C00 245 | IDTPE DC /7C00 STMNT ID TYPE MASK K0302380 7A82 3400 246 | FUNCK DC /3400 FUNCTION K0302390 7A83 0000 247 | SW1 DC 0 SWITCH 1 K0302400 7A84 0000 248 | SW7 DC 0 SWITCH 7 K0302410 7A85 0005 249 | ERR5 DC 5 ERROR NO. 5 K0302420 7A86 0000 250 | ERRNO DC 0 ERROR NO. K0302430 7A87 01FF 251 | IDNRM DC /01FF NORM MASK K0302440 7A88 0000 252 | NRMSV DC 0 NORM STORAGE K0302450 7A89 0000 253 | SAVE1 DC 0 POINTER K0302460 7A8A A008 254 | ERRID DC /A008 ERROR STMNT ID WORD K0302470 7A8B 0000 255 | RANGE DC 0 RANGE OF LOOP K0302480 7A8C 0000 256 | DIP DC 0 INPUT POINTER K0302490 7A8D 0000 257 | DIP1 DC 0 POINTER K0302500 7A8E DC00 258 | SUBRC DC /DC00 SUBROUTINE K0302510 7A8F 2400 259 | REALC DC /2400 REAL K0302520 7A90 0000 260 | SW2 DC 0 SWITCH 2 K0302530 7A91 0000 261 | SW3 DC 0 SWITCH 3 K0302540 7A92 0400 262 | INTC DC /0400 INTEGER K0302550 7A93 2000 263 | DIMC DC /2000 DIMENSION K0302560 7A94 1C00 264 | COMMC DC /1C00 COMMON K0302570 7A95 0002 265 | TWO DC 2 TWO K0302580 7A96 FFFF 266 | MINUS DC /FFFF MINUS K0302590 7A97 0009 267 | VALYU DC 9 ELIMINATES STMNT NO. BITS K0302600 7A98 6800 268 | DFILE DC /7800-/1000 DEFINE FILE K0302610 7A99 0400 269 | DATAS DC /7C00-/7800 DATA K0302620 7A9A 0000 270 | OKSW DC *-* COMMON OUT OF ORDER K0302630 271 | * K0302640 272 | * REMOVES THE STMNT NO. FROM K0302650 273 | * NUMBERED SPECIFICATION STMNTS. K0302660 274 | * ADJUSTS THE NORM K0302670 7A9B 69F0 275 | RMOVE STX 1 DIP SAVE INPUT POINTER K0302680 7A9C 7103 276 | MDX 1 3 MOVE POINTER TO STMNT BODY K0302690 7A9D 69EF 277 | STX 1 DIP1 SAVE INPUT POINTER K0302700 7A9E 6680 7A8D 278 | LDX I2 DIP1 K0302710 7AA0 C400 7A25 279 | LD L EOFS LOAD END OF STRING K0302720 7AA2 90E9 280 | S DIP GET RANGE OF MOVE LOOP K0302730 7AA3 90F1 281 | S TWO K0302740 7AA4 D0E6 282 | STO RANGE K0302750 7AA5 6780 7A8B 283 | LDX I3 RANGE INITIALIZE RANGE COUNTER K0302760 7AA7 71FD 284 | MDX 1 -3 RESTORE INPUT POINTER K0302770 7AA8 C200 285 | LOOP LD 2 0 MOVE WORD DOWN K0302780 7AA9 D101 286 | STO 1 1 TO NEW POSITION K0302790 7AAA 7101 287 | MDX 1 1 MOVE POINTERS K0302800 7AAB 7201 288 | MDX 2 1 K0302810 7AAC 73FF 289 | MDX 3 -1 DECREMENT RANGE OF MOVE K0302820 7AAD 70FA 290 | MDX LOOP CONTINUE LOOP K0302830 7AAE 6D00 7A25 291 | STX L1 EOFS NEW END OF STRING ADDRESS K0302840 7AB0 6580 7A8C 292 | LDX I1 DIP RESTORE INPUT POINTER K0302850 7AB2 C100 293 | LD 1 0 REMOVE STMNT NO. BIT AND K0302860 7AB3 90E3 294 | S VALYU ADJUST NORM IN ID WORD K0302870 7AB4 D100 295 | STO 1 0 PUT BACK ON STRING K0302880 7AB5 709D 296 | MDX JACK RETURN K0302890 297 | * K0302900 298 | * CHECKS FOR A SUBROUTINE STMNT K0302910 7AB6 90D7 299 | SUBRT S SUBRC IS IT SUBROUTINE K0302920 7AB7 4C20 7ABD 300 | BSC L TENT,Z BRANCH IF NOT K0302930 301 | * K0302940 302 | * K0302950 7AB9 C0DC 303 | LD MINUS SET SUBROUTINE SWITCH (-) K0302960 7ABA D400 7A30 304 | STO L SORF IN SORF K0302970 7ABC 708E 305 | MDX JIM GO CHECK SWITCH 1 K0302980 306 | * K0302990 307 | * K0303000 7ABD 7401 7A83 308 | TENT MDX L SW1,1 SET SUBR/FUNC NOT ALLOWED K0303010 309 | * K0303020 310 | * CHECKS FOR DEFINE FILE STMNTS K0303030 7ABF 90D8 311 | S DFILE IS IT DEFINE FILE K0303040 7AC0 4C18 7AC5 312 | BSC L TSTOK,+- BRANCH IF YES K0303050 313 | * K0303060 314 | * K0303070 7AC2 90D6 315 | S DATAS IS IT DATA K0303080 7AC3 4C20 7ACE 316 | BSC L CKRL,Z BRANCH IF NOT K0303090 317 | * K0303100 318 | * K0303110 7AC5 C039 319 | TSTOK LD SW5 IS EQUIVALENCE STMNT K0303120 7AC6 4C20 7AD8 320 | BSC L BO,Z ALLOWED - BRANCH IF NOT K0303130 321 | * K0303140 322 | * K0303150 7AC8 C034 323 | LD SW4 IS COMMON STMNT ALLOWED K0303160 7AC9 4C18 7A50 324 | BSC L ABEL,+- BRANCH IF YES K0303170 325 | * K0303180 326 | * K0303190 7ACB 68CE 327 | STX 0 OKSW SET COMMON OUT OF ORDER SW K0303200 7ACC 4C00 7A50 328 | BSC L ABEL CHECK FOR STMNT NO K0303210 329 | * K0303220 330 | * K0303230 331 | * CHECKS FOR REAL STMNTS K0303240 7ACE C100 332 | CKRL LD 1 0 LOAD STMNT ID WORD K0303250 7ACF 1801 333 | SRA 1 K0303260 7AD0 E0B0 334 | AND IDTPE GET STMNT ID TYPE K0303270 7AD1 D029 335 | STO MAM STORE ID TYPE K0303280 7AD2 90BC 336 | S REALC IS IT REAL K0303290 7AD3 4C20 7ADC 337 | BSC L TENT1,Z BRANCH IF NOT K0303300 338 | * K0303310 339 | * K0303320 7AD5 C0BA 340 | SON LD SW2 IS TYPE STMNT ALLOWABLE K0303330 7AD6 4C18 7A50 341 | BSC L ABEL,+- BRANCH IF YES K0303340 342 | * K0303350 343 | * K0303360 7AD8 7401 7A84 344 | BO MDX L SW7,1 SET STMNT OUT OF ORDER SW K0303370 7ADA 4C00 7A50 345 | BSC L ABEL CHECK FOR STMNT NO. K0303380 346 | * K0303390 347 | * K0303400 348 | * CHECKS FOR INTEGER, EXTERNAL, K0303410 349 | * AND DIMENSION STMNTS K0303420 7ADC 90B5 350 | TENT1 S INTC IS IT INTEGER K0303430 7ADD 4C18 7AD5 351 | BSC L SON,+- BRANCH IF YES K0303440 352 | * K0303450 353 | * K0303460 7ADF 7401 7A90 354 | MDX L SW2,1 SET TYPE NOT ALLOWABLE 212 K0303465 7AE1 C019 355 | LD MAM LOAD STMNT ID TYPE K0303470 7AE2 9019 356 | S EXTER IS IT EXTERNAL K0303480 7AE3 4C18 7A50 357 | BSC L ABEL,+- BR IF YES 212 K0303490 358 | * K0303500 359 | * K0303510 360 | * K0303530 361 | * K0303540 7AE5 C100 362 | LD 1 0 LOAD STMNT ID WORD K0303550 7AE6 1801 363 | SRA 1 K0303560 7AE7 E099 364 | AND IDTPE GET STMNT ID TYPE K0303570 7AE8 90AA 365 | S DIMC IS IT DIMENSION K0303580 7AE9 4C20 7AEF 366 | BSC L TAG3,Z BRANCH IF NOT K0303590 367 | * K0303600 368 | * K0303610 7AEB C0A5 369 | LD SW3 IS DIM STMNT ALLOWABLE K0303620 7AEC 4C18 7A50 370 | BSC L ABEL,+- BRANCH IF YES K0303630 7AEE 70E9 371 | MDX BO SET STMNT OUT OF ORDER SW K0303640 372 | * K0303650 373 | * K0303660 7AEF 7401 7A91 374 | TAG3 MDX L SW3,1 SET DIM NOT ALLOWABLE SW K0303670 375 | * K0303680 376 | * CHECKS FOR COMMON STMNTS K0303690 7AF1 C100 377 | LD 1 0 LOAD STMNT ID WORD K0303700 7AF2 1801 378 | SRA 1 K0303710 7AF3 E08D 379 | AND IDTPE GET STMNT ID TYPE K0303720 7AF4 909F 380 | S COMMC IS IT COMMON K0303730 7AF5 4C20 7B04 381 | BSC L TAG4,Z BRANCH IF NOT K0303740 382 | * K0303750 383 | * K0303760 7AF7 C005 384 | LD SW4 IS COMMON STMNT ALLOWED K0303770 7AF8 4C18 7A50 385 | BSC L ABEL,+- BRANCH IF YES K0303780 7AFA 70DD 386 | MDX BO SET STMNT OUT OF ORDER SW K0303790 387 | * K0303800 388 | * CONSTANTS K0303810 7AFB 0000 389 | MAM DC 0 ID STORAGE K0303820 7AFC 6400 390 | EXTER DC /6400 EXTERNAL K0303830 7AFD 0000 391 | SW4 DC 0 SWITCH 4 K0303840 7AFE 5400 392 | EQUIC DC /5400 EQUIVALENCE K0303850 7AFF 0000 393 | SW5 DC 0 SWITCH 5 K0303860 7B00 5800 394 | CONTC DC /5800 CONTINUE K0303870 7B01 0000 395 | DIP2 DC 0 TEMPORARY STORAGE K0303880 7B02 0000 396 | DIP3 DC 0 TEMPORARY STORAGE K0303890 7B03 E000 397 | GOTOC DC /E000 GO TO K0303900 398 | * K0303910 399 | * K0303920 7B04 7401 7AFD 400 | TAG4 MDX L SW4,1 SET COMMON NOT ALLOWED SW K0303930 401 | * K0303940 402 | * CHECKS FOR EQUIVALENCE STMNTS K0303950 7B06 C100 403 | LD 1 0 LOAD STMNT ID WORD K0303960 7B07 1801 404 | SRA 1 K0303970 7B08 E400 7A81 405 | AND L IDTPE GET STMNT ID TYPE K0303980 7B0A 90F3 406 | S EQUIC IS IT EQUIVALENCE K0303990 7B0B 4C20 7B12 407 | BSC L TAG5,Z BRANCH IF NOT K0304000 408 | * K0304010 409 | * K0304020 7B0D C0F1 410 | LD SW5 K0304030 7B0E E88B 411 | OR OKSW IS EQUIVALENCE STMNT K0304040 7B0F 4C18 7A50 412 | BSC L ABEL,+- ALLOWED - BRANCH IF YES K0304050 7B11 70C6 413 | MDX BO SET STMNT OUT OF ORDER SW K0304060 414 | * K0304070 415 | * K0304080 7B12 7401 7AFF 416 | TAG5 MDX L SW5,1 SET EQUIVALENCE NOT ALLOW K0304090 417 | * K0304100 418 | * CHECKS FOR CONTINUE STMNTS K0304110 7B14 C100 419 | LD 1 0 LOAD STMNT ID WORD K0304120 7B15 1801 420 | SRA 1 K0304130 7B16 E03D 421 | AND IDSTY GET STMNT ID TYPE K0304140 7B17 90E8 422 | S CONTC IS IT CONTINUE K0304150 7B18 4C20 7B56 423 | BSC L EFF,Z BRANCH IF NOT K0304160 424 | * K0304170 425 | * K0304180 7B1A C100 426 | LD 1 0 LOAD SWITCH ID WORD K0304190 7B1B 4C04 7B20 427 | BSC L MOVE,E BRANCH IF HAVE STMNT NO. K0304200 7B1D 400B 428 | BSI RMOV1 REMOVE WORD FROM STRING K0304210 7B1E 4C00 7A43 429 | BSC L ST1 CHECK STATEMENT K0304220 430 | * K0304230 431 | * UPDATES THE STRING I/P PT (XR1) K0304240 432 | * TO MOVE TO THE NEXT STMNT K0304250 7B20 C100 433 | MOVE LD 1 0 LOAD STMNT ID WORD K0304260 7B21 1802 434 | SRA 2 SHIFT RIGHT TO GET NORM K0304270 7B22 E400 7A87 435 | AND L IDNRM GET NORM K0304280 7B24 D001 436 | STO NXID+1 K0304290 7B25 7500 0000 437 | NXID MDX L1 GET ADDR OF NEXT STMNT K0304300 7B27 4C00 7A3E 438 | BSC L FIOCL SEE IF FI0 STMNT K0304310 439 | * K0304320 440 | * REMOVE STATEMENT FROM STRING K0304330 7B29 0000 441 | RMOV1 DC *-* RETURN ADDRESS K0304340 7B2A 69D6 442 | STX 1 DIP2 SAVE POINTER K0304350 7B2B 1802 443 | SRA 2 SHIFT NORM TO RIGHT K0304360 7B2C E400 7A87 444 | AND L IDNRM CLEAR ALL BUT NORM K0304370 445 | * K0304380 7B2E D400 7A88 446 | STO L NRMSV ADD NORM TO POINTER K0304390 7B30 80D0 447 | A DIP2 TO GET ADDRESS OF K0304400 7B31 D0D0 448 | STO DIP3 NEXT STATEMENT K0304410 449 | * K0304420 7B32 6680 7B02 450 | LDX I2 DIP3 INITIALIZE LOOP INPUT PT K0304430 7B34 C400 7A25 451 | LD L EOFS GET RANGE OF LOOP BY K0304440 7B36 90CA 452 | S DIP2 SUBTRACTING POINTER FROM K0304450 7B37 9400 7A88 453 | S L NRMSV END OF STRING THEN K0304460 7B39 D0C8 454 | STO DIP3 SUBTRACT NORM K0304470 455 | * K0304480 7B3A 6780 7B02 456 | LDX I3 DIP3 INITIALIZE RANGE COUNTER K0304490 7B3C 71FF 457 | MDX 1 -1 K0304500 7B3D 7301 458 | MDX 3 1 K0304510 7B3E C200 459 | LOOP1 LD 2 0 MOVE WORD DOWN K0304520 7B3F D101 460 | STO 1 1 TO NEW POSITION K0304530 7B40 7101 461 | MDX 1 1 MOVE POINTERS K0304540 7B41 7201 462 | MDX 2 1 K0304550 7B42 73FF 463 | MDX 3 -1 DECREMENT RANGE COUNTER K0304560 7B43 70FA 464 | MDX LOOP1 CONTINUE LOOP K0304570 7B44 6D00 7A25 465 | STX L1 EOFS NEW END OF STRING ADDRESS K0304580 7B46 6580 7B01 466 | LDX I1 DIP2 RESTORE INPUT POINTER K0304590 7B48 4C80 7B29 467 | BSC I RMOV1 RETURN K0304600 468 | * K0304610 469 | * K0304620 7B4A 0006 470 | ERR6 DC 6 ERROR NO. 6 K0304630 7B4B 0400 471 | IFC DC /0400 IF K0304640 7B4C C800 472 | ENDC DC /0800-/4000 END K0304650 7B4D E400 473 | RTNCN DC /4000-/5C00 RETURN K0304660 7B4E 2000 474 | STOPC DC /2000 STOP K0304670 7B4F 0012 475 | ERCN DC /14-/02 ERROR K0304680 7B50 6800 476 | CLKST DC /7000-/0800 CALL LINK K0304690 7B51 0001 477 | CETST DC /7001-/7000 CALL EIXT K0304700 7B52 A7FF 478 | CLTST DC /1800-/7001 CALL K0304710 7B53 B004 479 | CONT DC /B004 CONTINUE K0304720 7B54 7C01 480 | IDSTY DC /7C01 ID MASK K0304730 7B55 000C 481 | H000C DC /000C FORMAT STATEMENT 2-9 K0304731 482 | * K0304740 483 | * K0304750 484 | * CHECKS FOR THE PRESENCE OF K0304760 485 | * TRANSFER STATEMENTS K0304770 7B56 90AC 486 | EFF S GOTOC IS IT GO TO K0304780 7B57 4C18 7B6C 487 | BSC L MOVES,+- BRANCH IF YES K0304790 488 | * K0304800 489 | * K0304810 7B59 90F1 490 | S IFC IS IT IF K0304820 7B5A 4C18 7B6C 491 | BSC L MOVES,+- BRANCH IF YES K0304830 492 | * K0304840 493 | * K0304850 7B5C 90F1 494 | S STOPC IS IT STOP K0304860 7B5D 4C18 7B6C 495 | BSC L MOVES,+- BRANCH IF YES K0304870 496 | * K0304880 497 | * K0304890 7B5F 90ED 498 | S RTNCN IS IT RETURN K0304900 7B60 4C18 7B6C 499 | BSC L MOVES,+- BRANCH IF YES K0304910 500 | * K0304920 501 | * K0304930 7B62 90E9 502 | S ENDC IS IT END K0304940 7B63 4C18 7BAE 503 | BSC L INIT,+- BRANCH IF YES K0304950 504 | * K0304960 505 | * K0304970 7B65 90EA 506 | S CLKST IS IT CALL LINK K0304980 7B66 4C18 7B6C 507 | BSC L MOVES,+- BRANCH IF YES K0304990 508 | * K0305000 509 | * K0305010 7B68 90E8 510 | S CETST IS IT CALL EXIT K0305020 7B69 4C18 7B6C 511 | BSC L MOVES,+- BRANCH IF YES K0305030 7B6B 70B4 512 | MDX MOVE GO TO NEXT STMNT K0305040 513 | * K0305050 514 | * K0305060 515 | * K0305070 516 | * MOVE TO NEXT STATEMENT K0305080 7B6C C100 517 | MOVES LD 1 0 LOAD STMNT ID WORD K0305090 7B6D 1802 518 | SRA 2 SHIFT NORM TO RIGHT K0305100 7B6E E400 7A87 519 | AND L IDNRM GET NORM K0305110 7B70 D001 520 | STO NEXT+1 K0305120 521 | * K0305130 522 | * CHECKS FOR STMNT NUMBERS IN K0305140 523 | * STMNTS FOLLOWING TRANSFER K0305150 524 | * STMNTS K0305160 7B71 7500 0000 525 | NEXT MDX L1 GET ADDRESS OF NEXT STMNT K0305170 7B73 6D00 7A79 526 | STX L1 SAVE2+1 SAVE POINTER,TO BE USED2-9 K0305175 527 | * *IF ERR6 OCCURS 2-9 K0305176 528 | * K0305180 529 | * K0305190 7B75 C100 530 | CKEND LD 1 0 LOAD STMNT ID WORD K0305200 7B76 180B 531 | SRA 11 GET STMNT ID TYPE K0305210 7B77 9400 7A95 532 | S L TWO IS IT END K0305220 7B79 4C18 7BAE 533 | BSC L INIT,+- BRANCH IF YES K0305230 534 | * K0305240 535 | * K0305250 7B7B 90D3 536 | S ERCN IS IT ERROR K0305260 7B7C 4C18 7A43 537 | BSC L ST1,+- BRANCH IF YES K0305270 538 | * K0305280 539 | * DOES STATEMENT HAVE NUMBER K0305290 7B7E C100 540 | LD 1 0 LOAD STMNT ID WORD K0305300 7B7F 4C04 7B8E 541 | BSC L FMTST,E BRANCH IF HAS STMNT NO.2-9 K0305310 7B81 90D1 542 | S CONT IS IT CONTINUE K0305320 7B82 4C20 7B89 543 | BSC L STER6,Z BRANCH IF NOT K0305330 7B84 C100 544 | LD 1 0 LOAD STMNT ID WORD K0305340 7B85 4400 7B29 545 | BSI L RMOV1 REMOVE STMNT FROM STRING K0305350 7B87 4C00 7B75 546 | BSC L CKEND CHECK FOR END K0305360 547 | * K0305370 548 | * SET UP ERROR NO. 6 K0305380 7B89 C0C0 549 | STER6 LD ERR6 LOAD ERROR NO. 6 K0305390 7B8A D400 7A86 550 | STO L ERRNO STORE IN ERROR NO. K0305400 7B8C 6400 7A59 551 | LDX L CLOSE CLOSE UP STRING K0305410 552 | * K0305420 7B8E 6905 553 | FMTST STX 1 RESET+1 SAVE POINTER 2-9 K0305421 7B8F 180B 554 | FORMT SRA 11 IS IT 2-9 K0305422 7B90 90C4 555 | S H000C *FORMAT STATEMENT 2-9 K0305423 7B91 4C18 7B97 556 | BSC L LOOP2,+- BRANCH IF YES 2-9 K0305424 7B93 6500 0000 557 | RESET LDX L1 *-* RESET POINTER 2-9 K0305425 7B95 4C00 7A43 558 | BSC L ST1 GO OUT 2-9 K0305426 7B97 C100 559 | LOOP2 LD 1 0 LOAD STMNT ID WORD 2-9 K0305427 7B98 1802 560 | SRA 2 GET 2-9 K0305428 7B99 E400 7A87 561 | AND L IDNRM *NORM 2-9 K0305429 7B9B D001 562 | STO MDX1+1 *TO STEP UP POINTER 2-9 K0305430 7B9C 7500 0000 563 | MDX1 MDX L1 *-* *TO NEXT STATEMENT 2-9 K0305431 7B9E C100 564 | LD 1 0 LOAD STMNT ID WORD 2-9 K0305432 7B9F 180B 565 | SRA 11 GET ID TYPE 2-9 K0305433 7BA0 9400 7A95 566 | S L TWO IS IT END STATEMENT 2-9 K0305434 7BA2 4C18 7B93 567 | BSC L RESET,+- BRANCH IF YES 2-9 K0305435 7BA4 90AA 568 | S ERCN IS IT ERROR 2-9 K0305436 7BA5 4C18 7B93 569 | BSC L RESET,+- BRANCH IF YES 2-9 K0305437 7BA7 C100 570 | LD 1 0 IS IT STATEMENT NUMBER 2-9 K0305438 7BA8 4C04 7B8F 571 | BSC L FORMT,E BRANCH IF YES 2-9 K0305439 7BAA 90A8 572 | S CONT IS IT CONTINUE 2-9 K0305440 7BAB 4C18 7B97 573 | BSC L LOOP2,+- BRANCH IF YES 2-9 K0305441 7BAD 70DB 574 | MDX STER6 GO TO ERROR 6 2-9 K0305442 575 | * INITIALIZES THE PHASE 2-9 K0305443 576 | * K0305450 577 | * INITIALIZES THE PHASE K0305460 578 | * CHECKS FOR A PREVIOUS OVERLAP K0305470 579 | * ERROR K0305480 7BAE 6580 7A24 580 | INIT LDX I1 SOFS INITIALIZE INPUT POINTER K0305490 581 | * K0305500 7BB0 C400 7A2D 582 | LD L ERROR CHECK FOR OVERLAP ERROR K0305510 7BB2 4C20 7BC3 583 | BSC L EOP,Z BRANCH ON OVERLAP ERROR K0305520 584 | * K0305530 585 | * K0305540 586 | * CHECKS FOR THE END STMNT K0305550 587 | * CHECKS FOR A STMNT NO. IN STMNT K0305560 588 | * OTHER THAN END K0305570 7BB4 C100 589 | ENDST LD 1 LOAD STMNT ID WORD K0305580 7BB5 E03A 590 | AND IDCL GET STMNT ID TYPE K0305590 7BB6 903A 591 | S IDEND IS IT END K0305600 7BB7 4C18 7BC3 592 | BSC L EOP,+- BRANCH IF YES K0305610 593 | * K0305620 594 | * K0305630 7BB9 C100 595 | LD 1 DOES STMNT HAVE STMNT NO. K0305640 7BBA 4C04 7BFB 596 | BSC L LOOK,E BRANCH IF YES K0305650 597 | * K0305660 598 | * MOVE TO NEXT STATEMENT K0305670 7BBC C100 599 | MOVS LD 1 0 LOAD STMNT ID WORD K0305680 7BBD E034 600 | AND NMCL GET NORM K0305690 7BBE 1802 601 | SRA 2 MOVE NORM TO RIGHT K0305700 7BBF D001 602 | STO A+1 K0305710 7BC0 7500 0000 603 | A MDX L1 0 GET ADDR OF NEXT STMNT K0305720 7BC2 70F1 604 | MDX ENDST CHECK FOR END STMNT K0305730 605 | * K0305740 606 | * BRANCHES TO ROL ROUTINE TO LOAD K0305750 607 | * THE NEXT PHASE K0305760 7BC3 6580 7BC9 608 | EOP LDX I1 NXTPH+1 LOAD PARAM FOR READING K0305770 7BC5 C804 609 | LDD NXTPH+2 *NEXT PHASE K0305780 7BC6 4C00 7FBC 610 | BSC L ROL GO TO LOAD NEXT PHASE K0305790 7BC8 611 | BSS E 0 K0305800 7BC8 0022 612 | NXTPH DC 34 ID OF NEXT PHASE K0305810 7BC9 613 | BSS 3 LOADER TBL FOR NEXT PHASE K0305820 614 | * K0305830 615 | * REPLACES THE ERRONEOUS STMNT K0305840 616 | * WITH AN ERROR MESSAGE K0305850 617 | * CLOSES UP THE STRING K0305860 7BCC D101 618 | CLOZE STO 1 1 STORE ERROR NUMBER K0305870 7BCD C100 619 | LD 1 LOAD STMNT ID WORD K0305880 7BCE E023 620 | AND NMCL CLEAR ALL BUT NORM K0305890 7BCF 1802 621 | SRA 2 SHIFT NORM TO RIGHT K0305900 7BD0 D009 622 | STO C+1 K0305910 7BD1 C026 623 | LD ERTY LOAD ERROR STMNT ID WORD K0305920 7BD2 D100 624 | STO 1 PUT ON STRING K0305930 7BD3 691F 625 | STX 1 TEMP STORE INPUT POINTER K0305940 7BD4 6680 7BF3 626 | LDX I2 TEMP INITIALIZE LOOP OUTPUT PT K0305950 7BD6 7202 627 | MDX 2 2 MODIFY PT FOR STMNT SIZE K0305960 7BD7 6780 7BF3 628 | LDX I3 TEMP INITIALIZE LOOP INPUT PT K0305970 7BD9 7700 0000 629 | C MDX L3 MODIFY TO GET ADDRESS OF K0305980 7BDB 73FF 630 | MDX 3 -1 NEXT STATEMENT K0305990 7BDC 6B16 631 | STX 3 TEMP K0306000 7BDD 6919 632 | STX 1 TNKOK SAVE INPUT POINTER K0306010 7BDE C400 7A25 633 | LD L EOFS GET RANGE OF LOOP BY K0306020 7BE0 9012 634 | S TEMP SUBTRACTING POINTER FROM K0306030 7BE1 D011 635 | STO TEMP END OF STRING K0306040 7BE2 6580 7BF3 636 | LDX I1 TEMP LOAD RANGE OF LOOP K0306050 637 | * K0306060 7BE4 7301 638 | LOOPB MDX 3 1 RESET INPUT POINTER K0306070 7BE5 C300 639 | LD 3 MOVE WORD DOWN K0306080 7BE6 D200 640 | STO 2 IN STRING K0306090 7BE7 7201 641 | MDX 2 1 MOVE POINTER K0306100 7BE8 71FF 642 | MDX 1 -1 DECREMENT RANGE OF LOOP K0306110 7BE9 70FA 643 | MDX LOOPB CONTINUE LOOP K0306120 7BEA 6580 7BF7 644 | LDX I1 TNKOK RESET INPUT POINTER K0306130 7BEC 72FF 645 | MDX 2 -1 K0306140 7BED 6E00 7A25 646 | STX L2 EOFS NEW END OF STRING ADDRESS K0306150 7BEF 70CC 647 | MDX MOVS GO TO NEXT STATEMENT K0306160 648 | * K0306170 649 | * CONSTANTS AND WORKING STORAGE K0306180 7BF0 F800 650 | IDCL DC /F800 ID MASK K0306190 7BF1 1000 651 | IDEND DC /1000 END K0306200 7BF2 07FC 652 | NMCL DC /07FC NORM MASK K0306210 7BF3 0000 653 | TEMP DC 0 TEMPORARY STORAGE K0306220 7BF4 0200 654 | STNOC DC /0200 STMNT NO. SYMBOL TABLE ID K0306230 7BF5 0003 655 | THREE DC 3 THREE K0306240 7BF6 8000 656 | SIGN DC /8000 USEFUL CONSTANT K0306250 7BF7 0000 657 | TNKOK DC 0 TEMPORARY STORAGE K0306260 7BF8 A008 658 | ERTY DC /A008 ERROR STMNT ID WORD K0306270 7BF9 0002 659 | C2 DC 2 TWO K0306280 7BFA 0009 660 | C9 DC 9 NINE K0306290 661 | * K0306300 662 | * SCANS THE SYMBOL TABLE FOR A K0306310 663 | * DUPLICATE STMNT NUMBER K0306320 7BFB 6680 7A26 664 | LOOK LDX I2 SOFST INITIALIZE SYMBOL TABLE PT K0306330 7BFD 7001 665 | MDX RETRY+1 SKIP NEXT INSTRUCTION K0306340 7BFE 72FD 666 | RETRY MDX 2 -3 GO TO NEXT TABLE ENTRY K0306350 7BFF 6AF3 667 | STX 2 TEMP SAVE POINTER K0306360 7C00 C0F2 668 | LD TEMP HAS ENTIRE SYMBOL TABLE K0306370 7C01 9400 7A2A 669 | S L EOFST BEEN CHECKED FOR DUPLICATE K0306380 7C03 4C18 7C0F 670 | BSC L PUTIN,+- BRANCH IF YES K0306390 671 | * K0306400 7C05 C201 672 | LD 2 1 COMPARE FIRST WORD K0306410 7C06 9101 673 | S 1 1 OF NAMES - IF UNEQUAL K0306420 7C07 4C20 7BFE 674 | BSC L RETRY,Z GET NEW TABLE ENTRY K0306430 7C09 C202 675 | LD 2 2 COMPARE SECOND WORD OF K0306440 7C0A 9102 676 | S 1 2 NAMES - IF UNEQUAL GET NEW K0306450 7C0B 4C20 7BFE 677 | BSC L RETRY,Z SYMBOL TABLE ENTRY K0306460 678 | * K0306470 679 | * SET UP ERROR NO. 9 K0306480 7C0D C0EC 680 | LD C9 LOAD ERROR NO. K0306490 7C0E 70BD 681 | MDX CLOZE CLOSE UP STRING K0306500 682 | * K0306510 683 | * PLACES THE STMNT NO. INTO THE K0306520 684 | * SYM TBL - UPDATES THE FORTRAN K0306530 685 | * COMMUNICATIONS AREA TO REFLECT K0306540 686 | * CHANGES IN THE TABLE'S LENGTH - K0306550 687 | * REPLACES THE STRING AREA STMNT K0306560 688 | * NUMBER WITH THE SYMBOL TABLE K0306570 689 | * ADDR WHERE IT IS NOW LOCATED K0306580 690 | * K0306590 7C0F C101 691 | PUTIN LD 1 1 LOAD 1ST WORD IN NAME K0306600 7C10 D201 692 | STO 2 1 PUT IN SYMBOL TABLE K0306610 7C11 C102 693 | LD 1 2 LOAD 2ND WORD IN NAME K0306620 7C12 D202 694 | STO 2 2 PUT IN SYMBOL TABLE K0306630 7C13 C0E0 695 | LD STNOC LOAD SYMBOL TABLE ID WORD K0306640 7C14 D200 696 | STO 2 PUT IN SYMBOL TABLE K0306650 697 | * K0306660 7C15 72FD 698 | MDX 2 -3 MOVE SYMBOL TABLE POINTER K0306670 7C16 6E00 7A27 699 | STX L2 SOFNS NEW START OF NON-STMNT-NOS K0306680 7C18 6E00 7A2A 700 | STX L2 EOFST NEW END OF SYMBOL TABLE K0306690 7C1A 74FD 7A28 701 | MDX L SOFXT,-3 NEW START OF SUBSCR-TEMP K0306700 7C1C 74FD 7A29 702 | MDX L SOFGT,-3 NEW START OF GENER-TEMP K0306710 703 | * K0306720 704 | * PUT RELATIVE ADDRESS IN STRING K0306730 7C1E C400 7A26 705 | LD L SOFST GET SIZE OF SYMBOL TABLE K0306740 7C20 9400 7A2A 706 | S L EOFST K0306750 7C22 1890 707 | SRT 16 SHIFT FOR DIVIDE K0306760 7C23 A8D1 708 | D THREE GET NO. OF ENTRIES IN TBL K0306770 7C24 E8D1 709 | OR SIGN PUT IN SIGN K0306780 7C25 D101 710 | STO 1 1 STORE IN STRING K0306790 7C26 6901 711 | STX 1 B+1 SAVE INPUT POINTER K0306800 7C27 74FC 0000 712 | B MDX L 0,-4 MODIFY NORM BY -1 K0306810 7C29 6780 7C28 713 | LDX I3 B+1 INITIALIZE POINTER K0306820 7C2B 7302 714 | MDX 3 2 MOVE POINTER K0306830 7C2C C400 7A25 715 | LD L EOFS GET RANGE OF MOVE LOOP K0306840 7C2E 90F9 716 | S B+1 K0306850 7C2F D0C3 717 | STO TEMP K0306860 7C30 6680 7BF3 718 | LDX I2 TEMP INITIALIZE RANGE COUNTER K0306870 7C32 72FE 719 | MDX 2 -2 MODIFY RANGE K0306880 7C33 C301 720 | LOOPA LD 3 1 MOVE WORD DOWN K0306890 7C34 D300 721 | STO 3 IN STRING K0306900 7C35 7301 722 | MDX 3 1 MOVE POINTER K0306910 7C36 72FF 723 | MDX 2 -1 DECREMENT RANGE K0306920 7C37 70FB 724 | MDX LOOPA CONTINUE LOOP K0306930 7C38 74FF 7A25 725 | MDX L EOFS,-1 NEW END OF STRING ADDRESS K0306940 726 | * K0306950 727 | * SYMBOL TABLE OVERLAP K0306960 7C3A C400 7A25 728 | LD L EOFS LOAD END OF STRING K0306970 7C3C 9400 7A2A 729 | S L EOFST CHECK FOR OVERLAP BY SUBTR K0306980 7C3E 4C28 7BBC 730 | BSC L MOVS,+Z BRANCH NO OVERLAP 2-9 K0307000 731 | * K0307010 732 | * SET UP OVERLAP ERROR K0307020 7C40 7401 7A2D 733 | MDX L ERROR,1 SET ERROR INDICATOR K0307030 7C42 4C00 7BC3 734 | BSC L EOP GO TO END OF PHASE K0307040 7C44 735 | BSS BPHAR+PHLEN*320-1-* PATCH AREA 2-9 K0307050 7CB5 0000 736 | DC 0 K0307060 7CB6 737 | END BPHAR-2 K0307070 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 94 150 A 7BC0 603 602 ABEL 7A50 185 324 328 341 345 357 370 385 412 B 7C27 712 711 713 716 BO 7AD8 344 177 320 371 386 413 BPHAR 7A36 140 735 737 C 7BD9 629 622 C2 7BF9 659 C9 7BFA 660 680 CCWD 7A31 114 CETST 7B51 477 510 CKEND 7B75 530 546 CKRL 7ACE 332 316 CLKST 7B50 476 506 CLOSE 7A59 202 551 CLOZE 7BCC 618 681 CLTST 7B52 478 COMMC 7A94 264 380 COMON 7A2B 108 CONT 7B53 479 542 572 CONTC 7B00 394 422 CSIZE 7A2C 109 DATAS 7A99 269 315 DFCNT 7A33 134 DFILE 7A98 268 311 DIMC 7A93 263 365 DIP 7A8C 256 275 280 292 DIP1 7A8D 257 277 278 DIP2 7B01 395 442 447 452 466 DIP3 7B02 396 448 450 454 456 EFF 7B56 486 423 ENDC 7B4C 472 502 ENDST 7BB4 589 604 EOFS 7A25 102 209 232 279 291 451 465 633 646 715 725 728 EOFST 7A2A 107 669 700 706 729 EOP 7BC3 608 583 592 734 EQUIC 7AFE 392 406 ER5 7A56 193 ERCN 7B4F 475 536 568 ERR5 7A85 249 193 ERR6 7B4A 470 549 ERRID 7A8A 254 207 ERRNO 7A86 250 194 218 550 ERROR 7A2D 110 151 582 733 ERTY 7BF8 658 623 EXTER 7AFC 390 356 FIOC 7A7E 242 160 FIOCL 7A3E 158 438 FMTST 7B8E 553 541 FNAME 7A2E 111 FORMT 7B8F 554 571 FUNCK 7A82 246 168 GET 7A80 244 222 223 GOTOC 7B03 397 486 H000C 7B55 481 555 IDCL 7BF0 650 590 IDEND 7BF1 651 591 IDNRM 7A87 251 204 435 444 519 561 IDSTY 7B54 480 421 IDTPE 7A81 245 167 334 364 379 405 IFC 7B4B 471 490 INIT 7BAE 580 152 503 533 INTC 7A92 262 350 IOCS 7A32 123 JACK 7A53 189 296 JIM 7A4B 176 305 LOOK 7BFB 664 596 LOOP 7AA8 285 290 LOOP1 7B3E 459 464 LOOP2 7B97 559 556 573 LOOPA 7C33 720 724 LOOPB 7BE4 638 643 LOOZ 7A6F 225 231 MAM 7AFB 389 335 355 MDX1 7B9C 563 562 MEMRY 8000 91 92 93 MINUS 7A96 266 303 MOVE 7B20 433 161 190 239 427 512 MOVES 7B6C 517 487 491 495 499 507 511 MOVS 7BBC 599 647 730 NEXT 7B71 525 520 NMCL 7BF2 652 600 620 NRMSV 7A88 252 205 212 221 446 453 NXID 7B25 437 436 NXTPH 7BC8 612 143 608 609 OKSW 7A9A 270 327 411 ONE 7A7F 243 172 ORG 7A23 100 OVERL 7A23 92 96 PHID 0021 97 149 PHLEN 0002 95 735 PUTIN 7C0F 691 670 RANGE 7A8B 255 213 214 282 283 REALC 7A8F 259 336 RESET 7B93 557 553 567 569 RETRY 7BFE 666 665 674 677 RMOV1 7B29 441 428 467 545 RMOVE 7A9B 275 186 ROL 7FBC 93 610 RTNCN 7B4D 473 498 SAVE1 7A89 253 206 211 220 233 SAVE2 7A78 234 195 526 SIGN 7BF6 656 709 SOFGT 7A29 106 702 SOFNS 7A27 104 699 SOFS 7A24 101 155 580 SOFST 7A26 103 664 705 SOFXT 7A28 105 701 SON 7AD5 340 351 SORF 7A30 113 173 304 ST1 7A43 165 429 537 558 START 7A36 149 STER6 7B89 549 543 574 STNOC 7BF4 654 695 STOPC 7B4E 474 494 SUBRC 7A8E 258 299 SUBRT 7AB6 299 169 SW1 7A83 247 176 180 308 SW2 7A90 260 340 354 SW3 7A91 261 369 374 SW4 7AFD 391 323 384 400 SW5 7AFF 393 319 410 416 SW7 7A84 248 189 238 344 TAG3 7AEF 374 366 TAG4 7B04 400 381 TAG5 7B12 416 407 TEMP 7BF3 653 625 626 628 631 634 635 636 667 668 717 718 TENT 7ABD 308 300 TENT1 7ADC 350 337 THREE 7BF5 655 708 TNKOK 7BF7 657 632 644 TSTOK 7AC5 319 312 TWO 7A95 265 281 532 566 VALYU 7A97 267 294
ibm/ibm1130-lib/dmsr2v12/kforph03_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator