implement RUN command. Show line number in errors when in program mode.
This commit is contained in:
1 parent
995dc52967
commit
7c960fd6b4
3 files changed
+23
-1
No files matched your search
@@ -0,0 +1,11 @@
|
|||||||
|
cmd_run:
|
||||||
|
;; XXX - Parse starting line number
|
||||||
|
|
||||||
|
;; Reset line pointer to first line of program.
|
||||||
|
lda basic_start_of_text_ptr+0
|
||||||
|
sta basic_current_line_ptr+0
|
||||||
|
lda basic_start_of_text_ptr+1
|
||||||
|
sta basic_current_line_ptr+1
|
||||||
|
|
||||||
|
;; Run it!
|
||||||
|
jmp basic_execute_from_current_line
|
||||||
@@ -10,7 +10,6 @@ cmd_dim:
|
|||||||
cmd_read:
|
cmd_read:
|
||||||
cmd_let:
|
cmd_let:
|
||||||
cmd_goto:
|
cmd_goto:
|
||||||
cmd_run:
|
|
||||||
cmd_if:
|
cmd_if:
|
||||||
cmd_restore:
|
cmd_restore:
|
||||||
cmd_gosub:
|
cmd_gosub:
|
||||||
|
|||||||
@@ -22,6 +22,18 @@ do_basic_error:
|
|||||||
ldx #33
|
ldx #33
|
||||||
jsr print_packed_message
|
jsr print_packed_message
|
||||||
|
|
||||||
|
lda basic_current_line_number+1
|
||||||
|
cmp #$ff
|
||||||
|
beq +
|
||||||
|
|
||||||
|
;; We were in a program, so show IN <line>
|
||||||
|
jsr printf
|
||||||
|
.byte " IN ",0
|
||||||
|
|
||||||
|
lda basic_current_line_number+1
|
||||||
|
ldx basic_current_line_number+0
|
||||||
|
jsr print_integer
|
||||||
|
*
|
||||||
;; New lines
|
;; New lines
|
||||||
lda #$0d
|
lda #$0d
|
||||||
jsr $ffd2
|
jsr $ffd2
|
||||||
|
|||||||
Reference in new issue
Block a user