Atari: RealDOS adaptations

RealDOS is a SpartaDOS clone. Handle it the same way as SpartaDOS.

diff --git a/libsrc/atari/lseek.s b/libsrc/atari/lseek.s
index 889976f5bbfd20ec6f79a8c18d5d886948659ac6..462f2f90b746f50662d4a84d5abb4583790d93b7 100644 (file)
--- a/libsrc/atari/lseek.s
+++ b/libsrc/atari/lseek.s
@@ -176,7 +176,7 @@ seek:   jsr     ldax0sp         ; get lower word of new offset
 
 .endproc
 
-; check, whether seeking is supported
+; check whether seeking is supported
 ; tmp3:         iocb
 ; X:            index into fd_table
 ;
@@ -194,8 +194,10 @@ chk_supp:
 ; do the test
         lda     __dos_type
         cmp     #SPARTADOS
+        beq     :+
+        cmp     #REALDOS
         bne     ns1
-        txa
+:       txa
         pha
         lda     DOS+1           ; get SpartaDOS version
         cmp     #$40

diff --git a/libsrc/atari/syschdir.s b/libsrc/atari/syschdir.s
index d577083849136996613fcba3d892765ba46c6996..9e4c33a1967b669d7c262ad0826d299faf99391a 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"
@@ -65,6 +65,8 @@ ucok1:
         lda     __dos_type
         cmp     #SPARTADOS
         beq     :+
+        cmp     #REALDOS
+        beq     :+
         lda     #CHDIR_MYDOS
         .byte   $2C             ; BIT <abs>
 :       lda     #CHDIR_SPDOS