.TITLE	GCCI	Get Command Line for CLI
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index		GCCI	Get Command Line for CLI
;
; Usage
;
;	#include <cx.h>
;	#include <clidf.h>	/* CLIPB & message codes */
;	#include <ocbdf.h>	/* OCB definitions */
;	#include <gccidf.h>	/* GCCI-specific structures */
;	struct cmdbuf cmd;	/* Command buffer */
;	struct cmibuf info;	/* Information buffer */
;	address caddr;		/* Spec'd cmd address in pool */
;	word ncp;		/* Action if no command */
;	word status;		/* Returned DSW */
;
;	status = gcci(&cmd, &info, caddr, ncp);
;
; Notes
;
;	Only CLI tasks may issue this directive.
;
;	The file CLIDF.H contains the structure definitions for the
;	command and information buffers, and the "ncp" symbols.
;
;	You should thoroughly familiarize yourself with Alternate CLI
;	operations before using this directive.
;
;	The sizes of the command and information buffers are fixed by
;	the structure definitions in CLIDF.H, therefore, they are
;	not explicitly passed as function parameters.
;
; [end]
;-
; Edits:
; V1.0 19-Oct-82 RBD	Initial Edit
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.mcall	gcci$s

	.psect	c$code,i,ro
gcci::
	mov	sp,r0		; r0 --> Calling stack
	gcci$s	2(r0),#90.,4(r0),#16,6(r0),10(r0)
	mov	$dsw,r0
	return

	.end