2017-10-26 16:01:54 +00:00
|
|
|
|
PR#3
|
|
|
|
|
|
PREFIX /A2OSX.BUILD
|
|
|
|
|
|
LOMEM $A00
|
|
|
|
|
|
INC 1
|
|
|
|
|
|
AUTO 6
|
|
|
|
|
|
*/--------------------------------------
|
2017-10-27 06:36:46 +00:00
|
|
|
|
* # FAdd,FSub,FMult,FDiv
|
|
|
|
|
|
* Return X+Y,X-Y,X*Y,X/Y
|
2017-10-26 16:01:54 +00:00
|
|
|
|
* ## In:
|
|
|
|
|
|
* PUSHW = X (*Float)
|
|
|
|
|
|
* PUSHW = Y (*Float)
|
2017-10-27 06:36:46 +00:00
|
|
|
|
* Y,A = Dest (*Float)
|
2017-10-26 16:01:54 +00:00
|
|
|
|
*\--------------------------------------
|
|
|
|
|
|
K.FAdd ldx #ROM.FADD
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
K.FSub ldx #ROM.FSUB
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
K.FMult ldx #ROM.FMULT
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
K.FDiv ldx #ROM.FDIV
|
2017-10-26 16:01:54 +00:00
|
|
|
|
|
|
|
|
|
|
phx
|
|
|
|
|
|
jsr MATH.PullFAC
|
|
|
|
|
|
jsr MATH.PullARG
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>PULLW FORPNT
|
2017-10-26 16:01:54 +00:00
|
|
|
|
plx
|
|
|
|
|
|
jsr A2osX.ROMCALL
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>ROMCALL GETFAC
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*/--------------------------------------
|
|
|
|
|
|
* # Log,Cos,Sin,Tan,ATan
|
|
|
|
|
|
* Return
|
|
|
|
|
|
* ## In:
|
|
|
|
|
|
* PUSHW = X (*Float)
|
|
|
|
|
|
* Y,A = Dest (*Float)
|
|
|
|
|
|
*\--------------------------------------
|
2017-10-26 16:01:54 +00:00
|
|
|
|
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
|
