implement STOP and END commands

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-13 03:47:34 +09:30
1 parent 699cc73b70
commit a34581e3ea
4 files changed
+26 -25

No files matched your search

+23
View File
@@ -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
View File
@@ -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
-2
View File
@@ -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:
BIN
View File
Binary file not shown.