.TITLE	NUMARG
	.ENABL	LC
;
;	CALL NUMARG( IARG )  --  This routine returns the number of
;	arguments that were passed to the calling routine.  i.e.
;
;	CALL SUB1( X, Y )
;	.
;	.
;	.
;	SUBROUTINE SUB1( X, Y, Z )
;	CALL NUMARG( IARG )
;	IF( IARG .EQ. 3 ) GO TO 100
;	CALL OTSERR( 80 )
;	STOP
; 100	CONTINUE
;
	.PSECT	NUMARG
NUMARG::MOV	@2(SP),@2(R5)
	RTS	PC
	.END