|
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: 3810 (0xee2)
Types: s3xseg
Names: »S$EFDT«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EFDT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $EFDT * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE 'FIELD * 00070000
.* DEFINITION TABLE' (FDT) WHICH IS THE FIRST SECTION OF A * 00080000
.* DISPLAY FORMAT. * 00090000
.* * 00100000
.* INPUT OPERANDS: NONE * 00110000
.********************************************************************** 00120000
$EFDT 00130000
TEXT 00140000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00150000
* THE 'FIELD DESCRIPTER TABLE' OR 'FDT' FOR THE 'DISPLAY FORMAT * 00160000
* FACILITY'. (DFF) * 00170000
* * 00180000
* THE FOLLOWING ARE THE EQUATES FOR THE VERY FIRST FDT ENTRY * 00190000
* WHICH CONTAINS INFORMATION ABOUT THE ENTIRE PHYSICAL FORMAT. * 00200000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00210000
SPACE 2 00220000
DFFDT EQU 0 FIRST BYTE 00230000
* LNG CONTENTS 00240000
SPACE 00250000
FDTTSN EQU DFFDT NUMBER OF SECTORS TEXT STREAM 00260000
* 1 OCCUPIES ON DISK. 00270000
SPACE 00280000
FDTTSL EQU FDTTSN+2 NUMBER OF BYTES OF HOLD AREA 00290000
* 2 REQUIRED TO PUT ENTIRE FORMAT. 00300000
SPACE 00310000
FDTTSI EQU FDTTSL+2 NUMBER OF BYTES OF HOLD AREA 00320000
* 2 REQUIRED IF ALL FIELDS RECEIVED 00330000
* ON INPUT OPERATION. 00340000
SPACE 00350000
FDTM# EQU FDTTSI+1 MODEL NUMBER OF FORMAT 00360000
* 1 00370000
FDTM#2 EQU BIT6 MODEL II 00380000
FDTM#1 EQU BIT7 MODEL I 00390000
FDTNDT EQU BIT5 EXECUTION DATAZ 00400000
SPACE 00410000
FDTNS EQU FDTM#+1 NUMBER OF SECTORS OF FDT 00420000
* 1 00430000
SPACE 00440000
FDTWRK EQU FDTNS+2 WORK/CALC AREA 00450000
* 2 00460000
SPACE 00470000
FDTWK2 EQU FDTWRK+1 EXTRA WORK AREA 00480000
* 1 00490000
SPACE 00500000
FDTCFG EQU FDTWK2+1 FLAG BYTE 00510000
* 1 00520000
FDT11 EQU BIT0 1-THIS FORMAT HAS FIELD DEFINED 00530000
* IN ROW 1, COLUMN 1. 00540000
FDTPRT EQU BIT4 FORMAT GENERATED BY PFGR 00545000
SPACE 2 00550000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00560000
* * 00570000
* EQUATES FOR 'FIELD DEFINITION TABLE' (FDT) * 00580000
* * 00590000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00600000
SPACE 2 00610000
FDTNAM EQU DFFDT+5 NAME OF THIS FIELD LEFT ADJUSTED 00620000
* 6 00630000
SPACE 00640000
FDTFLG EQU FDTNAM+1 FLAG BYTE 00650000
* 1 00660000
FDTIF EQU BIT0 1-INPUT FIELD 00670000
FDTOF EQU BIT1 1-OUTPUT FIELD 00680000
FDTOIF EQU BIT2 1-OUTPUT/INPUT FIELD 00690000
FDTDSF EQU BIT3 SELTOR PEN DETECTABLE/ATTENTION 00700000
* FIELD 00710000
FDTANF EQU BIT4 1-NUMERIC FIELD 00720000
* O-ALPHA FIELD 00730000
FDTSBF EQU BIT5 1-SOURCE FOR OUTPUT FROM BUFFER 00740000
* O-SOURCE FOR OUTPUT FROM MAP 00750000
SPACE 00760000
SPACE 00770000
FDTLNG EQU FDTFLG+1 LENGTH OF FIELD 00780000
* 1 00790000
SPACE 00800000
FDTAT@ EQU FDTLNG+2 3270 BUFFER @ OF FIELD DEFING 00810000
* 2 ATTRIBUTE FOR THIS FIELD. 00820000
SPACE 00830000
FDTDT@ EQU FDTAT@+2 3270 BUFFER @ OF FIRST DATA 00840000
* 2 POSITION FOR THIS FIELD. 00850000
* (IF DETECTABLE, OF THE 00860000
* DESIGNATER CHARACTER). 00870000
SPACE 00880000
FDTDTD EQU FDTDT@+2 DISPLACEMENT IN TEXT STREAM TO 00890000
* 2 FIRST DATA BYTE OF NON-INPUT 00900000
* TYPE FIELD. 00910000
SPACE 00920000
FDTL EQU FDTDTD-DFFDT+1 LENGTH OF FDT ENTRY. 00930000
FDTSED EQU X'FE' INDICATOR OF END OF SECTOR 00940000
FDTEND EQU X'FF' INDICATOR OF END OF FDT ENTRIES 00950000
FDTSNX EQU 4 DISP TO NEXT SECTOR FROM LAST EN 00960000
SPACE 2 00970000
FDTEX EQU DFFDT-FDTCFG EXTRA SPACE FOR FIRST ENTRY 00980000
EJECT 00990000
MEND 01000000