C+
C NAME:
C	dir_alp
C PURPOSE:
C	DEC-ALPHA
C INCLUDE:
	include		'dirspec_os.h'
C PROCEDURE:
C-
	character	cOpSys*3
	parameter	(cOpSys		= OS__ALPHA)

	character	cSingle*1	/'%'/
	character	cWildChar*20	/'%%%%%%%%%%%%%%%%%%%%'/

	character	cOpSubdir*5
	parameter	(cOpSubdir	= 'alpha')

	parameter	(iDirExt	= 4)
	character	cDirExt*(iDirExt) /'.DIR'/

	parameter	(iNode		= 2)
	character	cNode*(iNode)	/'::'/		! Node delimiter

	parameter	(iDevi		= 1)
	character	cDevi*(iDevi)	/':'/		! Device delimiter

	parameter	(iVersion	= 1)
	character	cVersion*(iVersion) /';'/	! Version number

	parameter	(iLead		= 1)		! Dir leading char
	character	cLead*(iLead)	/'['/

	parameter	(iDivide	= 1)
	character	cDivide*(iDivide) /'.'/		! Subdir separator

	parameter	(iTrail		= 1)		! Dir trailing char
	character	cTrail*(iTrail)	/']'/

	parameter	(iRoot		= 6)		! Root directory
	character	cRoot*(iRoot)	/'000000'/
	logical		bNoRoot		/.TRUE./

	parameter	(iHome		= 9)
	character	cHome*(iHome)	/'SYS$LOGIN'/

	parameter	(iTemp		= 11)
	character	cTemp*(iTemp)	/'SYS$SCRATCH'/

	parameter	(iParent	= 1)
	character	cParent*(iParent) /'-'/

	parameter	(iDefault	= 0)
	character	cDefault	/' '/

	parameter	(iSubDir 	= 1)
	character	cSubDir*(iSubDir)/'.'/

C-------
C Added for the benefit of CASSX1 (using cDefault(:iDefault) causes a 
C compilation error.

	parameter	(iFullDefault	= iLead+iDefault+iTrail)
	character	cFullDefault*(iFullDefault)	/'[]'/

	parameter	(iFullParent= iLead+iParent+iTrail)
	character	cFullParent*(iFullParent)	/'[-]'/

	parameter	(iFullRoot	= iLead+iRoot+iTrail)
	character	cFullRoot*(iFullRoot)		/'[000000]'/

	parameter	(iRootDivide	= iRoot+iDivide)
	character	cRootDivide*(iRootDivide)	/'000000.'/

	parameter	(iLeadRootDivide= iLead+iRoot+iDivide)
	character	cLeadRootDivide*(iLeadRootDivide) /'[000000.'/

	parameter	(iNoWhere	= 2)
	character	cNoWhere*(iNoWhere)		/'@@'/

	parameter	(iEnvi	= 1)
	character	cEnvi*(iEnvi)			/'$'/

	parameter	(iSwitch = 1)
	character	cSwitch*(iSwitch)		/'/'/

	logical		 bOS__NotCaseSensitive
	parameter	(bOS__NotCaseSensitive = .TRUE.)