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