.TITLE	DEFSYM - DEFINE A GLOBAL SYMBOL FOR DCL

	$CLISERVDEF

GBLSYM:	.LONG	CLI$K_DEFGLOBAL@8!CLI$K_CLISERV
SYMNAM:	.LONG	0,0
SYMVAL:	.LONG	0,0

;
; CALL:	CALL DEFSYM(SYMBOL,SYMLEN,VALUE,VALLEN)
;
; WHERE:
;
;	SYMBOL	- IS THE NAME OF THE SYMBOL TO DEFINE
;	SYMLEN	- IS THE LENGTH OF THE SYMBOL IN CHARACTERS
;	VALUE	- IS THE ASCII STRING TO BE EQUATED TO THE SYMBOL
;	VALLEN	- IS THE LENGTH OF THE ASCII STRING IN CHARACTERS
;

	SYMBOL=	4
	SYMLEN=	8
	VALUE=	12
	VALLEN=	16

	.ENTRY	DEFSYM,0

; HERE I GO

	MOVL	@SYMLEN(AP),SYMNAM	;SAVE LENGTH FOR LATER
	MOVL	SYMBOL(AP),SYMNAM+4	;SAVE STRING ADDRESS
	MOVL	@VALLEN(AP),SYMVAL	;SAVE LENGTH OF STRING
	MOVL	VALUE(AP),SYMVAL+4	;SAVE ADDRESS
	PUSHAB	L^GBLSYM		;ADDR OF REQUEST DESCRIPTOR
	CALLS	#1,G^SYS$CLI		;CREATE GLOBAL SYMBOL
	RET				; THEN RETURN

	.END