# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1670649454 25200
# Node ID c04068c3731626f83372ce356d061fc1eabf651c
# Parent  b27b34d0afff951b359f83fed4efc728c91b1e3d
Fix incorrect branch destinations when handling DATA tokenization

diff -r b27b34d0afff -r c04068c37316 src/lwbasic.s
--- 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