mirror of https://github.com/cc65/cc65.git
111 lines
2.6 KiB
C
111 lines
2.6 KiB
C
/*
|
|
** simple file I/O test
|
|
**
|
|
** 12-Jun-2000, Christian Groessler
|
|
**
|
|
** please compile with
|
|
** cl65 -tsystem ft.c getsp.s -o ft.com
|
|
**
|
|
** The program asks for a filename (if it hasn't
|
|
** got one from argv). I then opens the file,
|
|
** reads the first 16 bytes and displays them
|
|
** (as hex values).
|
|
** The values of sp (cc65 runtime stack pointer)
|
|
** are displayed at some places. The displayed
|
|
** value should always be the same.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include <conio.h>
|
|
#include <unistd.h>
|
|
|
|
extern int getsp(void); /* is provided in getsp.s */
|
|
|
|
/* Atari's fd indirection table */
|
|
#ifdef __ATARI__
|
|
extern char __fd_index[];
|
|
struct fd_t {
|
|
char usage;
|
|
char iocb;
|
|
char dev;
|
|
char flag;
|
|
};
|
|
extern struct fd_t __fd_table[];
|
|
#endif
|
|
|
|
int main(int argc,char **argv)
|
|
{
|
|
char *filename,*x;
|
|
char buf[20];
|
|
int i,l,lr;
|
|
int fd;
|
|
int csp;
|
|
|
|
if (argc >= 2) {
|
|
filename = *(argv+1);
|
|
}
|
|
else {
|
|
printf("\nfilename: ");
|
|
x = fgets(buf,19,stdin);
|
|
printf("\n");
|
|
if (!x) {
|
|
printf("nothing read\n");
|
|
return(0);
|
|
}
|
|
#if 0
|
|
l = strlen(x);
|
|
printf("read: ");
|
|
for (i=0; i<l; i++) printf("%02X ",*(x+i)); printf("\n");
|
|
#endif
|
|
filename = x;
|
|
}
|
|
printf("using filename \"%s\"\n",filename);
|
|
csp = getsp();
|
|
printf("now opening file... sp = %d\n",csp);
|
|
fd = open(filename,O_RDONLY);
|
|
csp = getsp();
|
|
if (fd == -1) {
|
|
char x1 = _oserror;
|
|
printf("open failed: os: %d,\n\terrno: %d, sp = %d\n",x1,errno,csp);
|
|
cgetc();
|
|
return(0);
|
|
}
|
|
printf("open success -- handle = $%x, sp = %d\n",fd,csp);
|
|
#ifdef __ATARI__
|
|
printf("fd_index:\n ");
|
|
for (i=0; i<12; i++) printf("%02X ",__fd_index[i]);
|
|
printf("\nfd_table:\n");
|
|
for (i=0; i<8; i++) {
|
|
printf(" usa: %d, iocb: %02X, dev: %02X\n",
|
|
__fd_table[i].usage,
|
|
__fd_table[i].iocb,
|
|
__fd_table[i].dev);
|
|
}
|
|
#endif
|
|
lr = read(fd,buf,16); /* read first 16 bytes */
|
|
csp = getsp();
|
|
if (lr == -1) {
|
|
printf("read failed: %d (sp = %d)\n",errno,csp);
|
|
cgetc();
|
|
return(0);
|
|
}
|
|
l = close(fd);
|
|
if (l == -1) {
|
|
printf("close failed: %d\n",errno);
|
|
cgetc();
|
|
return(0);
|
|
}
|
|
csp = getsp();
|
|
printf("\n\nThe data read: (%d bytes, sp = %d)\n",lr,csp);
|
|
for (i=0; i<lr; i++) {
|
|
printf("%02X ",buf[i]);
|
|
if (!((i+1) & 7)) printf("\n");
|
|
}
|
|
printf("\n\npress return to exit...");
|
|
getchar();
|
|
return(0);
|
|
}
|