;****************************************************************
;* 								*
;*								*
;*	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	SET CHARACTER POSITION ON VSVO1
	.GLOBL	CHPOS,CHSET,VCPOS,VCPOSH
CHSET:	MOV	%1,-(%6)		;SAVE REGISTERS
	MOV	%2,-(%6)
	ADD	#2,%5
	MOV	@(%5)+,%1
	MOV	@(%5)+,%2
	MOVB	%1,@VCPOS
	MOVB	%2,@VCPOSH
	MOVB	%1,CHPOS
	MOVB	%2,CHPOS+1
	MOV	(%6)+,%2
	MOV	(%6)+,%1
	RTS	%7
	.END	CHSET