2 ; Christian Groessler, Dec-2001
4 ; int remove (const char* name);
9 .import findfreeiocb,incsp2,__do_oserror
10 .import popax,__oserror,__seterrno
22 beq iocbok ; we found one
24 jsr incsp2 ; discard stack argument
25 lda #<EMFILE ; "too many open files"
27 seterr: jsr __seterrno
32 iocbok: ;stx tmp1 ; remember IOCB index
41 lda #<EINVAL ; file name is too long
46 .endif ; defined UCASE_FILENAME
71 jsr addysp ; free used space on the stack
74 .endif ; defined UCASE_FILENAME
83 cioerr: jmp __do_oserror