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

		DSK:GLOBL.REQ[4,31]              31-Aug-79 14:17


!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE A GLOBAL SYMBOL
!
!
! DEFINE THE MAX LENGTH OF THE NAME OF THE GLOBAL
!

LITERAL
    LEN_GBL_NAME = 7;

!
! DEFINE THE NAMES AND POSITIONS OF THE FLAGS
!

LITERAL
    GBL_FLG_WEAK = 0,				!WEAK
    GBL_FLG_1 = 1,				!NOT USED
    GBL_FLG_LIB = 2,				!LIBRARY
    GBL_FLG_DEF = 3,				!DEFINITION
    GBL_FLG_4 = 4,				!NOT USED
    GBL_FLG_REL = 5;				!RELOCATABLE

!
SBLOCK (GLOBL, 5)				!GLOBAL
HEADER (GLOBL)					!
ABLOCK (GBL_NAME, CH$ALLOCATION(LEN_GBL_NAME)*%BPVAL, 2) !NAME OF THE GLOBAL (ASCIZ)
ABLOCK (GBL_IN_EPT, 1, 2)			!SET IF DEFINED IN THIS LIBRARY
ABLOCK (GBL_FLAGS, 8, 0)			!VARIOUS FLAGS
ABLOCK (GBL_VALUE, 16, 0)			!VALUE OF GLOBAL
ABLOCK (GBL_PSECTS, %BPADDR, 1)			!CHAIN TO PSECTS REFERENCING
ABLOCK (GBL_DEF_MODU, %BPADDR, 1)		!MODULE DEFINED IN
ABLOCK (GBL_DEF_PSECT, %BPADDR, 1)		!PSECT DEFINED IN, IF RELATIVE
ABLOCK (GBL_DEF_OFFSET, 18, 1)			!THAT PSECT'S OFFSET AT THE TIME OF DEFINITION
ABLOCK (GBL_NEXT, %BPADDR, 1)			!NEXT GLOBAL IN ALPHA ORDER
ABLOCK (GBL_PREV, %BPADDR, 1)			!PREV GLOBAL IN ALPHA ORDER
ABLOCK (GBL_EPT_POS, %BPVAL, 2)			!LIBRARY LOCATION FOR DEFINING MODULE
EBLOCK (GLOBL)					!
!