Finally: Commodore file I/O

git-svn-id: svn://svn.cc65.org/cc65/trunk@1531 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-16 23:45:15 +00:00
parent 9e74c2b26f
commit 751aaee63d
23 changed files with 1023 additions and 273 deletions
--- a/libsrc/cbm/filedes.s
+++ b/libsrc/cbm/filedes.s
@@ -0,0 +1,37 @@
+;
+; Ullrich von Bassewitz, 16.11.2002
+;
+; File descriptor management for the POSIX I/O routines
+;
+
+
+        .include        "filedes.inc"
+
+.code
+
+;--------------------------------------------------------------------------
+; freefd: Find a free file handle and return it in X. Return carry clear if we
+; found one, return a carry if no free lfns are left.
+
+.proc   freefd
+
+        ldx     #0
+        clc
+loop:   lda     fdtab,x
+        beq     found
+        inx
+        cpx     #MAX_FDS
+        bcc     loop
+found:  rts
+
+.endproc
+
+;--------------------------------------------------------------------------
+; Data
+
+.bss
+fdtab:  .res    MAX_FDS
+unittab:.res    MAX_FDS
+
+
+