ibm:ibm1130-lib:dmsr2v12:kforph25_lst
KFORPH25
| Table Of Contents |
|---|
|
- kforph25.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph25.asm 1130 FORTRAN COMPILER PHASE 25 2 | *************************************************** K2500020 3 | * * K2500030 4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2500040 5 | * * K2500050 6 | *FUNCTION/OPERATION- * K2500060 7 | * * BUILD PROGRAM HEADER AND DATA HEADER * K2500070 8 | * RECORDS * K2500080 9 | * * OUTPUT THESE RECORDS BY BUFFER LOADS OF 320 * K2500090 10 | * WORDS TO DISK WORKING STORAGE * K2500100 11 | * * ANALYZES DEFINE FILE STATEMENTS AND PUTS * K2500110 12 | * THEM IN THE BUFFER FOR OUTPUT TO WORKING * K2500120 13 | * STORAGE IN ABSOLUTE MODE (EXCEPT FOR THE * K2500130 14 | * ASSOCIATED VARIABLE WHICH IS IN RELOCATABLE * K2500140 15 | * OR ABSOLUTE MODE) * K2500150 16 | * * SCANS THE SYMBOL TABLE FOR REAL AND INTEGER * K2500160 17 | * CONSTANTS AND PLACES THEM IN THE BUFFER IN * K2500170 18 | * ABSOLUTE MODE FOR OUTPUT TO WORKING STORAGE * K2500180 19 | * * K2500190 20 | *ENTRY POINTS-THE ONLY ENTRY POINT IS AT BPHAR * K2500200 21 | * AND IS REACHED BY A CALL TO THE ROL ROUTINE * K2500210 22 | * BY A PREVIOUS PHASE * K2500220 23 | * * K2500230 24 | *INPUT-THE STATEMENT STRING AND SYMBOL TABLE FROM * K2500240 25 | * THE PREVIOUS PHASES * K2500250 26 | * * K2500260 27 | *OUTPUT- * K2500270 28 | * * WORKING STORAGE ON THE DISK CONTAINING * K2500280 29 | * HEADER AND DATA RECORDS, REAL AND INTEGER * K2500290 30 | * CONSTANTS AND OUTPUT FROM DEFINE FILE * K2500300 31 | * STATEMENTS * K2500310 32 | * * A 320 WORD BUFFER CONTAINING SIMILAR * K2500320 33 | * INFORMATION TO BE OUTPUT TO WORKING STORAGE * K2500330 34 | * OR TO BE PASSED ON TO PHASE 26 TO BE FILLED * K2500340 35 | * AND PUT INTO WORKING STORAGE * K2500350 36 | * * K2500360 37 | *EXTERNAL REFERENCES- * K2500370 38 | * SUBROUTINES- * K2500380 39 | * * ROL-LOADS NEXT PHASE OF THE COMPILER * K2500390 40 | * * DZ000-DISK WRITE SUBROUTINE * K2500400 41 | * COMMA-DCOM- * K2500410 42 | * * $PHSE * K2500420 43 | * * $WSDR * K2500430 44 | * * $DBSY * K2500440 45 | * * $FPAD * K2500450 46 | * * K2500460 47 | *EXITS- * K2500470 48 | * NORMAL-A CALL TO THE ROL ROUTINE BRINGS IN * K2500480 49 | * THE NEXT PHASE * K2500490 50 | * ERROR-NONE * K2500500 51 | * * K2500510 52 | *TABLES/WORK AREAS * K2500520 53 | * * INPUT STRING * K2500530 54 | * *SYMBOL TABLE * K2500540 55 | * *FORTRAN COMMUNICATIONS AREA * K2500550 56 | * *DISK OUTPUT BUFFER * K2500560 57 | * * K2500570 58 | *ATTRIBUTES-N/A * K2500580 59 | * * K2500590 60 | *NOTES- * K2500600 61 | * PROGRAM HEADER CONSISTS OF 12 WORDS IN THE * K2500610 62 | * BUFFER AREA * K2500620 63 | * WD 1 RESERVED * K2500630 64 | * WD 2 RESERVED * K2500640 65 | * WD 3 INTEGER TYPE, PRECISION * K2500650 66 | * WD 4 OBJECT TIME PROGRAM LENGTH * K2500660 67 | * WD 5 LENGTH OF COMMON * K2500670 68 | * WD 6 WD SIZE OF PROGRAM HEADER - 9 (=3) * K2500680 69 | * WD 7 VAR. AREA WHEN NO DEFINE FILE STMNT * K2500690 70 | * WD 8 LENGTH OF PROGRAM IN DISK BLOCKS * K2500700 71 | * WD 9 NUMBER OF FILES DEFINED * K2500710 72 | * WD10 PROGRAM NAME * K2500720 73 | * WD11 PROGRAM NAME * K2500730 74 | * WD12 EXECUTION ADDRESS * K2500740 75 | * DATA HEADER CONSISTS OF 4 WORDS (WD13-WD16) * K2500750 76 | * WD 13 ADDRESS OF NEXT DATA * K2500760 77 | * WD 14 NUMBER OF DATA WORDS * K2500770 78 | * WD15 FIRST INDICATOR WORD * K2500780 79 | * WD16 FIRST DATA WORD * K2500790 80 | * EVERY 8 WORDS OF DATA OR PROGRAM OUTPUT IS * K2500800 81 | * PRECEDED BY AN INDICATOR WORD CONTAINING TWO * K2500810 82 | * BITS OF INFORMATION FOR EACH OF THE SUCCESSIVE* K2500820 83 | * EIGHT WORDS. THE TWO BITS HAVE THE FOLLOWING * K2500830 84 | * MEANINGS. * K2500840 85 | * 00 = ABSOLUTE INSTRUCTION OR DATA * K2500850 86 | * 01 = RELOCATABLE INSTRUCTION * K2500860 87 | * 10 = ONE WORD CALL * K2500870 88 | * 11 = TWO WORD CALL * K2500880 89 | * * K2500890 90 | *************************************************** K2500900 1130 FORTRAN COMPILER PHASE 25 92 | *** NOTE- COMMENTS BEGIN IN COL. 44 *** K2500920 93 | ABS K2500930 94 | * K2500940 95 | * SYSTEM EQUATES K2500950 96 | * K2500960 8000 97 | MEMRY EQU /8000 K2500970 7A23 98 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2500980 0078 99 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2500990 7FBC 100 | ROL EQU MEMRY-68 LOC OF PROG TO RD NXT PH K2501000 0037 101 | PHID EQU 55 ID NUMBER THIS PHASE K2501010 00F2 102 | DZ000 EQU /F2 DISKZ ENTRY POINT K2501020 00EE 103 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY K2501030 007A 104 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE K2501040 0095 105 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDR K2501050 7A23 106 | ORG OVERL K2501060 107 | * K2501070 108 | * FORTRAN COMMUNICATION K2501080 7A23 109 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2501090 7A24 110 | SOFS BSS 1 START OF STRING K2501100 7A25 111 | EOFS BSS 1 END OF STRING K2501110 7A26 112 | SOFST BSS 1 START OF SYMBOL TABLE K2501120 7A27 113 | SOFNS BSS 1 PROGR LENGTH AT OBJECT TIME K2501130 7A28 114 | SOFXT BSS 1 SIZE OF WORK AREA K2501140 7A29 115 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2501150 7A2A 116 | EOFST BSS 1 END OF SYMBOL TABLE K2501160 7A2B 117 | COMON BSS 1 ENTRY POINT K2501170 7A2C 118 | CSIZE BSS 1 SIZE OF COMMON K2501180 7A2D 119 | ERROR BSS 1 OVERLAP ERROR K2501190 7A2E 120 | FNAME BSS 1 PROGRAM NAME K2501200 7A2F 121 | BSS 1 K2501210 7A30 122 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2501220 7A31 123 | CCWD BSS 1 CONTROL CARD WORD K2501230 124 | * BIT 15 TRANSFER TRACE K2501240 125 | * BIT 14 ARITHMETIC TRACE K2501250 126 | * BIT 13 EXTENDED PRECISION K2501260 127 | * BIT 12 LIST SYMBOL TABLE K2501270 128 | * BIT 11 LIST SUBPROGRAM NAMES K2501280 129 | * BIT 10 LIST SOURCE PROGRAM K2501290 130 | * BIT 9 ONE WORD INTEGERS K2501300 131 | * BIT 8 ORIGIN 2-4 K2501310 7A32 132 | IOCS BSS 1 IOCS CONTROL CARD WORD K2501320 133 | * BIT 15 CARD K2501330 134 | * BIT 14 PAPER TAPE K2501340 135 | * BIT 13 TYPEWRITER K2501350 136 | * BIT 12 1403 PRINTER K2501360 137 | * BIT 11 2501 READER K2501370 138 | * BIT 10 KEYBOARD K2501380 139 | * BIT 9 1442 PUNCH K2501390 140 | * BIT 8 DISK K2501400 141 | * BIT 7 1132 PRINTER K2501410 142 | * BIT 3 PLOTTER K2501420 143 | * BIT 1 UNFORMATTED DISK K2501430 7A33 144 | DFCNT BSS 1 FILE COUNT K2501440 145 | * K2501450 146 | * K2501460 147 | * END OF FORTRAN COMMUNICATION K2501470 148 | * AREA K2501480 149 | *************************************************** K2501490 150 | * THE SWITCHES USED IN PHASE 26 FOLLOW K2501500 151 | * IF POSITIVE, THE SWITCH IS TRANSFER=T K2501510 152 | * IF ZERO, THE SWITCH IS NORMAL=N K2501520 153 | * SWITCH COSW K2501530 154 | * N= OUTPUT OF REAL CONSTANTS K2501540 155 | * T= OUTPUT OF INTEGER CONSTANTS K2501550 156 | * THE SWITCHES USED IN PHASE 26 FOLLOW K2501560 157 | * IF POSITIVE, THE SWITCH IS TRANSFER=T K2501570 158 | * IF ZERO, THE SWITCH IS NORMAL=N K2501580 159 | * SWITCH TWOWC K2501590 160 | * N= OUTPUT OF TWO-WORD CALL NAME K2501600 161 | * T= OUTPUT OF ONE-WORD CALL NAME K2501610 162 | * K250162- 163 | * K2501630 7A36 164 | BPHAR EQU *+2 K2501640 7A34 0000 165 | DC 0 PROGRAM ORIGIN K2501650 7A35 FFC9 166 | DC -55 -PHASE ID FOR SLET LOOKUP K2501660 7A36 0438 167 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K2501670 7A37 0001 168 | DC 1 ONE ENTRY TO BE SET BY LDR K2501680 7A36 169 | ORG *-2 ORG PROGRAM K2501690 170 | * K2501700 171 | * K2501710 7A36 4C00 7E72 172 | NEQ BSC L ENT K2501720 173 | * K2501730 174 | * K2501740 175 | * BUFFER COMMUNICATIONS AREA K2501750 176 | * AND BUFFER K2501760 177 | * K2501770 178 | * RESERVED FOR COMMUNICATION K2501780 179 | * BETWEEN PHASES K2501790 180 | * OUTPUT1 AND OUTPUT2 K2501800 181 | * AS FOLLOWS K2501810 182 | * K2501820 7A38 183 | BSS E 0 K2501830 7A38 0000 184 | DC 0 BFR CNT NXT PH-NOT YET USED K2501840 7A39 7A51 185 | BUFPT DC WD16 BUFFERPOINTER K2501850 7A3A 0010 186 | INCT DC 16 INDICATOR COUNTER K2501860 7A3B 7A50 187 | INPT DC WD15 INDICATOR POINTER K2501870 7A3C 7A4E 188 | DHDRA DC WD13 DATAHEADER-ADDRESS K2501880 7A3D 0000 189 | LOCTR DC 0 LOCATION COUNTER K2501890 7A3E 0000 190 | PRLGT DC 0 PROGRAM LENGTH K2501900 191 | * (ON DISK) K2501910 7A3F 0000 192 | DC 0 NOT YET USED K2501920 7A40 0140 193 | DC /140 WORD COUNT K2501930 7A41 0000 194 | DC /0000 SCRATCH SECTOR ADDR K2501940 195 | * K2501950 196 | * DISK OUTPUT BUFFER K2501960 7A42 0000 197 | BUFF DC 0 K2501970 198 | * K2501980 199 | * PROGRAM HEADER K2501990 7A42 200 | WD1 EQU BUFF RESERVED K2502000 7A43 0000 201 | WD2 DC 0 RESERVED K2502010 7A44 0000 202 | WD3 DC 0 TYPE, PRECISION K2502020 7A45 0000 203 | WD4 DC 0 OBJECT TIME PROGRAM LENGTH K2502030 7A46 0000 204 | WD5 DC 0 LENGTH OF COMMON K2502040 7A47 0003 205 | WD6 DC 3 WD SIZE OF PROG HDR - 9 K2502050 7A48 0000 206 | WD7 DC 0 VAR AREA IF NO DEFINE FILES K2502060 7A49 0000 207 | WD8 DC 0 PROG LNG (DB CNT - DUP ADDS) K2502070 208 | * (DISKBYTE COUNT, INSERTED BY DUP) K2502080 7A4A 0000 209 | WD9 DC 0 NUMBER OF FILES DEFINED K2502090 7A4B 0000 210 | WD10 DC 0 PROGRAM NAME K2502100 7A4C 0000 211 | DC 0 WORD 2 OF PROGRAM NAME K2502110 7A4D 0000 212 | WD12 DC 0 EXECUTION ADDR K2502120 213 | * K2502130 214 | * FIRST DATA HEADER K2502140 7A4E 0000 215 | WD13 DC 0 RELATIVE ADDR OF NEXT DATA K2502150 7A4F 0003 216 | WD14 DC 3 NUMBER OF DATA WORDS K2502160 217 | * K2502170 218 | * K2502180 7A50 0000 219 | WD15 DC 0 FIRST INDICATOR WORD K2502190 7A51 0000 220 | WD16 DC 0 FIRST DATA WORD K2502200 221 | * K2502210 7A84 222 | ORG *+50 K2502220 223 | * K2502230 224 | * K2502240 225 | * FOLLOWING INITIAL PROGRAM K2502250 226 | * IS WITHIN BUFFERAREA K2502260 227 | * K2502270 7A84 1000 228 | START SLA 0 NOP K2502280 229 | * K2502290 230 | * INITIALIZE WORKING STORAGE SECTOR K2502300 231 | * ADDRESS FROM COMMA K2502310 232 | * K2502320 7A85 6780 007A 233 | LDX I3 $WSDR WORKING STORAGE DRIVE CODE K2502330 7A87 C700 0095 234 | LD L3 $FPAD LOAD WORKING STO SECTOR ADDR K2502340 7A89 D0B7 235 | STO BUFF-1 SAVE IN SCRATCH SECTOR ADDR K2502350 236 | * K2502360 237 | * INITIALIZE TRANSFER VECTOR K2502370 238 | * K2502380 7A8A 6700 7D50 239 | LDX L3 ZERO K2502390 240 | * K2502400 241 | * K2502410 7A8C C0A4 242 | LD CCWD IS IT AN ABSOLUTE 2-4 K2502420 7A8D 1008 243 | SLA 8 COMPILATION 2-4 K2502430 7A8E 4C10 7A93 244 | BSC L STAR1,- NO - BRANCH 2-4 K2502440 7A90 D328 245 | STO 3 ORGSW-Z YES - SET ORIGIN SW 2-4 K2502450 7A91 C329 246 | LD 3 H0101-Z SET UP FOR ABSOLUTE 2-4 K2502460 7A92 D30A 247 | STO 3 TYPE-Z TYPE CODE 2-4 K2502470 248 | * K2502480 249 | * K2502490 250 | * K2502500 251 | * STORE FNAME FOR OUTPUT K2502510 252 | * K2502520 7A93 C09C 253 | STAR1 LD SORF DO NOT STORE NAME IF K2502530 7A94 4C18 7A9A 254 | BSC L Q0010,+- *SUBROUTINE OR FUNCTION K2502540 255 | * K2502550 256 | * K2502560 7A96 C897 257 | LDD FNAME GET 2 WD PROG OR SUBR NAME K2502570 7A97 D0B3 258 | STO WD10 SAVE WD 1 IN PROG HDR NAME K2502580 7A98 18D0 259 | RTE 16 PUT WD 2 IN ACC K2502590 7A99 D0B2 260 | STO WD10+1 SAVE WD 2 IN PROG HDR NAME K2502600 261 | * K2502610 262 | * K2502620 263 | * INITIALIZE INDICATORS IN WORD 9 K2502630 7A9A C098 264 | Q0010 LD DFCNT K2502640 7A9B 1890 265 | SRT 16 K2502650 7A9C AB08 266 | D 3 SEVEN-Z COMPUTE NUMBER OF FILES DEF K2502660 7A9D 8318 267 | A 3 H2000-Z K2502670 7A9E D324 268 | STO 3 TEMP2-Z K2502680 7A9F C092 269 | LD IOCS DISK IO INDICATOR K2502690 7AA0 1008 270 | SLA 8 K2502700 7AA1 E319 271 | AND 3 H8000-Z PUT DISK I/O IND IN BIT 0 K2502710 7AA2 EB24 272 | OR 3 TEMP2-Z K2502720 7AA3 D324 273 | STO 3 TEMP2-Z K2502730 7AA4 C08C 274 | LD CCWD CHECK FOR EXT. PRECISION IO K2502740 7AA5 E30F 275 | AND 3 HFEFF-Z K2502750 7AA6 4820 276 | BSC Z SKIP IF EXT PREC IO BIT OFF K2502760 7AA7 C31A 277 | LD 3 H4000-Z SET FLAG K2502770 7AA8 EB24 278 | OR 3 TEMP2-Z K2502780 7AA9 D0A0 279 | STO WD9 K2502790 280 | * SET VAR AREA WHEN NO DEFINE FILE K2502800 7AAA C088 281 | LD DFCNT K2502810 7AAB 4C18 7AAF 282 | BSC L Q1000,+- SKIP IF DEFINE FILE PRESENT K2502820 7AAD C400 7A28 283 | LD L SOFXT PUT SIZE OF WK-AREA IN WD7 K2502830 7AAF D098 284 | Q1000 STO WD7 K2502840 285 | * K2502850 286 | * K2502860 7AB0 1000 287 | INIT SLA 0 NOP K2502870 7AB1 C400 7A27 288 | LD L SOFNS STORE PROGRAM LENGTH 2-2 K2502880 7AB3 8400 7A28 289 | A L SOFXT IN WORD 4 OF 2-2 K2502890 7AB5 D08F 290 | STO WD4 PROGRAM HEADER 2-2 K2502900 7AB6 C328 291 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2502910 7AB7 4C18 7B96 292 | BSC L Q1011,+- NO - BRANCH 2-4 K2502920 7AB9 C08B 293 | LD WD4 YES - RELOCATE 2-4 K2502930 7ABA 8400 7A23 294 | A L ORG THE TERMINAL 2-4 K2502940 7ABC D400 7A45 295 | STO L WD4 ADDRESS 2-4 K2502950 7ABE 4C10 7B96 296 | BSC L Q1011,- BRANCH IF POSITIVE 2-4 K2502960 7AC0 7440 7A2D 297 | MDX L ERROR,64 SET UP ERROR 86 2-4 K2502970 7AC2 4C00 7E69 298 | BSC L EXIT EXIT 2-4 K2502980 299 | * K2502990 7B96 300 | ORG BUFF+340 ALLOW 320 WS BFR +20 212 K2503000 301 | * K2503010 302 | * CHECK FOR MAINLINE PROG OR SUBP K2503020 303 | * PUT ADDITIONAL INFO IN O/P AREA K2503030 304 | * OUTPUT DEFINE FILE STATEMENTS K2503040 7B96 1000 305 | Q1011 SLA 0 NOP K2503050 306 | * K2503060 307 | * K2503070 308 | * INITIALIZE OUTPUT K2503080 309 | * K2503090 310 | * DETERMINE WHETHER MAIN LINE K2503100 311 | * OR SUBPROGRAM K2503110 312 | * K2503120 7B97 C400 7A30 313 | LD L SORF GET SUBR-FUNCTION IND WD K2503130 7B99 4C20 7D05 314 | BSC L INISR,Z BR IF SUBROUTINE K2503140 315 | * K2503150 316 | * INITIALIZE MAIN LINE PROGR K2503160 7B9B C400 7A31 317 | LD L CCWD SPECIFY PRECISION K2503170 7B9D 1802 318 | SRA 2 K2503180 7B9E E301 319 | AND 3 ONE-Z MASK OUT ALL BUT EXT PRE BIS K2503190 7B9F 830A 320 | A 3 TYPE-Z MAINL REL TYPE W PREC CONST K2503200 7BA0 D400 7A44 321 | Q101X STO L WD3 SAVE IN 3RD WORD OF PROG HDR K2503210 7BA2 C400 7A31 322 | LD L CCWD IS ONE WORD INTEGERS 2-5 K2503211 7BA4 1806 323 | SRA 6 *SPECIFIED 2-5 K2503212 7BA5 E301 324 | AND 3 ONE-Z IF YES - SET 2-5 K2503213 7BA6 1004 325 | SLA 4 *INDICATOR FOR 2-5 K2503214 7BA7 801B 326 | A H0080 *INTEGER PRECISION 2-5 K2503215 7BA8 8400 7A44 327 | A L WD3 *IN WORD 3 OF 2-5 K2503216 7BAA D400 7A44 328 | STO L WD3 *PROGRAM HEADER 2-5 K2503217 7BAC C400 7A2C 329 | LD L CSIZE SIZE OF COMMON K2503220 7BAE D400 7A46 330 | STO L WD5 SAVE IN 5TH WORD OF PROG HDR K2503230 331 | * K2503240 7BB0 C400 7A2B 332 | Q101A LD L COMON PROGRAM ENTRY POINT K2503250 7BB2 D400 7A4D 333 | STO L WD12 PUT IN 12TH WORD OF PROG HDR K2503260 7BB4 C328 334 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2503270 7BB5 4C18 7BC4 335 | BSC L Q101B,+- NO - BRANCH 2-4 K2503280 7BB7 C400 7A4D 336 | LD L WD12 YES - RELOCATE 2-4 K2503290 7BB9 8400 7A23 337 | A L ORG THIS 2-4 K2503300 7BBB D400 7A4D 338 | STO L WD12 WORD 2-4 K2503310 7BBD 4C10 7BC4 339 | BSC L Q101B,- BRANCH IF POSITIVE 2-4 K2503320 7BBF 7440 7A2D 340 | Q101C MDX L ERROR,64 SET UP ERROR 86 2-4 K2503330 7BC1 4C00 7E69 341 | BSC L EXIT EXIT 2-4 K2503340 342 | * K2503350 7BC3 0080 343 | H0080 DC /0080 INDICATOR WORD 2-5 K2503352 344 | * K2503354 345 | * K2503356 346 | * TEST IF ANY 'DEFINEFILE' STATEMENTS K2503360 347 | * INCLUDED K2503370 348 | * K2503380 7BC4 C400 7A33 349 | Q101B LD L DFCNT CNT OF NO. DEFINING FILE K2503390 7BC6 4C20 7BCA 350 | BSC L F1012,Z BR IF DEFN FILES ARE PRESENT K2503400 7BC8 702E 351 | MDX F2012 BR IF NOT K2503410 352 | * K2503420 353 | * OUTPUT 'DEFINE FILE' STATEMENTS K2503430 7BC9 0000 354 | COUNT DC 0 NO. WDS DEFN FILE STMNTS K2503440 7BCA D0FE 355 | F1012 STO COUNT SET DEF FILE WORDCOUNTER K2503450 7BCB 1010 356 | SLA 16 CLEAR ACC K2503460 7BCC 4400 7DFD 357 | BSI L DHDRR DATAHEADERROUTINE K2503470 358 | * ACC = 0 AT ENTRY TO SUBR K2503480 359 | * K2503490 7BCE 6580 7A24 360 | LDX I1 SOFS INIT STRING POINTER K2503500 361 | * K2503510 7BD0 C0F8 362 | F1014 LD COUNT NO. WDS DEFN FILE K2503520 363 | * SCAN STRING FOR DEFINE FILE STMNTS K2503530 7BD1 4C08 7BF7 364 | BSC L F2012,+ BR IF NO MORE DEFN FILE 2-10 K2503540 7BD3 C100 365 | F1015 LD 1 0 GET ID WORD FROM STRING K2503550 7BD4 E313 366 | AND 3 H07FC-Z MASK ALL BUT NORM BITS K2503560 7BD5 D322 367 | STO 3 NORM-Z SAVE NORM IN TEMP STO K2503570 7BD6 C100 368 | LD 1 0 GET ID WORD FROM STRING K2503580 7BD7 E314 369 | AND 3 HF800-Z MASK ALL BUT TYPE CODE K2503590 7BD8 9315 370 | S 3 HF000-Z TEST FOR DEFN FILE CODE K2503600 7BD9 4C18 7BE1 371 | BSC L F1021,+- BR IF DEFINE FILE STATEMENT K2503610 372 | * K2503620 373 | * MOVE POINTER TO NEXT STATEMENT K2503630 7BDB C322 374 | LD 3 NORM-Z GET STMNT NORM K2503640 7BDC 1802 375 | SRA 2 RIGHT JUSTIFY NORM K2503650 7BDD D001 376 | STO F1016+1 SAVE NORM COUNT K2503660 7BDE 7500 0000 377 | F1016 MDX L1 *-* INCR I/P STRING PT BY NORM K2503670 7BE0 70F2 378 | MDX F1015 BR TO CHECK NEXT STMNT TYPE K2503680 379 | * K2503690 380 | * OUTPUT A DEFINE FILE STATEMENT K2503700 381 | * K2503710 382 | * INITIALIZE COUNTER TO OUTPUT K2503720 383 | * FOURTH WORD IN EACH SEVENWORD GROUP K2503730 384 | * AS RELATIVE SYMBOL TABLE ADDRESS K2503740 385 | * K2503750 7BE1 C304 386 | F1021 LD 3 FOUR-Z GET CONSTANT = 4 K2503760 7BE2 D326 387 | STO 3 SCT-Z SET UP COUNTER ON NO. WORDS K2503770 388 | * K2503780 7BE3 7101 389 | F1022 MDX 1 1 INCR POINTER K2503790 7BE4 74FC 7D72 390 | MDX L NORM,-4 DECR NORM BY ONE WORD K2503800 7BE6 7001 391 | MDX F1023 BR IF NO SKIP K2503810 7BE7 70E8 392 | MDX F1014 BR IF END OF STATEMENT K2503820 393 | * K2503830 394 | * TEST IF FOURTH WD IN GROUP K2503840 7BE8 74FF 7D76 395 | F1023 MDX L SCT,-1 DECR WORD COUNTER K2503850 7BEA 7006 396 | MDX F1024 BR IF NO SKIP K2503860 397 | * K2503870 398 | * OUTPUT RELTV ADDR ASSOCIATED VAR-WD 4 K2503880 7BEB C100 399 | LD 1 0 PICK UP FOURTH WORD STMNT K2503890 7BEC 432A 400 | BSI 3 GETST-Z GET SYMBOL TABLE ADDRESS K2503900 7BED 4349 401 | BSI 3 OUREL-Z OUTPUT RELATIVE WORD K2503910 402 | * (OR ABSOLUTE IF IN K2503920 403 | * COMMON) K2503930 7BEE C308 404 | LD 3 SEVEN-Z RESET CTR ON DEFN FILE WDCNT K2503940 7BEF D326 405 | STO 3 SCT-Z SAVE COUNT IN TEMP CTR K2503950 7BF0 7002 406 | MDX F1025 BR TO CONTINUE O/P OF STMNT K2503960 407 | * K2503970 408 | * OUTPUT ABSOLUTE K2503980 7BF1 C100 409 | F1024 LD 1 0 K2503990 7BF2 4341 410 | BSI 3 OUABS-Z K2504000 411 | * K2504010 412 | * COUNT DEFINE FILE WORDS K2504020 7BF3 74FF 7BC9 413 | F1025 MDX L COUNT,-1 K2504030 7BF5 1000 414 | SLA 0 TO BALANCE SKIP K2504040 7BF6 70EC 415 | MDX F1022 K2504050 416 | * K2504060 417 | * K2504070 418 | * HERE COMES OUTPUT OF K2504080 419 | * 'DATA'-STATEMENTS K2504090 420 | * SEARCH THROUGH STRING FOR DATA K2504100 421 | * STATEMENTS AND OUTPUT K2504110 422 | * K2504120 423 | * SUPERFLUOUS CODING REMOVED 2-10 K2504200 424 | * K2504210 7BF7 425 | F2012 EQU * K2504220 426 | * K2504230 7BF7 6580 7A24 427 | LDX I1 SOFS INITIALIZE POINTER K2504240 428 | * K2504250 429 | * STORE STMNT-ID COMPUTE K2504260 430 | * ADDR OF NEXT STATEMENT K2504270 431 | * K2504280 7BF9 C100 432 | DT102 LD 1 0 LOAD STMNT ID WORD K2504290 7BFA E314 433 | AND 3 HF800-Z MASK OUT ALL BUT STMNT TYPE K2504300 7BFB D011 434 | STO STID SAVE STMNT TYPE K2504310 7BFC C100 435 | LD 1 0 LOAD STMNT ID WORD AGAIN K2504320 7BFD E313 436 | AND 3 H07FC-Z MASK OUT ALL BUT STMNT NORM K2504330 7BFE 1802 437 | SRA 2 RIGHT JUSTIFY NORM K2504340 7BFF 690C 438 | STX 1 TMP1 SAVE PT OF CURRENT STMNT K2504350 7C00 800B 439 | A TMP1 ADD TO STMNT NORM TO K2504360 7C01 D008 440 | STO DT104+1 COMPUTE POINTER TO NXT STMNT K2504370 441 | * K2504380 7C02 C00A 442 | LD STID TEST IF END-STMNT K2504390 7C03 9317 443 | S 3 H1000-Z END STMNT ID CONSTANT K2504400 7C04 4C18 7CB6 444 | BSC L F3011,+- BR IF END-STMNT K2504410 7C06 9008 445 | S DTAID DATA STATEMENT TEST CONSTANT K2504420 7C07 4C18 7C10 446 | BSC L DT201,+- BRANCH IF DATA STATEMENT K2504430 7C09 6500 0000 447 | DT104 LDX L1 *-* MOVE POINTER TO NEXT STMNT K2504440 7C0B 70ED 448 | MDX DT102 CONTINUE SCAN FOR DATA STMNT K2504450 449 | * K2504460 450 | * CONSTANTS, TEMP STORAGE K2504470 451 | * K2504480 7C0C 0000 452 | TMP1 DC 0 POINTER TO CURRENT STMNT K2504490 7C0D 0000 453 | STID DC 0 STATEMENT ID TYPE K2504500 7C0E 0000 454 | DPLF DC 0 DUPLICATION FACTOR K2504510 7C0F E800 455 | DTAID DC /F800-/1000 K2504520 456 | * K2504530 457 | * MOVE POINTER TO NEXT DATAGROUP K2504540 458 | * K2504550 7C10 7101 459 | DT201 MDX 1 1 K2504560 460 | * K2504570 7C11 1000 461 | SLA 0 NOP K2504580 7C12 69F9 462 | STX 1 TMP1 SAVE CURRENT STRING POINTER K2504590 7C13 C0F8 463 | LD TMP1 COMPARE CURRENT STRING LOC K2504600 7C14 90F5 464 | S DT104+1 WITH START OF NEXT STMNT K2504610 7C15 4C10 7C09 465 | BSC L DT104,- BR IF END OF STATEMENT K2504620 466 | * K2504630 467 | * SAVE ADDR OF CONSTANT STRING - 1 K2504640 468 | * MOVE POINTER TO FIRST VARIABLE K2504650 469 | * K2504660 7C17 6D00 7D70 470 | STX L1 ADCST SAVE ADDRESS K2504670 7C19 C100 471 | LD 1 0 GET LENGTH OF CON STRING WD K2504680 7C1A E310 472 | AND 3 H0007-Z MASK OUT ALL BUT LENGTH K2504690 7C1B D005 473 | STO DT202+1 SAVE LENGTH K2504700 7C1C C100 474 | LD 1 0 GET WD HAVING DUPCTN FACTOR K2504710 7C1D 1803 475 | SRA 3 RIGHT JUSTIFY FACTOR IN ACC K2504720 7C1E D0EF 476 | STO DPLF STORE DUPLICATION FACTOR K2504730 7C1F 7101 477 | MDX 1 1 MOVE I/P PT PAST DATA HEADER K2504740 7C20 7500 0000 478 | DT202 MDX L1 *-* MOVE PT TO FIRST VAR NAME K2504750 7C22 C100 479 | DT203 LD 1 0 GET DATA POINTER K2504760 7C23 432A 480 | BSI 3 GETST-Z LOCATE SYMBOL TABLE ID WORD K2504770 7C24 C480 7D90 481 | LD I GET4 GET SYMBOL TABLE ID WORD K2504780 7C26 E30D 482 | AND 3 H1800-Z MASK ID WD FOR DIMENSION BIT K2504790 7C27 4C20 7C33 483 | BSC L DT301,Z BR IF DIMENSIONED VARIABLE K2504800 484 | * K2504810 485 | * OUTPUT DATA FOR A SINGLE VARIABLE K2504820 486 | * K2504830 7C29 C480 7D87 487 | LD I GET1+1 GET LOCATION K2504840 7C2B 4061 488 | DT211 BSI DHT OUTPUT DATAHDR IF NECESSARY K2504850 489 | * SUPERFLUOUS CODING REMOVED 2-9 K2504870 7C2C 4079 490 | BSI DTAC OUTPUT DATA CONSTANT K2504880 7C2D 74FF 7C0E 491 | DT221 MDX L DPLF,-1 DECR DUPLICATION FACTOR K2504890 7C2F 7001 492 | MDX DT222 BR IF NOT END OF VARIABLES K2504900 7C30 70DF 493 | MDX DT201 BR IF END OF DTAGROUP K2504910 7C31 7101 494 | DT222 MDX 1 1 BR TO PROCESS NEXT VARIABLE K2504920 7C32 70EF 495 | MDX DT203 K2504930 496 | * K2504940 497 | * DIMENSIONED VARIABLE ENCOUNTERED K2504950 498 | * K2504960 7C33 499 | DT301 EQU * ENTRY POINT LABEL K2504970 7C33 C0DA 500 | LD DPLF PLACE DUPLICATION FACTOR K2504980 7C34 D327 501 | STO 3 ADUPF-Z *INTO TEMPORARY WORK AREA K2504990 7C35 1010 502 | SLA 16 CLEAR ACC K2505000 7C36 D31C 503 | STO 3 OFSET-Z CLEAR OFFSET DISPLACEMENT WD K2505010 504 | * K2505020 7C37 C100 505 | LD 1 0 LOAD DATA POINTER WORD K2505030 7C38 1001 506 | SLA 1 SHIFT DISPLACEMENT INDR BIT K2505040 7C39 4C10 7C44 507 | BSC L DT320,- BRANCH, NO OFFSET K2505050 508 | * K2505060 7C3B 7101 509 | MDX 1 1 POSITION POINTER K2505070 7C3C C100 510 | LD 1 0 GET DISPLACEMENT WORD K2505080 7C3D D31C 511 | STO 3 OFSET-Z OFSET= F(SUBSCRIPT) K2505090 7C3E C1FF 512 | LD 1 -1 LOAD DATA POINTER WORD K2505100 7C3F 1002 513 | SLA 2 TEST FOR SUBSC ELEMENT BIT K2505110 7C40 4C10 7C44 514 | BSC L DT320,- BRANCH IF NOT ON K2505120 7C42 C301 515 | LD 3 ONE-Z SET DUPLICATION FACTOR = 1 K2505130 7C43 D327 516 | STO 3 ADUPF-Z *FOR SUBSCRIPTED VARIABLE K2505140 517 | * K2505150 7C44 518 | DT320 EQU * ENTRY POINT LABEL K2505160 7C44 C400 7A31 519 | LD L CCWD VSIZE=SIZE OF REAL VARIABLE K2505170 7C46 100E 520 | SLA 14 PLACE INDICATOR IN CARRY K2505180 7C47 C302 521 | LD 3 TWO-Z STANDARD VARIABLE SIZE K2505190 7C48 4802 522 | BSC C SKIP IF STANDARD PRECISION K2505200 7C49 C303 523 | LD 3 THREE-Z EXTENDED VARIABLE SIZE K2505210 7C4A D31D 524 | STO 3 VSIZE-Z SAVE VARIABLE SIZE K2505220 525 | * K2505230 7C4B C480 7D90 526 | LD I GET4 LOAD SYMBOL TABLE ID WORD K2505240 7C4D 1001 527 | SLA 1 TEST BIT 1 (REAL OR INTEGER) K2505250 7C4E 4C10 7C56 528 | BSC L DT340,- BRANCH IF REAL VARIABLE K2505260 529 | * K2505270 7C50 C400 7A31 530 | LD L CCWD VSIZE = SIZE OF INTEGER VAR K2505280 7C52 100A 531 | SLA 10 PLACE INDICATOR IN CARRY K2505290 7C53 C301 532 | LD 3 ONE-Z ONE WORD INTEGER SIZE K2505300 7C54 4802 533 | BSC C SKIP ON NO ONE WORD INTEGER K2505310 7C55 D31D 534 | STO 3 VSIZE-Z SAVE VARIABLE SIZE K2505320 535 | * K2505330 7C56 536 | DT340 EQU * ENTRY POINT LABEL K2505340 537 | * K2505350 7C56 C340 538 | LD 3 GET4-Z COMPUTE ARRAY SIZE IN WORDS K2505360 7C57 9303 539 | S 3 THREE-Z FIRST COMPUTE ADDR OF FIRST K2505370 7C58 D001 540 | STO *+1 WORD OF ARRAY SIZE K2505380 7C59 C400 0000 541 | LD L *-* LOAD ARRAY SIZE FROM SYM TBL K2505390 7C5B A31D 542 | M 3 VSIZE-Z MULTIPLY BY VARIABLE SIZE K2505400 7C5C 1090 543 | SLT 16 PUT PRODUCT IN ACC K2505410 7C5D D31E 544 | STO 3 ASIZE-Z SAVE IN ARRAY SIZE K2505420 545 | * K2505430 7C5E 931C 546 | S 3 OFSET-Z COMPUTE NO.OF ELEMENTS THAT K2505440 7C5F 1890 547 | SRT 16 CAN BE FILLED. K2505450 7C60 AB1D 548 | D 3 VSIZE-Z DIVIDE BY VARIABLE SIZE K2505460 7C61 D31F 549 | STO 3 NOELM-Z SAVE NO. ELEMENTS TO FILL K2505470 550 | * K2505480 7C62 9327 551 | S 3 ADUPF-Z SUBTRACT DUPLICATION FACTOR K2505490 7C63 4C08 7C6B 552 | BSC L DT330,+ BR, FILL ARRAY IF NOELM LE K2505500 553 | * DUPLICATION FACTOR K2505510 7C65 C327 554 | LD 3 ADUPF-Z NOELM = DPLF K2505520 7C66 D31F 555 | STO 3 NOELM-Z K2505530 556 | * K2505540 7C67 A31D 557 | M 3 VSIZE-Z COMPUTE ARRAY SIZE K2505550 7C68 1090 558 | SLT 16 NO. ELEMENTS * VAR SIZE K2505560 7C69 831C 559 | A 3 OFSET-Z PLUS OFFSET K2505570 7C6A D31E 560 | STO 3 ASIZE-Z =ARRAY SIZE K2505580 561 | * K2505590 7C6B 562 | DT330 EQU * ENTRY POINT K2505600 7C6B C0A2 563 | LD DPLF ADJUST DUPLICATION FACTOR K2505610 7C6C 931F 564 | S 3 NOELM-Z SUBTRACT NO. ELEMENTS K2505620 7C6D 8301 565 | A 3 ONE-Z PLUS ONE K2505630 7C6E D09F 566 | STO DPLF SAVE NEW DUPLICATION FACTOR K2505640 567 | * K2505650 7C6F C31F 568 | LD 3 NOELM-Z GET NO. ELEMENTS TO FILL K2505660 7C70 1801 569 | SRA 1 REMOVE LOW ORDER BIT K2505670 7C71 4C18 7C83 570 | BSC L DT350,+- BRANCH IF REMAINDER = 0 K2505680 571 | * K2505690 7C73 C480 7D90 572 | LD I GET4 LOAD SYMBOL TABLE ID WORD K2505700 7C75 1001 573 | SLA 1 TEST FOR INTEGER VARIABLE K2505710 7C76 4C10 7C83 574 | BSC L DT350,- BRANCH, NOT INTEGER VARIABLE K2505720 575 | * K2505730 7C78 C400 7A31 576 | LD L CCWD TEST CONTROL CARD WORD K2505740 7C7A 1009 577 | SLA 9 FOR ONE WORD INTEGERS K2505750 7C7B 4C28 7C83 578 | BSC L DT350,+Z BRANCH, ONE WORD INTEGERS K2505760 579 | * K2505770 7C7D 1005 580 | SLA 5 EXTENDED PREC BIT TO CARRY K2505780 7C7E C31F 581 | LD 3 NOELM-Z LOAD NO. ELEMENTS K2505790 7C7F 4802 582 | BSC C TEST CARRY FOR EXTENDED PREC K2505800 7C80 1001 583 | SLA 1 EXTENDED PREC MPY NO. ELTS*2 K2505810 7C81 831F 584 | A 3 NOELM-Z ADD ACTUAL NO. ELEMENTS K2505820 7C82 D31F 585 | STO 3 NOELM-Z NO.ELEMENTS *2 OR 3 - SAVE K2505830 586 | * K2505840 7C83 587 | DT350 EQU * ENTRY POINT LABEL K2505850 7C83 C480 7D87 588 | LD I GET1+1 PLACE DSF HEADER K2505860 7C85 931E 589 | S 3 ASIZE-Z DATA WD ADDR - ARRAY SIZE K2505870 7C86 831D 590 | A 3 VSIZE-Z PLUS VAR SIZE K2505880 7C87 4005 591 | BSI DHT BR TO SEE IF DATA HDR O/P K2505890 592 | * K2505900 593 | * SUPERFLUOUS CODING REMOVED 2-9 K2505920 7C88 401D 594 | DT360 BSI DTAC OUTPUT CONSTANTS 2-9 K2505930 7C89 74FF 7D6F 595 | MDX L NOELM,-1 DECR COUNT ON NO. ELEMENTS K2505940 7C8B 70FC 596 | MDX DT360 CONTINUE IF MORE O/P K2505950 7C8C 70A0 597 | MDX DT221 FINISHED, RETURN K2505960 598 | * K2505970 599 | * SUBROUTINE K2505980 600 | * TEST IF DATAHEADER NECESSARY K2505990 601 | * ACC CONTAINS ADDR OF VAR TO BE O/P K2506000 602 | * OUTPUT DATA HEADER IF NECESSARY K2506010 603 | * K2506020 7C8D 0000 604 | DHT DC 0 LINK ENTRY POINT K2506030 7C8E 4C18 7C96 605 | BSC L DHT1,+- IF ZERO, OUTPUT HEADER K2506040 7C90 9400 7A3D 606 | S L LOCTR TEST LOCATION COUNTER K2506050 7C92 4C18 7CA4 607 | BSC L DHT2,+- BR IF LOC = LOCTR, NO HDR K2506060 608 | * IS NEEDED K2506070 7C94 8400 7A3D 609 | A L LOCTR RESET LOCATION COUNTER K2506080 7C96 D400 7A3D 610 | DHT1 STO L LOCTR SAVE K2506090 7C98 4400 7DFD 611 | BSI L DHDRR OUTPUT DATA HEADER K2506100 7C9A C400 7A3B 612 | LD L INPT LOAD INDICATOR POINTER K2506110 7C9C 931B 613 | S 3 BFEND-Z DETERMINE IF BUFFER FULL K2506120 7C9D 4CA8 7C8D 614 | BSC I DHT,+Z RETURN IF NOT K2506130 7C9F 4400 7D11 615 | BSI L WRITS WRITE TO DISK K2506140 7CA1 C312 616 | LD 3 CD16-Z K2506150 7CA2 D400 7A3A 617 | STO L INCT RESET INDICATOR COUNTER K2506160 7CA4 4C80 7C8D 618 | DHT2 BSC I DHT RETURN K2506170 619 | * K2506180 620 | * SUBROUTINE OUTPUT DATA-CONSTANT K2506190 621 | * K2506200 622 | * FROM THE STRING K2506210 7CA6 0000 623 | DTAC DC 0 ENTRY POINT K2506220 7CA7 C320 624 | LD 3 ADCST-Z INSERT ADDRESS OF CON STRING K2506230 7CA8 D006 625 | STO DTAC2+1 SAVE ADDRESS OF CON STRING K2506240 7CA9 C400 7C21 626 | LD L DT202+1 INITLZ CONSTANT STRING COUNT K2506250 7CAB D321 627 | STO 3 CLCT-Z SAVE CONSTANT STRING COUNT K2506260 7CAC 7401 7CAF 628 | DTAC1 MDX L DTAC2+1,1 INCR ADDR OF CON STRING K2506270 7CAE C400 0000 629 | DTAC2 LD L *-* GET CONSTANT FR STRING K2506280 7CB0 4341 630 | BSI 3 OUABS-Z OUTPUT K2506290 7CB1 74FF 7D71 631 | MDX L CLCT,-1 CONSTANT STRING COUNT K2506300 7CB3 70F8 632 | MDX DTAC1 BR IF PART OF CNSTNT REMAINS K2506310 7CB4 4C80 7CA6 633 | BSC I DTAC RETURN IF END OF CONSTANT K2506320 634 | * K2506330 635 | ** K2506340 636 | * K2506350 637 | * K2506360 638 | * INITIALIZE LOCATIONCOUNTER K2506370 7CB6 1000 639 | F3011 SLA 0 K2506380 7CB7 C400 7A28 640 | LD L SOFXT NOP K2506390 641 | * (INCLUDING DEFINEFILE WORDS) K2506400 7CB9 D400 7A3D 642 | STO L LOCTR LOCATION COUNTER K2506410 7CBB 4400 7DFD 643 | BSI L DHDRR DATAHEADERROUTINE K2506420 644 | * K2506430 645 | * K2506440 646 | * OUTPUT CONSTANTS K2506450 647 | * SCANS SYMBOL TABLE AND OUTPUTS REAL K2506460 648 | * CONSTANTS, FOLLOWED BY A SCAN TO K2506470 649 | * OUTPUT INTEGER CONSTANTS K2506480 650 | * K2506490 651 | * INITIALIZE SYMBOL TABLE FOR OUTPUT K2506500 652 | * OF CONSTANTS K2506510 653 | * K2506520 7CBD C400 7A26 654 | INIST LD L SOFST LOAD START LOC OF ST 2-9 K2506530 7CBF D325 655 | STO 3 SYMTP-Z SYMBOL TABLE POINTER K2506540 656 | * K2506550 657 | * TEST IF END OF SYM TABLE K2506560 7CC0 C325 658 | Q1012 LD 3 SYMTP-Z SYMBOL TABLE POINTER K2506570 7CC1 9400 7A2A 659 | S L EOFST END OF SYMBOL TABLE K2506580 7CC3 4C08 7CF2 660 | BSC L Q1041,+ BR IF END OF SYMBOL TABLE K2506590 661 | * K2506600 7CC5 C480 7D75 662 | LD I SYMTP LOAD ID WORD FROM SYMBOL TBL K2506610 7CC7 4828 663 | BSC +Z SKIP IF NOT ENTRY OF CON K2506620 7CC8 7009 664 | MDX Q1021 BR IF ENTRY CONSTANT K2506630 665 | * K2506640 666 | * MOVE SYMBOL TABLE POINTER K2506650 667 | * BY 3 WORDS FOR MOST SYMBOLS K2506660 668 | * OR 6 WORDS FOR DIMENSIONED VARIABLES K2506670 7CC9 C480 7D75 669 | Q1013 LD I SYMTP LOAD SYMBOL TABLE ID WORD K2506680 7CCB E30D 670 | AND 3 H1800-Z TEST FOR DIMENSIONED VAR. K2506690 7CCC 4820 671 | BSC Z SKIP IF NOT DIMENSIONED VA K2506700 7CCD C30E 672 | LD 3 HFFFD-Z INCR BY -3 WDS FOR DIM VAR K2506710 7CCE 830E 673 | A 3 HFFFD-Z INCR BY -3 WDS FOR ALL ENT K2506720 7CCF 8325 674 | A 3 SYMTP-Z ADD TO SYMBOL TABLE POINTE K2506730 7CD0 D325 675 | STO 3 SYMTP-Z SAVE IN SYMBOL TABLE POINT K2506740 7CD1 70EE 676 | MDX Q1012 CONTINUE SCAN OF SYMBOL TB K2506750 677 | * K2506760 678 | * CONSTANT FOUND IN SYMBOL TABLE K2506770 679 | * OUTPUT REAL AND INTEGER CONSTANTS IN K2506780 680 | * ABSOLUTE MODE K2506790 681 | * K2506800 7CD2 6580 7D75 682 | Q1021 LDX I1 SYMTP PUT SYMBOL TABLE POINTER X K2506810 683 | * K2506820 684 | * SAVE LOCATION COUNTER K2506830 7CD4 C400 7A3D 685 | Q1022 LD L LOCTR LOAD LOCATION COUNTER K2506840 7CD6 D324 686 | STO 3 TEMP2-Z SAVE IN TEMPORARY STORAGE K2506850 687 | * K2506860 7CD7 C100 688 | LD 1 0 GET SYMBOL TABLE CONSTANT K2506870 7CD8 1001 689 | SLA 1 SHIFT INTEGER BIT TO SIGN K2506880 7CD9 4810 690 | BSC - SKIP IF INTEGER CONSTANT K2506890 7CDA 7005 691 | MDX Q1031 BR IF NOT K2506900 692 | * K2506910 693 | * TEST IF INTEGER CONSTANT OUTPUT PASS K2506920 7CDB C323 694 | LD 3 COSW-Z LOAD INTEGER CON O/P SWITC K2506930 7CDC 4C18 7CC9 695 | BSC L Q1013,+- BR IF NOT INTEGER CON O/P K2506940 696 | * K2506950 7CDE C101 697 | LD 1 1 SECOND WORD IN SYMBOL TABL K2506960 698 | * ENTRY TO ACCUMULATOR K2506970 7CDF 700E 699 | MDX Q1033 BR TO O/P IN ABSOLUTE MODE K2506980 700 | * K2506990 701 | * TEST IF REAL CONSTANT PASS K2507000 7CE0 C323 702 | Q1031 LD 3 COSW-Z LOAD INTEGER CON O/P SWITC K2507010 7CE1 4C20 7CC9 703 | BSC L Q1013,Z BR IF INTEGER CON INDICATED K2507020 704 | * K2507030 705 | * TEST IF EXTENDED PRECISION K2507040 7CE3 C400 7A31 706 | LD L CCWD LOAD CONTROL CARD WORD K2507050 7CE5 100D 707 | SLA 13 SHIFT EXTENDED PREC BIT K2507060 7CE6 4810 708 | BSC - SKIP IF EXTENDED PREC K2507070 7CE7 7003 709 | MDX Q1032 BR IF NOT EXTENDED PREC K2507080 710 | * K2507090 7CE8 C100 711 | LD 1 0 LOAD SYMBOL TABLE ID WORD K2507100 7CE9 E311 712 | AND 3 H00FF-Z MASK ALL BUT BITS 8-15 K2507110 7CEA 4341 713 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2507120 7CEB C101 714 | Q1032 LD 1 1 SECOND WORD IN ENTRY TO ACC K2507130 7CEC 4341 715 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2507140 7CED C102 716 | LD 1 2 THIRD WORD IN SYMBOL TABLE K2507150 717 | * ENTRY TO ACC K2507160 7CEE 4341 718 | Q1033 BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2507170 719 | * K2507180 720 | * INSERT ALLOCATION INTO SYM.TBL. K2507190 7CEF C324 721 | LD 3 TEMP2-Z GET ALLOC CON FROM TEMP STO K2507200 7CF0 D101 722 | STO 1 1 STORE IN 2ND WD OF SYM TBL K2507210 723 | * K2507220 7CF1 70D7 724 | MDX Q1013 BR TO CONTINUE SYM TBL SCAN K2507230 725 | * K2507240 726 | * TEST IF THAT WAS THE SECOND K2507250 727 | * (=INTEGER CONSTANT) PASS K2507260 728 | * K2507270 7CF2 C323 729 | Q1041 LD 3 COSW-Z CONSTANT OUTPUT SWITCH K2507280 7CF3 4C20 7CF8 730 | BSC L Q1051,Z BR IF SECOND PASS K2507290 7CF5 7401 7D73 731 | MDX L COSW,1 CHANGE CONSTANT O/P SWITCH K2507300 7CF7 70C5 732 | MDX INIST GO TO NEXT PASS K2507310 733 | * K2507320 734 | * OUTPUT OF CONSTANTS COMPLETED K2507330 735 | * START OUTPUT OF STRING DATA K2507340 736 | * K2507350 737 | * TEST THAT OUTPUT LOCATION COUNTER K2507360 738 | * CHECKS WITH THE ONE ASSUMED AT K2507370 739 | * STATEMENT ALLOCATION. IF NOT, K2507380 740 | * OUTPUT DUMMY WORD. K2507390 7CF8 C400 7A28 741 | Q1051 LD L SOFXT LOAD SIZE OF WORK AREA K2507400 7CFA 8400 7A29 742 | A L SOFGT PLUS SIZE OF CONSTANT AREA K2507410 7CFC 9400 7A3D 743 | S L LOCTR LESS THE LOCATION COUNTER K2507420 7CFE 4C08 7E69 744 | BSC L EXIT,+ BR IF SIZE WK AREA & CONST K2507430 745 | * AREA L.E. LOCATION COUNTER K2507440 7D00 1010 746 | SLA 16 CLEAR ACC K2507450 7D01 4341 747 | BSI 3 OUABS-Z OUTPUT DUMMY WORD K2507460 7D02 70F5 748 | MDX Q1051 CONTINUE LOOP K2507470 749 | * K2507480 750 | * BR TO LOADING OF NEXT PHASE K2507490 7D03 4C00 7E69 751 | BSC L EXIT K2507500 752 | * K2507510 753 | * PROGRAM BEING COMPILED IS A SUBR K2507520 754 | * INITIALIZE SUBR. OUTPUT K2507530 7D05 1000 755 | INISR SLA 0 NOP K2507540 756 | * K2507550 757 | * INSERT TYPECODE .SUBPROGR. K2507560 758 | * AND PRECISION K2507570 759 | * K2507580 7D06 C400 7A31 760 | LD L CCWD SPECIFY PRECISION K2507590 7D08 1802 761 | SRA 2 SHIFT EXTENDED PREC TO BIT15 K2507600 7D09 E301 762 | AND 3 1 MASK EXTENDED PRECISION BIT K2507610 7D0A 830B 763 | A 3 H0401-Z ADD TYPE AND PRECISION MASK K2507620 7D0B 4C00 7BA0 764 | BSC L Q101X RETURN TO CONTINUE PROCESSIN K2507630 765 | * K2507640 766 | * K2507650 7D0E 767 | BSS E 0 DISK CONSTANTS K2507660 7D0E 7001 768 | WR900 DC /7001 WRITE DISK PARAMETER K2507670 7D0F 7A40 769 | DC BUFF-2 DISK BUFFER AREA K2507680 7D10 63F0 770 | ENDLZ DC /63F0 END OF WK STO TEST CONSTANT K2507690 771 | * K2507700 772 | * WRITE DISK K2507710 7D11 0000 773 | WRITS DC *-* LINK ENTRY POIN K2507720 7D12 C0FE 774 | LD WRITS MOVE LINK WORD K2507730 7D13 D001 775 | STO WRITE TO RETURN LINK K2507740 7D14 7006 776 | MDX WRITT BRANCH TO WRITE DISK K2507750 7D15 0000 777 | WRITE DC 0 LINK ENTRY AND RETURN K2507760 778 | * K2507770 779 | * CORRECT WORDCOUNT IN DATAHEADER K2507780 7D16 4400 7DF0 780 | BSI L PCT BUFFER COUNT 2-3 K2507790 7D18 1000 781 | NOP 2-3 K2507800 7D19 1000 782 | NOP 2-3 K2507810 7D1A 1000 783 | NOP 2-3 K2507820 784 | * K2507830 785 | * K2507840 7D1B C400 7A41 786 | WRITT LD L BUFF-1 CHECK SECTOR ADDRESS K2507850 7D1D 1004 787 | SLA 4 REMOVE HIGH ORDER BITS K2507860 7D1E 90F1 788 | S ENDLZ TEST IF END OF WORKING STO K2507870 7D1F 4C10 7D45 789 | BSC L NOWS,- BRANCH IF NO WORKING STO K2507880 7D21 C8EC 790 | LDD WR900 LOAD DISK WRITE PARAMETERS K2507890 7D22 4400 00F2 791 | BSI L DZ000 WRITE SECTOR ONTO DISK K2507900 7D24 7400 00EE 792 | MDX L $DBSY,0 SKIP IF DISK READY K2507910 7D26 70FD 793 | MDX *-3 LOOP IF DISK BUSY K2507920 794 | * RESET POINTERS K2507930 7D27 C400 7A3B 795 | LD L INPT INDICATOR POINTER K2507940 7D29 930C 796 | S 3 C320-Z DECR INDICATOR POINTER K2507950 7D2A D400 7A3B 797 | STO L INPT SAVE BACK IN POINTER K2507960 7D2C C400 7A39 798 | LD L BUFPT BUFFER POINTER K2507970 7D2E 930C 799 | S 3 C320-Z DECR BUFFERPOINTER K2507980 7D2F D400 7A39 800 | STO L BUFPT SAVE BACK IN BUFFER POINTER K2507990 7D31 C400 7A3C 801 | LD L DHDRA DATA HEADER ADDR K2508000 7D33 930C 802 | S 3 C320-Z DECR DATA HEADER ADDR K2508010 7D34 D400 7A3C 803 | STO L DHDRA SAVE BACK IN DATA HDR ADDR K2508020 804 | * K2508030 805 | * MOVE BUFFER TAIL TO FRONT OF K2508040 806 | * NEXT BUFFER K2508050 807 | * K2508060 7D36 6318 808 | LDX 3 24 XR3 = WORD COUNT OF 24 K2508070 7D37 C700 7B81 809 | MOV1 LD L3 BUFF+319 MOVE LAST 24 WDS OF BFR AREA K2508080 7D39 D700 7A41 810 | STO L3 BUFF-1 TO HEADER AREA K2508090 7D3B 73FF 811 | MDX 3 -1 COUNT K2508100 7D3C 70FA 812 | MDX MOV1 BR IF NO SKIP K2508110 7D3D 6700 7D50 813 | LDX L3 ZERO RESTORE XR3 TO CONSTANT K2508120 814 | * K2508130 7D3F 7401 7A41 815 | MDX L BUFF-1,1 INCR SECTORADDR,SCRATCHAREA K2508140 816 | * K2508150 7D41 7414 7A3A 817 | MDX L INCT,20 MAKE INCT NON-16 K2508160 818 | * K2508170 7D43 4C80 7D15 819 | BSC I WRITE RETURN K2508180 820 | * K2508190 7D45 6101 821 | NOWS LDX 1 1 CALL RECOVERY - NO WS K2508200 7D46 6D00 7A23 822 | STX L1 SOFS-1 K2508210 7D48 6580 7E6F 823 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2508220 7D4A CC00 7E70 824 | LDD L NXTPH+2 NEXT PHASE K2508230 7D4C 4C00 7FBC 825 | BSC L ROL GO TO READ NEXT PHASE K2508240 826 | * K2508250 827 | * K2508260 828 | * K2508270 829 | * K2508280 7D4E 830 | BSS E 0 K2508290 7D4E 0000 831 | STONA DC 0 STORED NAME WD 1 K2508300 7D4F 0000 832 | DC 0 STORED NAME WD 2 K2508310 833 | * K2508320 7D50 0000 834 | ZERO DC 0 CONSTANT K2508330 7D50 835 | Z EQU ZERO CONSTANT K2508340 7D51 0001 836 | ONE DC 1 CONSTANT K2508350 7D52 0002 837 | TWO DC 2 CONSTANT K2508360 7D53 0003 838 | THREE DC 3 CONSTANT K2508370 7D54 0004 839 | FOUR DC 4 CONSTANT K2508380 7D55 0002 840 | H0002 DC /0002 CONSTANT K2508390 7D56 0003 841 | H0003 DC /0003 CONSTANT K2508400 7D57 0005 842 | H0005 DC /0005 CONSTANT K2508410 7D58 0007 843 | SEVEN DC 7 CONSTANT K2508420 7D59 0200 844 | H0200 DC /0200 CONSTANT K2508430 7D5A 0201 845 | TYPE DC /0201 MAINL REL TYPE W PREC CONST K2508440 7D5B 0401 846 | H0401 DC /0401 CONSTANT K2508450 7D5C 0140 847 | C320 DC 320 CONSTANT K2508460 7D5D 1800 848 | H1800 DC /1800 CONSTANT K2508470 7D5E FFFD 849 | HFFFD DC /FFFD CONSTANT K2508480 7D5F FEFF 850 | HFEFF DC /FEFF EXT PRECISION MASK K2508490 7D60 0007 851 | H0007 DC /0007 CONSTANT K2508500 7D61 00FF 852 | H00FF DC /00FF CONSTANT K2508510 7D62 0010 853 | CD16 DC 16 CONSTANT K2508520 7D63 07FC 854 | H07FC DC /07FC CONSTANT K2508530 7D64 F800 855 | HF800 DC /F800 CONSTANT K2508540 7D65 F000 856 | HF000 DC /F000 ID FOR 'DEFINE FILE' K2508550 7D66 07FF 857 | H07FF DC /07FF CONSTANT K2508560 7D67 1000 858 | H1000 DC /1000 CONSTANT K2508570 7D68 2000 859 | H2000 DC /2000 CONSTANT K2508580 7D69 8000 860 | H8000 DC /8000 MASK TO SEE IF DISK IO(BIT0) K2508590 7D6A 4000 861 | H4000 DC /4000 CONSTANT K2508600 7D6B 7B82 862 | BFEND DC BUFF+320 END OF BUFFER O/P AREA 212 K2508610 7D6C 0000 863 | OFSET DC *-* DISPLACEMENT WD FR DATA PT K2508620 7D6D 0000 864 | VSIZE DC *-* VARIABLE SIZE = 1,2 OR 3 K2508630 7D6E 0000 865 | ASIZE DC *-* ARRAY SIZE DATA STMNT K2508640 7D6F 0000 866 | NOELM DC *-* NO. ELEMENTS TO BE FILLED K2508650 7D70 0000 867 | ADCST DC *-* ADDR CONSTANT STRING - 1 K2508660 7D71 0000 868 | CLCT DC *-* LENGTH OF CONSTANT STRING K2508670 869 | * SUPERFLUOUS WORD REMOVED 2-9 K2508680 870 | * K2508690 7D72 0000 871 | NORM DC 0 WD COUNT I/P STRING K2508700 7D73 0000 872 | COSW DC 0 CONSTANT PASS SWITCH K2508710 7D74 0000 873 | TEMP2 DC 0 TEMPORARY STORAGE K2508720 7D75 0000 874 | SYMTP DC 0 SYMBOL TABLE POINTER K2508730 7D76 0000 875 | SCT DC 0 SEVEN COUNT K2508740 7D77 0000 876 | ADUPF DC *-* TEMPORARY DUPLICATION FACTOR K2508750 7D78 0000 877 | ORGSW DC 0 ORIGIN SWITCH 2-4 K2508760 7D79 0101 878 | H0101 DC /0101 ABSOLUTE TYPE 2-4 K2508770 879 | * K2508780 880 | * K2508790 881 | * SUBROUTINE GETST K2508800 882 | * GET OBJECT TIME ADDRESS OR K2508810 883 | * ALPHABETIC NAME FROM SYMBOL TABLE K2508820 884 | * ON ENTRY ACC = STRING POINTER TO K2508830 885 | * SYMBOL TABLE K2508840 886 | * K2508850 7D7A 0000 887 | GETST DC 0 LINK ENTRY POINT K2508860 7D7B E316 888 | AND 3 H07FF-Z MASK OUT ALL BUT VAR PT K2508870 7D7C D00A 889 | STO GET1+1 SAVE VARIABLE POINTER K2508880 7D7D C400 7A26 890 | LD L SOFST LOAD START OF SYMBOL TABLE K2508890 7D7F 9007 891 | S GET1+1 SUBTRACT POINTER IN SYM TBL K2508900 7D80 9006 892 | S GET1+1 *THREE K2508910 7D81 9005 893 | S GET1+1 *TIMES K2508920 7D82 8307 894 | A 3 H0005-Z ADD 5 TO POS AT END OF DATA K2508930 7D83 D003 895 | STO GET1+1 SAVE POINTER K2508940 7D84 9302 896 | S 3 TWO-Z MOVE PT BACK TO ADDR OF ID K2508950 7D85 D00A 897 | STO GET4 STORE ADDR OF ID-WD K2508960 7D86 C400 0000 898 | GET1 LD L *-* LOAD VARIABLE FROM SYM TBL K2508970 7D88 18D0 899 | RTE 16 PUT IN EXTENSION K2508980 7D89 74FF 7D87 900 | MDX L GET1+1,-1 DECR POINTER K2508990 7D8B 1000 901 | SLA 0 GUARDS AGAINST SKIP K2509000 7D8C C480 7D87 902 | LD I GET1+1 GET DATA WD FR SYM TBL K2509010 7D8E 4C80 7D7A 903 | BSC I GETST RETURN K2509020 7D90 0000 904 | GET4 DC *-* ADDR OF SYM TBL ID WORD K2509030 905 | * K2509040 906 | * OUTPUT ADDRESS OR CONSTANT IN K2509050 907 | * ABSOLUTE MODE K2509060 908 | * ACCUMULATOR AND EXTENSION CONTAIN K2509070 909 | * WORDS TO BE OUTPUT K2509080 910 | * K2509090 911 | * ENTRY = ABSOLUTE OUTPUT K2509100 7D91 0000 912 | OUABS DC 0 LINK K2509110 7D92 DBFE 913 | T8011 STD 3 STONA-Z STORE ACC AND EXTENSION K2509120 7D93 C300 914 | LD 3 ZERO-Z ZERO-ZERO K2509130 7D94 4021 915 | BSI IBITS TO INDICATOR AREA K2509140 916 | * K2509150 7D95 C3FE 917 | T8012 LD 3 STONA-Z GET STORED ACCUMULATOR K2509160 7D96 403B 918 | BSI TOBUF MOVE TO BUFFER K2509170 919 | * K2509180 7D97 4C80 7D91 920 | T8016 BSC I OUABS RETURN K2509190 921 | * K2509200 922 | * OUTPUT ADDRESS OR CONSTANT IN K2509210 923 | * RELOCATABLE MODE K2509220 924 | * K2509230 925 | * ENTRY = RELATIVE OUTPUT K2509240 926 | * RELATIVE OUTPUT (INCLUDES TEST K2509250 927 | * WHETHER VARIABLE IS IN COMMON, IN K2509260 928 | * WHICH CASE OUTPUT IS ABSOLUTE K2509270 929 | * K2509280 7D99 0000 930 | OUREL DC 0 LINK ENTRY POINT K2509290 7D9A DBFE 931 | T8013 STD 3 STONA-Z STORE ACC AND EXTENSION K2509300 7D9B C0FD 932 | LD OUREL SET LINK RETURN ADDRESS K2509310 7D9C D0F4 933 | STO OUABS IN ABSOLUTE LINK EXIT POINT K2509320 7D9D C400 7D87 934 | LD L GET1+1 LOAD ADDR OF SYM TBL DATA WD K2509330 7D9F 9301 935 | S 3 ONE-Z SUBTRACT 1 TO GET ADDR ID WD K2509340 7DA0 D001 936 | STO T8014+1 INSERT ADDR OF SYM TBL ID WD K2509350 7DA1 C400 0000 937 | T8014 LD L *-* LOAD SYM TBL ID WORD K2509360 7DA3 E318 938 | AND 3 H2000-Z TEST FOR COMMON INDR BIT K2509370 7DA4 4C18 7DA8 939 | BSC L T8015,+- BR IF NOT IN COMMON K2509380 7DA6 C300 940 | LD 3 ZERO-Z ZERO INDICATOR BIT MASK K2509390 7DA7 700C 941 | MDX T8017+1 GO OUTPUT INDICATOR BITS K2509400 942 | * K2509410 7DA8 C328 943 | T8015 LD 3 ORGSW-Z IS IT ABS COMPILATION 2-4 K2509420 7DA9 4C18 7DB3 944 | BSC L T8017,+- NO - BRANCH 2-4 K2509430 7DAB C3FE 945 | LD 3 STONA-Z YES - RELOCATE 2-4 K2509440 7DAC 8400 7A23 946 | A L ORG THIS 2-4 K2509450 7DAE D3FE 947 | STO 3 STONA-Z ADDRESS 2-4 K2509460 7DAF 4C28 7BBF 948 | BSC L Q101C,+Z BRANCH TO ERROR IF NEG 2-4 K2509470 7DB1 C300 949 | LD 3 ZERO-Z ZERO-ZERO TO IND BITS 2-4 K2509480 7DB2 7001 950 | MDX *+1 SKIP 2-4 K2509490 951 | * K2509500 7DB3 C301 952 | T8017 LD 3 ONE-Z ZERO-ONE FOR INDICATOR BITS K2509510 7DB4 4001 953 | BSI IBITS MOVE TO INDICATOR AREA K2509520 7DB5 70DF 954 | MDX T8012 RETURN K2509530 955 | * K2509540 956 | * K2509550 957 | * INDICATOR BITS K2509560 958 | * ACCUMULATOR CONTAINS BIT PATTERNS TO K2509570 959 | * MASK INTO THE INDICATOR POINTER K2509580 960 | * BASED ON SHIFTS SPECIFIED IN THE K2509590 961 | * INDICATOR COUNTER K2509600 962 | * K2509610 963 | * K2509620 7DB6 0000 964 | IBITS DC 0 LINK ENTRY POINT K2509630 7DB7 D017 965 | STO IBIT5 SAVE BIT PATTERNS K2509640 7DB8 C400 7A3A 966 | LD L INCT PRODUCE SLA AND SRA K2509650 7DBA 8015 967 | A IBIT6 INSTRUCTIONS AND INSERT K2509660 7DBB D006 968 | STO IBIT3 (LENGTH OF SHIFT DEPENDS ON K2509670 7DBC 8014 969 | A IBIT7 INDICATOR COUNTER) K2509680 7DBD D002 970 | STO IBIT2 SET UP SRA INSTRUCTION K2509690 7DBE C480 7A3B 971 | LD I INPT K2509700 7DC0 1800 972 | IBIT2 SRA *-* SRA (INCT - 2) K2509710 7DC1 800D 973 | A IBIT5 TEMP VALUE FROM ACC K2509720 7DC2 1000 974 | IBIT3 SLA *-* SLA (INCT - 2) K2509730 7DC3 D480 7A3B 975 | STO I INPT K2509740 7DC5 74FE 7A3A 976 | MDX L INCT,-2 DECR INDICATOR COUNTER K2509750 7DC7 7005 977 | MDX IBIT4 BR IF NOT ZERO (=NO SKIP) K2509760 7DC8 7409 7A3B 978 | MDX L INPT,9 INCR INDICATOR POINTER K2509770 7DCA C312 979 | LD 3 CD16-Z REINITIALIZE INDICATOR CTR K2509780 7DCB D400 7A3A 980 | STO L INCT TO 16 K2509790 7DCD 4C80 7DB6 981 | IBIT4 BSC I IBITS RETURN K2509800 7DCF 0000 982 | IBIT5 DC 0 TEMPORARY STORAGE K2509810 7DD0 0FFE 983 | IBIT6 DC /0FFE .SLA 0. - 0002 K2509820 7DD1 0800 984 | IBIT7 DC /0800 .SRA 0. - .SLA 0. K2509830 985 | * K2509840 986 | * SUBROUTINE K2509850 987 | * MOVE TO BUFFER K2509860 988 | * ACCUMULATOR CONTAINS INDICATOR K2509870 989 | * POINTER K2509880 990 | * K2509890 7DD2 0000 991 | TOBUF DC 0 LINK ENTRY POINT K2509900 7DD3 D480 7A39 992 | STO I BUFPT SAVE WORD IN BUFFER K2509910 7DD5 7401 7A3D 993 | MDX L LOCTR,1 INCR LOCATION COUNTER K2509920 994 | * K2509930 995 | * TEST IF SKIP TO NEXT 8WORD GROUP K2509940 7DD7 C400 7A3A 996 | LD L INCT LOAD INDICATOR COUNTER K2509950 7DD9 9312 997 | S 3 CD16-Z SUBTRACT 16 K2509960 7DDA 4C20 7DED 998 | BSC L TOBU1,Z BR IF NOT NEW INDR WORD K2509970 7DDC D480 7A3B 999 | STO I INPT ZERO TO NEW INDICATOR WORD K2509980 1000 | * K2509990 1001 | * SUPERFLUOUS CODING REMOVED 2-9 K2510000 1002 | * K2510050 1003 | * TEST IF END OF BUFFER K2510060 7DDE C400 7A3B 1004 | TEOB LD L INPT LOAD INDICATOR POINTER K2510070 7DE0 931B 1005 | S 3 BFEND-Z K2510080 7DE1 4C28 7DEC 1006 | BSC L TOBUC,Z+ BR IF BUFF NOT FULL K2510090 7DE3 43C5 1007 | BSI 3 WRITE-Z K2510100 7DE4 C400 7A3B 1008 | LD L INPT INDIC PTR TO K2510110 7DE6 D400 7A39 1009 | STO L BUFPT BUFFER POINTER K2510120 7DE8 4400 7DFD 1010 | BSI L DHDRR DATAHEADERROUTINE K2510130 7DEA 4C80 7DD2 1011 | BSC I TOBUF REUTRN K2510140 1012 | * K2510150 7DEC 4003 1013 | TOBUC BSI PCT BUFFER COUNT SUBR K2510160 7DED 4002 1014 | TOBU1 BSI PCT BUFFER COUNT SUBR K2510170 7DEE 4C80 7DD2 1015 | BSC I TOBUF RETURN K2510180 1016 | * K2510190 1017 | * K2510200 1018 | * SUBROUTINE MOVE BUFFERPOINTERS K2510210 1019 | * K2510220 7DF0 0000 1020 | PCT DC 0 LINK K2510230 1021 | * K2510240 1022 | * INCR COUNT IN DATAHEADER K2510250 7DF1 C400 7A3C 1023 | LD L DHDRA LOAD ADDR OF NEXT DATA WD K2510260 7DF3 8301 1024 | A 3 ONE-Z ADD 1 K2510270 7DF4 D001 1025 | STO PCT0+1 SAVE ADDR OF CNT NXT DATA WD K2510280 7DF5 7401 0000 1026 | PCT0 MDX L *-*,1 INCR CNT OF DATA WDS K2510290 1027 | * K2510300 7DF7 7401 7A3E 1028 | MDX L PRLGT,1 INCR PROGRAM LENGTH COUNT K2510310 7DF9 7401 7A39 1029 | MDX L BUFPT,1 INCR BUFFERPOINTER K2510320 7DFB 4C80 7DF0 1030 | PCT1 BSC I PCT RETURN K2510330 1031 | * K2510340 1032 | * K2510350 1033 | * DATAHEADER ROUTINE K2510360 1034 | * OUTPUT DATA HEADER K2510370 1035 | * ACCUMULATOR CONTAINS LOCATION COUNTER K2510380 1036 | * K2510390 7DFD 0000 1037 | DHDRR DC 0 LINK K2510400 7DFE 7043 1038 | DHDR1 MDX FIRST FIRST-TIME-SWITCH K2510410 1039 | * (AFTER FIRST TIME = NO OP) K2510420 7DFF C400 7A3A 1040 | LD L INCT LOAD INDICATOR COUNTER K2510430 7E01 9312 1041 | S 3 CD16-Z SUBTRACT 16 K2510440 7E02 4C20 7E17 1042 | BSC L DHDR0,Z BR IF NOT EMPTY K2510450 7E04 C480 7DF6 1043 | LD I PCT0+1 LOAD NO. DATA WDS IN BUFFER K2510480 7E06 9301 1044 | S 3 ONE-Z DECR BY 1 K2510490 7E07 D480 7DF6 1045 | STO I PCT0+1 ADJUST HEADER K2510500 7E09 9302 1046 | S 3 TWO-Z CHECK IF NO DATA WORDS 2-8 K2510501 7E0A 4C20 7E11 1047 | BSC L LAB1,Z DO NOT BRANCH IF SO 2-8 K2510502 7E0C 74FD 7A3E 1048 | MDX L PRLGT,-3 OVERLAY LAST DATA HEADER 2-8 K2510503 7E0E 74FE 7A3B 1049 | MDX L INPT,-2 *WITH THE NEW ONE 2-8 K2510504 7E10 7002 1050 | MDX LAB2 2-8 K2510505 7E11 74FF 7A3E 1051 | LAB1 MDX L PRLGT,-1 2-8 K2510506 7E13 C400 7A3B 1052 | LAB2 LD L INPT LOAD INDICATOR POINTER 2-8 K2510507 7E15 D400 7A39 1053 | STO L BUFPT RESET BUFFER POINTER 2-8 K2510508 7E17 1054 | DHDR0 EQU * ENTRY POINT K2510510 7E17 C328 1055 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2510520 7E18 4C18 7E21 1056 | BSC L DHDRY,+- NO - BRANCH 2-4 K2510530 7E1A C400 7A3D 1057 | LD L LOCTR RELOCATE THE 2-4 K2510540 7E1C 8400 7A23 1058 | A L ORG LOCATION COUNTER 2-4 K2510550 7E1E 4C28 7BBF 1059 | BSC L Q101C,+Z ERROR IF NEGATIVE 2-4 K2510560 7E20 7002 1060 | MDX DHDRZ CONTINUE 2-4 K2510570 7E21 C400 7A3D 1061 | DHDRY LD L LOCTR LOCCOUNTER TO DATAHEADER K2510580 7E23 D480 7A39 1062 | DHDRZ STO I BUFPT SAVE IN BUFFER K2510590 7E25 C400 7A39 1063 | LD L BUFPT INSERT NEW DATAHEADER ADDR K2510600 7E27 D400 7A3C 1064 | STO L DHDRA SAVE K2510610 7E29 8301 1065 | A 3 ONE-Z INCREASE TO POINT 2-8 K2510613 7E2A D0CB 1066 | STO PCT0+1 *AT WORD COUNT 2-8 K2510616 7E2B 7401 7A39 1067 | MDX L BUFPT,1 INCR BUFFER POINTER K2510620 7E2D C303 1068 | LD 3 THREE-Z INITIAL COUNT = 3 K2510630 1069 | * (INDICATOR WORD +2) K2510640 7E2E D480 7A39 1070 | STO I BUFPT SAVE IN BUFFER K2510650 7E30 7401 7A39 1071 | MDX L BUFPT,1 INCR BUFFER POINTER K2510660 7E32 C300 1072 | LD 3 ZERO-Z CLEAR ACC K2510670 7E33 D480 7A39 1073 | STO I BUFPT ZERO TO FIRST INDICATOR K2510680 7E35 C400 7A39 1074 | LD L BUFPT GET BUFFER POINTER K2510690 7E37 D400 7A3B 1075 | STO L INPT INSER INDICATOR POINTER K2510700 7E39 C312 1076 | LD 3 CD16-Z RESET INDICATOR POINTER K2510710 7E3A D400 7A3A 1077 | STO L INCT K2510720 7E3C 7401 7A39 1078 | MDX L BUFPT,1 MOVE BUFPTR TO NEXT DATAWORD K2510730 7E3E 7403 7A3E 1079 | MDX L PRLGT,3 COUNT 3 FOR DATAHDR K2510740 7E40 4C80 7DFD 1080 | DHDRX BSC I DHDRR RETURN K2510750 1081 | * K2510760 1082 | * USED AT FIRST ENTRY TO ROUTINE K2510770 7E42 D400 7A3D 1083 | FIRST STO L LOCTR INSERT LOCATION COUNTER K2510780 7E44 D400 7A4E 1084 | STO L WD13 SAVE IN HEADER WD K2510790 7E46 C328 1085 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2510800 7E47 4C18 7E51 1086 | BSC L FRST1,+- NO - BRANCH 2-4 K2510810 7E49 C400 7A4E 1087 | LD L WD13 YES - LOAD WORD 13 2-4 K2510820 7E4B 4C20 7E55 1088 | BSC L FRST2,Z BRANCH IF NON-ZERO 2-4 K2510830 7E4D C400 7A23 1089 | LD L ORG SET ORIGIN ADDRESS 2-4 K2510840 7E4F D400 7A4E 1090 | STO L WD13 IN WORD 13 2-4 K2510850 7E51 C002 1091 | FRST1 LD NOP REPLACE FIRST-TIME-BRANCH K2510860 7E52 D0AB 1092 | STO DHDR1 BY NOP K2510870 7E53 70EC 1093 | MDX DHDRX TO RETURN K2510880 7E54 1000 1094 | NOP SLA 0 K2510890 1095 | * K2510900 7E55 9301 1096 | FRST2 S 3 ONE-Z IS IT ONE 2-4 K2510910 7E56 4C20 7E5E 1097 | BSC L FRST3,Z NO - BRANCH 2-4 K2510920 7E58 4341 1098 | BSI 3 OUABS-Z YES - OUTPUT DUMMY 2-4 K2510930 7E59 C400 7A23 1099 | LD L ORG WORD AT THE 2-4 K2510940 7E5B D400 7A4E 1100 | STO L WD13 ORIGIN ADDRESS 2-4 K2510950 7E5D 70F3 1101 | MDX FRST1 GO BACK AGAIN 2-4 K2510960 1102 | * K2510970 7E5E C400 7A23 1103 | FRST3 LD L ORG SET ORIGIN ADDRESS 2-4 K2510980 7E60 D400 7A4E 1104 | STO L WD13 IN DATA HEADER 2-4 K2510990 7E62 C0F1 1105 | LD NOP SET NOP IN 2-4 K2511000 7E63 D09A 1106 | STO DHDR1 FIRST TIME BRANCH 2-4 K2511010 7E64 C300 1107 | LD 3 ZERO-Z OUTPUT DUMMY 2-4 K2511020 7E65 4341 1108 | BSI 3 OUABS-Z WORD 2-4 K2511030 7E66 74FF 7A3D 1109 | MDX L LOCTR,-1 RESTORE LOCTR 2-4 K2511040 7E68 7095 1110 | MDX DHDR1 MAKE NEW HEADER 2-4 K2511050 1111 | * K2511060 1112 | * K2511070 1113 | * LOAD NEXT PHASE K2511080 1114 | * K2511090 7E69 6580 7E6F 1115 | EXIT LDX I1 NXTPH+1 LOAD PARAM FOR READING K2511100 7E6B C804 1116 | LDD NXTPH+2 NEXT PHASE K2511110 7E6C 4C00 7FBC 1117 | BSC L ROL GO TO READ NEXT PHASE K2511120 7E6E 1118 | BSS E 0 K2511130 7E6E 0038 1119 | NXTPH DC 56 ID OF NEXT PHASE K2511140 7E6F 1120 | BSS 3 LOADER TABLE FOR NEXT PHASE K2511150 1121 | * K2511160 1122 | * K2511170 1123 | * PROGRAM ENTRY K2511180 7E72 6137 1124 | ENT LDX 1 PHID GET ID THIS PHASE K2511190 7E73 6D00 0078 1125 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2511200 1126 | * TEST IF OUTPUT IS TO BE DEFERRED K2511210 1127 | * K2511220 7E75 C400 7A2D 1128 | LD L ERROR K2511230 7E77 4C18 7A84 1129 | BSC L START,+- BRANCH TO START IF NO K2511240 1130 | * ERROR K2511250 7E79 4C00 7E69 1131 | BSC L EXIT K2511260 1132 | * K2511270 1133 | * SUPERFLUOUS CODING REMOVED 2-9 K2511280 7E7B 1134 | BSS /7F35-* PATCH AREA K2511320 7F35 0000 1135 | DC 0 K2511330 7F36 1136 | END BPHAR-2 K2511340 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $DBSY 00EE 103 792 $FPAD 0095 105 234 $PHSE 0078 99 1125 $WSDR 007A 104 233 ADCST 7D70 867 470 624 ADUPF 7D77 876 501 516 551 554 ASIZE 7D6E 865 544 560 589 BFEND 7D6B 862 613 1005 BPHAR 7A36 164 1136 BUFF 7A42 197 200 235 300 769 786 809 810 815 862 BUFPT 7A39 185 798 800 992 1009 1029 1053 1062 1063 1067 1070 1071 1073 1074 1078 C320 7D5C 847 796 799 802 CCWD 7A31 123 242 274 317 322 519 530 576 706 760 CD16 7D62 853 616 979 997 1041 1076 CLCT 7D71 868 627 631 COMON 7A2B 117 332 COSW 7D73 872 694 702 729 731 COUNT 7BC9 354 355 362 413 CSIZE 7A2C 118 329 DFCNT 7A33 144 264 281 349 DHDR0 7E17 1054 1042 DHDR1 7DFE 1038 1092 1106 1110 DHDRA 7A3C 188 801 803 1023 1064 DHDRR 7DFD 1037 357 611 643 1010 1080 DHDRX 7E40 1080 1093 DHDRY 7E21 1061 1056 DHDRZ 7E23 1062 1060 DHT 7C8D 604 488 591 614 618 DHT1 7C96 610 605 DHT2 7CA4 618 607 DPLF 7C0E 454 476 491 500 563 566 DT102 7BF9 432 448 DT104 7C09 447 440 464 465 DT201 7C10 459 446 493 DT202 7C20 478 473 626 DT203 7C22 479 495 DT211 7C2B 488 DT221 7C2D 491 597 DT222 7C31 494 492 DT301 7C33 499 483 DT320 7C44 518 507 514 DT330 7C6B 562 552 DT340 7C56 536 528 DT350 7C83 587 570 574 578 DT360 7C88 594 596 DTAC 7CA6 623 490 594 633 DTAC1 7CAC 628 632 DTAC2 7CAE 629 625 628 DTAID 7C0F 455 445 DZ000 00F2 102 791 ENDLZ 7D10 770 788 ENT 7E72 1124 172 EOFS 7A25 111 EOFST 7A2A 116 659 ERROR 7A2D 119 297 340 1128 EXIT 7E69 1115 298 341 744 751 1131 F1012 7BCA 355 350 F1014 7BD0 362 392 F1015 7BD3 365 378 F1016 7BDE 377 376 F1021 7BE1 386 371 F1022 7BE3 389 415 F1023 7BE8 395 391 F1024 7BF1 409 396 F1025 7BF3 413 406 F2012 7BF7 425 351 364 F3011 7CB6 639 444 FIRST 7E42 1083 1038 FNAME 7A2E 120 257 FOUR 7D54 839 386 FRST1 7E51 1091 1086 1101 FRST2 7E55 1096 1088 FRST3 7E5E 1103 1097 GET1 7D86 898 487 588 889 891 892 893 895 900 902 934 GET4 7D90 904 481 526 538 572 897 GETST 7D7A 887 400 480 903 H0002 7D55 840 H0003 7D56 841 H0005 7D57 842 894 H0007 7D60 851 472 H0080 7BC3 343 326 H00FF 7D61 852 712 H0101 7D79 878 246 H0200 7D59 844 H0401 7D5B 846 763 H07FC 7D63 854 366 436 H07FF 7D66 857 888 H1000 7D67 858 443 H1800 7D5D 848 482 670 H2000 7D68 859 267 938 H4000 7D6A 861 277 H8000 7D69 860 271 HF000 7D65 856 370 HF800 7D64 855 369 433 HFEFF 7D5F 850 275 HFFFD 7D5E 849 672 673 IBIT2 7DC0 972 970 IBIT3 7DC2 974 968 IBIT4 7DCD 981 977 IBIT5 7DCF 982 965 973 IBIT6 7DD0 983 967 IBIT7 7DD1 984 969 IBITS 7DB6 964 915 953 981 INCT 7A3A 186 617 817 966 976 980 996 1040 1077 INISR 7D05 755 314 INIST 7CBD 654 732 INIT 7AB0 287 INPT 7A3B 187 612 795 797 971 975 978 999 1004 1008 1049 1052 1075 IOCS 7A32 132 269 LAB1 7E11 1051 1047 LAB2 7E13 1052 1050 LOCTR 7A3D 189 606 609 610 642 685 743 993 1057 1061 1083 1109 MEMRY 8000 97 98 100 MOV1 7D37 809 812 NEQ 7A36 172 NOELM 7D6F 866 549 555 564 568 581 584 585 595 NOP 7E54 1094 1091 1105 NORM 7D72 871 367 374 390 NOWS 7D45 821 789 NXTPH 7E6E 1119 167 823 824 1115 1116 OFSET 7D6C 863 503 511 546 559 ONE 7D51 836 319 324 515 532 565 935 952 1024 1044 1065 1096 ORG 7A23 109 294 337 946 1058 1089 1099 1103 ORGSW 7D78 877 245 291 334 943 1055 1085 OUABS 7D91 912 410 630 713 715 718 747 920 933 1098 1108 OUREL 7D99 930 401 932 OVERL 7A23 98 106 PCT 7DF0 1020 780 1013 1014 1030 PCT0 7DF5 1026 1025 1043 1045 1066 PCT1 7DFB 1030 PHID 0037 101 1124 PRLGT 7A3E 190 1028 1048 1051 1079 Q0010 7A9A 264 254 Q1000 7AAF 284 282 Q1011 7B96 305 292 296 Q1012 7CC0 658 676 Q1013 7CC9 669 695 703 724 Q101A 7BB0 332 Q101B 7BC4 349 335 339 Q101C 7BBF 340 948 1059 Q101X 7BA0 321 764 Q1021 7CD2 682 664 Q1022 7CD4 685 Q1031 7CE0 702 691 Q1032 7CEB 714 709 Q1033 7CEE 718 699 Q1041 7CF2 729 660 Q1051 7CF8 741 730 748 ROL 7FBC 100 825 1117 SCT 7D76 875 387 395 405 SEVEN 7D58 843 266 404 SOFGT 7A29 115 742 SOFNS 7A27 113 288 SOFS 7A24 110 360 427 822 SOFST 7A26 112 654 890 SOFXT 7A28 114 283 289 640 741 SORF 7A30 122 253 313 STAR1 7A93 253 244 START 7A84 228 1129 STID 7C0D 453 434 442 STONA 7D4E 831 913 917 931 945 947 SYMTP 7D75 874 655 658 662 669 674 675 682 T8011 7D92 913 T8012 7D95 917 954 T8013 7D9A 931 T8014 7DA1 937 936 T8015 7DA8 943 939 T8016 7D97 920 T8017 7DB3 952 941 944 TEMP2 7D74 873 268 272 273 278 686 721 TEOB 7DDE 1004 THREE 7D53 838 523 539 1068 TMP1 7C0C 452 438 439 462 463 TOBU1 7DED 1014 998 TOBUC 7DEC 1013 1006 TOBUF 7DD2 991 918 1011 1015 TWO 7D52 837 521 896 1046 TYPE 7D5A 845 247 320 VSIZE 7D6D 864 524 534 542 548 557 590 WD1 7A42 200 WD10 7A4B 210 258 260 WD12 7A4D 212 333 336 338 WD13 7A4E 215 188 1084 1087 1090 1100 1104 WD14 7A4F 216 WD15 7A50 219 187 WD16 7A51 220 185 WD2 7A43 201 WD3 7A44 202 321 327 328 WD4 7A45 203 290 293 295 WD5 7A46 204 330 WD6 7A47 205 WD7 7A48 206 284 WD8 7A49 207 WD9 7A4A 209 279 WR900 7D0E 768 790 WRITE 7D15 777 775 819 1007 WRITS 7D11 773 615 774 WRITT 7D1B 786 776 Z 7D50 835 245 246 247 266 267 268 271 272 273 275 277 278 291 319 320 324 334 366 367 369 370 374 386 387 400 401 404 405 410 433 436 443 472 480 482 501 503 511 515 516 521 523 524 532 534 538 539 542 544 546 548 549 551 554 555 557 559 560 564 565 568 581 584 585 589 590 613 616 624 627 630 655 658 670 672 673 674 675 686 694 702 712 713 715 718 721 729 747 763 796 799 802 888 894 896 913 914 917 931 935 938 940 943 945 947 949 952 979 997 1005 1007 1024 1041 1044 1046 1055 1065 1068 1072 1076 1085 1096 1098 1107 1108 ZERO 7D50 834 239 813 835 914 940 949 1072 1107
ibm/ibm1130-lib/dmsr2v12/kforph25_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator