; Based on on code by Christian Groessler
;
; unsigned char __fastcall__ _syschdir (const char* name);
-; for SpartaDOS and MyDOS
+; for SpartaDOS, RealDOS, and MyDOS
;
.include "atari.inc"
.importzp tmp3
.import addysp
.import ucase_fn
+.ifdef DEFAULT_DEVICE
+ .importzp tmp2
+.endif
.endif
.export __syschdir
.ifdef UCASE_FILENAME
+.ifdef DEFAULT_DEVICE
+ ldy #$80
+ sty tmp2 ; set flag for ucase_fn
+.endif
jsr ucase_fn
bcc ucok1
lda __dos_type
cmp #SPARTADOS
beq :+
+ cmp #REALDOS
+ beq :+
+ cmp #BWDOS
+ beq :+
lda #CHDIR_MYDOS
.byte $2C ; BIT <abs>
: lda #CHDIR_SPDOS