;	Subroutine to return the number of arguments (NARG) 
;	used in calling a FORTRAN routine.
;	This is useful if you want to make some calling
;	arguments optional or just to make sure all needed
;	arguments have been provided by the calling routine.  
;
;	Calling method:
;
;		CALL GETNARG(NARG)
;	
	.ENTRY	GETNARG,^M<>
	MOVL	@8(FP),@4(AP)
	RET
	.END