;****************************************************************
;* 								*
;*								*
;*	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			*
;*								*
;****************************************************************
;
;	REWRITTEN BY G. GUELFI  DEC-83
;
;	TO PREVENT R1 AND R2 FROM CARRING DATA BETWEEN SUBROUTINES
;
;
	.TITLE	VSVM--NEW LINE/IF NEC NEW PAGE
	.GLOBL	CLEAR,NLNE,NPGE,VCPOS,VCPOSH,LNUM
NLNE:	INC	LNUM		;NEW LINE
	CMPB	#25.,LNUM
	BEQ	NPGE
	CLRB	@VCPOS
	MOVB	LNUM,@VCPOSH
	RTS	%7
NPGE:	CLR	LNUM		;NEW PAGE
	CLR	@VCPOS
	JSR	%7,CLEAR
	RTS	%7
LNUM:	.WORD	0
	.END	NLNE