Mercurial > hg > index.cgi
changeset 42:1f74c2df443f
Fix jump target for case where keyword lookup finds nothing
author | William Astle <lost@l-w.ca> |
---|---|
date | Fri, 09 Dec 2022 21:34:31 -0700 |
parents | 090db8c5d509 |
children | b27b34d0afff |
files | src/lwbasic.s |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Wed Nov 23 22:26:20 2022 -0700 +++ b/src/lwbasic.s Fri Dec 09 21:34:31 2022 -0700 @@ -1404,7 +1404,7 @@ puls d,x ; get back input pointer and clear stack temporaries com ,s ; set "not token flag" lda ,x+ ; get character - bra tokenize0a ; stash it and continue + bra tokenize2 ; stash it and continue tokenize11 ldx 2,s ; get back start of input token tokenize12 ldb ,x+ ; get input character cmpb #'z ; is it above lower case Z?