srems.s

操作系统SunOS 4.1.3版本的源码

	.data
|	.asciz	"@(#)Srems.s 1.1 92/07/30 SMI"
	.even
	.text


|	Copyright (c) 1987 by Sun Microsystems, Inc.

#include "fpcrtdefs.h"
#include "Sdefs.h"

RTENTRY(Smods)
#ifdef PIC
	movl	a2,sp@-
	PIC_SETUP(a2)
	movl	a2@(__skybase:w),a2
	movl	a2@, SKYBASE
	bsr	Smods__
	movl	sp@+,a2
	RET
Smods__:
#else
	movl	__skybase,SKYBASE 
#endif
	movw	#S_SMOD3,SKYBASE@(-OPERAND)
	movl	d0,SKYBASE@
	movl	d1,SKYBASE@
	movl	d0,sp@-			| Stack gets x.
	IORDY
	movl	SKYBASE@,d0
	eorl	d0,sp@+
	bpls	4f			| Branch if sign(mod)=sign(x).
	movel	d0,sp@-
	eorl	d1,sp@+
	bpls	2f			| Branch if sign(mod) = sign(y)
	movw    #S_SADD3,SKYBASE@(-OPERAND)
        bras	3f
2:
	movw	#S_SSUB3,SKYBASE@(-OPERAND)
3:
	movl	d0,SKYBASE@		| Add or subtract to get sign.
	movl	d1,SKYBASE@
	IORDY
	movl	SKYBASE@,d0
4:
	RET

ENTER(Srems)
#ifdef PIC
	movl	a2,sp@-
	JBSR(Frems,a2)
	movl	sp@+,a2
	RET
#else
	jmp	Frems
#endif