git.sur5r.net Git - cc65/blob - libsrc/cbm/filedes.s

   1 ;
   2 ; Ullrich von Bassewitz, 16.11.2002
   3 ;
   4 ; File descriptor management for the POSIX I/O routines
   5 ;
   6
   7
   8         .include        "filedes.inc"
   9
  10 .code
  11
  12 ;--------------------------------------------------------------------------
  13 ; freefd: Find a free file handle and return it in X. Return carry clear if we
  14 ; found one, return a carry if no free lfns are left.
  15
  16 .proc   freefd
  17
  18         ldx     #0
  19         clc
  20 loop:   lda     fdtab,x
  21         beq     found
  22         inx
  23         cpx     #MAX_FDS
  24         bcc     loop
  25 found:  rts
  26
  27 .endproc
  28
  29 ;--------------------------------------------------------------------------
  30 ; Data
  31
  32 .bss
  33 fdtab:  .res    MAX_FDS
  34 unittab:.res    MAX_FDS
  35
  36
  37