130 lines
1.4 KiB
C
130 lines
1.4 KiB
C
|
|
#include <_ansi.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
|
|
int
|
|
_read (file, ptr, len)
|
|
int file;
|
|
char *ptr;
|
|
size_t len;
|
|
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
|
|
int
|
|
_lseek (file, ptr, dir)
|
|
int file;
|
|
int ptr;
|
|
int dir;
|
|
|
|
{
|
|
return 0;
|
|
|
|
}
|
|
|
|
static
|
|
writechar (c)
|
|
char c;
|
|
|
|
|
|
{
|
|
register int n asm ("r3");
|
|
n = c;
|
|
asm ("clr.w r1;mov.w %0,r0; mov.w #6,r3; trapa #15": :"g" (n) : "r3","r1","r0");
|
|
}
|
|
|
|
|
|
|
|
int
|
|
_write (file, ptr, len)
|
|
int file;
|
|
char *ptr;
|
|
size_t len;
|
|
{
|
|
|
|
int todo;
|
|
|
|
for (todo = 0; todo < len; todo++)
|
|
{
|
|
writechar (*ptr++);
|
|
}
|
|
return len;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
_close (file)
|
|
int file;
|
|
{
|
|
|
|
return -1;
|
|
}
|
|
|
|
|
|
|
|
caddr_t
|
|
_sbrk (incr)
|
|
size_t incr;
|
|
{
|
|
extern char end; /* Defined by the linker */
|
|
static char *heap_end;
|
|
char *prev_heap_end;
|
|
|
|
if (heap_end == 0)
|
|
{
|
|
heap_end = &end;
|
|
}
|
|
prev_heap_end = heap_end;
|
|
if (heap_end + incr > stack_ptr)
|
|
{
|
|
_write (1, "Heap and stack collision\n", 25);
|
|
abort ();
|
|
}
|
|
heap_end += incr;
|
|
return (caddr_t) prev_heap_end;
|
|
}
|
|
|
|
|
|
|
|
int
|
|
_isatty (file)
|
|
int file;
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
|
|
|
|
int
|
|
_fstat (file, stat)
|
|
int file;
|
|
struct stat *stat;
|
|
|
|
{
|
|
stat->st_mode = S_IFCHR;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
_open (path, flags)
|
|
const char *path;
|
|
int flags;
|
|
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
|
|
void
|
|
_exit (status)
|
|
int status;
|
|
{
|
|
asm (" mov.w #33,r3; trapa #15");
|
|
}
|