ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph16.asm 1130 FORTRAN COMPILER PHASE 16 2 | *************************************************** K1600020 3 | *STATUS - VERSION 2, MODIFICATION 11 * K1600030 4 | * * K1600040 5 | *FUNCTION/OPERATION- * K1600050 6 | * * CONVERTS ALL READ, WRITE, FIND, IF, GOTO, * K1600060 7 | * CALL, STATEMENT FUNCTION, AND ARITHMETIC * K1600070 8 | * STATEMENTS INTO MODIFIED POLISH NOTATION. * K1600080 9 | * * ESTABLISHES THE ORDER OF ARITHMETIC * K1600090 10 | * OPERATIONAL PERFORMANCE. * K1600100 11 | * * SETS UP THE ARGUMENTS FOR SUBROUTINE CALLS * K1600110 12 | * TO BE GENERATED. * K1600120 13 | * * K1600130 14 | *ENTRY POINTS- * K1600140 15 | * ENQ- ENTERED VIA CALL TO THE ROL SUBROUTINE * K1600150 16 | * FROM THE PREVIOUS PHASE. * K1600160 17 | * * K1600170 18 | *INPUT- * K1600180 19 | * NONE IN THE USUAL SENSE. HOWEVER THE STMNT * K1600190 20 | * STRING AND SYMBOL TABLE SCANNED BY THE * K1600200 21 | * COMPILER MAY BE CONSIDERED INPUT * K1600210 22 | * * K1600220 23 | *OUTPUT- * K1600230 24 | * MODIFICATION OF THE STRING AND SYMBOL TABLE * K1600240 25 | * MAY BE CONSIDERED OUTPUT * K1600250 26 | * * K1600260 27 | *EXTERNAL REFERENCES * K1600270 28 | * $PHSE * K1600280 29 | * * K1600290 30 | *EXITS- * K1600300 31 | * EXIT IS MADE TO THE NEXT PHASE VIA A CALL TO * K1600310 32 | * THE ROL SUBROUTINE. * K1600320 33 | * * K1600330 34 | *TABLES/WORK AREAS- * K1600340 35 | * STATEMENT STRING * K1600350 36 | * SYMBOL TABLE * K1600360 37 | * FCOM * K1600370 38 | * * K1600380 39 | *ATTRIBUTES * K1600390 40 | * N/A * K1600400 41 | * * K1600410 42 | *NOTES- * K1600420 43 | * THE SWITCHES USED IN THIS PHASE FOLLOW. * K1600430 44 | * IF NON-ZERO, THE SWITCH IS TRANSFER=T * K1600440 45 | * IF ZERO, THE SWITCH IS NORMAL=N * K1600450 46 | * SWITCH SW1 GENERATE TEMPORARIES * K1600460 47 | * T = GENERATED TEMPORARIES REQUESTED * K1600470 48 | * SWITCH SW2 FAC IN OUTPUT EXPRESSION * K1600480 49 | * T = FAC INCLUDED IN OUTPUT EXPRESSION * K1600490 50 | * SWITCH SW3 FAC CHECK * K1600500 51 | * T = FAC IS ON STRING * K1600510 52 | * * K1600520 53 | * ERRORS DETECTED IN THIS PHASE - 64 * K1600530 54 | *************************************************** K1600540 55 | ABS K1600550 56 | * K1600560 57 | * SYSTEM EQUATES K1600570 8000 58 | MEMRY EQU /8000 K1600580 7A24 59 | OVERL EQU MEMRY-1500 START OF FCOM K1600590 7FBC 60 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1600600 0078 61 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1600610 7A24 62 | ORG OVERL K1600620 002E 63 | PHID EQU 46 ID NUMBER THIS PHASE K1600630 64 | * K1600640 65 | * FORTRAN COMMUNICATION AREA K1600650 7A24 66 | SOFS BSS 1 START OF STRING K1600660 7A25 67 | EOFS BSS 1 END OF STRING K1600670 7A26 68 | SOFST BSS 1 START OF SYMBOL TABLE K1600680 7A27 69 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1600690 7A28 70 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1600700 7A29 71 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1600710 7A2A 72 | EOFST BSS 1 END OF SYMBOL TABLE K1600720 7A2B 73 | COMON BSS 1 NEXT AVAILABLE COMMON K1600730 7A2C 74 | CSIZE BSS 1 SIZE OF COMMON K1600740 7A2D 75 | ERROR BSS 1 OVERLAP ERROR K1600750 7A2E 76 | FNAME BSS 1 PROGRAM NAME K1600760 7A2F 77 | BSS 1 K1600770 7A30 78 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1600780 7A31 79 | CCWD BSS 1 CONTROL CARD WORD K1600790 80 | * BIT 15 TRANSFER TRACE K1600800 81 | * BIT 14 ARITHMETIC TRACE K1600810 82 | * BIT 13 EXTENDED PRECISION K1600820 83 | * BIT 12 LIST SYMBOL TABLE K1600830 84 | * BIT 11 LIST SUBPROGRAM NAMES K1600840 85 | * BIT 10 LIST SOURCE PROGRAM K1600850 86 | * BIT 9 ONE WORD INTEGERS K1600860 7A32 87 | IOCS BSS 1 IOCS CONTROL CARD WORD K1600870 88 | * BIT 15 CARD K1600880 89 | * BIT 14 PAPER TAPE K1600890 90 | * BIT 13 TYPEWRITER K1600900 91 | * BIT 12 1403 PRINTER K1600910 92 | * BIT 11 2501 READER K1600920 93 | * BIT 10 KEYBOARD K1600930 94 | * BIT 9 1442 PUNCH K1600940 95 | * BIT 8 DISK K1600950 96 | * BIT 7 1132 PRINTER K1600960 97 | * BIT 3 PLOTTER K1600970 7A33 98 | DFCNT BSS 1 K1600980 99 | * K1600990 100 | * K1601000 101 | * END OF FORTRAN COMMUNICATION K1601010 102 | * AREA K1601020 103 | *************************************************** K1601030 104 | * THE SWITCHES USED IN PHASE 17 FOLLOW K1601040 105 | * IF NON ZERO, THE SWITCH IS TRANSFER=T K1601050 106 | * IF ZERO, THE SWITCH IS NORMAL=N K1601060 107 | * SWITCH SW1 GENERATE TEMPORARIES K1601070 108 | * T= GENERATE TEMPORARIES OF REQUIRED K1601080 109 | * SWITCH SW2 FAC IN OUTPUT EXPRESSION K1601090 110 | * T= FAC INCLUDED IN OUTPUT EXPRESS K1601100 111 | * SWITCH SW3 FAC CHECK K1601110 112 | * T= FAC IS ON STRING K1601120 113 | * K1601130 114 | * K1601140 7A36 115 | BPHAR EQU *+2 BEGIN PH AREA K1601150 7A34 0000 116 | DC 0 LOADER WORK AREA. K1601160 7A35 FFD2 117 | DC -46 -PHASE ID FOR SLET LOOKUP K1601170 7A36 0020 118 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K1601180 7A37 0001 119 | DC 1 ONE ENTRY TO BE SET BY LDR K1601190 7A36 120 | ORG *-2 K1601200 7A36 612E 121 | ENQ LDX 1 PHID GET ID THIS PHASE K1601210 7A37 6D00 0078 122 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1601220 123 | * K1601230 124 | * CHECK FOR OVERLAP K1601240 125 | * K1601250 7A39 C0F3 126 | LD ERROR K1601260 7A3A 4C20 7A51 127 | BSC L GOSS,Z K1601270 128 | * K1601280 129 | * INITIALIZE PHASE K1601290 7A3C 6580 7A24 130 | LDX I1 SOFS K1601300 7A3E C0EB 131 | LD EOFST K1601310 7A3F D0E9 132 | STO SOFGT K1601320 7A40 C0E9 133 | RST LD EOFST K1601330 7A41 D02E 134 | STO ROFGT K1601340 135 | * K1601350 136 | * STATEMENT TO BE SCANNED K1601360 7A42 C100 137 | SETUP LD 1 0 K1601370 7A43 180B 138 | SRA 11 K1601380 7A44 D028 139 | STO XTMP1 K1601390 7A45 6308 140 | LDX 3 TYTBE-TYTB+1 K1601400 7A46 C026 141 | LD XTMP1 K1601410 7A47 9700 7A64 142 | S L3 TYTB-1 K1601420 7A49 4C18 7A71 143 | BSC L SCANI,+- K1601430 7A4B 73FF 144 | MDX 3 -1 K1601440 7A4C 70F9 145 | MDX *-7 K1601450 146 | * K1601460 147 | * END STATEMENT K1601470 7A4D C01F 148 | LD XTMP1 K1601480 7A4E 901F 149 | S ENST K1601490 7A4F 4C20 7A5A 150 | BSC L NEXTS,Z K1601500 151 | * K1601510 152 | * READ AND GO TO NEXT PHASE K1601520 7A51 6580 7A57 153 | GOSS LDX I1 NXTPH+1 LOAD PARAM FOR READING K1601530 7A53 C804 154 | LDD NXTPH+2 NEXT PHASE K1601540 7A54 4C00 7FBC 155 | BSC L ROL GO TO READ NEXT PHASE K1601550 7A56 156 | BSS E 0 K1601560 7A56 002F 157 | NXTPH DC 47 ID OF NEXT PHASE K1601570 7A57 158 | BSS 3 LOADER TABLE FOR NEXT PHS K1601580 159 | * K1601590 160 | * MOVE TO NEXT STATEMENT K1601600 7A5A C100 161 | NEXTS LD 1 0 K1601610 7A5B E013 162 | AND S07FC K1601620 7A5C 1802 163 | SRA 2 K1601630 7A5D D001 164 | STO *+1 K1601640 7A5E 7500 0000 165 | MDX L1 *-* K1601650 166 | * K1601660 167 | * WAS LAST STATEMENT ASF K1601670 7A60 C00C 168 | LD XTMP1 K1601680 7A61 9004 169 | S ASF K1601690 7A62 4C18 7A40 170 | BSC L RST,+- K1601700 7A64 70DD 171 | MDX SETUP K1601710 172 | * K1601720 173 | * TABLE OF TYPES TO BE SCANNED K1601730 7A65 0000 174 | TYTB DC /00 ARITHMETIC K1601740 7A66 001A 175 | ASF DC /1A ARITH STATEMENT FUNCTION K1601750 7A67 0006 176 | DC /06 CALL K1601760 7A68 000E 177 | DC /0E GO TO K1601770 7A69 000F 178 | DC /0F IF K1601780 7A6A 001D 179 | DC /1D FIND K1601790 7A6B 0011 180 | DC /11 WRITE K1601800 7A6C 0012 181 | TYTBE DC /12 READ K1601810 182 | * K1601820 183 | * CONSTANTS K1601830 7A6D 0000 184 | XTMP1 DC 0 TEMPERARY K1601840 7A6E 0002 185 | ENST DC /02 END K1601850 7A6F 07FC 186 | S07FC DC /07FC K1601860 7A70 0000 187 | ROFGT DC 0 K1601870 188 | * K1601880 189 | * INITIALIZE FOR SCAN K1601890 7A71 6D00 7B00 190 | SCANI STX L1 IDSV1 K1601900 7A73 C100 191 | LD 1 0 K1601910 7A74 4804 192 | BSC E K1601920 7A75 7101 193 | MDX 1 1 K1601930 7A76 7102 194 | MDX 1 2 K1601940 7A77 6D00 7B2A 195 | STX L1 SNDOP K1601950 7A79 1010 196 | SLA 16 K1601960 7A7A C480 7B00 197 | LD I IDSV1 K1601970 7A7C 4802 198 | BSC C K1601980 7A7D 903D 199 | S TS4 K1601990 7A7E E0F0 200 | AND S07FC K1602000 7A7F 1802 201 | SRA 2 K1602010 7A80 D00E 202 | STO STNOM K1602020 7A81 D038 203 | STO INORM K1602030 7A82 6700 7C43 204 | LDX L3 PNT K1602040 7A84 6B31 205 | STX 3 OUTPT K1602050 7A85 6700 7DD2 206 | LDX L3 PDL-2 2-11 K1602060 7A87 6B2D 207 | STX 3 PUSHD K1602070 7A88 1010 208 | SLA 16 K1602080 7A89 D400 7C25 209 | STO L SW3 K1602090 210 | * K1602100 211 | * K1602110 212 | * RESET GTS K1602120 213 | * K1602130 7A8B C0E4 214 | LD ROFGT K1602140 7A8C D400 7BB1 215 | STO L XOFGT K1602150 216 | * NORM LESS THAN 4 K1602160 217 | * K1602170 7A8E 6700 0000 218 | CKNM LDX L3 *-* K1602180 7A8F 219 | STNOM EQU CKNM+1 K1602190 7A90 73FD 220 | MDX 3 -3 K1602200 7A91 7001 221 | MDX ADV K1602210 7A92 7055 222 | MDX PTPOL K1602220 223 | * K1602230 224 | * MOVE POINTER (1 K1602240 7A93 7101 225 | ADV MDX 1 1 K1602250 226 | * K1602260 227 | * BOTH SYMBOLS OPERATORS K1602270 7A94 C100 228 | NAME LD 1 0 K1602280 7A95 E9FE 229 | OR 1 -2 K1602290 7A96 4C28 7A93 230 | BSC L ADV,+Z K1602300 231 | * K1602310 232 | * DO OPERATORS FORCE K1602320 7A98 C100 233 | FORCE LD 1 0 K1602330 7A99 D005 234 | STO ROP+1 K1602340 7A9A C1FE 235 | LD 1 -2 K1602350 7A9B D007 236 | STO LOP+1 K1602360 7A9C 6700 7DD5 237 | LDX L3 FTAB K1602370 7A9E C700 0000 238 | ROP LD L3 *-* K1602380 7AA0 E013 239 | AND S00FF K1602390 7AA1 D011 240 | STO XTE1 K1602400 7AA2 C700 0000 241 | LOP LD L3 *-* K1602410 7AA4 1808 242 | SRA 8 K1602420 7AA5 900D 243 | S XTE1 K1602430 7AA6 4C30 7A93 244 | BSC L ADV,Z- K1602440 245 | * K1602450 246 | * INTERPRETER K1602460 7AA8 7780 7AA3 247 | MDX I3 LOP+1 K1602470 7AAA C301 248 | LD 3 1 K1602480 7AAB D001 249 | STO *+1 K1602490 7AAC 6600 0000 250 | LDX L2 *-* K1602500 7AAE 7001 251 | MDX *+1 K1602510 7AAF 7202 252 | RETRR MDX 2 2 K1602520 7AB0 C201 253 | LD 2 1 K1602530 7AB1 4E80 0000 254 | BSC I2 0 K1602540 255 | * K1602550 256 | * CONSTANTS K1602560 7AB3 0000 257 | XTE1 DC 0 TEMPERARY K1602570 7AB3 258 | XRR2 EQU XTE1 K1602580 7AB4 00FF 259 | S00FF DC /00FF K1602590 7AB5 0000 260 | PUSHD DC 0 K1602600 7AB6 0000 261 | OUTPT DC 0 K1602610 7AB7 A008 262 | ERID DC /A008 K1602620 7AB8 0005 263 | FIVE DC 5 K1602630 7AB9 0040 264 | ERNO DC 64 K1602640 7ABA 0000 265 | INORM DC 0 K1602650 7ABB 0004 266 | TS4 DC 4 K1602660 267 | * K1602670 268 | * CHECK OVERLAP IN OUTPUT AREA K1602680 7ABC C0F8 269 | OVCHK LD PUSHD K1602690 7ABD 90F8 270 | S OUTPT K1602700 7ABE 4C30 7BC3 271 | BSC L RETRN,-Z K1602710 272 | * K1602720 273 | * PUT ERROR ON STRING K1602730 7AC0 6580 7B00 274 | BADST LDX I1 IDSV1 K1602740 7AC2 C100 275 | LD 1 0 K1602750 7AC3 4C04 7AC8 276 | BSC L *+3,E K1602760 7AC5 C0F1 277 | LD ERID K1602770 7AC6 D100 278 | STO 1 0 K1602780 7AC7 7006 279 | MDX *+6 K1602790 7AC8 C0EE 280 | LD ERID K1602800 7AC9 80EE 281 | A FIVE K1602810 7ACA D100 282 | STO 1 0 K1602820 7ACB 7101 283 | MDX 1 1 K1602830 7ACC 7401 7ABA 284 | MDX L INORM,1 K1602840 7ACE C0EA 285 | LD ERNO K1602850 7ACF D101 286 | STO 1 1 K1602860 7AD0 7101 287 | MDX 1 1 K1602870 288 | * K1602880 289 | * CLOSE UP THE STRING K1602890 7AD1 6680 7B00 290 | LDX I2 IDSV1 K1602900 7AD3 7680 7ABA 291 | MDX I2 INORM K1602910 7AD5 6ADD 292 | STX 2 XRR2 K1602920 7AD6 C400 7A25 293 | LD L EOFS K1602930 7AD8 90DA 294 | S XRR2 K1602940 7AD9 D001 295 | STO *+1 K1602950 7ADA 6700 0000 296 | LDX L3 *-* K1602960 7ADC 7301 297 | MDX 3 1 K1602970 7ADD C200 298 | LD 2 0 K1602980 7ADE D101 299 | STO 1 1 K1602990 7ADF 7101 300 | MDX 1 1 K1603000 7AE0 7201 301 | MDX 2 1 K1603010 7AE1 73FF 302 | MDX 3 -1 K1603020 7AE2 70FA 303 | MDX *-6 K1603030 7AE3 6D00 7A25 304 | STX L1 EOFS K1603040 7AE5 6580 7B00 305 | LDX I1 IDSV1 K1603050 7AE7 7019 306 | MDX QLZQ K1603060 307 | * K1603070 308 | * CALCULATE THE STATEMENT NORM K1603080 7AE8 74FE 7ABA 309 | PTPOL MDX L INORM,-2 K1603090 310 | * K1603100 311 | * IS MOVEMENT NECESSARY K1603110 7AEA C019 312 | LD CPNT K1603120 7AEB 90CA 313 | S OUTPT K1603130 7AEC D00B 314 | STO CNT K1603140 7AED 80CC 315 | A INORM K1603150 7AEE D014 316 | STO AMOUT K1603160 7AEF 4C28 7B05 317 | BSC L OPEN,Z+ K1603170 7AF1 4C20 7B29 318 | BSC L CLOSE,Z K1603180 319 | * K1603190 320 | * PLACE POLISH TABLE ON STRING K1603200 7AF3 6600 7C43 321 | MOVE LDX L2 PNT K1603210 7AF5 6580 7B2A 322 | LDX I1 SNDOP K1603220 7AF7 6700 0000 323 | LDX L3 *-* K1603230 7AF8 324 | CNT EQU *-1 K1603240 7AF9 C200 325 | LD 2 0 K1603250 7AFA D1FF 326 | STO 1 -1 K1603260 7AFB 7101 327 | MDX 1 1 K1603270 7AFC 7201 328 | MDX 2 1 K1603280 7AFD 7301 329 | MDX 3 1 K1603290 7AFE 70FA 330 | MDX *-6 K1603300 7AFF 6500 0000 331 | LDX L1 *-* K1603310 7B00 332 | IDSV1 EQU *-1 K1603320 7B01 4C00 7A5A 333 | QLZQ BSC L NEXTS K1603330 334 | * K1603340 335 | * CONSTANTS K1603350 7B03 0000 336 | AMOUT DC 0 K1603360 7B04 7C43 337 | CPNT DC PNT K1603370 338 | * K1603380 339 | * CAN STRING BE OPENED K1603390 7B05 C400 7A2A 340 | OPEN LD L EOFST K1603400 7B07 9400 7A25 341 | S L EOFS K1603410 7B09 80F9 342 | A AMOUT K1603420 7B0A 4C28 7B3F 343 | BSC L OVERS,+Z K1603430 344 | * K1603440 345 | * OPEN STRING K1603450 7B0C 6580 7A25 346 | LDX I1 EOFS K1603460 7B0E C400 7A25 347 | LD L EOFS K1603470 7B10 9019 348 | S SNDOP K1603480 7B11 D001 349 | STO *+1 K1603490 7B12 6700 0000 350 | LDX L3 *-* K1603500 7B14 C400 7A25 351 | LD L EOFS K1603510 7B16 90EC 352 | S AMOUT K1603520 7B17 D400 7A25 353 | STO L EOFS K1603530 7B19 6680 7A25 354 | LDX I2 EOFS K1603540 7B1B C100 355 | LD 1 0 K1603550 7B1C D200 356 | STO 2 0 K1603560 7B1D 71FF 357 | MDX 1 -1 K1603570 7B1E 72FF 358 | MDX 2 -1 K1603580 7B1F 73FF 359 | MDX 3 -1 K1603590 7B20 70FA 360 | MDX *-6 K1603600 361 | * K1603610 362 | * CORRECT NORM K1603620 7B21 C480 7B00 363 | CRTNM LD I IDSV1 K1603630 7B23 1882 364 | SRT 2 K1603640 7B24 90DE 365 | S AMOUT K1603650 7B25 1082 366 | SLT 2 K1603660 7B26 D480 7B00 367 | STO I IDSV1 K1603670 7B28 70CA 368 | MDX MOVE K1603680 369 | * K1603690 370 | * CLOSE STRING K1603700 7B29 6600 0000 371 | CLOSE LDX L2 *-* K1603710 7B2A 372 | SNDOP EQU *-1 K1603720 7B2B C0FE 373 | LD SNDOP K1603730 7B2C 80D6 374 | A AMOUT K1603740 7B2D D001 375 | STO *+1 K1603750 7B2E 6500 0000 376 | LDX L1 *-* K1603760 7B30 C400 7A25 377 | LD L EOFS K1603770 7B32 90FC 378 | S *-4 K1603780 7B33 D001 379 | STO *+1 K1603790 7B34 6700 0000 380 | LDX L3 *-* K1603800 7B36 C101 381 | LD 1 1 K1603810 7B37 D201 382 | STO 2 1 K1603820 7B38 7101 383 | MDX 1 1 K1603830 7B39 7201 384 | MDX 2 1 K1603840 7B3A 73FF 385 | MDX 3 -1 K1603850 7B3B 70FA 386 | MDX *-6 K1603860 7B3C 6E00 7A25 387 | STX L2 EOFS K1603870 7B3E 70E2 388 | MDX CRTNM K1603880 389 | * K1603890 390 | * SET UP OVERLAP ERROR K1603900 7B3F 7401 7A2D 391 | OVERS MDX L ERROR,1 K1603910 7B41 4C00 7A51 392 | BSC L GOSS K1603920 393 | *************************************************** K1603930 394 | * * K1603940 395 | * INTERPRETER STRING PACKAGE * K1603950 396 | * * K1603960 397 | *************************************************** K1603970 398 | * PLACE OPERAND ON STRING AT XR1-1 K1603980 399 | * IF OPERAN OPERAND IS FAC (/8000) K1603990 400 | * TAG SW3 AND SAVE ADDRESS OF FAC K1604000 401 | * ON THE STRING K1604010 402 | * K1604020 7B43 D1FF 403 | PLACE STO 1 -1 K1604030 7B44 9009 404 | S FACNY K1604040 7B45 4C20 7BC3 405 | BSC L RETRN,Z K1604050 7B47 6C00 7C25 406 | STX L0 SW3 K1604060 7B49 6D00 7C1E 407 | STX L1 FACSV K1604070 7B4B 74FF 7C1E 408 | MDX L FACSV,-1 K1604080 7B4D 7075 409 | MDX RETRN K1604090 7B4E 8000 410 | FACNY DC /8000 K1604100 411 | * K1604110 412 | * MOVE THE POINTER BY ADDING THE K1604120 413 | * OPERAND TO IX1. K1604130 414 | * K1604140 7B4F D001 415 | MVPT STO *+1 K1604150 7B50 7500 0000 416 | MDX L1 *-* K1604160 7B52 7070 417 | MDX RETRN K1604170 418 | * K1604180 419 | * INSERT STOP CODE ON PUSH DOWN K1604190 420 | * LIST. K1604200 421 | * K1604210 7B53 74FF 7AB5 422 | STOPI MDX L PUSHD,-1 K1604220 7B55 1010 423 | SLA 16 K1604230 7B56 D480 7AB5 424 | STO I PUSHD K1604240 7B58 72FF 425 | MDX 2 -1 K1604250 7B59 4C00 7ABC 426 | BSC L OVCHK K1604260 427 | * K1604270 428 | * DELET THE STOP CODE FROM THE K1604280 429 | * PUSH DOWN LIST. K1604290 430 | * K1604300 7B5B 7401 7AB5 431 | STOPD MDX L PUSHD,1 K1604310 7B5D 72FF 432 | MDX 2 -1 K1604320 7B5E 7064 433 | MDX RETRN K1604330 434 | * K1604340 435 | * MOVE PUSH DOWN LIST TO THE K1604350 436 | * OUTPUT BUFFER UNTILL A STOP K1604360 437 | * CODE IS INCOUNTERED. K1604370 438 | * K1604380 7B5F 72FF 439 | PTO MDX 2 -1 K1604390 7B60 C480 7AB5 440 | LD I PUSHD K1604400 7B62 4C18 7BC3 441 | BSC L RETRN,+- K1604410 7B64 D480 7AB6 442 | STO I OUTPT K1604420 7B66 7401 7AB5 443 | MDX L PUSHD,1 K1604430 7B68 7401 7AB6 444 | MDX L OUTPT,1 K1604440 7B6A 70F5 445 | MDX PTO+1 K1604450 446 | * K1604460 447 | * DELET THE NUMBER OF SYMBOLS K1604470 448 | * SPECIFIED BY THE OPERAND FROM K1604480 449 | * THE STRING. THE OPERAND IS K1604490 450 | * ALWAYS NEGATIVE. THE SPECIAL K1604500 451 | * STRING NORM WILL BE CORRECTED. K1604510 452 | * THE ADDRESS OF FAC WILL BE K1604520 453 | * ADJUSTED IF FAC ON THE STRING K1604530 454 | * IS MOVED. K1604540 455 | * K1604550 7B6B D004 456 | DELET STO *+4 K1604560 7B6C 6901 457 | STX 1 *+1 K1604570 7B6D 6700 0000 458 | LDX L3 *-* K1604580 7B6F 7700 0000 459 | MDX L3 *-* K1604590 7B71 6B11 460 | STX 3 DEND+1 K1604600 7B72 C100 461 | DELOP LD 1 0 K1604610 7B73 D300 462 | STO 3 0 K1604620 7B74 7101 463 | MDX 1 1 K1604630 7B75 7301 464 | MDX 3 1 K1604640 7B76 4C20 7B72 465 | BSC L DELOP,Z K1604650 7B78 C400 7C1E 466 | LD L FACSV K1604660 7B7A 90F3 467 | S DELET+3 K1604670 7B7B 4C28 7B82 468 | BSC L *+5,Z+ K1604680 7B7D C400 7C1E 469 | LD L FACSV K1604690 7B7F 80F0 470 | A DELET+5 K1604700 7B80 D400 7C1E 471 | STO L FACSV K1604710 7B82 6500 0000 472 | DEND LDX L1 *-* K1604720 7B84 C400 7A8F 473 | LD L STNOM K1604730 7B86 80E9 474 | A DELOP-2 K1604740 7B87 D400 7A8F 475 | STO L STNOM K1604750 7B89 7039 476 | MDX RETRN K1604760 477 | * K1604770 478 | * PLACE THOSE STRING ELEMENTS K1604780 479 | * SPECIFIED BY THE SUBSTRING K1604790 480 | * ON THE PUSH DOWN LIST K1604800 481 | * IF FAC IS PUSHED DOWN A G.T. K1604810 482 | * IS GENERATED K1604820 483 | * K1604830 7B8A D001 484 | PUSH STO *+1 K1604840 7B8B 6780 0000 485 | LDX I3 *-* K1604850 7B8D D003 486 | STO PUSH1+1 K1604860 7B8E 7401 7B91 487 | MDX L PUSH1+1,1 K1604870 7B90 C400 0000 488 | PUSH1 LD L *-* K1604880 7B92 D001 489 | STO *+1 K1604890 7B93 C500 0000 490 | LD L1 *-* K1604900 7B95 74FF 7AB5 491 | MDX L PUSHD,-1 K1604910 7B97 D480 7AB5 492 | PUSH2 STO I PUSHD K1604920 7B99 9400 7C2C 493 | S L CONS3 K1604930 7B9B 4C18 7BA0 494 | BSC L PUSH3,+- K1604940 7B9D 73FF 495 | MDX 3 -1 K1604950 7B9E 70EF 496 | MDX PUSH1-2 K1604960 7B9F 7023 497 | MDX RETRN K1604970 7BA0 C400 7C2E 498 | PUSH3 LD L CONS5 K1604980 7BA2 D480 7AB6 499 | STO I OUTPT K1604990 7BA4 7401 7AB6 500 | MDX L OUTPT,1 K1605000 7BA6 4005 501 | BSI COMGT K1605010 7BA7 D480 7AB6 502 | STO I OUTPT K1605020 7BA9 7401 7AB6 503 | MDX L OUTPT,1 K1605030 7BAB 70EB 504 | MDX PUSH2 K1605040 505 | * K1605050 506 | * COMPUTE GT FOR FAC K1605060 7BAC 0000 507 | COMGT DC 0 K1605070 7BAD 1010 508 | SLA 16 K1605080 7BAE D076 509 | STO SW3 K1605090 7BAF C07D 510 | LD CONS4 K1605100 7BB0 D400 0000 511 | STO L *-* K1605110 7BB1 512 | XOFGT EQU *-1 K1605120 7BB2 74FD 7BB1 513 | MDX L XOFGT,-3 K1605130 7BB4 C0FC 514 | LD XOFGT K1605140 7BB5 9400 7A2A 515 | S L EOFST K1605150 7BB7 4C10 7BBB 516 | BSC L *+2,- K1605160 7BB9 74FD 7A2A 517 | MDX L EOFST,-3 K1605170 7BBB C400 7A26 518 | LD L SOFST K1605180 7BBD 90F3 519 | S XOFGT K1605190 7BBE 1890 520 | SRT 16 K1605200 7BBF A86B 521 | D CONS2 K1605210 7BC0 E86B 522 | OR CONS3 K1605220 7BC1 4C80 7BAC 523 | BSC I COMGT K1605230 524 | * K1605240 525 | * RETERN K1605250 7BC3 4C00 7AAF 526 | RETRN BSC L RETRR K1605260 527 | * K1605270 528 | * OUTPUT UNDER CONTROL OF A SUB- K1605280 529 | * STRING. IF ENTRY IS TO LABEL K1605290 530 | * OUTFC THE OUTPUT ROUTINE WILL K1605300 531 | * GENERATE TEMPERARIES WHEN K1605310 532 | * NECESSARY. K1605320 533 | * K1605330 7BC5 6301 534 | OUTFC LDX 3 1 K1605340 7BC6 7001 535 | MDX OUT+1 K1605350 7BC7 6300 536 | OUT LDX 3 0 K1605360 7BC8 6B5A 537 | STX 3 SW1 K1605370 7BC9 6300 538 | LDX 3 0 K1605380 7BCA 6B59 539 | STX 3 SW2 K1605390 7BCB 6B5A 540 | STX 3 SWCAL K1605400 7BCC D001 541 | STO *+1 K1605410 7BCD 6780 0000 542 | LDX I3 *-* K1605420 7BCF D003 543 | STO OUT1+1 K1605430 7BD0 7401 7BD3 544 | MDX L OUT1+1,1 K1605440 7BD2 C400 0000 545 | OUT1 LD L *-* K1605450 7BD4 D004 546 | STO *+4 K1605460 7BD5 C04D 547 | LD SW1 K1605470 7BD6 F0EE 548 | EOR OUTFC K1605480 7BD7 1010 549 | SLA 16 K1605490 7BD8 C500 0000 550 | LD L1 *-* K1605500 7BDA D480 7AB6 551 | STO I OUTPT K1605510 7BDC 4C02 7BFA 552 | BSC L NOREV+2,C K1605520 7BDE 904D 553 | S CONS3 K1605530 7BDF 4C20 7BFA 554 | BSC L NOREV+2,Z K1605540 7BE1 6842 555 | STX 0 SW2 K1605550 7BE2 74FF 7AB6 556 | MDX L OUTPT,-1 K1605560 7BE4 C480 7AB6 557 | LD I OUTPT K1605570 7BE6 4C10 7BFA 558 | BSC L NOREV+2,- K1605580 7BE8 74FF 7AB6 559 | MDX L OUTPT,-1 K1605590 7BEA C480 7AB6 560 | LD I OUTPT K1605600 7BEC 903A 561 | S CALOP K1605610 7BED 4818 562 | BSC +- K1605620 7BEE 6837 563 | STX 0 SWCAL K1605630 7BEF 9038 564 | S SREV1 K1605640 7BF0 4C28 7BF8 565 | BSC L NOREV,+Z K1605650 7BF2 9036 566 | S SREV2 K1605660 7BF3 4C30 7BF8 567 | BSC L NOREV,-Z K1605670 7BF5 8034 568 | A SREV3 K1605680 7BF6 D480 7AB6 569 | STO I OUTPT K1605690 7BF8 7401 7AB6 570 | NOREV MDX L OUTPT,1 K1605700 7BFA 7401 7AB6 571 | MDX L OUTPT,1 K1605710 7BFC 73FF 572 | MDX 3 -1 K1605720 7BFD 70D2 573 | MDX OUT1-2 K1605730 7BFE C024 574 | LD SW1 K1605740 7BFF 4C18 7ABC 575 | BSC L OVCHK,+- K1605750 7C01 C023 576 | LD SW3 K1605760 7C02 4C18 7ABC 577 | BSC L OVCHK,+- K1605770 7C04 C021 578 | LD SWCAL K1605780 7C05 4C18 7C0F 579 | BSC L LOP2,+- K1605790 7C07 40A4 580 | BSI COMGT K1605800 7C08 D480 7AB6 581 | STO I OUTPT K1605810 7C0A 7401 7AB6 582 | MDX L OUTPT,1 K1605820 7C0C 7403 7BB1 583 | MDX L XOFGT,3 K1605830 7C0E 7003 584 | MDX LOP3 K1605840 7C0F C014 585 | LOP2 LD SW2 K1605850 7C10 4C20 7ABC 586 | BSC L OVCHK,Z K1605860 7C12 7402 7AB6 587 | LOP3 MDX L OUTPT,2 K1605870 7C14 6780 7AB6 588 | LDX I3 OUTPT K1605880 7C16 C3FD 589 | LOP1 LD 3 -3 K1605890 7C17 73FF 590 | MDX 3 -1 K1605900 7C18 D300 591 | STO 3 0 K1605910 7C19 4C28 7C16 592 | BSC L LOP1,+Z K1605920 7C1B 4090 593 | BSI COMGT K1605930 7C1C D3FF 594 | STO 3 -1 K1605940 7C1D D400 0000 595 | STO L *-* K1605950 7C1E 596 | FACSV EQU *-1 K1605960 7C1F C00E 597 | LD CONS5 K1605970 7C20 D3FE 598 | STO 3 -2 K1605980 7C21 4C00 7ABC 599 | BSC L OVCHK K1605990 7C23 0000 600 | SW1 DC 0 K1606000 7C24 0000 601 | SW2 DC 0 K1606010 7C25 0000 602 | SW3 DC 0 K1606020 7C26 0000 603 | SWCAL DC 0 K1606030 7C27 002E 604 | CALOP DC /2E K1606040 7C28 FFD8 605 | SREV1 DC /06-/2E K1606050 7C29 0004 606 | SREV2 DC /0A-/06 K1606060 7C2A 0048 607 | SREV3 DC /0A+/44-/06 K1606070 7C2B 0003 608 | CONS2 DC 3 K1606080 7C2C 8000 609 | CONS3 DC /8000 K1606090 7C2D 0008 610 | CONS4 DC /0008 GENERATED TEMPERARY ID K1606100 7C2E 000E 611 | CONS5 DC /0E # K1606110 7C2F 0000 612 | XR1 DC 0 K1606120 7C30 0024 613 | SEND DC /24 S) K1606130 614 | * K1606140 615 | * END K1606150 7C31 71FF 616 | END MDX 1 -1 K1606160 7C32 69FC 617 | STX 1 XR1 K1606170 7C33 C0FB 618 | LD XR1 K1606180 7C34 9400 7B2A 619 | S L SNDOP K1606190 7C36 4C10 7C3A 620 | BSC L *+2,- K1606200 7C38 6580 7B2A 621 | LDX I1 SNDOP K1606210 7C3A 4C00 7A8E 622 | BSC L CKNM K1606220 623 | * K1606230 624 | * HANDLE SUBSCRIPTING BY K1606240 625 | * FORCING OUT COMPLETE LIST K1606250 626 | * K1606260 7C3C 72F8 627 | SUBSC MDX 2 -8 K1606270 7C3D C100 628 | LD 1 0 K1606280 7C3E 90F1 629 | S SEND K1606290 7C3F 4C20 7AAF 630 | BSC L RETRR,Z K1606300 7C41 7207 631 | MDX 2 7 K1606310 7C42 7080 632 | MDX RETRN K1606320 633 | * K1606330 634 | * POLISH AND PUSH DOWN LISTS K1606340 7C43 635 | PNT BSS 401 K1606350 7DD4 0000 636 | PDL DC 0 K1606360 637 | * K1606370 638 | * FORCING TABLE K1606380 7DD5 3C3C 639 | FTAB DC /3C3C SEMI-COLON K1606390 7DD6 7AC0 640 | DC BADST K1606400 7DD7 0132 641 | DC /0132 ) K1606410 7DD8 7AC0 642 | DC BADST K1606420 7DD9 0A0A 643 | DC /0A0A + K1606430 7DDA 7E07 644 | DC CD1 K1606440 7DDB 0A0A 645 | DC /0A0A - K1606450 7DDC 7E07 646 | DC CD1 K1606460 7DDD 0505 647 | DC /0505 / K1606470 7DDE 7E07 648 | DC CD1 K1606480 7DDF 0504 649 | DC /0504 ** K1606490 7DE0 7E07 650 | DC CD1 K1606500 7DE1 0505 651 | DC /0505 * K1606510 7DE2 7E07 652 | DC CD1 K1606520 7DE3 3B3C 653 | DC /3B3C = K1606530 7DE4 7E07 654 | DC CD1 K1606540 7DE5 3101 655 | DC /3101 ( K1606550 7DE6 7E0E 656 | DC CD2 K1606560 7DE7 3130 657 | DC /3130 , K1606570 7DE8 7E17 658 | DC CD3 K1606580 7DE9 3101 659 | DC /3101 IF K1606590 7DEA 7E3F 660 | DC CD8 K1606600 7DEB 3101 661 | DC /3101 GOT K1606610 7DEC 7E24 662 | DC CD5 K1606620 7DED 2A01 663 | DC /2A01 (0 K1606630 7DEE 7E2A 664 | DC CD6 K1606640 7DEF 2A01 665 | DC /2A01 (1 K1606650 7DF0 7E2A 666 | DC CD6 K1606660 7DF1 2A01 667 | DC /2A01 (2 K1606670 7DF2 7E2A 668 | DC CD6 K1606680 7DF3 2A01 669 | DC /2A01 (3 K1606690 7DF4 7E2A 670 | DC CD6 K1606700 7DF5 0501 671 | DC /0501 U- K1606710 7DF6 7E38 672 | DC CD7 K1606720 7DF7 3131 673 | DC /3131 RG K1606730 7DF8 7E4F 674 | DC CD10 K1606740 7DF9 3131 675 | DC /3131 S) K1606750 7DFA 7AC0 676 | DC BADST K1606760 7DFB 3001 677 | DC /3001 I/O K1606770 7DFC 7E5A 678 | DC CD11 K1606780 7DFD 3030 679 | DC /3030 LIST K1606790 7DFE 7E64 680 | DC CD12 K1606800 7DFF 3101 681 | DC /3101 DOA K1606810 7E00 7E45 682 | DC CD9 K1606820 7E01 3B01 683 | DC /3B01 ASF K1606830 7E02 7E6B 684 | DC CD13 K1606840 7E03 0201 685 | DC /0201 C K1606850 7E04 7E1C 686 | DC CD4 K1606860 7E05 3001 687 | DC /3001 DI/O K1606870 7E06 7E5A 688 | DC CD11 K1606880 689 | * K1606890 690 | * CODE1 K1606900 7E07 7BC5 691 | CD1 DC OUTFC K1606910 7E08 7E73 692 | DC SUB1 K1606920 7E09 7B6B 693 | DC DELET K1606930 7E0A FFFE 694 | DC -2 K1606940 7E0B 7B43 695 | DC PLACE K1606950 7E0C 8000 696 | DC /8000 FAC K1606960 7E0D 7C31 697 | DC END K1606970 698 | * K1606980 699 | * CODE2 K1606990 7E0E 7B4F 700 | CD2 DC MVPT K1607000 7E0F FFFF 701 | DC -1 K1607010 7E10 7B6B 702 | DC DELET K1607020 7E11 FFFF 703 | DC -1 K1607030 7E12 7B4F 704 | DC MVPT K1607040 7E13 0002 705 | DC 2 K1607050 7E14 7B6B 706 | DC DELET K1607060 7E15 FFFF 707 | DC -1 K1607070 7E16 7C31 708 | DC END K1607080 709 | * K1607090 710 | * CODE 3 K1607100 7E17 7B8A 711 | CD3 DC PUSH K1607110 7E18 7E77 712 | DC SUB2 K1607120 7E19 7B6B 713 | DC DELET K1607130 7E1A FFFE 714 | DC -2 K1607140 7E1B 7C31 715 | DC END K1607150 716 | * K1607160 717 | * CODE4 K1607170 7E1C 7BC5 718 | CD4 DC OUTFC K1607180 7E1D 7E73 719 | DC SUB1 K1607190 7E1E 7B5F 720 | DC PTO K1607200 7E1F 7B6B 721 | DC DELET K1607210 7E20 FFFE 722 | DC -2 K1607220 7E21 7B43 723 | DC PLACE K1607230 7E22 8000 724 | DC /8000 FAC K1607240 7E23 7C31 725 | DC END K1607250 726 | * K160726- 727 | * CODE 5 K1607270 7E24 7BC7 728 | CD5 DC OUT K1607280 7E25 7E77 729 | DC SUB2 K1607290 7E26 7B5F 730 | DC PTO K1607300 7E27 7B6B 731 | DC DELET K1607310 7E28 FFFF 732 | DC -1 K1607320 7E29 7C31 733 | DC END K1607330 734 | * K1607340 735 | * CODE 6 K1607350 7E2A 7BC7 736 | CD6 DC OUT K1607360 7E2B 7E79 737 | DC SUB3 K1607370 7E2C 7B6B 738 | DC DELET K1607380 7E2D FFFE 739 | DC -2 K1607390 7E2E 7B4F 740 | DC MVPT K1607400 7E2F 0002 741 | DC 2 K1607410 7E30 7BC7 742 | DC OUT K1607420 7E31 7E77 743 | DC SUB2 K1607430 7E32 7C3C 744 | DC SUBSC K1607440 7E33 7B4F 745 | DC MVPT K1607450 7E34 0001 746 | DC 1 K1607460 7E35 7B6B 747 | DC DELET K1607470 7E36 FFFD 748 | DC -3 K1607480 7E37 7C31 749 | DC END K1607490 750 | * K1607500 751 | * CODE 7 K1607510 7E38 7BC5 752 | CD7 DC OUTFC K1607520 7E39 7E79 753 | DC SUB3 K1607530 7E3A 7B6B 754 | DC DELET K1607540 7E3B FFFF 755 | DC -1 K1607550 7E3C 7B43 756 | DC PLACE K1607560 7E3D 8000 757 | DC /8000 FAC K1607570 7E3E 7C31 758 | DC END K1607580 759 | * K1607590 760 | * CODE 8 K1607600 7E3F 7BC5 761 | CD8 DC OUTFC K1607610 7E40 7E79 762 | DC SUB3 K1607620 7E41 7B5F 763 | DC PTO K1607630 7E42 7B6B 764 | DC DELET K1607640 7E43 FFFF 765 | DC -1 K1607650 7E44 7C31 766 | DC END K1607660 767 | * K1607670 768 | * CODE 9 K1607680 7E45 7BC7 769 | CD9 DC OUT K1607690 7E46 7E73 770 | DC SUB1 K1607700 7E47 7B8A 771 | DC PUSH K1607710 7E48 7E7C 772 | DC SUB5 K1607720 7E49 7B4F 773 | DC MVPT K1607730 7E4A 0001 774 | DC 1 K1607740 7E4B 7B6B 775 | DC DELET K1607750 7E4C FFFC 776 | DC -4 K1607760 7E4D 7B53 777 | DC STOPI K1607770 7E4E 7C31 778 | DC END K1607780 779 | * K1607790 780 | * CODE 10 K1607800 781 | * K1607810 7E4F 7B43 782 | CD10 DC PLACE K1607820 7E50 004A 783 | DC /4A DOT K1607830 7E51 7BC7 784 | DC OUT K1607840 7E52 7E77 785 | DC SUB2 K1607850 7E53 7B5B 786 | DC STOPD K1607860 7E54 7B5F 787 | DC PTO K1607870 7E55 7B4F 788 | DC MVPT K1607880 7E56 0001 789 | DC 1 K1607890 7E57 7B6B 790 | DC DELET K1607900 7E58 FFFD 791 | DC -3 K1607910 7E59 7C31 792 | DC END K1607920 793 | * K1607930 794 | * CODE 11 K1607940 7E5A 7BC7 795 | CD11 DC OUT K1607950 7E5B 7E79 796 | DC SUB3 K1607960 7E5C 7B5F 797 | DC PTO K1607970 7E5D 7B6B 798 | DC DELET K1607980 7E5E FFFE 799 | DC -2 K1607990 7E5F 7B4F 800 | DC MVPT K1608000 7E60 0001 801 | DC +1 K1608010 7E61 7B43 802 | DC PLACE K1608020 7E62 0028 803 | DC /28 LIST K1608030 7E63 7C31 804 | DC END K1608040 805 | * K1608050 806 | * CODE 12 K1608060 7E64 7BC7 807 | CD12 DC OUT K1608070 7E65 7E79 808 | DC SUB3 K1608080 7E66 7B4F 809 | DC MVPT K1608090 7E67 0001 810 | DC +1 K1608100 7E68 7B6B 811 | DC DELET K1608110 7E69 FFFE 812 | DC -2 K1608120 7E6A 7C31 813 | DC END K1608130 814 | * K1608140 815 | * CODE 13 K1608150 7E6B 7BC7 816 | CD13 DC OUT K1608160 7E6C 7E73 817 | DC SUB1 K1608170 7E6D 7B5F 818 | DC PTO K1608180 7E6E 7B6B 819 | DC DELET K1608190 7E6F FFFE 820 | DC -2 K1608200 7E70 7B4F 821 | DC MVPT K1608210 7E71 0001 822 | DC +1 K1608220 7E72 7C31 823 | DC END K1608230 824 | * K1608240 825 | * SUBSTRING 1 K1608250 7E73 0003 826 | SUB1 DC 3 K1608260 7E74 FFFE 827 | DC -2 K1608270 7E75 FFFD 828 | DC -3 K1608280 7E76 FFFF 829 | DC -1 K1608290 830 | * K1608300 831 | * SUBSTRING 2 K1608310 7E77 0001 832 | SUB2 DC 1 K1608320 7E78 FFFF 833 | DC -1 K1608330 834 | * K1608340 835 | * SUBSTRING 3 K1608350 7E79 0002 836 | SUB3 DC 2 K1608360 7E7A FFFE 837 | DC -2 K1608370 7E7B FFFF 838 | DC -1 K1608380 839 | * K1608390 840 | * SUB STRING 5 K1608400 7E7C 0001 841 | SUB5 DC 1 K1608410 7E7D FFFD 842 | DC -3 K1608420 7E7E 843 | BSS 183 PATCH AREA 2-1 K1608430 7F35 0000 844 | DC 0 K1608440 7F36 845 | END BPHAR-2 K1608450 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 61 122 ADV 7A93 225 221 230 244 AMOUT 7B03 336 316 342 352 365 374 ASF 7A66 175 169 BADST 7AC0 274 640 642 676 BPHAR 7A36 115 845 CALOP 7C27 604 561 CCWD 7A31 79 CD1 7E07 691 644 646 648 650 652 654 CD10 7E4F 782 674 CD11 7E5A 795 678 688 CD12 7E64 807 680 CD13 7E6B 816 684 CD2 7E0E 700 656 CD3 7E17 711 658 CD4 7E1C 718 686 CD5 7E24 728 662 CD6 7E2A 736 664 666 668 670 CD7 7E38 752 672 CD8 7E3F 761 660 CD9 7E45 769 682 CKNM 7A8E 218 219 622 CLOSE 7B29 371 318 CNT 7AF8 324 314 COMGT 7BAC 507 501 523 580 593 COMON 7A2B 73 CONS2 7C2B 608 521 CONS3 7C2C 609 493 522 553 CONS4 7C2D 610 510 CONS5 7C2E 611 498 597 CPNT 7B04 337 312 CRTNM 7B21 363 388 CSIZE 7A2C 74 DELET 7B6B 456 467 470 693 702 706 713 721 731 738 747 754 764 775 790 798 811 819 DELOP 7B72 461 465 474 DEND 7B82 472 460 DFCNT 7A33 98 END 7C31 616 697 708 715 725 733 749 758 766 778 792 804 813 823 ENQ 7A36 121 ENST 7A6E 185 149 EOFS 7A25 67 293 304 341 346 347 351 353 354 377 387 EOFST 7A2A 72 131 133 340 515 517 ERID 7AB7 262 277 280 ERNO 7AB9 264 285 ERROR 7A2D 75 126 391 FACNY 7B4E 410 404 FACSV 7C1E 596 407 408 466 469 471 FIVE 7AB8 263 281 FNAME 7A2E 76 FORCE 7A98 233 FTAB 7DD5 639 237 GOSS 7A51 153 127 392 IDSV1 7B00 332 190 197 274 290 305 363 367 INORM 7ABA 265 203 284 291 309 315 IOCS 7A32 87 LOP 7AA2 241 236 247 LOP1 7C16 589 592 LOP2 7C0F 585 579 LOP3 7C12 587 584 MEMRY 8000 58 59 60 MOVE 7AF3 321 368 MVPT 7B4F 415 700 704 740 745 773 788 800 809 821 NAME 7A94 228 NEXTS 7A5A 161 150 333 NOREV 7BF8 570 552 554 558 565 567 NXTPH 7A56 157 118 153 154 OPEN 7B05 340 317 OUT 7BC7 536 535 728 736 742 769 784 795 807 816 OUT1 7BD2 545 543 544 573 OUTFC 7BC5 534 548 691 718 752 761 OUTPT 7AB6 261 205 270 313 442 444 499 500 502 503 551 556 557 559 560 569 570 571 581 582 587 588 OVCHK 7ABC 269 426 575 577 586 599 OVERL 7A24 59 62 OVERS 7B3F 391 343 PDL 7DD4 636 206 PHID 002E 63 121 PLACE 7B43 403 695 723 756 782 802 PNT 7C43 635 204 321 337 PTO 7B5F 439 445 720 730 763 787 797 818 PTPOL 7AE8 309 222 PUSH 7B8A 484 711 771 PUSH1 7B90 488 486 487 496 PUSH2 7B97 492 504 PUSH3 7BA0 498 494 PUSHD 7AB5 260 207 269 422 424 431 440 443 491 492 QLZQ 7B01 333 306 RETRN 7BC3 526 271 405 409 417 433 441 476 497 632 RETRR 7AAF 252 526 630 ROFGT 7A70 187 134 214 ROL 7FBC 60 155 ROP 7A9E 238 234 RST 7A40 133 170 S00FF 7AB4 259 239 S07FC 7A6F 186 162 200 SCANI 7A71 190 143 SEND 7C30 613 629 SETUP 7A42 137 171 SNDOP 7B2A 372 195 322 348 373 619 621 SOFGT 7A29 71 132 SOFNS 7A27 69 SOFS 7A24 66 130 SOFST 7A26 68 518 SOFXT 7A28 70 SORF 7A30 78 SREV1 7C28 605 564 SREV2 7C29 606 566 SREV3 7C2A 607 568 STNOM 7A8F 219 202 473 475 STOPD 7B5B 431 786 STOPI 7B53 422 777 SUB1 7E73 826 692 719 770 817 SUB2 7E77 832 712 729 743 785 SUB3 7E79 836 737 753 762 796 808 SUB5 7E7C 841 772 SUBSC 7C3C 627 744 SW1 7C23 600 537 547 574 SW2 7C24 601 539 555 585 SW3 7C25 602 209 406 509 576 SWCAL 7C26 603 540 563 578 TS4 7ABB 266 199 TYTB 7A65 174 140 142 TYTBE 7A6C 181 140 XOFGT 7BB1 512 215 513 514 519 583 XR1 7C2F 612 617 618 XRR2 7AB3 258 292 294 XTE1 7AB3 257 240 243 258 XTMP1 7A6D 184 139 141 148 168