ALWAYS	27JUL2	PATCH	<ALLOCATE PATCH SPACE>
	.MCALL	DIR$,CALLR
	.PSECT
;************************************************************************
;*									*
;*	MODULE: PATCH							*
;*									*
;*	FUNCTION: ALLOCATE PATCH SPACE					*
;*									*
;*	INPUT PARAMETERS:						*
;*									*
;*	R0 POINTS TO THE COMMAND LINE IN PROCESS			*
;*									*
;*	OUTPUT PARAMETERS:						*
;*									*
;*	R0 POINTS JUST BEYOND COMMAND LINE				*
;*									*
;*	DESTROYS: R1							*
;*									*
;*	AUTHOR: KEVIN ANGLEY						*
;*									*
;*	DATE: 27-JUL-82							*
;*									*
;************************************************************************

PATCH::
	CALL	GETHX2		; GET 2 HEX DIGIT PATCH SPACE ALLOCATION
	BCS	250$		;  CS: CONVERSION ERROR - TAKE ERROR EXIT
	MOVB	R1,PAT		; SAVE PATCH ALLOCATION
	BR	255$
250$:
255$:				; NORMAL EXIT
	CALLR	EXTRA		; PURGE COMMAND LINE OF SUPERFLUOUS JUNK
				;  AND RETURN FROM THERE
	.EVEN

	.END