Mercurial > hg > index.cgi
changeset 69:a3c4183f28e0
Clean up some more formatting
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sat, 10 Jun 2023 12:27:50 -0600 |
| parents | 8ac1aafb9ecb |
| children | eb7c96671f5b |
| files | src/lwbasic.s |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Sat Jun 10 12:24:30 2023 -0600 +++ b/src/lwbasic.s Sat Jun 10 12:27:50 2023 -0600 @@ -1720,15 +1720,15 @@ eval_number0 jsr nextchar ; fetch next input beq eval_numberr ; brif end of expression - bail eval_number1 cmpa #'- ; negative (ascii sign)? - beq eval_number3 ; brif so - cmpa #tok_minus ; negative (operator negative)? + beq eval_number3 ; brif so + cmpa #tok_minus ; negative (operator negative)? bne eval_number2 ; brif not eval_number3 com val0.sign ; invert sign bra eval_number0 ; deal with next input eval_number2 cmpa #'+ ; unary +? beq eval_number0 ; brif so - skip it -eval_number5 cmpa #'. ; decimal point? - beq eval_float ; brif decimal - force float +eval_number5 cmpa #'. ; decimal point? + beq eval_float ; brif decimal - force float cmpa #'0 ; is it a number? blo eval_numberr ; brif below digit cmpa #'9 ; is it still a number? @@ -1787,7 +1787,7 @@ ldd zero sbcb val0.int+1 sbca val0.int - std val0.int + std val0.int eval_numberr0 rts eval_float jmp SNERROR ; we don't handle floating point yet ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;