work on getting BASIC line number entry working.

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-27 23:00:20 +09:30
1 parent bd4af88e02
commit eef572e0ab
8 files changed
+126 -8

No files matched your search

+33
View File
@@ -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