xref: /csrg-svn/lib/libcompat/4.3/tahoe/nargs.s (revision 34438)
1*34438Sbostic/*
2*34438Sbostic * Copyright (c) 1988 Regents of the University of California.
3*34438Sbostic * All rights reserved.
4*34438Sbostic *
5*34438Sbostic * This code is derived from software contributed to Berkeley by
6*34438Sbostic * Computer Consoles Inc.
7*34438Sbostic *
8*34438Sbostic * Redistribution and use in source and binary forms are permitted
9*34438Sbostic * provided that this notice is preserved and that due credit is given
10*34438Sbostic * to the University of California at Berkeley. The name of the University
11*34438Sbostic * may not be used to endorse or promote products derived from this
12*34438Sbostic * software without specific prior written permission. This software
13*34438Sbostic * is provided ``as is'' without express or implied warranty.
14*34438Sbostic */
1529697Ssam
16*34438Sbostic#if defined(LIBC_SCCS) && !defined(lint)
17*34438Sbostic_sccsid:.asciz	"@(#)nargs.s	1.2 (Berkeley) 05/23/88"
18*34438Sbostic#endif /* LIBC_SCCS and not lint */
19*34438Sbostic
2029697Ssam/* C library -- nargs */
2129697Ssam
2229697Ssam#include "DEFS.h"
2329697Ssam
2429697SsamENTRY(nargs, 0)
2529697Ssam	movw	-2(fp),r0  #  removed word
2629697Ssam	subw2	$4,r0
2729697Ssam	shar	$2,r0,r0  #  no. of arguments
2829697Ssam	ret
29