/*
 * unlink — удалить файл через ESTEX DELETE ($0E).
 *   HL = ASCIIZ-путь; CF=err с кодом в A.  При ошибке ставит errno.
 */

#include <unistd.h>

int unlink(const char *path) __naked
{
    (void)path;
    __asm
        push  ix
        ld    c, #0x0E              ; ESTEX DELETE (HL = имя файла, A = атрибут)
        rst   #0x10
        pop   ix
        jr    c, _unlink_err
        ld    de, #0
        ret
    _unlink_err:
        call  __errno_set
        ld    de, #-1
        ret
    __endasm;
}