.PSECT	PLTR	RW,D,GBL,REL,OVR
				;
ILun:	.WORD	0		; Plotter logical unit number.
IDev:	.WORD	0		; Plotter device type code.
				;  IDev = 0, non-plotting device
				;	  1, Tektronics 4010
				;	  2, Tektronics 4014
				;	  3, Tektronics 4662
				;	  4, Tektronics 4025
IsTerm:	.WORD	0		; Terminal number.
IMode:	.WORD	0		; Plot mode flag.  The plotter is in
				; the plot mode if non-zero.
IXMax:	.WORD	0		; Maximum X screen coordinate.
IYMax:	.WORD	0		; Maximum Y screen coordinate.
Cnvrsn:	.FLT2	0.		; Conversion factor. (Screen coordinates/
				;  True inches)
CMag:	.FLT2	0.		; Magnification factor.
CnvMag:	.FLT2	0.		; Conversion factor.  CnvMag = Cnvrsn*Cmag
				;  (Screen coordinates/Scale inches)
IX0:	.WORD	0		; Screen coordinate of the X relocatable
				;  origin.
IY0:	.WORD	0		; Screen coordinate of the Y relocatable
				;  origin.
KSetNo:	.WORD	0		; Hershey character set number.
				;  KSetNo = 0, Terminal characters.
				;           3, English sans serifs, line.
				;           4, Greek sans serif, line.
				;           5, English sans serifs, bold.
				;           6, English with serifs.
				;           7, Greek with serifs.
				;           8, English with serifs, italics.
				;	   10, Math and Special characters: $M
				;	   11, Gothic (Olde English): $G
				;	   12, Written (Script): $W
IFancy:	.WORD	0		; Special features enabled when bit set.
				;  IFancy = 1, Don't erase screen.
				;	    2, Don't reset maginification or character
				;	       size or orientation.
				;	    4, Don't reset origin.
				;	   10, Terminal not file
IBfDv3:	.WORD	0		; Number of bytes remaining in input buffer
				;  of a Tektronix 4662 (IDev=3).
CSize:	.FLT2	0.		; Character height.  (Scale inches)
DeltaH:	.FLT2	0.		; Depth of a line feed.  (Scale inches)
DeltaV:	.FLT2	0.		; Width of a space.  (Scale inches)
Upsiln:	.FLT2	0.		; Character angle.  (Degrees)
CosUp:	.FLT2	0.		; COS( Upsiln*Pi/180. )
SinUp:	.FLT2	0.		; SIN( Upsiln*Pi/180. )
WidAdj:	.FLT2	1.		; Width adjustment for ...HCS
				;
	.PSECT	PSTN	RW, D, GBL, REL, OVR
XZero:	.FLT2	0.
XScale:	.FLT2	0.
LogX:	.WORD	0
YZero:	.FLT2	0.
YScale:	.FLT2	0.
LogY:	.WORD	0
YMin:	.FLT2	0.
	.END