Trailing-Edge
-
PDP-10 Archives
-
BB-X117B-SB_1986
-
10,7/tkb36/globl.req
There are 4 other files named globl.req in the archive. Click here to see a list.
!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 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) !
!