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

!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1980,1981,1982,1986. ALL RIGHTS RESERVED.
!
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
!ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
!INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
!COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
!OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
!TRANSFERRED.
!
!THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
!AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
!CORPORATION.
!
!DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
!SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.


!
! 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)					!
!