.TITLE	TTYCLR
;
;	PROGRAM TO CLEAR OUT THE TTYCOM SYSTEM USEAGE COMMON AREA
;
;
	.MCALL	EXIT$S
;
START:	MOV	#RUN,R0		;POINT TO START OF COMMON
	MOV	#3*40.,R1	;NUMBER OF WORDS TO R1
1$:	CLR	(R0)+		;CLEAR OUT A WORD
	SOB	R1,1$		;DO THEM ALL
	EXIT$S			;AND EXIT
	.END	START