34 lines
600 B
ArmAsm
34 lines
600 B
ArmAsm
|
|
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
|
|
|
|
|