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)'

	Logical Have_Display(8), Have_Big_Display(8)

	Integer*2 Name_Length(8)

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

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

       Common /SD_SMG_Stuff/Pasteboard_ID, Keyboard_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


	  Character*40 DirName(8)

	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

        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 (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)