Mercurial > hg > index.cgi
changeset 31:e74a975b38d9
Enable and correct logic error in immediate mode line interpretation
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Mon, 21 Nov 2022 22:22:01 -0700 |
| parents | 4488ed12bb67 |
| children | 0a476b3e0ec4 |
| files | src/lwbasic.s |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lwbasic.s Mon Nov 21 22:10:33 2022 -0700 +++ b/src/lwbasic.s Mon Nov 21 22:22:01 2022 -0700 @@ -1039,7 +1039,7 @@ beq immediate0 ; brif not - read another line ldx inputptr ; get the modified input pointer processing above jsr tokenize ; tokenize the line at inputptr, return with result at tokebuff -; jsr interpretline ; go interpret the tokenized line + jsr interpretline ; go interpret the tokenized line bra immediate ; go handle another line immediate1 ; handle line insert/delete/modify bra immediate0 @@ -1072,7 +1072,7 @@ interpret3 jsr nextchar ; fetch first character of next statement beq interpret ; brif end of statement - do the next statement dance ;lbpl cmd_let ; brif no command - do assignment (LET command is optional) - ldx primaryjump ; point to jump table + ldx #primaryjump ; point to jump table anda #0x7f ; lose bit 7 leax a,x ; get half way to the correct offset ldx a,x ; get the address the other half of the way from here