diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index c83bf066..c1e3c34c 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index e26914cd..e81defa0 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index f8671114..b01b26a4 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/SYS/KERNEL.S.MATH.txt b/SYS/KERNEL.S.MATH.txt index 87c6c0aa..e42a72d2 100644 --- a/SYS/KERNEL.S.MATH.txt +++ b/SYS/KERNEL.S.MATH.txt @@ -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