mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 16:31:07 +00:00
Kernel 0.9.2
This commit is contained in:
parent
67873e3518
commit
f5fa2094c1
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -80,9 +80,12 @@ K.ATan ldx #ROM.ATAN
|
||||
* **Out:**
|
||||
* On stack (float)
|
||||
*\--------------------------------------
|
||||
K.Float >PULLW FAC+1
|
||||
>PULLW FAC+3
|
||||
|
||||
K.Float ldx #4
|
||||
|
||||
.1 >PULLB FAC,x Reverse Order
|
||||
dex
|
||||
bne .1
|
||||
|
||||
stz FAC.SIGN
|
||||
lda #$A0
|
||||
sta FAC Exp=32
|
||||
@ -121,8 +124,12 @@ K.lrintf jsr MATH.PullFAC
|
||||
ldx #ROM.QINT
|
||||
jsr GP.ROMCALL
|
||||
|
||||
>PUSHW FAC+1
|
||||
>PUSHW FAC+3
|
||||
ldx #0
|
||||
|
||||
.1 >PUSHB FAC+1,x
|
||||
inx
|
||||
cpx #4
|
||||
bne .1
|
||||
|
||||
clc
|
||||
rts
|
||||
|
Loading…
Reference in New Issue
Block a user