;****************************************************************
;* 								*
;*								*
;*	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 PLOT1
	.GLOBL	VGCSR,VGPC,VGBUF,VGCOLR
	.GLOBL	VGCSR1,VGPC1,VGBUF1,VGCOL1
	.GLOBL	VGCSR2,VGPC2,VGBUF2,VGCOL2
	.GLOBL	PLOT1,PLOT2,PXSET
	.GLOBL	PXON,PXOF
	.GLOBL	CL
;SWITCH TO BIT MAP 1
PLOT1:	MOV	VGCSR1,VGCSR
	MOV	VGBUF1,VGBUF
	MOV	VGPC1,VGPC
	MOV	VGCOL1,VGCOLR
	RTS	%7
	.TITLE	SWITCH TO BM 2 
PLOT2:	MOV	VGCSR2,VGCSR
	MOV	VGBUF2,VGBUF
	MOV	VGPC2,VGPC
	MOV	VGCOL2,VGCOLR
	RTS	%7
	.TITLE	PXSET	SET X,Y CO-ORD OF BM
PXSET:	ADD	#2,%5
	MOV	@(%5)+,%0
1$:	TSTB	@VGCSR
	BPL	1$
	BIC	#17,@VGCSR
	ADD	%0,@VGCSR
	RTS	%7
	.TITLE	SWITCK BIT MAP ON
PXON:	BIS	#400,@VGCSR
	RTS	%7
	.TITLE	SWITH BIT MAP OFF
PXOF:	BIC	#400,@VGCSR
	RTS	%7
	.TITLE TURN TO COLOUR
CL:	BIC	#2000,@VGCSR
	RTS	%7
	.END