ibm:ibm1130-lib:dmsr2v12:kforph05_lst
KFORPH05
| Table Of Contents |
|---|
|
- kforph05.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph05.asm 1130 FORTRAN COMPILER PHASE 5 2 | *************************************************** K0500020 3 | *STATUS - VERSION 2 MODIFICATION 11 K0500030 4 | * * K0500040 5 | *FUNCTION/OPERATION- * K0500050 6 | * * ANALYZES DIMENSION STMNTS. PLACES DIMENSION * K0500060 7 | * INFORMATION INTO THE SYMBOL TABLE. * K0500070 8 | * * REMOVES DIMENSION STMNT FROM THE STMNT * K0500080 9 | * STRING * K0500090 10 | * * PLACES VARIABLES AND DIMENSION INFORMATION * K0500100 11 | * FROM REAL, INTEGER, AND EXTERNAL STMNTS INTO* K0500110 12 | * THE SYMBOL TABLE * K0500120 13 | * * INDICATES IN THE SYMBOL TABLE ID WORD THE * K0500130 14 | * MODE (REAL OR INTEGER) * K0500140 15 | * * CHECKS EXTERNAL STMNTS FOR THE NAMES IFIX * K0500150 16 | * AND FLOAT, WHICH ARE NOT ALLOWED. * K0500160 17 | * * THE PROCESSING OF PHASE 5 IS DONE IN TWO * K0500170 18 | * PASSES. THE FIRST PASS ANALYZES DIMENSION K0500180 19 | * STMNTS. THE SECOND PASS EXAMINES REAL, * K0500190 20 | * INTEGER, AND EXTERNAL STMNTS FOUND IN THE * K0500200 21 | * STMNT STRING * K0500210 22 | * * UPON COMPLETION OF THE SECOND PASS A 2-11 K0500220 23 | * BRANCH IS TAKEN TO REPACK THE INPUT 2-11 K0500230 24 | * STRING, REMOVING DUMMY ERROR ENTRIES. 2-11 K0500240 25 | * * K0500250 26 | *ENTRY POINTS- * K0500260 27 | * * PHASE-PHASE 5 IS READ INTO CORE BY PHASE 4 * K0500270 28 | * AND EXECUTION BEGUN AT LOCATION PHASE.* K0500280 29 | * * K0500290 30 | *INPUT- * K0500300 31 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0500310 32 | * STRING SCANNED BY THE COMPILER MAY BE * K0500320 33 | * CONSIDERED INPUT. * K0500330 34 | * * K0500340 35 | *OUTPUT- * K0500350 36 | * NONE IN THE USUAL SENSE. HOWEVER, PHASE 5 * K0500360 37 | * REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0500370 38 | * ENTRIES TO THE SYMBOL TABLE. * K0500380 39 | * * K0500390 40 | *EXTERNAL REFERENCES- * K0500400 41 | * SUBROUTINES- * K0500410 42 | * * ROL * K0500420 43 | * COMMA/DCOM- * K0500430 44 | * * $PHSE * K0500440 45 | * * K0500450 46 | *EXITS- * K0500460 47 | * NORMAL- * K0500470 48 | * PHASE EXITS NORMALLY IF NO STMNTS OF THE * K0500480 49 | * TYPE IT PROCESSES ARE ENCOUNTERED OR IF NO * K0500490 50 | * ERRORS ARE FOUND. PHASE 6 IS LOADED AND * K0500500 51 | * EXECUTED. * K0500510 52 | * ERROR- * K0500520 53 | * THE FLOW OF COMPILER PROCESSING IS NOT * K0500530 54 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED * K0500540 55 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0500550 56 | * ON THE STRING AND STMNT SCANNING PROCESS * K0500560 57 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0500570 58 | * OF AN OVERLAP ERROR. COMPILATION IS * K0500580 59 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0500590 60 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0500600 61 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0500610 62 | * THE ERRORS DETECTED BY PHASE 5 ARE 7, 8, * K0500620 63 | * 16, 17, 18, 19, 20, 21, AND 22. * K0500630 64 | * * K0500640 65 | *TABLES/WORK AREAS- * K0500650 66 | * NON EXCEPT STATEMENT STRING AREA AND SYMBOL * K0500660 67 | * TABLE. * K0500670 68 | * * K0500680 69 | *ATTRIBUTES-N/A * K0500690 70 | * * K0500700 71 | *NOTES- * K0500710 72 | * THE SWITCHES USED IN PHASE 5 FOLLOW. IF NON- * K0500720 73 | * ZERO. THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0500730 74 | * SWITCH IS NORMAL=N. * K0500740 75 | * SW2-OPERATOR SEMICOLON * K0500750 76 | * T=NEXT OPERATOR MUST BE SEMICOLON * K0500760 77 | * SW3-SYMBOL TABLE OPEN * K0500770 78 | * T=SYMBOL TABLE WAS SPREAD THREE WORDS * K0500780 79 | * SW1A-TYPE STATEMENT ENCOUNTERED * K0500790 80 | * T=TYPE STMNT HAS BEEN ENCOUNTERED * K0500800 81 | * N=REAL STATEMENT * K0500810 82 | * T=INTEGER STATEMENT * K0500820 83 | * SW3A-SEMICOLON * K0500830 84 | * T=SEMICOLON MUST BE NEXT * K0500840 85 | * SW4-EXTERNAL STATEMENT * K0500850 86 | * T=EXTERNAL STMNT ENCOUNTERED * K0500860 87 | * SW5-DIMENSIONED NAME * K0500870 88 | * T=NOT DIMENSIONED NAME * K0500880 89 | * SW6-TEMPORARY EXTERNAL SWITCH * K0500890 90 | * T=TEMPORARY EXTERNAL * K0500900 91 | * SW7-FIRST PASS THROUGH PH05 SWITCH 2-11 K0500910 92 | * T=FIRST PASS MODE 2-11 K0500920 93 | *************************************************** K0500930 94 | ABS K0500940 95 | * K0500950 96 | * SYSTEM EQUATES K0500960 97 | * K0500970 8000 98 | MEMRY EQU /8000 CORE SIZE K0500980 7A23 99 | OVERL EQU MEMRY-1501 PHASE OVERLAY AREA SIZE K0500990 7FBC 100 | ROL EQU MEMRY-68 LOC OF RTN TO READ NEXT PH K0501000 0078 101 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0501010 0004 102 | PHLEN EQU 4 NO SECTORS THIS PHASE 2-6 K0501020 7A23 103 | ORG OVERL K0501030 0023 104 | PHID EQU 35 ID NUMBER THIS PHASE K0501040 105 | * K0501050 106 | * FORTRAN COMMUNICATION AREA K0501060 107 | * K0501070 7A23 108 | ORG BSS 1 ORIGIN ADDRESS 2-4 K0501080 7A24 109 | SOFS BSS 1 START OF STRING K0501090 7A25 110 | EOFS BSS 1 END OF STRING K0501100 7A26 111 | SOFST BSS 1 START OF SYMBOL TABLE K0501110 7A27 112 | SOFNS BSS 1 START OF NON-SUBSCRIPTED NUMBERS K0501120 7A28 113 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0501130 7A29 114 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0501140 7A2A 115 | EOFST BSS 1 END OF SYMBOL TABLE K0501150 7A2B 116 | COMON BSS 1 NEXT AVAILABLE COMMON K0501160 7A2C 117 | CSIZE BSS 1 SIZE OF COMMON K0501170 7A2D 118 | ERROR BSS 1 OVERLAP ERROR K0501180 7A2E 119 | FNAME BSS 1 PROGRAM NAME K0501190 7A2F 120 | BSS 1 * K0501200 7A30 121 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0501210 7A31 122 | CCWD BSS 1 CONTROL CARD WORD K0501220 123 | * BIT 15 TRANSFER TRACE K0501230 124 | * BIT 14 ARITHMETIC TRACE K0501240 125 | * BIT 13 EXTENDED PRECISION K0501250 126 | * BIT 12 LIST SYMBOL TABLE K0501260 127 | * BIT 11 LIST SUBPROGRAM NAMES K0501270 128 | * BIT 10 LIST SOURCE PROGRAM K0501280 129 | * BIT 9 ONE WORD INTEGERS K0501290 130 | * BIT 8 ORIGIN K0501300 7A32 131 | IOCS BSS 1 IOCS CONTROL CARD WORD K0501310 132 | * BIT 15 CARD K0501320 133 | * BIT 14 PAPER TAPE K0501330 134 | * BIT 13 TYPEWRITER K0501340 135 | * BIT 12 1443 PRINTER K0501350 136 | * BIT 11 MAGNETIC TAPE K0501360 137 | * BIT 10 KEYBOARD K0501370 138 | * BIT 8 DISK K0501380 139 | * BIT 1 UNFORMATTED DISK K0501390 7A33 140 | DFCNT BSS 1 FILE TABLE WORD COUNT K0501400 141 | * K0501410 142 | * K0501420 143 | * K0501430 144 | * END OF FORTRAN COMMUNICATION K0501440 145 | * AREA K0501450 146 | * K0501460 7A36 147 | BPHAR EQU *+2 BEGINNING ADDR OF PHASE K0501470 7A34 0000 148 | DC 0 LOADER WORK AREA K0501480 7A35 FFDD 149 | DC -35 -PHASE ID FOR SLET LOOKUP K0501490 7A36 041A 150 | DC NXPID-*+1 TABLE FOR NEXT PHASE 2-11 K0501500 7A37 0001 151 | DC 1 ONE ENTRY TO BE SET BY LDR K0501510 7A36 152 | ORG *-2 K0501520 153 | * K0501530 154 | * INITIALIZE DIMENSION PASS K0501540 155 | * K0501550 7A36 6123 156 | LDX 1 PHID LOAD ID NUMBER 2-11 K0501560 7A37 6D00 0078 157 | STX L1 $PHSE STORE IN SYS PHASE AREA K0501570 7A39 6580 7A24 158 | LDX I1 SOFS START OF STRING ADDRESS K0501580 7A3B C0F1 159 | LD ERROR OVERLAP ERROR INDICATOR K0501590 7A3C 4C20 7BE8 160 | BSC L BEGIN,Z BR TO NEXT PHASE IF OVERLAP K0501600 7A3E 6810 161 | STX SW7 SET ON SW7 2-11 K0501610 7A3F C100 162 | TEST LD 1 0 FIRST WORD OF STMNT K0501620 7A40 1801 163 | SRA 1 POSITION TO TEST STMNT TYPE K0501630 7A41 E01E 164 | AND IDTPE STATEMENT TYPE (BITS 1-5) K0501640 7A42 900D 165 | S ENDC END STATEMENT CONSTANT K0501650 7A43 4C18 7BE8 166 | BSC L BEGIN,+- BR TO BEGIN IF END STMNT K0501660 7A45 900B 167 | S DIMC DIMENSION STMNT CONSTANT K0501670 7A46 4818 168 | BSC +- SKIP NEXT IF NOT DIMENSION K0501680 7A47 701B 169 | MDX MIX BR TO SCAN DIMENSION STMNT K0501690 7A48 C100 170 | LD 1 0 STMNT ID WORD 2-11 K0501700 7A49 1802 171 | SRA 2 K0501710 7A4A E011 172 | AND IDNRM EXTRACT STMNT WORD COUNT K0501720 7A4B D001 173 | STO *+1 STO CNT TO UPDATE PNTR 2-11 K0501730 7A4C 7500 0000 174 | MDX L1 *-* INCRMNT TO NEXT STMNT 2-11 K0501740 7A4E 70F0 175 | MDX TEST BR TO TEST STMNT TYPE K0501750 176 | * K0501760 177 | * CONSTANTS AND WORK AREA K0501770 178 | * K0501780 7A4F 0000 179 | SW7 DC *-* FIRST PASS SWITCH 2-11 K0501790 7A50 0800 180 | ENDC DC /0800 END STATEMENT CONSTANT K0501800 7A51 1800 181 | DIMC DC /2000-/0800 DIMENSION STMNT CONSTANT K0501810 7A52 001E 182 | SEMIC DC /001E SEMI-COLON CONSTANT K0501820 7A53 0012 183 | ERR DC 18 ERROR 18 CONSTANT K0501830 7A54 0007 184 | ERR7 DC 7 ERROR 7 CONSTANT K0501840 7A55 0008 185 | ERR8 DC 8 ERROR 8 CONSTANT K0501850 7A56 0010 186 | ERR16 DC 16 ERROR 16 CONSTANT K0501860 7A57 0011 187 | ERR17 DC 17 ERROR 17 CONSTANT K0501870 7A58 0000 188 | ERRNO DC 0 ERROR NUMBER 2-11 K0501880 7A59 0000 189 | WD1 DC 0 STMNT NAME (FIRST HALF) K0501890 7A5A 0000 190 | WD2 DC 0 STMNT NAME (SECOND HALF) K0501900 7A5B 0000 191 | SAVE DC 0 INDEX REGISTER 3 TEMPORARY K0501910 7A5C 01FF 192 | IDNRM DC /01FF STMNT WORD COUNT MASK K0501920 7A5D 0000 193 | DC 0 RESERVED FOR FUTURE USE K0501930 7A5E 0000 194 | SW2 DC 0 ERROR 16 SWITCH NON-ZERO=ON K0501940 7A5F 0000 195 | IDADR DC *-* START ADRS OF STMNT 2-11 K0501950 7A60 7C00 196 | IDTPE DC /7C00 STATEMENT TYPE MASK K0501960 7A61 A008 197 | ERRID DC /A008 ERROR IDENTIFIER CONSTANT K0501970 7A62 8000 198 | ZERO DC /8000 SWITCH 2 RESET CONSTANT K0501980 199 | * K0501990 200 | * INITIALIZE TO SCAN DIMENSION STMNT K0502000 201 | * K0502010 7A63 69FB 202 | MIX STX 1 IDADR SAVE START ADRS OF STMT2-11 K0502020 7A64 7101 203 | MDX 1 1 INCREMENT STMNT ADDRESS K0502030 7A65 1010 204 | SLA 16 CLEAR ACCUMULATOR K0502040 7A66 D0F7 205 | STO SW2 TURN OFF SWITCH 2 K0502050 7A67 D400 7AD8 206 | STO L SW3 TURN OFF SWITCH 3 K0502060 7A69 C100 207 | SIP LD 1 0 LOAD NEXT STMNT WORD K0502070 7A6A 90E7 208 | S SEMIC SEMI-COLON K0502080 7A6B 4C18 7AAA 209 | BSC L REMOV,+- BRCH IF SEMI-COLON 2-11 K0502090 7A6D C0F0 210 | LD SW2 ERROR 16 INDICATOR K0502100 7A6E 4C20 7AA1 211 | BSC L ER16,Z BR IF POSITIVE K0502110 7A70 7401 7A5E 212 | MDX L SW2,1 SET ERROR 16 INDICATOR ON K0502120 7A72 C100 213 | PADS LD 1 0 STATEMENT NAME (FIRST HALF) K0502130 7A73 4810 214 | BSC - BR TO ER7 IF FIRST CHAR IS K0502140 7A74 702F 215 | MDX ER7 NOT ALPHABETIC. K0502150 7A75 D0E3 216 | STO WD1 SAVE FIRST HALF OF NAME K0502160 7A76 1002 217 | SLA 2 K0502170 7A77 4C2A 7AA4 218 | BSC L ER7,C+Z BR IF 1ST CHAR NOT ALPHA K0502180 7A79 C101 219 | LD 1 1 LAST HALF OF STATEMENT NAME K0502190 7A7A 4C28 7A7F 220 | BSC L MADS,+Z BR IF NAME LONGER THAN 1 WD K0502200 7A7C C0E5 221 | LD ZERO ONE WORD NAME INDICATOR K0502210 7A7D D0DC 222 | STO WD2 LAST HALF OF NAME K0502220 7A7E 7005 223 | MDX ZORRO BR TO SEARCH SYMBOL TABLE K0502230 7A7F D0DA 224 | MADS STO WD2 LAST HALF OF NAME K0502240 7A80 7101 225 | MDX 1 1 INCREMENT STMNT ADDRESS K0502250 7A81 C101 226 | LD 1 1 BR TO ER7 IF NAME IS MORE K0502260 7A82 4C28 7AA4 227 | BSC L ER7,+Z THAN TWO WORDS LONG. K0502270 228 | * K0502280 229 | * LOOK FOR NAME IN SYMBOL TABLE K0502290 230 | * K0502300 7A84 6780 7A27 231 | ZORRO LDX I3 SOFNS START OF NON-STMNT NUMBERS K0502310 7A86 7009 232 | MDX BILL BR TO CHECK END OF SEARCH K0502320 7A87 C301 233 | LOOP LD 3 1 LD NEXT SYMBOL TABLE ENTRY K0502330 7A88 90D0 234 | S WD1 FIRST HALF OF NAME K0502340 7A89 4820 235 | BSC Z SKIP NEXT IF EQUAL NAME K0502350 7A8A 7004 236 | MDX HEAT BR IF NOT EQUAL NAME K0502360 7A8B C302 237 | LD 3 2 LD NEXT SYMBOL TABLE ENTRY K0502370 7A8C 90CD 238 | S WD2 LAST HALF OF NAME K0502380 7A8D 4C18 7A97 239 | BSC L CHK,+- BR IF NAME FOUND K0502390 7A8F 73FD 240 | HEAT MDX 3 -3 DECREMENT SYMBOL TABLE ADDR K0502400 7A90 6BCA 241 | BILL STX 3 SAVE STORE TO TEMPORARY K0502410 7A91 C0C9 242 | LD SAVE LOAD CURRENT SEARCH ADDRESS K0502420 7A92 9400 7A2A 243 | S L EOFST END OF SYMBOL TABLE K0502430 7A94 4820 244 | BSC Z SKIP NEXT IF END SEARCH K0502440 7A95 70F1 245 | MDX LOOP BR TO CONTINUE SEARCH K0502450 7A96 7043 246 | MDX PLACE BR TO PUT NAME IN TABLE K0502460 7A97 C300 247 | CHK LD 3 0 CHECK FOR SUBPROGRAM NAME K0502470 7A98 1008 248 | SLA 8 BR TO SET ERROR 17 IF K0502480 7A99 4C10 7AF8 249 | BSC L PREV,- SUBPROGRAM NAME IN STMNT. K0502490 250 | * K0502500 251 | * SET UP ERRORS K0502510 252 | * K0502520 7A9B C0BB 253 | ER17 LD ERR17 ERROR 17 INDICATOR K0502530 7A9C D0BB 254 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502540 7A9D 700E 255 | MDX CLOSE BR TO CLOSE STRING K0502550 7A9E C0B6 256 | ER8 LD ERR8 ERROR 08 INDICATOR K0502560 7A9F D0B8 257 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502570 7AA0 700B 258 | MDX CLOSE BR TO CLOSE STRING K0502580 7AA1 C0B4 259 | ER16 LD ERR16 ERROR 16 INDICATOR K0502590 7AA2 D0B5 260 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502600 7AA3 7008 261 | MDX CLOSE BR TO CLOSE STRING K0502610 7AA4 C0AF 262 | ER7 LD ERR7 ERROR 07 INDICATOR K0502620 7AA5 D0B2 263 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502630 7AA6 7005 264 | MDX CLOSE BR TO CLOSE STRING K0502640 7AA7 C0AB 265 | ER LD ERR ERROR 18 INDICATOR K0502650 7AA8 D0AF 266 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502660 7AA9 7002 267 | MDX CLOSE BRCH TO CLOSE STRING 2-11 K0502670 268 | * 2-11 K0502680 7AAA 1010 269 | REMOV SLA 16 SET TO ZERO (DUMMY ERR)2-11 K0502690 7AAB D0AC 270 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502700 271 | * K0502710 272 | * REPLACE STMNT WITH ERROR ID/OR DUMMY 2-11 K0502720 273 | * ERROR ID AND CLOSE STRING 2-11 K0502730 274 | * K0502740 7AAC 6580 7A5F 275 | CLOSE LDX I1 IDADR STRING ADRS 2-11 K0502750 7AAE C100 276 | LD 1 0 FIRST WD OF STMNT K0502760 7AAF 1802 277 | SRA 2 K0502770 7AB0 E0AB 278 | AND IDNRM EXTRACT STMNT WORD COUNT K0502780 7AB1 D023 279 | STO NRMSV SAVE IN WD COUNT TEMPORARY K0502790 7AB2 80AC 280 | A IDADR ADRS FIRST WRD OF STMNT2-11 K0502800 7AB3 D001 281 | STO *+1 ADRS OF NEXT STMNT 2-11 K0502810 7AB4 6600 0000 282 | LDX L2 *-* NEXT STMNT ADRS INTO XR2-11 K0502820 7AB6 C0AA 283 | LD ERRID PUT ERROR IDENTIFIER K0502830 7AB7 D100 284 | STO 1 0 ON STRING. K0502840 7AB8 C09F 285 | LD ERRNO ERROR NUMBER 2-11 K0502850 7AB9 D101 286 | STO 1 1 PUT ERROR NUMBER ON STRING K0502860 7ABA 7102 287 | MDX 1 2 INCREMENT STRING PTR 2-11 K0502870 7ABB C400 7A25 288 | LD L EOFS END OF STRING ADDRESS K0502880 7ABD 9400 7A5F 289 | S L IDADR ADRS OF THIS STMNT ID 2-11 K0502890 7ABF 9015 290 | S NRMSV WORD COUNT THIS STATEMENT K0502900 7AC0 D001 291 | STO *+1 COMPUTED RANGE 2-11 K0502910 7AC1 6700 0000 292 | LDX L3 *-* RANGE 2-11 K0502920 7AC3 690A 293 | STX 1 SAVX1+1 SAVE XR1 2-11 K0502930 7AC4 7301 294 | MDX 3 1 K0502940 7AC5 C200 295 | LOOP1 LD 2 0 NEXT WORD OF STRING TO MOVE K0502950 7AC6 D100 296 | STO 1 0 CLOSE STRING 2-11 K0502960 7AC7 7101 297 | MDX 1 1 INCREMENT STRING POINTER K0502970 7AC8 7201 298 | MDX 2 1 INCR ADDR NEXT WD TO MOVE K0502980 7AC9 73FF 299 | MDX 3 -1 DECR RANGE AND SKIP IF ZERO K0502990 7ACA 70FA 300 | MDX LOOP1 BR TO MOVE NEXT WORD K0503000 7ACB 6D00 7A25 301 | STX L1 EOFS NEW END OF STRING ADDRESS K0503010 7ACD 6500 0000 302 | SAVX1 LDX L1 *-* RESTORE XR1 2-11 K0503020 303 | * 2-11 K0503030 7ACF C400 7A4F 304 | LD L SW7 CHECK FOR 1ST PASS MODE2-11 K0503040 7AD1 4C20 7A3F 305 | BSC L TEST,Z BRCH TO CONT DIMEN 2-11 K0503050 7AD3 4C00 7BEE 306 | BSC L DAP BRCH TO 2ND PASS MODE 2-11 K0503060 307 | * K0503070 308 | * CONSTANTS AND WORK AREA K0503080 309 | * K0503090 7AD5 0000 310 | NRMSV DC 0 STMNT WORD COUNT K0503100 7AD6 0002 311 | TWO DC 2 DECIMAL 2 FOR ADDR INCR K0503110 7AD7 0000 312 | TENT DC 0 SYMBOL TABLE ADDRESS K0503120 7AD8 0000 313 | SW3 DC 0 SYMBOL TABLE OVERLAP INDR K0503130 7AD9 0800 314 | ONEDM DC /0800 ONE DIMENSION CONSTANT K0503140 315 | * K0503150 316 | * PLACE NAME IN SYMBOL TABLE K0503160 317 | * K0503170 7ADA C400 7A5A 318 | PLACE LD L WD2 LAST HALF OF NAME K0503180 7ADC D302 319 | STO 3 2 NEXT SYMBOL TABLE ENTRY+1 K0503190 7ADD C400 7A59 320 | LD L WD1 FIRST HALF OF NAME K0503200 7ADF D301 321 | STO 3 1 NEXT SYMBOL TABLE ENTRY K0503210 7AE0 74FD 7A2A 322 | MDX L EOFST,-3 DECR END SYMBOL TABLE ADDR K0503220 7AE2 74FD 7A28 323 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0503230 7AE4 74FD 7A29 324 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0503240 325 | * K0503250 326 | * SET TYPE INDICATOR (REAL OR INTEGER) K0503260 327 | * K0503270 7AE6 C400 7A59 328 | LD L WD1 FIRST HALF OF NAME K0503280 7AE8 E400 7B71 329 | AND L PIT1 EXTRACT FIRST NAME CHAR K0503290 7AEA 9400 7B72 330 | S L RGTI ALPHA CONSTANT K0503300 7AEC 4828 331 | BSC +Z SKIP IF NOT REAL K0503310 7AED 7007 332 | MDX REEL BR TO REEL IF NEG (REAL) K0503320 7AEE 9400 7B73 333 | S L RGTN ALPHA CONSTANT K0503330 7AF0 4C30 7AF5 334 | BSC L REEL,Z- BR TO REEL IF PLUS K0503340 7AF2 C400 7B74 335 | LD L IDCI INTEGER INDICATOR K0503350 7AF4 7001 336 | MDX VIP BR TO STORE INDICATOR K0503360 7AF5 C07F 337 | REEL LD IDCR REAL INDICATOR K0503370 7AF6 D300 338 | VIP STO 3 0 IDENTIFICATION WORD K0503380 7AF7 7033 339 | MDX LORD BR TO TEST FOR OVERLAP ERR K0503390 340 | * K0503400 341 | * TEST FOR NAME PREVIOUSLY DIMENSIONED K0503410 342 | * K0503420 7AF8 C300 343 | PREV LD 3 0 IDENTIFICATION WORD K0503430 7AF9 1004 344 | SLA 4 SHIFT DIMENSION CHARACTER K0503440 7AFA 4802 345 | BSC C INTO THE CARRY AND SIGN K0503450 7AFB 70AB 346 | MDX ER POSITIONS AND BR TO ER IF K0503460 7AFC 4C28 7AA7 347 | BSC L ER,+Z EITHER BIT IS ON. K0503470 348 | * K0503480 349 | * CHECK IF SUBPROGRAM OR FUNCTION K0503490 350 | * K0503500 7AFE C400 7A30 351 | LD L SORF SUBPROGRAM OR FUNCTION INDR K0503510 7B00 4C18 7B08 352 | BSC L SUBN,+- BR IF EITHER INDICATOR ON K0503520 7B02 C300 353 | LD 3 0 IDENTIFICATION WORD K0503530 7B03 1002 354 | SLA 2 COMMON INDICATOR TO SIGN K0503540 7B04 4C10 7B08 355 | BSC L SUBN,- BR IF ALREADY IN COMMON K0503550 7B06 7401 7A2E 356 | MDX L FNAME,1 ADJUST FNAME POINTER K0503560 357 | * K0503570 358 | * SPREAD SYMBOL TABLE FOR DIMENSION WDS K0503580 359 | * K0503590 7B08 6919 360 | SUBN STX 1 VVV+1 SAVE STATEMENT POINTER K0503600 7B09 6BCD 361 | STX 3 TENT ADDR OF NAME IN COMMON K0503610 7B0A C0CC 362 | LD TENT K0503620 7B0B 9400 7A2A 363 | S L EOFST END OF STRING ADDRESS K0503630 7B0D D0C9 364 | STO TENT NUMBER OF WORDS TO MOVE K0503640 7B0E 6680 7AD7 365 | LDX I2 TENT K0503650 7B10 72FD 366 | MDX 2 -3 DECR WORDS TO MOVE COUNT K0503660 7B11 7001 367 | MDX PASS BR TO SLIDE TABLE 1 ENTRY K0503670 7B12 7007 368 | MDX GLINK BR TO CLEAR ENTRY IF ZERO K0503680 7B13 6580 7A2A 369 | PASS LDX I1 EOFST END OF SYMBOL TABLE ADDRESS K0503690 7B15 C103 370 | LOOP3 LD 1 3 LD WORD TO MOVE K0503700 7B16 D100 371 | STO 1 0 SPREAD TABLE 3 WORDS K0503710 7B17 7101 372 | MDX 1 1 INCREMENT MOVE POINTER K0503720 7B18 72FF 373 | MDX 2 -1 DECR CTR,SKIP NEXT IF DONE K0503730 7B19 70FB 374 | MDX LOOP3 BR TO CONTINUE K0503740 7B1A 1010 375 | GLINK SLA 16 CLEAR ACCUMULATOR K0503750 7B1B D3FF 376 | STO 3 -1 ZERO WD 3 DIMENSION ENTRY K0503760 7B1C D3FE 377 | STO 3 -2 ZERO WD 2 DIMENSION ENTRY K0503770 7B1D D3FD 378 | STO 3 -3 ZERO WD 1 DIMENSION ENTRY K0503780 7B1E C300 379 | LD 3 0 IDENTIFICATION WORD K0503790 7B1F E8B9 380 | OR ONEDM ONE DIMENSION INDICATOR K0503800 7B20 D300 381 | STO 3 0 REPLACE IN TABLE ENTRY K0503810 7B21 6500 0000 382 | VVV LDX L1 0 RESTORE INDEX REGISTER 1 K0503820 7B23 74FD 7A2A 383 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0503830 7B25 74FD 7A28 384 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0503840 7B27 74FD 7A29 385 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0503850 7B29 7401 7AD8 386 | MDX L SW3,1 K0503860 7B2B C400 7A2A 387 | LORD LD L EOFST CHK FOR SYMBOL TBL OVERFLOW K0503870 7B2D 80A8 388 | A TWO K0503880 7B2E 9400 7A25 389 | S L EOFS END OF STRING K0503890 7B30 4C28 7BD4 390 | BSC L JIMY,+Z BR IF SYMBOL TABLE OVERFLOW K0503900 7B32 7101 391 | TARZ MDX 1 1 MOVE STATEMENT POINTER K0503910 7B33 C100 392 | LD 1 0 NEXT CHAR DIMENSION STMNT K0503920 7B34 9041 393 | S PARNL LEFT PARENTHESIS K0503930 7B35 4C20 7A9E 394 | BSC L ER8,Z BR IF NO LEFT PARENTHESIS K0503940 7B37 1010 395 | SON1 SLA 16 CLEAR ACCUMULATOR K0503950 7B38 D046 396 | STO CNT RESET DIMENSION COUNTER K0503960 7B39 7101 397 | MDX 1 1 MOVE STMNT POINTER K0503970 7B3A C100 398 | LD 1 0 NEXT CHAR OF STMNT K0503980 7B3B E034 399 | AND PIT CHECK FOR ALPHA CHARACTER K0503990 7B3C F033 400 | EOR PIT K0504000 7B3D 4C20 7A9E 401 | BSC L ER8,Z BR TO ER8 IF NOT NUMERIC K0504010 402 | * K0504020 403 | * COLLECT CONSTANT TO BINARY K0504030 404 | * K0504040 7B3F 2000 405 | LDS 0 RESET OVERFLOW AND CARRY K0504050 7B40 10A0 406 | SLT 32 CLEAR ACCUMULATOR K0504060 7B41 D03C 407 | STO SUMM CLEAR CONSTANT SUM K0504070 7B42 C100 408 | LD 1 0 WORD 1 OF CONSTANT K0504080 7B43 D834 409 | STD TEM K0504090 7B44 C101 410 | LD 1 1 WORD 2 OF CONSTANT K0504100 7B45 4C10 7B4D 411 | BSC L AOT,- BRANCH ON OPERATOR K0504110 7B47 1001 412 | SLA 1 MAKE BITS CONTIGUOUS K0504120 7B48 D030 413 | STO TEM+1 K0504130 7B49 C102 414 | LD 1 2 NEXT STATEMENT WORD K0504140 7B4A 7101 415 | MDX 1 1 MOVE STATEMENT POINTER K0504150 7B4B 4C08 7A9E 416 | BSC L ER8,+ BR ON NO OPERATOR K0504160 7B4D C02A 417 | AOT LD TEM WORD 1 OF CONSTANT K0504170 7B4E E02B 418 | AOT1 AND COT1 AND OUT ALL BUT 1ST 6 BITS K0504180 7B4F 1002 419 | SLA 2 K0504190 7B50 4C02 7B56 420 | BSC L PILL,C BRANCH IF CARRY ON K0504200 7B52 4C18 7B83 421 | BSC L NEX,+- BR TO CHECK FOR ZERO CON K0504210 7B54 6400 7A9E 422 | LDX L ER8 BR IMBEDDED ALPHA CHARACTER K0504220 7B56 4C10 7A9E 423 | PILL BSC L ER8,- BR NOT MINUS K0504230 7B58 E022 424 | AND COT2 EXTRACT DIGIT K0504240 7B59 9023 425 | S NINT NINE K0504250 7B5A 4C30 7A9E 426 | BSC L ER8,-Z BR GREATER THAN NINE K0504260 7B5C 8020 427 | A NINT RESTORE DIGIT K0504270 7B5D 180B 428 | SRA 11 RIGHT JUSTIFY K0504280 7B5E D01D 429 | STO HELP1 K0504290 7B5F C01E 430 | LD SUMM CUMULATIVE SUM K0504300 7B60 1001 431 | SLA 1 TIMES 2 K0504310 7B61 D01F 432 | STO GORT TEMPORARY STORE K0504320 7B62 4C28 7A9E 433 | BSC L ER8,+Z BR IF TOO LARGE K0504330 7B64 1002 434 | SLA 2 TIMES 8 K0504340 7B65 4C2A 7A9E 435 | BSC L ER8,C+Z BR IF TOO LARGE K0504350 7B67 8019 436 | A GORT TIMES 10 K0504360 7B68 8013 437 | A HELP1 UNITS DIGIT K0504370 7B69 4C01 7A9E 438 | BSC L ER8,O BR TOO LARGE K0504380 7B6B D012 439 | STO SUMM CUMULATIVE SUM K0504390 7B6C C80B 440 | LDD TEM DIGIT TEMPORARY K0504400 7B6D 1086 441 | SLT 6 SHIFT NEXT DIGIT TO HIGH 6 K0504410 7B6E D809 442 | STD TEM K0504420 7B6F 70DE 443 | MDX AOT1 BR TO PROCESS NEXT DIGIT K0504430 444 | * K0504440 445 | * CONSTANTS AND WORK AREA K0504450 446 | * K0504460 7B70 6000 447 | PIT DC /6000 ALPHABETIC MASK K0504470 7B71 7E00 448 | PIT1 DC /7E00 FIRST NAME CHARACTER MASK K0504480 7B72 1200 449 | RGTI DC /1200 CHARACTER LIMIT CHECK CON K0504490 7B73 1800 450 | RGTN DC /1800 CHARACTER LIMIT CHECK CON K0504500 7B74 4000 451 | IDCI DC /4000 INTEGER TYPE CONSTANT INDR K0504510 7B75 0000 452 | IDCR DC 0 REAL TYPE CONSTANT INDR K0504520 7B76 000D 453 | PARNL DC /000D LEFT PARENTHESIS CONSTANT K0504530 7B77 002B 454 | COMAC DC /002B COMMA CONSTANT K0504540 7B78 455 | BSS E 0 MAKE ADDRESS EVEN K0504550 7B78 0000 456 | TEM DC 0 2 WORD TEMPORARY FOR K0504560 7B79 0000 457 | DC 0 CONSTANT TO BE CONVERTED. K0504570 7B7A FE00 458 | COT1 DC /FE00 EXTRACT CHARACTER CONSTANT K0504580 7B7B 7800 459 | COT2 DC /7800 EXTRACT DIGIT CONSTANT K0504590 7B7C 0000 460 | HELP1 DC 0 UNITS DIGIT TEMPORARY K0504600 7B7D 4800 461 | NINT DC /4800 DECIMAL NINE CONSTANT K0504610 7B7E 0000 462 | SUMM DC 0 CUMULATIVE SUM OF CONSTANT K0504620 7B7F 0000 463 | CNT DC 0 NUMBER OF CONSTANTS COUNTER K0504630 7B80 001D 464 | PARNR DC /001D RIGHT PARENTHESIS CONSTANT K0504640 7B81 0000 465 | GORT DC 0 CONSTANT TIMES 2 TEMPORARY K0504650 7B82 0001 466 | O1 DC 1 DECIMAL 1 CONSTANT K0504660 467 | * K0504670 468 | * MAKE DIMENSION ENTRY IN SYMBOL TABLE K0504680 469 | * K0504690 7B83 7401 7B7F 470 | NEX MDX L CNT,1 INCR CONSTANT COUNTER K0504700 7B85 C0F8 471 | LD SUMM CHECK FOR ZERO CONSTANT K0504710 7B86 4C18 7A9E 472 | BSC L ER8,+- BR IF DIMENSION CON IS ZERO K0504720 7B88 C0F6 473 | LD CNT DIMENSION COUNTER K0504730 7B89 90F8 474 | S O1 ONE K0504740 7B8A 4820 475 | BSC Z SKIP NEXT IF FIRST CONSTANT K0504750 7B8B 7005 476 | MDX O2 BR TO COMPUTE 2ND CONSTANT K0504760 7B8C C0F1 477 | LD SUMM DIMENSION CONSTANT K0504770 7B8D D3FF 478 | STO 3 -1 STORE IN ALL 3 DIMENSION K0504780 7B8E D3FE 479 | STO 3 -2 WORDS OF SYMBOL TABLE K0504790 7B8F D3FD 480 | STO 3 -3 ENTRY. K0504800 7B90 7013 481 | MDX NEXP BR TO GET NEXT STMNT CHAR K0504810 7B91 90F0 482 | O2 S O1 ONE K0504820 7B92 4820 483 | BSC Z SKIP NEXT IF SECOND CON K0504830 7B93 7009 484 | MDX O3 BR TO COMPUTE THIRD CON K0504840 7B94 C3FF 485 | LD 3 -1 FIRST DIMENSION CONSTANT K0504850 7B95 A0E8 486 | M SUMM SECOND DIMENSION CONSTANT K0504860 7B96 1081 487 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0504870 7B97 4C20 7A9E 488 | BSC L ER8,Z *IF TOO GREAT 2-7 K0504880 7B99 108F 489 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0504890 7B9A D3FE 490 | STO 3 -2 STORE IN SECOND AND THIRD K0504900 7B9B D3FD 491 | STO 3 -3 DIMENSION WORDS. K0504910 7B9C 7007 492 | MDX NEXP BR TO GET NEXT STMNT CHAR K0504920 7B9D C3FD 493 | O3 LD 3 -3 1ST X 2ND DIMENSION CON K0504930 7B9E A0DF 494 | M SUMM THIRD DIMENSION CONSTANT K0504940 7B9F 1081 495 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0504950 7BA0 4C20 7A9E 496 | BSC L ER8,Z *IF TOO GREAT 2-7 K0504960 7BA2 108F 497 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0504970 7BA3 D3FD 498 | STO 3 -3 STORE IN THIRD DIMENSION WD K0504980 7BA4 7101 499 | NEXP MDX 1 1 INCREMENT STMNT POINTER K0504990 7BA5 C100 500 | LD 1 0 NEXT CHARACTER K0505000 7BA6 90D0 501 | S COMAC COMMA K0505010 7BA7 4C18 7BD8 502 | BSC L TCNT,+- BR TO CHECK DIMENSION COUNT K0505020 7BA9 80CD 503 | A COMAC RESTORE CHARACTER K0505030 7BAA 90D5 504 | S PARNR RIGHT PARENTHESIS K0505040 7BAB 4C20 7A9E 505 | BSC L ER8,Z BR TO ERR IF NO PARENTHESIS K0505050 7BAD C0D1 506 | LD CNT DIMENSION COUNT K0505060 7BAE 100B 507 | SLA 11 SHIFT TO BITS 3 AND 4 K0505070 7BAF D023 508 | STO TMPDM TEMPORARY K0505080 7BB0 C300 509 | LD 3 0 SYMBOL TABLE ID WORD K0505090 7BB1 E020 510 | AND THRDM SET BITS 3 AND 4 EQUAL TO K0505100 7BB2 E820 511 | OR TMPDM THE NUMBER OF DIMENSIONS. K0505110 7BB3 D300 512 | STO 3 0 SYMBOL TABLE ID WORD K0505120 7BB4 C400 7AD8 513 | LD L SW3 K0505130 7BB6 4C20 7BBE 514 | BSC L YELP1,Z BR TO CHECK FOR OVERLAP K0505140 7BB8 74FD 7A2A 515 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0505150 7BBA 74FD 7A28 516 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0505160 7BBC 74FD 7A29 517 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0505170 7BBE C400 7A2A 518 | YELP1 LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0505180 7BC0 8400 7AD6 519 | A L TWO K0505190 7BC2 9400 7A25 520 | S L EOFS END OF STRING K0505200 7BC4 4C28 7BD4 521 | BSC L JIMY,+Z BR IF SYMBOL TABLE OVERLAP K0505210 7BC6 1010 522 | SLA 16 CLEAR ACCUMULATOR K0505220 7BC7 D400 7AD8 523 | STO L SW3 RESET SWITCH 3 K0505230 7BC9 7101 524 | MDX 1 1 MOVE STMNT POINTER K0505240 7BCA C100 525 | LD 1 0 NEXT STMNT CHARACTER K0505250 7BCB 90AB 526 | S COMAC COMMA K0505260 7BCC 4C20 7A69 527 | BSC L SIP,Z BR NOT COMMA K0505270 7BCE 7101 528 | MDX 1 1 MOVE STMNT POINTER K0505280 7BCF 4C00 7A72 529 | BSC L PADS BR TO CHK FOR LEGAL NAME K0505290 530 | * K0505300 531 | * CONSTANTS AND WORK AREA K0505310 532 | * K0505320 7BD1 0003 533 | THRE DC 3 DECIMAL THREE K0505330 7BD2 E7FF 534 | THRDM DC /E7FF MASK TO REMOVE BITS 3 AND 4 K0505340 7BD3 0000 535 | TMPDM DC *-* DIMENSION COUNT TEMPORARY K0505350 536 | * K0505360 537 | * CHECK FOR OVERLAP ERROR K0505370 538 | * K0505380 7BD4 7401 7A2D 539 | JIMY MDX L ERROR,1 SET OVERLAP ERROR ON K0505390 7BD6 4C00 7BE8 540 | BSC L BEGIN BR TO REAL AND INTEGER K0505400 7BD8 C0A6 541 | TCNT LD CNT CHK FOR COUNT LESS THAN 3 K0505410 7BD9 90F7 542 | S THRE K0505420 7BDA 4C10 7A9E 543 | BSC L ER8,- BR IF COUNT 3 OR MORE K0505430 7BDC 6400 7B39 544 | LDX L SON1+2 BR TO CONVERT NEXT CONSTANT K0505440 545 | * K0505450 546 | * CONSTANTS AND WORK AREA K0505460 547 | * K0505470 7BDE 0001 548 | ONE DC 1 DECIMAL 1 K0505480 7BDF 0000 549 | SW1A DC 0 MOVE SWITCH K0505490 7BE0 0000 550 | SW2A DC 0 REAL/INTEGER SWITCH K0505500 7BE1 0800 551 | H0800 DC /0800 END STMNT CONSTANT K0505510 7BE2 0400 552 | INTGR DC /0400 INTEGER STMNT CONSTANT K0505520 7BE3 1C00 553 | REALC DC /2400-/0800 REAL STMNT CONSTANT K0505530 7BE4 001E 554 | SEMI DC /1E SEMICOLON CONSTANT K0505540 7BE5 0000 555 | SW3A DC 0 SYNTAX ERROR SWITCH K0505550 7BE6 7C00 556 | IDTPQ DC /7C00 STATEMENT TYPE MASK K0505560 7BE7 3C00 557 | EXTER DC /3C00 EXTERNAL STMNT CONSTANT K0505570 558 | * K0505580 559 | * INITIALIZE TYPE STATEMENT PASS K0505590 560 | * K0505600 7BE8 6580 7A24 561 | BEGIN LDX I1 SOFS START OF STRING ADDRESS K0505610 7BEA C400 7A2D 562 | LD L ERROR OVERLAP ERROR INDICATOR K0505620 7BEC 4C20 7E4A 563 | BSC L NXTPH,Z BRCH IF OVERLAP ERROR 2-11 K0505630 7BEE 1010 564 | DAP SLA 16 K0505640 7BEF D400 7C7D 565 | STO L SW4 RESET EXTERNAL STMNT SWITCH K0505650 7BF1 D400 7C86 566 | STO L SW6 RESET SWITCH 6 K0505660 7BF3 D400 7A4F 567 | STO L SW7 RESET 1ST PASS SWITCH 2-11 K0505670 7BF5 C100 568 | LD 1 0 FIRST WORD OF STMNT K0505680 7BF6 1801 569 | SRA 1 POSITION TO TEST STMNT TYPE K0505690 7BF7 E0EE 570 | AND IDTPQ STMNT TYPE (BITS 1-5) K0505700 7BF8 90E8 571 | S H0800 END STATEMENT CONSTANT K0505710 7BF9 4C18 7DE8 572 | BSC L REPAK,+- GO DO REPACK OF STRING 2-11 K0505720 7BFB 90E7 573 | S REALC REAL STMNT CONSTANT K0505730 7BFC 4C18 7C09 574 | BSC L LAP,+- BR IF REAL STMNT K0505740 7BFE 90E3 575 | S INTGR INTEGER CONSTANT K0505750 7BFF 4C18 7C07 576 | BSC L LAP1,+- BR IF INTEGER STMNT K0505760 7C01 90E5 577 | S EXTER EXTERNAL STMNT CONSTANT K0505770 7C02 4C20 7DD0 578 | BSC L PTCH1,Z BRANCH TO PATCH IF NO 2-4 K0505780 7C04 7401 7C7D 579 | MDX L SW4,1 EXTERNAL SWITCH ON K0505790 7C06 7004 580 | MDX LAP4 BR TO SET MOVE SWITCH ON K0505800 7C07 68D8 581 | LAP1 STX 0 SW2A SW2A SET NON-ZERO = INTEGER K0505810 7C08 7002 582 | MDX LAP4 BR TO SET MOVE SWITCH ON K0505820 7C09 1010 583 | LAP SLA 16 SET SW2A TO ZERO TO K0505830 7C0A D0D5 584 | STO SW2A INDICATE REAL STMNT. K0505840 7C0B 68D3 585 | LAP4 STX 0 SW1A SET MOVE SWITCH ON K0505850 586 | * K0505860 587 | * INITIALIZE TO SCAN BODY OF STMNT K0505870 588 | * K0505880 7C0C 6D00 7A5F 589 | LAP3 STX L1 IDADR ADRS 1ST STMNT WORD 2-11 K0505890 7C0E 7101 590 | MDX 1 1 INCR STMNT ADDR K0505900 7C0F 1010 591 | SLA 16 CLEAR ACCUMULATOR K0505910 7C10 D400 7C7C 592 | STO L SW5 SYMBOL TABLE ADDR ADJUST SW K0505920 7C12 D0D2 593 | STO SW3A RESET SYNTAX ERROR INDR K0505930 7C13 C100 594 | JAP LD 1 0 FIRST STMNT WORD K0505940 7C14 90CF 595 | S SEMI SEMI-COLON K0505950 7C15 4C18 7AAA 596 | BSC L REMOV,+- BRCH IF SEMI-COLON 2-11 K0505960 7C17 C0CD 597 | LD SW3A SYNTAX ERROR SW K0505970 7C18 4C20 7C56 598 | BSC L ER19,Z BR TO SET ERROR IF SW3 ON K0505980 7C1A C100 599 | ZAR LD 1 0 STMNT NAME (FIRST HALF) K0505990 7C1B 4C28 7C21 600 | BSC L LAP2,+Z BRANCH IF NAME 2-6 K0506000 7C1D 90C6 601 | S SEMI ERROR 19 2-6 K0506010 7C1E 4C18 7C56 602 | BSC L ER19,+- *IF SEMICOLON 2-6 K0506020 7C20 704E 603 | MDX ER7R ERROR 7 IF NOT 2-6 K0506030 604 | * K0506040 7C21 D02C 605 | LAP2 STO WORD1 SAVE FIRST HALF OF NAME K0506050 7C22 1002 606 | SLA 2 K0506060 7C23 4C2A 7C6F 607 | BSC L ER7R,C+Z BR IF 1ST CHAR NOT ALPHA K0506070 7C25 C101 608 | LD 1 1 LAST HALF OF STMNT NAME K0506080 7C26 4C28 7C2B 609 | BSC L HOCK,+Z BR IF NAME LONGER THAN 1 WD K0506090 7C28 C023 610 | LD ZO ONE WORD NAME INDICATOR K0506100 7C29 D025 611 | STO WORD2 LAST HALF OF NAME K0506110 7C2A 7002 612 | MDX *+2 2-1 K0506120 7C2B D023 613 | HOCK STO WORD2 LAST HALF OF NAME K0506130 7C2C 7101 614 | MDX 1 1 INCR STMNT ADDRESS K0506140 7C2D C400 7C7D 615 | LD L SW4 EXTERNAL INDICATOR 2-1 K0506150 7C2F 4C18 7C36 616 | BSC L GENEL,+- BR IF NOT EXTERNAL 2-1 K0506160 7C31 C101 617 | LD 1 1 BR TO ER19 IF 2-1 K0506170 7C32 9400 7B76 618 | S L PARNL NAME IS 2-1 K0506180 7C34 4C18 7C56 619 | BSC L ER19,+- SUBSCRIPTED 2-1 K0506190 7C36 C101 620 | GENEL LD 1 1 BR TO ER7 IF NAME MORE 2-1 K0506200 7C37 4C28 7C6F 621 | BSC L ER7R,+Z THAN TWO WORDS LONG. K0506210 622 | * K0506220 623 | * LOOK FOR NAME IN SYMBOL TABLE K0506230 624 | * K0506240 7C39 6780 7A27 625 | ZOR LDX I3 SOFNS START OF NON-STMNT NUMBERS K0506250 7C3B 7009 626 | MDX HACK BR TO CHECK END OF SEARCH K0506260 7C3C C301 627 | LOOPQ LD 3 1 LD NEXT SYMBOL TABLE ENTRY K0506270 7C3D 9010 628 | S WORD1 FIRST HALF OF NAME K0506280 7C3E 4820 629 | BSC Z SKIP NEXT IF EQUAL NAME K0506290 7C3F 7004 630 | MDX EAT BR IF NOT EQUAL NAME K0506300 7C40 C302 631 | LD 3 2 LD NEXT SYMBOL TABLE ENTRY K0506310 7C41 900D 632 | S WORD2 LAST HALF OF NAME K0506320 7C42 4C18 7CC9 633 | BSC L FUN,+- BR IF NAME FOUND K0506330 7C44 73FD 634 | EAT MDX 3 -3 DECR SYMBOL TABLE ADDRESS K0506340 7C45 6B07 635 | HACK STX 3 SAVEQ STORE TO TEMPORARY K0506350 7C46 C006 636 | LD SAVEQ LOAD CURRENT SEARCH ADDRESS K0506360 7C47 9400 7A2A 637 | S L EOFST END OF SYMBOL TABLE K0506370 7C49 4820 638 | BSC Z SKIP NEXT IF END SEARCH K0506380 7C4A 70F1 639 | MDX LOOPQ BR TO CONTINUE SEARCH K0506390 7C4B 703B 640 | MDX PLACQ BR TO PUT NAME IN TABLE K0506400 641 | * K0506410 642 | * CONSTANTS AND WORK AREA K0506420 643 | * K0506430 7C4C 8000 644 | ZO DC /8000 SWITCH 2 RESET CONSTANT K0506440 7C4D 0000 645 | SAVEQ DC 0 INDEX REGISTER 3 TEMPORARY K0506450 7C4E 0000 646 | WORD1 DC 0 STMNT NAME (FIRST HALF) K0506460 7C4F 0000 647 | WORD2 DC 0 STMNT NAME (SECOND HALF) K0506470 7C50 0012 648 | ERR18 DC 18 ERROR 18 CONSTANT K0506480 7C51 0013 649 | ERR19 DC 19 ERROR 19 CONSTANT K0506490 7C52 0014 650 | ERR20 DC 20 ERROR 20 CONSTANT K0506500 7C53 0008 651 | ERR8S DC 8 ERROR 08 CONSTANT K0506510 7C54 0007 652 | ERR7S DC 7 ERROR 07 CONSTANT K0506520 7C55 0015 653 | ERR21 DC 21 ERROR 21 CONSTANT K0506530 654 | * K0506540 655 | * SET UP ERRORS K0506550 656 | * K0506560 7C56 C0FA 657 | ER19 LD ERR19 ERROR 19 INDICATOR K0506570 7C57 D400 7A58 658 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506580 7C59 4C00 7AAC 659 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506590 7C5B C0F6 660 | ER20 LD ERR20 ERROR 20 INDICATOR K0506600 7C5C D400 7A58 661 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506610 7C5E 4C00 7AAC 662 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506620 7C60 C0F2 663 | ER8R LD ERR8S ERROR 08 INDICATOR K0506630 7C61 D400 7A58 664 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506640 7C63 4C00 7AAC 665 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506650 7C65 C0EA 666 | ER18 LD ERR18 ERROR 18 INDICATOR K0506660 7C66 D400 7A58 667 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506670 7C68 4C00 7AAC 668 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506680 7C6A C0EA 669 | ER21 LD ERR21 ERROR 21 INDICATOR K0506690 7C6B D400 7A58 670 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506700 7C6D 4C00 7AAC 671 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506710 7C6F C0E4 672 | ER7R LD ERR7S ERROR 07 INDICATOR K0506720 7C70 D400 7A58 673 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506730 7C72 4C00 7AAC 674 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506740 675 | * K0506750 676 | * CONSTANTS AND WORK AREA K0506760 677 | * K0506770 7C74 BFFF 678 | RLIND DC /BFFF REAL INDICATOR K0506780 7C75 4000 679 | ININD DC /4000 INTEGER INDICATOR K0506790 7C76 002B 680 | COMA DC /2B COMMA CONSTANT K0506800 7C77 FFE2 681 | LPAR DC /0D-/2B LEFT PARENTHESIS CONSTANT K0506810 7C78 FFF2 682 | RPAR DC /1D-/2B RIGHT PARENTHESIS CONSTANT K0506820 7C79 3800 683 | MART DC /3800 EXTERNAL STMNT MASK K0506830 7C7A 0000 684 | TENTS DC 0 SYMBOL TABLE ADDRESS K0506840 7C7B 0090 685 | MART1 DC /0090 EXTERNAL INDICATORS K0506850 7C7C 0000 686 | SW5 DC 0 SYMBOL TABLE ADDR ADJUST SW K0506860 7C7D 0000 687 | SW4 DC 0 EXTERNAL STMNT SWITCH K0506870 7C7E 0016 688 | ER22 DC 22 ERROR 22 CONSTANT K0506880 7C7F 9231 689 | IFIXC DC /9231 IFIX EBCDIC CON (FIRST WD) K0506890 7C80 99C0 690 | DC /99C0 IFIX EBCDIC CON (LAST WD) K0506900 7C81 8C9A 691 | FLT DC /8C9A FLT EBCDIC CON (FIRST WD) K0506910 7C82 E063 692 | DC /E063 FLT EBCDIC CON (LAST WD) K0506920 7C83 7E00 693 | H7E00 DC /7E00 FIRST NAME CHAR MASK K0506930 7C84 1200 694 | H1200 DC /1200 NAME ALPHA CONSTANT K0506940 7C85 1800 695 | H1800 DC /1800 NAME ALPHA CONSTANT K0506950 7C86 0000 696 | SW6 DC *-* DIMENSION ERROR SWITCH K0506960 697 | * K0506970 698 | * PLACE NAME IN SYMBOL TABLE K0506980 699 | * K0506990 7C87 C0C7 700 | PLACQ LD WORD2 LAST HALF OF NAME K0507000 7C88 D302 701 | STO 3 2 NEXT SYMBOL TABLE ENTRY+1 K0507010 7C89 C0C4 702 | LD WORD1 FIRST HALF OF NAME K0507020 7C8A D301 703 | STO 3 1 NEXT SYMBOL TABLE ENTRY K0507030 7C8B 1010 704 | SLA 16 K0507040 7C8C D300 705 | STO 3 0 CLEAR SYMBOL TABLE ID WORD K0507050 7C8D 74FD 7A2A 706 | MDX L EOFST,-3 DECR END SYMBOL TABLE ADDR K0507060 7C8F 74FD 7A28 707 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0507070 7C91 74FD 7A29 708 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0507080 7C93 C400 7A2A 709 | LD L EOFST CHECK FOR 2-1 K0507090 7C95 8400 7D65 710 | A L TWOS SYMBOL TABLE 2-1 K0507100 7C97 9400 7A25 711 | S L EOFS OVERLAP 2-1 K0507110 7C99 4C28 7DCC 712 | BSC L JIMMY,+Z BR IF OVERLAP 2-1 K0507120 7C9B C0E1 713 | LD SW4 EXTERNAL STMNT SWITCH K0507130 7C9C 4C18 7CD9 714 | BSC L TICK,+- BR IF NOT EXTERNAL STMNT K0507140 7C9E C300 715 | MLTN LD 3 0 SYMBOL TABLE ID WORD K0507150 7C9F E0D9 716 | AND MART BR TO ER21 IF EXTERNAL NAME K0507160 7CA0 4C20 7C6A 717 | BSC L ER21,Z IS IN COMMON OR DIMENSION. K0507170 7CA2 C300 718 | LD 3 0 SYMBOL TABLE ID WORD K0507180 7CA3 E8D7 719 | OR MART1 SET EXTERNAL STMNT INDR K0507190 7CA4 D300 720 | STO 3 0 RESTORE ID WD K0507200 7CA5 C301 721 | LD 3 1 FIRST HALF OF NAME K0507210 7CA6 90D8 722 | S IFIXC FIRST HALF OF IFIX NAME CON K0507220 7CA7 4C20 7CB2 723 | BSC L TICKK,Z BR IF NAME NOT EQUAL IFIX K0507230 7CA9 C302 724 | LD 3 2 LAST HALF OF NAME K0507240 7CAA 90D5 725 | S IFIXC+1 LAST HALF OF IFIX NAME CON K0507250 7CAB 4C20 7CB2 726 | BSC L TICKK,Z BR IF NAME NOT EQUAL IFIX K0507260 7CAD C0D0 727 | EROR LD ER22 SET UP ERROR 22 - IFIX K0507270 7CAE D400 7A58 728 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0507280 7CB0 4C00 7AAC 729 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0507290 7CB2 C301 730 | TICKK LD 3 1 FIRST HALF OF NAME K0507300 7CB3 90CD 731 | S FLT FIRST HALF OF FLT NAME CON K0507310 7CB4 4C20 7CBA 732 | BSC L TICKP,Z BR NAME NOT EQUAL FLT K0507320 7CB6 C302 733 | LD 3 2 LAST HALF OF NAME K0507330 7CB7 90CA 734 | S FLT+1 LAST HALF OF FLT NAME CON K0507340 7CB8 4C18 7CAD 735 | BSC L EROR,+- BR IF NAME EQUAL FLT K0507350 7CBA C0CB 736 | TICKP LD SW6 K0507360 7CBB 4C18 7CC0 737 | BSC L TICKQ,+- BR IF SW6 IS OFF K0507370 7CBD 1010 738 | SLA 16 K0507380 7CBE D0C7 739 | STO SW6 CLEAR SW6 K0507390 7CBF 7023 740 | MDX MOTQS BR TO MOVE STMNT POINTER K0507400 7CC0 C301 741 | TICKQ LD 3 1 FIRST NAME WORD K0507410 7CC1 E0C1 742 | AND H7E00 EXTRACT FIRST CHARACTER K0507420 7CC2 90C1 743 | S H1200 K0507430 7CC3 4C28 7CDD 744 | BSC L LAP5,+Z BR IF MINUS TO SET REAL K0507440 7CC5 90BF 745 | S H1800 K0507450 7CC6 4C30 7CDD 746 | BSC L LAP5,-Z BR IF POS TO SET REAL K0507460 7CC8 7017 747 | MDX MA BR TO SET INTEGER INDR K0507470 7CC9 C300 748 | FUN LD 3 0 SYMBOL TBL ID WORD K0507480 7CCA 1008 749 | SLA 8 K0507490 7CCB 4C28 7C5B 750 | BSC L ER20,+Z BR IF SUBPROGRAM NAME K0507500 751 | * K0507510 752 | * CHECK FOR NAME PREVIOUSLY DIMENSIONED K0507520 753 | * K0507530 7CCD C300 754 | LD 3 0 SYMBOL TBL ID WORD K0507540 7CCE 1003 755 | SLA 3 K0507550 7CCF 4C28 7C65 756 | BSC L ER18,+Z BR IF MULTIPLE DIMENSION K0507560 7CD1 1001 757 | SLA 1 K0507570 7CD2 4C28 7C65 758 | BSC L ER18,+Z BR IF MULTIPLE DIMENSION K0507580 7CD4 C0A8 759 | LD SW4 EXTERNAL SWITCH K0507590 7CD5 4C18 7CD9 760 | BSC L TICK,+- BR IF NOT EXTERNAL STMNT K0507600 7CD7 68AE 761 | STX 0 SW6 TURN ON SWITCH 6 K0507610 7CD8 70C5 762 | MDX MLTN BR TO CHK EXTERNAL ERROR K0507620 7CD9 C400 7BE0 763 | TICK LD L SW2A REAL/INTEGER SWITCH K0507630 7CDB 4C20 7CE0 764 | BSC L MA,Z BR TO SET INTEGER INDICATOR K0507640 7CDD C300 765 | LAP5 LD 3 0 SYMBOL TABLE ID WORD K0507650 7CDE E095 766 | AND RLIND SET INDICATOR REAL K0507660 7CDF 7002 767 | MDX ZZ BR TO RESTORE ID WORD K0507670 7CE0 C300 768 | MA LD 3 0 ID WORD K0507680 7CE1 E893 769 | OR ININD SET INDICATOR INTEGER K0507690 7CE2 D300 770 | ZZ STO 3 0 RESTORE ID WORD K0507700 7CE3 7101 771 | MOTQS MDX 1 1 INCR STMNT POINTER K0507710 7CE4 C100 772 | LD 1 0 NEXT STMNT WORD K0507720 7CE5 9090 773 | S COMA COMMA CONSTANT K0507730 7CE6 4C18 7DBF 774 | BSC L BROT,+- BR IF COMMA K0507740 7CE8 908E 775 | S LPAR LEFT PARENTHESIS CONSTANT K0507750 7CE9 4C20 7DC8 776 | BSC L SIS,Z BR NOT LEFT PARENTHESIS K0507760 7CEB 1010 777 | SLA 16 K0507770 7CEC D076 778 | STO CNTQ RESET DIMENSION COUNTER K0507780 779 | * K0507790 780 | * CHECK FOR SUBPROGRAM OR FUNCTION K0507800 781 | * K0507810 7CED C400 7A30 782 | LD L SORF SUBPROGRAM OR FUNCTION INDR K0507820 7CEF 4C18 7CF7 783 | BSC L SUBQ,+- BR IF SUBPROG OR FUNCTION K0507830 7CF1 C300 784 | LD 3 0 SYMBOL TBL ID WORD K0507840 7CF2 1002 785 | SLA 2 K0507850 7CF3 4C10 7CF7 786 | BSC L SUBQ,- BR IF ALREADY IN COMMON K0507860 7CF5 7401 7A2E 787 | MDX L FNAME,1 ADJUST FNAME POINTER K0507870 788 | * K0507880 789 | * SPREAD SYMBOL TABLE FOR DIMENSION WDS K0507890 790 | * K0507900 7CF7 6921 791 | SUBQ STX 1 SAVIT+1 SAVE STMNT POINTER K0507910 7CF8 6B81 792 | STX 3 TENTS ADDR OF NAME IN COMMON K0507920 7CF9 C400 7C7A 793 | LD L TENTS K0507930 7CFB 9400 7A2A 794 | S L EOFST END OF STRING ADDRESS K0507940 7CFD D400 7C7A 795 | STO L TENTS NUMBER OF WORDS TO MOVE K0507950 7CFF 6680 7C7A 796 | LDX I2 TENTS K0507960 7D01 72FD 797 | MDX 2 -3 DECR WDS TO MOVE COUNT K0507970 7D02 7001 798 | MDX PASSS BR TO SLIDE TABLE 1 ENTRY K0507980 7D03 7007 799 | MDX GLINE BR TO CLEAR ENTRY IF ZERO K0507990 7D04 6580 7A2A 800 | PASSS LDX I1 EOFST END OF SYMBOL TABLE ADDRESS K0508000 7D06 C103 801 | LOOP8 LD 1 3 LD WORD TO MOVE K0508010 7D07 D100 802 | STO 1 0 SPREAD TABLE THREE WORDS K0508020 7D08 7101 803 | MDX 1 1 INCR MOVE POINTER K0508030 7D09 72FF 804 | MDX 2 -1 DECR CTR, SKIP NEXT IF DONE K0508040 7D0A 70FB 805 | MDX LOOP8 BR TO CONTINUE K0508050 7D0B 1010 806 | GLINE SLA 16 K0508060 7D0C D3FF 807 | STO 3 -1 ZERO WD 3 DIMENSION ENTRY K0508070 7D0D D3FE 808 | STO 3 -2 ZERO WD 2 DIMENSION ENTRY K0508080 7D0E D3FD 809 | STO 3 -3 ZERO WD 1 DIMENSION ENTRY K0508090 7D0F C300 810 | LD 3 0 ID WORD K0508100 7D10 E856 811 | OR MUM1 ONE DIMENSION INDICATOR K0508110 7D11 D300 812 | STO 3 0 REPLACE IN TABLE ENTRY K0508120 7D12 74FD 7A2A 813 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0508130 7D14 74FD 7A28 814 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0508140 7D16 74FD 7A29 815 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0508150 7D18 6500 0000 816 | SAVIT LDX L1 *-* RESTORE INDEX REGISTER 1 K0508160 7D1A 7401 7C7C 817 | MDX L SW5,1 K0508170 7D1C C400 7A2A 818 | LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0508180 7D1E 8046 819 | A TWOS K0508190 7D1F 9400 7A25 820 | S L EOFS END OF STRING K0508200 7D21 4C28 7DCC 821 | BSC L JIMMY,+Z BR IF SYMBOL TABLE OVERLAP K0508210 7D23 7101 822 | PHIL MDX 1 1 MOVE STATEMENT POINTER K0508220 7D24 C100 823 | LD 1 0 NEXT CHARACTER OF STATEMENT K0508230 7D25 E035 824 | AND H6000 CHECK FOR ALPHA CHARACTER K0508240 7D26 F034 825 | EOR H6000 K0508250 7D27 4C20 7C60 826 | BSC L ER8R,Z BR TO ER8 IF NOT NUMERIC K0508260 827 | * K0508270 828 | * COLLECT CONSTANT TO BINARY K0508280 829 | * K0508290 7D29 2000 830 | LDS 0 RESET OVERFLOW AND CARRY K0508300 7D2A 10A0 831 | SLT 32 K0508310 7D2B D030 832 | STO SUMMS CLEAR CONSTANT SUM K0508320 7D2C C100 833 | LD 1 0 WORD ONE OF CONSTANT K0508330 7D2D D830 834 | STD TEMP K0508340 7D2E C101 835 | LD 1 1 WORD TWO OF CONSTANT K0508350 7D2F 4C10 7D37 836 | BSC L BOT,- BR ON OPERATOR K0508360 7D31 1001 837 | SLA 1 MAKE BITS CONTIGUOUS K0508370 7D32 D02C 838 | STO TEMP+1 K0508380 7D33 C102 839 | LD 1 2 NEXT STATEMENT WORD K0508390 7D34 7101 840 | MDX 1 1 MOVE STMNT POINTER K0508400 7D35 4C08 7C60 841 | BSC L ER8R,+ BR ON NO OPERATOR K0508410 7D37 C026 842 | BOT LD TEMP WD 1 OF CONSTANT K0508420 7D38 E027 843 | BOT1 AND COT10 AND OUT ALL BUT 1ST 6 BITS K0508430 7D39 1002 844 | SLA 2 K0508440 7D3A 4C02 7D40 845 | BSC L PILLS,C BRANCH IF CARRY ON K0508450 7D3C 4C18 7D69 846 | BSC L NEXT,+- BR TO CHK FOR ZERO CONSTANT K0508460 7D3E 4C00 7C60 847 | BSC L ER8R BR IMBEDDED ALPHA CHARACTER K0508470 7D40 4C10 7C60 848 | PILLS BSC L ER8R,- BR NOT MINUS K0508480 7D42 E01E 849 | AND COT20 EXTRACT DIGIT K0508490 7D43 9020 850 | S NINTS NINE K0508500 7D44 4C30 7C60 851 | BSC L ER8R,-Z BR GREATER THAN NINE K0508510 7D46 801D 852 | A NINTS RESTORE DIGIT K0508520 7D47 180B 853 | SRA 11 RIGHT JUSTIFY K0508530 7D48 D019 854 | STO HP1 K0508540 7D49 C012 855 | LD SUMMS CUMULATIVE SUM K0508550 7D4A 1001 856 | SLA 1 TIMES 2 K0508560 7D4B D00E 857 | STO TENZ TEMPORARY STORE K0508570 7D4C 4C28 7C60 858 | BSC L ER8R,+Z BR IF TOO LARGE K0508580 7D4E 1002 859 | SLA 2 TIMES 8 K0508590 7D4F 4C2A 7C60 860 | BSC L ER8R,C+Z BR IF TOO LARGE K0508600 7D51 8008 861 | A TENZ TIMES 10 K0508610 7D52 800F 862 | A HP1 UNITS DIGIT K0508620 7D53 4C01 7C60 863 | BSC L ER8R,O BR TOO LARGE K0508630 7D55 D006 864 | STO SUMMS CUMULATIVE SUM K0508640 7D56 C807 865 | LDD TEMP DIGIT TEMPORARY K0508650 7D57 1086 866 | SLT 6 SHIFT NEXT DIGIT TO HIGH 6 K0508660 7D58 D805 867 | STD TEMP K0508670 7D59 70DE 868 | MDX BOT1 BR TO PROCESS NEXT DIGIT K0508680 869 | * K0508690 870 | * CONSTANTS AND WORK AREA K0508700 871 | * K0508710 7D5A 0000 872 | TENZ DC 0 CONSTANT TIMES 2 TEMPORARY K0508720 7D5B 6000 873 | H6000 DC /6000 ALPHABETIC MASK K0508730 7D5C 0000 874 | SUMMS DC 0 CUMULATIVE SUM OF CONSTANT K0508740 7D5E 875 | BSS E 0 MAKE ADDRESS EVEN K0508750 7D5E 0000 876 | TEMP DC 0 2 WORD TEMPORARY FOR K0508760 7D5F 0000 877 | DC 0 CONSTANT TO BE CONVERTED. K0508770 7D60 7E00 878 | COT10 DC /7E00 FIRST NAME CHAR MASK K0508780 7D61 7800 879 | COT20 DC /7800 EXTRACT DIGIT CONSTANT K0508790 7D62 0000 880 | HP1 DC 0 UNITS DIGIT TEMPORARY K0508800 7D63 0000 881 | CNTQ DC 0 NUMBER OF CONSTANTS COUNTER K0508810 7D64 4800 882 | NINTS DC /4800 DECIMAL NINE CONSTANT K0508820 7D65 0002 883 | TWOS DC 2 DECIMAL TWO CONSTANT K0508830 7D66 0003 884 | THREE DC 3 DECIMAL THREE CONSTANT K0508840 7D67 0800 885 | MUM1 DC /0800 ONE DIMENSION INDICATOR K0508850 7D68 E7FF 886 | DIMCL DC /E7FF MASK TO REMOVE BITS 3 AND 4 K0508860 887 | * K0508870 888 | * COMPUTE AND STORE DIMENSION CONSTANTS K0508880 889 | * K0508890 7D69 7401 7D63 890 | NEXT MDX L CNTQ,1 INCR CONSTANT COUNTER K0508900 7D6B C0F0 891 | LD SUMMS CHECK FOR ZERO CONSTANT K0508910 7D6C 4C18 7C60 892 | BSC L ER8R,+- BR IF DIMENSION CON IS ZERO K0508920 7D6E C0F4 893 | LD CNTQ DIMENSION COUNTER K0508930 7D6F 9400 7BDE 894 | S L ONE K0508940 7D71 4820 895 | BSC Z SKIP NEXT IF FIRST CONSTANT K0508950 7D72 7005 896 | MDX OZ2 BR TO COMPUTE 2ND CONSTANT K0508960 7D73 C0E8 897 | LD SUMMS DIMENSION CONSTANT K0508970 7D74 D3FF 898 | STO 3 -1 STORE FIRST DIMENSION K0508980 7D75 D3FE 899 | STO 3 -2 CONSTANT IN ALL 3 WORDS OF K0508990 7D76 D3FD 900 | STO 3 -3 SYMBOL TABLE ENTRY. K0509000 7D77 7014 901 | MDX NEXTS BR TO GET NEXT STMNT CHAR K0509010 7D78 9400 7BDE 902 | OZ2 S L ONE K0509020 7D7A 4820 903 | BSC Z SKIP NEXT IF 2ND CONSTANT K0509030 7D7B 7009 904 | MDX OZ3 BR TO COMPUTE 3RD CONSTANT K0509040 7D7C C3FF 905 | LD 3 -1 FIRST DIMENSION CONSTANT K0509050 7D7D A0DE 906 | M SUMMS SECOND DIMENSION CONSTANT K0509060 7D7E 1081 907 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0509070 7D7F 4C20 7C60 908 | BSC L ER8R,Z *IF TOO GREAT 2-7 K0509080 7D81 108F 909 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0509090 7D82 D3FE 910 | STO 3 -2 STORE IN SECOND AND THIRD K0509100 7D83 D3FD 911 | STO 3 -3 DIMENSION WORDS. K0509110 7D84 7007 912 | MDX NEXTS BR TO GET NEXT STMNT CHAR K0509120 7D85 C3FD 913 | OZ3 LD 3 -3 1ST X 2ND DIMENSION CON K0509130 7D86 A0D5 914 | M SUMMS THIRD DIMENSION CONSTANT K0509140 7D87 1081 915 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0509150 7D88 4C20 7C60 916 | BSC L ER8R,Z *IF TOO GREAT 2-7 K0509160 7D8A 108F 917 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0509170 7D8B D3FD 918 | STO 3 -3 STORE IN THIRD DIMENSION WD K0509180 7D8C 7101 919 | NEXTS MDX 1 1 INCR STMNT POINTER K0509190 7D8D C100 920 | LD 1 0 NEXT CHARACTER K0509200 7D8E 9400 7C76 921 | S L COMA COMMA K0509210 7D90 4C20 7D97 922 | BSC L COZ,Z BR CHK RIGHT PARENTHESIS K0509220 7D92 C0D0 923 | LD CNTQ CHK FOR COUNT LESS THAN 3 K0509230 7D93 90D2 924 | S THREE K0509240 7D94 4C10 7C60 925 | BSC L ER8R,- BR IF COUNT THREE OR MORE K0509250 7D96 708C 926 | MDX PHIL BR TO CONVERT NEXT CONSTANT K0509260 7D97 9400 7C78 927 | COZ S L RPAR RIGHT PARENTHESIS K0509270 7D99 4C20 7C60 928 | BSC L ER8R,Z BR TO ERR IF NO PARENTHESIS K0509280 7D9B C0C7 929 | LD CNTQ DIMENSION COUNT K0509290 7D9C 100B 930 | SLA 11 SHIFT TO BITS 3 AND 4 K0509300 7D9D D0C0 931 | STO TEMP TEMPORARY K0509310 7D9E C300 932 | LD 3 0 SYMBOL TABLE ID WORD K0509320 7D9F E0C8 933 | AND DIMCL SET BITS 3 AND 4 EQUAL TO K0509330 7DA0 E8BD 934 | OR TEMP THE NUMBER OF DIMENSIONS. K0509340 7DA1 D300 935 | STO 3 0 SYMBOL TABLE ID WORD K0509350 7DA2 C400 7C7C 936 | LD L SW5 K0509360 7DA4 4C20 7DAC 937 | BSC L YELP,Z BR TO CHECK FOR OVERLAP K0509370 7DA6 74FD 7A2A 938 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0509380 7DA8 74FD 7A28 939 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0509390 7DAA 74FD 7A29 940 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0509400 7DAC C400 7A2A 941 | YELP LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0509410 7DAE 80B6 942 | A TWOS K0509420 7DAF 9400 7A25 943 | S L EOFS END OF STRING K0509430 7DB1 4C28 7DCC 944 | BSC L JIMMY,+Z BR IF SYMBOL TABLE OVERLAP K0509440 7DB3 1010 945 | SLA 16 CLEAR ACCUMULATOR K0509450 7DB4 D400 7C7C 946 | STO L SW5 RESET SWITCH 5 K0509460 7DB6 7101 947 | MDX 1 1 MOVE STMNT POINTER K0509470 7DB7 C100 948 | LD 1 0 NEXT STMNT CHARACTER K0509480 7DB8 9400 7C76 949 | S L COMA COMMA K0509490 7DBA 4C20 7DC8 950 | BSC L SIS,Z BR NOT COMMA K0509500 7DBC 7101 951 | MDX 1 1 MOVE STMNT POINTER K0509510 7DBD 6400 7C1A 952 | LDX L ZAR BR TO CHK FOR LEGAL NAME K0509520 7DBF 7101 953 | BROT MDX 1 1 MOVE STMNT POINTER K0509530 7DC0 6400 7C1A 954 | LDX L ZAR BR TO CHK FOR LEGAL NAME K0509540 955 | * K0509550 956 | * CHECK CONTINUE SCAN OR READ NEXT PH K0509560 957 | * K0509570 7DC2 C400 7BDF 958 | TAP LD L SW1A K0509580 7DC4 4C20 7DE8 959 | BSC L REPAK,Z GO DO REPACK OF STRING 2-11 K0509590 7DC6 4C00 7DD8 960 | BSC L MOVE BR TO SCAN NEXT STMNT K0509600 7DC8 6C00 7BE5 961 | SIS STX L0 SW3A SET SYMBOL TBL OPEN SWITCH K0509610 7DCA 4C00 7C13 962 | BSC L JAP BR TO TEST FOR SEMI-COLON K0509620 7DCC 7401 7A2D 963 | JIMMY MDX L ERROR,1 SET OVERLAP ERROR ON K0509630 7DCE 4C00 7E4A 964 | BSC L NXTPH BR TO READ NEXT PHASE 2-11 K0509640 965 | * K0509650 966 | * PATCH FOR MOD 4 K0509660 967 | * K0509670 7DD0 9005 968 | PTCH1 S H1400 IS IT DEFINE FILE 2-4 K0509680 7DD1 4820 969 | BSC Z SKIP IF YES 2-4 K0509690 7DD2 9004 970 | S H0400 IS IT DATA STATEMENT 2-4 K0509700 7DD3 4C18 7DD8 971 | BSC L MOVE,+- YES - MOVE TO NEXTSTMT 2-4 K0509710 7DD5 70EC 972 | MDX TAP BRANCH TO TEST SW1A 2-4 K0509720 973 | * K0509730 7DD6 1400 974 | H1400 DC /1400 CONST FOR DEF FILE TST 2-4 K0509740 7DD7 0400 975 | H0400 DC /0400 CONST FOR DATA TEST 2-4 K0509750 976 | * K0509760 7DD8 C100 977 | MOVE LD 1 0 STMNT ID 2-11 K0509770 7DD9 1802 978 | SRA 2 2-11 K0509780 7DDA E400 7A5C 979 | AND L IDNRM STMNT WORD COUNT 2-11 K0509790 7DDC D001 980 | STO *+1 STORE TO UPDATE 2-11 K0509800 7DDD 7500 0000 981 | MDX L1 *-* INCR TO NEXT STMNT 2-11 K0509810 7DDF 4C00 7BEE 982 | BSC L DAP BRCH TO TEST STMNT 2-11 K0509820 984 | ***********************************************2-11 K0509840 985 | * 2-11 K0509850 986 | * THIS ROUTINE REPACKS THE INPUT STRING 2-11 K0509860 987 | * REMOVING DUMMY ERROR ENTRIES EXCEPT 2-11 K0509870 988 | * PRIOR TO GROUP/OR SINGLE ENTRIES OF 2-11 K0509880 989 | * EQUIVALENCE-DEFINE FILE-OR DATA 2-11 K0509890 990 | * SPECIFICATION STATEMENTS. PRIOR TO THESE 2-11 K0509900 991 | * STATEMENTS THE DUMMY ERROR REMAINS TO 2-11 K0509910 992 | * ACT AS A LINE COUNT PLACE HOLDER. 2-11 K0509920 993 | * IF THE DUMMY ERROR IS KEPT AND/OR IF 2-11 K0509930 994 | * THERE IS A LEGAL ERROR STMNT ID PRESENT 2-11 K0509940 995 | * THE LINE COUNT FOR THAT STATEMENT IS 2-11 K0509950 996 | * OR'ED INTO THE ERROR NUMBERS LEFT MOST 2-11 K0509960 997 | * BITS (0-8) 2-11 K0509970 998 | * 2-11 K0509980 999 | ***********************************************2-11 K0509990 1001 | * 2-11 K0510010 1002 | *** CONSTANT'S AREA 2-11 K0510020 1003 | * 2-11 K0510030 7DE1 0002 1004 | K0002 DC /0002 CONSTANT-TWO 2-11 K0510040 7DE2 A000 1005 | KA000 DC /A000 ERROR CONST 2-11 K0510050 7DE3 0800 1006 | K0800 DC /0800 EQUIV/DATA CONST 2-11 K0510060 7DE4 7000 1007 | K7000 DC /7000 IOCS CONST 2-11 K0510070 7DE5 2800 1008 | K2800 DC /2800 DEFINE FILE CONST 2-11 K0510080 7DE6 5800 1009 | K5800 DC /5800 DEFINE FILE CONST 2-11 K0510090 7DE7 0000 1010 | LNCNT DC 0 LINE COUNT VALUE 2-11 K0510100 7DE8 1012 | REPAK EQU * 2-11 K0510120 7DE8 1000 1013 | NOP FOR DE-BUGGING 2-11 K0510130 7DE9 10A0 1014 | SLT 32 CLEAR ACCM/EXT 2-11 K0510140 7DEA D0FC 1015 | STO LNCNT ZERO LINE COUNT VALUE 2-11 K0510150 7DEB C400 7A24 1016 | LD L SOFS LOAD START OF STRING 2-11 K0510160 7DED D400 7A5F 1017 | STO L IDADR SAVE STMNT ID ADRS 2-11 K0510170 7DEF 6580 7A5F 1019 | CONT LDX I1 IDADR SET XR1 TO IDADR 2-11 K0510190 7DF1 C100 1020 | LD 1 0 LOAD STMNT ID 2-11 K0510200 7DF2 18CB 1021 | RTE 11 SAVE NORM IN EXT 2-11 K0510210 7DF3 100B 1022 | SLA 11 RESTORE STMNT ID 2-11 K0510220 7DF4 7007 1023 | MDX RPK02 GO CHECK STMNT ID 2-11 K0510230 7DF5 1010 1025 | RPK01 SLA 16 CLEAR ACCM 2-11 K0510250 7DF6 1089 1026 | SLT 9 RESTORE NORM 2-11 K0510260 7DF7 8400 7A5F 1027 | A L IDADR ADD NORM AND STMNT 2-11 K0510270 7DF9 D400 7A5F 1028 | STO L IDADR *ADRS FOR NEXT STMNT 2-11 K0510280 7DFB 70F3 1029 | MDX CONT CONTINUE SCAN 2-11 K0510290 7DFC F0E5 1031 | RPK02 EOR KA000 2-11 K0510310 7DFD 4C18 7E0F 1032 | BSC L RPK04,+- BRCH IF ERROR ID 2-11 K0510320 7DFF F0E3 1033 | EOR K0800 2-11 K0510330 7E00 4C18 7E0C 1034 | BSC L RPK03,+- BRCH IF EQUIV ID 2-11 K0510340 7E02 F0E1 1035 | EOR K7000 2-11 K0510350 7E03 4C18 7DF5 1036 | BSC L RPK01,+- BRCH IF IOCS ID 2-11 K0510360 7E05 F0DF 1037 | EOR K2800 2-11 K0510370 7E06 4C18 7E0C 1038 | BSC L RPK03,+- BRCH IF DEFINE FILE ID 2-11 K0510380 7E08 F0DA 1039 | EOR K0800 2-11 K0510390 7E09 4C18 7E0C 1040 | BSC L RPK03,+- BRCH IF DATA ID 2-11 K0510400 7E0B 703E 1041 | MDX NXTPH READ IN NEXT PHASE 2-11 K0510410 7E0C 7401 7DE7 1043 | RPK03 MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K0510430 7E0E 70E6 1044 | MDX RPK01 CONTINUE SCAN 2-11 K0510440 1046 | * 2-11 K0510460 1047 | *** CHECK TYPE OF ERROR STMNT 2-11 K0510470 1048 | * 2-11 K0510480 7E0F 7401 7DE7 1049 | RPK04 MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K0510490 7E11 C100 1051 | LD 1 0 LOAD STMNT ID 2-11 K0510510 7E12 4C04 7E4A 1052 | BSC L NXTPH,E BRCH IF NUMBERED 2-11 K0510540 7E14 C101 1054 | LD 1 1 IS IT A DUMMY ERROR 2-11 K0510560 7E15 4C18 7E22 1055 | BSC L RPK06,+- YES-BRCH 2-11 K0510570 1057 | ***** REAL ERROR'S 2-11 K0510590 7E17 6580 7A5F 1059 | RPK05 LDX I1 IDADR RESTORE XR1 2-11 K0510610 7E19 C0CD 1060 | LD LNCNT LOAD LINE COUNT 2-11 K0510620 7E1A 1007 1061 | SLA 7 POSITION LNCNT FIELD 2-11 K0510630 7E1B D400 7D5E 1062 | STO L TEMP STORE AT TEMP 2-11 K0510640 7E1D C101 1063 | LD 1 1 LOAD ERROR NUMBER 2-11 K0510650 7E1E EC00 7D5E 1064 | OR L TEMP OR IN LINE COUNT 2-11 K0510660 7E20 D101 1065 | STO 1 1 STORE BACK ON STRING 2-11 K0510670 7E21 70D3 1066 | MDX RPK01 CONTINUE SCAN 2-11 K0510680 1068 | ***** DUMMY ERROR'S 2-11 K0510700 7E22 C102 1070 | RPK06 LD 1 2 LOAD NEXT STMNT AND 2-11 K0510720 7E23 180B 1071 | SRA 11 REMOVE NORM 2-11 K0510730 7E24 100B 1072 | SLA 11 RESTORE STMNT ID 2-11 K0510740 7E25 F0BC 1073 | EOR KA000 CHECK FOR ERROR ID 2-11 K0510750 7E26 4C18 7E31 1074 | BSC L RPK07,+- YES-BRCH TO REMOVE 2-11 K0510760 7E28 F0BA 1075 | EOR K0800 IF EQUIV STMNT 2-11 K0510770 7E29 4C18 7E17 1076 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510780 7E2B F0BA 1077 | EOR K5800 IF DEFINE FILE 2-11 K0510790 7E2C 4C18 7E17 1078 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510800 7E2E F0B4 1079 | EOR K0800 IF DATA STMNT 2-11 K0510810 7E2F 4C18 7E17 1080 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510820 1082 | * 2-11 K0510840 1083 | * THIS ROUTINE REMOVES DUMMY ERROR 2-11 K0510850 1084 | *** STMNTS FROM THE INPUT STRING AND 2-11 K0510860 1085 | * CLOSES THE STRING UP 2-11 K0510870 1086 | * 2-11 K0510880 7E31 6580 7A5F 1088 | RPK07 LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K0510900 7E33 C400 7A5F 1089 | LD L IDADR LOAD STMNT ADRS 2-11 K0510910 7E35 80AB 1090 | A K0002 ADJ FOR ERROR ID 2-11 K0510920 7E36 D001 1091 | STO *+1 AND SET XR2 2-11 K0510930 7E37 6600 0000 1092 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K0510940 7E39 C400 7A25 1094 | LD L EOFS LOAD END OF STRING ADRS2-11 K0510960 7E3B 9400 0002 1095 | S L /0002 SUB VALUE IN XR2 2-11 K0510970 7E3D D001 1096 | STO *+1 AND STORE AS 2-11 K0510980 7E3E 6700 0000 1097 | LDX L3 *-* RANGE IN XR3 2-11 K0510990 7E40 7301 1098 | MDX 3 +1 ADJ XR3 BY ONE 2-11 K0511000 7E41 C200 1100 | RPK08 LD 2 0 NEXT WORD TO MOVE 2-11 K0511020 7E42 D100 1101 | STO 1 0 TO NEW ADRS 2-11 K0511030 7E43 7101 1102 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K0511040 7E44 7201 1103 | MDX 2 1 INCREMENT NEW ADRS 2-11 K0511050 7E45 73FF 1104 | MDX 3 -1 DECREMENT RANGE 2-11 K0511060 7E46 70FA 1105 | MDX RPK08 LOOP UNTILL RANGE ZERO 2-11 K0511070 7E47 6D00 7A25 1107 | STX L1 EOFS NEW END OF STRING 2-11 K0511090 7E49 70A5 1108 | MDX CONT CONTINUE SCAN 2-11 K0511100 1109 | * K0511110 1110 | * READ AND GO TO NEXT PHASE K0511120 1111 | * K0511130 7E4A 6580 7E51 1112 | NXTPH LDX I1 NXPID+1 LOAD PARAM FOR READING 2-11 K0511140 7E4C C805 1113 | LDD NXPID+2 NEXT PHASE 2-11 K0511150 7E4D 4C00 7FBC 1114 | BSC L ROL BR TO ROLLER TO READ PHASE K0511160 7E50 1115 | BSS E 0 MAKE ADDRESS EVEN K0511170 7E50 0024 1116 | NXPID DC 36 ID OF NEXT PHASE 2-11 K0511180 7E51 1117 | BSS 3 LOADER TBL FOR NEXT PHASE K0511190 1118 | * K0511200 7E54 1119 | BSS BPHAR+PHLEN*320-1-* PATCH AREA K0511210 7F35 0000 1120 | DC 0 K0511220 7F36 1121 | END BPHAR-2 K0511230 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 101 157 AOT 7B4D 417 411 AOT1 7B4E 418 443 BEGIN 7BE8 561 160 166 540 BILL 7A90 241 232 BOT 7D37 842 836 BOT1 7D38 843 868 BPHAR 7A36 147 1119 1121 BROT 7DBF 953 774 CCWD 7A31 122 CHK 7A97 247 239 CLOSE 7AAC 275 255 258 261 264 267 659 662 665 668 671 674 729 CNT 7B7F 463 396 470 473 506 541 CNTQ 7D63 881 778 890 893 923 929 COMA 7C76 680 773 921 949 COMAC 7B77 454 501 503 526 COMON 7A2B 116 CONT 7DEF 1019 1029 1108 COT1 7B7A 458 418 COT10 7D60 878 843 COT2 7B7B 459 424 COT20 7D61 879 849 COZ 7D97 927 922 CSIZE 7A2C 117 DAP 7BEE 564 306 982 DFCNT 7A33 140 DIMC 7A51 181 167 DIMCL 7D68 886 933 EAT 7C44 634 630 ENDC 7A50 180 165 EOFS 7A25 110 288 301 389 520 711 820 943 1094 1107 EOFST 7A2A 115 243 322 363 369 383 387 515 518 637 706 709 794 800 813 818 938 941 ER 7AA7 265 346 347 ER16 7AA1 259 211 ER17 7A9B 253 ER18 7C65 666 756 758 ER19 7C56 657 598 602 619 ER20 7C5B 660 750 ER21 7C6A 669 717 ER22 7C7E 688 727 ER7 7AA4 262 215 218 227 ER7R 7C6F 672 603 607 621 ER8 7A9E 256 394 401 416 422 423 426 433 435 438 472 488 496 505 543 ER8R 7C60 663 826 841 847 848 851 858 860 863 892 908 916 925 928 EROR 7CAD 727 735 ERR 7A53 183 265 ERR16 7A56 186 259 ERR17 7A57 187 253 ERR18 7C50 648 666 ERR19 7C51 649 657 ERR20 7C52 650 660 ERR21 7C55 653 669 ERR7 7A54 184 262 ERR7S 7C54 652 672 ERR8 7A55 185 256 ERR8S 7C53 651 663 ERRID 7A61 197 283 ERRNO 7A58 188 254 257 260 263 266 270 285 658 661 664 667 670 673 728 ERROR 7A2D 118 159 539 562 963 EXTER 7BE7 557 577 FLT 7C81 691 731 734 FNAME 7A2E 119 356 787 FUN 7CC9 748 633 GENEL 7C36 620 616 GLINE 7D0B 806 799 GLINK 7B1A 375 368 GORT 7B81 465 432 436 H0400 7DD7 975 970 H0800 7BE1 551 571 H1200 7C84 694 743 H1400 7DD6 974 968 H1800 7C85 695 745 H6000 7D5B 873 824 825 H7E00 7C83 693 742 HACK 7C45 635 626 HEAT 7A8F 240 236 HELP1 7B7C 460 429 437 HOCK 7C2B 613 609 HP1 7D62 880 854 862 IDADR 7A5F 195 202 275 280 289 589 1017 1019 1027 1028 1059 1088 1089 IDCI 7B74 451 335 IDCR 7B75 452 337 IDNRM 7A5C 192 172 278 979 IDTPE 7A60 196 164 IDTPQ 7BE6 556 570 IFIXC 7C7F 689 722 725 ININD 7C75 679 769 INTGR 7BE2 552 575 IOCS 7A32 131 JAP 7C13 594 962 JIMMY 7DCC 963 712 821 944 JIMY 7BD4 539 390 521 K0002 7DE1 1004 1090 K0800 7DE3 1006 1033 1039 1075 1079 K2800 7DE5 1008 1037 K5800 7DE6 1009 1077 K7000 7DE4 1007 1035 KA000 7DE2 1005 1031 1073 LAP 7C09 583 574 LAP1 7C07 581 576 LAP2 7C21 605 600 LAP3 7C0C 589 LAP4 7C0B 585 580 582 LAP5 7CDD 765 744 746 LNCNT 7DE7 1010 1015 1043 1049 1060 LOOP 7A87 233 245 LOOP1 7AC5 295 300 LOOP3 7B15 370 374 LOOP8 7D06 801 805 LOOPQ 7C3C 627 639 LORD 7B2B 387 339 LPAR 7C77 681 775 MA 7CE0 768 747 764 MADS 7A7F 224 220 MART 7C79 683 716 MART1 7C7B 685 719 MEMRY 8000 98 99 100 MIX 7A63 202 169 MLTN 7C9E 715 762 MOTQS 7CE3 771 740 MOVE 7DD8 977 960 971 MUM1 7D67 885 811 NEX 7B83 470 421 NEXP 7BA4 499 481 492 NEXT 7D69 890 846 NEXTS 7D8C 919 901 912 NINT 7B7D 461 425 427 NINTS 7D64 882 850 852 NRMSV 7AD5 310 279 290 NXPID 7E50 1116 150 1112 1113 NXTPH 7E4A 1112 563 964 1041 1052 O1 7B82 466 474 482 O2 7B91 482 476 O3 7B9D 493 484 ONE 7BDE 548 894 902 ONEDM 7AD9 314 380 ORG 7A23 108 OVERL 7A23 99 103 OZ2 7D78 902 896 OZ3 7D85 913 904 PADS 7A72 213 529 PARNL 7B76 453 393 618 PARNR 7B80 464 504 PASS 7B13 369 367 PASSS 7D04 800 798 PHID 0023 104 156 PHIL 7D23 822 926 PHLEN 0004 102 1119 PILL 7B56 423 420 PILLS 7D40 848 845 PIT 7B70 447 399 400 PIT1 7B71 448 329 PLACE 7ADA 318 246 PLACQ 7C87 700 640 PREV 7AF8 343 249 PTCH1 7DD0 968 578 REALC 7BE3 553 573 REEL 7AF5 337 332 334 REMOV 7AAA 269 209 596 REPAK 7DE8 1012 572 959 RGTI 7B72 449 330 RGTN 7B73 450 333 RLIND 7C74 678 766 ROL 7FBC 100 1114 RPAR 7C78 682 927 RPK01 7DF5 1025 1036 1044 1066 RPK02 7DFC 1031 1023 RPK03 7E0C 1043 1034 1038 1040 RPK04 7E0F 1049 1032 RPK05 7E17 1059 1076 1078 1080 RPK06 7E22 1070 1055 RPK07 7E31 1088 1074 RPK08 7E41 1100 1105 SAVE 7A5B 191 241 242 SAVEQ 7C4D 645 635 636 SAVIT 7D18 816 791 SAVX1 7ACD 302 293 SEMI 7BE4 554 595 601 SEMIC 7A52 182 208 SIP 7A69 207 527 SIS 7DC8 961 776 950 SOFGT 7A29 114 324 385 517 708 815 940 SOFNS 7A27 112 231 625 SOFS 7A24 109 158 561 1016 SOFST 7A26 111 SOFXT 7A28 113 323 384 516 707 814 939 SON1 7B37 395 544 SORF 7A30 121 351 782 SUBN 7B08 360 352 355 SUBQ 7CF7 791 783 786 SUMM 7B7E 462 407 430 439 471 477 486 494 SUMMS 7D5C 874 832 855 864 891 897 906 914 SW1A 7BDF 549 585 958 SW2 7A5E 194 205 210 212 SW2A 7BE0 550 581 584 763 SW3 7AD8 313 206 386 513 523 SW3A 7BE5 555 593 597 961 SW4 7C7D 687 565 579 615 713 759 SW5 7C7C 686 592 817 936 946 SW6 7C86 696 566 736 739 761 SW7 7A4F 179 161 304 567 TAP 7DC2 958 972 TARZ 7B32 391 TCNT 7BD8 541 502 TEM 7B78 456 409 413 417 440 442 TEMP 7D5E 876 834 838 842 865 867 931 934 1062 1064 TENT 7AD7 312 361 362 364 365 TENTS 7C7A 684 792 793 795 796 TENZ 7D5A 872 857 861 TEST 7A3F 162 175 305 THRDM 7BD2 534 510 THRE 7BD1 533 542 THREE 7D66 884 924 TICK 7CD9 763 714 760 TICKK 7CB2 730 723 726 TICKP 7CBA 736 732 TICKQ 7CC0 741 737 TMPDM 7BD3 535 508 511 TWO 7AD6 311 388 519 TWOS 7D65 883 710 819 942 VIP 7AF6 338 336 VVV 7B21 382 360 WD1 7A59 189 216 234 320 328 WD2 7A5A 190 222 224 238 318 WORD1 7C4E 646 605 628 702 WORD2 7C4F 647 611 613 632 700 YELP 7DAC 941 937 YELP1 7BBE 518 514 ZAR 7C1A 599 952 954 ZERO 7A62 198 221 ZO 7C4C 644 610 ZOR 7C39 625 ZORRO 7A84 231 223 ZZ 7CE2 770 767
ibm/ibm1130-lib/dmsr2v12/kforph05_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator