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 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_REFERS, %BPADDR, 1)                 !CHAIN TO REFERING MODULES
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)					!
!