;
; Ullrich von Bassewitz, 16.11.2002
;
; File descriptor management for the POSIX I/O routines
;


        .include        "cbm.inc"
        .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

.data

fdtab:  .byte   LFN_READ
        .byte   LFN_WRITE
        .byte   LFN_WRITE
        .res    MAX_FDS-3

unittab:.byte   CBMDEV_KBD
        .byte   CBMDEV_SCREEN
        .byte   CBMDEV_SCREEN
        .res    MAX_FDS-3