2 ; Stefan Haubenthal, 2005-12-24
3 ; Based on on code by Christian Groessler
5 ; unsigned char __fastcall__ _syschdir (const char* name);
6 ; for SpartaDOS and MyDOS
26 pha ; save input parameter
31 beq iocbok ; we found one
36 lda #TMOF ; too many open files
39 iocbok: stx tmp4 ; remember IOCB index
42 pla ; get argument again
48 sty tmp2 ; set flag for ucase_fn
53 lda #183 ; see oserror.s
57 .endif ; defined UCASE_FILENAME
60 sta ICBAL,y ; store pointer to filename
83 jsr addysp ; free used space on the stack
86 .endif ; defined UCASE_FILENAME