remove.asm
bitfixer_bitfixer/dg/z88dk/libsrc/fcntl/z88/remove.asm
;
; Small C z88 File functions
; Written by Dominic Morris <djm@jb.man.ac.uk>
; 30 September 1998 ** UNTESTED **
;
; *** THIS IS A Z88 SPECIFIC ROUTINE!!! ***

; This doesn't check for validity of filename at all.
;
; 27/4/99 Now takes a far char *name
;
; 15/4/2000 Takes a near again (can change but effort!)
;
;
;	$Id: remove.asm,v 1.3 2015/01/19 01:32:44 pauloscustodio Exp $
;

                INCLUDE "fileio.def"
                INCLUDE "stdio.def"

                PUBLIC    remove

;int remove(char *name)

.remove
        pop     de
        pop     hl      ;dest filename
        push    hl
        push    de
	ld	b,0
        call_oz(gn_del)
        ld      hl,0
        ret     nc
        dec     hl      ;=1
        ret

