.TITLE  ARGUMENT NUMBER ROUTINE
	.IDENT /VAX-001/
	.PSECT $CODE PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG
;
;
;  This subroutine is to be called to determine the number
; of calling arguments for the routine from which it was called
;
;	CALL NUMARG(INUM)
;
;		where INUM - number of args i*4 type
;
	.ENTRY	NUMARG,^M<R3>			;save R3
	MOVL	8(FP),R3			;get old arg pointer
	MOVL	(R3),@4(AP)			;return number of args
	RET					;this should work
	.END