|
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: 3302 (0xce6)
Types: s3xseg
Names: »S$ECDE«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ECDE«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ECDE * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR CONTENTS DIRECTORY ENTRY * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . NONE * 00150000
.* * 00160000
.********************************************************************** 00170000
$ECDE 00180000
.* 00190000
TEXT 00200000
.* 00210000
*********************************************************************** 00220000
* C O N T E N T S D I R E C T O R Y E N T R Y O F F S E T S * 00230000
*********************************************************************** 00240000
SPACE 2 00250000
CDECCP EQU 0 HI-ORDER OFFSET 00260000
SPACE 2 00270000
*----------- PROGRAM NAME --------------------------------------------* 00280000
SPACE 1 00290000
CDENAM EQU CDECCP-1+6 O. MODULE PROGRAM NAME 00300000
CDECS EQU CDENAM+2 C/S OF USER PROGRAM 00310000
CDE#S EQU CDECS+1 NO. TEXT SECTORS OF PROGRAM 00320000
CDELNK EQU CDE#S+2 PROGRAM LINK EDIT ADDRESS 00330000
CDERLD EQU CDELNK+1 DISPLACEMENT OF 1ST SECTOR RLD'S 00340000
CDEENT EQU CDERLD+2 PROGRAM ENTRY POINT ADDRESS 00350000
CDELOD EQU CDEENT+2 PROGRAM LOAD ADDRESS 00360000
SPACE 2 00370000
*----------- OTHER PROGRAM ATTRIBUTES --------------------------------* 00380000
SPACE 1 00390000
CDELNG EQU CDELOD+1 PGM LENGTH--NO. 256-BYTE BLOCKS 00400000
CDESIZ EQU CDELNG-1+2 PGM LENGTH--NO. BYTES 00410000
SPACE 1 00420000
CDEATR EQU CDESIZ+1 PGM ATTRIBUTE BYTE 00430000
SPACE 1 00440000
CDEDAT EQU BIT0 1--INPUT DATA ALLOWED ON PGM REQ 00450000
* 0--INPUT DATA PROHIBITED ON PGMRQ00460000
CDECOR EQU BIT1 MAIN STORAGE MANAGEMENT BIT 00470000
* 0--NO CORE DESCRIBED BY THIS CDE 00480000
* 1--CORE @ BY CDELOD IS ALLOCATED 00490000
CDEDPL EQU BIT2 * PGM REQUIRES DEDICATED PGM LVL 00500000
CDEMTS EQU BIT3 * PGM SUPPORTS MULTIPLE 00510000
* * REQUESTING TERMINALS 00520000
CDENEP EQU BIT4 * PGM IS NEVER-ENDING 00530000
CDESER EQU BIT5 * PGM IS SERIALLY REUSABLE 00540000
CDETCB EQU BIT6 1-CDE BELONGS TO A TCB 00550000
* 0--CDE IS AVAILABLE TO ALLOCATE 00560000
SPACE 1 00570000
*---------------------------------------------------------------------* 00580000
SPACE 1 00590000
CDEAT2 EQU CDEATR+1 SECOND CDE ATTRIBUTE BYTE 00600000
SPACE 1 00610000
CDESDB EQU BIT1 SHARED I/O USAGE BIT 00620000
* 1--SHARED I/O IN USE 00630000
* 0--NOT IN USE 00640000
CDEPAK EQU BIT2 PROGRAM LOCATION (PACK) 00650000
* 1--DSM SYSTEM PACK 00660000
* 0--PACK FROM WHICH THE CCP WAS 00670000
* LOADED 00680000
CDEEMG EQU BIT3 WHETHER ENDMSG TO BE ISSUED 00690000
* 1--ISSUE ENDMSG 00700000
* 0--NO ENDMSG 00710000
CDECOM EQU BIT4 1-PROGRAM REQUIRES COMMON AREA 00715000
SPACE 1 00720000
CDEFDT EQU CDEAT2+1 # OF 256 BYTE BLOCKS IN LONGEST 00730000
* DFF FILE DESCRIPTOR TABLE 00740000
CDEDFF EQU CDEFDT+1 DISPLAY FORMATTING WORK AREA 00750000
* SIZE IN # OF 256 BYTE BLOCKS 00760000
* IS ZERO IF DFF NOT USED 00770000
SPACE 2 00780000
*----------- PROGRAM USE TABLE OFFSET --------------------------------* 00790000
SPACE 1 00800000
CDESTA EQU CDEDFF+2 OFFSET TO PGM USE TABLE ENTRY 00810000
SPACE 2 00820000
CDEEND EQU CDESTA+1 END/LENGTH OF CD ENTRY 00830000
SPACE 1 00840000
MEND 00850000