2 ; Stefan Haubenthal, 2005-12-24
3 ; Christian Groessler, 2013-07-16
5 ; unsigned char __fastcall__ _sysrmdir (const char* name);
7 ; for SpartaDOS and MyDOS
30 bcc do_sparta ; OS/A and SpartaDOS
32 bne not_impl ; neither MyDOS, OS/A, nor SpartaDOS
34 jmp __sysremove ; MyDOS
51 bne iocberr ; no IOCB available
53 stx tmp4 ; remember IOCB
62 sty tmp2 ; set flag for ucase_fn
67 lda #183 ; see oserror.s
71 .endif ; defined UCASE_FILENAME
74 sta ICBAL,y ; store pointer to filename
93 jsr addysp ; free used space on the stack
96 .endif ; defined UCASE_FILENAME
105 .endproc ; __sysrmdir