Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/vnp36/globl.req
There are 4 other files named globl.req in the archive. Click here to see a list.
! 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_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) !
!