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

!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.

! 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)					!
!