# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1697585205 21600
# Node ID a4db504611e2bdbf4bd15bba1d8e9a5c5aef0bbb
# Parent  6ac267da2216b05902f0614e713fc8e243992012
Handle tokenized signs parsing E notation

diff -r 6ac267da2216 -r a4db504611e2 src/number.s
--- a/src/number.s	Tue Oct 17 17:12:36 2023 -0600
+++ b/src/number.s	Tue Oct 17 17:26:45 2023 -0600
@@ -189,9 +189,13 @@
                 bcs val_parsenum9               ; brif digit
                 cmpa #'+                        ; positive?
                 beq val_parsenum8               ; brif no
+                cmpa #tok_plus                  ; tokenized plus?
+                beq val_parsenum8               ; brif so
                 cmpa #'-                        ; negative?
+                beq val_parsenum7a              ; brif so
+                cmpa #tok_minus                 ; tokenized minus?
                 lbne SNERROR                    ; brif not positive, negative, or digit
-                com fpaextra+5                  ; make sign of exponent negative
+val_parsenum7a  com fpaextra+5                  ; make sign of exponent negative
 val_parsenum8   jsr nextchar                    ; eat exponent sign/get next digit
                 bcc val_parsenum10              ; brif not a digit - done with number
 val_parsenum9   suba #0x30                      ; binary-ize the digit