ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph21.asm
1130 FORTRAN COMPILER PHASE 21
2 | ************************************************** K2100020
3 | * * K2100030
4 | *STATUS - VERSION 2, MODIFICATION 11 * K2100040
5 | * * K2100050
6 | *FUNCTION/OPERATION- * K2100060
7 | * * ASSIGNS THE RELATIVE ADDRESSES TO STMNT * K2100070
8 | * FUNCTIONS AND NUMBERED STATEMENTS * K2100080
9 | * * INSERTS ALLOCATIONS INTO THE STRING * K2100090
10 | * * CREATES THE SUBROUTINE INITIALIZATION CALL-* K2100100
11 | * .CALL SUBIN. ALONG WITH ITS DUMMY ARGUMENTS* K2100110
12 | * * GENERATES THE STMNT FUNCTION RETURN CODE * K2100120
13 | * * K2100130
14 | *ENTRY POINTS- * K2100140
15 | * * NEQ-THIS PHASE IS ENTERED VIA A CALL TO * K2100150
16 | * THE ROL SUBROUTINE BY THE PREVIOUS PHASE* K2100160
17 | * * K2100170
18 | *INPUT- * K2100180
19 | * * STATEMENT STRING * K2100190
20 | * * SYMBOL TABLE * K2100200
21 | * * FCOM * K2100210
22 | * * K2100220
23 | *OUTPUT- * K2100230
24 | * * STATEMENT STRING * K2100240
25 | * * SYMBOL TABLE * K2100250
26 | * * FCOM * K2100260
27 | * * K2100270
28 | *EXTERNAL REFERENCES- * K2100280
29 | * SUBROUTINES- * K2100290
30 | * * ROL * K2100300
31 | * * NEWPG * K2100310
32 | * * PRINT * K2100320
33 | * * LSTPR * K2100330
34 | * COMMA/DCOM * K2100340
35 | * * $PHSE * K2100350
36 | * * $CH12 * K2100360
37 | * * K2100370
38 | *EXITS- * K2100380
39 | * NORMAL- * K2100390
40 | * * EXIT IS MADE VIA A CALL TO THE ROL SUBR * K2100400
41 | * ERROR- * K2100410
42 | * * TEST IS MADE FOR OVERLAP ERROR EXCEPT * K2100420
43 | * FOR ARITH STMNT FUNCTIONS AND EXIT MADE * K2100430
44 | * VIA THE ROL SUBR WHEN OVERLAP FOUND. * K2100440
45 | * * K2100450
46 | *TABLES/WORK AREAS- * K2100460
47 | * * FCOM * K2100470
48 | * * STRING AREA * K2100480
49 | * * SYMBOL TABLE AREA * K2100490
50 | * * K2100500
51 | * ATTRIBUTES-NONE * K2100510
52 | * * K2100520
53 | *NOTES- * K2100530
54 | * * ASF IS AN ABBREVIATION FOR ARITH STMNT FUNC * K2100540
55 | * * COMMENTS START IN COL 44 * K2100550
56 | * * THE SWITCHES USED BY THIS PHASE FOLLOW. * K2100560
57 | * IF POSITIVE, THE SWITCH IS TRANSFER=T * K2100570
58 | * IF ZERO, THE SWITCH IS NORMAL = N * K2100580
59 | * TEMP5- * K2100590
60 | * N=NOT FIRST ASF STATEMENT * K2100600
61 | * T=ADDR OF FIRST ASF STATEMENT * K2100610
62 | * ASFSW- * K2100620
63 | * T=POINTER NOT PAST ASF STATEMENTS * K2100630
64 | * TR- * K2100640
65 | * N=SUBP INITIALIZE FOR ASF STATEMENTS * K2100650
66 | * T=1=SUBP INITIALIZE FOR SUBP * K2100660
67 | * T=2=STATEMENT ALLOCATION * K2100670
68 | * * K2100680
69 | *************************************************** K2100690
1130 FORTRAN COMPILER PHASE 21
71 | ABS K2100710
72 | * K2100720
73 | * SYSTEM EQUATES K2100730
8000 74 | MEMRY EQU /8000 CORE SIZE K2100740
7A24 75 | OVERL EQU MEMRY-1500 START OF FCOM K2100750
7FBC 76 | ROL EQU MEMRY-68 LOC OF SUBR TO READ NXT PH K2100760
0078 77 | $PHSE EQU /78 PHASE NOW IN CORE K2100770
78 | * K2100780
0033 79 | PHID EQU 51 ID NUMBER THIS PHASE K2100790
80 | * PRINT SUBROUTINE K2100800
81 | * K2100810
7F8B 82 | HEAD EQU ROL-49 PAGE HEADER AREA K2100820
7E42 83 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2100830
7E0C 84 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2100840
0006 85 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2100850
7E0D 86 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2100860
7E0E 87 | PRINT EQU NEWPG+2 PRINT INTERFACE SUBR ENTRY K2100870
7E45 88 | LSTPR EQU OVERP+3 DEVICE PRINT SUBR ENTRY K2100880
89 | * K2100890
7A24 90 | ORG OVERL K2100900
91 | * K2100910
92 | * FORTRAN COMMUNICATION AREA K2100920
7A24 93 | SOFS BSS 1 START OF STRING K2100930
7A25 94 | EOFS BSS 1 END OF STRING K2100940
7A26 95 | SOFST BSS 1 START OF SYMBOL TABLE K2100950
7A27 96 | SOFNS BSS 1 LENGTH OF PROGRAM K2100960
7A28 97 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2100970
7A29 98 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2100980
7A2A 99 | EOFST BSS 1 END OF SYMBOL TABLE K2100990
7A2B 100 | COMON BSS 1 RELATIVE ENTRY POINT K2101000
7A2C 101 | CSIZE BSS 1 SIZE OF COMMON K2101010
7A2D 102 | ERROR BSS 1 ERROR FLAG K2101020
103 | * BIT 15 OVERLAP ERROR K2101030
104 | * BIT 14 OTHER ERROR K2101040
105 | * BIT 13 SUBIN TOO LARGE 2-3 K2101050
106 | * BIT 10 OVERLAP IN THIS PHASE 2-3 K2101060
7A2E 107 | FNAME BSS 1 PROGRAM NAME K2101070
7A2F 108 | BSS 1 K2101080
7A30 109 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2101090
7A31 110 | CCWD BSS 1 CONTROL CARD WORD K2101100
111 | * BIT 15 TRANSFER TRACE K2101110
112 | * BIT 14 ARITHMETIC TRACE K2101120
113 | * BIT 13 EXTENDED PRECISION K2101130
114 | * BIT 12 LIST SYMBOL TABLE K2101140
115 | * BIT 11 LIST SUBPROGRAM NAMES K2101150
116 | * BIT 10 LIST SOURCE PROGRAM K2101160
117 | * BIT 9 ONE WORD INTEGERS K2101170
7A32 118 | IOCS BSS 1 IOCS CONTROL CARD WORD K2101180
119 | * BIT 15 CARD K2101190
120 | * BIT 14 PAPER TAPE K2101200
121 | * BIT 13 TYPEWRITER K2101210
122 | * BIT 12 1403 PRINTER K2101220
123 | * BIT 11 2501 READER K2101230
124 | * BIT 10 KEYBOARD K2101240
125 | * BIT 9 1442 PUNCH K2101250
126 | * BIT 8 DISK K2101260
127 | * BIT 7 1132 PRINTER K2101270
128 | * BIT 3 PLOTTER K2101280
129 | * K2101290
7A33 130 | DFCNT BSS 1 DEFINE FILE COUNT K2101300
131 | * K2101310
132 | * K2101320
133 | * END OF FORTRAN COMMUNICATION K2101330
134 | * AREA K2101340
135 | *************************************************** K2101350
1130 FORTRAN COMPILER PHASE 21
137 | * K2101370
7A36 138 | BPHAR EQU *+2 K2101380
7A34 0000 139 | DC 0 LOADER WORK AREA K2101390
7A35 FFCD 140 | DC -51 -PHASE ID FOR SLET LOOPUP K2101400
7A36 0394 141 | DC NXTPH-*+1 TBL FOR NEXT PHASE ENTRY K2101410
7A37 0001 142 | DC 1 ONE ENTRY TO BE SET BY LDR K2101420
7A36 143 | ORG *-2 K2101430
7A36 4C00 7ACD 144 | NEQ BSC L ENT BR TO INITIALIZATION K2101440
145 | * K2101450
146 | * K2101460
147 | * TEST ROUTINE FOR SUBROUTINE K2101470
148 | * IN CALL ARGUMENTS K2101480
149 | * K2101490
7A38 0000 150 | SUBPR DC 0 SUBR ENTRY POIN K2101500
7A39 1008 151 | SLA 8 SHIFT INDICATOR BIT TO SIGN K2101510
7A3A 4C90 7A38 152 | BSC I SUBPR,- RETURN IF NOT ON K2101520
7A3C 1010 153 | SLA 16 CLEAR ACC K2101530
7A3D 435C 154 | BSI 3 OUTP-Z O/P 0 TO O/P STRING K2101540
7A3E 7401 7A65 155 | MDX L LISTL,1 INCR LIST LENGTH K2101550
7A40 4C80 7A38 156 | BSC I SUBPR RETURN TO CALLING PROGRAM K2101560
157 | * K2101570
158 | * K2101580
7A42 0000 159 | INCPT DC 0 LINK ENTRY POINT K2101590
7A43 7101 160 | MDX 1 1 INCR XR1 (POINTER) K2101600
7A44 74FC 7A53 161 | MDX L NORM,-4 DECR STMNT LENGTH COUNTER K2101610
7A46 1000 162 | SLA 0 NOP IN CASE OF SKIP K2101620
7A47 4C80 7A42 163 | BSC I INCPT RETURN K2101630
164 | * K2101640
165 | * K2101650
7A49 6200 166 | H6200 DC /6200 CONSTANT K2101660
7A4A 7000 167 | H7000 DC /7000 CONSTANT K2101670
7A4B 7800 168 | H7800 DC /7800 CONSTANT K2101680
7A4C 0400 169 | H0400 DC /0400 (DUMMY VAR( EXTRACTOR K2101690
7A4D 5E00 170 | H5E00 DC /5E00 GENERATED LABEL TEST CON K2101700
7A4E 0000 171 | ZERO DC 0 CONSTANT K2101710
7A4E 172 | Z EQU ZERO K2101720
7A4F 0001 173 | ONE DC /0001 CONSTANT K2101730
7A50 0002 174 | TWO DC /0002 CONSTANT K2101740
7A51 0003 175 | THREE DC /0003 CONSTANT K2101750
7A52 0004 176 | FOUR DC /0004 CONSTANT K2101760
7A53 0000 177 | NORM DC 0 NORM COUNTER K2101770
7A54 07FC 178 | H07FC DC /07FC MASK FOR NORM K2101780
7A55 F800 179 | HF800 DC /F800 MASK FOR STMNT TYPE K2101790
7A56 6000 180 | H6000 DC /6000 .FORMAT.-TYPE K2101800
7A57 D000 181 | HD000 DC /D000 ARITH STMNT FUNC STMNT TYPE K2101810
7A58 0000 182 | LOCC1 DC 0 LOC CTR 1 K2101820
7A59 0000 183 | LOCC2 DC 0 LOC CTR 2 K2101830
7A5A 5F00 184 | H5F00 DC /5F00 .BLANK. AT OUTPUT K2101840
7A5B 0000 185 | DUMVC DC 0 DUMMY VAR CTR K2101850
7A5C 1800 186 | H1800 DC /1800 DIMENSION BIT MASK SYM TBL K2101860
7A5D 0000 187 | TR DC 0 TRACKSWITCH K2101870
7A5E 0000 188 | DUMVP DC 0 DUMMY VAR PT IN SYM TBL K2101880
7A5F 6008 189 | H6008 DC /6008 MASK K2101890
7A60 1D00 190 | SUBIN DC /1D00 CALL SUBIN K2101900
7A61 0000 191 | STADR DC 0 SYM TBL ADDR COUNTER K2101910
7A62 8000 192 | DC /8000 MASK K2101920
7A63 0000 193 | TESTN DC 0 .TESTNAME. K2101930
7A64 0000 194 | TINP DC 0 TEMP I/P POINTER K2101940
7A65 0000 195 | LISTL DC 0 LIST LENGTH K2101950
7A66 0000 196 | OUTID DC 0 ADDR OF O/P ID K2101960
7A67 F803 197 | HF803 DC /F803 MASK F ELIMINATING NORM K2101970
7A68 1000 198 | H1000 DC /1000 STMNT TYPE END K2101980
7A69 07FF 199 | H07FF DC /07FF MASK TO GET SYM TBL ADDR K2101990
7A6A 7FFF 200 | H7FFF DC /7FFF CONSTANT K2102000
7A6B F300 201 | HF300 DC /F300 CONSTANT K2102010
7A6C 0680 202 | H0680 DC /0680 CONSTANT K2102020
7A6D 0880 203 | H0880 DC /0880 CONSTANT K2102030
7A6E 5B00 204 | LDXL1 DC /5B00 .LDX L1. K2102040
7A6F 1900 205 | SUBSC DC /1900 .CALL SUBSC. K2102050
7A70 FF80 206 | HFF80 DC /FF80 MASK FOR .CALL SUBPROG. K2102060
207 | * ALSO, .CALL IFIX. MINUS K2102070
208 | * .CALL FLT. K2102080
7A71 FFFD 209 | HFFFD DC /FFFD CONSTANT K2102090
7A72 007F 210 | H007F DC /007F CONSTANT K2102100
7A73 7DBD 211 | GLTBO DC GLABT-1 GENERATED LABEL TBL ORIGIN K2102110
7A74 0000 212 | TEMP1 DC 0 TEMPORARY STORAGE K2102120
7A75 5D00 213 | SBSCL DC /5D00 CONSTANT K2102130
7A76 500C 214 | H500C DC /500C STMNT-ID FOR .SUBIN. K2102140
215 | * (FORMER ID OF INTEGER STMNT) K2102150
216 | * K2102160
7A77 D800 217 | HD800 DC /D800 CONSTANT K2102170
7A78 D004 218 | HD004 DC /D004 CONSTANT K2102180
7A79 8000 219 | H8000 DC /8000 CONSTANT K2102190
7A7A 4F80 220 | H4F80 DC /4F80 CONSTANT K2102200
7A7B 0220 221 | H0220 DC /0220 CONSTANT K2102210
7A7C F000 222 | HF000 DC /F000 STMNT ID DEFN FILE STMNT K2102220
7A7D FFFF 223 | HFFFF DC /FFFF CONSTANT K2102230
7A7E 0000 224 | TEMP3 DC 0 TEMPORARY STORAGE K2102240
7A7F 8000 225 | TEMP4 DC /8000 TEMP4 INITIALLY NEGATIVE K2102250
226 | * K2102260
227 | * TEMPORARIES AND SWITCH FOR SUBPR-INIT K2102270
228 | * WHEN PROGRAM INCLUDES ASF-STATEMNTS K2102280
7A80 0000 229 | TEMP5 DC 0 K2102290
7A81 0000 230 | TEMP6 DC 0 K2102300
7A82 0000 231 | TEMP7 DC 0 K2102310
7A83 0000 232 | ASFSW DC 0 K2102320
7A84 0000 233 | SNTSW DC 0 K2102330
7A85 0000 234 | ASFN DC 0 TEMP STORAGE OF ARITH K2102340
235 | * *STMNT FUNC NAME K2102350
236 | * K2102360
237 | * SUBR .GET SYM TABL ID-WORD. K2102370
238 | * K2102380
7A86 0000 239 | GETST DC 0 SUBROUTINE ENTRY POINT K2102390
7A87 E31B 240 | AND 3 H07FF-Z GET SYM TBL POINTER K2102400
7A88 D008 241 | STO GETS1+1 SAVE K2102410
7A89 C400 7A26 242 | LD L SOFST GET START OF SYM TBL K2102420
7A8B 9005 243 | S GETS1+1 SUBTRACT SYM TBL PT 1 TIME K2102430
7A8C 9004 244 | S GETS1+1 *2 TIMES K2102440
7A8D 9003 245 | S GETS1+1 *3 TIMES K2102450
7A8E 8303 246 | A 3 THREE-Z INCR BY 3 K2102460
7A8F D001 247 | STO GETS1+1 SAVE SYM TBL LOC OF ID WD K2102470
7A90 C400 0000 248 | GETS1 LD L *-* LOAD SYM TBL ID WORD K2102480
7A92 4C80 7A86 249 | BSC I GETST RETURN TO CALLING PROGRAM K2102490
250 | * K2102500
251 | * SUBR. TRACKSWITCH K2102510
252 | * SET UP BR TO LOC SPECIFIED IN THE K2102520
253 | * SUBROUTINE CALLING SEQUENCE DEPENDENT K2102530
254 | * ON THE VALUE IN TR (=1,2 OR 3) K2102540
255 | * K2102550
7A94 0000 256 | TRSW DC 0 LINK K2102560
7A95 C0FE 257 | LD TRSW GET ADDR OF LOC TO BR TO K2102570
7A96 830F 258 | A 3 TR-Z STORED TRACKSW VALUE K2102580
7A97 D001 259 | STO TRSW1+1 SAVE IN LINK RETURN ADDR K2102590
7A98 4C80 0000 260 | TRSW1 BSC I 0 RETURN TO DESIRED LOC. K2102600
261 | * K2102610
262 | * SUBR .NAMETEST. K2102620
7A9A 0000 263 | NAMT DC 0 LINK 76 K2102630
7A9B 9315 264 | S 3 TESTN-Z TESTNAME K2102640
7A9C E31B 265 | AND 3 H07FF-Z K2102650
7A9D 4820 266 | BSC Z SKIP IF SAME K2102660
7A9E 7009 267 | MDX NAMT1 BR IF DIFFERENT K2102670
7A9F 7401 7A65 268 | MDX L LISTL,1 INCR LISTLENGTH K2102680
269 | * K2102690
270 | * TEST IF SUBPROGRAM NAME TRANSFER K2102700
271 | * SWITCH (SNTSW) SET K2102710
272 | * IF SET, OUTPUT LOCTR2, K2102720
273 | * OTHERWISE OUTPUT LOCTR2 + 1 K2102730
274 | * K2102740
7AA1 C0E2 275 | LD SNTSW LD SW K2102750
7AA2 4820 276 | BSC Z SKIP IF SWITCH NO SET K2102760
7AA3 C32F 277 | LD 3 HFFFF-Z LOAD MINUS ONE K2102770
7AA4 8301 278 | A 3 ONE-Z ADD 1 K2102780
7AA5 830B 279 | A 3 LOCC2-Z LOCCTR2 K2102790
7AA6 EB2B 280 | OR 3 H8000-Z TAG TO FACILITATE HANDLING K2102800
7AA7 435C 281 | BSI 3 OUTP-Z OUTPUT K2102810
7AA8 4C80 7A9A 282 | NAMT1 BSC I NAMT RETURN K2102820
283 | * K2102830
284 | * OUTPUT SUBROUTINE K2102840
7AAA 0000 285 | OUTP DC 0 LINK K2102850
7AAB D201 286 | STO 2 1 MOCE CONTENTS ACC K2102860
287 | * *TO OUTPUT STRING K2102870
7AAC 7201 288 | MDX 2 1 INCR O/P POINTER K2102880
7AAD C480 7A66 289 | LD I OUTID GET ID-WD 2-1 K2102890
7AAF E31B 290 | AND 3 H07FF-Z GET NORM 2-1 K2102900
7AB0 8304 291 | A 3 FOUR-Z INCR BY ONE 2-1 K2102910
7AB1 1004 292 | SLA 4 CHECK NORM TOO LARGE 2-3 K2102920
7AB2 4C28 7DC2 293 | BSC L SUBER,+Z BRANCH IF TOO LARGE 2-1 K2102930
7AB4 C480 7A66 294 | LD I OUTID INCR NORM IN K2102940
7AB6 8304 295 | A 3 FOUR-Z *ID-WD K2102950
7AB7 D480 7A66 296 | STO I OUTID *OF OUTPUT STRING K2102960
297 | * K2102970
298 | * TEST IF OSAVE I/P STRING ADDR K2102980
7AB9 6D00 7AC8 299 | STX L1 TIN SAVE O/P STRING ADDR K2102990
7ABB 6E00 7AC9 300 | STX L2 TOUT K2103000
7ABD C335 301 | LD 3 ASFSW-Z AVOID OVERLAP TEST IF K2103010
7ABE 4CA0 7AAA 302 | BSC I OUTP,Z *ASF SWITCH SET K2103020
7AC0 C007 303 | LD TIN GET I/P STRING ADDR K2103030
7AC1 9007 304 | S TOUT SUBTRACT O/P STRING ADDR K2103040
7AC2 4CB0 7AAA 305 | BSC I OUTP,Z- RETURN IF NO OVERLAP ERROR K2103050
306 | * K2103060
307 | * SET OVERLAP ERROR, DISCONTINUE K2103070
7AC4 7420 7A2D 308 | OVERR MDX L ERROR,32 SET OVERLAP ERROR 2-3 K2103080
7AC6 4C00 7DC4 309 | BSC L EXIT BR TO EXIT THIS PHASE K2103090
310 | * K2103100
7AC8 0000 311 | TIN DC 0 TEMP STO OF I/P POINTER XR1 K2103110
7AC9 0000 312 | TOUT DC 0 TEMP STO OF O/P POINTER XR2 K2103120
313 | * K2103130
314 | * K2103140
7ACA 0000 315 | TEMP2 DC 0 TEMP STO I/P POINTER K2103150
316 | * K2103160
7ACB 0000 317 | XIN DC 0 I/P LOCATION POINTER K2103170
7ACC 0000 318 | XOUT DC 0 O/P LOCATION POINTER K2103180
319 | * K2103190
7ACD 6133 320 | ENT LDX 1 PHID LOAD ID THIS PHASE K2103200
7ACE 6D00 0078 321 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2103210
7AD0 C400 7A2D 322 | LD L ERROR LOAD OVERLAP ERR FLAG K2103220
7AD2 4C20 7DC4 323 | BSC L EXIT,Z BR TO EXIT IF OVERLAP ERROR K2103230
324 | * K2103240
7AD4 6700 7A4E 325 | LDX L3 ZERO INITIALIZE TRANSFER VECTOR K2103250
326 | * K2103260
327 | * MOVE STRING TO HIGHER CORE K2103270
328 | * (ADJACENT TO SYMBOL TABLE) K2103280
329 | * K2103290
7AD6 C400 7A25 330 | LD L EOFS LD END OF STRING K2103300
7AD8 9400 7A24 331 | S L SOFS -START OF STRING K2103310
7ADA 8301 332 | A 3 ONE-Z PLUS ONE K2103320
7ADB D02D 333 | STO MOVCT SAVE IN CNT OF NO. WDS K2103330
7ADC 6580 7A2A 334 | LDX I1 EOFST FIND LOC NXT TO SYM TBL K2103340
7ADE 71FA 335 | MDX 1 -6 BUT SIX POSITIONS AWAY K2103350
7ADF 6680 7A25 336 | LDX I2 EOFS PUT ENDO OF STRING PT XR2 K2103360
337 | * K2103370
338 | * TEST OVERLAP K2103380
7AE1 6D00 7ACC 339 | STX L1 XOUT SAVE NEW O/P LOC POINTER K2103390
7AE3 6E00 7ACB 340 | STX L2 XIN SAVE NEW I/P LOC POINTER K2103400
7AE5 C0E6 341 | LD XOUT LD OUTPUT LOC PT K2103410
7AE6 90E4 342 | S XIN LESS INPUT LOC PT K2103420
7AE7 4C30 7AED 343 | BSC L MOVST,-Z BR IF NOT OVERLAP K2103430
7AE9 7420 7A2D 344 | MDX L ERROR,32 SET OVERLAP ERROR 2-3 K2103440
7AEB 4C00 7DC4 345 | BSC L EXIT EXIT FROM THIS PHASE K2103450
346 | * K2103460
7AED C200 347 | MOVST LD 2 0 MOVE STRING ITEM K2103470
7AEE D100 348 | STO 1 0 *FROM I/P STRING TO O/P K2103480
7AEF 72FF 349 | MDX 2 -1 DECR I/P POINTER K2103490
7AF0 71FF 350 | MDX 1 -1 DECR O/P POINTER K2103500
7AF1 74FF 7B09 351 | MDX L MOVCT,-1 DECR WD CNT K2103510
7AF3 70F9 352 | MDX MOVST BR IF NO SKIP TO K2103520
353 | * MOVING OF NEXT ITEM K2103530
7AF4 6680 7A24 354 | LDX I2 SOFS SET XR2 = START OF ORIGINAL K2103540
7AF6 72FF 355 | MDX 2 -1 *STRING-1 (NOW O/P AREA) K2103550
356 | * K2103560
357 | * IF DEFINE FILE OR DATA STATEMENT, K2103570
358 | * MOVE STATEMENT WITHOUT COUNTING K2103580
359 | * LOCATIONS K2103590
360 | * K2103600
7AF7 C101 361 | LDR LD 1 1 LOAD STRING WORD K2103610
7AF8 E307 362 | AND 3 HF800-Z GET ID BITS K2103620
7AF9 932E 363 | S 3 HF000-Z SUBTRACT DEFN FILE ID) K2103630
7AFA 4820 364 | BSC Z SKIP IF ZERO (DEFN FILE) K2103640
7AFB 900E 365 | S DATA SUBTRACT DATA TEST ID K2103650
7AFC 4C20 7B0B 366 | BSC L M1011,Z BR IF NOT DEFN FILE OR DATA K2103660
367 | * K2103670
368 | * MOVE STATEMENT K2103680
7AFE C101 369 | LD 1 1 LD STMNT ID K2103690
7AFF E306 370 | AND 3 H07FC-Z GET NORM COUNT K2103700
7B00 D008 371 | STO MOVCT SAVE WD COUNT K2103710
7B01 7201 372 | LDR1 MDX 2 1 INCR INPUT CTR K2103720
7B02 7101 373 | MDX 1 1 INCR O/P CTR K2103730
7B03 C100 374 | LD 1 0 MOVE WD FROM INPUT AREA K2103740
7B04 D200 375 | STO 2 0 * TO OUTPUT AREA K2103750
7B05 74FC 7B09 376 | MDX L MOVCT,-4 DECR WD CNT BY ONE K2103760
7B07 70F9 377 | MDX LDR1 BR IF NO SKIP K2103770
7B08 70EE 378 | MDX LDR BR BACK TO TEST NXT STMNT K2103780
379 | * K2103790
7B09 0000 380 | MOVCT DC 0 COUNT ON NO. WDS MOVED K2103800
7B0A 0800 381 | DATA DC /F800-/F000 DATA TEST CONSTANT K2103810
382 | * K2103820
383 | * K2103830
384 | * INSERT SIZE OF WORK AREA PLUS K2103840
385 | * SIZE OF CONSTANTS AREA AS INITIAL K2103850
386 | * VALUE OF LOCATION COUNTER K2103860
387 | * (DEFINEFILE AREA IS INCLUDED IN K2103870
388 | * WORK AREA (SOFXT)) K2103880
389 | * K2103890
7B0B C400 7A28 390 | M1011 LD L SOFXT LD SIZE OF WORK AREA K2103900
7B0D 8400 7A29 391 | A L SOFGT ADD SIZE OF CONSTANTS AREA K2103910
7B0F D30A 392 | STO 3 LOCC1-Z SAVE IN LOC COUNTER K2103920
393 | * K2103930
7B10 7101 394 | M1021 MDX 1 1 INCR INPUT POINTER K2103940
7B11 C100 395 | LD 1 0 LD STIRNG WORD K2103950
7B12 E306 396 | AND 3 H07FC-Z STORE NORM K2103960
7B13 D305 397 | STO 3 NORM-Z (STMNT LENGTH COUNTER) K2103970
7B14 C100 398 | LD 1 0 GET STMNT TYPE K2103980
7B15 E307 399 | AND 3 HF800-Z MASK TO GET STMNT ID K2103990
7B16 9308 400 | S 3 H6000-Z FORMAT-TYPE K2104000
7B17 4C18 7B27 401 | BSC L M1031,+- BR IF FORMAT K2104010
7B19 C100 402 | LD 1 0 LOAD STRING WORD K2104020
7B1A E307 403 | AND 3 HF800-Z MASK TO GET STMNT ID K2104030
7B1B 9329 404 | S 3 HD800-Z SUBTRACT CALL INTERNAL O/P K2104040
7B1C 4C20 7B40 405 | BSC L M1051,Z BR IF NOT CALL IO K2104050
406 | * K2104060
407 | * STORE LOCCOUNTER1 FOR LATER USAGE K2104070
408 | * AS ENTRY POINT K2104080
409 | * (FIRST ENCOUNTERED CALL IO STMT) K2104090
410 | * K2104100
7B1E C007 411 | LD SW LD CALL I/O INITLZ SW K2104110
7B1F 4C20 7B24 412 | BSC L M1022,Z BR IF SWITCH SET K2104120
7B21 C30A 413 | LD 3 LOCC1-Z LOAD LOC CTR K2104130
7B22 D331 414 | STO 3 TEMP4-Z SAVE IN TEMP STO K2104140
7B23 6B02 415 | STX 3 SW SET SWITCH K2104150
416 | * K2104160
7B24 7201 417 | M1022 MDX 2 1 INCR O/P POINTER K2104170
7B25 7014 418 | MDX M1042 BR TO MOVE WD TO O/P STRING K2104180
419 | * K2104190
7B26 0000 420 | SW DC 0 SWITCH (INITIALLY ZERO) K2104200
421 | * K2104210
422 | * MOVE FORMAT-STMNT OR CALL-I/O-STMNT K2104220
423 | * UNALTERED TO OUTPUT K2104230
424 | * STRING. ALLOCATE STATEMENT K2104240
425 | * K2104250
7B27 C101 426 | M1031 LD 1 1 LD STMNT NUMBER K2104260
7B28 D202 427 | STO 2 2 SAVE IN O/P STRING K2104270
7B29 4338 428 | BSI 3 GETST-Z GET SYM TBL ID WORD K2104280
7B2A EB02 429 | OR 3 2 .ALLOCATED. K2104290
7B2B D480 7A91 430 | STO I GETS1+1 SAVE IN SYM TBL K2104300
7B2D C100 431 | LD 1 0 LOAD STRING ID WORD K2104310
7B2E 8304 432 | A 3 FOUR-Z INCR NORM CNT K2104320
7B2F D201 433 | STO 2 1 SAVE IN O/P STRING K2104330
7B30 C30A 434 | LD 3 LOCC1-Z LD LOC COUNTER WD 1 K2104340
7B31 D203 435 | STO 2 3 SAVE IN O/P STRING K2104350
7B32 7101 436 | MDX 1 1 INCR I/P POINTER K2104360
7B33 7203 437 | MDX 2 3 INCR O/P POINTER K2104370
7B34 74F8 7A53 438 | MDX L NORM,-8 DECR NORM COUNT K2104380
439 | * K2104390
7B36 7101 440 | M1041 MDX 1 1 INCR I/P POINTER K2104400
7B37 7201 441 | MDX 2 1 INCR O/P POINTER K2104410
7B38 7401 7A58 442 | MDX L LOCC1,1 INCR LOCCOUNTER1 K2104420
7B3A C100 443 | M1042 LD 1 0 MOVE WORD AT INPUT POINTER K2104430
7B3B D200 444 | STO 2 0 *TO OUTPUT STRING K2104440
7B3C 74FC 7A53 445 | MDX L NORM,-4 DECR STATEMENTLENGTHCOUNTER K2104450
7B3E 70F7 446 | MDX M1041 BR IF NO SKIP K2104460
7B3F 70D0 447 | MDX M1021 BR IF SKIP K2104470
448 | * K2104480
449 | * PROCESS A STATEMENT OTHER THAN K2104490
450 | * FORMAT-STATEMENT K2104500
451 | * K2104510
7B40 C100 452 | M1051 LD 1 0 LD I/P STRING ID WD K2104520
7B41 E307 453 | AND 3 HF800-Z GET ID TYPE K2104530
7B42 9309 454 | S 3 HD000-Z TEST ARITH STMNT FUNC TYPE K2104540
7B43 4820 455 | BSC Z SKIP IF ARITH STMNT FUNC K2104550
7B44 7026 456 | MDX M1071 BR IF NOT K2104560
457 | ** K2104570
458 | * PROCESS AN ARITHMETIC STATEMENT K2104580
459 | * FUNCTION STATEMENT K2104590
460 | * K2104600
461 | * K2104610
462 | * STORE POINTERS IN ORDER TO K2104620
463 | * ESTABLISH LATER A PSEUDO STMT-ID-WORD K2104630
464 | * K2104640
7B45 C32A 465 | LD 3 HD004-Z PUT ARITH STMNT FUNC ID WD K2104650
7B46 D201 466 | STO 2 1 *PLUS 1WD NORM IN O/P K2104660
7B47 7201 467 | MDX 2 1 INCR O/P STRING PT K2104670
7B48 6E00 7A66 468 | STX L2 OUTID SAVE O/P STRING ID WD PT K2104680
7B4A 6D00 7ACA 469 | STX L1 TEMP2 SAVE I/P STRING POINTER K2104690
470 | * K2104700
471 | * TEST IF FIRST FOUND ARITH STMNT FUNC K2104710
472 | * IF SO, STORE PT AND LOC FOR USE K2104720
473 | * IN SUBPROG. INITIALIZE STRING CNT K2104730
474 | * K2104740
7B4C C332 475 | LD 3 TEMP5-Z LD ARITH STMNT FUNC FOUND SW K2104750
7B4D 4C20 7B54 476 | BSC L M1052,Z BR IF SET BEFORE K2104760
7B4F 6E00 7A80 477 | STX L2 TEMP5 STORE POINTER K2104770
7B51 C30A 478 | LD 3 LOCC1-Z STORE LOCCTR K2104780
7B52 9301 479 | S 3 ONE-Z SUBTRACT 1 K2104790
7B53 D333 480 | STO 3 TEMP6-Z SAVE IN TEMP STORAGE K2104800
7B54 C101 481 | M1052 LD 1 1 LD STRING WD K2104810
7B55 435C 482 | BSI 3 OUTP-Z PUT ON O/P STRING K2104820
7B56 C30A 483 | LD 3 LOCC1-Z LD LOC COUNTER K2104830
7B57 435C 484 | BSI 3 OUTP-Z PUT ON O/P STRING K2104840
485 | * K2104850
7B58 C101 486 | LD 1 1 LD ARITH STMNT FUNC NAME K2104860
7B59 D337 487 | STO 3 ASFN-Z SAVE K2104870
488 | * K2104880
7B5A 4338 489 | BSI 3 GETST-Z GET SYM TBL ID WORD K2104890
7B5B EB02 490 | OR 3 TWO-Z CON TWO (ALLOCATION BIT) K2104900
7B5C D480 7A91 491 | STO I GETS1+1 SAVE IN SYM TBL ID WORD K2104910
7B5E C30C 492 | M1061 LD 3 H5F00-Z LD CONSTANT BLANK WD K2104920
7B5F 435C 493 | BSI 3 OUTP-Z OUTPUT BLANK K2104930
7B60 7401 7A58 494 | MDX L LOCC1,1 INCR LOCCTR1 K2104940
7B62 1000 495 | NOP TO AVOID SKIPPING 2-10 K2104945
7B63 C300 496 | LD 3 ZERO-Z ZERO TO TRACKSWITCH K2104950
497 | * (0=.ARITH STMNT FUNCTION.) K2104960
7B64 4400 7BAE 498 | BSI L S2011 STRING COUNT K2104970
7B66 C30B 499 | LD 3 LOCC2-Z LOCCTR2 TO K2104980
7B67 D30A 500 | STO 3 LOCC1-Z *LOCCTR1 K2104990
7B68 D334 501 | STO 3 TEMP7-Z SAVE IN TEMP LOC K2105000
7B69 4C00 7B10 502 | BSC L M1021 BR TO GET NXT LOC K2105010
503 | * K2105020
504 | * K2105030
505 | * PROCESS A STATEMENT OTHER THAN K2105040
506 | * ARITHMETIC STATEMENT FUNCTION OR K2105050
507 | * FORMAT K2105060
7B6B C30A 508 | M1071 LD 3 LOCC1-Z LOCCTR1 K2105070
7B6C D400 7A2B 509 | STO L COMON SAVE AS RELATIVE ENTRY PT K2105080
510 | * K2105090
511 | * SAVE XR1 FOR LATER REINITIALIZATION K2105100
7B6E 6D00 7A64 512 | STX L1 TINP SAVE XR1 K2105110
513 | * K2105120
514 | * K2105130
515 | * IF TEMP4 SET, ADDRESS THERE REPLACES K2105140
516 | * ENTRY POINT K2105150
517 | * K2105160
7B70 C331 518 | LD 3 TEMP4-Z LD TEMP4 (=LOCC1 IF SET) K2105170
7B71 4C28 7B75 519 | BSC L M1072,+Z BR IF NOT SET (INITLZ TO -) K2105180
7B73 D400 7A2B 520 | STO L COMON SAVE AS RELATIVE ENTRY PT K2105190
521 | * K2105200
7B75 7101 522 | M1072 MDX 1 1 INCR I/P POINTER K2105210
7B76 C400 7A30 523 | LD L SORF GET SUBR/FUNC FLAG K2105220
7B78 4818 524 | BSC +- SKIP IF THIS IS A SUBPROGRAM K2105230
7B79 702B 525 | MDX M1092 BR IF NOT K2105240
526 | * K2105250
527 | * OUTPUT .CALL SUBIN. WITH ITS K2105260
528 | * ARGUMENTS IF THIS A SUBPROGRAM WITH K2105270
529 | * DUMMY VARIABLES K2105280
530 | * K2105290
531 | * TEST IF DUMMY VAIABLES IN SYM TBL K2105300
532 | * K2105310
7B7A C300 533 | M1081 LD 3 0 ZERO TO DUMMY K2105320
7B7B D30D 534 | STO 3 DUMVC-Z *VARIABLE COUNTER K2105330
7B7C C400 7A26 535 | LD L SOFST GET START OF SYMBOL TABLE K2105340
7B7E D001 536 | STO M1082+1 SAVE K2105350
7B7F C400 0000 537 | M1082 LD L *-* GET FIRST SYM TBL ID WD K2105360
7B81 18DB 538 | RTE 27 SHIFT DUMMY VAR BIT TO SIGN K2105370
7B82 4810 539 | BSC - SKIP IF DUMMY VAR K2105380
7B83 7002 540 | MDX M1083 BR IF NOT K2105390
7B84 7401 7A5B 541 | MDX L DUMVC,1 INCR DUMMY VAR COUNTER K2105400
7B86 18C5 542 | M1083 RTE 5 SHIFT TO GET SYM TBL ID ACC K2105410
7B87 E30E 543 | AND 3 H1800-Z MASK FOR DIMENSION BITS K2105420
7B88 4830 544 | BSC -Z SKIP IF NOT DIMENSIONED K2105430
7B89 C323 545 | LD 3 HFFFD-Z LD -3 CONSTANT FOR DIM VAR K2105440
7B8A 8323 546 | A 3 HFFFD-Z ADD -3 CON FOR SYM TBL ENTRY K2105450
7B8B 80F4 547 | A M1082+1 ADD CURRENT SYM TBL ID ADDR K2105460
7B8C D0F3 548 | STO M1082+1 SAVE ID ADDR OF NXT ID K2105470
7B8D 9400 7A2A 549 | S L EOFST SUBTRACT END OF SYM TBL K2105480
7B8F 4830 550 | BSC -Z SKIP IF END OF SYM TBL K2105490
7B90 70EE 551 | MDX M1082 BR IF NOT K2105500
7B91 C30D 552 | LD 3 DUMVC-Z DUMMY VAR COUNTER K2105510
7B92 4820 553 | BSC Z SKIP IF SUBP HAS NO DUMMY K2105520
554 | * *VARIABLES K2105530
7B93 7009 555 | MDX M1085 BR IF IT HAS K2105540
556 | * OUTPUT .BLANK. STATEMENT K2105550
557 | * STMNT-ID SAME AS FORMAT, K2105560
558 | * SSTMNT BODY ONE ZERO-WORD K2105570
559 | * (WHICH IS LINK WORD AT OBJECT K2105580
560 | * TEME) K2105590
7B94 C311 561 | LD 3 H6008-Z LD ID WD W/ NORM =2 K2105600
7B95 D201 562 | STO 2 1 PUT ON O/P STRING K2105610
7B96 C300 563 | LD 3 ZERO-Z LD ZERO WD K2105620
7B97 D202 564 | STO 2 2 PUT ON O/P STRING K2105630
7B98 7202 565 | MDX 2 2 INCR OUTPUT POINTER K2105640
7B99 7401 7A58 566 | MDX L LOCC1,1 INCR LOCATION COUNTER K2105650
7B9B 1000 567 | NOP TO AVOID SKIPPING 2-10 K2105655
7B9C 7008 568 | MDX M1092 BR TO CONTINUE K2105660
7B9D 8302 569 | M1085 A 3 TWO-Z PUT NO. DUMMY VAR +2 K2105670
7B9E D317 570 | STO 3 LISTL-Z *IN LIST LENGTH K2105680
7B9F C301 571 | M1091 LD 3 ONE-Z .ONE. TO TRACKSWITCH K2105690
572 | * (1=.SUBPROGR. INITIALIZ..) K2105700
7BA0 400D 573 | BSI S2011 STRING COUNT SUBR K2105710
7BA1 C30A 574 | LD 3 LOCC1-Z GET LOC COUNTER K2105720
7BA2 8301 575 | A 3 ONE-Z INCR BY 1 K2105730
7BA3 8317 576 | A 3 LISTL-Z INCR BY LIST LENGTH K2105740
7BA4 D30A 577 | STO 3 LOCC1-Z SAVE IN LOC COUNTER K2105750
7BA5 C302 578 | M1092 LD 3 TWO-Z TWO TO TRACKSWITCH K2105760
579 | * (2=.STATEMENT ALLOC..) K2105770
7BA6 4007 580 | BSI S2011 STRING COUNT SUBR K2105780
581 | * K2105790
582 | * STORE PROGRAM LENGTH K2105800
583 | * MAKING IT EVEN K2105810
7BA7 C30B 584 | LD 3 LOCC2-Z LD LOC CTR K2105820
7BA8 4804 585 | BSC E SKIP IF EVEN K2105830
7BA9 8301 586 | A 3 ONE-Z ADD 1 K2105840
7BAA D400 7A27 587 | STO L SOFNS SAVE IN PROG LENGTH K2105850
7BAC 4C00 7DC4 588 | BSC L EXIT BR TO EXIT FR THIS PHASE K2105860
589 | * K2105870
590 | * K2105880
591 | *************************************************** K2105890
592 | * K2105900
593 | * SUBR .STRING COUNT. K2105910
594 | * K2105920
595 | * THIS SUBROUTINE PERFORMS THREE K2105930
596 | * DIFFERENT TASKS DEPENDING ON THE K2105940
597 | * SETTING OF TRACKSWITCH K2105950
598 | * K2105960
599 | * IF TRACKSWITCH = 0 K2105970
600 | * IT INITIALIZES AN ARITHMETIC STATE- K2105980
601 | * MENT FUNCTION STATEMENT K2105990
602 | * (OUTPUTS .CALL SUBIN. WITH K2106000
603 | * ARGUMENTS) K2106010
604 | * K2106020
605 | * IF TRACKSWITCH = 1 K2106030
606 | * IT INITIALIZES SUBPROGRAM K2106040
607 | * (OUTPUTS .CALL SUBIN. WITH K2106050
608 | * ARGUMENTS) K2106060
609 | * K2106070
610 | * IF TRACKSWITCH = 2 K2106080
611 | * IT ALLOCATES STATEMENTS K2106090
612 | * AND MOVES THE STRING K2106100
613 | * INSERTING ALLOCATIONS TO FOLLOW K2106110
614 | * STATEMENT NUMBERS IN LABELED STMNTS K2106120
615 | * K2106130
616 | *************************************************** K2106140
7BAE 0000 617 | S2011 DC 0 LINK K2106150
7BAF D30F 618 | STO 3 TR-Z STORE TRACKSWITCH K2106160
7BB0 C30A 619 | LD 3 LOCC1-Z LOCCTR1 K2106170
7BB1 D30B 620 | STO 3 LOCC2-Z *TO LOCCTR2 K2106180
7BB2 4346 621 | BSI 3 TRSW-Z TRACKSWITCH K2106190
7BB3 7C2B 622 | DC S2061 ARITH STMNT FUNCTION K2106200
7BB4 7BB6 623 | DC S2021 SUBPROGRAM INITILIZATION K2106210
7BB5 7C68 624 | DC S2091 STMNT ALLOCATION K2106220
625 | * K2106230
7BB6 C400 7A26 626 | S2021 LD L SOFST INITLZ DUMMY VAR POINTER K2106240
7BB8 D310 627 | STO 3 DUMVP-Z *IN SYMBOL TABLE K2106250
7BB9 C300 628 | LD 3 0 *AND SYM TBL ADDR K2106260
7BBA D313 629 | STO 3 STADR-Z *COUNTER K2106270
7BBB 6580 7A64 630 | LDX I1 TINP INITIALIZE INPUT POINTER K2106280
631 | * K2106290
632 | * INITIALIZE OUTPUT STMNT K2106300
7BBD C328 633 | LD 3 H500C-Z MOVE STMNT ID 'SUBR INITLZ' K2106310
7BBE D201 634 | STO 2 1 * TO OUTPUT ID WORD K2106320
7BBF 7201 635 | MDX 2 1 INCR OUTPUT POINTER K2106330
7BC0 6E00 7A66 636 | STX L2 OUTID STORE ADDR OF OUTPUT-ID K2106340
7BC2 C312 637 | LD 3 SUBIN-Z .CALL SUBIN. K2106350
7BC3 D202 638 | STO 2 2 TO OUTPUT STRING K2106360
7BC4 C30C 639 | LD 3 H5F00-Z * TO OUTPUT STRING K2106370
7BC5 D201 640 | STO 2 1 K2106380
7BC6 7203 641 | MDX 2 3 INCR OUTPUT POINTER K2106390
7BC7 6E00 7C02 642 | STX L2 S2052+1 STORE ADDR OF BEGINNING OF K2106400
643 | * *LIST ON OUTPUT STRING K2106410
7BC9 72FF 644 | MDX 2 -1 K2106420
7BCA 7402 7A59 645 | MDX L LOCC2,2 DECR O/P POINTER K2106430
7BCC 1000 646 | NOP TO AVOID SKIPPING 2-10 K2106435
7BCD C30D 647 | S2031 LD 3 DUMVC-Z INCR LOC COUNTER K2106440
7BCE 4808 648 | BSC + SKIP IF NOT ZERO K2106450
7BCF 702C 649 | MDX S2051 BR IF ZERO K2106460
7BD0 9301 650 | S 3 ONE-Z K2106470
7BD1 D30D 651 | STO 3 DUMVC-Z DUMMY VAR COUNTER K2106480
7BD2 7401 7A61 652 | S2032 MDX L STADR,1 INCR SYM TBL ADDR COUNTER K2106490
7BD4 C480 7A5E 653 | LD I DUMVP LD DUMMY VAR PT FR SYM TBL K2106500
7BD6 18DB 654 | RTE 27 SHIFT BIT TO SIGN POS K2106510
7BD7 4810 655 | BSC - SKIP IF DUMMY VAR K2106520
7BD8 7018 656 | MDX S2041 BR IF NOT K2106530
7BD9 18C5 657 | RTE 5 SHIFT ID WD TO ORIGINAL POS K2106540
658 | * K2106550
7BDA 1008 659 | SLA 8 SHIFT SUBP NAME BIT TO SIGN K2106560
7BDB 4C10 7BE1 660 | BSC L S203Y,- BR IF NOT SUBPROGRAM NAME K2106570
7BDD 7401 7A65 661 | MDX L LISTL,1 INCR LIST LENGTH K2106580
7BDF 7401 7A84 662 | MDX L SNTSW,1 SET SWITCH K2106590
663 | * K2106600
7BE1 C313 664 | S203Y LD 3 STADR-Z LD SYM TBL ADDR COUNTER K2106610
7BE2 D315 665 | STO 3 TESTN-Z TESTNAME K2106620
666 | * K2106630
667 | * TEST IF PROGRAM INCLUDES ASF STMNTS K2106640
668 | * IF IT DOES, SPECIAL-INITIALIZE K2106650
669 | * K2106660
7BE3 C333 670 | S203X LD 3 TEMP6-Z K2106670
7BE4 4C18 7BED 671 | BSC L S2033,+- BR IF PROGR INCLUDES NO ASF K2106680
7BE6 D30B 672 | STO 3 LOCC2-Z INITIALIZE LOCCTR K2106690
7BE7 6580 7A80 673 | LDX I1 TEMP5 INITIALIZE POINTER K2106700
7BE9 7401 7A83 674 | MDX L ASFSW,1 SET SWITCH K2106710
7BEB 4C00 7C7A 675 | BSC L S2093 BR TO PROCESS ASF K2106720
676 | * K2106730
7BED C30A 677 | S2033 LD 3 LOCC1-Z LOCCTR1 K2106740
7BEE D30B 678 | STO 3 LOCC2-Z *TO LOCCTR2 K2106750
7BEF 4C00 7C77 679 | BSC L S2092 BR TO ALLOCATE STMNT K2106760
680 | * K2106770
7BF1 18C5 681 | S2041 RTE 5 PUT SYM TBL ID WD ALL IN ACC K2106780
7BF2 E30E 682 | AND 3 H1800-Z TEST FOR DIMENSIONED VAR K2106790
7BF3 4C18 7BF8 683 | BSC L S2042,+- BR IF NONE K2106800
7BF5 7401 7A61 684 | MDX L STADR,1 INCR SYM TBL ADDR COUNTER K2106810
7BF7 C323 685 | LD 3 HFFFD-Z GET -3 FOR DIM VAR IN SYMTBL K2106820
7BF8 8323 686 | S2042 A 3 HFFFD-Z INCR BY -3 SYM TBL CONSTANTS K2106830
7BF9 8310 687 | A 3 DUMVP-Z ADD DUMMY VAR PT K2106840
7BFA D310 688 | STO 3 DUMVP-Z SAVE IN DUMMY VAR PT K2106850
7BFB 70D6 689 | MDX S2032 BR TO PROCESS NXT VAR K2106860
7BFC C30B 690 | S2051 LD 3 LOCC2-Z INCR LOCCTR2 BY LIST LENGTH K2106870
7BFD 8317 691 | A 3 LISTL-Z LISTLENGTH K2106880
7BFE D30B 692 | STO 3 LOCC2-Z SAVE K2106890
7BFF C301 693 | LD 3 ONE-Z OUTPUT CONSTANT ONE K2106900
7C00 435C 694 | BSI 3 OUTP-Z BR TO O/P SUBR K2106910
695 | * K2106920
696 | * NOTE K2106930
697 | * XR2 IS NOT RESTORED, SINCE IT K2106940
698 | * WILL GET CORRECT VALUE IN K2106950
699 | * THE PROCESS OF CORRECTING K2106960
700 | * ARGUMENTS OF .SUBIN. K2106970
701 | * K2106980
7C01 6600 0000 702 | S2052 LDX L2 *-* XR2=START OF LIST-O/P STRING K2106990
703 | * K2107000
7C03 C200 704 | S205X LD 2 0 LD LIST ITEM K2107010
7C04 4818 705 | BSC +- SKIP IF LIST ITEM NONZERO K2107020
7C05 700E 706 | MDX S2053 BR IF ZERO K2107030
7C06 1881 707 | SRT 1 SHIFT OUT 1 BIT K2107040
7C07 4C20 7C0C 708 | BSC L S205Y,Z BR IF LISTITEM NOT .ONE. K2107050
709 | * K2107060
710 | * END OF SUBIN ARGUMENTS K2107070
7C09 4346 711 | BSI 3 TRSW-Z TRACKSWITCH K2107080
7C0A 7C16 712 | DC S2054 ARITH STMNT FUNCTION K2107090
7C0B 7C29 713 | DC S2059 SUBPROGRAM INITIALIZE K2107100
714 | * K2107110
715 | * INCR .SUBIN. ARGUMENTS IF GT TEMP7 K2107120
7C0C C200 716 | S205Y LD 2 0 LD ARGUMENT K2107130
7C0D E31C 717 | AND 3 H7FFF-Z REMOVE SIGN BIT K2107140
7C0E 9334 718 | S 3 TEMP7-Z SUBTRACT TEMP7 K2107150
7C0F 4C28 7C14 719 | BSC L S2053,+Z BR IF LT TEMP7 K2107160
7C11 C317 720 | LD 3 LISTL-Z INCR VALUE K2107170
7C12 8200 721 | A 2 0 *IN ARGUMENT LIST K2107180
7C13 D200 722 | STO 2 0 *BY LIST LENGTH K2107190
723 | * K2107200
7C14 7201 724 | S2053 MDX 2 1 INCR ARGUMENT POINTER K2107210
7C15 70ED 725 | MDX S205X BR TO TEST NXT LIST ITEM K2107220
726 | * K2107230
727 | * MOVE THE BODY OF K2107240
728 | * ARITH STMNT FUNCTION K2107250
729 | * K2107260
7C16 6580 7A64 730 | S2054 LDX I1 TINP LD START OF STMNT XR1 K2107270
7C18 C100 731 | LD 1 0 LD STMNT ID WD K2107280
7C19 E306 732 | AND 3 H07FC-Z MASK TO GET NORM K2107290
7C1A 9304 733 | S 3 FOUR-Z DECR BY 1 K2107300
7C1B D305 734 | STO 3 NORM-Z SAVE NORM K2107310
7C1C 43F4 735 | S2057 BSI 3 INCPT-Z BR TO INCR I/P POINTER K2107320
7C1D C100 736 | LD 1 0 LOAD STRING WORD K2107330
7C1E 435C 737 | BSI 3 OUTP-Z BR TO PUT ON O/P STRING K2107340
738 | * K2107350
7C1F C305 739 | S2058 LD 3 NORM-Z LD NORM K2107360
7C20 4C30 7C1C 740 | BSC L S2057,Z- BR IF NORM POSITIVE K2107370
7C22 C32C 741 | LD 3 H4F80-Z LD CODE FOR BSC I W/NAME K2107380
7C23 435C 742 | BSI 3 OUTP-Z BR TO O/P CODE K2107390
7C24 C337 743 | LD 3 ASFN-Z LD ARITH STMNT FUNC NAME K2107400
7C25 435C 744 | BSI 3 OUTP-Z BR TO O/P NAME K2107410
7C26 7402 7A59 745 | MDX L LOCC2,2 INCR LOCATION COUNTER K2107420
7C28 1000 746 | NOP TO AVOID SKIPPING 2-10 K2107425
747 | * K2107430
7C29 4C80 7BAE 748 | S2059 BSC I S2011 RETURN K2107440
749 | * K2107450
750 | * K2107460
751 | * ARITHMETIC STATEMENT FUNCTION INIT. K2107470
752 | * K2107480
7C2B 7101 753 | S2061 MDX 1 1 INCR I/P POINTER K2107490
7C2C 6D00 7A5E 754 | STX L1 DUMVP INITIAL DUMMY VAR POINTER K2107500
7C2E C300 755 | LD 3 ZERO-Z CLEAR K2107510
7C2F D30D 756 | STO 3 DUMVC-Z *DUMMY VAR COUNTER K2107520
7C30 7101 757 | S2062 MDX 1 1 INCR I/P POINTER K2107530
758 | * K2107540
759 | * MOVE DUMMY ARGUMENTS ONE STEP K2107550
760 | * TO MAKE ROOM FOR PSEUDO STMNT-ID K2107560
761 | * K2107570
7C31 C100 762 | LD 1 0 LD STRING WD K2107580
7C32 D1FF 763 | STO 1 -1 MOVE TO CURRENT LOC-1 K2107590
764 | * K2107600
7C33 4810 765 | BSC - SKIP IF (DUMMY ARGUMENT) K2107610
766 | * *NAME OR PACKED INSTRUCTION K2107620
7C34 7006 767 | MDX S2063 BR IF NOT K2107630
7C35 E3FD 768 | AND 3 H7800-Z MASK NAME ID BITS K2107640
7C36 4820 769 | BSC Z SKIP IF DUMMY ARGUMENT NAME K2107650
7C37 7003 770 | MDX S2063 BR IF NOT K2107660
7C38 7401 7A5B 771 | MDX L DUMVC,1 INCR DUMMY VAR COUNT K2107670
7C3A 70F5 772 | MDX S2062 BR TO GET NXT VAR K2107680
773 | * K2107690
7C3B C30D 774 | S2063 LD 3 DUMVC-Z DUMMY VAR COUNTER + 1 K2107700
7C3C 8301 775 | A 3 ONE-Z *TO LIST K2107710
7C3D D317 776 | STO 3 LISTL-Z *LENGTH K2107720
7C3E 71FF 777 | MDX 1 -1 DECR I/P COUNTER K2107730
7C3F 6D00 7A64 778 | STX L1 TINP INSERT STORED INITIAL VALUE K2107740
779 | * *OF TEMPORARY I/P POINTER K2107750
780 | * K2107760
781 | * PRODUCE PSEUDO-STMNT-ID WHICH IS K2107770
782 | * REQUIRED BY OTHER PARTS OF THIS K2107780
783 | * ROUTINE K2107790
784 | * (FOR HANDLING NORM PROPERLY K2107800
785 | * K2107810
7C41 C37C 786 | LD 3 TEMP2-Z LD START OF STMNT PT K2107820
7C42 9316 787 | S 3 TINP-Z SUBTRACT VAL OF I/P POINTER K2107830
7C43 1002 788 | SLA 2 SHIFT TO INCR NORM COUNT K2107840
7C44 8480 7ACA 789 | A I TEMP2 INCR NORM COUNT OF STMNT ID K2107850
7C46 D100 790 | STO 1 0 SAVE IN I/P STRING K2107860
791 | * K2107870
7C47 C312 792 | LD 3 SUBIN-Z LD .SUBIN. ID WD K2107880
7C48 435C 793 | BSI 3 OUTP-Z OUTPUT .CALL SUBIN. K2107890
794 | * K2107900
795 | * STORE LOCATION COUNTER FOR REINITIAL K2107910
7C49 C30B 796 | LD 3 LOCC2-Z LD LOC COUNTER K2107920
7C4A D330 797 | STO 3 TEMP3-Z SAVE K2107930
798 | * K2107940
799 | * INSERT ADDR F BEGINNING OF K2107950
800 | * ARGUMENT LIST K2107960
801 | * K2107970
7C4B 7201 802 | MDX 2 1 INCR O/P POINTER K2107980
7C4C 6E00 7C02 803 | STX L2 S2052+1 SAVE O/P ADDR K2107990
7C4E 72FF 804 | MDX 2 -1 DECR O/P POINTER K2108000
805 | * K2108010
7C4F C30D 806 | S2081 LD 3 DUMVC-Z DUMMY VAR COUNTER K2108020
7C50 4808 807 | BSC + SKIP IF NOT ZERO K2108030
7C51 70AA 808 | MDX S2051 BR IF ZERO (=END OF LIST) K2108040
7C52 9301 809 | S 3 ONE-Z DECR DUMMY VAR COUNTER K2108050
7C53 D30D 810 | STO 3 DUMVC-Z SAVE K2108060
7C54 C480 7A5E 811 | LD I DUMVP DUMMY VAR TO .TESTNAME. K2108070
7C56 D315 812 | STO 3 TESTN-Z SAVE K2108080
7C57 4338 813 | BSI 3 GETST-Z BR TO GET SYM TBL ID WD. K2108090
7C58 43EA 814 | BSI 3 SUBPR-Z TEST IF SUBP NAME K2108100
815 | * K2108110
816 | * 'ERASE' DUMMY VAR NAME IN SYM TBL TO K2108120
817 | * AVOID MIXUP WITH SUBPROGRAM DUMMIES K2108130
818 | * K2108140
7C59 C32D 819 | LD 3 H0220-Z LD STMNT NO, DEFN VAR FLAG K2108150
7C5A D480 7A91 820 | STO I GETS1+1 SAVE AS SYM TBL ID WD. K2108160
821 | * K2108170
7C5C 7401 7A5E 822 | MDX L DUMVP,1 INCR DUMMY VAR.POINTER K2108180
823 | * K2108190
824 | * RESET LOCATION COUNTER K2108200
7C5E C330 825 | LD 3 TEMP3-Z LD WD FROM TEMP STORAGE K2108210
7C5F D30B 826 | STO 3 LOCC2-Z SAVE K2108220
827 | * K2108230
7C60 7016 828 | MDX S2092 CONTINUE K2108240
829 | * K2108241
830 | * TEST OVERLAP ROUTINE K2108242
831 | * K2108243
7C61 0000 832 | OVTST DC *-* LINK 2-4 K2108244
7C62 C316 833 | LD 3 TINP-Z CHECK IF 2-4 K2108245
7C63 937B 834 | S 3 TOUT-Z OVERLAP 2-4 K2108246
7C64 4C08 7AC4 835 | BSC L OVERR,+ BRANCH IF YES 2-4 K2108247
7C66 4C80 7C61 836 | BSC I OVTST RETURN IF NO 2-4 K2108248
837 | * K2108249
838 | * K2108250
7C68 6580 7A64 839 | S2091 LDX I1 TINP SET INPUT POINTER K2108260
840 | * K2108270
841 | * TEST IF FIRST STATEMENT IS AN K2108280
842 | * .END.-STATEMENT K2108290
843 | * K2108300
7C6A 40F6 844 | BSI OVTST TEST OVERLAP 2-4 K2108305
7C6B C100 845 | LD 1 0 LD STMNT ID WD K2108310
7C6C E307 846 | AND 3 HF800-Z MASK TO GET TYPE BITS. K2108320
7C6D 931A 847 | S 3 H1000-Z SUBTRACT END STMNT ID K2108330
7C6E 4C18 7CDA 848 | BSC L S2132,+- BR IF END STATEMENT K2108340
849 | * K2108350
7C70 C100 850 | LD 1 0 OUTPUT ID-WD (NORM=4) K2108360
7C71 E319 851 | AND 3 HF803-Z MASK ID BITS K2108370
7C72 8304 852 | A 3 FOUR-Z COMPUTE NORM = 4 K2108380
7C73 7201 853 | MDX 2 1 INCR O/P POINTER K2108390
7C74 D200 854 | STO 2 0 STORE IN OUTPUT STRING K2108400
7C75 6E00 7A66 855 | STX L2 OUTID STORE ADDR OF OUTPUT-ID K2108410
7C77 6580 7A64 856 | S2092 LDX I1 TINP INITIAL I/P POINTER K2108420
7C79 40E7 857 | BSI OVTST TEST OVERLAP 2-4 K2108425
7C7A C100 858 | S2093 LD 1 0 INITIALIZE STMNT LENGTH K2108430
7C7B E306 859 | AND 3 H07FC-Z *COUNTER K2108440
7C7C D305 860 | STO 3 NORM-Z *(NORM) K2108450
7C7D 4346 861 | BSI 3 TRSW-Z TRACKSWITCH K2108460
7C7E 7C96 862 | DC S2106 ARITH STMNT FUNC K2108470
7C7F 7C81 863 | DC S2101 SUBP INITIALIZATION K2108480
7C80 7C81 864 | DC S2101 STMNT ALLOCATION K2108490
7C81 C335 865 | S2101 LD 3 ASFSW-Z GET ASF SW K2108500
7C82 4C20 7CA4 866 | BSC L S2115,Z BR IF ASF SW SET K2108510
7C84 C100 867 | LD 1 0 LD STMNT ID WD K2108520
7C85 4804 868 | BSC E SKIP IF STMNT HAS NO LABEL K2108530
7C86 7001 869 | MDX S2102 BR IF IT HAS K2108540
7C87 700E 870 | MDX S2106 BR TO INCR I/P POINTER K2108550
7C88 4346 871 | S2102 BSI 3 TRSW-Z TRACKSWITCH K2108560
7C89 7C95 872 | DC S2104 ARITH STMNT FUNC K2108570
7C8A 7C95 873 | DC S2104 SUBP INITIALIZATION K2108580
7C8B 7C8C 874 | DC S2103 STMNT ALLOCATION K2108590
7C8C C101 875 | S2103 LD 1 1 GET STMNT ID K2108600
7C8D 435C 876 | BSI 3 OUTP-Z PUT IN O/P STRING K2108610
7C8E C101 877 | LD 1 1 GET SYM TBL ID OF STMNT NAME K2108620
7C8F 4338 878 | BSI 3 GETST-Z INSERT ALLOCATION BIT K2108630
7C90 EB02 879 | OR 3 2 K2108640
7C91 D480 7A91 880 | STO I GETS1+1 SAVE BACK IN SYM TBL K2108650
7C93 C30B 881 | LD 3 LOCC2-Z GET LOC CTR K2108660
7C94 435C 882 | BSI 3 OUTP-Z PUT ON O/P STRING K2108670
7C95 43F4 883 | S2104 BSI 3 INCPT-Z INCR INPUT POINTER K2108680
7C96 43F4 884 | S2106 BSI 3 INCPT-Z INCR INPUT POINTER K2108690
7C97 C305 885 | S2111 LD 3 NORM-Z STMNT COUNTER (FR NORM) K2108700
7C98 4830 886 | BSC Z- SKIP IF END OF STMNT K2108710
7C99 7059 887 | MDX S2141 BR IF NOT K2108720
7C9A 4346 888 | BSI 3 TRSW-Z TRACKSWITCH K2108730
7C9B 7C9E 889 | DC S2112 ARITH STMNT FUNC K2108740
7C9C 7CA6 890 | DC S2121 SUBP INITIALIZATION K2108750
7C9D 7CA6 891 | DC S2121 STATEMENT ALLOCATION K2108760
7C9E C300 892 | S2112 LD 3 0 LD A CONSTANT ZERO K2108770
7C9F 435C 893 | BSI 3 OUTP-Z PUT IN O/P STRING K2108780
7CA0 7401 7A59 894 | MDX L LOCC2,1 INCR LOC COUNTER K2108790
7CA2 1000 895 | NOP TO AVOID SKIPPING 2-10 K2108795
7CA3 70AB 896 | MDX S2081 BR TO TEST DUMMY VAR COUNTER K2108800
897 | * K2108810
898 | * ASF SWITCH SET, INCR INPUT POINTER K2108820
899 | * ONE EXTRA WORD (ALLOCATION IS ON STR) K2108830
900 | * K2108840
7CA4 43F4 901 | S2115 BSI 3 INCPT-Z BR TO INCR I/P POINTER ONCE K2108850
7CA5 70EF 902 | MDX S2104 BR TO CONTINUE TO INCR PT K2108860
903 | * K2108870
904 | * TEST IF SWITCH SET (IF I/P PT REFERS K2108880
905 | * TO ASF-STTMNT IN OUTPUT STRING) K2108890
906 | * K2108900
7CA6 C335 907 | S2121 LD 3 ASFSW-Z GET ASF SW K2108910
7CA7 4C20 7CBD 908 | BSC L S2124,Z BR IF SWITCH SET K2108920
909 | * K2108930
7CA9 C100 910 | LD 1 0 LD STMNT ID WD K2108940
7CAA E307 911 | AND 3 HF800-Z GET STMNT TYPE K2108950
7CAB 931A 912 | S 3 H1000-Z SUBTRACT.END.STMNT CON K2108960
7CAC 4818 913 | BSC +- SKIP IF NXT STMNT NOT .END. K2108970
7CAD 7028 914 | MDX S2131 BR IF .END. K2108980
7CAE C100 915 | LD 1 0 INITIALIZE STMNT LENGTH K2108990
7CAF E306 916 | AND 3 H07FC-Z *COUNTER K2109000
7CB0 D305 917 | STO 3 NORM-Z *(NORM) K2109010
7CB1 4346 918 | BSI 3 TRSW-Z TRACKSWITCH K2109020
7CB2 7C81 919 | DC S2101 ARITH STMNT FUNC K2109030
7CB3 7C81 920 | DC S2101 SUBPR INITIALIZATION K2109040
7CB4 7CB5 921 | DC S2122 STATEMENT ALLOCATION K2109050
7CB5 C100 922 | S2122 LD 1 0 O/P NXT ID K2109060
7CB6 E319 923 | AND 3 HF803-Z INITIALIZE NORM K2109070
7CB7 8304 924 | A 3 FOUR-Z COMPUTE NORM = 4 K2109080
7CB8 D201 925 | STO 2 1 SAVE IN O/P STRING K2109090
7CB9 7201 926 | MDX 2 1 INCR O/P STRING POINTER K2109100
7CBA 6E00 7A66 927 | STX L2 OUTID SAVE OUTPUT ID WORD K2109110
7CBC 70C4 928 | MDX S2101 BR TO CONTINUE K2109120
929 | * K2109130
930 | * HANDLE ASF- AND FORMAT STAEMENTS K2109140
931 | * AT SUBPROGRAM INITIALIZE STRING COUNT K2109150
932 | * K2109160
7CBD C100 933 | S2124 LD 1 0 LD I/P STRING ID WORD K2109170
7CBE E307 934 | AND 3 HF800-Z MASK TYPE BITS K2109180
7CBF 9308 935 | S 3 H6000-Z SUBTRACT FORMAT TYPE CON K2109190
7CC0 4C20 7CCC 936 | BSC L S2126,Z BR IF STMNT NOT FORMAT K2109200
937 | * K2109210
938 | * MOVE POINTER TO NEXT STATEMENT K2109220
939 | * AND COUNT IN LOCATION COUNTER K2109230
940 | * K2109240
7CC2 C100 941 | LD 1 0 LD ID WORD K2109250
7CC3 E306 942 | AND 3 H07FC-Z MASK TO GET STMNT NORM K2109260
7CC4 1802 943 | SRA 2 RIGHT JUSTIFY K2109270
7CC5 D004 944 | STO S2125+1 SAVE NORM COUNT K2109280
7CC6 9303 945 | S 3 THREE-Z DO NOT COUNT ID WORD, K2109290
946 | * STMNT NO. AND ALLOCATION K2109300
7CC7 830B 947 | A 3 LOCC2-Z INCR LOC COUNTER K2109310
7CC8 D30B 948 | STO 3 LOCC2-Z SAVE IN LOC COUNTER K2109320
7CC9 7500 0000 949 | S2125 MDX L1 *-* TEST FOR ZERO NORM K2109330
7CCB 70F1 950 | MDX S2124 BR IF NOT ZERO K2109340
951 | * K2109350
7CCC 93FC 952 | S2126 S 3 H7000-Z 'D000' - '6000' K2109360
7CCD 4C18 7C7A 953 | BSC L S2093,+- BR IF ASF K2109370
954 | * K2109380
955 | * SWITCH POINTER TO REFER TO INPUT K2109390
956 | * STRING, CHANGE SWITCH K2109400
957 | * K2109410
7CCF C300 958 | LD 3 ZERO-Z CLEAR K2109420
7CD0 D335 959 | STO 3 ASFSW-Z *ASF SW K2109430
7CD1 C30A 960 | LD 3 LOCC1-Z MOVE LOC K2109440
7CD2 D30B 961 | STO 3 LOCC2-Z *COUNTER K2109450
7CD3 6580 7A64 962 | LDX I1 TINP LD INPUT POINTER K2109460
7CD5 70A4 963 | MDX S2093 BR K2109470
964 | * K2109480
7CD6 4346 965 | S2131 BSI 3 TRSW-Z TRACKSWITCH K2109490
7CD7 7CE1 966 | DC S2133 *SHOULD NEVER USE K2109500
7CD8 7CE1 967 | DC S2133 SUBP INITIALIZATION K2109510
7CD9 7CDA 968 | DC S2132 STMNT ALLOCATION K2109520
969 | * K2109530
970 | * OUTPUT .END.-STATEMENT K2109540
7CDA C100 971 | S2132 LD 1 0 LD .END. WORD K2109550
7CDB D201 972 | STO 2 1 PUT IN O/P STRING K2109560
7CDC 7202 973 | MDX 2 2 INCR O/P POINTER K2109570
7CDD 6E00 7A25 974 | STX L2 EOFS INSERT END-OF-STRING K2109580
7CDF 4C80 7BAE 975 | BSC I S2011 RETURN K2109590
976 | * K2109600
7CE1 C300 977 | S2133 LD 3 ZERO-Z OUTPUT K2109610
7CE2 435C 978 | BSI 3 OUTP-Z CONSTANT ZERO K2109620
979 | * K2109630
980 | * IF SUBPROG NAME TRANSFER SWITCH K2109640
981 | * (SNTSW) SET, RUN SAME DUMMY VARIABLE K2109650
982 | * NAME ONCE MORE K2109660
7CE3 C336 983 | LD 3 SNTSW-Z LD TRANSFER SW K2109670
7CE4 4C18 7CEA 984 | BSC L S2134,+- BR IF SW NOT SET K2109680
7CE6 C300 985 | LD 3 ZERO-Z ZERO TO SWITCH K2109690
7CE7 D336 986 | STO 3 SNTSW-Z K2109700
7CE8 4C00 7BE3 987 | BSC L S203X BR BACK K2109710
7CEA C30D 988 | S2134 LD 3 DUMVC-Z DUMMY VAR COUNTER K2109720
7CEB 4C18 7BFC 989 | BSC L S2051,+- BR IF COUNT IS ZERO K2109730
7CED 9301 990 | S 3 ONE-Z DECR DUMMY VAR COUNTER K2109740
7CEE D30D 991 | STO 3 DUMVC-Z K2109750
7CEF C480 7A5E 992 | LD I DUMVP GET DUMMY VAR NAME K2109760
7CF1 4C00 7BF2 993 | BSC L S2041+1 TO BRANCH TO S2031 PRECEDED K2109770
994 | * BY MOVING DUMMY VAR POINTER K2109780
7CF3 C100 995 | S2141 LD 1 0 LD STRING I/P WORD K2109790
7CF4 4810 996 | BSC - SKIP IF WORD AT PT PACKED K2109800
997 | * *OR NAME ONLY K2109810
7CF5 7017 998 | MDX S2151 BR IF NOT K2109820
7CF6 E3FD 999 | AND 3 H7800-Z MASK TO GET NAME BITS K2109830
7CF7 4C18 7CFC 1000 | BSC L S2143,+- BR IF NAME ONLY K2109840
1001 | * K2109850
7CF9 7401 7A59 1002 | MDX L LOCC2,1 COUNT EXTRA FOR PACKED INSTR K2109860
7CFB 1000 1003 | NOP TO AVOID SKIPPING 2-10 K2109865
1004 | * K2109870
7CFC 4346 1005 | S2143 BSI 3 TRSW-Z TRACKSWITCH K2109880
7CFD 7D00 1006 | DC S2144 ARITH STMNT FUNC K2109890
7CFE 7D00 1007 | DC S2144 SUBP INITLZ K2109900
7CFF 7D07 1008 | DC S2145 STMNT ALLOCATION K2109910
7D00 C1FF 1009 | S2144 LD 1 -1 LD STRING WD K2109920
7D01 93FB 1010 | S 3 H6200-Z TEST IF K2109930
7D02 4C18 7D09 1011 | BSC L S2146,+- BR IF YES K2109940
7D04 C100 1012 | LD 1 0 LD NXT STRING WD K2109950
7D05 434C 1013 | BSI 3 NAMT-Z NAMETEST K2109960
7D06 7002 1014 | MDX S2146 BR TO INCR LOCCTR K2109970
1015 | * K2109980
7D07 C100 1016 | S2145 LD 1 0 LD STRING WORD K2109990
7D08 435C 1017 | BSI 3 OUTP-Z OUTPUT WORD AT POINTER K2110000
7D09 7401 7A59 1018 | S2146 MDX L LOCC2,1 INCR LOC CTR K2110010
7D0B 1000 1019 | NOP TO AVOID SKIPPING 2-10 K2110015
7D0C 7089 1020 | MDX S2106 BR TO CONTINUE K2110020
1021 | * K2110030
1022 | * OPERATOR .LDX L1. HAS BEEN K2110040
1023 | * ENCOUNTERED K2110050
1024 | * K2110060
7D0D C100 1025 | S2151 LD 1 0 LD STRING WD K2110070
7D0E 9320 1026 | S 3 LDXL1-Z TEST FOR .LDX L1. K2110080
7D0F 4820 1027 | BSC Z SKIP IF .LDX L1. K2110090
7D10 700B 1028 | MDX S2161 BR IF NOT K2110100
7D11 7401 7A59 1029 | MDX L LOCC2,1 INCR LOCCOUNTER2 K2110110
7D13 1000 1030 | NOP TO AVOID SKIPPING 2-10 K2110115
7D14 43F4 1031 | BSI 3 INCPT-Z INCR I/P POINTER K2110120
7D15 4346 1032 | BSI 3 TRSW-Z TRACKSWITCH K2110130
7D16 7D09 1033 | DC S2146 ARITH STMNT FUNC K2110140
7D17 7D09 1034 | DC S2146 SUBP INITLZ K2110150
7D18 7D19 1035 | DC S2152 STMNT ALLOCATION K2110160
7D19 C1FF 1036 | S2152 LD 1 -1 LD .LDX L1 WD FR STRING K2110170
7D1A 435C 1037 | BSI 3 OUTP-Z OUTPUT .LDX L1. K2110180
7D1B 70EB 1038 | MDX S2145 BR TO O/P NXT WD IN STRING K2110190
1039 | * K2110200
1040 | * K2110210
7D1C C100 1041 | S2161 LD 1 0 LD STRING WORD K2110220
7D1D 9321 1042 | S 3 SUBSC-Z K2110230
7D1E 4818 1043 | BSC +- TEST FOR .CALL SUBSC. K2110240
7D1F 703D 1044 | MDX S2171 BR IF .CALL SUBSC. K2110250
7D20 C100 1045 | LD 1 0 LD STRING WD K2110260
7D21 E322 1046 | AND 3 HFF80-Z TEST FOR .CALL SUBPROGRAM. K2110270
7D22 4C18 7DA0 1047 | BSC L S3011,+- BR IF .CALL SUBPROGRAM. K2110280
1048 | * * (2-WD CALL) K2110290
1049 | * K2110300
1050 | * TEST IF GENERATED LABEL OPERATOR K2110310
1051 | * K2110320
7D24 C100 1052 | LD 1 0 LD STRING WD K2110330
7D25 E322 1053 | AND 3 HFF80-Z MASK TO GET ONLY OPERATOR K2110340
7D26 93FF 1054 | S 3 H5E00-Z TEST IF GENERATED LABEL K2110350
7D27 4818 1055 | BSC +- SKIP IF NO K2110360
7D28 7057 1056 | MDX S2201 BR IF YES K2110370
1057 | * K2110380
1058 | * TEST IF 'CALL SUBIN' K2110390
7D29 C100 1059 | LD 1 0 LD STRING WD K2110400
7D2A 9312 1060 | S 3 SUBIN-Z TEST FOR 'CALL SUBIN' K2110410
7D2B 4C18 7D54 1061 | BSC L S2165,+- BR IF 'CALL SUBIN' K2110420
1062 | * K2110430
7D2D 931E 1063 | S 3 H0680-Z TEST FOR SDAF K2110440
7D2E 4820 1064 | BSC Z SKIP IF SDAF K2110450
7D2F 9322 1065 | S 3 HFF80-Z TEST FOR SDAT K2110460
7D30 4820 1066 | BSC Z SKIP IF SDAI OR SDAF K2110470
7D31 931D 1067 | S 3 HF300-Z TEST FOR FIOAF K2110480
7D32 4820 1068 | BSC Z SKIP IF ANY OF ABOVE 3 K2110490
7D33 9322 1069 | S 3 HFF80-Z TEST FOR FIOAI K2110500
7D34 4820 1070 | BSC Z SKIP IF ANY OF ABOVE 4 K2110510
7D35 931F 1071 | S 3 H0880-Z TEST FOR UIOAF K2110520
7D36 4820 1072 | BSC Z SKIP IF ANY OF ABOVE 5 K2110530
7D37 9322 1073 | S 3 HFF80-Z TEST FOR VIOAI K2110540
7D38 4C20 7D50 1074 | BSC L S2162,Z BR IF NOT ANY OF ABOVE K2110550
7D3A 43F4 1075 | BSI 3 INCPT-Z INCR I/P POINTER K2110560
7D3B 7401 7A59 1076 | MDX L LOCC2,1 INCR LOC CTR K2110570
7D3D 1000 1077 | NOP TO AVOID SKIPPING 2-10 K2110575
7D3E 4346 1078 | BSI 3 TRSW-Z TRACKSWITCH K2110580
7D3F 7D48 1079 | DC TINE ASF K2110590
7D40 7D4D 1080 | DC FORK SUBP INITLZ K2110600
7D41 7D42 1081 | DC PRONG STMNT ALLOCATION K2110610
7D42 C1FF 1082 | PRONG LD 1 -1 LD STRING WD K2110620
7D43 435C 1083 | BSI 3 OUTP-Z PUT OUT LIBF K2110630
7D44 C100 1084 | LD 1 0 LD NXT STRING WD K2110640
7D45 435C 1085 | BSI 3 OUTP-Z PUT OUT LIBF K2110650
7D46 C101 1086 | LD 1 1 LD NXT STRING WD K2110660
7D47 435C 1087 | BSI 3 OUTP-Z PUT OUT ALLOCATION K2110670
7D48 7402 7A59 1088 | TINE MDX L LOCC2,2 INCR LOC CTR K2110680
7D4A 1000 1089 | NOP TO AVOID SKIPPING 2-10 K2110685
7D4B 4C00 7C95 1090 | BSC L S2104 CONTINUE THROUGH STMNT K2110690
7D4D C100 1091 | FORK LD 1 0 LD STRING WD (SUBP INITLZ) K2110700
7D4E 434C 1092 | BSI 3 NAMT-Z TEST FOR NAME K2110710
7D4F 70F8 1093 | MDX TINE BR TO INCR LOC CTR K2110720
7D50 4346 1094 | S2162 BSI 3 TRSW-Z TRACK SW K2110730
7D51 7D09 1095 | DC S2146 ASF K2110740
7D52 7D09 1096 | DC S2146 SUBP INITLZ K2110750
7D53 7D07 1097 | DC S2145 STMNT ALLOCATION K2110760
1098 | * K2110770
1099 | * 'CALL SUBIN' HAS BEEN ENCOUNTERED K2110780
1100 | * MOVE POINTER PAST ARG LIST, COUNT LOC K2110790
1101 | * K2110800
7D54 7401 7A59 1102 | S2165 MDX L LOCC2,1 INCR LOC CTR K2110810
7D56 1000 1103 | NOP TO AVOID SKIPPING 2-10 K2110815
7D57 C100 1104 | LD 1 0 LD STRING PTR K2110820
7D58 9301 1105 | S 3 ONE-Z TEST FOR END OF ARGUMENTLIST K2110830
7D59 4C18 7C96 1106 | BSC L S2106,+- BR IF END K2110840
7D5B 43F4 1107 | BSI 3 INCPT-Z BR TO INCR I/P PT K2110850
7D5C 70F7 1108 | MDX S2165 BR TO CONTINUE THROUGH LIST K2110860
1109 | * K2110870
1110 | * .CALL SUBSC. HAS BEEN ENCOUNTERED K2110880
7D5D 4346 1111 | S2171 BSI 3 TRSW-Z TRACKSWITCH K2110890
7D5E 7D67 1112 | DC S2173 ASF K2110900
7D5F 7D67 1113 | DC S2173 SUBP INITLZ K2110910
7D60 7D61 1114 | DC S2172 STMNT ALLOCATION K2110920
1115 | * K2110930
1116 | * PROCESS .CALL SUBSC., SGT, D4 K2110940
1117 | * K2110950
7D61 C100 1118 | S2172 LD 1 0 LD STRING WD 0 K2110960
7D62 435C 1119 | BSI 3 OUTP-Z BR TO O/P WD K2110970
7D63 C101 1120 | LD 1 1 LD STRING WD 1 K2110980
7D64 435C 1121 | BSI 3 OUTP-Z BR TO O/P WD K2110990
7D65 C102 1122 | LD 1 2 LD STRING WD 2 K2111000
7D66 435C 1123 | BSI 3 OUTP-Z BR TO O/P WD K2111010
1124 | * K2111020
7D67 43F4 1125 | S2173 BSI 3 INCPT-Z INCR I/P POINTER ONCE K2111030
7D68 43F4 1126 | BSI 3 INCPT-Z INCR I/P POINTER AGAIN K2111040
7D69 7403 7A59 1127 | MDX L LOCC2,3 INCR LOC CTR BY 3 K2111050
7D6B 1000 1128 | NOP TO AVOID SKIPPING 2-10 K2111055
7D6C 4346 1129 | S2181 BSI 3 TRSW-Z TRACKSWITCH K2111060
7D6D 7D70 1130 | DC S2182 ASF K2111070
7D6E 7D70 1131 | DC S2182 SUBP INITLZ K2111080
7D6F 7D73 1132 | DC S2183 STMNT ALLOCATION K2111090
1133 | * K2111100
1134 | * PROCESS D1 (OR D2 OR D3) K2111110
1135 | * AND A VARIABLE K2111120
1136 | * K2111130
7D70 C101 1137 | S2182 LD 1 1 LD STRING WD. K2111140
7D71 434C 1138 | BSI 3 NAMT-Z NAMETEST K2111150
7D72 7004 1139 | MDX S2184 BR TO CONTINUE K2111160
7D73 C101 1140 | S2183 LD 1 1 LD STRING WD1 K2111170
7D74 435C 1141 | BSI 3 OUTP-Z PUT ON O/P STRING K2111180
7D75 C102 1142 | LD 1 2 LD STRING WD2 K2111190
7D76 435C 1143 | BSI 3 OUTP-Z BR TO PUT ON STRING K2111200
7D77 43F4 1144 | S2184 BSI 3 INCPT-Z INCR I/P POINTER ONCE K2111210
7D78 43F4 1145 | BSI 3 INCPT-Z INCR I/P POINTER TWICE K2111220
7D79 7402 7A59 1146 | MDX L LOCC2,2 INCR LOC CTR BY 2 K2111230
7D7B 1000 1147 | NOP TO AVOID SKIPPING 2-10 K2111235
1148 | * K2111240
1149 | * TEST IF LAST (TAGGED) ARGUMENT K2111250
7D7C C100 1150 | LD 1 0 K2111260
7D7D 4C28 7C96 1151 | BSC L S2106,+Z LD NXT STRING WD K2111270
7D7F 70EC 1152 | MDX S2181 BR IF WD NEGATIVE K2111280
1153 | * BR TO CONTINUE THROUGH STRIN K2111290
1154 | * K2111300
1155 | * GENERATED LABEL OPERATOR HAS BEEN K2111310
1156 | * ENCOUNTERED K2111320
1157 | * K2111330
7D80 C100 1158 | S2201 LD 1 0 LD STRING WD K2111340
1159 | * 1 INSTRUCTION REMOVED 2-11 K2111350
7D81 E303 1160 | AND 3 THREE-Z DETERMINE IF TBL DISP 2-11 K2111352
1161 | * *IS TOO LARGE 2-11 K2111354
7D82 4808 1162 | BSC + SKIP IF NO 2-11 K2111356
7D83 8301 1163 | A 3 ONE-Z MAKE DISP = 1 2-11 K2111358
7D84 8325 1164 | A 3 GLTBO-Z TABLE ORIGIN ADDRESS K2111360
7D85 D001 1165 | STO S2202+1 SAVE ADDR K2111370
7D86 C400 0000 1166 | S2202 LD L *-* LD TABLE WD K2111380
7D88 4820 1167 | BSC Z SKIP IF NOT IN TABLE K2111390
7D89 7005 1168 | MDX S2203 BR IF IN TABLE K2111400
1169 | * K2111410
1170 | * INSERT INTO TABLE K2111420
7D8A C30B 1171 | LD 3 LOCC2-Z INSERT LOCCTR2 AS K2111430
7D8B D480 7D87 1172 | STO I S2202+1 * TABLE VALUE K2111440
7D8D 4C00 7C96 1173 | BSC L S2106 BR TO CONTINUE K2111450
1174 | * K2111460
1175 | * ELIMINATE FROM TABLE K2111470
7D8F D326 1176 | S2203 STO 3 TEMP1-Z STORE TABLE VALUE K2111480
7D90 C300 1177 | LD 3 0 ZERO TO TABLE K2111490
7D91 D480 7D87 1178 | STO I S2202+1 K2111500
7D93 4346 1179 | BSI 3 TRSW-Z TRACKSWITCH K2111510
7D94 7D9B 1180 | DC S2216 ASF K2111520
7D95 7D9B 1181 | DC S2216 SUBP INITLZ K2111530
7D96 7D97 1182 | DC S2211 STMNT ALLOCATION K2111540
1183 | * K2111550
1184 | * K2111560
1185 | * OUTPUT SPECIAL BSC L K2111570
1186 | * K2111580
7D97 C327 1187 | S2211 LD 3 SBSCL-Z OUTP .SPEC BSC L. K2111590
7D98 435C 1188 | BSI 3 OUTP-Z BR TO O/P SUBR K2111600
7D99 C326 1189 | LD 3 TEMP1-Z OUTPUT VALUE FR GENERATED K2111610
7D9A 435C 1190 | BSI 3 OUTP-Z * LABEL TABLE K2111620
7D9B 7402 7A59 1191 | S2216 MDX L LOCC2,2 INCR LOC CTR BY 2 K2111630
7D9D 1000 1192 | NOP TO AVOID SKIPPING 2-10 K2111635
7D9E 4C00 7C96 1193 | BSC L S2106 BR TO CONTINUE K2111640
1194 | * K2111650
1195 | * K2111660
1196 | * .CALL.-OPERATOR HAS BEEN ENCOUNTERED K2111670
1197 | * K2111680
1198 | * INCR INPUT POINTER AND LOCCOUNTER 2 K2111690
1199 | * K2111700
7DA0 43F4 1200 | S3011 BSI 3 INCPT-Z BR TO INCR I/P POINTER K2111710
7DA1 7401 7A59 1201 | MDX L LOCC2,1 INCR LOC CTR K2111720
7DA3 1000 1202 | NOP TO AVOID SKIPPING 2-10 K2111725
1203 | * K2111730
7DA4 4346 1204 | BSI 3 TRSW-Z TRACKSWITCH K2111740
7DA5 7DA8 1205 | DC S3012 ASF K2111750
7DA6 7DA8 1206 | DC S3012 SUBP INITLZ K2111760
7DA7 7DAC 1207 | DC S3013 STMNT ALLOC K2111770
1208 | * K2111780
7DA8 C100 1209 | S3012 LD 1 0 LD STRING WD K2111790
7DA9 434C 1210 | BSI 3 NAMT-Z TEST IF NAME K2111800
7DAA 4C00 7D09 1211 | BSC L S2146 BR TO INCR LOC CTR K2111810
1212 | * K2111820
1213 | * K2111830
1214 | * TEST IF NAME K2111840
1215 | * DUMMY VARIABLE K2111850
1216 | * K2111860
7DAC C100 1217 | S3013 LD 1 0 LD STRING WD K2111870
7DAD 4338 1218 | BSI 3 GETST-Z BR TO GET SYM TBL ID WD K2111880
7DAE E3FE 1219 | AND 3 H0400-Z MASK FOR DUMMY VAR BIT K2111890
7DAF 4C20 7DB7 1220 | BSC L S3015,Z BR IF DUMMY VARIABLE K2111900
1221 | * K2111910
1222 | * K2111920
1223 | * OUTPUT .CALL SUBPROGRAM. AND K2111930
1224 | * NAME K2111940
1225 | * (WORDS AT POINTER - 1 AND K2111950
1226 | * AT POINTER) K2111960
1227 | * K2111970
7DB1 C1FF 1228 | LD 1 -1 LD WD AT POINTER-1 K2111980
7DB2 435C 1229 | BSI 3 OUTP-Z BR TO O/P K2111990
7DB3 C100 1230 | LD 1 0 LD WD AT POINTER K2112000
7DB4 435C 1231 | BSI 3 OUTP-Z BR TO O/P K2112010
7DB5 4C00 7D09 1232 | BSC L S2146 BR TO CONTINUE THROUGH STMNT K2112020
1233 | * K2112030
1234 | * K2112040
1235 | * NAME IS BOTH DUMMY VARIABLE AND K2112050
1236 | * EXTERNAL K2112060
1237 | * OUTPUT BSI I, NAME AT POINTER K2112070
1238 | * K2112080
7DB7 C005 1239 | S3015 LD H4780 LD .BSI I. CONSTANT K2112090
7DB8 435C 1240 | BSI 3 OUTP-Z PUT ON O/P STRING K2112100
7DB9 C100 1241 | LD 1 0 LD NAME FR I/P STRING K2112110
7DBA 435C 1242 | BSI 3 OUTP-Z PUT ON O/P STRING K2112120
7DBB 4C00 7D09 1243 | BSC L S2146 BR TO CONTINUE K2112130
1244 | * K2112140
7DBD 4780 1245 | H4780 DC /4780 .BSI I. K2112150
1246 | * K2112160
1247 | * K2112170
1248 | *************************************************** K2112180
1249 | * K2112190
7DBE 0000 1250 | GLABT DC 0 GENERATED LABEL TABLE K2112200
7DBF 0000 1251 | DC 0 K2112210
7DC0 0000 1252 | DC 0 K2112220
7DC1 0000 1253 | DC 0 K2112230
7DC2 7404 7A2D 1254 | SUBER MDX L ERROR,4 SET SUBIN TOO LARGE 2-3 K2112240
1255 | * K2112250
7DC4 6580 7DCB 1256 | EXIT LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2112260
7DC6 C805 1257 | LDD NXTPH+2 *NXT PHASE K2112270
7DC7 4C00 7FBC 1258 | BSC L ROL GO TO READ NEXT PHASE K2112280
7DCA 1259 | BSS E 0 K2112290
7DCA 0034 1260 | NXTPH DC 52 ID OF NXT PHASE K2112300
7DCB 0000 1261 | DC *-* CORE ADDR NEXT PHASE K2112310
7DCC 0000 1262 | DC *-* WORD COUNT NEXT PHASE K2112320
7DCD 0000 1263 | DC *-* SECTOR ADDRESS NEXT PHASE K2112330
1264 | * K2112335
7DCE 1265 | BSS /7DF5-* PATCH AREA 2-10 K2112340
7DF5 0000 1266 | DC 0 K2112350
7DF6 1267 | END BPHAR-2 K2112360
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CH12 0006 85
$PHSE 0078 77 321
AREA 7E0D 86
ASFN 7A85 234 487 743
ASFSW 7A83 232 301 674 865 907 959
BPHAR 7A36 138 1267
CCWD 7A31 110
COMON 7A2B 100 509 520
CSIZE 7A2C 101
DATA 7B0A 381 365
DFCNT 7A33 130
DUMVC 7A5B 185 534 541 552 647 651 756 771 774 806 810 988 991
DUMVP 7A5E 188 627 653 687 688 754 811 822 992
ENT 7ACD 320 144
EOFS 7A25 94 330 336 974
EOFST 7A2A 99 334 549
ERROR 7A2D 102 308 322 344 1254
EXIT 7DC4 1256 309 323 345 588
FNAME 7A2E 107
FORK 7D4D 1091 1080
FOUR 7A52 176 291 295 432 733 852 924
GETS1 7A90 248 241 243 244 245 247 430 491 820 880
GETST 7A86 239 249 428 489 813 878 1218
GLABT 7DBE 1250 211
GLTBO 7A73 211 1164
H007F 7A72 210
H0220 7A7B 221 819
H0400 7A4C 169 1219
H0680 7A6C 202 1063
H07FC 7A54 178 370 396 732 859 916 942
H07FF 7A69 199 240 265 290
H0880 7A6D 203 1071
H1000 7A68 198 847 912
H1800 7A5C 186 543 682
H4780 7DBD 1245 1239
H4F80 7A7A 220 741
H500C 7A76 214 633
H5E00 7A4D 170 1054
H5F00 7A5A 184 492 639
H6000 7A56 180 400 935
H6008 7A5F 189 561
H6200 7A49 166 1010
H7000 7A4A 167 952
H7800 7A4B 168 768 999
H7FFF 7A6A 200 717
H8000 7A79 219 280
HD000 7A57 181 454
HD004 7A78 218 465
HD800 7A77 217 404
HEAD 7F8B 82 83
HF000 7A7C 222 363
HF300 7A6B 201 1067
HF800 7A55 179 362 399 403 453 846 911 934
HF803 7A67 197 851 923
HFF80 7A70 206 1046 1053 1065 1069 1073
HFFFD 7A71 209 545 546 685 686
HFFFF 7A7D 223 277
INCPT 7A42 159 163 735 883 884 901 1031 1075 1107 1125 1126 1144 1145
1200
IOCS 7A32 118
LDR 7AF7 361 378
LDR1 7B01 372 377
LDXL1 7A6E 204 1026
LISTL 7A65 195 155 268 570 576 661 691 720 776
LOCC1 7A58 182 392 413 434 442 478 483 494 500 508 566 574 577
619 677 960
LOCC2 7A59 183 279 499 584 620 645 672 678 690 692 745 796 826
881 894 947 948 961 1002 1018 1029 1076 1088 1102 1127
1146 1171 1191 1201
LSTPR 7E45 88
M1011 7B0B 390 366
M1021 7B10 394 447 502
M1022 7B24 417 412
M1031 7B27 426 401
M1041 7B36 440 446
M1042 7B3A 443 418
M1051 7B40 452 405
M1052 7B54 481 476
M1061 7B5E 492
M1071 7B6B 508 456
M1072 7B75 522 519
M1081 7B7A 533
M1082 7B7F 537 536 547 548 551
M1083 7B86 542 540
M1085 7B9D 569 555
M1091 7B9F 571
M1092 7BA5 578 525 568
MEMRY 8000 74 75 76
MOVCT 7B09 380 333 351 371 376
MOVST 7AED 347 343 352
NAMT 7A9A 263 282 1013 1092 1138 1210
NAMT1 7AA8 282 267
NEQ 7A36 144
NEWPG 7E0C 84 86 87
NORM 7A53 177 161 397 438 445 734 739 860 885 917
NXTPH 7DCA 1260 141 1256 1257
ONE 7A4F 173 278 332 479 571 575 586 650 693 775 809 990 1105
1163
OUTID 7A66 196 289 294 296 468 636 855 927
OUTP 7AAA 285 154 281 302 305 482 484 493 694 737 742 744 793
876 882 893 978 1017 1037 1083 1085 1087 1119 1121 1123
1141 1143 1188 1190 1229 1231 1240 1242
OVERL 7A24 75 90
OVERP 7E42 83 84 88
OVERR 7AC4 308 835
OVTST 7C61 832 836 844 857
PHID 0033 79 320
PRINT 7E0E 87
PRONG 7D42 1082 1081
ROL 7FBC 76 82 1258
S2011 7BAE 617 498 573 580 748 975
S2021 7BB6 626 623
S2031 7BCD 647
S2032 7BD2 652 689
S2033 7BED 677 671
S203X 7BE3 670 987
S203Y 7BE1 664 660
S2041 7BF1 681 656 993
S2042 7BF8 686 683
S2051 7BFC 690 649 808 989
S2052 7C01 702 642 803
S2053 7C14 724 706 719
S2054 7C16 730 712
S2057 7C1C 735 740
S2058 7C1F 739
S2059 7C29 748 713
S205X 7C03 704 725
S205Y 7C0C 716 708
S2061 7C2B 753 622
S2062 7C30 757 772
S2063 7C3B 774 767 770
S2081 7C4F 806 896
S2091 7C68 839 624
S2092 7C77 856 679 828
S2093 7C7A 858 675 953 963
S2101 7C81 865 863 864 919 920 928
S2102 7C88 871 869
S2103 7C8C 875 874
S2104 7C95 883 872 873 902 1090
S2106 7C96 884 862 870 1020 1106 1151 1173 1193
S2111 7C97 885
S2112 7C9E 892 889
S2115 7CA4 901 866
S2121 7CA6 907 890 891
S2122 7CB5 922 921
S2124 7CBD 933 908 950
S2125 7CC9 949 944
S2126 7CCC 952 936
S2131 7CD6 965 914
S2132 7CDA 971 848 968
S2133 7CE1 977 966 967
S2134 7CEA 988 984
S2141 7CF3 995 887
S2143 7CFC 1005 1000
S2144 7D00 1009 1006 1007
S2145 7D07 1016 1008 1038 1097
S2146 7D09 1018 1011 1014 1033 1034 1095 1096 1211 1232 1243
S2151 7D0D 1025 998
S2152 7D19 1036 1035
S2161 7D1C 1041 1028
S2162 7D50 1094 1074
S2165 7D54 1102 1061 1108
S2171 7D5D 1111 1044
S2172 7D61 1118 1114
S2173 7D67 1125 1112 1113
S2181 7D6C 1129 1152
S2182 7D70 1137 1130 1131
S2183 7D73 1140 1132
S2184 7D77 1144 1139
S2201 7D80 1158 1056
S2202 7D86 1166 1165 1172 1178
S2203 7D8F 1176 1168
S2211 7D97 1187 1182
S2216 7D9B 1191 1180 1181
S3011 7DA0 1200 1047
S3012 7DA8 1209 1205 1206
S3013 7DAC 1217 1207
S3015 7DB7 1239 1220
SBSCL 7A75 213 1187
SNTSW 7A84 233 275 662 983 986
SOFGT 7A29 98 391
SOFNS 7A27 96 587
SOFS 7A24 93 331 354
SOFST 7A26 95 242 535 626
SOFXT 7A28 97 390
SORF 7A30 109 523
STADR 7A61 191 629 652 664 684
SUBER 7DC2 1254 293
SUBIN 7A60 190 637 792 1060
SUBPR 7A38 150 152 156 814
SUBSC 7A6F 205 1042
SW 7B26 420 411 415
TEMP1 7A74 212 1176 1189
TEMP2 7ACA 315 469 786 789
TEMP3 7A7E 224 797 825
TEMP4 7A7F 225 414 518
TEMP5 7A80 229 475 477 673
TEMP6 7A81 230 480 670
TEMP7 7A82 231 501 718
TESTN 7A63 193 264 665 812
THREE 7A51 175 246 945 1160
TIN 7AC8 311 299 303
TINE 7D48 1088 1079 1093
TINP 7A64 194 512 630 730 778 787 833 839 856 962
TOUT 7AC9 312 300 304 834
TR 7A5D 187 258 618
TRSW 7A94 256 257 621 711 861 871 888 918 965 1005 1032 1078 1094
1111 1129 1179 1204
TRSW1 7A98 260 259
TWO 7A50 174 490 569 578
XIN 7ACB 317 340 342
XOUT 7ACC 318 339 341
Z 7A4E 172 154 240 246 258 264 265 277 278 279 280 281 290
291 295 301 332 362 363 370 392 396 397 399 400
403 404 413 414 428 432 434 453 454 465 475 478
479 480 482 483 484 487 489 490 492 493 496 499
500 501 508 518 534 543 545 546 552 561 563 569
570 571 574 575 576 577 578 584 586 618 619 620
621 627 629 633 637 639 647 650 651 664 665 670
672 677 678 682 685 686 687 688 690 691 692 693
694 711 717 718 720 732 733 734 735 737 739 741
742 743 744 755 756 768 774 775 776 786 787 792
793 796 797 806 809 810 812 813 814 819 825 826
833 834 846 847 851 852 859 860 861 865 871 876
878 881 882 883 884 885 888 893 901 907 911 912
916 917 918 923 924 934 935 942 945 947 948 952
958 959 960 961 965 977 978 983 985 986 988 990
991 999 1005 1010 1013 1017 1026 1031 1032 1037 1042 1046
1053 1054 1060 1063 1065 1067 1069 1071 1073 1075 1078 1083
1085 1087 1092 1094 1105 1107 1111 1119 1121 1123 1125 1126
1129 1138 1141 1143 1144 1145 1160 1163 1164 1171 1176 1179
1187 1188 1189 1190 1200 1204 1210 1218 1219 1229 1231 1240
1242
ZERO 7A4E 171 172 325 496 563 755 958 977 985