mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-14 18:29:32 +00:00
72 lines
1.6 KiB
Plaintext
72 lines
1.6 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.BUILD
|
||
LOMEM $A00
|
||
INC 1
|
||
AUTO 6
|
||
*/--------------------------------------
|
||
* # FAdd,FSub,FMult,FDiv,FPwr
|
||
* Return X+Y, 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
|
||
.HS 2C BIT ABS
|
||
K.FPwr ldx #ROM.PWR
|
||
>STYA FORPNT
|
||
phx
|
||
jsr MATH.PullFAC
|
||
jsr MATH.PullARG
|
||
bra MATH.Go
|
||
*/--------------------------------------
|
||
* # Log,Sqr,Exp,Cos,Sin,Tan,ATan
|
||
* Return Log(x), Sqr(x), E^X, Cos(x), Sin(X), Tan(x), ATan(x)
|
||
* ## In:
|
||
* PUSHW = X (*Float)
|
||
* Y,A = Dest (*Float)
|
||
*\--------------------------------------
|
||
K.Log ldx #ROM.LOG
|
||
.HS 2C BIT ABS
|
||
K.Sqr ldx #ROM.SQR
|
||
.HS 2C BIT ABS
|
||
K.Exp ldx #ROM.EXP
|
||
.HS 2C BIT ABS
|
||
K.Cos ldx #ROM.COS
|
||
.HS 2C BIT ABS
|
||
K.Sin ldx #ROM.SIN
|
||
.HS 2C BIT ABS
|
||
K.Tan ldx #ROM.TAN
|
||
.HS 2C BIT ABS
|
||
K.ATan ldx #ROM.ATAN
|
||
>STYA FORPNT
|
||
phx
|
||
jsr MATH.PullFAC
|
||
|
||
MATH.Go plx
|
||
jsr A2osX.ROMCALL
|
||
>ROMCALL GETFAC
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
|
||
*--------------------------------------
|
||
MATH.PullFAC >PULLW INDEX
|
||
>ROMCALL SETFAC
|
||
rts
|
||
*--------------------------------------
|
||
MATH.PullARG >PULLW INDEX
|
||
>ROMCALL SETARG
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE /A2OSX.SRC/SYS/KERNEL.S.MATH
|
||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||
ASM
|