mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
64 lines
3.0 KiB
ArmAsm
64 lines
3.0 KiB
ArmAsm
ttl ieee format equivalent power function(iefpwr)
|
||
***************************************
|
||
* (c) copyright 1981 by motorola inc. *
|
||
***************************************
|
||
|
||
*************************************************
|
||
* iefpwr *
|
||
* ieee format equivalent power function *
|
||
* *
|
||
* input: d6 - ieee format exponent value *
|
||
* d7 - ieee format argument value *
|
||
* *
|
||
* output: d7 - result of the value taken to *
|
||
* the power specified *
|
||
* *
|
||
* all registers are transparent *
|
||
* *
|
||
* maximum stack used: 52 bytes *
|
||
* *
|
||
* condition codes: *
|
||
* z - set if result is zero *
|
||
* n - cleared *
|
||
* v - set if result is nan (not-a-number)*
|
||
* (input argument negative or nan) *
|
||
* c - undefined *
|
||
* x - undefined *
|
||
* *
|
||
* notes: *
|
||
* 1) see the mc68344 user's guide for details*
|
||
* concerning limitations on normalized *
|
||
* argument ranges. *
|
||
* 2) a negative base value, or zero to a *
|
||
* negative power is invalid and returns *
|
||
* a nan with the "v" bit set. *
|
||
* 3) spot checks show at least six digit *
|
||
* precision for 80 percent of the cases. *
|
||
* *
|
||
*************************************************
|
||
page
|
||
iefpwr idnt 1,1 ieee format equivalent power function
|
||
|
||
opt pcs
|
||
|
||
section 9
|
||
|
||
xdef iefpwr entry point
|
||
|
||
xref ieflog ieee log function
|
||
xref iefmul ieee multiply routine
|
||
xref iefexp ieee exponent function
|
||
xref ffpcpyrt copyright stub
|
||
|
||
*****************
|
||
* power entry *
|
||
*****************
|
||
iefpwr jsr ieflog find low of base value
|
||
jsr iefmul multiply by the power
|
||
jmp iefexp finish with exponent result
|
||
|
||
end
|
||
|
||
end
|
||
|
||
end
|
||
|
||
end
|
||
|
||
|