#define NOCCARGC
#include stdio.h
#include clib.def
/*
** Close all open files and exit to CP/M.
** Entry: errcode = Character to be sent to stderr.
** Returns to CP/M rather than caller.
*/
exit(errcode) char errcode; {
  int fd;
  if(errcode) _conout(errcode);
  for(fd=0; fd < MAXFILES; fclose(fd++));
  _bdos(GOCPM, NULL);
  }

#asm
abort   equ   exit
        entry abort
#endasm