.TITLE	ARGNUM Get the number of arguments
	.IDENT	/1.0/
;++
;
; Title:
;	ARGNUM.MAR - Get the number of arguments.
;
; Version:
;	1.0
;
; Facility:
;	User routine.
;
; Abstract:
;	This routine can be called by a user subroutine/function
;	to determine the number of arguments that were passed to
;	that user subroutine/function. The number is returned in
;	R0.
;
; Environment:
;	No special considerations.
;
; Author:
;	Mark Oakley	Battelle Memorial Institute	 6-Jul-1987
;
; Modified:
;	
;
;--

	.PSECT	ARGNUM_CODE RD,NOWRT,EXE,LONG,SHR,PIC
	.ENTRY	ARGNUM,^M<>

	MOVL	@8(FP),R0	; Move to the previous frame to get the
				; argument count.
	RET
	.END