mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-25 18:29:36 +00:00
58 lines
1.1 KiB
Plaintext
58 lines
1.1 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.BUILD
|
||
LOMEM $A00
|
||
INC 1
|
||
AUTO 6
|
||
*/--------------------------------------
|
||
* # FAdd
|
||
* Return X+Y
|
||
* ## In:
|
||
* PUSHW = X (*Float)
|
||
* PUSHW = Y (*Float)
|
||
*\--------------------------------------
|
||
K.FAdd ldx #ROM.FADD
|
||
.HS 2C BIT ABS
|
||
*/--------------------------------------
|
||
* # FSub
|
||
* Return X-Y
|
||
* ## In:
|
||
* PUSHW = X (*Float)
|
||
* PUSHW = Y (*Float)
|
||
*\--------------------------------------
|
||
K.FSub ldx #ROM.FSUB
|
||
|
||
phx
|
||
|
||
jsr MATH.PullFAC
|
||
jsr MATH.PullARG
|
||
|
||
plx
|
||
jsr A2osX.ROMCALL
|
||
|
||
|
||
|
||
|
||
*--------------------------------------
|
||
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
|