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

!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     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)					!
!