.Title	CLIASSIGN - A subroutine to assign CLI symbols
;+
;	Written by Kevin Carosso, 15-OCT-1981
;
;	Calling Sequence:
;
;		CALL CLI_ASSIGN(SYMBOL,STRING,FLAG)
;	Where:
;
;	SYMBOL -- is a character variable with the symbol to define
;	STRING -- is the text of the symbol
;	FLAG   -- is 2 for local and 3 for global symbols
;		  (passed by value)
;
;	For convenience, the following global symbols can be used.
;
;		CLI$K_DEFLOCAL = 2
;		CLI$K_DEFGLOBAL = 3
;-
	.Library	/SYS$LIBRARY:LIB/

	$CLIDEF		GLOBAL
	$CLISERVDEF	GLOBAL

	.Entry	CLI_Assign,0

	movq	@8(ap),-(sp)		; Get the string needed
	clrw	2(sp)			; Clear out the type
	movq	@4(ap),-(sp)		; Get the symbol name
	clrw	2(sp)			; Clear out symbol type
	movw	#0,-(sp)		; Alignment for longword
	movb	12(ap),-(sp)		; Send out Flag byte
	movb	#CLI$K_CLISERV,-(sp)	; Ask for service
	pushal	(sp)			; CLI Action Address
	calls	#1,SYS$CLI		; Do the work
	ret				; Return

	.End