shortened BASIC commands jumptable handling
This commit is contained in:
1 parent
3a885a2d14
commit
5a2f847cb6
2 files changed
+34
-76
No files matched your search
@@ -32,6 +32,11 @@ execute_statements:
|
||||
cmp #$7F
|
||||
bcc_16 do_SYNTAX_error // branch if not a token XXX here we should handle variable assignments
|
||||
|
||||
cmp #$A9
|
||||
bcs execute_statements_extended
|
||||
|
||||
execute_statements_run_token:
|
||||
|
||||
// Initialize temporary string stack - just about any statement might need it
|
||||
// XXX original C64 ROM initializes this during the startup too - not sure where to put this
|
||||
|
||||
@@ -63,6 +68,21 @@ execute_statements:
|
||||
#endif
|
||||
|
||||
|
||||
execute_statements_extended:
|
||||
|
||||
cmp #$CB
|
||||
bne !+
|
||||
|
||||
// 'GO' command has a strande token, after functions
|
||||
|
||||
lda #$A9
|
||||
bne execute_statements_run_token
|
||||
!:
|
||||
// XXX here is the place for possible extended BASIC command set
|
||||
|
||||
jmp do_SYNTAX_error
|
||||
|
||||
|
||||
execute_statements_end_of_line:
|
||||
|
||||
// First check, if we are in direct mode - if so,
|
||||
|
||||
Reference in new issue
Block a user