!*** MODULE $FSCNDEF ***
CDEC$ OPTIONS /NOALIGN
! ++
! 
!         Descriptor codes for SYS$FILESCAN
! 
! 
	PARAMETER FSCN$M_NODE = '00000001'X
	PARAMETER FSCN$M_DEVICE = '00000002'X
	PARAMETER FSCN$M_ROOT = '00000004'X
	PARAMETER FSCN$M_DIRECTORY = '00000008'X
	PARAMETER FSCN$M_NAME = '00000010'X
	PARAMETER FSCN$M_TYPE = '00000020'X
	PARAMETER FSCN$M_VERSION = '00000040'X
	PARAMETER FSCN$M_NODE_PRIMARY = '00000080'X
	PARAMETER FSCN$M_NODE_ACS = '00000100'X
	PARAMETER FSCN$M_NODE_SECONDARY = '00000200'X
	STRUCTURE /FLDFLAGS/
	    PARAMETER FSCN$S_NODE = 1
	    PARAMETER FSCN$V_NODE = 0		!  Node name present
	    PARAMETER FSCN$S_DEVICE = 1
	    PARAMETER FSCN$V_DEVICE = 1		!  Device name present
	    PARAMETER FSCN$S_ROOT = 1
	    PARAMETER FSCN$V_ROOT = 2		!  Root directory present
	    PARAMETER FSCN$S_DIRECTORY = 1
	    PARAMETER FSCN$V_DIRECTORY = 3		!  Directory present
	    PARAMETER FSCN$S_NAME = 1
	    PARAMETER FSCN$V_NAME = 4		!  File name present
	    PARAMETER FSCN$S_TYPE = 1
	    PARAMETER FSCN$V_TYPE = 5		!  File type present
	    PARAMETER FSCN$S_VERSION = 1
	    PARAMETER FSCN$V_VERSION = 6		!  File version present
	    PARAMETER FSCN$S_NODE_PRIMARY = 1
	    PARAMETER FSCN$V_NODE_PRIMARY = 7
	    PARAMETER FSCN$S_NODE_ACS = 1
	    PARAMETER FSCN$V_NODE_ACS = 8
	    PARAMETER FSCN$S_NODE_SECONDARY = 1
	    PARAMETER FSCN$V_NODE_SECONDARY = 9
	BYTE %FILL (2)
	END STRUCTURE	! FLDFLAGS
	PARAMETER FSCN$_FILESPEC = '00000001'X	!  complete filespec
	PARAMETER FSCN$_NODE = '00000002'X	!  node:: field
	PARAMETER FSCN$_DEVICE = '00000003'X	!  device: field
	PARAMETER FSCN$_ROOT = '00000004'X	!  [root.] field
	PARAMETER FSCN$_DIRECTORY = '00000005'X	!  [directory] field
	PARAMETER FSCN$_NAME = '00000006'X	!  name field
	PARAMETER FSCN$_TYPE = '00000007'X	!  .typ field
	PARAMETER FSCN$_VERSION = '00000008'X	!  ;version field
	PARAMETER FSCN$_node_primary = '00000009'X
	PARAMETER FSCN$_node_acs = '0000000A'X
	PARAMETER FSCN$_node_secondary = '0000000B'X
	PARAMETER FSCN$S_ITEM_LEN = '00000008'X
	STRUCTURE /FSCNDEF/
	    INTEGER*2 FSCN$W_LENGTH			!  return length word
	    INTEGER*2 FSCN$W_ITEM_CODE		!  item code value
	    INTEGER*4 FSCN$L_ADDR			!  component address
	END STRUCTURE	! FSCNDEF
CDEC$ END OPTIONS