init files

This commit is contained in:
AArt1256 2025-11-13 19:07:39 +03:00
commit 8197a022bd
1409 changed files with 139317 additions and 0 deletions

26
shared/float.inc Normal file
View 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