Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

		DSK:PSECT.REQ[4,31]              31-Aug-79 14:24


!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE A PROGRAM SECTION
!
!
! DEFINE THE MAX LENGTH OF THE NAME OF A PSECT
!

LITERAL
    LEN_PSECT_NAME = 7;

!
! DEFINE THE NAMES AND POSITIONS OF THE PSECT FLAGS
!

LITERAL
    PSECT_FLG_HI = 0,				!HIGH SPEED MEMORY
    PSECT_FLG_LIB = 1,				!LIBRARY PSECT
    PSECT_FLG_OVR = 2,				!OVERLAY (NOT CONCATENATION) PSECT
    PSECT_FLG_3 = 3,				!NOT USED
    PSECT_FLG_RO = 4,				!READ ONLY
    PSECT_FLG_REL = 5,				!RELOCATABLE
    PSECT_FLG_GBL = 6,				!GLOBAL
    PSECT_FLG_DATA = 7;				!DATA (NOT INSTRUCTION) PSECT

!
!
SBLOCK (PSECT, 7)				!PSECT
HEADER (PSECT)					!
ABLOCK (PSECT_NAME, CH$ALLOCATION(LEN_PSECT_NAME)*%BPVAL, 2)	!PSECT NAME
ABLOCK (PSECT_FLAGS, 8, 2)			!PSECT FLAGS
ABLOCK (PSECT_SECTOR, 8, 0)			!SECTOR NUMBER IN CURRENT MODULE
ABLOCK (PSECT_SIZE, 18, 1)			!LENGTH OF THE PSECT
ABLOCK (PSECT_BASE, 18, 1)			!BASE ADDRESS OF THE PSECT
ABLOCK (PSECT_OFFSET, 18, 1)			!CURRENT MODULE'S PSECT OFFSET
ABLOCK (PSECT_LLA, 18, 1)			!LAST LOAD ADDRESS
ABLOCK (PSECT_RLD, %BPADDR, 1)			!CHAIN TO RELOCATION POLISH
ABLOCK (PSECT_GLOBALS, %BPADDR, 1)		!CHAIN TO REFERENCED GLOBALS
ABLOCK (PSECT_TEXT, %BPADDR, 1)			!POINTER TO TEXTH
ABLOCK (PSECT_NEXT, %BPADDR, 1)			!LINK TO NEXT PSECT
ABLOCK (PSECT_PREV, %BPADDR, 1)			!LINK TO PREVIOUS PSECT
EBLOCK (PSECT)					!
!