C------------------------------------------------------------------C
C  SD_SMG.DAT
C	Definitions for SD_SMG
C
C	Dale E. Coy			Sept/Oct 1986  (V4.0A)
C	Los Alamos National Laboratory
C------------------------------------------------------------------C
	Include '($SMGDEF)'
	Include '($DVIDEF)'

	Integer  Max_VMS_Dir_Depth
        Parameter (Max_VMS_Dir_Depth = 8)

	Logical Have_Display(Max_VMS_Dir_Depth) 
	Logical Have_Big_Display(Max_VMS_Dir_Depth) 

	Logical*1 SD_Highlight, SD_VT300, SD_Star_Wide 
	Logical*1 SD_Spare_Logical

	Integer*2 Name_Length(Max_VMS_Dir_Depth)
	Integer*2 Shift_Point

	Integer*4 Current_Display_Length, Last_Line, Current_Level
	Integer*4 B_Width(Max_VMS_Dir_Depth) 
	Integer*4 Top_File(Max_VMS_Dir_Depth)
	Integer*4 Bottom_File(Max_VMS_Dir_Depth)
	Integer*4 Current_File(Max_VMS_Dir_Depth) 
	Integer*4 Max_Top, Max_Left, Highest_Level
	Integer*4 Top_Line, Left_Col, Dis_Line, Dis_Col
	Integer*4 Entry_Control_Mode, Current_Control_Mode

	Integer*4 Pasteboard_ID, Keyboard_ID, Key_Table_ID,
	1	Main_Display,
	2	Top_Display, 
	3	Bottom_Display,
	4	Normal_Display,
	5	Level_Display(Max_VMS_Dir_Depth),
	6	Big_Display(Max_VMS_Dir_Depth)


	Common /SD_SMG_Stuff/Pasteboard_ID, Keyboard_ID, Key_Table_ID,
	1	Main_Display,
	2	Top_Display, 
	3	Bottom_Display,
	4	Normal_Display,
	5	Level_Display, Big_Display,
	6	Have_Display, Have_Big_Display, Name_Length,
	7	Current_Display_Length, Last_Line, Current_Level,
	8	B_Width, Top_File, Bottom_File, Current_File, 
	9	Max_Top, Max_Left, Highest_Level,
	1	Top_Line, Left_Col, Dis_Line, Dis_Col, Shift_Point,
	2	Entry_Control_Mode, Current_Control_Mode,
	3	SD_Highlight, SD_VT300, SD_Star_Wide, SD_Spare_Logical


	Character*40 DirName(Max_VMS_Dir_Depth)

	Common /SD_Charstuff/DirName

C----------------- MASKS FOR SMG$ COMMANDS ---------------------
	Integer*4 RU_Mask, BB_Mask, BR_Mask, BRB_Mask, RRB_Mask
	Integer*4 BT_Mask, BRU_Mask

	Parameter (RU_Mask  = SMG$M_Reverse .OR. SMG$M_Underline)
	Parameter (BB_Mask  = SMG$M_Bold    .OR. SMG$M_Blink    )
	Parameter (BR_Mask  = SMG$M_Bold    .OR. SMG$M_Reverse  )
	Parameter (BRU_Mask = BR_Mask       .OR. SMG$M_Underline)
	Parameter (BRB_Mask = BR_Mask       .OR. SMG$M_Blink    )
	Parameter (RRB_Mask = SMG$M_Reverse .OR. SMG$M_Blink    )

	Parameter (BT_Mask = SMG$M_Border   .OR. SMG$M_Trunc_Icon)