2 ; Christian Groessler, Aug-2003
4 ; int remove (const char* name);
23 pha ; save input parameter
28 beq iocbok ; we found one
33 lda #TMOF ; too many open files
36 iocbok: stx tmp4 ; remember IOCB index
39 pla ; get argument again
45 sty tmp2 ; set flag for ucase_fn
50 lda #183 ; see oserror.s
54 .endif ; defined UCASE_FILENAME
57 sta ICBAL,y ; store pointer to filename
75 jsr addysp ; free used space on the stack
78 .endif ; defined UCASE_FILENAME
86 .endproc ; __sysremove