.TITLE	ERASE - ERASE SCOPE ROUTINE
	.IDENT	/18NOV7/	;16:35, MK
;	.ENTRY	ERASE - ERASE SCOPE ROUTINE
;+
; E R A S E
;
; PURPOSE:	ERASE SCOPE ROUTINE - PART OF TEKTRONIX 4010
;		PLOTTING PACKAGE. ERASES SCREEN AND ENTERS
;		ALPHANUMERIC MODE.
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL ERASE
;
; LANGUAGE:	MACRO-11
;
;-
; REVISIONS:
;		MM/MK	WRITTEN
; 24-OCT-75	MK	MODIFIED TO WAIT 1 SEC AFTER ERASE TO
;			PREVENT LOSS OF DATA ON SERIAL TERMINAL
; 26-JAN-77	NS	ADD HEADER INFORMATION
; 06-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
;18-NOV-77	MK	ADD CALL TO IHAR$S MACRO
;
	.MCALL	DIR$,WTSE$S,PUSH,POP,MRKT$,IHAR$S
;
ERASE::	PUSH	<R0>
	IHAR$S
	MOV	CH.IN,R0	;GET BUFFER ADDRESS
	MOVB	#ESC,(R0)+	;ERASE AND HOME CURSOR
	MOVB	#FF,(R0)+
	CLR	CH.MOD
	JSR	PC,CHO
	POP	<R0>
	JSR	PC,WTFOUT	;WAIT FOR OUTPUT TO FINISH
	DIR$	#MRKT
	WTSE$S	#TIMFL		;WAIT 1 SEC FOR ERASE CYCLE
	RTS	PC
MRKT:	MRKT$	TIMFL,1,2
	.END