diff src/parse.s @ 125:0607e4e20702

Correct offset error for keyword table lookup
author William Astle <lost@l-w.ca>
date Sun, 07 Jan 2024 20:35:51 -0700
parents 8770e6f977c3
children ac183a519439
line wrap: on
line diff
--- 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?