BASIC Interpreter from MikeOS is functioning
This commit is contained in:
@@ -17,12 +17,30 @@ util_cat:
|
||||
util_ls:
|
||||
pusha
|
||||
|
||||
call disk_clear_output_buffer
|
||||
call disk_load_root
|
||||
call disk_list_contents
|
||||
|
||||
mov si, output_buffer
|
||||
call os_print_string
|
||||
call disk_clear_output_buffer
|
||||
|
||||
popa
|
||||
ret
|
||||
|
||||
util_basic:
|
||||
pusha
|
||||
|
||||
call disk_load_root
|
||||
|
||||
; TODO make this more consistent to account for double spaces
|
||||
;add si, 3 ; Move si to after 'BAS'
|
||||
call disk_load_file
|
||||
|
||||
mov si, file_buffer
|
||||
|
||||
mov ax, si
|
||||
mov si, 0
|
||||
call basic_run_basic
|
||||
|
||||
popa
|
||||
ret
|
||||
|
||||
Reference in New Issue
Block a user