Implemented rewinddir/seekdir.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5676 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-06-03 15:11:32 +00:00
parent 5f43589885
commit c40b54ee6c
5 changed files with 91 additions and 5 deletions
--- a/libsrc/cbm/rewinddir.s
+++ b/libsrc/cbm/rewinddir.s
@@ -0,0 +1,25 @@
+;
+; Ullrich von Bassewitz, 2012-06-03
+;
+; Based on C code by Groepaz
+;
+; void __fastcall__ rewinddir (DIR *dir);
+;
+
+
+        .include        "dir.inc"
+        .include        "zeropage.inc"
+
+        .import         pushax
+
+.proc   _rewinddir
+
+        jsr     pushax          ; Push dir
+        ldx     #0
+        stx     sreg+1
+        stx     sreg
+        lda     #32             ; Pass 32 as offset ...
+        jmp     _seekdir        ; ... to seekdir
+
+.endproc
+