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

PROC::
	MOVB	#K$COM,R2	; ASSUME COM PROCESSOR, PUT VALUE INTO R2
	GETKEY	COM		; TRY FOR COM KEYWORD
	BEQ	255$		;  EQ: COM IS THERE, ASSUMPTION IS CORRECT
	MOVB	#K$EXEC,R2	; ASSUME EXEC PROCESSOR, PUT VALUE INTO R2
	GETKEY	EXEC		; TRY FOR EXEC KEYWORD
	BEQ	255$		;  EQ: EXEC IS THERE, ASSUMPTION IS CORRECT
	MOVB	#K$COAX,R2	; ASSUME COAX PROCESSOR, PUT VALUE INTO R2
	GETKEY	COAX		; TRY FOR COAX KEYWORD
	BEQ	255$		;  EQ: COAX IS THERE, ASSUMPTION IS CORRECT
	OUTPUT	IPN		; "INVALID PROCESSOR NAME"
	CLRB	R2		; NO PROCESSOR SPECIFIED
255$:				; NORMAL EXIT
	MOVB	R2,.KPROC	; SET UP PROCESSOR
	CALLR	EXTRA		; PURGE COMMAND LINE OF SUPERFLUOUS JUNK
				;  AND RETURN FROM THERE

	.PAGE
	.SBTTL	PROC - PROC DATA AREAS
	.PSECT	PURE	RO,D

	DEFM	IPN	<Invalid processor name>

	KEY	COM		; KEYWORD INDICATING COM PROCESSOR
	KEY	EXEC		; KEYWORD INDICATING EXEC PROCESSOR
	KEY	COAX		; KEYWORD INDICATING COAX PROCESSOR

	.END