l_entry.s

VXWORKS源代码

/* l_entry.s - Motorola 68040 FP entry points (LIB) */

/* Copyright 1991-1993 Wind River Systems, Inc. */
	.data
	.globl	_copyright_wind_river
	.long	_copyright_wind_river

/*
modification history
--------------------
01j,28jan97,ms   fixed SPR 7822 (bug from 01i check-in - never part of product)
01i,31may96,ms   updated to mototorola version 2.3
01h,21jul93,kdl  added .text (SPR #2372).
01g,18sep92,kdl  restored title line clobbered in 01f checkin.
01f,18sep92,kdl  changed multi-reg (fpsr/fpcr) saves to use offset USER_FPCR
		 instead of USER_FPSR, to reflect actual save order (SPR #1455).
01e,23aug92,jcf  changed bxxx to jxx.
01d,20aug92,kdl  added changes from Motorola FPSP v2.2 to correctly save fpcr.
01c,26may92,rrr  the tree shuffle
01b,09jan92,kdl  added modification history; general cleanup.
01a,15aug91,kdl  original version, from Motorola FPSP v2.0.
*/

/*
DESCRIPTION

This file contains Motorola FPSP library interface entry points for
various floating point operations.

*/


|	section 8

#include "fpsp040L.h"

|	xref	__l_tag
|	xref	__l_szero
|	xref	__l_sinf
|	xref	__l_sopr_inf
|	xref	__l_sone
|	xref	__l_spi_2
|	xref	__l_szr_inf
|	xref	__l_src_nan
|	xref	__l_t_operr
|	xref	__l_t_dz2
|	xref	__l_snzrinx
|	xref	__l_ld_pone
|	xref	__l_ld_pinf
|	xref	__l_ld_ppi2
|	xref	__l_ssincosz
|	xref	__l_ssincosi
|	xref	__l_ssincosnan
|	xref	__l_setoxm1i
|
|	MONADIC.GEN 1.3 4/30/91
|
|	MONADIC.GEN --- generic MONADIC template
|
|	This version saves all registers that will be used by the emulation
|	routines and restores all but FP0 on exit.  The FPSR is
|	updated to reflect the result of the operation.  Return value
|	is placed in FP0 for single, double and extended results.
|
|	The package subroutines expect the incoming fpcr to be zeroed
|	since they need extended precision to work properly.  The
/* 	'final' fpcr is expected in d1 so that the calculated result */
|	can be properly sized and rounded.  Also, if the incoming fpcr
|	has enabled any exceptions, the exception will be taken on the
|	final fmovem in this template.
|
|	Customizations:
|		1. Remove the moveml at the entry and exit of
|		   each routine if your compiler treats those
|		   registers as scratch.
/* 		2. Likewise, don't save FP0/FP1 if they are scratch */
|		   registers.
|		3. Delete handling of the fpsr if you only care about
|		   the result.
|		4. Some (most?) C compilers convert all float arguments
|		   to double, and provide no support at all for extended
|		   precision so remove the __l_facoss and __l_facosx entry points.
|		5. Move the result to d0/d1 if the compiler is that old.

|		Copyright (C) Motorola, Inc. 1991
|			All Rights Reserved
|
|	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
|	The copyright notice above does not evidence any
|	actual or intended publication of such source code.

|	xref	__l_tag
|	xref	__l_sacos
|	xref	__l_ld_ppi2
|	xref	__l_t_operr
|	xref	__l_mon_nan
|	xref	__l_sacosd


	.text

	.globl	__l_facoss
__l_facoss:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmoves	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_1012
	bsrl	__l_sacos		|  normalized (regular) number
	jra 	L_1016
L_1012:
	cmpb	#0x20,d0		|  zero?
	jne 	L_1013
	bsrl	__l_ld_ppi2
	jra 	L_1016
L_1013:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_1014
	bsrl	__l_t_operr
	jra 	L_1016
L_1014:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_1015
	bsrl	__l_mon_nan
	jra 	L_1016
L_1015:
	bsrl	__l_sacosd		|  assuming a denorm...

L_1016:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

	.globl	__l_facosd
__l_facosd:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmoved	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_1017
	bsrl	__l_sacos		|  normalized (regular) number
	jra 	L_101B
L_1017:
	cmpb	#0x20,d0		|  zero?
	jne 	L_1018
	bsrl	__l_ld_ppi2
	jra 	L_101B
L_1018:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_1019
	bsrl	__l_t_operr
	jra 	L_101B
L_1019:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_101A
	bsrl	__l_mon_nan
	jra 	L_101B
L_101A:
	bsrl	__l_sacosd		|  assuming a denorm...

L_101B:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

	.globl	__l_facosx
__l_facosx:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmovex	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_101C
	bsrl	__l_sacos		|  normalized (regular) number
	jra 	L_101G
L_101C:
	cmpb	#0x20,d0		|  zero?
	jne 	L_101D
	bsrl	__l_ld_ppi2
	jra 	L_101G
L_101D:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_101E
	bsrl	__l_t_operr
	jra 	L_101G
L_101E:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_101F
	bsrl	__l_mon_nan
	jra 	L_101G
L_101F:
	bsrl	__l_sacosd		|  assuming a denorm...

L_101G:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

|
|	MONADIC.GEN 1.3 4/30/91
|
|	MONADIC.GEN --- generic MONADIC template
|
|	This version saves all registers that will be used by the emulation
|	routines and restores all but FP0 on exit.  The FPSR is
|	updated to reflect the result of the operation.  Return value
|	is placed in FP0 for single, double and extended results.
|
|	The package subroutines expect the incoming fpcr to be zeroed
|	since they need extended precision to work properly.  The
/* |	'final' fpcr is expected in d1 so that the calculated result */
|	can be properly sized and rounded.  Also, if the incoming fpcr
|	has enabled any exceptions, the exception will be taken on the
|	final fmovem in this template.
|
|	Customizations:
|		1. Remove the moveml at the entry and exit of
|		   each routine if your compiler treats those
|		   registers as scratch.
/* |		2. Likewise, don't save FP0/FP1 if they are scratch */
|		   registers.
|		3. Delete handling of the fpsr if you only care about
|		   the result.
|		4. Some (most?) C compilers convert all float arguments
|		   to double, and provide no support at all for extended
|		   precision so remove the __l_fasins and __l_fasinx entry points.
|		5. Move the result to d0/d1 if the compiler is that old.

|		Copyright (C) Motorola, Inc. 1991
|			All Rights Reserved
|
|	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
|	The copyright notice above does not evidence any
|	actual or intended publication of such source code.

|	xref	__l_tag
|	xref	__l_sasin
|	xref	__l_szero
|	xref	__l_t_operr
|	xref	__l_mon_nan
|	xref	__l_sasind

	.globl	__l_fasins
__l_fasins:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmoves	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_1022
	bsrl	__l_sasin		|  normalized (regular) number
	jra 	L_1026
L_1022:
	cmpb	#0x20,d0		|  zero?
	jne 	L_1023
	bsrl	__l_szero
	jra 	L_1026
L_1023:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_1024
	bsrl	__l_t_operr
	jra 	L_1026
L_1024:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_1025
	bsrl	__l_mon_nan
	jra 	L_1026
L_1025:
	bsrl	__l_sasind		|  assuming a denorm...

L_1026:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

	.globl	__l_fasind
__l_fasind:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmoved	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_1027
	bsrl	__l_sasin		|  normalized (regular) number
	jra 	L_102B
L_1027:
	cmpb	#0x20,d0		|  zero?
	jne 	L_1028
	bsrl	__l_szero
	jra 	L_102B
L_1028:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_1029
	bsrl	__l_t_operr
	jra 	L_102B
L_1029:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_102A
	bsrl	__l_mon_nan
	jra 	L_102B
L_102A:
	bsrl	__l_sasind		|  assuming a denorm...

L_102B:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

	.globl	__l_fasinx
__l_fasinx:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmovex	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_102C
	bsrl	__l_sasin		|  normalized (regular) number
	jra 	L_102G
L_102C:
	cmpb	#0x20,d0		|  zero?
	jne 	L_102D
	bsrl	__l_szero
	jra 	L_102G
L_102D:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_102E
	bsrl	__l_t_operr
	jra 	L_102G
L_102E:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_102F
	bsrl	__l_mon_nan
	jra 	L_102G
L_102F:
	bsrl	__l_sasind		|  assuming a denorm...

L_102G:
	fmovel	fpsr,d0		|  update status register
	orb	a6@(USER_FPSR+3),d0	| add previously accrued exceptions
	fmovel	d0,fpsr
|
|	Result is now in FP0
|
	moveml	a6@(USER_DA),d0-d1/a0-a1
	fmovemx	a6@(USER_FP1),fp1-fp3	|  note: fp0 not restored
	fmovel	a6@(USER_FPCR),fpcr	| fpcr restored
	unlk	a6
	rts

|
|	MONADIC.GEN 1.3 4/30/91
|
|	MONADIC.GEN --- generic MONADIC template
|
|	This version saves all registers that will be used by the emulation
|	routines and restores all but FP0 on exit.  The FPSR is
|	updated to reflect the result of the operation.  Return value
|	is placed in FP0 for single, double and extended results.
|
|	The package subroutines expect the incoming fpcr to be zeroed
|	since they need extended precision to work properly.  The
/* |	'final' fpcr is expected in d1 so that the calculated result */
|	can be properly sized and rounded.  Also, if the incoming fpcr
|	has enabled any exceptions, the exception will be taken on the
|	final fmovem in this template.
|
|	Customizations:
|		1. Remove the moveml at the entry and exit of
|		   each routine if your compiler treats those
|		   registers as scratch.
/* |		2. Likewise, don't save FP0/FP1 if they are scratch */
|		   registers.
|		3. Delete handling of the fpsr if you only care about
|		   the result.
|		4. Some (most?) C compilers convert all float arguments
|		   to double, and provide no support at all for extended
|		   precision so remove the __l_fatans and __l_fatanx entry points.
|		5. Move the result to d0/d1 if the compiler is that old.

|		Copyright (C) Motorola, Inc. 1991
|			All Rights Reserved
|
|	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
|	The copyright notice above does not evidence any
|	actual or intended publication of such source code.

|	xref	__l_tag
|	xref	__l_satan
|	xref	__l_szero
|	xref	__l_spi_2
|	xref	__l_mon_nan
|	xref	__l_satand

	.globl	__l_fatans
__l_fatans:
	link	a6,#-LOCAL_SIZE
	moveml	d0-d1/a0-a1,a6@(USER_DA)
	fmovemx fp0-fp3,a6@(USER_FP0)
	fmovel	fpsr,a6@(USER_FPSR)
	fmovel	fpcr,a6@(USER_FPCR)
	fmovel	fpcr,d1		/* |  user's rounding mode/precision */
	fmovel	#0,fpcr		|  force rounding mode/prec to extended,rn
|
|	copy, convert and tag input argument
|
	fmoves	a6@(8),fp0
	fmovex	fp0,a6@(ETEMP)
	lea	a6@(ETEMP),a0
	bsrl	__l_tag
	moveb	d0,a6@(STAG)
	tstb	d0
	jne 	L_1032
	bsrl	__l_satan		|  normalized (regular) number
	jra 	L_1036
L_1032:
	cmpb	#0x20,d0		|  zero?
	jne 	L_1033
	bsrl	__l_szero
	jra 	L_1036
L_1033:
	cmpb	#0x40,d0		|  infinity?
	jne 	L_1034
	bsrl	__l_spi_2
	jra 	L_1036
L_1034:
	cmpb	#0x60,d0		|  NaN?
	jne 	L_1035
	bsrl	__l_mon_nan
	jra 	L_1036