# HG changeset patch # User William Astle # Date 1686421670 21600 # Node ID a3c4183f28e04f72fb139e810e8b58d13de2f9a4 # Parent 8ac1aafb9ecb9fa9d2d2844d70818db262fdcbfd Clean up some more formatting diff -r 8ac1aafb9ecb -r a3c4183f28e0 src/lwbasic.s --- 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;