;****************************************************************
;* 								*
;*								*
;*	DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY *
;*	EITHER FOR THE CREATION OR FOR THE CLINICAL EFFICACY	*
;*	OF THIS PROGRAM. USERS MUST ASSUME FULL RESPONSIBILITY	*
;*	FOR ANY RESULTS OR DIAGNOSES OBTAINED FROM THE USE	*
;*	OF THIS PROGRAM. QUESTIONS ON THE EXECUTION OF THIS	*
;*	PROGRAM MUST BE REFERRED BACK TO THE ORIGINAL AUTHOR.	*
;*								*
;* AUTHOR:	SALLY FORSTER					*
;*		C/O DEPARTMENT OF NUCLEAR MEDICINE		*
;*		GUY'S HOSPITAL					*
;*		LONDON, ENGLAND					*
;*								*
;*		TEL: 01-407-7600 EXT 2583/4			*
;*								*
;****************************************************************
	.TITLE	VSVC CLEAR THE VSV AND SILENCE TT
	.GLOBL	CLEAR,CLEARB,CLEARW,CLEART
	.GLOBL	CHPOS,VCPOS,VCPOSH,VCCSR,VGCSR,VGCSR2
	.GLOBL	VGCSR1,VGPC1,VGBUF1,VGCOL1
	.GLOBL	VGPC2,VGBUF2,VGCOL2
	.GLOBL	VGPC,VGBUF,VGCOLR
JSW:	44
VCPOS:	172604
VCPOSH:	172605
VCCSR:	172600
VGCSR:	172620
VGPC:	172622
VGBUF:	172624
VGCOLR:	172630
VGCSR1:	172620
VGPC1:	172622
VGBUF1:	172624
VGCOL1:	172630
VGCSR2:	172640
VGPC2:	172642
VGBUF2:172644
VGCOL2:172650
CHPOS:	0
CLEAR:	BIS	#10000,@JSW
CLEART:	JSR	%7,CLEARB
	JSR	%7,CLEARW
	RTS	%7
CLEARB:	TSTB	@VGCSR
	BPL	CLEARB
	BIS	#1000,@VGCSR
	RTS	%7
CLEARW:	MOVB	#35,@VCCSR
1$:	TST	@VCCSR
	BPL	1$
	MOV	#0,CHPOS
2$:	TSTB	@VGCSR
	BPL	2$
	RTS	%7
	.END	CLEAR