xref: /csrg-svn/lib/libcompat/4.3/tahoe/nargs.s (revision 61243)
134438Sbostic/*
2*61243Sbostic * Copyright (c) 1988, 1993
3*61243Sbostic *	The Regents of the University of California.  All rights reserved.
434438Sbostic *
542628Sbostic * %sccs.include.redist.c%
634824Sbostic *
734438Sbostic * This code is derived from software contributed to Berkeley by
834438Sbostic * Computer Consoles Inc.
934438Sbostic */
1029697Ssam
1134438Sbostic#if defined(LIBC_SCCS) && !defined(lint)
12*61243Sbostic	.asciz "@(#)nargs.s	8.1 (Berkeley) 06/04/93"
1334438Sbostic#endif /* LIBC_SCCS and not lint */
1434438Sbostic
1529697Ssam/* C library -- nargs */
1629697Ssam
1729697Ssam#include "DEFS.h"
1829697Ssam
1929697SsamENTRY(nargs, 0)
2051811Smckusick	movl	(fp),r0
2151811Smckusick	movw	-2(r0),r0  #  removed word
2229697Ssam	subw2	$4,r0
2329697Ssam	shar	$2,r0,r0  #  no. of arguments
2429697Ssam	ret
25