27 lines
458 B
PHP
27 lines
458 B
PHP
|
|
.ifndef _FLOAT_INC_
|
|
_FLOAT_INC_ = 1
|
|
|
|
.include "basic.inc"
|
|
.include "kernal.inc"
|
|
|
|
.macro UINT16TOFAC
|
|
ldy #$00
|
|
jsr INT24TOMANTISSA
|
|
sec
|
|
jsr NORMALIZE
|
|
.endmacro
|
|
|
|
.macro INT32TOFAC arg
|
|
lda arg + $00
|
|
ldx arg + $01
|
|
ldy arg + $02
|
|
jsr INT24TOMANTISSA
|
|
lda arg + $03
|
|
sta FACHO
|
|
sec
|
|
jsr NORMALIZE
|
|
.endmacro
|
|
|
|
.endif; FLOAT_INC
|