|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$EOCL«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EOCL«
MACRO 00010000
$EOCL 00020000
TEXT 00030000
* 00040000
* OCL FILE TABLE EQUATES 00050000
* 00060000
OCTABS EQU 0 00070000
OCNAME EQU OCTABS+7 FILE NAME 00080000
OCSWA EQU OCNAME+1 SWA COUNT FIELD 00090000
OCLABL EQU OCSWA+8 FILE NAME LABLE 00100000
OCUNIT EQU OCLABL+1 FILE UNIT 00110000
OCDATE EQU OCUNIT+6 FILE CREATION DATE 00120000
OCSEQN EQU OCDATE+1 MULTIVOLUME EXTENTS 00121000
OCTATT EQU OCSEQN+1 MVF FLAGS 00122000
* BIT0 = FILE CREATED AS MVF 00123000
* BIT1 = MVF OCL 00124000
OCDTF@ EQU OCTATT+3 ADDRESS OF DTF 00130000
OCDTF# EQU OCDTF@+1 RELATIVE DTF NUMBER 00140000
OCTMCL EQU OCDTF#+1 FCTMCL' 00150000
OCTAT1 EQU OCTMCL+1 FCTAT1 ' 00160000
OCTAT2 EQU OCTAT1+1 FCTAT2 ' 00170000
OCTRCL EQU OCTAT2+2 FCTRCL > FROM FILE CONTROL 00180000
OCTKYL EQU OCTRCL+1 FCTKYL ' TABLE 00190000
OCTKYD EQU OCTKYL+2 FCTKYD ' 00200000
OCFCT# EQU OCTKYD+1 RELATIVE FCT NUMBER 00210000
OCTFLG EQU OCFCT#+1 FLAG 0= DTF PROCESSED ALLREADY 00220000
* 1= DTF ADDRESS ASSIGNED 00230000
* 2= RESERVED 00240000
* 3= RESERVED 00250000
* 4= RESERVED 00260000
* 5= RESERVED 00270000
* 6= RESERVED 00280000
* 7= DO NOT OPEN THE DTF 00290000
OCLENT EQU OCTFLG+1 ENTRY LENGTH 00300000
MEND 00310000