Mercurial > hg > index.cgi
diff src/progctrl.s @ 136:e49bd0493baf
Checkpoint updates to immediate mode program editing and some memory handling
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Fri, 12 Jul 2024 23:29:45 -0600 |
| parents | 917b4893bb3d |
| children |
line wrap: on
line diff
--- a/src/progctrl.s Tue Jul 09 22:18:30 2024 -0600 +++ b/src/progctrl.s Fri Jul 12 23:29:45 2024 -0600 @@ -91,12 +91,12 @@ jsr curchar ; what do we have as an argument? bcs cmd_goto ; brif a digit - it's a line number (RUN ###); do GOTO lbne SNERROR ; brif anything else on the line - not legit command - ldx progtext ; point to start of program + ldx prog_text ; point to start of program bra cmd_goto0 ; go transfer control to the start of the program ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; GOTO command cmd_goto jsr parse_lineno ; parse the line number -cmd_gosub0 jsr prog_findlinecl ; go look up line number +cmd_gosub0 jsr prog_findline ; go look up line number bcc cmd_goto0 ; brif line found ULERROR ldb #err_ul ; raise undefined line error jmp ERROR