-5,,/;AAW01/
;	18-OCT-82 -- Altered for use as CLI on M-Plus V2, see notes at	;AAW01
;		various locations below, search on AAW01.
-185,,/;AAW01/
; Altered for M-Plus Version 2.0
;
;			AAW01		Changes so M-Plus will recognize this
;					as both alternate CLI and CA.
;					If this task is installed as a CLI
;					with a name other than CCL, three
;					statements (and comments) should be
;					altered: search for "AAW01CLI".
-420,424,/;AAW01/
;	The following four lines will not work is DCL is the CLI because;AAW01
;	DCL names the task using the CCL command given, e.g. BELT7.	;AAW01
;	CMP	#^RCA.,GTBUF	; If we are the catchall, CA.XXX skip	;JGD09
;	BEQ	4$		;  CLI stuff so can behave correctly	;JGD90
;	CMP	#^RCA.,GTBUF+2	; If we are the catchall, ...CA., skip	;JGD09
;	BEQ	4$		; the CLI sturr so can behave normally	;JGD09
;
;	Following statements must be modified if CCL is installed as	;AAW01
;	a CLI under a name other than CCL.  AAW01CLI			;AAW01
	CMP	#^RCCL,GTBUF	; Are we the CLI at this point		;AAW01
	BEQ	5$		; Yes, do CLI stuff 			;AAW01
	CMP	#^RCCL,GTBUF+2	; Are we the CLI at this point		;AAW01
	BNE	4$		; No, skip CLI stuff and behave normally;AAW01
5$:	DIR$	#GETCII		; GET CLI INFORMATION			;JGD09
-435,436,/;AAW01/
	CMP	GCIIBF+G.CICL,#^RMCR ; Is it MCR	
;	Following line altered in sense because of M-Plus differences	;AAW01
;;	in naming tasks, see above.
;	BNE	6$		; If not MCR, use as alternate CLI	;JGD09
	BEQ	4$		; If MCR, use CCL as CA.		;AAW01
;	The literal in the following statement must be identical to the ;AAW01
;	name this task is given as CLI. AAW01CLI.			;AAW01
	CMP	GCIIBF+G.CICL,#^RCCL ; Is it CCL			;AAW01
	BEQ	6$		; Yes, we are the CLI.			;AAW01

/