ibm:ibm1130-lib:dmsr2v12:kforph26_lst
KFORPH26
| Table Of Contents |
|---|
|
- kforph26.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph26.asm 1130 FORTRAN COMPILER PHASE 26 2 | *************************************************** K2600020 3 | * * K2600030 4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2600040 5 | * * K2600050 6 | *FUNCTION/OPERATION- * K2600060 7 | * * TESTS FOR EXTENDED PRECISION AND CHANGES * K2600070 8 | * THE NAME CODES FOR THE AFFECTED SUBROUTINES * K2600080 9 | * TO REFLECT THIS CONDITION * K2600090 10 | * * CONVERTS THE COMPILED STATEMENT STRING TO * K2600100 11 | * OUTPUT CODE AND STORES IT IN THE BUFFER AREA* K2600110 12 | * * PUTS DATA FROM THE BUFFER INTO WORKING * K2600120 13 | * STORAGE ON THE DISK * K2600130 14 | * * K2600140 15 | *INPUT-THE STMNT STRING, SYMBOL TABLE, FCOM AND * K2600150 16 | * THE DISK OUTPUT BUFFER FROM PREVIOUS PHASES * K2600160 17 | * * K2600170 18 | *OUTPUT- * K2600180 19 | * * WORKING STORAGE ON THE DISK CONTAINING * K2600190 20 | * HEADER AND DATA RECORDS, REAL AND INTEGER * K2600200 21 | * CONSTANTS AND OUTPUT FROM DEFINE FILE * K2600210 22 | * STATEMENTS AND THE COMPILED PROGRAM * K2600220 23 | * * K2600230 24 | *EXTERNAL REFERENCES- * K2600240 25 | * SUBROUTINES- * K2600250 26 | * * ROL-A SUBROUTINE TO LOAD THE NEXT PHASE * K2600260 27 | * OF THE COMPILER * K2600270 28 | * * DZ000-DISK WRITE SUBROUTINE * K2600280 29 | * COMMA/DCOM * K2600290 30 | * * $PHSE * K2600300 31 | * * $DBSY * K2600310 32 | * * $LINK * K2600320 33 | * * K2600330 34 | *EXITS- * K2600340 35 | * NORMAL-A CALL TO THE ROL ROUTINE BRINGS IN * K2600350 36 | * THE NEXT PHASE * K2600360 37 | * ERROR-NONE * K2600370 38 | * * K2600380 39 | *TABLES/WORK AREAS * K2600390 40 | * * INPUT STRING * K2600400 41 | * * SYMBOL TABLE * K2600410 42 | * * FCOM * K2600420 43 | * * DISK OUTPUT BUFFER * K2600430 44 | * * K2600440 45 | *ATTRIBUTES-N/A * K2600450 46 | * * K2600460 47 | *NOTES- * K2600470 48 | * PROGRAM HEADER CONSISTS OF 12 WORDS IN THE * K2600480 49 | * BUFFER AREA * K2600490 50 | * WD 1 RESERVED * K2600500 51 | * WD 2 RESERVED * K2600510 52 | * WD 3 INTEGER TYPE, PRECISION * K2600520 53 | * WD 4 OBJECT TIME PROGRAM LENGTH * K2600530 54 | * WD 5 LENGTH OF COMMON * K2600540 55 | * WD 6 WD SIZE OF PROGRAM HEADER - 9 (=3) * K2600550 56 | * WD 7 VAR. AREA WHEN NO DEFINE FILE STMNT * K2600560 57 | * WD 8 LENGTH OF PROGRAM IN DISK BLOCKS * K2600570 58 | * WD 9 NUMBER OF FILES DEFINED * K2600580 59 | * WD10 PROGRAM NAME * K2600590 60 | * WD11 PROGRAM NAME * K2600600 61 | * WD12 EXECUTION ADDRESS * K2600610 62 | * DATA HEADER CONSISTS OF 4 WORDS (WD13-WD16) * K2600620 63 | * WD13 ADDRESS OF NEXT DATA * K2600630 64 | * WD 14 NUMBER OF DATA WORDS * K2600640 65 | * WD15 FIRST INDICATOR WORD * K2600650 66 | * WD16 FIRST DATA WORD * K2600660 67 | * EVERY 8 WORDS OF DATA OR PROGRAM OUTPUT IS * K2600670 68 | * PRECEDED BY AN INDICATOR WORD CONTAINING TWO * K2600680 69 | * BITS OF INFORMATION FOR EACH OF THE SUCCESSIVE* K2600690 70 | * EIGHT WORDS. THE TWO BITS HAVE THE FOLLOWING * K2600700 71 | * MEANINGS. * K2600710 72 | * 00 = ABSOLUTE INSTRUCTION OR DATA * K2600720 73 | * 01 = RELOCATABLE INSTRUCTION * K2600730 74 | * 10 = ONE WORD CALL * K2600740 75 | * 11 = TWO WORD CALL * K2600750 76 | * * K2600760 77 | *************************************************** K2600770 1130 FORTRAN COMPILER PHASE 26 79 | * * K2600790 80 | *** NOTE- COMMENTS BEGIN IN COL. 44 *** K2600800 81 | * K2600810 82 | ABS K2600820 83 | * OUTPUT2 K2600830 84 | * K2600840 85 | * SYSTEM EQUATES K2600850 86 | * K2600860 8000 87 | MEMRY EQU /8000 K2600870 0078 88 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2600880 7FBC 89 | ROL EQU MEMRY-68 LOC OF PROG TO RD NXT PH K2600890 7A23 90 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2600900 0038 91 | PHID EQU 56 ID NUMBER THIS PHASE K2600910 00F2 92 | DZ000 EQU /F2 DISKZ ENTRY POINT K2600920 00EE 93 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY K2600930 0039 94 | $LINK EQU /39 CALL LINK ENTRY POINT K2600940 0003 95 | PHLEN EQU 3 NO SECTORS THIS PHASE K2600945 96 | * K2600950 7A23 97 | ORG OVERL K2600960 98 | * K2600970 99 | * FORTRAN COMMUNICATION K2600980 7A23 100 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2600990 7A24 101 | SOFS BSS 1 START OF STRING K2601000 7A25 102 | EOFS BSS 1 END OF STRING K2601010 7A26 103 | SOFST BSS 1 START OF SYMBOL TABLE K2601020 104 | * AT END OF THIS PHASE K2601030 105 | * PROGRAM LENGTH, DISKBYTES K2601040 106 | * MOVED TO /005C BY RECOVERY PHASE) K2601050 7A27 107 | SOFNS BSS 1 PROGR LENGTH AT OBJECT TIME K2601060 108 | * (MOVED TO /005F BY RECOVERY PHASE) K2601070 7A28 109 | SOFXT BSS 1 SIZE OF WORK AREA K2601080 7A29 110 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2601090 7A2A 111 | EOFST BSS 1 END OF SYMBOL TABLE K2601100 7A2B 112 | COMON BSS 1 ENTRY POINT K2601110 7A2C 113 | CSIZE BSS 1 SIZE OF COMMON K2601120 7A2D 114 | ERROR BSS 1 OVERLAP ERROR K2601130 7A2E 115 | FNAME BSS 1 K2601140 7A2F 116 | BSS 1 K2601150 7A30 117 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2601160 7A31 118 | CCWD BSS 1 CONTROL CARD WORD K2601170 119 | * BIT 15 TRANSFER TRACE K2601180 120 | * BIT 14 ARITHMETIC TRACE K2601190 121 | * BIT 13 EXTENDED PRECISION K2601200 122 | * BIT 12 LIST SYMBOL TABLE K2601210 123 | * BIT 11 LIST SUBPROGRAM NAMES K2601220 124 | * BIT 10 LIST SOURCE PROGRAM K2601230 125 | * BIT 9 ONE WORD INTEGERS K2601240 126 | * BIT 8 ORIGIN 2-4 K2601250 7A32 127 | IOCS BSS 1 IOCS CONTROL CARD WORD K2601260 128 | * BIT 15 CARD K2601270 129 | * BIT 14 PAPER TAPE K2601280 130 | * BIT 13 TYPEWRITER K2601290 131 | * BIT 12 1403 PRINTER K2601300 132 | * BIT 11 2501 READER K2601310 133 | * BIT 10 KEYBOARD K2601320 134 | * BIT 9 1442 PUNCH K2601330 135 | * BIT 8 DISK K2601340 136 | * BIT 7 1132 PRINTER K2601350 137 | * BIT 3 PLOTTER K2601360 138 | * BIT 1 UNFORMATTED DISK K2601370 7A33 139 | DFCNT BSS 1 FILE COUNT K2601380 140 | * K2601390 141 | * K2601400 142 | * END OF FORTRAN COMMUNICATION K2601410 143 | * AREA K2601420 144 | *************************************************** K2601430 145 | * K2601440 146 | * K2601450 147 | * BUFFER COMMUNICATIONS AREA K2601460 148 | * AND BUFFER K2601470 149 | * K2601480 150 | * K2601490 151 | * RESERVED FOR COMMUNICATION K2601500 152 | * BETWEEN PHASES K2601510 153 | * DISKOUT1 AND DISKOUT2 K2601520 154 | * AS FOLLOWS K2601530 155 | * K2601540 7A34 156 | BSS 4 K2601550 157 | * K2601560 7A38 158 | BSS E 0 K2601570 7A38 159 | BUFCT BSS 1 BUFFERCOUNT K2601580 7A39 160 | BUFPT BSS 1 BUFFERPOINTER K2601590 7A3A 161 | INCT BSS 1 INDICATOR COUNTER K2601600 7A3B 162 | INPT BSS 1 INDICATOR POINTER K2601610 7A3C 163 | DHDRA BSS 1 DATAHEADER-ADDRESS K2601620 7A3D 164 | LOCTR BSS 1 LOCATION COUNTER K2601630 7A3E 165 | PRLGT BSS 1 PROGR LENGTH K2601640 7A3F 166 | BSS 1 NOT YET USED K2601650 7A40 167 | BSS 1 SECTOR COUNT K2601660 7A41 168 | BSS 1 SCRATCH SECTOR ADDR K2601670 7A42 169 | BUFF BSS 340 212 K2601680 7A42 170 | WD1 EQU BUFF K2601690 7A43 171 | WD2 EQU BUFF+1 K2601700 7A44 172 | WD3 EQU BUFF+2 K2601710 173 | * K2601720 174 | * K2601730 7B96 175 | ORG BUFF+340 ORIGIN FOR THIS PHASE 212 K2601740 7B98 176 | BPHAR EQU *+2 K2601750 7B96 0000 177 | DC 0 LOADER WORK AREA K2601760 7B97 FFC8 178 | DC -56 -PHASE ID FOR SLET LOOKUP K2601770 7B98 038A 179 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K2601780 7B99 0001 180 | DC 1 ONE ENTRY TO BE SET BY LDR K2601790 7B98 181 | ORG *-2 K2601800 182 | * K2601810 7B98 4C00 7F13 183 | NEQ BSC L ENT BR TO INITIALIZE PROGRAM K2601820 184 | * K2601830 185 | * INITIALIZTRANSFER VECTOR POINTER K2601840 7B9A 1000 186 | START SLA 0 NOP K2601850 7B9B 6700 7CFE 187 | LDX L3 ZERO SET UP POINTER TO CONSTANTS K2601860 188 | * K2601870 7B9D C400 7A31 189 | LD L CCWD IS IT ABSOLUTE 2-4 K2601880 7B9F 1008 190 | SLA 8 COMPILATION 2-4 K2601890 7BA0 4828 191 | BSC +Z NO - SKIP 2-4 K2601900 7BA1 D328 192 | STO 3 ORGSW-Z YES - SET ORIGIN SW 2-4 K2601910 193 | * K2601920 194 | * TEST IF EXTENDED PRECISION K2601930 195 | * K2601940 7BA2 1005 196 | SLA 5 SHIFT EXTENDED PREC INDR K2601950 7BA3 4C10 7BBD 197 | BSC L Q1011,- BR IF NOT EXTENDED PREC K2601960 198 | * K2601970 199 | * CHANGE SYSTEM SUBROUTINE NAMES K2601980 200 | * SO THAT APPLICABLE NAMES BEGIN K2601990 201 | * WITH E RATHER THAN WITH F K2602000 202 | * K2602010 203 | * CHANGE SUBROUTINE NAMES K2602020 204 | * FAXIX THROUGH FADD K2602030 205 | * K2602040 7BA5 6124 206 | LDX 1 FAXIX-TABSS+2 K2602050 7BA6 400D 207 | Q1005 BSI FTOE CHANGE NEXT NAME K2602060 7BA7 71FE 208 | MDX 1 -2 DECR COUNT ON NAMES K2602070 7BA8 70FD 209 | MDX Q1005 BR IF INDEX NOT ZERO K2602080 210 | * K2602090 211 | * CHANGE WCHRI TO VCHRI K2602100 212 | * K2602110 7BA9 6146 213 | LDX 1 FCHRI-TABSS+2 K2602120 7BAA 4009 214 | BSI FTOE CHANGE W TO V K2602130 215 | * K2602140 216 | * K2602150 7BAB C304 217 | LD 3 H0004-Z DIFF IN SECOND CHAR K2602160 7BAC D00F 218 | STO DIFF BETWEEN E AND F TO CHG NAMES K2602170 219 | * K2602180 220 | * CHANGE NAMES OF TRACE-ROUTINES K2602190 221 | * TO HAVE SECOND CHARACTER 'E' K2602200 222 | * INSTEAD OF 'F' K2602210 223 | * K2602220 7BAD 612A 224 | LDX 1 FARI-TABSS+2 K2602230 7BAE 4005 225 | BSI FTOE BR TO CHANGE MFAR TO MEAR K2602240 7BAF 612C 226 | LDX 1 FARIX-TABSS+2 K2602250 7BB0 4003 227 | BSI FTOE BR TO CHANGE MFARX TO MEARX K2602260 7BB1 613C 228 | LDX 1 FIF-TABSS+2 K2602270 7BB2 4001 229 | BSI FTOE BR TO CHANGE SFIX TO SEIX K2602280 7BB3 7009 230 | MDX Q1011 BR PAST SUBROUTINE K2602290 231 | * K2602300 232 | * K2602310 233 | * SUBROUTINE K2602320 234 | * CHANGE .F. IN 1ST OR 2ND CHARACTER OF K2602330 235 | * NAME INTO .E. K2602340 236 | * (OR E INTO V ETC) K2602350 237 | * (DISPLACEMENT IN NAME LIST = X1) K2602360 238 | * K2602370 7BB4 0000 239 | FTOE DC 0 LINK ENTRY POINT K2602380 7BB5 C500 7E73 240 | LD L1 TABSS-2 LOAD ENTRY FR TBL RLTV XR1 K2602390 7BB7 9004 241 | S DIFF SUBTRACT CHARACTER DIFF K2602400 7BB8 D500 7E73 242 | STO L1 TABSS-2 SAVE NEW NAME K2602410 7BBA 4C80 7BB4 243 | BSC I FTOE RETURN K2602420 244 | * K2602430 245 | * CONSTANTS K2602440 246 | * K2602450 7BBC 0100 247 | DIFF DC /0100 DIFF BETWEEN .E. AND .F. IN K2602460 248 | * FIRST CHARACTER OF A NAME K2602470 249 | * K2602480 7BBD 6580 7A24 250 | Q201A LDX I1 SOFS INITIALIZE INPUT POINTER K2602490 7BBD 251 | Q1011 EQU Q201A K2602500 252 | * K2602510 7BBF 6700 7CFE 253 | LDX L3 ZERO RESTORE CONSTANT POINTER K2602520 254 | * K2602530 7BC1 71FF 255 | MDX 1 -1 K2602540 7BC2 4346 256 | Q2012 BSI 3 INIT-Z INITIALIZE NEXT STATEMENT K2602550 7BC3 C321 257 | LD 3 STOID-Z LOAD STORED ID TYPE K2602560 258 | * K2602570 259 | * SPOT FOR TEST STOP K2602580 7BC4 1000 260 | SLA 0 NOP K2602590 261 | * K2602600 7BC5 9305 262 | S 3 IDFOR-Z TEST FOR FORMAT STATEMENT K2602610 7BC6 4C18 7BD2 263 | BSC L Q2013,+- BR IF FORMAT K2602620 264 | * K2602630 7BC8 9323 265 | S 3 IDDEF-Z TEST FOR DEFINE FILE STMNT K2602640 7BC9 4C18 7BD9 266 | BSC L Q2101,+- BR IF DEFINE FILE K2602650 7BCB 9324 267 | S 3 IDDAT-Z TEST FOR DATA STATEMENT K2602660 7BCC 4C18 7BD9 268 | BSC L Q2101,+- BR IF DATA STATEMENT K2602670 7BCE 9325 269 | S 3 IDCAL-Z TEST FOR CALL LINK/EXIT K2602680 7BCF 4C18 7BDF 270 | BSC L Q2201,+- BR IF CALL LINK/EXIT K2602690 7BD1 7020 271 | MDX Q3011 BR IF NOT ABOVE STMNT TYPES K2602700 272 | * K2602710 273 | * OUTP FORMAT STMT K2602720 7BD2 4329 274 | Q2013 BSI 3 INCPT-Z INCR INPUT POINTER K2602730 7BD3 C100 275 | Q2014 LD 1 0 LOAD STRING WORD K2602740 7BD4 4351 276 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2602750 7BD5 C320 277 | LD 3 WCNT-Z TEST WORD COUNT K2602760 7BD6 4C30 7BD2 278 | BSC L Q2013,Z- BR IF WORD COUNT IS POSITIVE K2602770 7BD8 70E9 279 | MDX Q2012 BR IF COUNTER IS ZERO K2602780 280 | * K2602790 281 | * MOVE POINTER WITHOUT OUTPUT K2602800 282 | * (DATA, DEFINE FILE HAVE ALREADY K2602810 283 | * BEEN OUPUT) K2602820 284 | * K2602830 7BD9 1000 285 | Q2101 SLA 0 NOP K2602840 7BDA 4329 286 | BSI 3 INCPT-Z BR TO INCR I/P POINTER K2602850 7BDB C320 287 | LD 3 WCNT-Z LOAD WORD COUNT K2602860 7BDC 4C30 7BD9 288 | BSC L Q2101,Z- BR IF WORD COUNT IS POSITIVE K2602870 7BDE 70E3 289 | MDX Q2012 BR IF ZERO (END OF STMNT) K2602880 290 | * K2602890 291 | * SPECIAL OUTPUT OF K2602900 292 | * CALL LINK OR CALL EXIT K2602910 293 | * K2602920 294 | * K2602930 295 | * TEST IF CALLLINK OR CALLEXIT K2602940 296 | * K2602950 7BDF C101 297 | Q2201 LD 1 1 LOAD DATA WORD K2602960 7BE0 93F8 298 | S 3 H5B00-Z TEST CALL LINK FLAG K2602970 7BE1 4C20 7BF2 299 | BSC L Q3011,Z BR IF NOT CALL LINK K2602980 300 | * K2602990 301 | * OUTPUT CALL LINK K2603000 7BE3 C400 7E55 302 | Q2211 LD L BSIL OUTPUT .BSI L. K2603010 7BE5 4351 303 | BSI 3 OUABS-Z * K2603020 7BE6 C327 304 | LD 3 CLINK-Z OUTPUT ADDRESS OF LINK K2603030 7BE7 4351 305 | BSI 3 OUABS-Z * K2603040 7BE8 C102 306 | LD 1 2 OUTPUT NAME WORD 1 K2603050 7BE9 1001 307 | SLA 1 * K2603060 7BEA 1802 308 | SRA 2 * K2603070 7BEB 4351 309 | BSI 3 OUABS-Z * K2603080 7BEC C104 310 | LD 1 4 OUTPUT NAME WORD 2 K2603090 7BED 188F 311 | SRT 15 * K2603100 7BEE C102 312 | LD 1 2 * K2603110 7BEF 108F 313 | SLT 15 * K2603120 7BF0 4351 314 | BSI 3 OUABS-Z * K2603130 7BF1 70E7 315 | MDX Q2101 CONTINUE K2603140 316 | * K2603150 317 | * K2603160 318 | * .NXT. K2603170 319 | * PROCESS STATEMENTS OTHER THAN K2603180 320 | * FORMAT, DEFINE FILE, DATA AND K2603190 321 | * CALL LINK/EXIT STATEMENTS K2603200 322 | * K2603210 7BF2 C320 323 | Q3011 LD 3 WCNT-Z LOAD WORD COUNTER K2603220 7BF3 4830 324 | BSC Z- SKIP IF WORDCOUNTER NOT POS K2603230 7BF4 7006 325 | MDX Q3013 BR IF POSITIVE K2603240 7BF5 C321 326 | LD 3 STOID-Z LOAD STORED ID WORD TYPE K2603250 7BF6 9306 327 | S 3 IDEND-Z TEST IF END STATEMENT K2603260 7BF7 4820 328 | BSC Z SKIP IF STORED ID = .END. K2603270 7BF8 70C9 329 | MDX Q2012 BR IF NOT K2603280 330 | * K2603290 7BF9 4C00 7DEC 331 | BSC L OUTER TERMINATE OUTPUT K2603300 332 | * K2603310 333 | * K2603320 7BFB 4329 334 | Q3013 BSI 3 INCPT-Z INCR INPUT POINTER K2603330 7BFC C100 335 | Q3014 LD 1 0 LOAD WORD FROM I/P STRING K2603340 7BFD 4810 336 | BSC - SKIP IF .PACKED. WORD K2603350 7BFE 700E 337 | MDX Q4011 BR IF NOT K2603360 7BFF C100 338 | Q3021 LD 1 0 LOAD WORD FROM I/P STRING K2603370 7C00 E307 339 | AND 3 H7800-Z GET INDEX TO INSTRUCTION TBL K2603380 7C01 4C18 7C09 340 | BSC L Q3023,+- BR IF NO INSTR INCLUDED K2603390 341 | * =WORD CONSISTS OF ADDR ONLY K2603400 7C03 180B 342 | SRA 11 RIGHT JUSTIFY INDEX K2603410 7C04 8308 343 | A 3 CON4B-Z 4-BIT-CONV-TABLE ORIGIN K2603420 7C05 D001 344 | STO Q3022+1 COMPUTE ADDR OF INST IN TBL K2603430 7C06 C400 0000 345 | Q3022 LD L *-* LOAD INST FROM TBL (TAB4) K2603440 7C08 4351 346 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603450 7C09 C100 347 | Q3023 LD 1 0 LOAD WORD FROM I/P STRING K2603460 7C0A 4330 348 | BSI 3 GETST-Z GET OBJ TIME ADDR FR SYM TBL K2603470 7C0B 4353 349 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2603480 7C0C 70E5 350 | MDX Q3011 CONTINUE PROCESSING K2603490 351 | * K2603500 352 | * TEST IF SPECIAL BSC (ONE WHICH IS K2603510 353 | * FOLLOWED BY A RELATIVE ADDRESS). K2603520 354 | * K2603530 7C0D 9309 355 | Q4011 S 3 H5D00-Z .SPEC BSC L. K2603540 7C0E 4818 356 | BSC +- SKIP IF NOT .SPEC BSC L. K2603550 7C0F 700A 357 | MDX Q4021 BR IF SPEC BSC L K2603560 358 | * K2603570 7C10 930B 359 | S 3 HFF00-Z .BSC I1. - .SPEC BSC L. K2603580 7C11 4820 360 | BSC Z SKIP IF .BSC I1. K2603590 7C12 700C 361 | MDX Q4031 BR IF NOT K2603600 7C13 C30A 362 | LD 3 H4D80-Z OBJECT TIME .BSC I1. TO ACC K2603610 7C14 4351 363 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603620 7C15 4329 364 | BSI 3 INCPT-Z INCREMENT INPUT POINTER K2603630 7C16 C400 7A3D 365 | LD L LOCTR LOCATION COUNTER K2603640 366 | * K2603650 7C18 4355 367 | Q4012 BSI 3 OURNC-Z SUBR OUTPUT, ENTRY=RLTV K2603660 7C19 70D8 368 | MDX Q3011 K2603670 369 | * K2603680 370 | * SPECIAL BSC L ENCOUNTERED K2603690 371 | * IS FOLLOWED BY A RELATIVE ADDRESS K2603700 372 | * RATHER THAN BY A SYMBOL TABLE NAME K2603710 373 | * K2603720 7C1A C30D 374 | Q4021 LD 3 H4C08-Z OBJ TIME .BSC L. TO ACC K2603730 7C1B 4351 375 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603740 7C1C 4329 376 | BSI 3 INCPT-Z INCR INPUT POINTER K2603750 7C1D C100 377 | LD 1 0 OUTPUT RLTV ADDR FR STRING K2603760 7C1E 70F9 378 | MDX Q4012 BR TO OUTPUT ROUTINE K2603770 379 | * K2603780 380 | * TEST IF .LDX L1. K2603790 381 | * WHICH IS FOLLOWED BY AN ABSOLUTE K2603800 382 | * VALUE AND OUTPUT .LDX L1. FOLLOWED K2603810 383 | * BY THE ABSOLUTE VALUE K2603820 384 | * K2603830 7C1F C100 385 | Q4031 LD 1 0 LOAD WORD FROM I/P STRING K2603840 7C20 93F8 386 | S 3 H5B00-Z SUBTRACT CODE FOR .LDX L1. K2603850 7C21 4820 387 | BSC Z SKIP IF .LDX L1. K2603860 7C22 7008 388 | MDX Q4041 BR IF NOT K2603870 7C23 C400 7E69 389 | LD L LDXL1 OUTPUT .LDX L1. K2603880 7C25 4351 390 | BSI 3 OUABS-Z OUTPUT IN ABS MODE K2603890 7C26 1010 391 | SLA 16 CLEAR ACC K2603900 7C27 9101 392 | S 1 1 CHANGE SIGN OF STRING WD K2603910 7C28 4351 393 | BSI 3 OUABS-Z OUTPUT FOLLOWING WD IN ABS K2603920 7C29 4329 394 | BSI 3 INCPT-Z INCR INPUT POINTER K2603930 7C2A 70C7 395 | MDX Q3011 CONTINUE THROUGH STRING K2603940 396 | * K2603950 397 | * TEST IF .BSC I. K2603960 398 | * (WHICH REQUIRES OUTPUT OF ENTRY ADDR) K2603970 399 | * K2603980 7C2B C100 400 | Q4041 LD 1 0 LOAD WORD FROM I/P STRING K2603990 7C2C 93FE 401 | S 3 H5080-Z SUBTRACT .BSC I. CONSTANT K2604000 7C2D 4C20 7C36 402 | BSC L Q5011,Z BR IF NOT BSC I K2604010 7C2F C3FD 403 | LD 3 H4C80-Z OUTPUT .BSC I. K2604020 7C30 4351 404 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2604030 7C31 C400 7A2B 405 | LD L COMON OUTPUT ENTRY ADDR K2604040 7C33 4355 406 | Q4042 BSI 3 OURNC-Z (ADDR OF OBJECT TIME LINK WD K2604050 7C34 4329 407 | BSI 3 INCPT-Z INCREMENT INPUT POINTER K2604060 7C35 70BC 408 | MDX Q3011 CONTINUE K2604070 409 | * K2604080 410 | * TEST IF TWO-WORD CALL OPERATOR K2604090 7C36 C100 411 | Q5011 LD 1 0 LOAD WORD FROM INPUT STRING K2604100 7C37 E315 412 | AND 3 HFF80-Z TEST BITS 0-8 K2604110 7C38 4820 413 | BSC Z SKIP IF .CALL SUBPROGR. K2604120 7C39 7005 414 | MDX Q7011 BR IF NOT K2604130 415 | * K2604140 416 | * TWO-WORD CALL K2604150 7C3A C101 417 | LD 1 1 LOAD SECOND WORD OF CALL K2604160 7C3B 4330 418 | BSI 3 GETST-Z GET OBJ TIME ADDR (OR NAME) K2604170 7C3C 4359 419 | BSI 3 OULCL-Z SUBR O/P, ENTRY = 2-WD CALL K2604180 7C3D 4329 420 | BSI 3 INCPT-Z INCREMENT INPUT COUNTER K2604190 7C3E 70B3 421 | MDX Q3011 CONTINUE THROUGH STRING K2604200 422 | * K2604210 423 | * TEST IF SYST SUBROUTINE CALL K2604220 7C3F C100 424 | Q7011 LD 1 0 LOAD STRING WORD K2604230 7C40 1001 425 | SLA 1 TEST BIT 1 FOR CALL K2604240 7C41 4828 426 | BSC +Z SKIP IF SYST.CALL K2604250 7C42 7024 427 | MDX Q7021 BR IF NOT K2604260 428 | * K2604270 429 | * OUTPUT SYSTEM SUBROUTINE CALL K2604280 430 | * (ONE-WORD CALL) K2604290 431 | * K2604300 7C43 1807 432 | SRA 7 SHIFT POINTER SYST SUBR TBL K2604310 7C44 830F 433 | A 3 SSTOR-Z COMPUTE ADDRESS IN SYSTEM K2604320 7C45 D001 434 | STO Q7012+1 SUBROUTINE TABLE AND INSERT K2604330 435 | * K2604340 7C46 C400 0000 436 | Q7012 LD L *-* LOAD WD2 FROM SYST SUBR TBL K2604350 7C48 18D0 437 | RTE 16 PUT IN EXTENSION K2604360 7C49 74FF 7C47 438 | MDX L Q7012+1,-1 DECR ADDR SYSTEM SUBR TBL K2604370 7C4B 1000 439 | SLA 0 NOP K2604380 7C4C C480 7C47 440 | LD I Q7012+1 LOAD WD1 FROM SYST SUBR TBL K2604390 7C4E 4357 441 | BSI 3 OUCAL-Z SUBR.OUTPUT,ENTRY = CALL K2604400 442 | * K2604410 443 | * TEST WHETHER OUTPUT SUBR CALL WAS K2604420 444 | * .SUBSC. OR .SUBIN. K2604430 445 | * .FIOAF. OR .FIOAI. K2604440 446 | * ARGUMENTS OF THESE CALLS K2604450 447 | * REQUIRE SPECIAL TREATMENT K2604460 448 | * (SUBROUTINES HAVE BOTH ABSOLUTE K2604470 449 | * AND RELATIVE ARGUMENTS) K2604480 7C4F C100 450 | LD 1 0 LOAD WORD FROM STRING K2604490 7C50 93F6 451 | S 3 H1D00-Z TEST FOR .CALL SUBIN. K2604500 7C51 4C18 7C83 452 | BSC L Q7051,+- BR IF .CALL SUBIN. K2604510 7C53 C100 453 | LD 1 0 LOAD WORD FROM STRING K2604520 7C54 930E 454 | S 3 CSUBS-Z TEST FOR .CALL SUBSC. K2604530 7C55 4C18 7C93 455 | BSC L Q8011,+- BR IF .CALL SUBSC. K2604540 7C57 C100 456 | LD 1 0 LOAD WORD FROM STRING K2604550 7C58 93F4 457 | S 3 M1600-Z TEST FOR .CALL SIOAI. K2604560 7C59 4820 458 | BSC Z SKIP IF .CALL SIOAI. K2604570 7C5A 93F5 459 | S 3 M1680-Z TEST FOR .CALL SIOAF. K2604580 7C5B 4820 460 | BSC Z SKIP IF EITHER SPECIAL CALL K2604590 7C5C 9318 461 | S 3 M2400-Z TEST FOR .CALL SDAF. K2604600 7C5D 4820 462 | BSC Z SKIP IF EITHER SPECIAL CALL K2604610 7C5E 9319 463 | S 3 M2380-Z TEST FOR .CALL SDAI. K2604620 7C5F 4820 464 | BSC Z SKIP IF EITHER SPECIAL CALL K2604630 7C60 931A 465 | S 3 M1E00-Z TEST FOR .CALL UIOAI. K2604640 7C61 4820 466 | BSC Z SKIP IF EITHER SPECIAL CALL K2604650 7C62 931B 467 | S 3 M1E80-Z TEST FOR .CALL UIOAF. K2604660 7C63 4C18 7CA6 468 | BSC L Q8051,+- BR IF ANY OF ABOVE FOUND K2604670 469 | * K2604680 470 | * (NO SPECIAL TREATMENT REQ.) K2604690 7C65 4C00 7BF2 471 | BSC L Q3011 BR TO NEXT ITEM ON STRING K2604700 472 | * K2604710 473 | * NO SYSTEM SUBROUTINE CALLS FOUND K2604720 474 | * TEST NEXT FOR .STX L1. CODE K2604730 475 | * K2604740 7C67 C100 476 | Q7021 LD 1 0 LOAD WORD FROM STRING K2604750 7C68 93FF 477 | S 3 H6200-Z TEST FOR .STX L1. K2604760 7C69 4C18 7C77 478 | BSC L Q7031,+- BR IF 'STX L1' K2604770 479 | * K2604780 480 | * NO SPECIAL TREATMENT REQUIRED K2604790 481 | * CONVERT ONE WORD OF PRE-OUTPUT CODE K2604800 482 | * INTO OBJECT TIME-INSTRUCTION, K2604810 483 | * OUTPUT .ABSOLUTE. K2604820 484 | * K2604830 485 | * COMPUTE 6-BIT CONVERSION K2604840 7C6B C100 486 | LD 1 0 LOAD WORD FROM STRING K2604850 7C6C E310 487 | AND 3 H3F00-Z GET BITS 2-7=RLTV TBL ADDR K2604860 7C6D 1808 488 | SRA 8 RIGHT JUSTIFY K2604870 7C6E 8308 489 | A 3 CON4B-Z ADD TO ADDR CONVERSION TBL K2604880 7C6F D003 490 | STO Q7022+1 TO COMPUTE ADDR TO LOAD K2604890 7C70 C100 491 | LD 1 0 LOAD STRING WORD K2604900 7C71 E311 492 | AND 3 H00FF-Z GET OUTPUT STORAGE ADDR K2604910 7C72 8400 0000 493 | Q7022 A L *-* TABLE VALUE K2604920 7C74 4351 494 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2604930 7C75 4C00 7BF2 495 | BSC L Q3011 BR TO NEXT ITEM ON STRING K2604940 496 | * K2604950 497 | * K2604960 7C77 C400 7E70 498 | Q7031 LD L STXL1 OUTPUT .STX L1. K2604970 7C79 4351 499 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2604980 7C7A 4329 500 | BSI 3 INCPT-Z INCR INPUT COUNTER K2604990 7C7B C100 501 | LD 1 0 LOAD STRING WORD K2605000 7C7C E3F7 502 | AND 3 H7FFF-Z OUTPUT * + DISPLACEMENT K2605010 7C7D 8400 7A3D 503 | A L LOCTR INCR BY LOC COUNTER K2605020 7C7F D100 504 | STO 1 0 (STORE FOR DUMP F TEST) K2605030 7C80 4355 505 | BSI 3 OURNC-Z PUT OUT RELATIVE OUTPUT K2605040 7C81 4C00 7BF2 506 | BSC L Q3011 CONTINUE THROUGH STRING K2605050 507 | * K2605060 508 | * OUTPUT ARGUMENTS OF .CALL SUBIN. K2605070 7C83 4329 509 | Q7051 BSI 3 INCPT-Z INCR INPUT POINTER K2605080 7C84 C100 510 | LD 1 0 LOAD STRING WORD K2605090 7C85 4C28 7C90 511 | BSC L Q7055,+Z BR IF (TAGGED) ADDRESS K2605100 512 | * K2605110 513 | * OUTPUT DELIMITOR, ONE OR ZERO K2605120 7C87 4351 514 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2605130 7C88 C100 515 | LD 1 0 LOAD STRING WORD K2605140 7C89 4C18 7C83 516 | BSC L Q7051,+- BR IF DELIMETER = ZERO K2605150 7C8B 1801 517 | SRA 1 SHIFT OFF LOW ORDER BIT K2605160 7C8C 4C18 7BF2 518 | BSC L Q3011,+- BR IF = ONE K2605170 519 | * K2605180 7C8E 3000 520 | WAIT PAUSE, PROGRAM K2605190 7C8F 70FE 521 | MDX *-2 ERROR IF NEITHER K2605200 522 | * K2605210 7C90 E3F7 523 | Q7055 AND 3 H7FFF-Z REMOVE .TAG. K2605220 7C91 4355 524 | BSI 3 OURNC-Z OUTPUT RELATIVE K2605230 525 | * (WITHOUT .COMMON-CHECK.) K2605240 7C92 70F0 526 | MDX Q7051 BR TO OUTPUT ARGUMENTS K2605250 527 | * K2605260 528 | * OUTPUT ARGUMENTS OF K2605270 529 | * .CALL SUBSC. K2605280 7C93 C101 530 | Q8011 LD 1 1 LOAD STRING WORD +1 K2605290 7C94 4330 531 | BSI 3 GETST-Z GET OBJ TIME ADDR OF SGT K2605300 7C95 4353 532 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605310 7C96 C102 533 | LD 1 2 ACC=STRING WORD+2 (D4) K2605320 7C97 4351 534 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605330 7C98 4329 535 | BSI 3 INCPT-Z INCR I/P POINTER 1 TIME K2605340 7C99 4329 536 | BSI 3 INCPT-Z INCR I/P POINTER 2 TIMES K2605350 7C9A 4329 537 | BSI 3 INCPT-Z INCR I/P POINTER 3 TIMES K2605360 7C9B C100 538 | Q8021 LD 1 0 LOAD STRING WORD K2605370 7C9C 4330 539 | BSI 3 GETST-Z GET OBJ TIME ADDR K2605380 7C9D 4353 540 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605390 7C9E C101 541 | LD 1 1 D1 (OR D2 OR D3) TO ACC K2605400 7C9F 4351 542 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605410 7CA0 4329 543 | BSI 3 INCPT-Z INCR I/P POINTER 1 TIME K2605420 7CA1 4329 544 | BSI 3 INCPT-Z INCR I/P POINTER 2 TIMES K2605430 7CA2 C1FF 545 | LD 1 -1 LOAD PREVIOUS WORD K2605440 7CA3 4C28 7BFC 546 | BSC L Q3014,+Z BR IF PREVIOUS O/P TAGGED K2605450 7CA5 70F5 547 | MDX Q8021 BR IF NOT K2605460 548 | * K2605470 549 | * OUTPUT ARGUMENTS OF K2605480 550 | * .CALL FIOAX. OR .CALL FIOIX. K2605490 551 | * K2605500 7CA6 C101 552 | Q8051 LD 1 1 LOAD 2ND STRING WORD K2605510 7CA7 4330 553 | BSI 3 GETST-Z GET OBJECT TIME ADDR K2605520 7CA8 4353 554 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605530 7CA9 C102 555 | LD 1 2 ARRAY SIZE K2605540 7CAA E3F7 556 | AND 3 H7FFF-Z REMOVE SIGN K2605550 7CAB 4351 557 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605560 7CAC 4329 558 | BSI 3 INCPT-Z INCR INPUT POINTER K2605570 7CAD 4329 559 | BSI 3 INCPT-Z INCR INPUT POINTER AGAIN K2605580 7CAE 4C00 7BF2 560 | BSC L Q3011 BR TO PROCESS NEXT WORD K2605590 561 | * K2605600 7CB0 562 | BSS E 0 K2605610 7CB0 7001 563 | WR900 DC /7001 WRITE DISK PARAMETER K2605620 7CB1 7A40 564 | DC BUFF-2 DISK BUFFER AREA K2605630 7CB2 63F0 565 | ENDLZ DC /63F0 END OF WS TEST CONSTANT K2605640 566 | * WRITE DISK K2605650 7CB3 0000 567 | WRITE DC 0 LINK K2605660 568 | * K2605670 569 | * CORRECTION OF WORDCOUNT K2605680 570 | * IN DATAHEADER K2605690 571 | * WHEN 'NEW' INDICATORWORD K2605700 572 | * HAS BEEN RESERVED K2605710 7CB4 C400 7A3A 573 | LD L INCT LOAD INDICATOR WD COUNT K2605720 7CB6 931C 574 | S 3 C16-Z K2605730 7CB7 4C20 7CBE 575 | WRITX BSC L WRIT0,Z BR IF NOT 'EMPTY' INDIC-WD K2605740 576 | * PRECEDING INSTRUCTION IS CHANGED K2605750 577 | * INTO UNCOUNDITIONAL BRANCH K2605760 578 | * WHEN WRITING LAST SECTOR OF K2605770 579 | * COMPILED PROGRAM K2605780 7CB9 C480 7DE5 580 | LD I PCT0+1 CORRECT WORD COUNT K2605790 7CBB 9301 581 | S 3 ONE-Z IN DATA HEADER K2605800 7CBC D480 7DE5 582 | STO I PCT0+1 K2605810 583 | * K2605820 584 | * K2605830 7CBE C400 7A41 585 | WRIT0 LD L BUFF-1 CHECK SECTOR ADDRESS K2605840 7CC0 1004 586 | SLA 4 SHIFT OFF HIGH ORDER BITS K2605850 7CC1 90F0 587 | S ENDLZ TEST END OF WORKING STORAGE K2605860 7CC2 4C10 7CE5 588 | BSC L NOWS,- BRANCH - NO MORE W.S. K2605870 7CC4 C8EB 589 | LDD WR900 LOAD DISK WRITE PARAMETER K2605880 7CC5 4400 00F2 590 | BSI L DZ000 WRITE SECTOR ONTO DISK K2605890 7CC7 7400 00EE 591 | MDX L $DBSY,0 SKIP IF DISK READY K2605900 7CC9 70FD 592 | MDX *-3 LOOP IF DISK BUSY K2605910 593 | * K2605920 7CCA C400 7A3B 594 | LD L INPT K2605930 7CCC 9314 595 | S 3 C320-Z DECR INDIC POINTER K2605940 7CCD D400 7A3B 596 | STO L INPT K2605950 7CCF C400 7A39 597 | LD L BUFPT K2605960 7CD1 9314 598 | S 3 C320-Z DECR BUFFERPOINTER K2605970 7CD2 D400 7A39 599 | STO L BUFPT K2605980 600 | * K2605990 601 | * MOVE BUFFER TAIL TO FRONT OF K2606000 602 | * NEXT BUFFER K2606010 603 | * K2606020 7CD4 6318 604 | LDX 3 24 SET UP 24 WORD MOVE K2606030 7CD5 C700 7B81 605 | MOV1 LD L3 BUFF+319 MOVE LAST PART OF BUFFER K2606040 7CD7 D700 7A41 606 | STO L3 BUFF-1 TO START OF BUFFER O/P AREA K2606050 7CD9 73FF 607 | MDX 3 -1 COUNT K2606060 7CDA 70FA 608 | MDX MOV1 BR IF NO SKIP K2606070 7CDB 6700 7CFE 609 | LDX L3 ZERO RESTORE XR3 (CONSTANTS) K2606080 610 | * K2606090 7CDD 7401 7A41 611 | MDX L BUFF-1,1 INCR SECTORADDR,SCRATCHAREA K2606100 612 | * K2606110 7CDF C400 7DEB 613 | LD L PCT1+1 LOAD DUMMY ADDRESS K2606120 7CE1 D400 7DE5 614 | STO L PCT0+1 STORE IN UPDATE LOCATION K2606130 615 | * K2606140 7CE3 4C80 7CB3 616 | BSC I WRITE RETURN K2606150 617 | * K2606160 7CE5 6101 618 | NOWS LDX 1 1 CALL RECOVERY - NO WS K2606170 7CE6 6D00 7A23 619 | STX L1 SOFS-1 K2606180 7CE8 6580 7F23 620 | LDX I1 NXTPH+1 LOAD PARAM FOR READING K2606190 7CEA CC00 7F24 621 | LDD L NXTPH+2 NEXT PHASE K2606200 7CEC 4C00 7FBC 622 | BSC L ROL GO TO READ NEXT PHASE K2606210 623 | * K2606220 624 | * K2606230 625 | * K2606240 7CEE 0014 626 | DC20 DC 20 CONSTANT K2606250 7CEF 7A42 627 | BUFAD DC BUFF ADDR OF BUFFER K2606260 7CF0 0024 628 | DC36 DC 36 CONSTANT K2606270 7CF1 000A 629 | TEN DC 10 CONSTANT K2606280 630 | * K2606290 7CF2 1600 631 | M1600 DC /1600 SIOAI K2606300 7CF3 0080 632 | M1680 DC /1680-/1600 SIOAF-SIOAI K2606310 7CF4 1D00 633 | H1D00 DC /1D00 CONSTANT MASK K2606320 7CF5 7FFF 634 | H7FFF DC /7FFF CONSTANT MASK K2606330 7CF6 5B00 635 | H5B00 DC /5B00 .LDX L1. K2606340 636 | * K2606350 7CF7 0010 637 | CD16 DC /0010 .ONE. IN WORDCOUNT, -12 K2606360 638 | * * ALSO INITIAL VALUE K2606370 639 | * K2606380 7CF8 0000 640 | TEMP1 DC 0 TEMPORARY STORAGE K2606390 7CF9 0000 641 | TEMP2 DC 0 TEMPORARY STORAGE K2606400 7CFA 2000 642 | H2000 DC /2000 MASK FOR COMMON K2606410 7CFB 4C80 643 | H4C80 DC /4C80 CONSTANT MASK K2606420 7CFC 5080 644 | H5080 DC /5080 CONSTANT MASK K2606430 7CFD 6200 645 | H6200 DC /6200 CONSTANT MASK K2606440 646 | * K2606450 7CFE 0000 647 | ZERO DC /0000 CONST ZERO 0 K2606460 7CFE 648 | Z EQU ZERO K2606470 649 | * K2606480 650 | * ZERO = ORIGIN OF TRANSFVECTOR K2606490 7CFF 0001 651 | ONE DC /0001 CONST ONE K2606500 7D00 0002 652 | TWO DC /0002 CONST TWO K2606510 7D01 0003 653 | THREE DC /0003 CONST THREE K2606520 7D02 0004 654 | FOUR DC /0004 CONST FOUR K2606530 7D02 655 | H0004 EQU FOUR K2606540 7D03 6000 656 | IDFOR DC /6000 ID = .FORMAT. 7 K2606550 7D04 1000 657 | IDEND DC /1000 ID = .END. 9 K2606560 7D05 7800 658 | H7800 DC /7800 CONSTANT MASK K2606570 7D06 7E4E 659 | CON4B DC TAB4-1 CONV-TABL-ORIGIN K2606580 7D07 5D00 660 | H5D00 DC /5D00 .SPEC BSC L. 12 K2606590 7D08 4D80 661 | H4D80 DC /4D80 OBJ.TIME 'BSC L1' K2606600 7D09 FF00 662 | HFF00 DC /FF00 .BSC I1. - .SPECBSC. 14 K2606610 7D0A 7B82 663 | BFEND DC BUFF+320 END OF OUTPUT BUFFER K2606620 7D0B 4C08 664 | H4C08 DC /4C08 OBJ.TIME .BSC L1. 17 K2606630 7D0C 1900 665 | CSUBS DC /1900 CALL SUBSCRIPT K2606640 7D0D 7E74 666 | SSTOR DC TABSS-1 SYSTEM SUBR TABLE ORIGIN K2606650 7D0E 3F00 667 | H3F00 DC /3F00 MASK F CONVERSION K2606660 7D0F 00FF 668 | H00FF DC /00FF CONSTANT MASK K2606670 7D10 07FF 669 | H07FF DC /07FF CONSTANT MASK K2606680 7D11 F800 670 | HF800 DC /F800 CONSTANT MASK K2606690 7D12 0140 671 | C320 DC 320 CONSTANT K2606700 7D13 FF80 672 | HFF80 DC /FF80 CONSTANT MASK K2606710 7D14 0005 673 | H0005 DC /0005 CONSTANT MASK K2606720 7D15 07FC 674 | H07FC DC /07FC CONSTANT MASK K2606730 7D16 0D80 675 | M2400 DC /2400-/1680 SDAF-SIOAF CONSTANT K2606740 7D17 FF80 676 | M2380 DC /2380-/2400 SDAI-SDAF CONSTANT K2606750 7D18 FA80 677 | M1E00 DC /1E00-/2380 UIOAI-SDAI CONSTANT K2606760 7D19 0080 678 | M1E80 DC /1E80-/1E00 UIOAF-UIOAI CONSTANT K2606770 7D1A 0010 679 | C16 DC 16 CONSTANT K2606780 7D1B 0000 680 | SWISH DC 0 ANOTHER CALL INDICATOR K2606790 681 | * K2606800 7D1C 682 | BSS E 0 K2606810 7D1C 0000 683 | STONA DC 0 STORED NAME K2606820 7D1D 0000 684 | DC 0 K2606830 7D1E 0000 685 | WCNT DC 0 WORD COUNTER F. STMT 8 K2606840 7D1F 0000 686 | STOID DC 0 STORED ID-TYPE 6 K2606850 7D20 0000 687 | TWOWC DC 0 TWO WORD CALL SWITCH K2606860 688 | * K2606870 7D21 9000 689 | IDDEF DC /F000-/6000 DEFINE FILE CONSTANT I K2606880 7D22 0800 690 | IDDAT DC /F800-/F000 DATA CONSTANT ID K2606890 7D23 E800 691 | IDCAL DC /E000-/F800 CALL CONSTANT ID K2606900 7D24 4000 692 | H4000 DC /4000 CONSTANT MASK K2606910 7D25 0039 693 | CLINK DC $LINK .CALL LINK. ENTRY ADDRESS K2606920 7D26 0000 694 | ORGSW DC 0 ORIGIN SWITCH 2-4 K2606930 695 | * K2606940 696 | * K2606950 697 | * K2606960 698 | * SUBROUTINE K2606970 699 | * INCREMENT INPUT POINTER K2606980 700 | * K2606990 7D27 0000 701 | INCPT DC 0 LINK K2607000 7D28 7101 702 | MDX 1 1 INCR INPUT POINTER K2607010 7D29 74FC 7D1E 703 | MDX L WCNT,-4 DECR WD COUNTER K2607020 7D2B 1000 704 | SLA 0 GUARDS AGAINST SKIP K2607030 7D2C 4C80 7D27 705 | BSC I INCPT RETURN K2607040 706 | * K2607050 707 | * SUBROUTINE K2607060 708 | * GET OBJ.TIME ADDR OR ALPHABETIC K2607070 709 | * NAME FROM SYMBOL TABLE K2607080 710 | * ON ENTRY, THE ACCUMULATOR CONTAINS K2607090 711 | * THE SYMBOL TABLE REFERENCE WORD K2607100 712 | * K2607110 7D2E 0000 713 | GETST DC 0 LINK ENTRY POINT K2607120 7D2F E312 714 | AND 3 H07FF-Z GET RLTV ENTRY PT IN SYM TBL K2607130 7D30 4C98 7D2E 715 | BSC I GETST,+- RETURN IF ZERO 2-6 K2607135 7D32 D008 716 | STO GET1+1 SET UP AS ADDR K2607140 7D33 C400 7A26 717 | LD L SOFST LOAD START OF SYMBOL TABLE K2607150 7D35 9005 718 | S GET1+1 SUBTRACT POINTER ONE TIME K2607160 7D36 9004 719 | S GET1+1 SUBTRACT POINTER SECOND TIME K2607170 7D37 9003 720 | S GET1+1 SUBTRACT POINTER THIRD TIME K2607180 7D38 8316 721 | A 3 H0005-Z ADD 5 TO GIVE LOC OF 3RD WD K2607190 7D39 D001 722 | STO GET1+1 SAVE SYMBOL TABLE ADDR(WD 3) K2607200 7D3A C400 0000 723 | GET1 LD L *-* LOAD 3RD WORD SYMBOL TABLE K2607210 7D3C 18D0 724 | RTE 16 PUT IN EXTENSION K2607220 7D3D 74FF 7D3B 725 | MDX L GET1+1,-1 DECR SYMBOL TABLE POINTER K2607230 7D3F 1000 726 | SLA 0 GUARDS AGAINST SKIP K2607240 7D40 C480 7D3B 727 | LD I GET1+1 LOAD 2ND SYM TBL WD IN ACC K2607250 7D42 4C80 7D2E 728 | BSC I GETST RETURN K2607260 729 | * K2607270 730 | * SUBROUTINE K2607280 731 | * INITIALIZE NEXT STATEMENT K2607290 732 | * K2607300 7D44 0000 733 | INIT DC 0 LINK ENTRY POINT K2607310 7D45 4329 734 | BSI 3 INCPT-Z INCR INPUT COUNTER K2607320 7D46 C100 735 | LD 1 0 LOAD STRING WORD K2607330 7D47 E317 736 | AND 3 H07FC-Z EXTRACT AND STORE K2607340 7D48 9304 737 | S 3 FOUR-Z NORM - 1 WORD K2607350 7D49 D320 738 | STO 3 WCNT-Z WDCOUNTER K2607360 7D4A C100 739 | LD 1 0 LOAD STRING WORD K2607370 7D4B E313 740 | AND 3 HF800-Z MASK ALL BUT TYPE CODE ID WD K2607380 7D4C D321 741 | STO 3 STOID-Z SAVE TYPE CODE K2607390 7D4D 4C80 7D44 742 | BSC I INIT RETURN K2607400 743 | * K2607410 744 | * K2607420 745 | * OUTPUT ADDRESS OR CONSTANT IN K2607430 746 | * ABSOLUTE MODE K2607440 747 | * ENTRY = ABSOLUTE OUTPUT K2607450 748 | * K2607460 7D4F 0000 749 | OUABS DC 0 LINK ENTRY POINT K2607470 7D50 702D 750 | MDX T8011 BR TO OUTPUT IN ABSOLUTE K2607480 751 | * K2607490 752 | * OUTPUT ADDRESS OR CONSTANT IN K2607500 753 | * RELOCATABLE MODE EXCEPT FOR VARIABLES K2607510 754 | * IN COMMON WHICH WILL BE ABSOLUTE MODE K2607520 755 | * ENTRY = RELATIVE OUTPUT K2607530 756 | * WITH .COMMON-CHECK. K2607540 757 | * K2607550 7D51 0000 758 | OUREL DC 0 LINK ENTRY POINT K2607560 7D52 7032 759 | MDX T8013 K2607570 760 | * BR TO OUTPUT IN RLTV MODE K2607580 761 | * ENTRY = REALTIVE OUTPUT K2607590 762 | * NO .COMMON-CHECK. K2607600 763 | * K2607610 7D53 0000 764 | OURNC DC 0 LINK ENTRY POINT K2607620 7D54 7025 765 | MDX T7051 BR TO OUTPUT IN RLTV MODE K2607630 766 | * K2607640 767 | * ENTRY = CALL-OUTPUT K2607650 768 | * (ONE WORD CALL) K2607660 769 | * K2607670 7D55 0000 770 | OUCAL DC 0 LINK ENTRY POINT K2607680 7D56 700C 771 | MDX T7011 BR TO OUTPUT ONE WD CALLS K2607690 772 | * K2607700 773 | * ENTRY FOR TWO-WORD-CALL-OUTPUT K2607710 7D57 0000 774 | OULCL DC 0 LINK ENTRY POINT K2607720 7D58 7000 775 | MDX T7005 BR TO OUTPUT TWO WD CALLS K2607730 776 | * K2607740 777 | * K2607750 778 | * TWO WORD CALL OUTPUT K2607760 779 | * K2607770 7D59 DB1E 780 | T7005 STD 3 STONA-Z STORE ACC AND EXTENSION K2607780 7D5A C300 781 | LD 3 ZERO-Z SECOND HALF CALL BITS K2607790 7D5B D3FB 782 | STO 3 TEMP2-Z SAVE IN TEMP STORAGE K2607800 783 | * K2607810 784 | * SET TWO WORD CALL SWITCH K2607820 7D5C C300 785 | LD 3 ZERO-Z LOAD ZERO (IND 2WD SW) K2607830 7D5D D322 786 | STO 3 TWOWC-Z SET 2 WD CALL SWITCH K2607840 7D5E C0F8 787 | LD OULCL MOVE LINKWORD K2607850 7D5F D0F5 788 | T7006 STO OUCAL SAVE IN RETURN WD AREA K2607860 7D60 C303 789 | LD 3 THREE-Z LOAD INDICATOR BITS K2607870 7D61 D3FA 790 | STO 3 TEMP1-Z SAVE IN TEMPORARY STORAGE K2607880 791 | * K2607890 7D62 7006 792 | MDX T7013 BR TO MOVE BITS K2607900 793 | * K2607910 794 | * CALL-OUTPUT K2607920 7D63 DB1E 795 | T7011 STD 3 STONA-Z STORE REGISTERS K2607930 7D64 C300 796 | LD 3 ZERO-Z LOAD 2ND HALF CALL BITS = 0 K2607940 7D65 D3FB 797 | STO 3 TEMP2-Z SAVE IN TEMP STO K2607950 7D66 C302 798 | LD 3 TWO-Z LOAD 1ST HALF CALL BITS = 2 K2607960 7D67 D3FA 799 | STO 3 TEMP1-Z SAVE IN TEMP STO K2607970 800 | * K2607980 801 | * SET TWO WORD CALL SWITCH K2607990 7D68 D322 802 | STO 3 TWOWC-Z TWO WD CALL SW SET TO NO K2608000 7D69 D31D 803 | T7013 STO 3 SWISH-Z SET ANOTHER CALL INDICATOR K2608010 7D6A C3FA 804 | LD 3 TEMP1-Z CALL BITS (10 OR 11) K2608020 7D6B 4039 805 | BSI IBITS TO INDICATOR AREA K2608030 7D6C C31E 806 | LD 3 STONA-Z FIRST HALF OF NAME K2608040 7D6D 4053 807 | BSI TOBUF MOVE TO BUFFER K2608050 7D6E C3FB 808 | LD 3 TEMP2-Z SEC HALF OF CALL BITS K2608060 809 | * (00 OR 11) K2608070 7D6F 4035 810 | BSI IBITS TO INDICATOR AREA K2608080 811 | * K2608090 812 | * CHECK TWO WORD CALL SWITCH K2608100 7D70 C322 813 | LD 3 TWOWC-Z LOAD 2 WD CALL SWITCH K2608110 7D71 4C18 7D76 814 | BSC L T7014,+- BRANCH IF 2 WORD CALL K2608120 815 | * K2608130 816 | * COUNT ONE LOCATION LESS IF K2608140 817 | * IT IS A ONE-WORD CALL K2608150 818 | * K2608160 7D73 74FF 7A3D 819 | MDX L LOCTR,-1 DECR LOCATION COUNTER K2608170 7D75 1000 820 | NOP POSSIBLE SIGN CHANGE K2608180 821 | * K2608190 7D76 C31F 822 | T7014 LD 3 STONA+1-Z SECOND HALF OF NAME K2608200 7D77 4049 823 | BSI TOBUF MOVE TO BUFFER K2608210 7D78 4C80 7D55 824 | BSC I OUCAL RETURN K2608220 825 | * K2608230 826 | * RELATIVE OUTPUT, NO COMMON CHECK K2608240 827 | * K2608250 7D7A DB1E 828 | T7051 STD 3 STONA-Z STORE REGISTERS K2608260 7D7B C0D7 829 | LD OURNC LOAD LINK WORD PREV ENTRY PT K2608270 7D7C D0D4 830 | STO OUREL MOVE TO EXIT POINT K2608280 7D7D 7013 831 | MDX T8015 BR TO PROCESS RELATIVE O/P K2608290 832 | * K2608300 833 | * ABSOLUTE OUTPUT K2608310 834 | * K2608320 7D7E DB1E 835 | T8011 STD 3 STONA-Z STORE REGISTERS K2608330 7D7F C300 836 | LD 3 ZERO-Z ZERO-ZERO K2608340 7D80 4024 837 | BSI IBITS TO INDICATOR AREA K2608350 838 | * K2608360 839 | * MOVE STORED ACCUMULATOR TO BUFFER K2608370 840 | * K2608380 7D81 C31E 841 | T8012 LD 3 STONA-Z LOAD OUTPUT WORD K2608390 7D82 403E 842 | BSI TOBUF MOVE TO BUFFER K2608400 843 | * K2608410 7D83 4C80 7D4F 844 | BSC I OUABS RETURN K2608420 845 | * K2608430 846 | * RELATIVE OUTPUT (INCLUDES TEST K2608440 847 | * WHETHER VARIABLE IS IN COMMON, IN K2608450 848 | * WHICH CASE OUTPUT IS ABSOLUTE K2608460 849 | * K2608470 7D85 DB1E 850 | T8013 STD 3 STONA-Z STORE REGISTERS K2608480 7D86 C400 7D3B 851 | LD L GET1+1 GET SYMBOL TABLE ADDRESS K2608490 7D88 9301 852 | S 3 ONE-Z MODIFY TO GET SYM TBL ID WD K2608500 7D89 D001 853 | STO T8014+1 SAVE ADDR OF SYM TBL ID WD K2608510 7D8A C400 0000 854 | T8014 LD L *-* LOAD SYM TBL ID WORD K2608520 7D8C E3FC 855 | AND 3 H2000-Z MASK TO GET COMMON BIT ONLY K2608530 7D8D 4C18 7D91 856 | BSC L T8015,+- BRANCH IF NOT IN COMMON K2608540 7D8F C300 857 | LD 3 ZERO-Z ZERO-ZERO F INDICATOR K2608550 7D90 700C 858 | MDX T8017 GO MOVE TO INDICATOR AREA K2608560 859 | * K2608570 7D91 C328 860 | T8015 LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2608580 7D92 4C18 7D9C 861 | BSC L T8016,+- NO - BRANCH 2-4 K2608590 7D94 C31E 862 | LD 3 STONA-Z YES - RELOCATE 2-4 K2608600 7D95 8400 7A23 863 | A L ORG THIS 2-4 K2608610 7D97 D31E 864 | STO 3 STONA-Z ADDRESS 2-4 K2608620 7D98 4C28 7DA1 865 | BSC L T8018,+Z BRANCH TO ERR IF NEG 2-4 K2608630 7D9A C300 866 | LD 3 ZERO-Z ZERO-ZERO TO IND BITS 2-4 K2608640 7D9B 7001 867 | MDX T8017 CONTINUE 2-4 K2608650 868 | * K2608660 7D9C C301 869 | T8016 LD 3 ONE-Z ZERO-ONE FOR INDICATOR BITS K2608670 7D9D 4007 870 | T8017 BSI IBITS MOVE TO INDICATOR AREA K2608680 7D9E C0B2 871 | LD OUREL MOVE LINK TO RETURN EXIT K2608690 7D9F D0AF 872 | STO OUABS SAVE LINK WD K2608700 7DA0 70E0 873 | MDX T8012 BR TO O/P WD IN RLTV MODE K2608710 874 | * K2608720 7DA1 7440 7A2D 875 | T8018 MDX L ERROR,64 SET UP ERROR 86 2-4 K2608730 7DA3 4C00 7F1A 876 | BSC L EXIT EXIT 2-4 K2608740 877 | * K2608750 878 | * INDICATOR BITS K2608760 879 | * ACCUMULATOR CONTAINS BIT PATTERNS K2608770 880 | * TO MASK INTO THE INDICATOR POINTER K2608780 881 | * BASED ON SHIFTS SPECIFIED IN THE K2608790 882 | * INDICATOR COUNTER K2608800 883 | * K2608810 7DA5 0000 884 | IBITS DC 0 LINK ENTRY POINT K2608820 7DA6 D017 885 | STO IBIT5 SAVE INDICATOR BITS K2608830 7DA7 C400 7A3A 886 | LD L INCT PRODUCE SLA AND SRA K2608840 7DA9 8015 887 | A IBIT6 INSTRUCTIONS AND INSERT K2608850 7DAA D006 888 | STO IBIT3 (LENGTH OF SHIFT DEPENDS K2608860 7DAB 8014 889 | A IBIT7 ON INDICATOR COUNTER) K2608870 7DAC D002 890 | STO IBIT2 SET UP SRA INSTRUCTION K2608880 7DAD C480 7A3B 891 | LD I INPT LOAD WORD FROM BUFFER K2608890 7DAF 1800 892 | IBIT2 SRA *-* SRA (INCT - 2) K2608900 7DB0 800D 893 | A IBIT5 VALUE FROM ACC ON ENTRY K2608910 7DB1 1000 894 | IBIT3 SLA *-* SLA (INCT - 2) K2608920 7DB2 D480 7A3B 895 | STO I INPT SAVE WORD IN BUFFER K2608930 7DB4 74FE 7A3A 896 | MDX L INCT,-2 DECR INDICATOR COUNTER K2608940 7DB6 7005 897 | MDX IBIT4 BR IF NOT ZERO (=NO SKIP) K2608950 7DB7 7409 7A3B 898 | MDX L INPT,9 INCR INDICATOR POINTER K2608960 7DB9 C3F9 899 | LD 3 CD16-Z REINITIALIZE INDR COUNTER K2608970 7DBA D400 7A3A 900 | STO L INCT K2608980 7DBC 4C80 7DA5 901 | IBIT4 BSC I IBITS RETURN K2608990 7DBE 0000 902 | IBIT5 DC 0 TEMPORARY STORAGE K2609000 7DBF 0FFE 903 | IBIT6 DC /0FFE .SLA 0. - 0002 K2609010 7DC0 0800 904 | IBIT7 DC /0800 .SRA 0. - .SLA 0. K2609020 905 | * K2609030 906 | * SUBROUTINE K2609040 907 | * MOVE TO BUFFER K2609050 908 | * K2609060 7DC1 0000 909 | TOBUF DC 0 LINK ENTRY POINT K2609070 7DC2 D480 7A39 910 | STO I BUFPT SAVE I/P WD IN BUFR POINTER K2609080 911 | * K2609090 912 | * TEST IF SKIP TO NEXT 8WORD GROUP K2609100 7DC4 C400 7A3A 913 | LD L INCT LOAD INDICATOR COUNTER K2609110 7DC6 93F9 914 | S 3 CD16-Z TEST IF NEW INDICATOR WORD K2609120 7DC7 4C20 7DCC 915 | BSC L TOBU1,Z BR IF NOT NEW INDR WORD K2609130 7DC9 D480 7A3B 916 | STO I INPT ZERO TO NEW INDR WORD K2609140 7DCB 4013 917 | TOBUC BSI PCT BR TO INCR DATA HDR, BFR CNT K2609150 7DCC 7401 7A3D 918 | TOBU1 MDX L LOCTR,1 INCR LOCATION COUNTER K2609160 7DCE 4010 919 | BSI PCT BR TO INCR DATA HDR, BFR CNT K2609170 920 | * K2609180 921 | * TEST IF END OF BUFFER K2609190 7DCF C400 7A3B 922 | LD L INPT LOAD INDICATOR POINTER K2609200 7DD1 930C 923 | S 3 BFEND-Z COMPARE TO LAST WD OF BUFFER K2609210 7DD2 4CA8 7DC1 924 | BSC I TOBUF,Z+ RETURN IF BUFFER NOT FULL K2609220 925 | * K2609230 926 | * TEST IF FIRST HALF OF CALL K2609240 7DD4 C31D 927 | LD 3 SWISH-Z TEST INDICATOR BITS(1,2,OR3) K2609250 7DD5 4C18 7DDA 928 | BSC L HERE,+- BR IF 0, = 2ND HALF OF CALL K2609260 7DD7 1010 929 | SLA 16 CLEAR ACCUMULATOR K2609270 7DD8 D31D 930 | STO 3 SWISH-Z RESET INDICATOR BIT AREA K2609280 7DD9 7003 931 | MDX THERE K2609290 7DDA 43B5 932 | HERE BSI 3 WRITE-Z BR TO WRITE BUFFER ON DISK K2609300 7DDB 4400 7E19 933 | BSI L DHDRR DATAHEADERROUTINE K2609310 934 | * K2609320 7DDD 4C80 7DC1 935 | THERE BSC I TOBUF RETURN K2609330 936 | * K2609340 937 | * SUBROUTINE MOVE BUFFERPOINTERS K2609350 938 | * K2609360 7DDF 0000 939 | PCT DC 0 LINK ENTRY POINT K2609370 940 | * K2609380 941 | * INCR COUNT IN DATAHEADER K2609390 7DE0 C400 7A3C 942 | LD L DHDRA LOAD DATA HEADER ADDRESS K2609400 7DE2 8301 943 | A 3 ONE-Z ADD 1 K2609410 7DE3 D001 944 | STO PCT0+1 SET UP DATA HEADER ADDR K2609420 7DE4 7401 0000 945 | PCT0 MDX L *-*,1 INCR DATA HEADER WD K2609430 946 | * K2609440 7DE6 7401 7A3E 947 | MDX L PRLGT,1 INCR PROGRAM LENGTH COUNT K2609450 7DE8 7401 7A39 948 | MDX L BUFPT,1 INCR BUFFERPOINTER K2609460 7DEA 4C80 7DDF 949 | PCT1 BSC I PCT RETURN K2609470 950 | * K2609480 951 | * TERMINATE OUTPUT K2609490 7DEC 1000 952 | OUTER SLA 0 NOP K2609500 953 | * K2609510 954 | * MAKE PROGRLENGTH EVEN NUMBER K2609520 7DED C400 7A3D 955 | LD L LOCTR LOAD LOCATION COUNTER K2609530 7DEF 4804 956 | BSC E SKIP IF EVEN K2609540 7DF0 8301 957 | A 3 ONE-Z IF NOT, ADD ONE K2609550 7DF1 D400 7A3D 958 | STO L LOCTR SAVE IN LOCATION COUNTER K2609560 959 | * K2609570 960 | * INSERT BYTE COUNT OF PROGR K2609580 7DF3 C400 7A3E 961 | LD L PRLGT LOAD PROGRAM LENGTH K2609590 7DF5 83F2 962 | A 3 DC36-Z ADD CONSTANT =36 K2609600 7DF6 1890 963 | SRT 16 SHIFT EXTENSION K2609610 7DF7 ABF0 964 | D 3 DC20-Z DIVIDE BY 20 WDS/DISK BYTE K2609620 965 | * K2609630 7DF8 D400 7A26 966 | STO L SOFST TO COMMUNICATION AREA K2609640 967 | * TO BE USED BY RECOVERY K2609650 968 | * K2609660 969 | * CHANGE DATAHEADERROUTINE K2609670 970 | * TO GET INITIAL ZERO AS K2609680 971 | * WORD COUNT FOR END-OF-PROGR DATAHDR K2609690 7DFA C053 972 | LD LZERO GET LOAD ZERO INSTRUCTION K2609700 7DFB D03E 973 | STO DHDR1 SAVE IN DATA HEADER ROUTINE K2609710 974 | * K2609720 975 | * CORRECT NO DATA K2609730 7DFC C0E2 976 | LD PCT TEST DATA HDR USED K2609740 7DFD 4C20 7E03 977 | BSC L *+4,Z BR IF DATA K2609750 7DFF 74FE 7A3B 978 | MDX L INPT,-2 DECR INDICATOR POINTER K2609760 7E01 74FE 7A3E 979 | MDX L PRLGT,-2 DECR PROGRAM LENGTH K2609770 980 | * K2609780 981 | * CORRECT WORDCOUNT IN DATAHEADER K2609790 982 | * IF NEW 8-WORD GROUP K2609800 983 | * K2609810 7E03 C400 7A3A 984 | LD L INCT LOAD INDICATOR COUNT K2609820 7E05 931C 985 | S 3 C16-Z COMPARE WITH GROUP SIZE K2609830 7E06 4C20 7E0D 986 | BSC L OUTE1,Z BR IF NOT NEW GROUP K2609840 7E08 C480 7DE5 987 | LD I PCT0+1 LOAD DATA HEADER WORD K2609850 7E0A 9301 988 | S 3 ONE-Z DECR BY ONE K2609860 7E0B D480 7DE5 989 | STO I PCT0+1 SAVE NEW DATA HDR WORD K2609870 990 | * K2609880 7E0D 400B 991 | OUTE1 BSI DHDRR HEADER FOR END-OF-PROGRAM K2609890 992 | * K2609900 993 | * WRITE LAST SECTOR K2609910 994 | * CHANGE WRITE-ROUTINE K2609920 995 | * FOR WRITING OF LAST SECOTR K2609930 7E0E C008 996 | LD BRNCH LOAD EXIT INSTRUCTION K2609940 7E0F D3B9 997 | STO 3 WRITX-Z REPLACE WRITE EXIT INSTR K2609950 998 | * WRITE OUT BUFFER K2609960 7E10 43B5 999 | BSI 3 WRITE-Z K2609970 1000 | * K2609980 1001 | * TEST IF PART OF BUFFER STILL K2609990 1002 | * REMAINS TO BE WRITTEN K2610000 1003 | * K2610010 7E11 C400 7A39 1004 | LD L BUFPT LOAD BUFFER POINTER K2610020 7E13 93F1 1005 | S 3 BUFAD-Z SUBTRACT END OF BUFFER K2610030 7E14 4C28 7F1A 1006 | BSC L EXIT,+Z BR IF ALL DATA WRITTEN K2610040 7E16 43B5 1007 | BSI 3 WRITE-Z BR TO WRITE BUFFER K2610050 1008 | * K2610060 1009 | * BR TO READING OF NEXT PHASE K2610070 7E17 4C00 7F1A 1010 | BRNCH BSC L EXIT K2610080 1011 | * K2610090 1012 | * K2610100 1013 | * SUBROUTINE TO OUTPUT DATAHEADER K2610110 1014 | * K2610120 7E19 0000 1015 | DHDRR DC 0 LINK ENTRY POINT K2610130 7E1A C400 7A3A 1016 | LD L INCT LOAD INDICATOR COUNTER K2610140 7E1C 931C 1017 | S 3 C16-Z SEE IF NEW 8 WD GROUP K2610150 7E1D 4C20 7E23 1018 | BSC L DHDR0,Z BR IF NOT 'EMPTY' INDICTR K2610160 7E1F C400 7A3B 1019 | LD L INPT LOAD INDICATOR POINTER K2610170 7E21 D400 7A39 1020 | STO L BUFPT MOVE TO BUFFER POINTER K2610180 7E23 C400 7A3D 1021 | DHDR0 LD L LOCTR LOCCOUNTER TO DATAHEADER K2610190 7E25 D480 7A39 1022 | STO I BUFPT SAVE IN BUFFER K2610200 7E27 C328 1023 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2610210 7E28 4C18 7E32 1024 | BSC L DHDRX,+- NO - BRANCH 2-4 K2610220 7E2A C400 7A3D 1025 | LD L LOCTR YES - RELOCATE THE 2-4 K2610230 7E2C 8400 7A23 1026 | A L ORG LOC ADDRESS COUNTER 2-4 K2610240 7E2E D480 7A39 1027 | STO I BUFPT STORE IN HEADER 2-4 K2610250 7E30 4C18 7DA1 1028 | BSC L T8018,+- BRANCH IF NEGATIVE 2-4 K2610260 7E32 C400 7A39 1029 | DHDRX LD L BUFPT INSERT NEW DATAHEADER ADDR K2610270 7E34 D400 7A3C 1030 | STO L DHDRA SAVE IN DATA HEADER ADDR K2610280 7E36 7401 7A39 1031 | MDX L BUFPT,1 INCR BUFFER POINTER K2610290 7E38 7403 7A3E 1032 | MDX L PRLGT,3 COUNT 3 FOR DATAHEADER K2610300 7E3A C303 1033 | DHDR1 LD 3 THREE-Z INITIAL COUNT = 3 K2610310 1034 | * INSTRUCTION IS CHANGED FOR K2610320 1035 | * END-OF-PROG HDR TO BSC LEXIT K2610330 7E3B D480 7A39 1036 | STO I BUFPT SAVE IN BUFFER K2610340 7E3D 7401 7A39 1037 | MDX L BUFPT,1 INCR BUFFER POINTER K2610350 7E3F C300 1038 | LD 3 ZERO-Z K2610360 7E40 D480 7A39 1039 | STO I BUFPT ZERO TO FIRST INDICATOR K2610370 7E42 D09C 1040 | STO PCT SET PCT FLAG-NO DATA K2610380 7E43 C400 7A39 1041 | LD L BUFPT LOAD BUFFER POINTER K2610390 7E45 D400 7A3B 1042 | STO L INPT INSER INDICATOR POINTER K2610400 7E47 C31C 1043 | LD 3 C16-Z RESET INDICATOR COUNTER K2610410 7E48 D400 7A3A 1044 | STO L INCT SAVE IN INDICATOR COUNTER K2610420 7E4A 7401 7A39 1045 | MDX L BUFPT,1 MOVE BUFFER POINTER K2610430 7E4C 4C80 7E19 1046 | BSC I DHDRR RETURN K2610440 1047 | * K2610450 7E4E C300 1048 | LZERO LD 3 ZERO-Z INITIAL COUNT = 0 K2610460 1049 | * K2610470 1050 | * K2610480 1051 | * .4-BIT.-OBJ. TIME INSTRUCTION TABLE K2610490 1052 | * K2610500 7E4F C400 1053 | TAB4 DC /C400 LD L CODE=1 K2610510 7E50 D400 1054 | DC /D400 STO L 2 K2610520 7E51 8400 1055 | DC /8400 A L 3 K2610530 7E52 9400 1056 | DC /9400 S L 4 K2610540 7E53 AC00 1057 | DC /AC00 D L 5 K2610550 7E54 A400 1058 | DC /A400 M L 6 K2610560 7E55 4400 1059 | BSIL DC /4400 BSI L 7 K2610570 7E56 6580 1060 | DC /6580 LDX I1 8 K2610580 7E57 C500 1061 | DC /C500 LD L1 9 K2610590 7E58 D500 1062 | DC /D500 STO L1 10 K2610600 7E59 8500 1063 | DC /8500 A L1 11 K2610610 7E5A 9500 1064 | DC /9500 S L1 12 K2610620 7E5B AD00 1065 | DC /AD00 D L1 13 K2610630 7E5C A500 1066 | DC /A500 M L1 14 K2610640 1067 | * K2610650 7E5D 4C00 1068 | BSCL DC /4C00 BSC L 15 K2610660 1069 | * (USED FOR UNCOND BRANCH ONLY) K2610670 1070 | * K2610680 1071 | * (EXTENSION) K2610690 1072 | * .6-BIT. OBJ.TIME INSTRUCTION TABLE K2610700 1073 | * K2610710 7E5E 4C00 1074 | TAB6 DC /4C00 BSC L CODE=16 (5000) K2610720 7E5F 7400 1075 | DC /7400 MDX L 17 (5100) K2610730 7E60 C300 1076 | LD 3 0 LD FAC+1 18 (527E) K2610740 7E61 D300 1077 | STO 3 0 STO FAC+1 19 (537E) K2610750 7E62 9300 1078 | S 3 0 S FAC+1 20 (547E) K2610760 7E63 AB00 1079 | D 3 0 D FAC+1 21 (557E) K2610770 7E64 DB00 1080 | STD 3 0 STD FAC+1 22 (567E) K2610780 7E65 9B00 1081 | SD 3 0 SD FAC+1 23 (577E) K2610790 7E66 1890 1082 | SRT 16 SRT 16 24 (5800) K2610800 7E67 1010 1083 | SLA 16 SLA 16 25 (5900) K2610810 7E68 0000 1084 | DC 0 (RES FOR *-1) 26 (5A00) K2610820 7E69 6500 1085 | LDXL1 DC /6500 LDX L1 27 (5B00) K2610830 7E6A 4D80 1086 | DC /4D80 BSC I1 28 (5C00) K2610840 7E6B 4C08 1087 | SBSCL DC /4C08 BSC L (SPEC) 29 (5D00) K2610850 7E6C 0000 1088 | DC 0 (RES F GENLB) 30 (5E00) K2610860 7E6D 0000 1089 | DC 0 CONST ZERO 31 (5F00) K2610870 7E6E 7000 1090 | MDX *+0 32 (6000) K2610880 7E6F 7500 1091 | DC /7500 MDX L1 33 (6100) K2610890 7E70 6D00 1092 | STXL1 DC /6D00 STX L1 34 (6200) K2610900 7E71 6000 1093 | LDX 0 LDX 35 (6300) K2610910 7E72 0000 1094 | DC 0 K2610920 7E73 0000 1095 | DC 0 K2610930 7E74 0000 1096 | DC 0 K2610940 1097 | * K2610950 1098 | * K2610960 1099 | * SYSTEM SUBR. TABLE K2610970 1100 | * K2610980 7E75 0604 1101 | TABSS DC /0604 FADD CODE=008 K2610990 7E76 4100 1102 | DC /4100 K2611000 7E77 0604 1103 | DC /0604 FADDX 010 K2611010 7E78 4127 1104 | DC /4127 K2611020 7E79 068A 1105 | DC /068A FSUB 018 K2611030 7E7A 4080 1106 | DC /4080 K2611040 7E7B 068A 1107 | DC /068A FSUBX 020 K2611050 7E7C 40A7 1108 | DC /40A7 K2611060 7E7D 0651 1109 | DC /0651 FMPY 028 K2611070 7E7E 7A00 1110 | DC /7A00 K2611080 7E7F 0651 1111 | DC /0651 FMPYX 030 K2611090 7E80 7A27 1112 | DC /7A27 K2611100 7E81 0610 1113 | DC /0610 FDIV 038 K2611110 7E82 9940 1114 | DC /9940 K2611120 7E83 0610 1115 | DC /0610 FDIVX 040 K2611130 7E84 9967 1116 | DC /9967 K2611140 7E85 064C 1117 | DC /064C FLD 048 K2611150 7E86 4000 1118 | DC /4000 K2611160 7E87 064C 1119 | DC /064C FLDX 050 K2611170 7E88 49C0 1120 | DC /49C0 K2611180 7E89 068A 1121 | DC /068A FSTO 058 K2611190 7E8A 3580 1122 | DC /3580 K2611200 7E8B 068A 1123 | DC /068A FSTOX 060 K2611210 7E8C 35A7 1124 | DC /35A7 K2611220 7E8D 0688 1125 | DC /0688 FSBR 068 K2611230 7E8E 2640 1126 | DC /2640 K2611240 7E8F 0688 1127 | DC /0688 FSBRX 070 K2611250 7E90 2667 1128 | DC /2667 K2611260 7E91 0612 1129 | DC /0612 FDVR 078 K2611270 7E92 5640 1130 | DC /5640 K2611280 7E93 0612 1131 | DC /0612 FDVRX 080 K2611290 7E94 5667 1132 | DC /5667 K2611300 7E95 0606 1133 | DC /0606 FAXI 088 K2611310 7E96 7240 1134 | DC /7240 K2611320 7E97 0606 1135 | FAXIX DC /0606 FAXIX 090 K2611330 7E98 7267 1136 | DC /7267 K2611340 7E99 0626 1137 | DC /0626 FIXI 098 K2611350 7E9A 7240 1138 | DC /7240 K2611360 7E9B 0626 1139 | DC /0626 FIXIX 0A0 K2611370 7E9C 7267 1140 | DC /7267 K2611380 7E9D 2218 1141 | FARI DC /2218 SFAR 0A8 K2611390 7E9E 1640 1142 | DC /1640 K2611400 7E9F 2218 1143 | FARIX DC /2218 SFARX 0B0 K2611410 7EA0 1667 1144 | DC /1667 K2611420 7EA1 2224 1145 | FIAR DC /2224 SIAR 0B8 K2611430 7EA2 1640 1146 | DC /1640 K2611440 7EA3 2224 1147 | FIARX DC /2224 SIARX 0C0 K2611450 7EA4 1667 1148 | DC /1667 K2611460 7EA5 0918 1149 | AIFIX DC /0918 IFIX 0C8 K2611470 7EA6 99C0 1150 | DC /99C0 K2611480 7EA7 064D 1151 | AFLT DC /064D FLOAT 0D0 K2611490 7EA8 6063 1152 | DC /6063 K2611500 7EA9 2666 1153 | DC /2666 WRTYZ 0D8 K2611510 7EAA 3A29 1154 | DC /3A29 K2611520 7EAB 23A1 1155 | DC /23A1 TYPEZ 0E0 K2611530 7EAC 7169 1156 | DC /7169 K2611540 7EAD 2224 1157 | FIIF DC /2224 SIIF 0E8 K2611550 7EAE 9180 1158 | DC /9180 K2611560 7EAF 2218 1159 | FIF DC /2218 SFIF 0F0 K2611570 7EB0 9180 1160 | DC /9180 K2611580 7EB1 221D 1161 | FGOTO DC /221D SGOTO 0F8 K2611590 7EB2 68D6 1162 | DC /68D6 K2611600 7EB3 0305 1163 | DC /0305 CARDZ 100 K2611610 7EB4 9129 1164 | DC /9129 K2611620 7EB5 1765 1165 | DC /1765 PRNTZ 108 K2611630 7EB6 58E9 1166 | DC /58E9 K2611640 7EB7 1705 1167 | DC /1705 PAPTZ 110 K2611650 7EB8 78E9 1168 | DC /78E9 K2611660 7EB9 260C 1169 | FCHRI DC /260C WCHRI 118 K2611670 7EBA 8649 1170 | DC /8649 K2611680 1171 | * K2611690 1172 | * THE SUBR ENTRY NAMES FOR UNFORMATTED K2611700 1173 | * I/O ARE LOCATED IN TWO GROUPS, THUS K2611710 1174 | * ANY ONE HAS ONE OF TWO POSSIBLE K2611720 1175 | * DISPLACEMENTS, WHICH ARE K2611730 1176 | * /1200-/1400 OR K2611740 1177 | * /1D80-/1400 K2611750 1178 | * K2611760 7EBB 2464 1179 | DC /2464 URED 120 K2611770 7EBC 5100 1180 | DC /5100 K2611780 7EBD 2499 1181 | DC /2499 UWRT 128 K2611790 7EBE 98C0 1182 | DC /98C0 K2611800 7EBF 240D 1183 | DC /240D UCOMP 130 K2611810 7EC0 6517 1184 | DC /6517 K2611820 7EC1 1914 1185 | DC /1914 READZ 138 K2611830 7EC2 1129 1186 | DC /1129 K2611840 7EC3 2264 1187 | AERD DC /2264 SRED 140 K2611850 7EC4 5100 1188 | DC /5100 K2611860 7EC5 2299 1189 | DC /2299 SWRT 148 K2611870 7EC6 98C0 1190 | DC /98C0 K2611880 7EC7 220D 1191 | DC /220D SCOMP 150 K2611890 7EC8 6517 1192 | DC /6517 K2611900 7EC9 2218 1193 | AFIO DC /2218 SFIO 158 K2611910 7ECA 9580 1194 | DC /9580 K2611920 7ECB 2225 1195 | DC /2225 SIOAI 160 K2611930 7ECC 6049 1196 | DC /6049 K2611940 7ECD 2225 1197 | AIOAF DC /2225 SIOAF 168 K2611950 7ECE 6046 1198 | DC /6046 K2611960 7ECF 2225 1199 | DC /2225 SIOFX 170 K2611970 7ED0 61A7 1200 | DC /61A7 K2611980 7ED1 2225 1201 | DC /2225 SIOIX 178 K2611990 7ED2 6267 1202 | DC /6267 K2612000 7ED3 2225 1203 | DC /2225 SIOF 180 K2612010 7ED4 6180 1204 | DC /6180 K2612020 7ED5 2225 1205 | IOI DC /2225 SIOI 188 K2612030 7ED6 6240 1206 | DC /6240 K2612040 7ED7 2290 1207 | SUBSC DC /2290 SUBSC 190 K2612050 7ED8 2883 1208 | DC /2883 K2612060 7ED9 1765 1209 | DC /1765 PRNZ 198 K2612070 7EDA 5A40 1210 | DC /5A40 K2612080 7EDB 020D 1211 | BCKSP DC /020D BCKSP 1A0 K2612090 7EDC 2897 1212 | DC /2897 K2612100 7EDD 0558 1213 | EOF DC /0558 EOF 1A8 K2612110 7EDE 6000 1214 | DC /6000 K2612120 7EDF 1916 1215 | REWND DC /1916 REWND 1B0 K2612130 7EE0 6544 1216 | DC /6544 K2612140 7EE1 228D 1217 | DC /228D STOP 1B8 K2612150 7EE2 65C0 1218 | DC /65C0 K2612160 7EE3 1706 1219 | DC /1706 PAUSE 1C0 K2612170 7EE4 4885 1220 | DC /4885 K2612180 7EE5 2255 1221 | RSIGN DC /2255 SNR 1C8 K2612190 7EE6 9000 1222 | DC /9000 K2612200 7EE7 2290 1223 | DC /2290 SUBIN 1D0 K2612210 7EE8 2255 1224 | DC /2255 K2612220 7EE9 2418 1225 | DC /2418 UFIO 1D8 K2612230 7EEA 9580 1226 | DC /9580 K2612240 7EEB 2425 1227 | DC /2425 UIOAI 1E0 K2612250 7EEC 6049 1228 | DC /6049 K2612260 7EED 2425 1229 | DC /2425 UIOAF 1E8 K2612270 7EEE 6046 1230 | DC /6046 K2612280 7EEF 2425 1231 | DC /2425 UIOFX 1F0 K2612290 7EF0 61A7 1232 | DC /61A7 K2612300 7EF1 2425 1233 | DC /2425 UIOIX 1F8 K2612310 7EF2 6267 1234 | DC /6267 K2612320 7EF3 2425 1235 | DC /2425 UIOF 200 K2612330 7EF4 6180 1236 | DC /6180 K2612340 7EF5 2425 1237 | DC /2425 UIOI 208 K2612350 7EF6 6240 1238 | DC /6240 K2612360 7EF7 2210 1239 | MDFIO DC /2210 SDFIO 210 K2612370 7EF8 6256 1240 | DC /6256 K2612380 7EF9 2211 1241 | MDRED DC /2211 SDRED 218 K2612390 7EFA 9144 1242 | DC /9144 K2612400 7EFB 2212 1243 | DC /2212 SDWRT 220 K2612410 7EFC 6663 1244 | DC /6663 K2612420 7EFD 2210 1245 | DC /2210 SDCOM 228 K2612430 7EFE 3594 1246 | DC /3594 K2612440 7EFF 0000 1247 | DC 0 RESERVED TO KEEP CODE K2612450 7F00 0000 1248 | DC 0 DIFF CONSTANT K2612460 1249 | * BETWEEN DISK I/O K2612470 1250 | * ROUTINES AND OTHERS K2612480 7F01 2210 1251 | DC /2210 SDAI 238 K2612490 7F02 1240 1252 | DC /1240 K2612500 7F03 2210 1253 | DC /2210 SDAF 240 K2612510 7F04 1180 1254 | DC /1180 K2612520 7F05 2210 1255 | DC /2210 SDFX 248 K2612530 7F06 69C0 1256 | DC /69C0 K2612540 7F07 2210 1257 | DC /2210 SDIX 250 K2612550 7F08 99C0 1258 | DC /99C0 K2612560 7F09 2210 1259 | DC /2210 SDF 258 K2612570 7F0A 6000 1260 | DC /6000 K2612580 7F0B 2210 1261 | MDI DC /2210 SDI 260 K2612590 7F0C 9000 1262 | DC /9000 K2612600 7F0D 2210 1263 | MDFND DC /2210 SDFND 268 K2612610 7F0E 6544 1264 | DC /6544 K2612620 7F0F 1754 1265 | DC /1754 PNCHZ 270 K2612630 7F10 3229 1266 | DC /3229 K2612640 7F11 0000 1267 | EOTAB DC 0 NOT USED K2612650 7F12 0000 1268 | DC 0 K2612660 1269 | * K2612670 1270 | * K2612680 1271 | ************************************************** K2612690 1272 | * K2612700 1273 | * PROGRAM ENTRY K2612710 7F13 6138 1274 | ENT LDX 1 PHID GET ID THIS PHASE K2612720 7F14 6D00 0078 1275 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2612730 1276 | * TEST IF OUTPUT IS TO BE DEFERRED K2612740 7F16 C400 7A2D 1277 | LD L ERROR K2612750 7F18 4C18 7B9A 1278 | BSC L START,+- BR TO START IF NO ERROR K2612760 1279 | * K2612770 1280 | * LOAD OVERLAY-RESTORE K2612780 1281 | * K2612790 7F1A 6100 1282 | EXIT LDX 1 0 K2612800 7F1B 6D00 7A23 1283 | STX L1 SOFS-1 K2612810 7F1D 6580 7F23 1284 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2612820 7F1F C804 1285 | LDD NXTPH+2 *NEXT PHASE K2612830 7F20 4C00 7FBC 1286 | BSC L ROL GO TO READ NEXT PHASE K2612840 7F22 1287 | BSS E 0 K2612850 7F22 0039 1288 | NXTPH DC 57 ID OF NEXT PHASE K2612860 7F23 0000 1289 | DC *-* CORE ADDRESS OF NEXT PHASE K2612870 7F24 0000 1290 | DC *-* WORD COUNT OF NEXT PHASE K2612880 7F25 0000 1291 | DC *-* SECTOR ADDRESS OF NEXT PHASE K2612890 1292 | * K2612900 7F26 1293 | BSS BPHAR+320*PHLEN-*-1 PATCH AREA 2-6 K2612910 7F57 0000 1294 | DC 0 K2612920 7F58 1295 | END BPHAR-2 K2612930 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $DBSY 00EE 93 591 $LINK 0039 94 693 $PHSE 0078 88 1275 AERD 7EC3 1187 AFIO 7EC9 1193 AFLT 7EA7 1151 AIFIX 7EA5 1149 AIOAF 7ECD 1197 BCKSP 7EDB 1211 BFEND 7D0A 663 923 BPHAR 7B98 176 1293 1295 BRNCH 7E17 1010 996 BSCL 7E5D 1068 BSIL 7E55 1059 302 BUFAD 7CEF 627 1005 BUFCT 7A38 159 BUFF 7A42 169 170 171 172 175 564 585 605 606 611 627 663 BUFPT 7A39 160 597 599 910 948 1004 1020 1022 1027 1029 1031 1036 1037 1039 1041 1045 C16 7D1A 679 574 985 1017 1043 C320 7D12 671 595 598 CCWD 7A31 118 189 CD16 7CF7 637 899 914 CLINK 7D25 693 304 COMON 7A2B 112 405 CON4B 7D06 659 343 489 CSIZE 7A2C 113 CSUBS 7D0C 665 454 DC20 7CEE 626 964 DC36 7CF0 628 962 DFCNT 7A33 139 DHDR0 7E23 1021 1018 DHDR1 7E3A 1033 973 DHDRA 7A3C 163 942 1030 DHDRR 7E19 1015 933 991 1046 DHDRX 7E32 1029 1024 DIFF 7BBC 247 218 241 DZ000 00F2 92 590 ENDLZ 7CB2 565 587 ENT 7F13 1274 183 EOF 7EDD 1213 EOFS 7A25 102 EOFST 7A2A 111 EOTAB 7F11 1267 ERROR 7A2D 114 875 1277 EXIT 7F1A 1282 876 1006 1010 FARI 7E9D 1141 224 FARIX 7E9F 1143 226 FAXIX 7E97 1135 206 FCHRI 7EB9 1169 213 FGOTO 7EB1 1161 FIAR 7EA1 1145 FIARX 7EA3 1147 FIF 7EAF 1159 228 FIIF 7EAD 1157 FNAME 7A2E 115 FOUR 7D02 654 655 737 FTOE 7BB4 239 207 214 225 227 229 243 GET1 7D3A 723 716 718 719 720 722 725 727 851 GETST 7D2E 713 348 418 531 539 553 715 728 H0004 7D02 655 217 H0005 7D14 673 721 H00FF 7D0F 668 492 H07FC 7D15 674 736 H07FF 7D10 669 714 H1D00 7CF4 633 451 H2000 7CFA 642 855 H3F00 7D0E 667 487 H4000 7D24 692 H4C08 7D0B 664 374 H4C80 7CFB 643 403 H4D80 7D08 661 362 H5080 7CFC 644 401 H5B00 7CF6 635 298 386 H5D00 7D07 660 355 H6200 7CFD 645 477 H7800 7D05 658 339 H7FFF 7CF5 634 502 523 556 HERE 7DDA 932 928 HF800 7D11 670 740 HFF00 7D09 662 359 HFF80 7D13 672 412 IBIT2 7DAF 892 890 IBIT3 7DB1 894 888 IBIT4 7DBC 901 897 IBIT5 7DBE 902 885 893 IBIT6 7DBF 903 887 IBIT7 7DC0 904 889 IBITS 7DA5 884 805 810 837 870 901 IDCAL 7D23 691 269 IDDAT 7D22 690 267 IDDEF 7D21 689 265 IDEND 7D04 657 327 IDFOR 7D03 656 262 INCPT 7D27 701 274 286 334 364 376 394 407 420 500 509 535 536 537 543 544 558 559 705 734 INCT 7A3A 161 573 886 896 900 913 984 1016 1044 INIT 7D44 733 256 742 INPT 7A3B 162 594 596 891 895 898 916 922 978 1019 1042 IOCS 7A32 127 IOI 7ED5 1205 LDXL1 7E69 1085 389 LOCTR 7A3D 164 365 503 819 918 955 958 1021 1025 LZERO 7E4E 1048 972 M1600 7CF2 631 457 M1680 7CF3 632 459 M1E00 7D18 677 465 M1E80 7D19 678 467 M2380 7D17 676 463 M2400 7D16 675 461 MDFIO 7EF7 1239 MDFND 7F0D 1263 MDI 7F0B 1261 MDRED 7EF9 1241 MEMRY 8000 87 89 90 MOV1 7CD5 605 608 NEQ 7B98 183 NOWS 7CE5 618 588 NXTPH 7F22 1288 179 620 621 1284 1285 ONE 7CFF 651 581 852 869 943 957 988 ORG 7A23 100 863 1026 ORGSW 7D26 694 192 860 1023 OUABS 7D4F 749 276 303 305 309 314 346 363 375 390 393 404 494 499 514 534 542 557 844 872 OUCAL 7D55 770 441 788 824 OULCL 7D57 774 419 787 OUREL 7D51 758 349 532 540 554 830 871 OURNC 7D53 764 367 406 505 524 829 OUTE1 7E0D 991 986 OUTER 7DEC 952 331 OVERL 7A23 90 97 PCT 7DDF 939 917 919 949 976 1040 PCT0 7DE4 945 580 582 614 944 987 989 PCT1 7DEA 949 613 PHID 0038 91 1274 PHLEN 0003 95 1293 PRLGT 7A3E 165 947 961 979 1032 Q1005 7BA6 207 209 Q1011 7BBD 251 197 230 Q2012 7BC2 256 279 289 329 Q2013 7BD2 274 263 278 Q2014 7BD3 275 Q201A 7BBD 250 251 Q2101 7BD9 285 266 268 288 315 Q2201 7BDF 297 270 Q2211 7BE3 302 Q3011 7BF2 323 271 299 350 368 395 408 421 471 495 506 518 560 Q3013 7BFB 334 325 Q3014 7BFC 335 546 Q3021 7BFF 338 Q3022 7C06 345 344 Q3023 7C09 347 340 Q4011 7C0D 355 337 Q4012 7C18 367 378 Q4021 7C1A 374 357 Q4031 7C1F 385 361 Q4041 7C2B 400 388 Q4042 7C33 406 Q5011 7C36 411 402 Q7011 7C3F 424 414 Q7012 7C46 436 434 438 440 Q7021 7C67 476 427 Q7022 7C72 493 490 Q7031 7C77 498 478 Q7051 7C83 509 452 516 526 Q7055 7C90 523 511 Q8011 7C93 530 455 Q8021 7C9B 538 547 Q8051 7CA6 552 468 REWND 7EDF 1215 ROL 7FBC 89 622 1286 RSIGN 7EE5 1221 SBSCL 7E6B 1087 SOFGT 7A29 110 SOFNS 7A27 107 SOFS 7A24 101 250 619 1283 SOFST 7A26 103 717 966 SOFXT 7A28 109 SORF 7A30 117 SSTOR 7D0D 666 433 START 7B9A 186 1278 STOID 7D1F 686 257 326 741 STONA 7D1C 683 780 795 806 822 828 835 841 850 862 864 STXL1 7E70 1092 498 SUBSC 7ED7 1207 SWISH 7D1B 680 803 927 930 T7005 7D59 780 775 T7006 7D5F 788 T7011 7D63 795 771 T7013 7D69 803 792 T7014 7D76 822 814 T7051 7D7A 828 765 T8011 7D7E 835 750 T8012 7D81 841 873 T8013 7D85 850 759 T8014 7D8A 854 853 T8015 7D91 860 831 856 T8016 7D9C 869 861 T8017 7D9D 870 858 867 T8018 7DA1 875 865 1028 TAB4 7E4F 1053 659 TAB6 7E5E 1074 TABSS 7E75 1101 206 213 224 226 228 240 242 666 TEMP1 7CF8 640 790 799 804 TEMP2 7CF9 641 782 797 808 TEN 7CF1 629 THERE 7DDD 935 931 THREE 7D01 653 789 1033 TOBU1 7DCC 918 915 TOBUC 7DCB 917 TOBUF 7DC1 909 807 823 842 924 935 TWO 7D00 652 798 TWOWC 7D20 687 786 802 813 WCNT 7D1E 685 277 287 323 703 738 WD1 7A42 170 WD2 7A43 171 WD3 7A44 172 WR900 7CB0 563 589 WRIT0 7CBE 585 575 WRITE 7CB3 567 616 932 999 1007 WRITX 7CB7 575 997 Z 7CFE 648 192 217 256 257 262 265 267 269 274 276 277 286 287 298 303 304 305 309 314 323 326 327 334 339 343 346 348 349 355 359 362 363 364 367 374 375 376 386 390 393 394 401 403 404 406 407 412 418 419 420 433 441 451 454 457 459 461 463 465 467 477 487 489 492 494 499 500 502 505 509 514 523 524 531 532 534 535 536 537 539 540 542 543 544 553 554 556 557 558 559 574 581 595 598 714 721 734 736 737 738 740 741 780 781 782 785 786 789 790 795 796 797 798 799 802 803 804 806 808 813 822 828 835 836 841 850 852 855 857 860 862 864 866 869 899 914 923 927 930 932 943 957 962 964 985 988 997 999 1005 1007 1017 1023 1033 1038 1043 1048 ZERO 7CFE 647 187 253 609 648 781 785 796 836 857 866 1038 1048
ibm/ibm1130-lib/dmsr2v12/kforph26_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator