parse line number argument in RUN statement
This commit is contained in:
1 parent
65af677caa
commit
6df769320a
1 file changed
+10
-6
+10
-6
@@ -1,15 +1,19 @@
|
|||||||
cmd_run:
|
cmd_run:
|
||||||
;; XXX - Parse starting line number
|
|
||||||
|
|
||||||
jsr basic_end_of_statement_check
|
|
||||||
bcc +
|
|
||||||
|
|
||||||
*
|
|
||||||
;; Reset line pointer to first line of program.
|
;; Reset line pointer to first line of program.
|
||||||
lda basic_start_of_text_ptr+0
|
lda basic_start_of_text_ptr+0
|
||||||
sta basic_current_line_ptr+0
|
sta basic_current_line_ptr+0
|
||||||
lda basic_start_of_text_ptr+1
|
lda basic_start_of_text_ptr+1
|
||||||
sta basic_current_line_ptr+1
|
sta basic_current_line_ptr+1
|
||||||
|
|
||||||
|
jsr basic_end_of_statement_check
|
||||||
|
bcs +
|
||||||
|
|
||||||
|
jsr basic_parse_line_number
|
||||||
|
jsr basic_find_line
|
||||||
|
bcc +
|
||||||
|
;; Undefined Statement Error
|
||||||
|
ldx #16
|
||||||
|
jmp do_basic_error
|
||||||
|
*
|
||||||
;; Run it!
|
;; Run it!
|
||||||
jmp basic_execute_from_current_line
|
jmp basic_execute_from_current_line
|
||||||
Reference in new issue
Block a user