.TITLE	SAVPOS	Save 'C function environment
	.IDENT	/V01.00/

	.GLOBL	ENV$$$
	;
	;	Save 'C Function environment
	;
	;
SAVPOS::
	MOV	R5,ENV$$$
	RTS	PC
	;
	;

	.END