sh: del command

applications/sh/commands/commands.asm

@@ -11,6 +11,11 @@ shell_parse_command:
     call compare_string
     ifz jmp shell_clear_command
 
+    ; del
+    mov r1, shell_del_command_string
+    call compare_string
+    ifz jmp shell_del_command
+
     ; dir
     mov r1, shell_dir_command_string
     call compare_string
@@ -74,6 +79,7 @@ shell_invalid_command_string: data.str "invalid command or FXF binary" data.8 10
 
     ; all commands
     #include "commands/clear.asm"
+    #include "commands/del.asm"
     #include "commands/dir.asm"
     #include "commands/disk.asm"
     #include "commands/diskrm.asm"

applications/sh/commands/del.asm

@@ -0,0 +1,21 @@
+; del command
+
+shell_del_command_string: data.strz "del"
+
+shell_del_command:
+    call shell_parse_arguments
+
+    mov r3, r0
+
+    call get_current_disk_id
+    mov r1, r0
+    mov r0, r3
+    mov r2, shell_type_command_file_struct
+    call open
+    cmp r0, 0
+    ifz jmp shell_type_command_file_not_found
+
+    mov r0, shell_type_command_file_struct
+    call delete
+
+    ret

applications/sh/commands/help.asm

@@ -17,6 +17,7 @@ shell_help_text:
     data.str "command | description" data.8 10
     data.str "------- | -----------" data.8 10
     data.str "clear   | clear the terminal contents" data.8 10
+    data.str "del     | delete file $0" data.8 10
     data.str "dir     | show contents of selected disk" data.8 10
     data.str "disk    | select disk $0" data.8 10
     data.str "diskrm  | remove disk $0" data.8 10