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

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


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