Apple-2gs-SW
/
ORCALib
mirror of https://github.com/byteworksinc/ORCALib.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Implement llrint.

This commit is contained in:
Stephen Heumann 2021-11-23 21:16:12 -06:00
parent ce05615a63
commit 6364d0f48f
2 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
math2.asm
View File

@ -664,6 +664,64 @@ ret creturn 2:x return it
rtl
end
****************************************************************
*
* long long llrint(double x);
*
* Rounds x to an integer using current rounding direction
* and returns it as a long long (if representable).
*
****************************************************************
*
llrint start
llrintf entry
llrintl entry
retptr equ 1
csubroutine (10:x),4
stx retptr
stz retptr+2
tdc
clc
adc #x
pea 0 push src address for fcpxx
pha
pea llmin|-16 push dst address for fcpxx
pea llmin
pea 0 push operand address for frintx
pha
FRINTX round
FCPXX compare with LLONG_MIN
bne convert
lda #$8000 if it is LONG_MIN, use that value
ldy #6
sta [retptr],y
asl a
dey
dey
sta [retptr],y
dey
dey
sta [retptr],y
sta [retptr]
bra done
convert tdc if it is not LONG_MIN, call fx2c:
clc
adc #x
pea 0 push src address for fx2c
pha
pei retptr+2 push dst address for fx2c
pei retptr
FX2C convert
done creturn
llmin dc e'-9223372036854775808'
end
****************************************************************
*
* double log1p(double x);

13
math2.macros
View File

@ -408,3 +408,16 @@
LDX #$090A
JSL $E10000
MEND
MACRO
&LAB FX2C
&LAB PEA $0510
LDX #$090A
JSL $E10000
MEND
MACRO
&LAB FCPXX
&LAB PEA $0A
LDX #$090A
JSL $E10000
MEND