diff --git a/compiler/res/prog8lib/c64flt.p8 b/compiler/res/prog8lib/c64flt.p8 index 7b15cd7ae..dee9e3fcd 100644 --- a/compiler/res/prog8lib/c64flt.p8 +++ b/compiler/res/prog8lib/c64flt.p8 @@ -199,10 +199,10 @@ sub print_f (float value) { ldy #>value jsr MOVFM ; load float into fac1 jsr FOUT ; fac1 to string in A/Y - sta P8ZP_SCRATCH_B1 - sty P8ZP_SCRATCH_REG + sta P8ZP_SCRATCH_W1 + sty P8ZP_SCRATCH_W1+1 ldy #0 -- lda (P8ZP_SCRATCH_B1),y +- lda (P8ZP_SCRATCH_W1),y beq + jsr c64.CHROUT iny diff --git a/compiler/res/prog8lib/cx16flt.p8 b/compiler/res/prog8lib/cx16flt.p8 index e8f2bfddb..f993bc118 100644 --- a/compiler/res/prog8lib/cx16flt.p8 +++ b/compiler/res/prog8lib/cx16flt.p8 @@ -135,10 +135,10 @@ sub print_f (float value) { ldy #>value jsr MOVFM ; load float into fac1 jsr FOUT ; fac1 to string in A/Y - sta P8ZP_SCRATCH_B1 - sty P8ZP_SCRATCH_REG + sta P8ZP_SCRATCH_W1 + sty P8ZP_SCRATCH_W1+1 ldy #0 -- lda (P8ZP_SCRATCH_B1),y +- lda (P8ZP_SCRATCH_W1),y beq + jsr c64.CHROUT iny