mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-25 15:24:26 +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
|