.TITLE	PLOTER
	.IDENT	/DUMB/
	.MCALL	QIOW$C,QIOW$S,QIO$C,QIOW$,DIR$
	.NLIST	TTM
	.LIST	MEB
;
;	THIS IS A SET OF PLOTTING ROUTINES FOR THE DUMB TERMINAL WITH
;	RETROGRAPHICS. IT USES STANDARD PLOT 10 ESC SEQUENCES.
;
	.psect	$VARS,RW,D,CON,LCL
GTSBUF:	.BYTE	TC.TTP		; GET TERMINAL TYPE (HOPEFULLY VT05B)
TTYPE:	.BYTE	0
PLOTEN:	.WORD	0
;
;	DATA TABLES
;
EWBUF:	.BYTE	17,34,33,14	; LOCK KB:,PT MODE,2*CLEAR+HOME,
	.BYTE	37,30		; GO TO ADM MODE,UNLOCK KB:
	.BYTE	33,5		; REQUEST REPLY WHEN DONE
ADM:	.BYTE	37,30		; GO TO ADM MODE,UNLOCK KB:
PCNT:	.BLKW	1		; CONTAINS PARAMETER COUNT
XHI:	.BYTE	0
XLO:	.BYTE	0
YHI:	.BYTE	0
YLO:	.BYTE	0
CNT:	.WORD	0		; NUMBER OF VECTORS (POINTS TO CONVERT)
PLTYPE:	.WORD	0		; CURRENT TYPE OF PLOT
BUFF:	.BLKW	40.		; DATA BUFFER FOR OUTPUT
	.psect
;
;	CALL ERASE	(THIS ERASES THE SCREEN + HOMES CURSOR)
;
;ERASE::	CALL	SCOPE		; Is it graphics scope
;	BCS	RETN		; No
	QIOW$C	IO.RPR!TF.RNE,5,1,,,,<BUFF,6,,EWBUF,6>
;	CALL	STCLR		; CLEAR STATUS
	RETURN