mirror of
https://github.com/irmen/prog8.git
synced 2025-01-12 19:29:50 +00:00
34 lines
639 B
Lua
34 lines
639 B
Lua
%import textio
|
|
%import floats
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
%asm {{
|
|
lda #<float5_111
|
|
ldy #>float5_111
|
|
jsr floats.MOVFM
|
|
lda #<float5_122
|
|
ldy #>float5_122
|
|
jsr floats.FADD
|
|
jsr floats.FOUT
|
|
sta $7e
|
|
sty $7f
|
|
ldy #0
|
|
_loop
|
|
lda ($7e),y
|
|
beq _done
|
|
jsr c64.CHROUT
|
|
iny
|
|
bne _loop
|
|
_done
|
|
rts
|
|
|
|
float5_111 .byte $81, $0e, $14, $7a, $e1 ; float 1.11
|
|
float5_122 .byte $81, $1c, $28, $f5, $c2 ; float 1.22
|
|
|
|
}}
|
|
}
|
|
|
|
}
|