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?