39 lines
852 B
NASM
39 lines
852 B
NASM
; disk command
|
|
|
|
shell_disk_command_string: data.strz "disk"
|
|
|
|
shell_disk_command:
|
|
call shell_parse_arguments
|
|
mov r1, 10
|
|
call string_to_int
|
|
|
|
; r0: disk ID
|
|
|
|
; check if it's in range
|
|
cmp r0, 4
|
|
ifgt jmp shell_disk_command_out_of_range
|
|
ifnz jmp shell_disk_command_is_disk
|
|
|
|
call is_romdisk_available
|
|
ifnz ret
|
|
jmp shell_disk_command_is_romdisk
|
|
shell_disk_command_is_disk:
|
|
; OR it with the IO port to get the current insert state of a disk
|
|
or r0, 0x80001000
|
|
in r1, r0
|
|
cmp r1, 0
|
|
ifz ret
|
|
shell_disk_command_is_romdisk:
|
|
; set the current disk ID
|
|
call set_current_disk_id
|
|
|
|
ret
|
|
|
|
shell_disk_command_out_of_range:
|
|
mov r0, shell_disk_command_out_of_range_string
|
|
call print_str_to_terminal
|
|
|
|
ret
|
|
|
|
shell_disk_command_out_of_range_string: data.str "invalid disk ID" data.8 10 data.8 0
|