Mercurial > hg > index.cgi
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?