# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1698030337 21600
# Node ID 69af7224f61478d5041cd2545c2c61590edf8980
# Parent  25b44f1ac2aa1ff099624ef183104a2d6cbe33a8
Tweak exponent calculation in fp to ascii conversion

diff -r 25b44f1ac2aa -r 69af7224f614 src/fps.s
--- a/src/fps.s	Sun Oct 22 21:03:24 2023 -0600
+++ b/src/fps.s	Sun Oct 22 21:05:37 2023 -0600
@@ -857,8 +857,8 @@
                 lda #'E                         ; output "E"
                 sta ,u+
                 tstb                            ; negative?
-                bpl fps_toascii10                ; brif not
-                negb                            ; positivize it
+                bpl fps_toascii10               ; brif not
+                comb                            ; positivize it, but also subtract 1?
                 lda #'-                         ; put a minus for the exponent
                 sta ,u+
 fps_toascii10   cmpb #10                        ; do we have two digits for exponent?