Atari: add support for BW-DOS. Initially contributed by Daniel Serpell.

[cc65] / libsrc / atari / syschdir.s

diff --git a/libsrc/atari/syschdir.s b/libsrc/atari/syschdir.s
index 16cb3a1febcc9b94046f212521cadd35a4a729ff..f493fea54dd5094461271e5a36aca8b2a05063b3 100644 (file)
--- a/libsrc/atari/syschdir.s
+++ b/libsrc/atari/syschdir.s
@@ -3,7 +3,7 @@
 ; 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"
@@ -15,6 +15,9 @@
         .importzp tmp3
         .import addysp
         .import ucase_fn
+.ifdef  DEFAULT_DEVICE
+        .importzp tmp2
+.endif
 .endif
         .export __syschdir
 
@@ -40,6 +43,10 @@ iocbok: stx     tmp4            ; remember IOCB index
 
 .ifdef  UCASE_FILENAME
 
+.ifdef  DEFAULT_DEVICE
+        ldy     #$80
+        sty     tmp2            ; set flag for ucase_fn
+.endif
         jsr     ucase_fn
         bcc     ucok1
 
@@ -58,6 +65,10 @@ ucok1:
         lda     __dos_type
         cmp     #SPARTADOS
         beq     :+
+        cmp     #REALDOS
+        beq     :+
+        cmp     #BWDOS
+        beq     :+
         lda     #CHDIR_MYDOS
         .byte   $2C             ; BIT <abs>
 :       lda     #CHDIR_SPDOS