Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-08-24 16:54:02 +02:00
parent 67873e3518
commit f5fa2094c1
4 changed files with 12 additions and 5 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -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