implement STOP and END commands
This commit is contained in:
1 parent
699cc73b70
commit
a34581e3ea
4 files changed
+26
-25
No files matched your search
@@ -0,0 +1,23 @@
|
||||
cmd_stop:
|
||||
basic_do_break:
|
||||
jsr printf
|
||||
.byte "BREAK",0
|
||||
|
||||
;; Check for direct mode
|
||||
;; Are we in direct mode
|
||||
lda basic_current_line_number+1
|
||||
cmp #$ff
|
||||
beq +
|
||||
;; Not direct mode
|
||||
jsr printf
|
||||
.byte " IN ",0
|
||||
lda basic_current_line_number+1
|
||||
ldx basic_current_line_number+0
|
||||
jsr print_integer
|
||||
|
||||
*
|
||||
lda #$0d
|
||||
jsr $ffd2
|
||||
cmd_end:
|
||||
jmp basic_main_loop
|
||||
|
||||
+3
-23
@@ -21,31 +21,11 @@ list_loop:
|
||||
;; (Confirmed by testing on a C64)
|
||||
jmp basic_main_loop
|
||||
|
||||
basic_do_break:
|
||||
jsr printf
|
||||
.byte "BREAK",0
|
||||
|
||||
;; Check for direct mode
|
||||
;; Are we in direct mode
|
||||
lda basic_current_line_number+1
|
||||
cmp #$ff
|
||||
beq +
|
||||
;; Not direct mode
|
||||
jsr printf
|
||||
.byte " IN ",0
|
||||
lda basic_current_line_number+1
|
||||
ldx basic_current_line_number+0
|
||||
jsr print_integer
|
||||
|
||||
*
|
||||
lda #$0d
|
||||
jsr $ffd2
|
||||
jmp basic_main_loop
|
||||
|
||||
list_more_lines:
|
||||
lda BUCKYSTATUS
|
||||
bpl basic_do_break
|
||||
|
||||
bmi +
|
||||
jmp basic_do_break
|
||||
*
|
||||
;; Print line number
|
||||
ldy #3
|
||||
jsr peek_under_roms
|
||||
|
||||
@@ -1,6 +1,5 @@
|
||||
;; Default handler for all not-yet-implemented commands
|
||||
|
||||
cmd_end:
|
||||
cmd_for:
|
||||
cmd_next:
|
||||
cmd_data:
|
||||
@@ -15,7 +14,6 @@ cmd_gosub:
|
||||
cmd_return:
|
||||
|
||||
;; $90-$9F
|
||||
cmd_stop:
|
||||
cmd_on:
|
||||
cmd_wait:
|
||||
cmd_save:
|
||||
|
||||
Reference in new issue
Block a user