Port atari cc65 sysremove (remove())

llvm-mos · May 31, 2024 · 5fcba40 · 5fcba40
1 parent 8ed2b87
commit 5fcba40
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 0 deletions.
diff --git a/mos-platform/atari8-common/CMakeLists.txt b/mos-platform/atari8-common/CMakeLists.txt
@@ -38,6 +38,7 @@ add_platform_library(atari8-common-c
   open.s
   oserror.s
   rwcommon.s
+  sysremove.s
   write.s
 )
 target_include_directories(atari8-common-c BEFORE PUBLIC .)

diff --git a/mos-platform/atari8-common/sysremove.s b/mos-platform/atari8-common/sysremove.s
@@ -0,0 +1,38 @@
+;
+; Christian Groessler, Aug-2003
+;
+; int remove (const char* name);
+;
+
+        .include "atari.inc"
+        .include "errno.inc"
+        .include "imag.inc"
+        .globl __sysremove
+
+__sysremove:
+
+        jsr     findfreeiocb
+        beq     iocbok          ; we found one
+
+        lda     #TMOF           ; too many open files
+        rts
+
+iocbok: lda     __rc2
+        sta     ICBAL,x         ; store pointer to filename
+        lda     __rc3
+        sta     ICBAH,x
+        lda     #DELETE
+        sta     ICCOM,x
+        lda     #0
+        sta     ICAX1,x
+        sta     ICAX2,x
+        sta     ICBLL,x
+        sta     ICBLH,x
+        jsr     CIOV
+
+        bmi     cioerr
+        lda     #0
+        rts
+cioerr: tya
+        rts
+