Subversion Repositories scarts

 
#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");
}