h29817
s 00118/00000/00000
d D 1.1 83/03/23 16:21:19 bog 1 0
c date and time created 83/03/23 16:21:19 by bog
e
u
4
U
t
T
I 1
`############################################################################
#									    #
#	This material is confidential and is furnished under		    #
#	a written license agreement.  It may not be used,		    #
#	copied or disclosed to others except in accordance		    #
#	with the terms of that agreement.				    #
#									    #
#	Copyright (C) 1982 Graphic Software Systems, Inc.		    #
#	All rights reserved.						    #
#									    #
#	Function:  							    #
#		EmXIni							    #
#		    Emulator Initialization Common Definition		    #
#									    #
#	Called By:							    #
#		included in most Emulator modules			    #
#									    #
#	Routines Called:						    #
#									    #
#############################################################################
',`dnl
CommonOrg
# Last opened device
CommonIVar(`MOpnDev')		INTEGER OpnDev
 
# Current (or new) graphics output device
CommonIVar(`MCurDev')		INTEGER CurDev
 
# Driver graphics capability
CommonIVar(`MDevCap',57)	INTEGER DevCap(57)
 
 # Last addressable raster in X
 INTEGER DWidth
 
 # Last addressable raster in Y
 INTEGER DHight
 
 # Width of a pixel
 INTEGER DPixW
 
 # Height of a pixel
 INTEGER DPixH
 
 # Number of device character heights; 0 means continuous
 INTEGER DChSzs
 
 # Number of marker types
 INTEGER DMkTps
 
 # Number of marker sizes
 INTEGER DMkSzs
 
 # Number of predefined colors
 INTEGER DPCols
 
 # Color capability flag; 0: no, 1: yes
 INTEGER DColCp
 
 # Number of available colors
 INTEGER DACols
 
 # Number of locator devices available (for Gin)
 INTEGER DLocDs
 
 # Number of string devices available (i. e. keyboards)
 INTEGER DStrDs
 
 # Workstation type; 0: out only, 1: in only, 2: i/o,
 #                   3: seg store, 4: meta out
 INTEGER DevTyp
 
 # Minimum char height (NDC)
 INTEGER DChMin
 
 # Maximum char height (NDC)
 INTEGER DChMax
 
 # Minimum marker height
 INTEGER DMkMin
 
 # Maximum marker height
 INTEGER DMkMax
 
# Character cell width & height for the 4 sizes
CommonIVar(`MXCell',4)		INTEGER XCell(4)
CommonIVar(`MYCell',4)		INTEGER YCell(4)
 
# Character body height for the 4 sizes
CommonIVar(`MYChH',4)		INTEGER YChH(4)
 
CommonIArray(`IInit')
',`
Common /DevCap/ IInit
',`
Equivalence	(OpnDev,	IInit(MOpnDev))
Equivalence	(CurDev,	IInit(MCurDev))
Equivalence	(DevCap(1),	IInit(MDevCap))
Equivalence	(DWidth,	DevCap(1))
Equivalence	(DHight,	DevCap(2))
Equivalence	(DPixW,		DevCap(4))
Equivalence	(DPixH,		DevCap(5))
Equivalence	(DChSzs,	DevCap(6))
Equivalence	(DMkTps,	DevCap(9))
Equivalence	(DMkSzs,	DevCap(10))
Equivalence	(DPCols,	DevCap(14))
Equivalence	(DColCp,	DevCap(36))
Equivalence	(DACols,	DevCap(40))
Equivalence	(DLocDs,	DevCap(41))
Equivalence	(DStrDs,	DevCap(44))
Equivalence	(DevTyp,	DevCap(45))
Equivalence	(DChMin,	DevCap(47))
Equivalence	(DChMax,	DevCap(49))
Equivalence	(DMkMin,	DevCap(55))
Equivalence	(DMkMax,	DevCap(57))
Equivalence	(XCell(1),	IInit(MXCell))
Equivalence	(YCell(1),	IInit(MYCell))
Equivalence	(YChH(1),	IInit(MYChH))
'dnl
E 1
