6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-17 16:29:32 +00:00
Code Issues Projects Releases Wiki Activity

use kernal function to convert float to string

Browse Source
This commit is contained in:
mrdudz 2023-08-27 23:11:25 +02:00
parent f587e6eaf9
commit 4c043aa98f
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
libsrc/float/cbmkernal/cbmfp.s
View File

@ -485,7 +485,7 @@ __float_arg_to_float_packed:
rts
;---------------------------------------------------------------------------------------------
.if 1 = 0
.if 1 = 1
.export __ftostr
.importzp ptr1
.import popax, ldeaxysp, incsp4
@ -504,10 +504,39 @@ __float_strbuf_to_string:
sta ptr1
stx ptr1+1
ldy #$00
ldx #$00
; if next char is a minus, copy it
lda $0100,x
cmp #'-'
bne @s0
sta (ptr1),y
iny
inx
@s0:
; if next char is a space, skip it
lda $0100,x
cmp #' '
bne @s1
inx
@s1:
; if next char is a dot, copy a '0' to buffer
lda $0100,x
cmp #'.'
bne @s2
lda #'0'
sta (ptr1),y
iny
@s2:
; FIXME: we should handle the scientific notation somehow
; FIXME: we should handle very small numbers somehow (display 0)
@l:
lda $0100,y
lda $0100,x
sta (ptr1),y
beq @s
inx
iny
bne @l
@s: