home *** CD-ROM | disk | FTP | other *** search
-
- #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