Symbol C$LINK

			8709	*
			8710	*
			8711	* DECK PERMANENT COMPILER SUBROUTINES
			8712	* LINK HANDLES ALL SUBROUTINE CALLS FROM COMPILED FUNCTION
			8713	* IT REPLACES STR WITH TSX IF SUBROUTINE BEING CALLED
			8714	* IS A SUBR OR FSUBR
			8715	* IT GOES TO APPLY IF THE CALL IS TO EXPR OR FEXPR WITH
			8716	* $ALIST AS THIRD ARGUMENT
			8717	* LINK EXPECTS A TAG OF 7 IN THE STR INST, NAME OF FUNCTION
			8718	* IN THE ADDRESS, AND THE NUMBER OF ARGUMENTS IN THE DECREM
			8719	* ENT LINK WILL GO TO THE ROUTINE WHICH
			8720	* HANDLES ERROR TRAPS IF THE CALLING INST DOESNT HAVE A 7
			8721	* TAG
			8722	*
	17061	0601 00 0 03417	8723	LINK	STO	LNKA