mirror of
https://github.com/cc65/cc65.git
synced 2024-12-27 15:29:46 +00:00
38 lines
670 B
ArmAsm
38 lines
670 B
ArmAsm
|
;
|
||
|
|
; 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
|
||
|
|
|
||
|
|
|
||
|
|
|