BASIC Interpreter from MikeOS is functioning
This commit is contained in:
@@ -173,7 +173,7 @@ disk_clear_output_buffer:
|
||||
; TODO use predefined data for calculations
|
||||
disk_load_file:
|
||||
pusha
|
||||
call os_string_length ; cl = string length
|
||||
call string_length ; cl = string length
|
||||
cmp cl, 11
|
||||
ja .filename_too_long
|
||||
|
||||
@@ -244,7 +244,7 @@ disk_load_file:
|
||||
disk_write_file:
|
||||
pusha
|
||||
; Check if file name is too long
|
||||
call os_string_length ; cl = string length
|
||||
call string_length ; cl = string length
|
||||
cmp cl, 11
|
||||
ja .filename_too_long
|
||||
; Convert file name to a fat filename
|
||||
@@ -302,6 +302,7 @@ disk_write_file:
|
||||
ret
|
||||
|
||||
; TODO support long file names
|
||||
; TODO don't work twice
|
||||
; Store a list of the files in file_buffer
|
||||
; in a human readable format
|
||||
; OUT
|
||||
@@ -374,3 +375,14 @@ disk_list_contents:
|
||||
stosb
|
||||
popa
|
||||
ret
|
||||
|
||||
disk_file_exists:
|
||||
ret
|
||||
disk_file_size:
|
||||
ret
|
||||
disk_file_list:
|
||||
ret
|
||||
disk_remove_file:
|
||||
ret
|
||||
disk_rename_file:
|
||||
ret
|
||||
|
||||
Reference in New Issue
Block a user