# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1714857531 21600
# Node ID d5886daa4f65ae53593971f7a619d8c3f7348daf
# Parent  9d57279c900e04cfdfb0a3027821820689250ea6
Fix a less than brilliant branch target in token to keyword routine

diff -r 9d57279c900e -r d5886daa4f65 src/parse.s
--- a/src/parse.s	Tue Jan 09 22:54:42 2024 -0700
+++ b/src/parse.s	Sat May 04 15:18:51 2024 -0600
@@ -221,7 +221,7 @@
                 lda 1,s                         ; get back the token we need
                 bsr parse_wtdc2                 ; go handle the sub table
                 puls a                          ; get back the matched character
-                bcc parse_wtdc6                 ; brif it did match - record it and return
+                bcc parse_wtdc4                 ; brif it did match - record it and return
 parse_wtdc6     cmpx 1,s                        ; are we at the end of this table?
                 bne parse_wtdc3                 ; brif not - handle another table entry
                 coma                            ; make sure C is set for no match