mirror of https://github.com/mi57730/a2d.git
65 lines
1.0 KiB
PHP
65 lines
1.0 KiB
PHP
;;; Floating Point macros
|
|
|
|
.macro DEFINE_FLOAT
|
|
.res 5, 0
|
|
.endmacro
|
|
|
|
|
|
;;; FAC = int
|
|
.macro fac_load_int arg
|
|
_op_lo ldy, {arg}
|
|
_op_hi lda, {arg}
|
|
jsr GIVAYF
|
|
.endmacro
|
|
|
|
;;; int = FAC
|
|
.macro fac_store_int int
|
|
jsr QINT
|
|
lda FAC+4
|
|
sta int
|
|
lda FAC+3
|
|
sta int+1
|
|
.endmacro
|
|
|
|
;;; FAC = float
|
|
.macro fac_load float
|
|
lday #float
|
|
jsr MOVFM
|
|
.endmacro
|
|
|
|
;;; float = FAC
|
|
.macro fac_store float
|
|
ldxy #float
|
|
jsr MOVMF
|
|
.endmacro
|
|
|
|
;;; FAC = float / FAC
|
|
.macro fac_div float
|
|
lday #float
|
|
jsr FDIV
|
|
.endmacro
|
|
|
|
;;; FAC = float * FAC
|
|
.macro fac_mul float
|
|
lday #float
|
|
jsr FMULT
|
|
.endmacro
|
|
|
|
;;; FAC = float - FAC
|
|
.macro fac_sub float
|
|
lday #float
|
|
jsr FSUB
|
|
.endmacro
|
|
|
|
;;; FAC = float + FAC
|
|
.macro fac_add float
|
|
lday #float
|
|
jsr FADD
|
|
.endmacro
|
|
|
|
;;; A = float <=> FAC
|
|
.macro fac_comp float
|
|
lday #float
|
|
jsr FCOMP
|
|
.endmacro
|