A2osX/SYS/KERNEL.S.MATH.txt

58 lines
1.1 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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