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

		DSK:MODU.REQ[4,31]               31-Aug-79 14:21


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