Mercurial > hg > index.cgi
diff src/progctrl.s @ 128:9d57279c900e
Remove old style keyword lists and jump tables
As part of the move to the new pre-parsing scheme, remove the old keyword
lists and jump tables. The main loop still needs modification to work with
this new system.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Tue, 09 Jan 2024 22:54:42 -0700 |
| parents | a6a53e5c04bd |
| children | 917b4893bb3d |
line wrap: on
line diff
--- a/src/progctrl.s Tue Jan 09 22:47:11 2024 -0700 +++ b/src/progctrl.s Tue Jan 09 22:54:42 2024 -0700 @@ -105,7 +105,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; GOSUB command cmd_gosub jsr parse_lineno ; parse the destination line so return location is after the line number - ldd #tok_gosub*256+4 ; stack frame details + ldd #token_gosub*256+4 ; stack frame details jsr cstack_alloc ; make a stack frame ldx curline ; save current line pointer stx ,u @@ -127,7 +127,7 @@ jmp ERROR cmd_return0 jsr cstack_next ; move to next entry beq RG_ERROR ; brif end of stack - raise error -cmd_return1 cmpb #tok_gosub ; do we have a GOSUB frame? +cmd_return1 cmpb #token_gosub ; do we have a GOSUB frame? bne cmd_return0 ; brif not - try again lda ,s+ ; is it "POP"? bne cmd_return2 ; brif so - don't change flow control but clear stack frame