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

		DSK:FILE.REQ[4,31]               31-Aug-79 14:15


!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE A FILE.
!  THIS IS USED IN THE TASK BUILDER FOR INDIRECT FILES
!  AND OBJECT FILES.  IT IS USED IN THE CORE IMAGE BUILDER
!  TO POINT TO A TASK FILE AND ITS SYMBOL TABLE.
!
!
! DEFINE THE MAX LENGTH OF THE FILE STRING.
!

LITERAL
    LEN_FILE_STRING = 40;			! = TOPS-20 MAX

!
SBLOCK (FILE, 3)				!INDIRECT OR OBJECT FILE
HEADER (FILE)					!
ABLOCK (FILE_FLAG_OUT, 1, 2)			!FILE SPEC LEFT OF =
ABLOCK (FILE_FLAG_IN, 1, 0)			!FILE SPEC RIGHT OF =
ABLOCK (FILE_FLAG_IND, 1, 0)			!FILE SPEC FOLLOWS @
ABLOCK (FILE_FLAG_FAKE, 1, 0)			!THIS IS THE TOP FILE
ABLOCK (FILE_NAME, CH$ALLOCATION(LEN_FILE_STRING)*%BPVAL, 2) !ASCII NAME (ASCIZ)
ABLOCK (FILE_NEXT, %BPADDR, 2)			!NEXT OBJECT FILE POINTER
ABLOCK (FILE_PREV, %BPADDR, 1)			!PREVIOUS OBJECT FILE POINTER
ABLOCK (FILE_HIGH, %BPADDR, 1)			!HIGHER FILE, OR ROOT BLOCK
ABLOCK (FILE_DOWN, %BPADDR, 1)			!LOWER FILE OR MODULE, VIA CHAIN
ABLOCK (FILE_MODU, %BPADDR, 1)			!CURRENT MODULE POINTER
						! (ONLY ONE IN VNP20)
ABLOCK (FILE_CORE, %BPADDR, 1)			!POINTER TO TASK OR CORE IMAGE
ABLOCK (FILE_CORE_LEN, %BPVAL, 2)		!LENGTH OF THE IMAGE
ABLOCK (FILE_HWM, %BPVAL, 2)			!AMOUNT OF SPACE USED IN FILE
						! (VNP KERNEL ONLY)
ABLOCK (FILE_LABEL, %BPADDR, 1)			!POINTER TO LABEL BLOCK IMAGE
ABLOCK (FILE_SWITCHES, %BPADDR, 1)		!CHAIN TO SWITCHES
EBLOCK (FILE)					!
!