Mercurial > hg > index.cgi

diff src/number.s @ 100:6db72a92ff7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make value accumulator descriptions consistent and make usage consistent
author William Astle <lost@l-w.ca>
date Mon, 23 Oct 2023 22:46:55 -0600
parents 6837d10b67fb
children b0422868a7b1
line wrap: on
line diff
--- a/src/number.s	Mon Oct 23 20:23:28 2023 -0600
+++ b/src/number.s	Mon Oct 23 22:46:55 2023 -0600
@@ -268,17 +268,8 @@
                 adda #64
                 sta fpa0+fpa.exp
                 jsr fps_normalizea0             ; normalize fpa0
-                ldd fpa0+fpa.sig                ; copy result to the right place
-                std val0+val.fpssig
-                ldd fpa0+fpa.sig+2
-                std val0+val.fpssig+2
-                lda fpa0+fpa.sig+4
-                sta val0+val.fpssig+4
-                lda fpa0+fpa.exp
-                sta val0+val.fpsexp
-                lda fpa0+fpa.sign
-                sta val0+val.fpssign
-                rts
+                ldx #val0                       ; pack the result to the right place and return
+                jmp fps_pack0
 val_parsenum14  lda #valtype_int                ; set value type to integer
                 sta val0+val.type
                 ldb fpa0+fpa.exp                ; add the exponent bias in