P8000/WEGA/contrib/lcc/lib/libc/port/stdio/findiop.c

#include <stdio.h>

extern FILE *_lastbuf;

FILE *
_findiop()
{
	register FILE *iop;

	for(iop = _iob; iop->_flag & (_IOREAD | _IOWRT | _IORW); iop++)
		if(iop >= _lastbuf)
			return(NULL);
	return(iop);
}