.TITLE	CMDLK - COMMAND LOOK ROUTINE
	.IDENT	/01JUN7/	;10:10:00, LV
;	.ENTRY	CMDLK - COMMAND LOOK ROUTINE
;+
; C M D L K
;
; PURPOSE:	COMMAND LOOK ROUTINE.
;		SAME AS CMDIN, BUT DOES NOT RESET COMMAND
;		DONE FLAGS.  THUS, THE SAME COMMAND MAY
;		BE READ BY A SUBSEQUENT CALL TO CMDIN.  THIS
;		ENTRY FACILITATES REAL-TIME INTERPRETATION OF
;		COMMANDS BY USER'S PROGRAM 'CMDINT'.
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL CMDLK(LINE,N,ICMD)
;
;		INPUT:	LINE=ARRAY TO RECEIVE COMMAND INPUT STRING
;			N   =NUMBER OF CHARACTERS TO RECEIVE
;			ICMD=LOGICAL VARIABLE TO RECEIVE COMMAND STATUS
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
; 01-JUN-77	LV	UPDATED TO CONFORM TO STANDARDS
;
	.MCALL	PUSH
;
CMDLK::	PUSH	<R0,R1,R2,R3>
	MOVB	CM.CDN,R0		;COMMAND DONE FLAG
	JMP	CMDIN1
	.END