Mercurial > hg > index.cgi
changeset 44:c04068c37316
Fix incorrect branch destinations when handling DATA tokenization
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Fri, 09 Dec 2022 22:17:34 -0700 |
| parents | b27b34d0afff |
| children | 952bfb5c76fb |
| files | src/lwbasic.s |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Fri Dec 09 22:00:17 2022 -0700 +++ b/src/lwbasic.s Fri Dec 09 22:17:34 2022 -0700 @@ -1374,11 +1374,11 @@ tokenize5 cmpa #': ; end of statement? bne tokenize6 ; brif not clr 1,s ; reset "in data" flag - bra tokenize0a ; stash it and continue + bra tokenize2 ; stash it and continue tokenize6 cmpa #0x20 ; is it a space? - beq tokenize0a ; brif so - stash it unmodified + beq tokenize2 ; brif so - stash it unmodified tst 1,s ; are we "in data"? - bne tokenize0a ; brif so - don't tokenize it + bne tokenize2 ; brif so - don't tokenize it cmpa #'' ; ' shortcut for remark? bne tokenize9 ; brif not ldd #':*256+tok_apos ; put token for ' and an implied colon @@ -1388,7 +1388,7 @@ bne tokenize8 ; brif not end of input bra tokenize0b ; go finish up tokenize9 bsr setcifdigit ; is it a digit? - bcs tokenize0a ; brif so - pass it through + bcs tokenize2 ; brif so - pass it through tsta ; is the high bit set? bmi tokenize0 ; ignore it if so ldu #primarydict ; point to keyword table