.TITLE ARGCNT
	.IDENT	/1/
;+
;
; A fortran callable subroutine to return the number of arguments
; passed to the previously called subroutine.  The call to ARGCNT
; must immediately follow the subroutine statement or as soon as possible).
; Normal usage is as follows.
;
;	SUBROUTINE FOO(N1,N2,N3,.....NN)
;	. . . . .
;	CALL ARGCNT(NARG)		! NARG IS THE NUMBER OF ARGUMENTS
;					! ACTUALLY PASSED TO FOO
;-
	.ENTRY	ARGCNT,0

	MOVL	@8(FP),@4(AP)		; BUMP PREVIOUS CALLS COUNTER
	RET				; INTO NARG AND RETURN

	.END