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
|
||||
|
||||
Reference in new issue
Block a user