work on getting BASIC line number entry working.
This commit is contained in:
1 parent
bd4af88e02
commit
eef572e0ab
8 files changed
+126
-8
No files matched your search
@@ -0,0 +1,33 @@
|
||||
|
||||
cmd_new:
|
||||
jsr basic_do_new
|
||||
jmp basic_main_loop
|
||||
|
||||
cmd_clr:
|
||||
jsr basic_do_clr
|
||||
jmp basic_main_loop
|
||||
|
||||
basic_do_new:
|
||||
;; Setup pointers to memory storage
|
||||
lda #<$0801
|
||||
sta basic_start_of_text_ptr+0
|
||||
lda >$0801
|
||||
sta basic_start_of_text_ptr+1
|
||||
sta basic_start_of_vars_ptr+1
|
||||
lda #<$0803
|
||||
sta basic_start_of_vars_ptr+0
|
||||
|
||||
;; FALL THROUGH
|
||||
|
||||
basic_do_clr:
|
||||
;; Clear variables, arrays and strings
|
||||
lda basic_start_of_vars_ptr+0
|
||||
sta basic_start_of_arrays_ptr+0
|
||||
sta basic_start_of_free_space_ptr+0
|
||||
lda basic_start_of_vars_ptr+1
|
||||
sta basic_start_of_arrays_ptr+1
|
||||
sta basic_start_of_free_space_ptr+1
|
||||
|
||||
rts
|
||||
|
||||
|
||||
Reference in new issue
Block a user