C--------------------------------------------------------------------
C    Common areas for SD
C	Dale E. Coy			Sept/Oct 1986 (V4.0A)
C	Los Alamos National Laboratory
C--------------------------------------------------------------------
C----------------------------------------------------------------------
C  LOCAL - LOCAL - LOCAL - LOCAL - LOCAL - LOCAL - LOCAL - LOCAL - LOCAL 
C----------------------------------------------------------------------
	Character*(*) Help_Library_Name

	Parameter (Help_Library_Name =
	1	'SYS$HELP:SD')


C----------------------------------------------------------------------
C           The following should contain the "common" names of devices:
C		those which are NOT to be translated to their physical
C		device names.  Separate them by one and only one space.

	Character*(*) SD_Trans
	Parameter (SD_Trans = 'SYS$SYSDEVICE MY$DISK DISK$COY '//
	1		'CDIV_DIR DISK$USER DISK$USER1 DISK$E11'//
	2		' OA$DISK SYS$SYSROOT DISK$USER2 DISK$USER3' )

C	Parameter (SD_Trans = ' ')  ! Use to "wire out" SD_Trans
C----------------------------------------------------------------------
C END LOCAL - END LOCAL - END LOCAL - END LOCAL - END LOCAL - END LOCAL 
C--------------------------------------------------------------------

	Logical*1 Expdev, Do_Tree, Do_Dir, Do_Stack, Do_ID, Do_DM

	Integer*2 Devlen, Dirlen, SLen, PLen, PNLen, TNLen, UNLen
	Integer*2 ChgLen, CmdLen, CDevLen, CDirLen, EnvLen
	Integer*2 WLen, RLen, TLen, Spare_Len
	Integer*2 SD_SP_Number
	Integer*2 Fields(6,2)
	Integer*2 Stack_Depth                 ! How Many SD_Slots
	Integer*2 Channel		      ! For Is_Dir	
                                             
	Integer*4 Value, FNB, FN_Len, PID, Proc_Stat, UIC
	Integer*4 SPAREI1, SPAREI2           
                       
        Character*1 CMD, Escape
        Character*2 SvTerminal, ReTerminal, CSI
	Character*2 SD_Stack_Pointer
        Character*4 Bright, Dull, Blinking, UnderLine, Revideo, Epage
        Character*4 Erase_To_Cursor, Erase_Line, Erase_To_EOL	
	Character*6 SD__n
        Character*6 Cursor_Off, Cursor_On
        Character*7 SmallScreen, LargeScreen
	Character*9 SD_SLOTn
	Character*6   Command
	Character*8   TermName
	Character*12  UserName
	Character*16  ProcName
	Character*80  Param, Rest
	Character*128 Device, Work, Current_Device
	Character*256 Directory, Change, FullName, String, SD_Tran
	Character*256 Current_Directory, Environment ! Env = Full Dev/Dir
	Character*512 Big_Rec

	Common /SD_Char/ Param, Command, String, FullName, Directory,
	1		 Change, Device, ProcName, UserName, TermName,
	2		 Rest, Work, Current_Device, Current_Directory,
	3		 Environment, Big_Rec, Cmd, SD__n, SD_SLOTn,
	4		 SD_Stack_Pointer, SD_Tran

	Common /SD_Num/ Value, FNB, FN_Len, PID, Proc_Stat, UIC,
	1		Devlen, Dirlen, SLen, PLen, CLen, PNLen,
	2		TNLen, UNLen, Fields, Stack_Depth, 
	3		CmdLen, ChgLen, CDirLen, CDevLen, EnvLen,
	4		WLen, RLen, TLen, Spare_Len, SD_SP_Number, 
	5		SPAREI1, SPAREI2

	Common /SD_Log/ Expdev, Do_Tree, Do_Dir, Do_Stack, DO_ID,
	1		Do_DM

	Common /DIR_Channel/ Channel

C---------------- TERMINAL SEQUENCES ----------------------------------
	Parameter (Escape              = Char(27) )
	Parameter (CSI                 = Escape//'[')

	Parameter (Dull                = CSI//'0m')  !Really "All Attributes Off"
	Parameter (Bright              = CSI//'1m')
	Parameter (Underline           = CSI//'4m')
	Parameter (Blinking            = CSI//'5m')
	Parameter (Revideo             = CSI//'7m')

	Parameter (SvTerminal          = Escape//'7')
	Parameter (ReTerminal          = Escape//'8')

	Parameter (SmallScreen         = CSI//'1;22r')
	Parameter (LargeScreen         = CSI//'1;24r')
	Parameter (Epage       	       = CSI//'2J')

	Parameter (Erase_To_Cursor     = CSI//'1J')
	Parameter (Erase_Line          = CSI//'2K')
	Parameter (Erase_To_EOL        = CSI//'0K')

        Parameter (Cursor_Off          = CSI//'?25l')
        Parameter (Cursor_On           = CSI//'?25h')