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

!
!   FOB data structure
!
! The following is a description of the block used as a parameter
! passing area to the two file open routines in GLXFIL.
!
!	!=======================================================!
!	!      ADDRESS OF FD TO USE FOR FILE SPECIFICATION      !
!	!-------------------------------------------------------!
!	!				      !LSN!NFO!BYTE SIZE!
!	!-------------------------------------------------------!
!	!       FIRST HALF OF USER ID FOR "IN BEHALF OF"        !
!	!-------------------------------------------------------!
!	!          CONNECTED  DIRECTORY (TOPS-20 ONLY)          !
!	!=======================================================!

FIELD
    FOB_FIELDS =
	SET
	FOB_FD		= [0,0,36,0],	! Address of FD for this OPEN
	FOB_CW		= [1,0,36,0],	! Control Word
	FOB_BSZ		= [1,0,6,0],	! Byte Size
	FOB_NFO		= [1,6,1,0],	! New File Only
	FOB_LSN		= [1,7,1,0],	! Line sequence numbers appear
	FOB_US		= [2,0,36,0],	! User ID
	FOB_CD		= [3,0,36,0]	! Connected directory
	TES ;


LITERAL
    FOB_SZ	= 4 ;			! Length of FOB

MACRO
    FOB$$	= BLOCK[FOB_SZ] FIELD(FOB_FIELDS) % ;