ibm:ibm1130-lib:dmsr2v12:kforph21_lst
KFORPH21
| Table Of Contents |
|---|
|
- kforph21.lst
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
ibm/ibm1130-lib/dmsr2v12/kforph21_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator