mirror of
https://github.com/cc65/cc65.git
synced 2024-08-19 17:29:37 +00:00
35 lines
942 B
C
35 lines
942 B
C
/*
|
|
* Marc 'BlackJack' Rintsch, 19.03.2001
|
|
*
|
|
* int cbm_read(unsigned char lfn, void* buffer, unsigned int size);
|
|
*/
|
|
|
|
#include <cbm.h>
|
|
#include <errno.h>
|
|
|
|
int cbm_read(unsigned char lfn, void* buffer, unsigned int size)
|
|
{
|
|
static unsigned int bytesread;
|
|
static unsigned char tmp;
|
|
|
|
/* if we can't change to the inputchannel #lfn then return an error */
|
|
if (_oserror = cbm_k_chkin(lfn)) return -1;
|
|
|
|
bytesread = 0;
|
|
|
|
while (bytesread<size && !cbm_k_readst()) {
|
|
tmp = cbm_k_basin();
|
|
|
|
/* the kernal routine BASIN sets ST to EOF if the end of file
|
|
* is reached the first time, then we have store tmp.
|
|
* every subsequent call returns EOF and READ ERROR in ST, then
|
|
* we have to exit the loop here immidiatly. */
|
|
if (cbm_k_readst() & 0xBF) break;
|
|
|
|
((unsigned char*)buffer)[bytesread++] = tmp;
|
|
}
|
|
|
|
cbm_k_clrch();
|
|
return bytesread;
|
|
}
|