# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1704684951 25200
# Node ID 0607e4e207029150132d4ad751ca59ddcaa546db
# Parent  8770e6f977c3fad820676399569299dbbf0fe524
Correct offset error for keyword table lookup

diff -r 8770e6f977c3 -r 0607e4e20702 src/parse.s
--- a/src/parse.s	Mon Jan 01 15:57:59 2024 -0700
+++ b/src/parse.s	Sun Jan 07 20:35:51 2024 -0700
@@ -148,7 +148,7 @@
                 addd 1,s                        ; calculate the address of the end of the table
                 std 1,s                         ; save end address for comparison later
                 lda ,s                          ; get back input character
-parse_wordtab1  ldb -1,x                        ; fetch token code for this entry
+parse_wordtab1  ldb 1,x                         ; fetch token code for this entry
                 cmpa ,x++                       ; does this entry match?
                 bne parse_wordtab4              ; brif not
                 cmpb #token_eot                 ; is it indicating a sub table?