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
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
46 lda #183 ; see oserror.s
50 .endif ; defined UCASE_FILENAME
53 sta ICBAL,y ; store pointer to filename
76 jsr addysp ; free used space on the stack
79 .endif ; defined UCASE_FILENAME