Mercurial > hg > index.cgi
changeset 68:8ac1aafb9ecb
Fix some formatting glitches
author | William Astle <lost@l-w.ca> |
---|---|
date | Sat, 10 Jun 2023 12:24:30 -0600 |
parents | 9c2e66ef5fa1 |
children | a3c4183f28e0 |
files | src/lwbasic.s |
diffstat | 1 files changed, 14 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Sun Apr 23 10:16:31 2023 -0600 +++ b/src/lwbasic.s Sat Jun 10 12:24:30 2023 -0600 @@ -1562,13 +1562,13 @@ lda #0x20 ; default sign (positive) ldb val0.int ; is it negative? bpl cmd_printint0 ; brif not - ldd zero ; - subd val0.int+2 - std val0.int+2 - ldd zero - sbcb val0.int+1 - sbca val0.int - std val0.int + ldd zero ; + subd val0.int+2 + std val0.int+2 + ldd zero + sbcb val0.int+1 + sbca val0.int + std val0.int lda #'- ; negative sign cmd_printint0 sta ,y+ ; save sign ldu #cmd_printintpc ; point to positive constant table @@ -1585,13 +1585,13 @@ sbca ,u std val0.int bcc cmd_printint2 ; brif we didn't go negative - ldd val0.int+2 ; undo last subtract - addd 2,u - std val0.int+2 - ldd val0.int - adcb 1,u - adca ,u - std val0.int + ldd val0.int+2 ; undo last subtract + addd 2,u + std val0.int+2 + ldd val0.int + adcb 1,u + adca ,u + std val0.int leay 1,y ; move to next digit in buffer leau 4,u ; move to next constant leax -1,x ; done all constants?