init files
This commit is contained in:
commit
8197a022bd
1409 changed files with 139317 additions and 0 deletions
26
shared/float.inc
Normal file
26
shared/float.inc
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
|
||||
.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
|
||||
Loading…
Add table
Add a link
Reference in a new issue