2021-12-21 18:08:33 +00:00
|
|
|
%import textio
|
2022-01-03 22:38:41 +00:00
|
|
|
%import floats
|
2022-01-01 15:35:36 +00:00
|
|
|
%zeropage basicsafe
|
2021-12-15 22:43:14 +00:00
|
|
|
|
2021-10-30 13:15:11 +00:00
|
|
|
main {
|
2022-01-01 15:35:36 +00:00
|
|
|
sub start() {
|
2022-01-03 22:38:41 +00:00
|
|
|
%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
|
|
|
|
|
|
|
|
|
|
}}
|
2021-12-25 01:34:00 +00:00
|
|
|
}
|
|
|
|
|
|
2021-05-12 22:35:22 +00:00
|
|
|
}
|
