# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1697521355 21600
# Node ID a8467c7984500f908b0f7eedee7ba573eff6221e
# Parent  3bfd978ddb3987809ffffed7d959bf29b4ccf98f
Correct off by one in FP exponent handling in ascii parsing

diff -r 3bfd978ddb39 -r a8467c798450 src/number.s
--- a/src/number.s	Mon Oct 16 16:48:46 2023 -0600
+++ b/src/number.s	Mon Oct 16 23:42:35 2023 -0600
@@ -238,7 +238,7 @@
 val_parsenum13  lda #valtype_float              ; set return value to floating point
                 sta val0+val.type
                 lda fpa0+fpa.exp                ; put the bias into the exponent but subtract one for leading digit
-                adda #64
+                adda #63
                 sta fpa0+fpa.exp
                 ldy #val0+val.value             ; normalize/round and return the result
                 jmp fps_normalize