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.


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