ibm:ibm1130-lib:dmsr2v12:kforph18_lst
KFORPH18
| Table Of Contents |
|---|
|
- kforph18.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph18.asm 1130 FORTRAN COMPILER PHASE 18 2 | *************************************************** K1800020 3 | *STATUS - VERSION 2, MODIFICATION 11 * K1800030 4 | * * K1800040 5 | *FUNCTION/OPERATION- * K1800050 6 | * * REPLACES ARITHMETIC, STMNT FUNCTION, CALL, * K1800060 7 | * AND IF STATEMENTS NOT INVOLVING SUBSCRIPTED * K1800070 8 | * VARIABLES BY COMPILER-GENERATED CODING * K1800080 9 | * * COMPLETES THE REPLACEMENT OF ARITHMETIC, * K1800090 10 | * STMNT FUNCTION, CALL, AND IF STMNTS THAT DO * K1800100 11 | * INVOLVE SUBSCRIPTED VARIABLES BY COMPILER- * K1800110 12 | * GENERATED CODING. * K1800120 13 | * * OPTIMIZES IF STMNT BRANCH INSTRUCTIONS. * K1800130 14 | * * HANDLES MIXED MODE ARITHMETIC * K1800140 15 | * * K1800150 16 | *ENTRY POINTS- * K1800160 17 | * ENQ-PHASE 18 IS READ INTO CORE BY PHASE 17 * K1800170 18 | * AND EXECUTION BEGUN AT LOCATION ENQ. * K1800180 19 | * * K1800190 20 | *INPUT- * K1800200 21 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1800210 22 | * STRING SCANNED BY THE COMPILER MAY BE * K1800220 23 | * CONSIDERED INPUT. * K1800230 24 | * * K1800240 25 | *OUTPUT- * K1800250 26 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1800260 27 | * STRING AND THE SYMBOL TABLE ALTERED BY THE * K1800270 28 | * COMPILER MAY BE CONSIDERED OUTPUT. * K1800280 29 | * * K1800290 30 | *EXTERNAL REFERENCES-N/A * K1800300 31 | * * K1800310 32 | *EXITS- * K1800320 33 | * NORMAL- * K1800330 34 | * PHASE EXITS NORMALLY IF OVERLAP ERROR IS * K1800340 35 | * NOT FOUND. PHASE 19 IS LOADED AND EXECUTED * K1800350 36 | * ERROR- * K1800360 37 | * IF AN OVERLAP ERROR OCCURS, COMPILATION IS * K1800370 38 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K1800380 39 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K1800390 40 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K1800400 41 | * NO ERRORS ARE DETECTED IN PHASE 18. * K1800410 42 | * * K1800420 43 | *TABLES/WORK AREAS- * K1800430 44 | * NONE EXCEPT STATEMENT STRING AREA, SYMBOL * K1800440 45 | * TABLE, AND FORTRAN COMMUNICATION AREA * K1800450 46 | * * K1800460 47 | *ATTRIBUTES-N/A * K1800470 48 | * * K1800480 49 | *NOTES- * K1800490 50 | * THE SWITCHES USED IN PHASE 18 FOLLOW. IF * K1800500 51 | * POSITIVE, THE SWITCH IS TRANSFER=T. IF ZERO, * K1800510 52 | * THE SWITCH IS NORMAL=N. IF MINUS, THE SWITCH * K1800520 53 | * IS NEGATIVE=M. * K1800530 54 | * * MODSW-MODE OF ARITHMETIC * K1800540 55 | * N=SWITCH NOT SET. * K1800550 56 | * T=FIXED MODE ARITHMETIC * K1800560 57 | * M=FLOATING MODE ARITHMETIC * K1800570 58 | * * STNCH-STATEMENT NUMBER * K1800580 59 | * N=STMNT HAS NO STMNT NUMBER * K1800590 60 | * T=STMNT HAS STMNT NUMBER * K1800600 61 | * * TEMP -OUTPUT SWITCH * K1800610 62 | * T=OUTPUT PROCESSED PARTS OF STMNT * K1800620 63 | * WHILE SEARCHING FOR NEXT NOT * K1800630 64 | * PROCESSED OPTR IN SUBROUTINE * K1800640 65 | * FINDN * K1800650 66 | *************************************************** K1800660 67 | ABS K1800670 68 | * K1800680 69 | * SYSTEM EQUATES K1800690 8000 70 | MEMRY EQU /8000 K1800700 7A24 71 | OVERL EQU MEMRY-1500 START OF FCOM K1800710 7FBC 72 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1800720 0078 73 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1800730 7A24 74 | ORG OVERL K1800740 0030 75 | PHID EQU 48 ID NUMBER THIS PHASE K1800750 76 | ************************************************** K1800760 77 | * K1800770 78 | * FORTRAN COMMUNICATION AREA K1800780 79 | * K1800790 7A24 80 | SOFS BSS 1 START OF STRING K1800800 7A25 81 | EOFS BSS 1 END OF STRING K1800810 7A26 82 | SOFST BSS 1 START OF SYMBOL TABLE K1800820 7A27 83 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1800830 7A28 84 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1800840 7A29 85 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1800850 7A2A 86 | EOFST BSS 1 END OF SYMBOL TABLE K1800860 7A2B 87 | COMON BSS 1 NEXT AVAILABLE COMMON K1800870 7A2C 88 | CSIZE BSS 1 SIZE OF COMMON K1800880 7A2D 89 | ERROR BSS 1 OVERLAP ERROR K1800890 90 | * BIT 8 S/T EXCEEDS MAX LIMIT 2-11 K1800892 7A2E 91 | FNAME BSS 1 PROGRAM NAME K1800900 7A2F 92 | BSS 1 K1800910 7A30 93 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1800920 7A31 94 | CCWD BSS 1 CONTROL CARD WORD K1800930 95 | * BIT 15 TRANSFER TRACE K1800940 96 | * BIT 14 ARITHMETIC TRACE K1800950 97 | * BIT 13 EXTENDED PRECISION K1800960 98 | * BIT 12 LIST SYMBOL TABLE K1800970 99 | * BIT 11 LIST SUBPROGRAM NAMES K1800980 100 | * BIT 10 LIST SOURCE PROGRAM K1800990 101 | * BIT 9 ONE WORD INTEGERS K1801000 7A32 102 | IOCS BSS 1 IOCS CONTROL CARD WORD K1801010 103 | * BIT 15 CARD K1801020 104 | * BIT 14 PAPER TAPE K1801030 105 | * BIT 13 TYPEWRITER K1801040 106 | * BIT 12 1403 PRINTER K1801050 107 | * BIT 11 2501 READER K1801060 108 | * BIT 10 KEYBOARD K1801070 109 | * BIT 9 1442 PUNCH K1801080 110 | * BIT 8 DISK K1801090 111 | * BIT 7 1132 PRINTER K1801100 112 | * BIT 3 PLOTTER K1801110 7A33 113 | DFCNT BSS 1 K1801120 114 | * K1801130 115 | * K1801140 116 | * END OF FORTRAN COMMUNICATION K1801150 117 | * AREA K1801160 118 | * K1801170 7A36 119 | BPHAR EQU *+2 BEGIN PHASE AREA K1801180 7A34 0000 120 | DC 0 LOADER WORK AREA K1801190 7A35 FFD0 121 | DC -48 -PHASE ID FOR SLET LOOKUP K1801200 7A36 0462 122 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K1801210 7A37 0001 123 | DC 1 ONE ENTRY TO BE SET BY LDR K1801220 7A36 124 | ORG *-2 K1801230 7A36 6130 125 | ENT LDX 1 PHID GET ID THIS PHASE K1801240 7A37 6D00 0078 126 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1801250 7A39 C0F3 127 | LD ERROR IS THERE OVERLAP ERROR K1801260 7A3A 4C20 7E85 128 | BSC L EXIT,Z BRANCH IF YES K1801270 7A3C C0E8 129 | START LD EOFS LOAD END OF STRING ADDR K1801280 7A3D 90E6 130 | S SOFS SUBTRACT START OF STRING K1801290 7A3E 4C00 7C5C 131 | BSC L CONT CONTINUE PROGRAM INITIALIZE K1801300 132 | * K1801310 133 | * K1801320 134 | * K1801330 7A40 6580 7C65 135 | P1011 LDX I1 SOFIS INITIALIZE STRING I/P PT K1801340 7A42 6680 7A24 136 | LDX I2 SOFS INITIALIZE STRING O/P PT K1801350 7A44 72FF 137 | MDX 2 -1 K1801360 138 | * K1801370 139 | * EXTRACTS THE STMNT ID TYPE K1801380 140 | * EXTRACTS THE STMNT ID TYPE K1801390 7A45 7101 141 | P1021 MDX 1 1 MOVE STRING I/P PT K1801400 7A46 7201 142 | MDX 2 1 MOVE STRING O/P PT K1801410 7A47 C100 143 | P1022 LD 1 0 LOAD STMNT ID WORD K1801420 7A48 E3EE 144 | AND 3 HF803-Z ELIMINATE NORM IN ID WORD K1801430 7A49 8304 145 | A 3 FOUR-Z ADD ONE TO NORM K1801440 7A4A D200 146 | STO 2 0 PUT ON OUTPUT STRING K1801450 7A4B E305 147 | AND 3 HF800-Z GET ID TYPE K1801460 7A4C D3BE 148 | STO 3 STTYP-Z SAVE ID TYPE K1801470 7A4D 6E00 7C58 149 | STX L2 OUTID SAVE ADDR OF O/P ID K1801480 7A4F 6D00 7C67 150 | STX L1 INID SAVE ADDR OF I/P ID K1801490 7A51 7101 151 | MDX 1 1 MOVE I/P STRING PT K1801500 7A52 C1FF 152 | LD 1 -1 LOAD STMNT ID WORD K1801510 7A53 4C04 7A56 153 | BSC L P1023,E BRANCH IF HAVE STMNT NO. K1801520 7A55 7009 154 | MDX P1031 TEST STMNT TYPE K1801530 155 | * K1801540 7A56 C304 156 | P1023 LD 3 FOUR-Z INCREMENT NORM K1801550 7A57 8480 7C58 157 | A I OUTID BY ONE K1801560 7A59 D480 7C58 158 | STO I OUTID PUT BACK ON OUTPUT STRING K1801570 7A5B 7101 159 | MDX 1 1 MOVE I/P PT K1801580 7A5C 7201 160 | MDX 2 1 MOVE O/P PT K1801590 7A5D C1FF 161 | LD 1 -1 LOAD STMNT NO. K1801600 7A5E D200 162 | STO 2 0 PUT ON OUTPUT STRING K1801610 163 | * CHECKS FOR A CALL, IF, ARITHMETIC, OR K1801620 164 | * STMNT FUNCTION STATEMENT K1801630 7A5F C300 165 | P1031 LD 3 0 K1801640 7A60 D3BD 166 | STO 3 MODSW-Z ZERO MODE SWITCH K1801650 167 | * K1801660 168 | * TEST IF ARITHMETIC STMNT FUNCTION K1801670 7A61 C3BE 169 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1801680 7A62 9315 170 | S 3 HD000-Z IS IT ARITHMETIC STMNT FUNC K1801690 7A63 4C18 7AA0 171 | BSC L P1052,+- BRANCH IF YES K1801700 7A65 C3BE 172 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1801710 7A66 93E1 173 | S 3 READ-Z SUBTRACT READ CONSTANT K1801720 7A67 4820 174 | BSC Z SKIP IF READ K1801730 7A68 93E5 175 | S 3 FIND-Z TEST FOR FIND STATEMENT K1801740 7A69 4820 176 | BSC Z SKIP IF FIND OR READ K1801750 7A6A 93E7 177 | S 3 WRITE-Z TEST FOR WRITE K1801760 7A6B 4C20 7A7E 178 | BSC L HERE,Z BR IF NOT I/O(RD-WRITE-FIND) K1801770 7A6D C100 179 | LD 1 0 LOAD 2ND WD I/P STRING K1801780 7A6E 9318 180 | S 3 H0054-Z IS IT EXPRESSION OPERATOR K1801790 7A6F 4C20 7A73 181 | BSC L A7A72,Z BRANCH IF NOT K1801800 7A71 7101 182 | MDX 1 1 MOVE I/P STRING PT K1801810 7A72 7031 183 | MDX P2011 BR TO CONTINUE PROCESSING K1801820 7A73 C100 184 | A7A72 LD 1 0 LOAD WORD K1801830 7A74 931C 185 | S 3 LIBFR-Z IS IT LIBF READ K1801840 7A75 4820 186 | BSC Z SKIP IF YES K1801850 7A76 9316 187 | S 3 H0080-Z IS IT LIBF WRITE K1801860 7A77 4820 188 | BSC Z SKIP IF YES K1801870 7A78 931D 189 | S 3 LIBFF-Z IS IT LIBF FIND K1801880 7A79 4C20 7A7E 190 | BSC L HERE,Z BRANCH IF NOT K1801890 7A7B 71FF 191 | MDX 1 -1 DECREMENT STRING I/P PT K1801900 7A7C 4C00 7E54 192 | BSC L D5011 CHECK REST OF STMNT K1801910 193 | * K1801920 7A7E C3BE 194 | HERE LD 3 STTYP-Z LOAD STMNT ID TYPE K1801930 7A7F 4818 195 | BSC +- SKIP IF NOT ARITH STMNT K1801940 7A80 7023 196 | MDX P2011 BRANCH IF ARITHMETIC STMNT K1801950 7A81 9306 197 | S 3 TCALL-Z IS IT CALL STMNT K1801960 7A82 4C18 7AA4 198 | BSC L P2011,+- BRANCH IF YES K1801970 7A84 9307 199 | S 3 H4800-Z IS IT IF STMNT K1801980 7A85 4C18 7AA4 200 | BSC L P2011,+- BRANCH IF YES K1801990 201 | * K1802000 202 | * MOVES THE STMNT TO THE O/P STRING K1802010 203 | * UNALTERED. DETERMINES IF THE LAST K1802020 204 | * STMNT WAS AN END STMNT K1802030 7A87 6580 7C67 205 | P1041 LDX I1 INID RESET I/P PT K1802040 7A89 6680 7C58 206 | LDX I2 OUTID RESET O/P PT K1802050 7A8B C100 207 | LD 1 0 LOAD STMNT ID WORD K1802060 7A8C E30B 208 | AND 3 H07FC-Z GET STMNT NORM K1802070 7A8D D3BF 209 | STO 3 NORM-Z SAVE NORM K1802080 7A8E C100 210 | P1042 LD 1 0 MOVE WORD TO K1802090 7A8F D200 211 | STO 2 0 OUTPUT STRING K1802100 7A90 74FC 7C64 212 | MDX L NORM,-4 DECREMENT NORM BY ONE K1802110 7A92 7008 213 | MDX P1043 CONTINUE LOOP K1802120 214 | * K1802130 215 | * TEST IF LAST OUTPUT STMNT K1802140 216 | * WAS END STATEMENT K1802150 7A93 C3BE 217 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1802160 7A94 9308 218 | S 3 TEND-Z IS IT END STMNT K1802170 7A95 4C20 7A45 219 | BSC L P1021,Z BRANCH IF NOT K1802180 220 | * K1802190 7A97 6E00 7A25 221 | P1044 STX L2 EOFS NEW END OF STRING ADDR K1802200 7A99 4C00 7E85 222 | BSC L EXIT GO TO NEXT PHASE K1802210 223 | * K1802220 224 | * K1802230 7A9B 7101 225 | P1043 MDX 1 1 INCREMENT I/P PT K1802240 7A9C 7201 226 | MDX 2 1 INCREMENT O/P PT K1802250 7A9D 70F0 227 | MDX P1042 CONTINUE LOOP K1802260 228 | * K1802270 229 | * ARITHMETIC STMNT FUNCTION ENCOUNTERED K1802280 230 | * OUTPUT ARITHMETIC STMNT FUNC NAME K1802290 231 | * AND DUMMY VARIABLES K1802300 232 | * K1802310 7A9E C100 233 | P1051 LD 1 0 LOAD WORD K1802320 7A9F 4368 234 | BSI 3 OUTUN-Z PUT ON OUTPUT STRING K1802330 7AA0 7101 235 | P1052 MDX 1 1 MOVE I/P PT K1802340 7AA1 C100 236 | LD 1 0 LOAD WORD K1802350 7AA2 4C28 7A9E 237 | BSC L P1051,+Z BRANCH IF NAME K1802360 238 | * K1802370 239 | * K1802380 240 | * K1802390 241 | * MOVES THE PT PAST THE PROCESSED PART K1802400 242 | * OF THE STRING ENTRY. RETAINS THE K1802410 243 | * PROCESSED PART IN THE STRING K1802420 244 | * UNALTERED. PICKS UP AT THE NEXT K1802430 245 | * UNPROCESSED WORD K1802440 246 | * K1802450 7AA4 71FE 247 | P2011 MDX 1 -2 MOVE PT K1802460 7AA5 C300 248 | LD 3 ZERO-Z SET OUTPUT SWITCH K1802470 7AA6 4400 7E21 249 | BSI L FINDN FIND NEXT UNPROCESSED OPTR K1802480 250 | * K1802490 7AA8 4C18 7A45 251 | BSC L P1021,+- BRANCH IF SEMI-COLON K1802500 252 | * K1802510 253 | * NOT IN CARD SYSTEM K1802520 254 | * K1802530 7AAA 9400 7E7F 255 | S L EXPRO IS IT EXPRESSION-OPERATOR K1802540 7AAC 4C18 7E54 256 | BSC L D5011,+- BRANCH IF YES K1802550 7AAE C100 257 | LD 1 0 LOAD WORD K1802560 258 | * K1802570 7AAF 9326 259 | S 3 UNARY-Z IS IT UNARY MINUS K1802580 7AB0 4C18 7C22 260 | BSC L P6011,+- BRANCH IF YES K1802590 7AB2 9309 261 | S 3 CALLX-Z IS IT CALL K1802600 7AB3 4C18 7BC1 262 | BSC L P5011,+- BRANCH IF YES K1802610 7AB5 9327 263 | S 3 IF-Z IS IT IF K1802620 7AB6 4C18 7B60 264 | BSC L P3011,+- BRANCH IF YES K1802630 265 | * K1802640 266 | * FIND NEXT NOT-PROCESSED WORD K1802650 267 | * STARTING AT PTR+2 K1802660 268 | * K1802670 7AB8 6903 269 | P2013 STX 1 *+3 FIND NEXT UNPROCESSED WORD K1802680 7AB9 4400 7E21 270 | BSI L FINDN DECREMENT PT K1802690 7ABB 6500 0000 271 | LDX L1 *-* K1802700 272 | * K1802710 7ABD 4C28 7B08 273 | BSC L P2071,+Z BRANCH IF 3RD WORD NOT OPTR K1802720 7ABF C100 274 | LD 1 0 LOAD WORD AT PT K1802730 7AC0 9309 275 | S 3 H000E-Z IS IT .ASSIGN. K1802740 7AC1 4C20 7AE2 276 | BSC L P2051,Z BRANCH IF NOT K1802750 7AC3 C101 277 | LD 1 1 LOAD NEXT WORD K1802760 7AC4 432A 278 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1802770 7AC5 100B 279 | SLA 11 IS IT GENERATED TEMPORARY K1802780 7AC6 4810 280 | BSC - SKIP IF YES K1802790 7AC7 7004 281 | MDX P2031 BRANCH IF NO K1802800 282 | * K1802810 283 | * MAKE MODE OF GT AGREE WITH MODESW K1802820 7AC8 C101 284 | LD 1 1 LOAD SYM TBL ENTRY NO K1802830 7AC9 4400 7DEA 285 | BSI L GTMOD GET MODE OF NAME K1802840 7ACB 700E 286 | MDX P2033 CLEAR MODE SWITCH K1802850 287 | * K1802860 288 | * GENERATES THE CODE TO HANDLE MIXED- K1802870 289 | * MODE ARITHMETIC K1802880 7ACC C3B9 290 | P2031 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1802890 7ACD 4810 291 | BSC - SKIP IF FIXED PT K1802900 7ACE 7006 292 | MDX P2032 BRANCH IF NOT K1802910 7ACF C3BD 293 | LD 3 MODSW-Z TEST MODE SWITCH K1802920 7AD0 4810 294 | BSC - SKIP IF NOT FIX K1802930 7AD1 7008 295 | MDX P2033 BRANCH IF FIX K1802940 7AD2 C3F7 296 | LD 3 IFIX-Z LOAD .CALL IFIX. K1802950 7AD3 4368 297 | BSI 3 OUTUN-Z OUTPUT CALL K1802960 7AD4 7005 298 | MDX P2033 CLEAR MODE SWITCH K1802970 299 | * K1802980 300 | * K1802990 7AD5 C3BD 301 | P2032 LD 3 MODSW-Z TEST MODE SWITCH K1803000 7AD6 4828 302 | BSC Z+ SKIP IF FIXED K1803010 7AD7 7002 303 | MDX P2033 BRANCH IF NOT FIXED K1803020 7AD8 C3FA 304 | LD 3 FLT-Z LOAD .CALL FLOAT. K1803030 7AD9 4368 305 | BSI 3 OUTUN-Z OUTPUT CALL K1803040 306 | * K1803050 307 | * AT THAT POINT MODESWITCH MUST NOT K1803060 308 | * BE ZERO (ZERO WOULD MEAN AN ASSIGN- K1803070 309 | * OPERATOR PRECEDED BY NOT FILLING ANY K1803080 310 | * ACCUMULATOR K1803090 311 | * MODESWITCH IS SET ZERO SINCE NEXT K1803100 312 | * ARITHMETIC IS INDEPENDENT OF MODE K1803110 7ADA C300 313 | P2033 LD 3 ZERO-Z CLEAR K1803120 7ADB D3BD 314 | STO 3 MODSW-Z MODE SWITCH K1803130 7ADC C100 315 | P2041 LD 1 0 LOAD WORD K1803140 7ADD 4368 316 | BSI 3 OUTOP-Z OUTPUT OPERATOR K1803150 7ADE C101 317 | LD 1 1 LOAD WORD K1803160 7ADF 436F 318 | BSI 3 OUTNA-Z OUTPUT NAME K1803170 7AE0 7102 319 | MDX 1 2 MOVE PT K1803180 7AE1 70C2 320 | MDX P2011 FIND NEXT UNPROCESSED WORD K1803190 321 | * K1803200 322 | * K1803210 323 | * TEST IF WORD AT POINTER IS K1803220 324 | * .EXPONETIATE. OPERATOR K1803230 325 | * OR .REVERSE EXPONENTIATE. K1803240 7AE2 C100 326 | P2051 LD 1 0 LOAD WORD K1803250 7AE3 9314 327 | S 3 EXP-Z IS IT EXPONENTIATE OPTR K1803260 7AE4 4C18 7ADC 328 | BSC L P2041,+- BRANCH IF YES K1803270 7AE6 935A 329 | S 3 H003E-Z IS IT REVERSE EXPONENTIATE K1803280 7AE7 4C18 7ADC 330 | BSC L P2041,+- OPTR - BRANCH IF YES K1803290 331 | * K1803300 332 | * TESTS TO ASCERTAIN PROPER MODE K1803310 7AE9 C101 333 | LD 1 1 LOAD WORD K1803320 7AEA 432A 334 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803330 7AEB 4828 335 | BSC Z+ SKIP IF FLOAT K1803340 7AEC 7008 336 | MDX P2052 BRANCH IF FIX K1803350 7AED C3BD 337 | LD 3 MODSW-Z TEST MODE SWITCH K1803360 7AEE 4828 338 | BSC +Z SKIP IF FIX K1803370 7AEF 70EC 339 | MDX P2041 BRANCH IF FLOAT K1803380 7AF0 C3FA 340 | LD 3 FLT-Z LOAD .CALL FLOAT. K1803390 7AF1 4368 341 | BSI 3 OUTUN-Z OUTPUT CALL K1803400 7AF2 C305 342 | LD 3 HF800-Z SET MODE SWITCH K1803410 7AF3 D3BD 343 | STO 3 MODSW-Z TO FLOAT K1803420 7AF4 70E7 344 | MDX P2041 OUTPUT OPERATOR K1803430 345 | * K1803440 7AF5 C3BD 346 | P2052 LD 3 MODSW-Z TEST MODE SWITCH K1803450 7AF6 4810 347 | BSC - SKIP IF FLOAT K1803460 7AF7 70E4 348 | MDX P2041 BRANCH IF FIXED K1803470 349 | * K1803480 350 | * K1803490 7AF8 C3F6 351 | P2061 LD 3 FSTO-Z LOAD .CALL FSTO. K1803500 7AF9 4368 352 | BSI 3 OUTOP-Z OUTPUT CALL K1803510 7AFA 435C 353 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1803520 7AFB 4400 7DEA 354 | BSI L GTMOD MAKE MODE AGREE K1803530 7AFD 436F 355 | BSI 3 OUTNA-Z OUTPUT NAME K1803540 7AFE C101 356 | LD 1 1 LOAD WORD K1803550 7AFF 43A3 357 | BSI 3 SCKLD-Z OUTPUT .LOAD. K1803560 7B00 435C 358 | BSI 3 GETGT-Z GENERATED TEMPORARY K1803570 7B01 D101 359 | STO 1 1 REPLACES NAME K1803580 7B02 C3FA 360 | LD 3 FLT-Z LOAD .CALL FLT. K1803590 7B03 4368 361 | BSI 3 OUTUN-Z OUTPUT CALL K1803600 7B04 C100 362 | LD 1 0 LOAD WORD K1803610 7B05 4346 363 | BSI 3 REVOP-Z REVERSE OPERATOR K1803620 7B06 D100 364 | STO 1 0 STORE REVERSED OPERATOR K1803630 7B07 70D4 365 | MDX P2041 OUTPUT OPERATOR K1803640 366 | * K1803650 7B08 C305 367 | P2071 LD 3 HF800-Z SET MODE SWITCH K1803660 7B09 D3BD 368 | STO 3 MODSW-Z TO FLOATING PT K1803670 7B0A C480 7E53 369 | LD I PFIND LOAD NEXT UNPROCESSED WORD K1803680 7B0C 432A 370 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803690 7B0D 4C10 7B18 371 | BSC L P2081,- BRANCH IF FLOATING PT K1803700 7B0F C101 372 | LD 1 1 LOAD WORD K1803710 7B10 432A 373 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803720 7B11 4C10 7B1F 374 | BSC L P2091,- BRANCH IF FLOATING PT K1803730 7B13 C301 375 | LD 3 ONE-Z SET MODE SWITCH TO K1803740 7B14 D3BD 376 | STO 3 MODSW-Z FIXED PT K1803750 7B15 C101 377 | LD 1 1 OUTPUT FOLLOWING - K1803760 7B16 43A3 378 | BSI 3 SCKLD-Z LD PT+1 K1803770 7B17 703B 379 | MDX P2111 FIND NEXT UNPROCESSED OPTR K1803780 380 | * K1803790 7B18 C101 381 | P2081 LD 1 1 LOAD WORD K1803800 7B19 432A 382 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803810 7B1A 4828 383 | BSC +Z SKIP IF FLOATING PT K1803820 7B1B 7033 384 | MDX P2101 BRANCH IF FIXED PT K1803830 385 | * K1803840 7B1C C101 386 | P2083 LD 1 1 K1803850 7B1D 43A3 387 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1803860 7B1E 7034 388 | MDX P2111 FIND NEXT UNPROCESSED OPTR K1803870 389 | * K1803880 7B1F C100 390 | P2091 LD 1 0 LOAD WORD K1803890 7B20 9309 391 | S 3 H000E-Z IS IT ASSIGN K1803900 7B21 4820 392 | BSC Z SKIP IF YES K1803910 7B22 7005 393 | MDX P2093 BRANCH IF NOT K1803920 7B23 C101 394 | LD 1 1 LOAD WORD K1803930 7B24 43A3 395 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1803940 7B25 C3F7 396 | LD 3 IFIX-Z CHANGE VAR TO FIXED PT K1803950 7B26 4368 397 | BSI 3 OUTUN-Z OUTPUT .CALL IFIX. K1803960 7B27 702B 398 | MDX P2111 GET NEXT UNPROCESSED OPTR K1803970 399 | * K1803980 7B28 8304 400 | P2093 A 3 H0004-Z IS IT EXPRESSION OPERATOR K1803990 7B29 4818 401 | BSC +- SKIP IF NOT K1804000 7B2A 70F1 402 | MDX P2083 BRANCH IF YES K1804010 7B2B C100 403 | LD 1 0 K1804020 7B2C 4346 404 | BSI 3 REVOP-Z REVERSE THE OPERATOR K1804030 7B2D D100 405 | STO 1 0 K1804040 7B2E C102 406 | LD 1 2 LOAD WORD K1804050 7B2F 9307 407 | S 3 H4800-Z IS IT .LDX I1. K1804060 7B30 4820 408 | BSC Z SKIP IF YES K1804070 7B31 9329 409 | S 3 H1300-Z IS IT .LDX L1. K1804080 7B32 4C20 7B47 410 | BSC L P2099,Z BRANCH IF NOT K1804090 7B34 C101 411 | LD 1 1 LOAD VARIABLE K1804100 7B35 43A3 412 | BSI 3 SCKLD-Z OUTPUT LOAD INST AND VAR K1804110 7B36 C3F6 413 | LD 3 FSTO-Z LOAD .CALL FSTO. K1804120 7B37 4368 414 | BSI 3 OUTUN-Z OUTPUT CALL K1804130 7B38 435C 415 | BSI 3 GETGT-Z GET ADDR OF NEXT SYM TBL GT K1804140 7B39 4400 7DEA 416 | BSI L GTMOD MAKE MODE OF VAR AGREE K1804150 7B3B 436F 417 | BSI 3 OUTNA-Z OUTPUT VAR K1804160 7B3C 1010 418 | SLA 16 CLEAR ACC K1804170 7B3D 4400 7E21 419 | BSI L FINDN FIND NEXT UNPROCESSED PART K1804180 7B3F 43A3 420 | BSI 3 SCKLD-Z OUTPUT LOAD INST AND VAR K1804190 7B40 C3FA 421 | LD 3 FLT-Z LOAD .CALL FLOAT. K1804200 7B41 4368 422 | BSI 3 OUTUN-Z OUTPUT CALL K1804210 7B42 C1FC 423 | LD 1 -4 LOAD WORD K1804220 7B43 4368 424 | BSI 3 OUTUN-Z OUTPUT K1804230 7B44 435C 425 | BSI 3 GETGT-Z GET ADDR OF NEXT SYM TBL GT K1804240 7B45 436F 426 | BSI 3 OUTNA-Z OUTPUT NAME K1804250 7B46 7016 427 | MDX P3010 GO GET NEXT UNPROCESSED PART K1804260 7B47 C101 428 | P2099 LD 1 1 LOAD WORD AT PT + 1 K1804270 7B48 1890 429 | SRT 16 MOVE TO EXTENSION K1804280 7B49 C480 7E53 430 | LD I PFIND LOAD WORD AT PT + 2 K1804290 7B4B D101 431 | STO 1 1 STORE AT PT + 1 K1804300 7B4C 1090 432 | SLT 16 PUT WORD ORIGINALLY AT PT+1 K1804310 7B4D D480 7E53 433 | STO I PFIND IN PFIND (PT + 2) K1804320 7B4F C101 434 | P2101 LD 1 1 LOAD WORD K1804330 7B50 43A3 435 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1804340 7B51 C3FA 436 | LD 3 FLT-Z CHANGE WORD TO FLOATING PT K1804350 7B52 4368 437 | BSI 3 OUTUN-Z OUTPUT .CALL FLT. K1804360 438 | * K1804370 439 | * FIND AND OUTPUT NEXT NONPROCESSED K1804380 440 | * OPERATOR, ALSO OUTPUT INTERSPERSED K1804390 441 | * PROCESSED DATA, IF ANY K1804400 442 | * K1804410 7B53 6904 443 | P2111 STX 1 P2112+1 SAVE INPUT PT K1804420 7B54 C300 444 | LD 3 ZERO-Z SET OUTPUT SWITCH K1804430 7B55 4400 7E21 445 | BSI L FINDN FIND NEXT UNPROCESSED OPTR K1804440 7B57 C400 0000 446 | P2112 LD L *-* LOAD OPERATOR K1804450 7B59 4368 447 | BSI 3 OUTOP-Z OUTPUT OPERATOR K1804460 7B5A C480 7E53 448 | LD I PFIND LOAD NAME K1804470 7B5C 436F 449 | BSI 3 OUTNA-Z OUTPUT NAME K1804480 7B5D 7101 450 | P3010 MDX 1 1 MOVE I/P PT K1804490 451 | * K1804500 7B5E 4C00 7AA4 452 | BSC L P2011 GET NEXT UNPROCESSED PART K1804510 453 | * K1804520 454 | * CHECKS FOR AN IF OPTR. GENERATES THE K1804530 455 | * TRACING CALLS. CHECKS FOR A STMNT K1804540 456 | * NO. ON THE NEXT STMNT. OPTIMIZES THE K1804550 457 | * 'BSC L' INST GENERATED TO COMBINE K1804560 458 | * CONDITIONS K1804570 7B60 C101 459 | P3011 LD 1 1 LOAD WORD K1804580 7B61 432A 460 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1804590 7B62 1005 461 | SLA 5 IS IT STMNT NO. K1804600 7B63 4C28 7B6F 462 | BSC L P301A,+Z BRANCH IF YES K1804610 463 | * K1804620 7B65 C101 464 | LD 1 1 LOAD WORD K1804630 7B66 43A3 465 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1804640 7B67 C301 466 | LD 3 ONE-Z SET MODE SWITCH K1804650 7B68 D3BD 467 | STO 3 MODSW-Z TO FIXED POINT K1804660 7B69 C3B9 468 | LD 3 STNA1-Z LOAD SYM TBL ID WORD K1804670 7B6A 7101 469 | MDX 1 1 MOVE INPUT POINTER K1804680 7B6B 4C28 7B6F 470 | BSC L P301A,Z+ BRANCH IF INTEGER VARIABLE K1804690 7B6D C305 471 | LD 3 HF800-Z SET MODE SWITCH K1804700 7B6E D3BD 472 | STO 3 MODSW-Z TO FLOATING POINT K1804710 473 | * K1804720 474 | * K1804730 7B6F C300 475 | P301A LD 3 ZERO-Z ZERO TO K1804740 7B70 D3C1 476 | STO 3 STNCH-Z CLEAR STMNT NO. CHECK K1804750 7B71 7101 477 | MDX 1 1 MOVE INPUT PT K1804760 7B72 C104 478 | LD 1 4 LOAD NEXT STMNT ID WORD K1804770 7B73 108F 479 | SLT 15 DOES STMNT HAVE STMNT NO. K1804780 7B74 4810 480 | BSC - SKIP IF NEXT STMT HAS NUMBER K1804790 7B75 7002 481 | MDX P3012 BRANCH IF NOT K1804800 7B76 C105 482 | LD 1 5 LOAD STMNT NO. K1804810 7B77 D3C1 483 | STO 3 STNCH-Z STORE STMNT NO. K1804820 7B78 C3BD 484 | P3012 LD 3 MODSW-Z TEST MODE SWITCH K1804830 7B79 4810 485 | BSC - SKIP IF FLOATING POINT K1804840 7B7A 7002 486 | MDX P3021 BRANCH IF FIXED POINT K1804850 7B7B C3F5 487 | LD 3 LDFAC-Z LOAD .LD FAC+1. K1804860 7B7C 4368 488 | BSI 3 OUTUN-Z OUTPUT K1804870 7B7D C400 7A31 489 | P3021 LD L CCWD K1804880 7B7F 100F 490 | SLA 15 IS IF TRACE REQUIRED K1804890 7B80 4C10 7B8A 491 | BSC L P3022,- BRANCH IF NOT K1804900 7B82 C3BD 492 | LD 3 MODSW-Z TEST MODE SWITCH K1804910 7B83 4C10 7B88 493 | BSC L P3020,- BRANCH IF FIXED PT K1804920 7B85 C3F4 494 | LD 3 FIF-Z REPLACE .LD FAC. BY K1804930 7B86 D200 495 | STO 2 0 .CALL FIF. (FLOATING TRACE) K1804940 7B87 7002 496 | MDX P3022 CHECK BRANCH ADDRESSES K1804950 7B88 C3F3 497 | P3020 LD 3 FIIF-Z LOAD INTEGER IF TRACE CALL K1804960 7B89 4368 498 | BSI 3 OUTUN-Z OUTPUT CALL K1804970 7B8A C100 499 | P3022 LD 1 0 LOAD IF-NEGATIVE BRANCH ADDR K1804980 7B8B 93C1 500 | S 3 STNCH-Z IS IT NEXT STMNT K1804990 7B8C 4818 501 | BSC +- SKIP IF NOT K1805000 7B8D 7014 502 | MDX P3041 BRANCH IF YES K1805010 7B8E C100 503 | LD 1 0 IS IF-NEGATIVE BRANCH EQUAL K1805020 7B8F 9101 504 | S 1 1 TO IF-ZERO BRANCH ADDRESS K1805030 7B90 4820 505 | BSC Z SKIP IF YES K1805040 7B91 7004 506 | MDX P3031 BRANCH IF NOT K1805050 7B92 C300 507 | LD 3 0 LOAD ZERO K1805060 7B93 D101 508 | STO 1 1 STORE IN IF ZERO WORD K1805070 7B94 C30C 509 | LD 3 BSCL1-Z LOAD .BSC L ,+. K1805080 7B95 7009 510 | MDX P3033 OUTPUT INSTRUCTION K1805090 511 | * K1805100 512 | * K1805110 7B96 C100 513 | P3031 LD 1 0 IS IF-NEGATIVE BRANCH EQUAL K1805120 7B97 9102 514 | S 1 2 TO IF-POSITIVE BRANCH ADDR K1805130 7B98 4820 515 | BSC Z SKIP IF YES K1805140 7B99 7004 516 | MDX P3032 BRANCH IF NOT K1805150 7B9A C300 517 | LD 3 0 LOAD ZERO K1805160 7B9B D102 518 | STO 1 2 STORE IN IF-POSITIVE WORD K1805170 7B9C C30D 519 | LD 3 BSCL2-Z LOAD .BSC L ,Z. K1805180 7B9D 7001 520 | MDX P3033 OUTPUT INSTRUCTION K1805190 7B9E C30E 521 | P3032 LD 3 BSCL3-Z LOAD .BSC L ,Z+. K1805200 7B9F 4368 522 | P3033 BSI 3 OUTOP-Z OUTPUT BSC INSTRUCTION K1805210 7BA0 C100 523 | LD 1 0 LOAD BRANCH TO ADDRESS K1805220 7BA1 436F 524 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805230 7BA2 C101 525 | P3041 LD 1 1 LOAD ZERO-BRANCH ADDRESS K1805240 7BA3 4818 526 | BSC +- SKIP IF NOT ZERO K1805250 7BA4 700F 527 | MDX P3051 BRANCH IF EQUAL TO NEG-ADDR K1805260 7BA5 93C1 528 | S 3 STNCH-Z IS IT NEXT STMNT K1805270 7BA6 4818 529 | BSC +- SKIP IF NOT K1805280 7BA7 700C 530 | MDX P3051 BRANCH IF YES K1805290 7BA8 C101 531 | LD 1 1 IS IF-ZERO BRANCH EQUAL TO K1805300 7BA9 9102 532 | S 1 2 IF POSITIVE BRANCH ADDRESS K1805310 7BAA 4820 533 | BSC Z SKIP IF YES K1805320 7BAB 7004 534 | MDX P3042 BRANCH IF NOT K1805330 7BAC C300 535 | LD 3 0 LOAD ZERO K1805340 7BAD D102 536 | STO 1 2 STORE IN IF-POSITIVE WORD K1805350 7BAE C30F 537 | LD 3 BSCL4-Z LOAD .BSC L ,-. K1805360 7BAF 7001 538 | MDX P3043 OUTPUT INSTRUCTION K1805370 539 | * K1805380 7BB0 C310 540 | P3042 LD 3 BSCL5-Z LOAD .BSC L ,+-. K1805390 7BB1 4368 541 | P3043 BSI 3 OUTOP-Z OUTPUT BSC INSTRUCTION K1805400 7BB2 C101 542 | LD 1 1 LOAD ZERO-BRANCH ADDRESS K1805410 7BB3 436F 543 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805420 7BB4 C102 544 | P3051 LD 1 2 LOAD POSITIVE BRANCH ADDRESS K1805430 7BB5 4818 545 | BSC +- SKIP IF NOT ZERO K1805440 7BB6 7007 546 | MDX P3053 BRANCH IF ZERO K1805450 7BB7 93C1 547 | S 3 STNCH-Z IS IT NEXT STMNT K1805460 7BB8 4818 548 | BSC +- SKIP IF NOT K1805470 7BB9 7004 549 | MDX P3053 BRANCH IF YES K1805480 7BBA C3F2 550 | LD 3 BSCL6-Z LOAD .BSC L ,-Z. K1805490 7BBB 4368 551 | BSI 3 OUTOP-Z OUTPUT INSTRUCTION K1805500 7BBC C102 552 | LD 1 2 LOAD POSITIVE BRANCH ADDR K1805510 7BBD 436F 553 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805520 7BBE 7103 554 | P3053 MDX 1 3 MOVE I/P POINTER K1805530 7BBF 4C00 7A45 555 | BSC L P1021 GET NEXT STMNT K1805540 556 | * K1805550 557 | * DETECTS A CALL OPTR. SETS THE MODE K1805560 558 | * SWITCH. IF IT IS AN IFIX OR FLOAT K1805570 559 | * CALL, CHANGES IT TO A ONE-WD CALL K1805580 7BC1 C301 560 | P5011 LD 3 ONE-Z SET MODE SWITCH K1805590 7BC2 D3BD 561 | STO 3 MODSW-Z TO FIXED POINT K1805600 7BC3 C101 562 | LD 1 1 LOAD WORD K1805610 7BC4 432A 563 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1805620 7BC5 4828 564 | BSC +Z SKIP IF FLOATING POINT K1805630 7BC6 7002 565 | MDX P5012 BRANCH IF FIXED PT K1805640 7BC7 C305 566 | LD 3 HF800-Z SET MODE SWITCH K1805650 7BC8 D3BD 567 | STO 3 MODSW-Z TO FLOATING POINT K1805660 568 | * K1805670 569 | * TEST IF CALL IS .IFIX. OR .FLOAT. K1805680 570 | * IF SO, CHANGE TO ONE-WORD CALL K1805690 571 | * K1805700 7BC9 C101 572 | P5012 LD 1 1 LOAD WORD K1805710 7BCA 432A 573 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1805720 7BCB C335 574 | LD 3 SYMT1+1-Z LOAD ADDR OF ID WORD K1805730 7BCC 8301 575 | A 3 ONE-Z K1805740 7BCD D001 576 | STO P501X+1 GET ADDRESS OF NAME IN ENTRY K1805750 7BCE C400 0000 577 | P501X LD L *-* LOAD FIRST WORD OF NAME K1805760 7BD0 D3B7 578 | STO 3 TEMP-Z STORE K1805770 7BD1 7401 7BCF 579 | MDX L P501X+1,1 GET ADDR OF 2ND WORD K1805780 7BD3 C480 7BCF 580 | LD I P501X+1 LOAD 2ND WORD K1805790 7BD5 D3B8 581 | STO 3 TEMP-Z+1 STORE K1805800 582 | * K1805810 583 | * TEST IF NAME IS .FLOAT. K1805820 7BD6 CBB7 584 | LDD 3 TEMP-Z LOAD NAME K1805830 7BD7 9BFB 585 | SD 3 NFLT-Z IS IT .FLOAT. K1805840 7BD8 4C20 7BDF 586 | BSC L P5013,Z BRANCH IF NOT K1805850 7BDA 18D0 587 | RTE 16 CHECK 2ND WORD K1805860 7BDB 4C20 7BDF 588 | BSC L P5013,Z BRANCH NOT .FLOAT. K1805870 589 | * K1805880 590 | * OUTPUT .LOAD., ONEWORD .FLOAT. K1805890 7BDD C3FA 591 | LD 3 FLT-Z LOAD .CALL FLOAT. K1805900 7BDE 7008 592 | MDX P5015 OUTPUT CALL K1805910 593 | * K1805920 594 | * TEST IF .IFIX. K1805930 7BDF CBB7 595 | P5013 LDD 3 TEMP-Z LOAD NAME K1805940 7BE0 9BFD 596 | SD 3 NIFIX-Z IS IT .IFIX. K1805950 7BE1 4C20 7C09 597 | BSC L P5016,Z BRANCH IF NOT K1805960 7BE3 18D0 598 | RTE 16 CHECK 2ND WORD K1805970 7BE4 4C20 7C09 599 | BSC L P5016,Z BRANCH NOT .IFIX. K1805980 600 | * K1805990 601 | * OUTPUT ONE-WORD .IFIX. K1806000 7BE6 C3F7 602 | LD 3 IFIX-Z LOAD .CALL IFIX. K1806010 603 | * K1806020 604 | * 2-WD CALL .IFIX. OR .FLOAT. ENCOUNTRD K1806030 7BE7 D3B7 605 | P5015 STO 3 TEMP-Z STORE CALL K1806040 7BE8 C102 606 | LD 1 2 LOAD NEXT WORD K1806050 7BE9 432A 607 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806060 7BEA 1002 608 | SLA 2 ISOLATE DIMENSION K1806070 7BEB 180E 609 | SRA 14 INFORMATION K1806080 7BEC 4C18 7BF9 610 | BSC L P5017,+- BRANCH NOT DIMENSIONED K1806090 7BEE C320 611 | LD 3 H6000-Z LOAD NOP K1806100 7BEF 4368 612 | BSI 3 OUTUN-Z OUTPUT K1806110 7BF0 C3B7 613 | LD 3 TEMP-Z LOAD CALL K1806120 7BF1 93F7 614 | S 3 IFIX-Z IS IT IFIX K1806130 7BF2 4820 615 | BSC Z SKIP IF YES K1806140 7BF3 C321 616 | LD 3 H8380-Z CREATE PROPER K1806150 7BF4 83F9 617 | A 3 FLD-Z LOAD INSTRUCTION K1806160 7BF5 4368 618 | BSI 3 OUTUN-Z OUTPUT INSTRUCTION K1806170 7BF6 C320 619 | LD 3 H6000-Z LOAD NOP K1806180 7BF7 4368 620 | BSI 3 OUTUN-Z OUTPUT K1806190 7BF8 7002 621 | MDX P5018 OUTPUT ONE-WORD CALL K1806200 7BF9 C102 622 | P5017 LD 1 2 LOAD WORD K1806210 7BFA 43A3 623 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1806220 7BFB C3B7 624 | P5018 LD 3 TEMP-Z LOAD ONE-WORD CALL K1806230 7BFC 4368 625 | BSI 3 OUTUN-Z OUTPUT CALL K1806240 626 | * K1806250 627 | * MAKE ENTRY IN SYM TBL A PSEUDO ENTRY K1806260 628 | * TO AVOID LISTING SUBP NAME TWICE K1806270 629 | * K1806280 7BFD C101 630 | LD 1 1 LOAD WORD K1806290 7BFE 432A 631 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806300 7BFF 4C10 7C03 632 | BSC L *+2,- BRANCH IF FLOATING POINT K1806310 7C01 C328 633 | LD 3 H4220-Z LOAD INTEGER STMNT NO. ID K1806320 7C02 7001 634 | MDX *+1 PUT IN SYMBOL TABLE K1806330 7C03 C3DE 635 | LD 3 H0220-Z LOAD REAL STMNT NO. ID K1806340 7C04 D480 7CDA 636 | STO I SYMT1+1 PUT IN SYM TBL K1806350 637 | * K1806360 7C06 7103 638 | MDX 1 3 MOVE I/P POINTER K1806370 7C07 4C00 7AA4 639 | BSC L P2011 GET NEXT UNPROCESSED WORD K1806380 640 | * K1806390 641 | * TWO-WORD CALL OTHER THAN K1806400 642 | * .FLOAT. OR .IFIX. K1806410 643 | * K1806420 7C09 C301 644 | P5016 LD 3 ONE-Z LOAD OPTR FOR TWO WORD CALL K1806430 7C0A 4368 645 | BSI 3 OUTUN-Z OUTPUT CALL K1806440 7C0B C101 646 | LD 1 1 LOAD WORD K1806450 7C0C 4368 647 | BSI 3 OUTUN-Z OUTPUT K1806460 7C0D 7102 648 | MDX 1 2 MOVE PT TO NEXT WORD K1806470 7C0E C100 649 | LD 1 0 LOAD WORD K1806480 7C0F 4C10 7AA4 650 | BSC L P2011,- BRANCH IF OPERATOR K1806490 651 | * K1806500 652 | * CHECKS FOR THE EXTERNAL SPECIFICATION K1806510 653 | * GENERATES THE PROPER CALL K1806520 654 | * OUTPUTS THE COMPLETE CALL AND K1806530 655 | * ARGUMENTS K1806540 7C11 C100 656 | P5023 LD 1 0 LOAD WORD K1806550 7C12 432A 657 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806560 7C13 18C1 658 | RTE 1 K1806570 7C14 4C28 7C1B 659 | BSC L P5024,+Z BRANCH IF CONSTANT K1806580 7C16 100B 660 | SLA 11 K1806590 7C17 4C10 7C1B 661 | BSC L P5024,- BRANCH IF NOT EXTERNAL K1806600 662 | * K1806610 663 | * NAME IS .EXTERNAL. K1806620 664 | * OUTPUT .CALL. OPERATOR (=/0001) K1806630 665 | * K1806640 7C19 C301 666 | LD 3 ONE-Z LOAD CALL OPERATOR K1806650 7C1A 4368 667 | BSI 3 OUTUN-Z OUTPUT OPERATOR K1806660 668 | * K1806670 669 | * K1806680 670 | * OUTPUT NAME AT POINTER K1806690 671 | * K1806700 7C1B C100 672 | P5024 LD 1 0 LOAD NAME K1806710 7C1C 4368 673 | BSI 3 OUTUN-Z OUTPUT NAME K1806720 674 | * K1806730 675 | * TEST IF END OF ARGUMENT LIST K1806740 676 | * (NEXT WORD AN OPERATOR) K1806750 677 | * K1806760 7C1D 7101 678 | MDX 1 1 MOVE I/P PT K1806770 7C1E C100 679 | LD 1 0 LOAD WORD K1806780 7C1F 4C10 7AA4 680 | BSC L P2011,- BRANCH IF OPERATOR K1806790 7C21 70EF 681 | MDX P5023 BRANCH IF NOT K1806800 682 | * K1806810 683 | * K1806820 684 | * GENERATES THE CALLS OR INSTRUCTIONS K1806830 685 | * TO HANDLE THE UNARY MINUS K1806840 686 | * K1806850 7C22 C101 687 | P6011 LD 1 1 LOAD WORD K1806860 7C23 4810 688 | BSC - SKIP IF NOT OPERATOR K1806870 7C24 7019 689 | MDX P6024 BRANCH IF OPERATOR K1806880 7C25 7101 690 | MDX 1 1 MOVE I/P POINTER K1806890 7C26 432A 691 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806900 7C27 4810 692 | BSC - SKIP IF INTEGER NAME K1806910 7C28 700B 693 | MDX P6021 BRANCH IF REAL NAME K1806920 7C29 C301 694 | LD 3 ONE-Z SET MODE SWITCH K1806930 7C2A D3BD 695 | STO 3 MODSW-Z TO FIXED POINT K1806940 7C2B C3F0 696 | LD 3 SLA16-Z LOAD .SLA 16. K1806950 7C2C 4368 697 | BSI 3 OUTUN-Z OUTPUT INSTRUCTION K1806960 7C2D C3E7 698 | LD 3 SL-Z LOAD .S L. K1806970 7C2E 4368 699 | BSI 3 OUTOP-Z OUTPUT INSTRUCTION K1806980 7C2F C100 700 | LD 1 0 LOAD NAME K1806990 7C30 436F 701 | BSI 3 OUTNA-Z OUTPUT K1807000 7C31 7101 702 | P6012 MDX 1 1 MOVE I/P PT K1807010 7C32 4C00 7AA4 703 | BSC L P2011 GET NEXT UNPROCESSED OPER K1807020 7C34 C305 704 | P6021 LD 3 HF800-Z SET MODE SWITCH K1807030 7C35 D3BD 705 | STO 3 MODSW-Z TO FLOATING POINT K1807040 7C36 C3F9 706 | LD 3 FLD-Z LOAD .FLD. K1807050 7C37 4368 707 | BSI 3 OUTOP-Z OUTPUT K1807060 7C38 C100 708 | LD 1 0 LOAD NAME K1807070 7C39 436F 709 | BSI 3 OUTNA-Z OUTPUT K1807080 7C3A C002 710 | P6022 LD H1C80 LOAD .CALL RSIGN. K1807090 7C3B 4368 711 | BSI 3 OUTUN-Z OUTPUT K1807100 7C3C 70F4 712 | MDX P6012 PROCESS NEXT WORD K1807110 7C3D 1C80 713 | H1C80 DC /1C80 .CALL RSIGN. K1807120 7C3E C3BD 714 | P6024 LD 3 MODSW-Z TEST MODE SWITCH K1807130 7C3F 4808 715 | BSC + SKIP IF FIXED POINT K1807140 7C40 70F9 716 | MDX P6022 BRANCH IF NOT K1807150 7C41 C3F1 717 | LD 3 STOFA-Z LOAD .STO FAC+1. K1807160 7C42 4368 718 | BSI 3 OUTUN-Z OUTPUT K1807170 7C43 C3F0 719 | LD 3 SLA16-Z LOAD .SLA 16. K1807180 7C44 4368 720 | BSI 3 OUTUN-Z OUTPUT K1807190 7C45 C3EF 721 | LD 3 SFAC-Z LOAD .S FAC+1. K1807200 7C46 4368 722 | BSI 3 OUTUN-Z OUTPUT K1807210 7C47 70E9 723 | MDX P6012 GET NEXT WORD K1807220 724 | * K1807230 725 | * GENERATES THE CODE FOR A 'LD' INST K1807240 726 | * IN THE DESIGNATED MODE K1807250 7C48 0000 727 | SCKLD DC 0 ENTRY POINT K1807260 7C49 D017 728 | STO SCKL3 SAVE ACCUMULATOR K1807270 7C4A 432A 729 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1807280 7C4B 4C10 7C50 730 | BSC L SCKL1,- BRANCH IF REAL VARIABLE K1807290 7C4D C013 731 | LD SCKL3 LOAD INTEGER K1807300 7C4E EBF8 732 | OR 3 LDL-Z COMBINE WITH .LD L. K1807310 7C4F 7003 733 | MDX SCKL2 OUTPUT INSTRUCTION K1807320 7C50 C3F9 734 | SCKL1 LD 3 FLD-Z LOAD .FLD. K1807330 7C51 4368 735 | BSI 3 OUTUN-Z OUTPUT K1807340 7C52 C00E 736 | LD SCKL3 LOAD REAL VARIABLE K1807350 7C53 4368 737 | SCKL2 BSI 3 OUTUN-Z OUTPUT K1807360 7C54 4C80 7C48 738 | BSC I SCKLD RETURN K1807370 739 | * K1807380 740 | * SUBROUTINE K1807390 741 | * INCREMENT NORM IN OUTPUT STATEMENT K1807400 742 | * AND INCREMENT OUTPUT POINTER K1807410 743 | * K1807420 7C56 0000 744 | INCR DC 0 ENTRY POINT K1807430 7C57 7404 0000 745 | NADR MDX L *-*,4 INCREMENT NORM IN O/P STRING K1807440 7C59 7201 746 | MDX 2 1 INCREMENT O/P PT K1807450 7C5A 4C80 7C56 747 | BSC I INCR RETURN K1807460 7C58 748 | OUTID EQU NADR+1 K1807470 749 | * K1807480 750 | * K1807490 7C5C 751 | BSS E 0 K1807500 7C5C 0000 752 | TEMP DC 0 TEMPORARY K1807510 7C5D 0000 753 | DC 0 STORAGE K1807520 7C5E 754 | BSS E 0 K1807530 7C5E 0000 755 | STNA1 DC 0 STORAGE FOR K1807540 7C5F 0000 756 | DC 0 PROGRAM NAME K1807550 7C60 0000 757 | TEMP2 DC 0 TEMPORARY STORAGE K1807560 7C61 0000 758 | SCKL3 DC 0 TEMPORARY STORAGE K1807570 7C62 0000 759 | MODSW DC 0 MODE SWITCH K1807580 7C63 0000 760 | STTYP DC 0 STMNT ID TYPE K1807590 7C64 0000 761 | NORM DC 0 STMNT NORM K1807600 7C65 0000 762 | SOFIS DC 0 START OF I/P STRING - 1 K1807610 7C66 0000 763 | STNCH DC 0 STORAGE FOR STMNT NO. K1807620 7C67 0000 764 | INID DC 0 INPUT STMNT ID WORD ADDR K1807630 7C68 0000 765 | SSOST DC 0 STORED START OF SYM TBL K1807640 7C69 0000 766 | GTMO3 DC 0 TEMPORARY K1807650 767 | * K1807660 768 | * K1807670 7C5C 769 | ORG TEMP K1807680 7C5C 6700 7CA5 770 | CONT LDX L3 ZERO LOAD INDEX REGISTER 3 K1807690 7C5E 8301 771 | A 3 ONE-Z ADD 1 TO GET SIZE OF STRING K1807700 7C5F D0FD 772 | STO MOVCT SAVE SIZE K1807710 7C60 6580 7A2A 773 | LDX I1 EOFST INITIALIZE LOOP O/P PT K1807720 7C62 71F6 774 | MDX 1 -10 K1807730 7C63 6680 7A25 775 | LDX I2 EOFS INITIALIZE LOOP I/P PT K1807740 776 | * K1807750 777 | * TEST IF OVERLAP ERROR K1807760 7C65 69F6 778 | STX 1 TEMP SAVE END OF SYM TBL ADDR K1807770 7C66 C400 7A25 779 | LD L EOFS LOAD END OF STRING ADDR K1807780 7C68 90F3 780 | S TEMP SUBTRACT END OF SYM TBL ADDR K1807790 7C69 4C28 7C6F 781 | BSC L MOVST,+Z BRANCH NO OVERLAP ERROR K1807800 7C6B 7401 7A2D 782 | MDX L ERROR,1 SET OVERLAP ERROR INDICATOR K1807810 7C6D 4C00 7E85 783 | BSC L EXIT GO TO NEXT PHASE K1807820 784 | * K1807830 785 | * MOVES THE STRING NEXT TO THE SYM TBL K1807840 7C6F C200 786 | MOVST LD 2 0 MOVE WORD NEXT K1807850 7C70 D100 787 | STO 1 0 TO SYMBOL TABLE K1807860 7C71 72FF 788 | MDX 2 -1 MOVE POINTERS K1807870 7C72 71FF 789 | MDX 1 -1 K1807880 7C73 74FF 7C5D 790 | MDX L MOVCT,-1 SKIP IF FINISHED MOVE K1807890 7C75 70F9 791 | MDX MOVST CONTINUE LOOP K1807900 792 | * K1807910 793 | * K1807920 794 | * K1807930 795 | * K1807940 7C76 6D00 7C65 796 | STX L1 SOFIS STORE ADDR OF I/P STRING - 1 K1807950 7C78 C400 7A26 797 | LD L SOFST INSERT STORED START K1807960 7C7A D3C3 798 | STO 3 SSOST-Z OF SYM TBL ADDR K1807970 7C7B 4C00 7A40 799 | BSC L P1011 BRANCH TO MAIN PROGRAM K1807980 800 | * K1807990 7C5D 801 | MOVCT EQU TEMP+1 COUNTER K1808000 802 | * K1808010 803 | * K1808020 7C7D 0000 804 | FAXB DC /0000 SYM TBL ADDR OF 2-WORD CALL K1808030 805 | * (INITIAL VALUE = ZERO) K1808040 7C7E 0000 806 | FAXBX DC /0000 SYM TBL ADDR OF 2-WORD CALL K1808050 807 | * (INITIAL VALUE = ZERO) K1808060 808 | * K1808070 7C7F 000C 809 | H000C DC /000C MULTIPLY OPERATOR K1808080 7C80 0780 810 | FDVR DC /0780 .CALL FDVR. K1808090 7C81 557E 811 | DFAC DC /557E .D FAC+1. K1808100 7C82 0680 812 | FSBR DC /0680 .CALL FSBR. K1808110 7C83 0220 813 | H0220 DC /0220 FORMAT STMNT NO. ID K1808120 7C84 0980 814 | FIXI DC /0980 .CALL FIXI. K1808130 7C85 0880 815 | FAXI DC /0880 .CALL FAXI. K1808140 7C86 9000 816 | STOL DC /9000 .STO L. K1808150 7C86 817 | H9000 EQU STOL K1808160 7C87 0A80 818 | FARIT DC /0A80 .CALL FARIT. K1808170 7C88 0B80 819 | IARIT DC /0B80 .CALL IARIT. K1808180 7C89 A800 820 | DL DC /A800 .D L. K1808190 7C8A 5800 821 | SRT16 DC /5800 .SRT 16. K1808200 822 | * K1808210 823 | * THE FOLLOWING 7 CONSTANTS K1808220 824 | * MUST FOLLOW EACH OTHER AND RETAIN K1808230 825 | * THEIR GIVEN ORDER K1808240 826 | * K1808250 7C8B 9800 827 | AL DC /9800 .A L. K1808260 7C8C A000 828 | SL DC /A000 .S L. K1808270 7C8D 0080 829 | FADD DC /0080 .CALL FADD. K1808280 7C8E 0180 830 | FSUB DC /0180 .CALL FSUB. K1808290 7C8F 0380 831 | FDIV DC /0380 .CALL FDIV. K1808300 7C90 0000 832 | DC 0 NOT USED BUT NEEDED FOR TBL K1808310 7C91 0280 833 | FMPY DC /0280 .CALL FMPY. K1808320 834 | * K1808330 835 | * K1808340 7C92 0036 836 | H0036 DC /0036 .REVERSE SUB. K1808350 7C93 F803 837 | HF803 DC /F803 MASK TO ELIMINATE NORM K1808360 7C94 547E 838 | SFAC DC /547E .S FAC+1. K1808370 7C95 5900 839 | SLA16 DC /5900 .SLA 16. K1808380 7C96 537E 840 | STOFA DC /537E .STO FAC+1. K1808390 7C97 5030 841 | BSCL6 DC /5030 .BSC L ,Z-. K1808400 7C98 0E80 842 | FIIF DC /0E80 .CALL FIIF. (FIX IF TRACE) K1808410 7C99 0F00 843 | FIF DC /0F00 .CALL FIF. (FLT IF TRACE) K1808420 7C9A 527E 844 | LDFAC DC /527E .LD FAC+1. K1808430 7C9B 0580 845 | FSTO DC /0580 .CALL FSTO. K1808440 7C9C 0C80 846 | IFIX DC /0C80 .CALL IFIX. K1808450 7C9D 8800 847 | LDL DC /8800 .LD L. K1808460 7C9D 848 | H8800 EQU LDL K1808470 7C9E 0480 849 | FLD DC /0480 .CALL FLD. K1808480 7C9F 0D00 850 | FLT DC /0D00 .CALL FLOAT. K1808490 851 | * K1808500 852 | * FOLLOWING TWO ENTRIES ARE USED K1808510 853 | * AS DOUBLE-LENGTH WORDS K1808520 854 | * K1808530 7CA0 855 | BSS E 0 K1808540 7CA0 8C9A 856 | NFLT DC /8C9A NAME K1808550 7CA1 E063 857 | DC /E063 .FLOAT. K1808560 7CA2 9231 858 | NIFIX DC /9231 NAME K1808570 7CA3 99C0 859 | DC /99C0 .IFIX. K1808580 860 | * K1808590 7CA4 3000 861 | H3000 DC /3000 MASK FOR DIMENSION TEST. K1808600 7CA5 0000 862 | ZERO DC 0 ZERO 00 K1808610 7CA5 863 | Z EQU ZERO K1808620 7CA6 0001 864 | ONE DC 1 ONE K1808630 7CA7 0002 865 | TWO DC 2 TWO K1808640 7CA8 0003 866 | THREE DC 3 THREE K1808650 7CA9 0004 867 | FOUR DC /0004 FOUR K1808660 7CA9 868 | H0004 EQU FOUR K1808670 7CAA F800 869 | HF800 DC /F800 ID TYPE MASK K1808680 7CAB 3000 870 | TCALL DC /3000 CALL ID TYPE K1808690 7CAC 4800 871 | H4800 DC /4800 .LDX I1. K1808700 7CAD 1000 872 | TEND DC /1000 END ID TYPE K1808710 7CAE 000E 873 | H000E DC /000E ASSIGN OPERATOR K1808720 7CAF 800C 874 | H800C DC /800C VARIABLE TEST MASK K1808730 875 | * BITS FOR CONST,GENTEMP,SPECGENT K1808740 7CB0 07FC 876 | H07FC DC /07FC MASK TO GET NORM K1808750 7CB1 5008 877 | BSCL1 DC /5008 .BSC L ,+. K1808760 7CB2 5020 878 | BSCL2 DC /5020 .BSC L ,Z. K1808770 7CB3 5028 879 | BSCL3 DC /5028 .BSC L ,Z+. K1808780 7CB4 5010 880 | BSCL4 DC /5010 .BSC L ,- K1808790 7CB5 5018 881 | BSCL5 DC /5018 .BSC L ,+-. K1808800 7CB6 07FF 882 | H07FF DC /07FF MASK TO GET SYM TBL ADDR K1808810 7CB7 17FD 883 | STLEN DC /17FD MAXIMUM LENGTH OF 2-11 K1808812 884 | * *SYMBOL TABLE 2-11 K1808814 7CB8 8000 885 | H8000 DC /8000 SIGN BIT MASK K1808820 7CB9 000A 886 | EXP DC /000A EXPONENTE OPERATOR K1808830 7CBA D000 887 | HD000 DC /D000 ARITHMETIC STMNT FUNC ID K1808840 7CBB 0080 888 | H0080 DC /0080 SUBPROGRAM ID WORD K1808850 7CBC 0028 889 | H0028 DC /0028 REFERENCED GENERATED TEMP ID K1808860 7CBD 0054 890 | H0054 DC /0054 EXPRESSION OPERATOR K1808870 7CBE 5980 891 | H5980 DC /5980 .SLT 16. K1808880 7CBF B000 892 | HB000 DC /B000 .M L. K1808890 7CC0 4000 893 | H4000 DC /4000 END STMNT ID WORD K1808900 7CC1 2180 894 | LIBFR DC /2180 .LIBF READ. K1808910 7CC2 0480 895 | LIBFF DC /0480 .LIBF WRITE. K1808920 7CC3 4028 896 | H4028 DC /4028 INTEGER, DEFINED VAR, GT ID K1808930 7CC4 1900 897 | H1900 DC /1900 .CALL SUBSCR. K1808940 7CC5 6000 898 | H6000 DC /6000 CONSTANT FOR DIMENSION TEST K1808950 7CC6 8380 899 | H8380 DC /8380 CONSTANT K1808960 7CC7 4800 900 | MDXL1 DC /6100-/1900 .MDX L1. K1808970 7CC8 FA00 901 | LDXL DC /5B00-/6100 .LDX L. K1808980 7CC9 ED00 902 | LDXI DC /4800-/5B00 .LDX I. K1808990 7CCA 1A00 903 | STXL1 DC /6200-/4800 .STX L1. K1809000 7CCB 0020 904 | UNARY DC /0020 UNARY MINUS K1809010 7CAE 905 | CALLX EQU H000E K1809020 7CCC FFE6 906 | IF DC /0014-/002E IF OPERATOR K1809030 7CCD 4220 907 | H4220 DC /4220 INTEGER STMNT NO. K1809040 7CCE 1300 908 | H1300 DC /1300 .LDX L1. K1809050 7C86 909 | READ EQU H9000 K1809060 7C8C 910 | WRITE EQU SL K1809070 7C8A 911 | FIND EQU SRT16 K1809080 912 | * K1809090 913 | * GETS THE SYM TBL ID WORD OF THE K1809100 914 | * VARIABLE NAME. K1809110 7CCF 0000 915 | SYMT DC 0 ENTRY POINT K1809120 7CD0 E311 916 | AND 3 H07FF-Z GET NO. OF ENTRY RELATIVE TO K1809130 7CD1 9301 917 | S 3 ONE-Z START OF SYMBOL TABLE K1809140 7CD2 D007 918 | STO SYMT1+1 SAVE NUMBER K1809150 7CD3 C400 7A26 919 | LD L SOFST GET ADDRESS OF ENTRY BY K1809160 7CD5 9004 920 | S SYMT1+1 SUBTRACTING 3 TIMES ENTRY K1809170 7CD6 9003 921 | S SYMT1+1 NO. FROM START OF STRING K1809180 7CD7 9002 922 | S SYMT1+1 ADDRESS K1809190 7CD8 D001 923 | STO SYMT1+1 STORE ADDR OF ID WORD K1809200 7CD9 C400 0000 924 | SYMT1 LD L *-* LOAD SYM TBL ID WORD K1809210 7CDB 18DF 925 | RTE 31 ROTATE WORD K1809220 7CDC DBB9 926 | STD 3 STNA1-Z STORE ROTATED WORD K1809230 7CDD 4C80 7CCF 927 | BSC I SYMT RETURN K1809240 928 | * K1809250 929 | * GETS THE NAME OF THE NEXT NEW K1809260 930 | * SYMBOL TABLE ENTRY K1809270 931 | * K1809280 7CDF 0000 932 | STENT DC 0 ENTRY POINT K1809290 7CE0 74FD 7A2A 933 | MDX L EOFST,-3 MOVE END OF SYM TBL ADDR K1809300 7CE2 C400 7A26 934 | LD L SOFST LOAD START OF SYM TBL ADDR K1809310 7CE4 9400 7A2A 935 | S L EOFST GET NEW SIZE OF SYM TBL K1809320 7CE6 1890 936 | SRT 16 POSITION FOR DIVIDE K1809330 7CE7 AB03 937 | D 3 THREE-Z GET NO. OF TABLE ENTRY K1809340 7CE8 EB13 938 | OR 3 H8000-Z PUT IN SIGN BIT FOR NAME K1809350 7CE9 4C80 7CDF 939 | BSC I STENT RETURN K1809360 940 | * K1809370 941 | * CHANGES THE SUBTRACT, DIVIDE, AND K1809380 942 | * EXPONENTIATE OPTRS INTO REVERSE K1809390 943 | * OPTRS WHERE NEEDED K1809400 944 | * K1809410 7CEB 0000 945 | REVOP DC 0 ENTRY POINT K1809420 7CEC D3BB 946 | STO 3 TEMP2-Z SAVE OPERATOR K1809430 7CED 935A 947 | S 3 H003E-Z HAS OPERATOR BEEN REVERSED K1809440 7CEE 4C30 7CFB 948 | BSC L REV2,-Z BRANCH IF YES K1809450 7CF0 800F 949 | A H0038 IS OPERATOR MINUS K1809460 7CF1 4818 950 | BSC +- SKIP IF NOT K1809470 7CF2 7006 951 | MDX REV1 BRANCH IF YES K1809480 7CF3 9302 952 | S 3 TWO-Z IS OPERATOR DIVIDE K1809490 7CF4 4818 953 | BSC +- SKIP IF NOT K1809500 7CF5 7003 954 | MDX REV1 BRANCH IF YES K1809510 7CF6 9302 955 | S 3 TWO-Z IS OPERATOR EXPONENT K1809520 7CF7 4820 956 | BSC Z SKIP IF YES K1809530 7CF8 7003 957 | MDX REV3 BRANCH IF NOT K1809540 958 | * K1809550 7CF9 C3BB 959 | REV1 LD 3 TEMP2-Z LOAD OPERATOR K1809560 7CFA 8004 960 | A H003E ADD REVERSE CONSTANT K1809570 7CFB D3BB 961 | REV2 STO 3 TEMP2-Z STORE REVERSED OPTR K1809580 7CFC C3BB 962 | REV3 LD 3 TEMP2-Z LOAD OPERATOR K1809590 7CFD 4C80 7CEB 963 | BSC I REVOP RETURN K1809600 7CFF 003E 964 | H003E DC /003E REVERSING CONSTANT K1809610 7D00 0038 965 | H0038 DC /0038 MINUS TEST CONSTANT K1809620 966 | * K1809630 967 | * COMPUTES THE GT SYM TBL ADDR K1809640 7D01 0000 968 | GETGT DC 0 ENTRY POINT K1809650 7D02 C367 969 | LD 3 NXTGT-Z IS NEXT GT COMPUTED K1809660 7D03 4CA0 7D01 970 | BSC I GETGT,Z RETURN IF YES K1809670 971 | * K1809680 972 | * K1809690 7D05 433A 973 | CMPGT BSI 3 STENT-Z GET SYM TBL ADDR FOR NEXT GT K1809700 7D06 D367 974 | STO 3 NXTGT-Z STORE ADDR K1809710 975 | * K1809720 976 | * MAKE THE ENTRY A GENER TEMP ENTRY K1809730 977 | * IN SYM T K1809740 978 | * K1809750 7D07 432A 979 | BSI 3 SYMT-Z GET ADDRESS FOR NEXT ENTRY K1809760 7D08 C317 980 | LD 3 H0028-Z LOAD SYM TBL ID WORD K1809770 7D09 D480 7CDA 981 | STO I SYMT1+1 PUT IN SYM TBL K1809780 7D0B 70F6 982 | MDX GETGT+1 RETURN K1809790 7D0C 0000 983 | NXTGT DC 0 NEXT AVAILABLE GT K1809800 984 | * K1809810 985 | * K1809820 986 | *************************************************** K1809830 987 | * FOLLOWING SUBROUTINE PUTS THE CON- * K1809840 988 | * TENTS OF A-REGISTER INTO OUTPUT * K1809850 989 | * STRING AND PERFORMS HOUSEKEEPING OF * K1809860 990 | * OUTPUT STRING POINTER. (OUTPUT * K1809870 991 | * POINTER IS INDEX REGISTER 2) SUB- * K1809880 992 | * ROUTINE HAS THREE ENTRY POINTS. USE * K1809890 993 | * OF FIRST MOVES THE CONTENTS OF A-RE-* K1809900 994 | * GISTER UNALTERED AS ONE WORD INTO * K1809910 995 | * OUTPUT STRING. USING OTHER ENTRIES * K1809920 996 | * (.NAME. AND .OPERATOR.-ENTRIES) MAY * K1809930 997 | * RESULT IN PACKED OUTPUT (OPERATOR * K1809940 998 | * AND NAME IN THE SAME WORD). SOME * K1809950 999 | * OPERATORS ARE CONVERTED INTO SEVERAL* K1809960 1000 | * WORDS OF OUTPUT. THE SUBROUTINE ALSO* K1809970 1001 | * PERFORMS PARTS OF THE CONTROLS THAT* K1809980 1002 | * ARE REQUIRED FOR MIXED MODE ARITH- * K1809990 1003 | * METIC AND MAY GENERATE CODES REPRE- * K1810000 1004 | * SENTING .CALL FLT. OR .CALL IFIX. * K1810010 1005 | *************************************************** K1810020 1006 | *************************************************** K1810030 1007 | * ADDS A WORD TO THE STMNT STRING FROM K1810040 1008 | * THE ACCUMULATOR K1810050 1009 | *************************************************** K1810060 7D0D 0000 1010 | OUTUN DC 0 ENTRY POINT K1810070 7D0E D201 1011 | OUT12 STO 2 1 PUT WORD ON OUTPUT STRING K1810080 7D0F 43B1 1012 | BSI 3 INCR-Z INCREMENT O/P PT AND NORM K1810090 7D10 4C80 7D0D 1013 | OUT13 BSC I OUTUN RETURN K1810100 1014 | *************************************************** K1810110 1015 | * OUTPUT AND COUNT * K1810120 1016 | * ENTRY = OPERATOR * K1810130 1017 | *************************************************** K1810140 1018 | * K1810150 1019 | * SAME AS UNALTERED ARGUMENT ENTRY K1810160 1020 | * K1810170 7D0D 1021 | OUTOP EQU OUTUN K1810180 1022 | * K1810190 7D12 0000 1023 | CWORD DC 0 CODEWORD 117 K1810200 7D13 0000 1024 | NAME DC 0 STORED NAME 119 K1810210 1025 | * K1810220 1026 | *************************************************** K1810230 1027 | * ADDS A NAME TO THE STMNT STRING K1810240 1028 | * PACKED INTO ONE WORD WITH AN OPTR K1810250 1029 | *************************************************** K1810260 7D14 0000 1030 | OUTNA DC 0 ENTRY POINT K1810270 7D15 D0FD 1031 | OUT31 STO NAME STORE OUTPUT WORD K1810280 7D16 C0FD 1032 | LD OUTNA LOAD RETURN ADDRESS K1810290 7D17 D0F5 1033 | STO OUTUN STORE IN OUTUN K1810300 7D18 C200 1034 | LD 2 0 LOAD LAST O/P WORD K1810310 7D19 D0F8 1035 | STO CWORD SAVE WORD K1810320 1036 | * K1810330 1037 | * TEST IF END OF ARITH STMNT FUNC K1810340 1038 | * (IDENTIFIED BY OPTR = .ASSIGN. K1810350 1039 | * AND NAME = .ARITH STMNT FUNC. K1810360 1040 | * K1810370 7D1A 9309 1041 | S 3 H000E-Z IS IT ASSIGN OPERATOR K1810380 7D1B 4C20 7D2A 1042 | BSC L OUT33,Z BRANCH IF NOT K1810390 7D1D C0F5 1043 | LD NAME LOAD WORD TO BE OUTPUT K1810400 7D1E 432A 1044 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1810410 7D1F 1006 1045 | SLA 6 IS IT STMNT FUNCTION K1810420 7D20 4C10 7D2A 1046 | BSC L OUT33,- BRANCH IF NOT K1810430 1047 | * K1810440 1048 | * IS IT END OF AN ARITH STMNT FUNC K1810450 1049 | * STATEMENT K1810460 1050 | * DELETE LAST OUTPUT OPERATOR K1810470 1051 | * K1810480 7D22 C480 7C58 1052 | LD I NADR+1 LOAD STMNT ID WORD K1810490 7D24 9304 1053 | S 3 FOUR-Z DECREMENT NORM K1810500 7D25 D480 7C58 1054 | STO I NADR+1 PUT BACK ON STRING K1810510 7D27 72FF 1055 | MDX 2 -1 DECREMENT O/P PT K1810520 7D28 4C80 7D14 1056 | BSC I OUTNA RETURN K1810530 1057 | * K1810540 7D2A C0E7 1058 | OUT33 LD CWORD LOAD LAST O/P WORD K1810550 7D2B 1808 1059 | SRA 8 K1810560 7D2C 4818 1060 | BSC +- SKIP IF NO REDEFINITION K1810570 7D2D 7009 1061 | MDX OUT51 BRANCH TO REDEFINE CODE WORD K1810580 7D2E C0E3 1062 | OUT41 LD CWORD LOAD CODE WORD K1810590 7D2F 4828 1063 | BSC +Z SKIP IF NOT PACKED O/P K1810600 7D30 7003 1064 | MDX OUT44 BRANCH TO PACKED OUTPUT K1810610 1065 | * K1810620 1066 | * NONPACKED K1810630 1067 | * ENTRY IF A-REG = CODEWORD VALUE K1810640 1068 | * K1810650 7D31 D200 1069 | OUT43 STO 2 0 STORE CODE WORD K1810660 7D32 C0E0 1070 | LD NAME LOAD NAME K1810670 7D33 70DA 1071 | MDX OUT12 OUTPUT NAME K1810680 1072 | * PACKED K1810690 1073 | * A-REG IS ASSUMED = CODEWORD VALUE K1810700 7D34 E8DE 1074 | OUT44 OR NAME PACK CODE WORD AND NAME K1810710 7D35 D200 1075 | STO 2 0 PUT ON O/P STRING K1810720 7D36 70D9 1076 | MDX OUT13 RETURN K1810730 1077 | * K1810740 7D37 C0DB 1078 | OUT51 LD NAME GET SYM TBL ID K1810750 7D38 432A 1079 | BSI 3 SYMT-Z WORD FOR FUTURE USE K1810760 7D39 C0D8 1080 | LD CWORD LOAD CODE WORD K1810770 7D3A 9309 1081 | S 3 H000E-Z IS IT ASSIGN OPERATOR K1810780 7D3B 4C18 7D6B 1082 | BSC L OUT91,+- BRANCH IF YES K1810790 7D3D 4830 1083 | BSC -Z SKIP IF LESS THAN ASSIGN K1810800 7D3E 7020 1084 | MDX OUT61 BRANCH IF NOT K1810810 7D3F C0D2 1085 | LD CWORD LOAD CODE WORD K1810820 7D40 1801 1086 | SRA 1 COMPUTE ADDR TO K1810830 7D41 801B 1087 | A ADRC1 GET OPERATOR K1810840 7D42 D00E 1088 | STO OUT53+1 STORE ADDR K1810850 7D43 901A 1089 | S ADRC2 IS IT EXPONENT OPERATOR K1810860 7D44 4C18 7DA4 1090 | BSC L OUTC4,+- BRANCH IF NOT K1810870 7D46 C3B9 1091 | LD 3 STNA1-Z LOAD SUM TBL ID WORD OF NAME K1810880 7D47 4C10 7D58 1092 | BSC L OUT55,- BRANCH IF FLOATING POINT K1810890 1093 | * K1810900 1094 | * NAME IS INTEGER NAME K1810910 7D49 C0C8 1095 | LD CWORD LOAD OPERATOR K1810920 7D4A 93DA 1096 | S 3 H000C-Z IS IT MULTIPLY OPERATOR K1810930 7D4B 4C18 7D53 1097 | BSC L OUT54,+- BRANCH IF YES K1810940 7D4D 8304 1098 | A 3 H0004-Z IS IT DIVIDE OPERATOR K1810950 7D4E 4C18 7D66 1099 | BSC L OUT85,+- BRANCH IF YES K1810960 7D50 C400 0000 1100 | OUT53 LD L *-* LOAD OPERATOR K1810970 7D52 70E1 1101 | MDX OUT44 PACK AND OUTPUT K1810980 1102 | * K1810990 1103 | * ENTRY FOR INTEGER MULTIPLY K1811000 7D53 C36E 1104 | OUT54 LD 3 NAME-Z LOAD NAME K1811010 7D54 EB1A 1105 | OR 3 HB000-Z PACK WITH MULTIPLY OPTR K1811020 7D55 D200 1106 | STO 2 0 PUT ON STRING K1811030 7D56 C319 1107 | LD 3 H5980-Z LOAD .SLT 16. K1811040 7D57 70B6 1108 | MDX OUT12 OUTPUT INSTRUCTION K1811050 1109 | * K1811060 1110 | * ENTRY FOR OBTAINING .CALL FADD., K1811070 1111 | * .CALL FSUB., .CALL FDIV. K1811080 1112 | * K1811090 7D58 7402 7D51 1113 | OUT55 MDX L OUT53+1,FADD-AL MODIFY ADDRESS K1811100 7D5A C480 7D51 1114 | LD I OUT53+1 LOAD OPERATOR K1811110 7D5C 70D4 1115 | MDX OUT43 OUTPUT OPERATOR, NAME K1811120 1116 | * K1811130 7D5D 7C89 1117 | ADRC1 DC AL-2 ADDRESS CONSTANT K1811140 7D5E 7C8E 1118 | ADRC2 DC AL+3 ADDRESS CONSTANT K1811150 1119 | * K1811160 7D5F 93ED 1120 | OUT61 S 3 H0036-Z IS IT REVERSE SUBTRACT K1811170 7D60 4C18 7DCC 1121 | BSC L OUTF1,+- BRANCH IF YES K1811180 7D62 9302 1122 | S 3 TWO-Z IS IT REVERSE DIVIDE K1811190 7D63 4C18 7DDA 1123 | BSC L OUTG1,+- BRANCH K1811200 7D65 701E 1124 | MDX OUTB1 MUST BE REVERSE EXPONENTIATE K1811210 1125 | * K1811220 7D66 C3E5 1126 | OUT85 LD 3 SRT16-Z LOAD .SRT 16. K1811230 7D67 D200 1127 | STO 2 0 PUT ON O/P STRING K1811240 7D68 43B1 1128 | BSI 3 INCR-Z INCREMENT STMNT NORM, O/P PT K1811250 7D69 C3E4 1129 | LD 3 DL-Z LOAD .D L. K1811260 7D6A 70C9 1130 | MDX OUT44 OUTPUT OPERATOR, NAME K1811270 1131 | * K1811280 1132 | * ASSIGN K1811290 7D6B C400 7A31 1133 | OUT91 LD L CCWD K1811300 7D6D 100E 1134 | SLA 14 IS ARITHMETIC TRACE NEEDED K1811310 7D6E 4810 1135 | BSC - SKIP IF YES K1811320 7D6F 700C 1136 | MDX OUT95 BRANCH IF NOT K1811330 7D70 CBB9 1137 | LDD 3 STNA1-Z LOAD SYM TBL ID WORD K1811340 7D71 18C1 1138 | RTE 1 PUT ENTIRE WORD IN ACC K1811350 7D72 E30A 1139 | AND 3 H800C-Z IS IT VARIABLE NAME K1811360 7D73 4820 1140 | BSC Z SKIP IF YES K1811370 7D74 7007 1141 | MDX OUT95 BRANCH IF NOT K1811380 7D75 C3B9 1142 | LD 3 STNA1-Z LOAD SYM TBL ID WORD K1811390 7D76 4810 1143 | BSC - SKIP IF INTEGER NAME K1811400 7D77 7002 1144 | MDX OUT93 BRANCH IF NOT K1811410 7D78 C3E3 1145 | LD 3 IARIT-Z LOAD .CALL IARIT. K1811420 7D79 70B7 1146 | MDX OUT43 OUTPUT CALL, NAME. K1811430 7D7A C3E2 1147 | OUT93 LD 3 FARIT-Z L/AD .CALL FARIT. K1811440 7D7B 70B5 1148 | MDX OUT43 OUTPUT CALL, NAME K1811450 1149 | * K1811460 7D7C C3B9 1150 | OUT95 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1811470 7D7D 4810 1151 | BSC - SKIP IF INTEGER NAME K1811480 7D7E 7003 1152 | MDX OUTA1 BRANCH IF NOT K1811490 7D7F 1003 1153 | SLA 3 K1811500 7D80 C3E1 1154 | LD 3 STOL-Z LOAD .STO L. K1811510 7D81 70B2 1155 | MDX OUT44 OUTPUT OPTR, NAME K1811520 7D82 C3F6 1156 | OUTA1 LD 3 FSTO-Z LOAD .CALL FSTO. K1811530 7D83 70AD 1157 | MDX OUT43 OUTPUT OPTR, WORD K1811540 1158 | * K1811550 1159 | * REV. EXPON. K1811560 7D84 C3BD 1160 | OUTB1 LD 3 MODSW-Z TEST MODE SWITCH K1811570 7D85 4C28 7D8A 1161 | BSC L OUTB2,Z+ BRANCH IF FLOATING POINT K1811580 1162 | * K1811590 1163 | * MODE = FIX K1811600 7D87 435C 1164 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1811610 7D88 EBE1 1165 | OR 3 H9000-Z COMBINE WITH .STO L. K1811620 7D89 7004 1166 | MDX OUTB3 OUTPUT K1811630 1167 | * K1811640 1168 | * MODE = FLOAT K1811650 7D8A C3F6 1169 | OUTB2 LD 3 FSTO-Z LOAD .CALL FSTO. K1811660 7D8B D200 1170 | STO 2 0 OUTPUT CALL K1811670 7D8C 43B1 1171 | BSI 3 INCR-Z MOVE PT, INCREMENT NORM K1811680 7D8D 435C 1172 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1811690 7D8E D200 1173 | OUTB3 STO 2 0 PUT ON O/P STRING K1811700 1174 | * K1811710 1175 | * MAKE GT-MODE AGREE WITH MODESWITCH K1811720 7D8F 4400 7DEA 1176 | BSI L GTMOD K1811730 1177 | * K1811740 7D91 43B1 1178 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811750 1179 | * K1811760 1180 | * K1811770 7D92 C301 1181 | LD 3 ONE-Z SET MODE SWITCH K1811780 7D93 D3BD 1182 | STO 3 MODSW-Z TO FIXED POINT K1811790 7D94 C36E 1183 | LD 3 NAME-Z OUTPUT K1811800 7D95 EBF8 1184 | OR 3 H8800-Z .LD L NAME. K1811810 7D96 D200 1185 | STO 2 0 PUT ON OUTPUT STRING K1811820 7D97 432A 1186 | BSI 3 SYMT-Z WAS NAME FIXED PT K1811830 7D98 4C28 7DA1 1187 | BSC L OUTC1,Z+ BRANCH IF YES K1811840 1188 | * K1811850 1189 | * CHANGE MODESWITCH AND K1811860 1190 | * REPLACE OUTPUT BY FLOATING ARITHM K1811870 1191 | * K1811880 7D9A C305 1192 | LD 3 HF800-Z SET MODE SWITCH K1811890 7D9B D3BD 1193 | STO 3 MODSW-Z TO FLOATING POINT K1811900 7D9C C3F9 1194 | LD 3 FLD-Z LOAD .CALL FLD. K1811910 7D9D D200 1195 | STO 2 0 PUT ON O/P STRING K1811920 7D9E 43B1 1196 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811930 7D9F C36E 1197 | LD 3 NAME-Z LOAD NAME K1811940 7DA0 D200 1198 | STO 2 0 PUT ON O/P STRING K1811950 7DA1 43B1 1199 | OUTC1 BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811960 7DA2 435C 1200 | OUTC3 BSI 3 GETGT-Z REPLACE STORED NAME BY K1811970 7DA3 D36E 1201 | STO 3 NAME-Z GENERATED TEMPORARY K1811980 1202 | * K1811990 1203 | * OPERTR. EXP K1812000 7DA4 C3BD 1204 | OUTC4 LD 3 MODSW-Z TEST MODE SWITCH K1812010 7DA5 4808 1205 | BSC + SKIP IF FIXED PT K1812020 7DA6 701F 1206 | MDX OUTD5 BRANCH IF NOT K1812030 7DA7 C36E 1207 | LD 3 NAME-Z LOAD NAME K1812040 7DA8 432A 1208 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812050 7DA9 4810 1209 | BSC - SKIP IF INTEGER NAME K1812060 7DAA 7003 1210 | MDX OUTD1 BRANCH IF NOT K1812070 7DAB C3DF 1211 | LD 3 FIXI-Z LOAD .CALL FIXI. K1812080 7DAC 4C00 7D31 1212 | OUTC5 BSC L OUT43 OUTPUT CALL, NAME K1812090 1213 | * K1812100 7DAE C3FA 1214 | OUTD1 LD 3 FLT-Z LOAD .CALL FLT. K1812110 7DAF D200 1215 | STO 2 0 PUT ON O/P STRING K1812120 7DB0 43B1 1216 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812130 7DB1 C305 1217 | LD 3 HF800-Z SET MOD SWITCH K1812140 7DB2 D3BD 1218 | STO 3 MODSW-Z TO FLOATING PT K1812150 1219 | * K1812160 7DB3 C302 1220 | OUTD2 LD 3 TWO-Z MAKE CODE WORD IN O/P STRING K1812170 7DB4 D200 1221 | STO 2 0 INTO A 2-WORD CALL OPTR K1812180 1222 | * K1812190 1223 | * TEST IF NAME DIMENSIONED K1812200 7DB5 C36E 1224 | LD 3 NAME-Z LOAD NAME K1812210 7DB6 432A 1225 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812220 7DB7 E3FF 1226 | AND 3 H3000-Z IS IT DIMENSIONED K1812230 7DB8 4C18 7DBE 1227 | BSC L OUTD3,+- BRANCH IF NOT K1812240 1228 | * K1812250 1229 | * OUTPUT 2-WD CALL FAXBX K1812260 7DBA C3D9 1230 | LD 3 FAXBX-Z LOAD .CALL FAXBX. K1812270 7DBB 4418 7E14 1231 | BSI L CAXBX,+- BRANCH TO MAKE SYM TBL ENTRY K1812280 1232 | * IF NOT THERE ALREADY K1812290 7DBD 7003 1233 | MDX OUTD4 MOVE PT K1812300 1234 | * K1812310 1235 | * OUTPUT 2-WD CALL .FAXB. K1812320 7DBE C3D8 1236 | OUTD3 LD 3 FAXB-Z LOAD .CALL FABX. K1812330 7DBF 4418 7DF8 1237 | BSI L CAXB,+- BRANCT TO MAKE SYM TBL ENTRY K1812340 1238 | * IF NOT THERE ALREADY K1812350 1239 | * K1812360 7DC1 D201 1240 | OUTD4 STO 2 1 OUTPUT WORD K1812370 7DC2 43B1 1241 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812380 1242 | * K1812390 7DC3 C36E 1243 | LD 3 NAME-Z LOAD NAME K1812400 7DC4 4C00 7D0E 1244 | OUTDX BSC L OUT12 OUTPUT NAME K1812410 1245 | * K1812420 7DC6 C36E 1246 | OUTD5 LD 3 NAME-Z LOAD NAME K1812430 7DC7 432A 1247 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812440 7DC8 4810 1248 | BSC - SKIP IF INTEGER K1812450 7DC9 70E9 1249 | MDX OUTD2 BRANCH IF NOT K1812460 1250 | * K1812470 7DCA C3E0 1251 | LD 3 FAXI-Z LOAD .CALL FAXI. K1812480 7DCB 70E0 1252 | MDX OUTC5 OUTPUT CALL K1812490 1253 | * K1812500 1254 | * REVERSE SUB K1812510 7DCC C3B9 1255 | OUTF1 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1812520 7DCD 4810 1256 | BSC - SKIP IF INTEGER K1812530 7DCE 7009 1257 | MDX OUTF4 BRANCH IF NOT K1812540 7DCF C3F1 1258 | LD 3 STOFA-Z LOAD .STO FAC+1. K1812550 7DD0 D200 1259 | STO 2 0 PUT ON O/P STRING K1812560 7DD1 C36E 1260 | LD 3 NAME-Z LOAD NAME K1812570 7DD2 E311 1261 | AND 3 H07FF-Z GET SYM TBL ENTRY NO K1812580 7DD3 83F8 1262 | A 3 LDL-Z COMBINE WITH .LD L. K1812590 7DD4 D201 1263 | STO 2 1 PUT ON O/P STRING K1812600 7DD5 43B1 1264 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812610 7DD6 C3EF 1265 | LD 3 SFAC-Z LOAD .S FAC+1. K1812620 7DD7 70EC 1266 | MDX OUTDX OUTPUT K1812630 1267 | * K1812640 7DD8 C3DD 1268 | OUTF4 LD 3 FSBR-Z LOAD.CALL FSBR. K1812650 7DD9 70D2 1269 | MDX OUTC5 OUTPUT K1812660 1270 | * K1812670 1271 | * REVERSE DIVIDE K1812680 7DDA C3B9 1272 | OUTG1 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1812690 7DDB 4810 1273 | BSC - SKIP IF INTEGER K1812700 7DDC 700B 1274 | MDX OUTG4 BRANCH IF NOT K1812710 7DDD C3F1 1275 | LD 3 STOFA-Z LOAD .STO FAC+1. K1812720 7DDE D200 1276 | STO 2 0 OUTPUT K1812730 7DDF C36E 1277 | LD 3 NAME-Z LOAD NAME K1812740 7DE0 EBF8 1278 | OR 3 LDL-Z COMBINE WITH .LD L. K1812750 7DE1 D201 1279 | STO 2 1 PUT ON O/P STRING K1812760 7DE2 C3E5 1280 | LD 3 SRT16-Z LOAD .SRT 16. K1812770 7DE3 D202 1281 | STO 2 2 PUT ON O/P STRING K1812780 7DE4 43B1 1282 | BSI 3 INCR-Z INCREMENT NORM, MOVE O/P PT K1812790 7DE5 43B1 1283 | BSI 3 INCR-Z INCREMENT NORM, MOVE O/P PT K1812800 7DE6 C3DC 1284 | LD 3 DFAC-Z LOAD .D FAC+1. K1812810 7DE7 70DC 1285 | MDX OUTDX OUTPUT K1812820 1286 | * K1812830 7DE8 C3DB 1287 | OUTG4 LD 3 FDVR-Z LOAD .CALL FDVR. K1812840 7DE9 70C2 1288 | MDX OUTC5 OUTPUT K1812850 1289 | * K1812860 1290 | * MAKES THE MODE OF THE GT AGREE WITH K1812870 1291 | * THE CURRENT MODE OF THE MODE SW K1812880 1292 | * K1812890 7DEA 0000 1293 | GTMOD DC 0 ENTRY POINT K1812900 7DEB D3C4 1294 | STO 3 GTMO3-Z SAVE WORD K1812910 7DEC 432A 1295 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812920 7DED C3BD 1296 | LD 3 MODSW-Z TEST MODE K1812930 7DEE 4C08 7DF2 1297 | BSC L GTMO1,+ RANCH IF FLOATING PT K1812940 7DF0 C31E 1298 | LD 3 H4028-Z SET ID WORD TO FIXED PT K1812950 7DF1 7001 1299 | MDX GTMO2 PUT IN TABLE K1812960 7DF2 C317 1300 | GTMO1 LD 3 H0028-Z SET ID WORD TO FLOATING PT K1812970 7DF3 D480 7CDA 1301 | GTMO2 STO I SYMT1+1 STORE IN TABLE K1812980 7DF5 C3C4 1302 | LD 3 GTMO3-Z RESTORE ACCUMULATOR K1812990 7DF6 4C80 7DEA 1303 | BSC I GTMOD RETURN K1813000 1304 | * K1813010 1305 | * K1813020 1306 | * MAKES THE SYM TBL ENTRY FOR THE K1813030 1307 | * SUBROUTINE NAMES FAXB AND EAXB SINCE K1813040 1308 | * THEY ARE 2-WORD CALLS K1813050 1309 | * K1813060 7DF8 0000 1310 | CAXB DC 0 ENTRY POINT K1813070 1311 | * K1813080 1312 | * GET NAM+ OF NEXT SYMT ENTRY K1813090 1313 | * AND STORE K1813100 1314 | * K1813110 7DF9 433A 1315 | BSI 3 STENT-Z GET NEXT SYM TBL ENTRY NO. K1813120 7DFA D3D8 1316 | STO 3 FAXB-Z SAVE ENTRY NO. K1813130 7DFB D018 1317 | STO CAXBX SAVE ENTRY NO. K1813140 1318 | * K1813150 7DFC C81F 1319 | LDD NAME1 GET EBC-NAME .FABX. K1813160 7DFD DBB7 1320 | CAXB1 STD 3 TEMP-Z STORE NAME K1813170 1321 | * K1813180 1322 | * MAKE SYMBOL TABLE ID-WD ENTRY K1813190 7DFE 6D00 7E10 1323 | STX L1 CAXB3+1 SAVE I/P PT K1813200 7E00 6580 7A2A 1324 | LDX I1 EOFST LOAD XR1 WITH END OF STRING K1813210 7E02 C316 1325 | LD 3 H0080-Z MAKE ID WORD A SUBPROGRAM K1813220 7E03 D103 1326 | STO 1 3 PUT IN SYM TBL K1813230 1327 | * K1813240 1328 | * IF EXTENDED PREC, CHANGE K1813250 1329 | * NAME K1813260 1330 | * K1813270 7E04 C400 7A31 1331 | LD L CCWD K1813280 7E06 100D 1332 | SLA 13 IS THERE STANDARD PRECISION K1813290 7E07 4C10 7E0B 1333 | BSC L CAXB2,- BRANCH IFYES K1813300 1334 | * K1813310 1335 | * CHANGE NAME TO BEGIN WITH .E. K1813320 7E09 C016 1336 | LD NAME3 CHANGE .FAXB. K1813330 7E0A D3B7 1337 | STO 3 TEMP-Z TO .EAXB. K1813340 1338 | * K1813350 7E0B CBB7 1339 | CAXB2 LDD 3 TEMP-Z LOAD NAME K1813360 7E0C D104 1340 | STO 1 4 PUT 1ST WORD IN SYM TBL K1813370 7E0D 18D0 1341 | RTE 16 K1813380 7E0E D105 1342 | STO 1 5 PUT 2ND WORD IN SYM TBL K1813390 1343 | * K1813400 7E0F 6500 0000 1344 | CAXB3 LDX L1 *-* RESTORE I/P PT K1813410 7E11 C002 1345 | LD CAXBX LOAD SUBPROGRAM NAME K1813420 7E12 4C80 7DF8 1346 | BSC I CAXB RETURN K1813430 1347 | * K1813440 1348 | * K1813450 1349 | * MAKES THE SYM TBL ENTRY FOR THE K1813460 1350 | * SUBROUTINE NAMES FAXBX AND EAXBX K1813470 1351 | * SINCE THEY ARE 2-WD CALLS K1813480 1352 | * K1813490 7E14 0000 1353 | CAXBX DC 0 ENTRY POINT K1813500 7E15 C0FE 1354 | LD CAXBX MOVE RETURN ADDR SO CAN USE K1813510 7E16 D0E1 1355 | STO CAXB .CALL FABX. SUBROUTINE K1813520 7E17 433A 1356 | BSI 3 STENT-Z GET NEXT SYM TBL ENTRY NO. K1813530 7E18 D0FB 1357 | STO CAXBX STORE K1813540 7E19 D3D9 1358 | STO 3 FAXBX-Z STORE K1813550 7E1A C803 1359 | LDD NAME2 LOAD EBC-NAME .FAXBX. K1813560 7E1B 70E1 1360 | MDX CAXB1 PUT IN SYM TBL K1813570 1361 | * K1813580 1362 | * CONSTANTS K1813590 7E1C 1363 | BSS E 0 K1813600 7E1C 8C0C 1364 | NAME1 DC /8C0C EBC-NAME K1813610 7E1D F080 1365 | DC /F080 .FAXB. K1813620 7E1E 8C0C 1366 | NAME2 DC /8C0C EBC-NAME K1813630 7E1F F0A7 1367 | DC /F0A7 .FAXBX. K1813640 7E20 8A0C 1368 | NAME3 DC /8A0C EBC-NAME .EAX. K1813650 1369 | * K1813660 1370 | * K1813670 1371 | * LOCATES THE NEXT OPTR NOT YET K1813680 1372 | * PROCESSED K1813690 1373 | * K1813700 7E21 0000 1374 | FINDN DC 0 ENTRY POINT K1813710 7E22 D3B7 1375 | STO 3 TEMP-Z STORE O/P SWITCH K1813720 7E23 7102 1376 | MDX 1 2 INITIALIZE POINTER K1813730 7E24 692E 1377 | STX 1 PFIND SAVE I/P PT K1813740 7E25 C480 7E53 1378 | FINDA LD I PFIND LOAD WORD IN STMNT K1813750 7E27 931F 1379 | S 3 H1900-Z IS WORD .CALL SUBSCR. K1813760 7E28 4C18 7E3E 1380 | BSC L MVSUB,+- BRANCH IF YES K1813770 7E2A 9322 1381 | S 3 MDXL1-Z IS IT .MDX L1. K1813780 7E2B 4C18 7E3A 1382 | BSC L MV3,+- BRANCH IF YES K1813790 7E2D 9323 1383 | S 3 LDXL-Z IS IT .LDX L1. K1813800 7E2E 4C18 7E3B 1384 | BSC L MV2,+- BRANCH IF YES K1813810 7E30 9324 1385 | S 3 LDXI-Z IS IT .LDX I1. K1813820 7E31 4C18 7E3B 1386 | BSC L MV2,+- BRANCH IF YES K1813830 7E33 9325 1387 | S 3 STXL1-Z IS IT .STX L1. K1813840 7E34 4C18 7E3B 1388 | BSC L MV2,+- BRANCH IF YES K1813850 7E36 C480 7E53 1389 | LD I PFIND RESTORE WORD K1813860 7E38 4C80 7E21 1390 | BSC I FINDN RETURN K1813870 1391 | * K1813880 7E3A 400C 1392 | MV3 BSI MOVE1 MOVE WORD TO O/P STRING K1813890 7E3B 400B 1393 | MV2 BSI MOVE1 MOVE WORD TO O/P STRING K1813900 7E3C 400A 1394 | MV1 BSI MOVE1 MOVE WORD TO O/P STRING K1813910 7E3D 70E7 1395 | MDX FINDA RETURN K1813920 7E3E 4008 1396 | MVSUB BSI MOVE1 MOVE WORD TO O/P STRING K1813930 7E3F 4007 1397 | BSI MOVE1 MOVE WORD TO O/P STRING K1813940 7E40 4006 1398 | MVS1 BSI MOVE1 MOVE WORD TO O/P STRING K1813950 7E41 4005 1399 | BSI MOVE1 MOVE WORD TO O/P STRING K1813960 7E42 C480 7E53 1400 | LD I PFIND LOAD WORD K1813970 7E44 4C10 7E40 1401 | BSC L MVS1,- BRANCH IF NOT TAGGED K1813980 7E46 70F5 1402 | MDX MV1 MOVE WORD, RETURN K1813990 1403 | * K1814000 7E47 0000 1404 | MOVE1 DC 0 ENTRY POINT K1814010 7E48 C3B7 1405 | LD 3 TEMP-Z TEST SWITCH K1814020 7E49 4C20 7E4F 1406 | BSC L MOVEX,Z BRANCH NOT OUTPUT K1814030 7E4B C480 7E53 1407 | LD I PFIND LOAD WORD K1814040 7E4D 4368 1408 | BSI 3 OUTUN-Z PUT ON O/P STRING K1814050 7E4E 7101 1409 | MDX 1 1 MOVE I/P PT K1814060 7E4F 7401 7E53 1410 | MOVEX MDX L PFIND,1 MOVE SUBROUTINE PT K1814070 7E51 4C80 7E47 1411 | BSC I MOVE1 RETURN K1814080 1412 | * K1814090 7E53 0000 1413 | PFIND DC 0 POINTER IN SUBROUTINE K1814100 1414 | * K1814110 1415 | * K1814120 1416 | * NOT IN CARD SYSTEM K1814130 1417 | * K1814140 1418 | * K1814150 1419 | * OUTPUTS DISK READ/WRITE STMNTS K1814160 1420 | * K1814170 7E54 C480 7C67 1421 | D5011 LD I INID LOAD STMNT ID WORD K1814180 7E56 E30B 1422 | AND 3 H07FC-Z GET NORM K1814190 7E57 1802 1423 | SRA 2 RIGHT JUSTIFY K1814200 7E58 83C2 1424 | A 3 INID-Z GET ADDR OF NEXT STMNT K1814210 7E59 9301 1425 | S 3 ONE-Z SUBTRACT ONE K1814220 7E5A D028 1426 | STO NXTID SAVE ADDRESS K1814230 7E5B C103 1427 | LD 1 3 LOAD WORD K1814240 7E5C 432A 1428 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1814250 7E5D 4C10 7E69 1429 | BSC L D5021,- BRANCH IF NOT INTEGER K1814260 1430 | * K1814270 1431 | * OUTPUT REST OF READ/WRITE K1814280 1432 | * STATEMENT K1814290 1433 | * K1814300 7E5F 7101 1434 | D5013 MDX 1 1 MOVE I/P PT K1814310 7E60 C100 1435 | LD 1 0 LOAD WORD K1814320 7E61 4368 1436 | BSI 3 OUTUN-Z PUT ON O/P STRING K1814330 7E62 6921 1437 | STX 1 TSX1 STORE I/P PT K1814340 7E63 C020 1438 | LD TSX1 TEST FOR END K1814350 7E64 901E 1439 | S NXTID OF STMNT K1814360 7E65 4C10 7A45 1440 | BSC L P1021,- BRANCH IF END OF STMNT K1814370 7E67 4C00 7E5F 1441 | BSC L D5013 CONTINUE O/P K1814380 1442 | * K1814390 1443 | * ERROR ENCOUNTERED K1814400 1444 | * EXPRESSION NOT INTEGER K1814410 1445 | * IN READ/WRITE STMT K1814420 1446 | * K1814430 7E69 6680 7C58 1447 | D5021 LDX I2 OUTID RESET O/P PT K1814440 7E6B 6580 7C67 1448 | LDX I1 INID RESET I/P PT K1814450 7E6D C012 1449 | LD HA008 LOAD ERROR STMNT ID WORD K1814460 7E6E D200 1450 | STO 2 0 PUT ON O/P STRING K1814470 7E6F C100 1451 | LD 1 0 LOAD STMNT ID WORD K1814480 7E70 100F 1452 | SLA 15 DOES STMNT HAVE STMNT NO. K1814490 7E71 4C10 7E78 1453 | BSC L D5023,- BRANCH IF NOT K1814500 7E73 C00D 1454 | LD HA00D REPLACE ERROR ID WORD WITH K1814510 7E74 D200 1455 | STO 2 0 ERROR WORD WITH STMNT NO. K1814520 7E75 C101 1456 | LD 1 1 LOAD STMNT NO. K1814530 7E76 D201 1457 | STO 2 1 PUT ON O/P STRING K1814540 7E77 7201 1458 | MDX 2 1 MOVE O/P PT K1814550 7E78 C009 1459 | D5023 LD ERNO LOAD ERROR NO. K1814560 7E79 D201 1460 | STO 2 1 PUT ON O/P STRING K1814570 7E7A 7201 1461 | MDX 2 1 MOVE O/P PT K1814580 7E7B 6580 7E83 1462 | LDX I1 NXTID MOVE I/P PT TO NEXT STMNT K1814590 1463 | * K1814600 7E7D 4C00 7A45 1464 | BSC L P1021 PROCESS NEXT STMNT K1814610 1465 | * K1814620 7E7F 0054 1466 | EXPRO DC /0054 EXPRESSION OPERATOR K1814630 7E80 A008 1467 | HA008 DC /A008 ERROR STMNT ID WORD K1814640 7E81 A00D 1468 | HA00D DC /A00D ERROR ID WITH STMNT NO. K1814650 7E82 0049 1469 | ERNO DC 73 ERROR NO. 73 K1814660 7E83 0000 1470 | NXTID DC 0 ADDR OF NEXT I/P STMNT - 1 K1814670 7E84 0000 1471 | TSX1 DC 0 K1814680 1472 | * K1814690 1473 | * K1814700 1474 | * BR TO LOADER TO LOAD NEST PHASE K1814710 1475 | * K1814720 7E85 C400 7A26 1476 | EXIT LD L SOFST LD START OF S.T. ADDR 2-11 K1814721 7E87 9400 7CB7 1477 | S L STLEN SUB MAX S/T LENGTH 2-11 K1814723 7E89 9400 7A2A 1478 | S L EOFST SUB ACTUAL LIMIT 2-11 K1814725 7E8B 4C08 7E92 1479 | BSC L EXIT1,+ IF ACTUAL EXCEEDS MAX, 2-11 K1814726 7E8D C400 7A2D 1480 | LD L ERROR LOAD ERROR INDICATOR 2-11 K1814727 7E8F E807 1481 | OR ERR8 *SET ERROR BIT 2-11 K1814728 7E90 D400 7A2D 1482 | STO L ERROR * AND RESTORE 2-11 K1814729 7E92 6580 7E99 1483 | EXIT1 LDX I1 NXTPH+1 LOAD PARAM FOR READING 2-11 K1814730 7E94 C805 1484 | LDD NXTPH+2 NEXT PHASE K1814740 7E95 4C00 7FBC 1485 | BSC L ROL GO TO READ NEXT PHASE K1814750 7E97 0080 1486 | ERR8 DC 128 TO SET ERROR BIT ON 2-11 K1814755 7E98 1487 | BSS E 0 K1814760 7E98 0031 1488 | NXTPH DC 49 ID OF NEXT PHASE K1814770 7E99 0000 1489 | DC *-* CORE ADDRESS NEXT PHASE K1814780 7E9A 0000 1490 | DC *-* WORD COUNT NEXT PHASE K1814790 7E9B 0000 1491 | DC *-* SECTOR ADDRESS NEXT PHASE K1814800 1492 | * K1814810 1493 | * K1814820 7E9C 1494 | BSS 153 PATCH AREA 2-11 K1814830 7F35 0000 1495 | DC 0 K1814840 7F36 1496 | END BPHAR-2 K1814850 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 73 126 A7A72 7A73 184 181 ADRC1 7D5D 1117 1087 ADRC2 7D5E 1118 1089 AL 7C8B 827 1113 1117 1118 BPHAR 7A36 119 1496 BSCL1 7CB1 877 509 BSCL2 7CB2 878 519 BSCL3 7CB3 879 521 BSCL4 7CB4 880 537 BSCL5 7CB5 881 540 BSCL6 7C97 841 550 CALLX 7CAE 905 261 CAXB 7DF8 1310 1237 1346 1355 CAXB1 7DFD 1320 1360 CAXB2 7E0B 1339 1333 CAXB3 7E0F 1344 1323 CAXBX 7E14 1353 1231 1317 1345 1354 1357 CCWD 7A31 94 489 1133 1331 CMPGT 7D05 973 COMON 7A2B 87 CONT 7C5C 770 131 CSIZE 7A2C 88 CWORD 7D12 1023 1035 1058 1062 1080 1085 1095 D5011 7E54 1421 192 256 D5013 7E5F 1434 1441 D5021 7E69 1447 1429 D5023 7E78 1459 1453 DFAC 7C81 811 1284 DFCNT 7A33 113 DL 7C89 820 1129 ENT 7A36 125 EOFS 7A25 81 129 221 775 779 EOFST 7A2A 86 773 933 935 1324 1478 ERNO 7E82 1469 1459 ERR8 7E97 1486 1481 ERROR 7A2D 89 127 782 1480 1482 EXIT 7E85 1476 128 222 783 EXIT1 7E92 1483 1479 EXP 7CB9 886 327 EXPRO 7E7F 1466 255 FADD 7C8D 829 1113 FARIT 7C87 818 1147 FAXB 7C7D 804 1236 1316 FAXBX 7C7E 806 1230 1358 FAXI 7C85 815 1251 FDIV 7C8F 831 FDVR 7C80 810 1287 FIF 7C99 843 494 FIIF 7C98 842 497 FIND 7C8A 911 175 FINDA 7E25 1378 1395 FINDN 7E21 1374 249 270 419 445 1390 FIXI 7C84 814 1211 FLD 7C9E 849 617 706 734 1194 FLT 7C9F 850 304 340 360 421 436 591 1214 FMPY 7C91 833 FNAME 7A2E 91 FOUR 7CA9 867 145 156 868 1053 FSBR 7C82 812 1268 FSTO 7C9B 845 351 413 1156 1169 FSUB 7C8E 830 GETGT 7D01 968 353 358 415 425 970 982 1164 1172 1200 GTMO1 7DF2 1300 1297 GTMO2 7DF3 1301 1299 GTMO3 7C69 766 1294 1302 GTMOD 7DEA 1293 285 354 416 1176 1303 H0004 7CA9 868 400 1098 H000C 7C7F 809 1096 H000E 7CAE 873 275 391 905 1041 1081 H0028 7CBC 889 980 1300 H0036 7C92 836 1120 H0038 7D00 965 949 H003E 7CFF 964 329 947 960 H0054 7CBD 890 180 H0080 7CBB 888 187 1325 H0220 7C83 813 635 H07FC 7CB0 876 208 1422 H07FF 7CB6 882 916 1261 H1300 7CCE 908 409 H1900 7CC4 897 1379 H1C80 7C3D 713 710 H3000 7CA4 861 1226 H4000 7CC0 893 H4028 7CC3 896 1298 H4220 7CCD 907 633 H4800 7CAC 871 199 407 H5980 7CBE 891 1107 H6000 7CC5 898 611 619 H8000 7CB8 885 938 H800C 7CAF 874 1139 H8380 7CC6 899 616 H8800 7C9D 848 1184 H9000 7C86 817 909 1165 HA008 7E80 1467 1449 HA00D 7E81 1468 1454 HB000 7CBF 892 1105 HD000 7CBA 887 170 HERE 7A7E 194 178 190 HF800 7CAA 869 147 342 367 471 566 704 1192 1217 HF803 7C93 837 144 IARIT 7C88 819 1145 IF 7CCC 906 263 IFIX 7C9C 846 296 396 602 614 INCR 7C56 744 747 1012 1128 1171 1178 1196 1199 1216 1241 1264 1282 1283 INID 7C67 764 150 205 1421 1424 1448 IOCS 7A32 102 LDFAC 7C9A 844 487 LDL 7C9D 847 732 848 1262 1278 LDXI 7CC9 902 1385 LDXL 7CC8 901 1383 LIBFF 7CC2 895 189 LIBFR 7CC1 894 185 MDXL1 7CC7 900 1381 MEMRY 8000 70 71 72 MODSW 7C62 759 166 293 301 314 337 343 346 368 376 467 472 484 492 561 567 695 705 714 1160 1182 1193 1204 1218 1296 MOVCT 7C5D 801 772 790 MOVE1 7E47 1404 1392 1393 1394 1396 1397 1398 1399 1411 MOVEX 7E4F 1410 1406 MOVST 7C6F 786 781 791 MV1 7E3C 1394 1402 MV2 7E3B 1393 1384 1386 1388 MV3 7E3A 1392 1382 MVS1 7E40 1398 1401 MVSUB 7E3E 1396 1380 NADR 7C57 745 748 1052 1054 NAME 7D13 1024 1031 1043 1070 1074 1078 1104 1183 1197 1201 1207 1224 1243 1246 1260 1277 NAME1 7E1C 1364 1319 NAME2 7E1E 1366 1359 NAME3 7E20 1368 1336 NFLT 7CA0 856 585 NIFIX 7CA2 858 596 NORM 7C64 761 209 212 NXTGT 7D0C 983 969 974 NXTID 7E83 1470 1426 1439 1462 NXTPH 7E98 1488 122 1483 1484 ONE 7CA6 864 375 466 560 575 644 666 694 771 917 1181 1425 OUT12 7D0E 1011 1071 1108 1244 OUT13 7D10 1013 1076 OUT31 7D15 1031 OUT33 7D2A 1058 1042 1046 OUT41 7D2E 1062 OUT43 7D31 1069 1115 1146 1148 1157 1212 OUT44 7D34 1074 1064 1101 1130 1155 OUT51 7D37 1078 1061 OUT53 7D50 1100 1088 1113 1114 OUT54 7D53 1104 1097 OUT55 7D58 1113 1092 OUT61 7D5F 1120 1084 OUT85 7D66 1126 1099 OUT91 7D6B 1133 1082 OUT93 7D7A 1147 1144 OUT95 7D7C 1150 1136 1141 OUTA1 7D82 1156 1152 OUTB1 7D84 1160 1124 OUTB2 7D8A 1169 1161 OUTB3 7D8E 1173 1166 OUTC1 7DA1 1199 1187 OUTC3 7DA2 1200 OUTC4 7DA4 1204 1090 OUTC5 7DAC 1212 1252 1269 1288 OUTD1 7DAE 1214 1210 OUTD2 7DB3 1220 1249 OUTD3 7DBE 1236 1227 OUTD4 7DC1 1240 1233 OUTD5 7DC6 1246 1206 OUTDX 7DC4 1244 1266 1285 OUTF1 7DCC 1255 1121 OUTF4 7DD8 1268 1257 OUTG1 7DDA 1272 1123 OUTG4 7DE8 1287 1274 OUTID 7C58 748 149 157 158 206 1447 OUTNA 7D14 1030 318 355 417 426 449 524 543 553 701 709 1032 1056 OUTOP 7D0D 1021 316 352 447 522 541 551 699 707 OUTUN 7D0D 1010 234 297 305 341 361 397 414 422 424 437 488 498 612 618 620 625 645 647 667 673 697 711 718 720 722 735 737 1013 1021 1033 1408 1436 OVERL 7A24 71 74 P1011 7A40 135 799 P1021 7A45 141 219 251 555 1440 1464 P1022 7A47 143 P1023 7A56 156 153 P1031 7A5F 165 154 P1041 7A87 205 P1042 7A8E 210 227 P1043 7A9B 225 213 P1044 7A97 221 P1051 7A9E 233 237 P1052 7AA0 235 171 P2011 7AA4 247 183 196 198 200 320 452 639 650 680 703 P2013 7AB8 269 P2031 7ACC 290 281 P2032 7AD5 301 292 P2033 7ADA 313 286 295 298 303 P2041 7ADC 315 328 330 339 344 348 365 P2051 7AE2 326 276 P2052 7AF5 346 336 P2061 7AF8 351 P2071 7B08 367 273 P2081 7B18 381 371 P2083 7B1C 386 402 P2091 7B1F 390 374 P2093 7B28 400 393 P2099 7B47 428 410 P2101 7B4F 434 384 P2111 7B53 443 379 388 398 P2112 7B57 446 443 P3010 7B5D 450 427 P3011 7B60 459 264 P3012 7B78 484 481 P301A 7B6F 475 462 470 P3020 7B88 497 493 P3021 7B7D 489 486 P3022 7B8A 499 491 496 P3031 7B96 513 506 P3032 7B9E 521 516 P3033 7B9F 522 510 520 P3041 7BA2 525 502 P3042 7BB0 540 534 P3043 7BB1 541 538 P3051 7BB4 544 527 530 P3053 7BBE 554 546 549 P5011 7BC1 560 262 P5012 7BC9 572 565 P5013 7BDF 595 586 588 P5015 7BE7 605 592 P5016 7C09 644 597 599 P5017 7BF9 622 610 P5018 7BFB 624 621 P501X 7BCE 577 576 579 580 P5023 7C11 656 681 P5024 7C1B 672 659 661 P6011 7C22 687 260 P6012 7C31 702 712 723 P6021 7C34 704 693 P6022 7C3A 710 716 P6024 7C3E 714 689 PFIND 7E53 1413 369 430 433 448 1377 1378 1389 1400 1407 1410 PHID 0030 75 125 READ 7C86 909 173 REV1 7CF9 959 951 954 REV2 7CFB 961 948 REV3 7CFC 962 957 REVOP 7CEB 945 363 404 963 ROL 7FBC 72 1485 SCKL1 7C50 734 730 SCKL2 7C53 737 733 SCKL3 7C61 758 728 731 736 SCKLD 7C48 727 357 378 387 395 412 420 435 465 623 738 SFAC 7C94 838 721 1265 SL 7C8C 828 698 910 SLA16 7C95 839 696 719 SOFGT 7A29 85 SOFIS 7C65 762 135 796 SOFNS 7A27 83 SOFS 7A24 80 130 136 SOFST 7A26 82 797 919 934 1476 SOFXT 7A28 84 SORF 7A30 93 SRT16 7C8A 821 911 1126 1280 SSOST 7C68 765 798 START 7A3C 129 STENT 7CDF 932 939 973 1315 1356 STLEN 7CB7 883 1477 STNA1 7C5E 755 290 468 926 1091 1137 1142 1150 1255 1272 STNCH 7C66 763 476 483 500 528 547 STOFA 7C96 840 717 1258 1275 STOL 7C86 816 817 1154 STTYP 7C63 760 148 169 172 194 217 STXL1 7CCA 903 1387 SYMT 7CCF 915 278 334 370 373 382 460 563 573 607 631 657 691 729 927 979 1044 1079 1186 1208 1225 1247 1295 1428 SYMT1 7CD9 924 574 636 918 920 921 922 923 981 1301 TCALL 7CAB 870 197 TEMP 7C5C 752 578 581 584 595 605 613 624 769 778 780 801 1320 1337 1339 1375 1405 TEMP2 7C60 757 946 959 961 962 TEND 7CAD 872 218 THREE 7CA8 866 937 TSX1 7E84 1471 1437 1438 TWO 7CA7 865 952 955 1122 1220 UNARY 7CCB 904 259 WRITE 7C8C 910 177 Z 7CA5 863 144 145 147 148 156 166 169 170 172 173 175 177 180 185 187 189 194 197 199 208 209 217 218 234 248 259 261 263 275 278 290 293 296 297 301 304 305 313 314 316 318 327 329 334 337 340 341 342 343 346 351 352 353 355 357 358 360 361 363 367 368 370 373 375 376 378 382 387 391 395 396 397 400 404 407 409 412 413 414 415 417 420 421 422 424 425 426 435 436 437 444 447 449 460 465 466 467 468 471 472 475 476 483 484 487 488 492 494 497 498 500 509 519 521 522 524 528 537 540 541 543 547 550 551 553 560 561 563 566 567 573 574 575 578 581 584 585 591 595 596 602 605 607 611 612 613 614 616 617 618 619 620 623 624 625 631 633 635 644 645 647 657 666 667 673 691 694 695 696 697 698 699 701 704 705 706 707 709 711 714 717 718 719 720 721 722 729 732 734 735 737 771 798 916 917 926 937 938 946 947 952 955 959 961 962 969 973 974 979 980 1012 1041 1044 1053 1079 1081 1091 1096 1098 1104 1105 1107 1120 1122 1126 1128 1129 1137 1139 1142 1145 1147 1150 1154 1156 1160 1164 1165 1169 1171 1172 1178 1181 1182 1183 1184 1186 1192 1193 1194 1196 1197 1199 1200 1201 1204 1207 1208 1211 1214 1216 1217 1218 1220 1224 1225 1226 1230 1236 1241 1243 1246 1247 1251 1255 1258 1260 1261 1262 1264 1265 1268 1272 1275 1277 1278 1280 1282 1283 1284 1287 1294 1295 1296 1298 1300 1302 1315 1316 1320 1325 1337 1339 1356 1358 1375 1379 1381 1383 1385 1387 1405 1408 1422 1424 1425 1428 1436 ZERO 7CA5 862 248 313 444 475 770 863
ibm/ibm1130-lib/dmsr2v12/kforph18_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator