mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-01 00:29:12 +00:00
58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.BUILD
|
||
LOMEM $A00
|
||
INC 1
|
||
AUTO 6
|
||
*/--------------------------------------
|
||
* # FAdd,FSub,FMult,FDiv
|
||
* Return X+Y,X-Y,X*Y,X/Y
|
||
* ## In:
|
||
* PUSHW = X (*Float)
|
||
* PUSHW = Y (*Float)
|
||
* Y,A = Dest (*Float)
|
||
*\--------------------------------------
|
||
K.FAdd ldx #ROM.FADD
|
||
.HS 2C BIT ABS
|
||
K.FSub ldx #ROM.FSUB
|
||
.HS 2C BIT ABS
|
||
K.FMult ldx #ROM.FMULT
|
||
.HS 2C BIT ABS
|
||
K.FDiv ldx #ROM.FDIV
|
||
|
||
phx
|
||
jsr MATH.PullFAC
|
||
jsr MATH.PullARG
|
||
>PULLW FORPNT
|
||
plx
|
||
jsr A2osX.ROMCALL
|
||
>ROMCALL GETFAC
|
||
clc
|
||
rts
|
||
*/--------------------------------------
|
||
* # Log,Cos,Sin,Tan,ATan
|
||
* Return
|
||
* ## In:
|
||
* PUSHW = X (*Float)
|
||
* Y,A = Dest (*Float)
|
||
*\--------------------------------------
|
||
K.Cos jsr MATH.PullFAC
|
||
* >ROMCALL COS
|
||
*--------------------------------------
|
||
MATH.PullFAC >PULLA
|
||
tay
|
||
>PULLA
|
||
>ROMCALL SETFAC.AY
|
||
rts
|
||
*--------------------------------------
|
||
MATH.PullARG >PULLA
|
||
tay
|
||
>PULLA
|
||
>ROMCALL SETARG.AY
|
||
rts
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE /A2OSX.SRC/SYS/KERNEL.S.MATH
|
||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||
ASM
|