Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-85 - mcb/tkb36/modu.req
There are 4 other files named modu.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.

! NET:<DECNET20-V3P0.TKB-VNP>MODU.REQ.2 16-Jan-81 13:08:11, Edit by SROBINSON
!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE AN OBJECT MODULE.
!
!
! DEFINE THE MAX LENGTH OF THE NAME OF A MODULE AND OF ITS
!  VERSION NUMBER.
!

LITERAL
    LEN_MODU_NAME = 7,
    LEN_MODU_VER = 7;

!
SBLOCK (MODU, 6)				!OBJECT MODULE
HEADER (MODU)					!
ABLOCK (MODU_NAME, CH$ALLOCATION(LEN_MODU_NAME)*%BPVAL, 2) !NAME OF MODULE
ABLOCK (MODU_IDENT, CH$ALLOCATION(LEN_MODU_VER)*%BPVAL, 2) !ITS IDENTIFICATION
ABLOCK (MODU_XFR_PSECT, %BPADDR, 2)		!PSECT OF TRANSFER ADDRESS
ABLOCK (MODU_XFR_OFFSET, 17, 1)			!OFFSET IN PSECT OF TRANSFER ADDRESS
ABLOCK (MODU_FLAG_EGSD, 1, 0)			!SET TO INDICATE END OF GSD
ABLOCK (MODU_FLAG_IDENT, 1, 0)			!FLAG IDENT PRESENT
ABLOCK (MODU_SECTOR, 16, 1)			!NEXT SECTOR NUMBER TO USE
ABLOCK (MODU_FLAG_ENDED, 1, 0)			!MODULE HAS ENDED
ABLOCK (MODU_OBJ_FILE, %BPADDR, 1)		!UP POINTER TO OBJECT FILE MODULE CAME FROM
ABLOCK (MODU_PSECTS, %BPADDR, 1)		!POINTER TO PSECTS IN THIS MODULE
ABLOCK (MODU_PSECT, %BPADDR, 1)			!POINTER TO CURRENT PSECT
ABLOCK (MODU_LC, 16, 1)				!CURRENT VALUE OF LOCATION COUNTER IN THAT PSECT
ABLOCK (MODU_GLOBALS, %BPADDR, 1)		!POINTER TO GLOBALS REFERENCED IN THIS MODULE
EBLOCK (MODU)					!
!