Mercurial > hg > index.cgi
changeset 46:8d9345b6d3a9
Fix parsing empty DATA statements
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Fri, 09 Dec 2022 22:46:53 -0700 |
| parents | 952bfb5c76fb |
| children | b98c01cd3377 |
| files | src/lwbasic.s |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Fri Dec 09 22:24:11 2022 -0700 +++ b/src/lwbasic.s Fri Dec 09 22:46:53 2022 -0700 @@ -1057,7 +1057,7 @@ tsta ; is there anything there at all (end of line)? beq immediate0 ; brif not - read another line ldx inputptr ; get the modified input pointer processing above - jsr tokenize ; tokenize the line at inputptr, return with result at tokebuff + jsr tokenize ; tokenize the line at inputptr, return with result at tokebuff and X jsr interpretline ; go interpret the tokenized line bra immediate ; go handle another line immediate1 bsr parse_lineno ; parse the line number @@ -1274,7 +1274,7 @@ ; a quoted string cmd_data ldx inputptr ; get input pointer cmd_data0 lda ,x+ ; get character at pointer - beq cmd_data2 ; brif end of line + beq cmd_data1 ; brif end of line cmpa #': ; end of statement? bne cmd_data1 ; brif not cmd_data1 leax -1,x ; move back to the NUL or colon