# HG changeset patch # User William Astle # Date 1669094521 25200 # Node ID e74a975b38d913bce16cf277a82b9450954a14d0 # Parent 4488ed12bb67d72c542164505b8f380be128ece7 Enable and correct logic error in immediate mode line interpretation diff -r 4488ed12bb67 -r e74a975b38d9 src/lwbasic.s --- 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