|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$ESD@«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ESD@«
MACRO 00010000
$ESD@ 00020000
TEXT 00030000
*********************************************************************** 00040000
* EXTERNAL POINTER LIST * 00050000
*********************************************************************** 00060000
EP@SDF EQU 1 ADDR OF FIRST SDF ENTRY 00070000
EP@DFF EQU EP@SDF+2 ADDR OF FIRST DFF ENTRY 00080000
EP@DFE EQU EP@DFF+2 END OF EXTERNAL POINTER LIST 00090000
EP@QCS EQU EP@DFE+2 ADDR OF FIRST LIBRARY ADDR ENTRY 00095000
EP@LOG EQU X'7000' LOGICAL START ADDRESS 00100000
* 00110000
EP@LNG EQU EP@QCS+1 LENGTH OF E.P.L. HEADER 00120000
SPACE 1 00130000
*********************************************************************** 00140000
* SHARE DTF ADDRESS/NAME LIST * 00150000
*********************************************************************** 00160000
DF@ADR EQU 1 ADDR OF SHARE DTF 00170000
DF@SEG EQU DF@ADR+1 SEGMENT SHARE DTF IS IN 00180000
DF@NAM EQU DF@SEG+8 FILE NAME 00190000
DF@SWA EQU DF@NAM+1 SWA COUNT 00200000
* 00210000
DF@LNG EQU DF@SWA+1 LENGTH OF DTF ADDR/NAME LIST 00220000
SPACE 1 00221000
*********************************************************************** 00222000
* OBJECT LIBRARY ADDRESS LIST * 00223000
*********************************************************************** 00224000
QCSQCD EQU 0 Q-CODE 00225000
QCSCS@ EQU QCSQCD+2 C/S ADDRESS OF LIBRARY 00226000
* 00227000
QCSLNG EQU QCSCS@+1 LENGTH OF TABLE ENTRY 00228000
SPACE 1 00230000
*********************************************************************** 00240000
* DFF IN CORE INDEX * 00250000
*********************************************************************** 00260000
INXNAM EQU 3 NAME OF DFF LESS $Z 00270000
INXCS@ EQU INXNAM+2 C/S ADDRESS OF FORMAT 00280000
* 00290000
INXLNG EQU INXCS@+1 LENGTH OF DFF ENTRY 00300000
MEND 00310000