|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5842 (0x16d2)
Types: s3xseg
Names: »S$DTOD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTOD«
MACRO 00010000
$DTOD 00040000
TEXT 00050000
* OFFSET LABELS FOR A DISK DTF RELEASE-7 00050001
SPACE 00060000
$DFDEV EQU 0 DEVICE (Q-BYTE OF SIO) 00070000
$DFUPS EQU 1 UPSI BYTE 00080000
$DFATR EQU 3 FILE ATTRIBUTES 00090000
* 00100000
* ***** BYTE ONE ***** 00110000
* X'80' - INDEXED 00120000
* X'40' - CONSECUTIVE 00130000
* X'20' - DIRECT 00140000
* X'10' - MVF 00150000
* X'08' - INPUT 00160000
* X'04' - OUTPUT 00170000
* X'02' - UPDATE 00180000
* X'01' - ADD 00190000
* 00200000
* ***** BYTE TWO ***** 00210000
* X'80' - ADDROUT / ON LINE 00220000
* INDEXED MVF 00230000
* X'40' _ ORDERED LOAD 00240000
* X'20' - RANDOM 00250000
* X'10' - LIMITS 00260000
* X'08' - DUAL I/O 00270000
* X'04' - EOV CLOSE 'IGNORE' BIT 00280000
* X'02' - EOV CALL TO CLOSE 00290000
* EOL CALL TO OPEN 00300000
* X'01' - OPENED 00310000
* 00320000
$DFCHA EQU 5 DTF CHAIN A 00330000
$DFCHB EQU 7 DTF CHAIN B 00340000
$DFARR EQU 9 ARR SAVE 00350000
$DFXRS EQU 11 XR1 SAVE 00360000
$DFWKB EQU 13 ADDRESS OF LOGICAL RECORD 00370000
$DFCMP EQU 14 COMPLETION EOF=X'42' EOX=X'70' 00380000
$DFOPC EQU 15 OPERATION GET=X'80' PUT=X'40' 00390000
* UPDATE=X'20' 00400000
$DFIOB EQU 17 CURRENT I/O IOB ADDRESS 00410000
$DFPRB EQU 19 CURRENT PROCESS IOB ADDRESS 00420000
$DFBKL EQU 21 BLOCK LENGTH 00430000
$DFRCL EQU 23 RECORD LENGTH 00440000
$DFPTR EQU 25 DATA BLOCK INDEX 00450000
$DFXTA EQU 27 DATA START XTENT 00460000
$DFMVF EQU 27 ADDRESS OF MVF XTENTS TABLE 00470000
$DFXTB EQU 29 DATA END EXTENT 00480000
$DFNUM EQU 29 NUMBER OF EXTENTS(MVF) 00490000
$DFSWA EQU 30 SWA FORMAT-1 LABEL INDEX 00500000
$DFWAA EQU 31 WORK AREA A 00510000
$DFWAB EQU 32 WORK AREA B 00520000
$DFWAC EQU 33 WORK AREA C 00530000
$DFWAD EQU 34 WORK AREA D 00540000
$DFRMA EQU 36 WORK AREA, SPANNING RECORD (1ST) 00550000
$DFRMB EQU 38 WORK AREA, SPANNING RECORD (2ND) 00560000
$DFIND EQU 39 INDICATOR BITS 00570000
$DFNXR EQU 43 DISK ADDR OF CURRENT REC (CSDD) 00580000
$DFEOF EQU 46 DISK ADDR OF LOGICAL EOF (CSD) 00590000
$DFNXK EQU 46 DISK ADDR OF LOGICAL EOI (CSD) 00600000
$DFKPR EQU 48 INDEX BLOCK INDEX 00610000
$DFKAD EQU 50 ADDRESS OF KEY IN CORE 00620000
$DFCUR EQU 50 ADDR OF CUR KEY (ISA, ISU, ISUA) 00630000
$DFHI EQU 50 ADDR OF HIGH KEY (LIMITS) 00640000
$DFKXA EQU 52 INDEX START XTENT 00650000
$DFKBF EQU 54 INDEX IOB ADDRESS 00660000
$DFKL EQU 56 KEY LENGTH 00670000
$DFKXB EQU 58 INDEX END XTENT 00680000
$DFKD EQU 60 DISP OF KEY IN RECORD 00690000
$DFLST EQU 62 ADDR OF LAST KEY(ISA, ISU, ISUA) 00700000
$DFMIX EQU 62 ADDR OF MASTER CYLINDER INDEX 00710000
$DFLOW EQU 62 ADDR OF LOW KEY (LIMITS) 00720000
$DFBYT EQU 64 NUM OF BYTES IN MXTNDX 00730000
$DFKXP EQU 65 LOG START OF INDEX OVERFLOW(CSD) 00740000
$DFSNP EQU 67 SAVE NEXT INDEX POINTER 00750000
$DFSLA EQU 69 SAVE LAST INDEX POINTER (C/S) 00760000
$DFSLP EQU 71 SAVE LAST INDEX POINTER 00770000
******* PRE-OPEN FIELDS ONLY ****************************************** 00780000
$DFNAM EQU 38 FILE NAME (8-BYTES) 00790000
******* INDEXED AND CONSECUTIVE MULTIVOLUME FIELDS ******************** 00800000
$DFSEQ EQU 72 SEQ NUMBER OF CURRENT SWA F1 00810000
$DFNXT EQU 73 SEQ NUMBER OF NEXT F1 00820000
$DFF1S EQU 74 1ST BYTE OF SAVED F1 00830000
$DFF1 EQU 137 LAST BYTE OF SAVED F1 00840000
$DFAR1 EQU 139 ARR SAVE AREA FOR EOV 00850000
$DFXR1 EQU 141 XR1 SAVE AREA FOR EOV 00860000
$DFKEY EQU 143 VOL HIKEY/LOKEY SAVE AREA ADDR 00870000
$DFTAB EQU 145 ADDR OF INDEXED MVF XTENT TABLE 00880000
$DFENT EQU 146 NUMBER OF VOL MSTNDX ENTRIES 00890000
$DFVOL EQU 147 NUM OF ON-LINE INDEXED VOLUMES 00900000
SPACE 00910000
*************** 5445 D T F O F F S E T S *************************** 00920000
$DXRMA EQU 37 WORK AREA, SPANNING REC 1ST PART 00930000
$DXRMB EQU 40 WORK AREA, SPANNING REC 2ND PART 00940000
$DXIND EQU 41 INDICATOR BITS 00950000
$DXNXR EQU 46 DISK ADDR OF CURRENT REC (CHRDD) 00960000
$DXSPC EQU 47 # OF TRACKS IN SPLIT CYL FILE 00970000
$DXIOA EQU 50 SAVE AREA FOR DISK ADDR FROM IOB 00980000
$DXDAT EQU 52 SAVE AREA FOR BUF PNTR FROM IOB 00990000
$DXEOF EQU 56 DISK ADDR OF LOG END OF FILE 01000000
$DXNXK EQU 56 DISK ADDR OF LOG END OF INDEX 01010000
$DXKPR EQU 58 INDEX BLOCK INDEX 01020000
$DXKAD EQU 60 ADDRESS OF KEY IN CORE 01030000
$DXCUR EQU 60 ADDR OF CUR KEY (ISA, ISU, ISUA) 01040000
$DXHI EQU 60 ADDRESS OF HI KEY (LIMITS) 01050000
$DXKXA EQU 62 INDEX START XTENT (CH) 01060000
$DXKBF EQU 64 INDEX IOB ADDRESS 01070000
$DXKL EQU 66 KEY LENGTH 01080000
$DXKXB EQU 69 INDEX END XTENT (CHR) 01090000
$DXKD EQU 71 DISPLACEMENT OF KEY IN RECORD 01100000
$DXLST EQU 73 ADDR OF LAST KEY(ISA, ISU, ISUA) 01110000
$DXMIX EQU 73 ADDR OF MASTER CYLINDER INDEX 01120000
$DXLOW EQU 73 ADDRESS OF LOW KEY (LIMITS) 01130000
$DXBYT EQU 75 NUMBER OF BYTES IN MXTNDX 01140000
$DXKXP EQU 77 LOG START OF INDEX OVERFLOW 01150000
$DXSNP EQU 79 SAVE NEXT INDEX POINTER 01160000
$DXSLA EQU 82 SAVE LAST INDEX POINTER (CHR) 01170000
$DXSLP EQU 84 SAVE LAST INDEX POINTER 01180000
SPACE 01190000
******** INDEXED AND CONSECUTIVE MULTIVOLUME FIELDS ******************* 01200000
$DXSEQ EQU 85 SEQ NUMBER OF CURRENT SWA F1 01210000
$DXNXT EQU 86 SEQUENCE NUMBER OF NEXT F1 01220000
$DXF1S EQU 87 FIRST BYTE OF SAVED FORMAT-1 01230000
$DXF1 EQU 150 LAST BYTE OF SAVED FORMAT-1 01240000
$DXAR1 EQU 152 ARR SAVE AREA FOR EOV 01250000
$DXXR1 EQU 154 XR1 SAVE AREA FOR EOV 01260000
$DXKEY EQU 156 VOL HIKEY/LOKEY SAVE AREA ADDR 01270000
$DXTAB EQU 158 ADDR OF INDEXED MVF XTENT TABLE 01280000
$DXENT EQU 159 NUMBER OF VOLUME MSTNDX ENTRIES 01290000
$DXVOL EQU 160 NUMBER OF ON-LINE INDEXED VOLS 01300000
MEND 01320000
01260000 UA) 01110000
e{ggggggggg{ggggggggggggg' 2aaaaaaaa
aBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaÅÅÅÅÅÅÅ
ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØl@ÅÅÅÅÅÅÅÅÅÅ
ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}}}} PANSION ***
01320000 MEND
01330000