Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/klib/exit.c
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

36 lines
1.2 KiB
C

/****************************************************************************/
/* */
/* E x i t F u n c t i o n */
/* ------------------------- */
/* */
/* The exit function is called from anywhere to pass control back to */
/* the CCP from the executing C program. */
/* */
/* Calling Sequence: */
/* */
/* exit(code); */
/* */
/* Where: */
/* code Is the exit status (ignored) */
/* */
/****************************************************************************/
#include "stdio.h"
#include "cpm.h"
exit(code) /***************************/
/* */
WORD code; /* Exit status */
{ /* */
REG WORD i; /* Counter */
/* */
for(i=0; i<MAXFILE; i++) /* Close all */
close(i); /* Open files */
/***************************/
_exit(code); /* Do the exit now */
} /***************************/
_exit(code) /* */
WORD code; /***************************/
{ /* */
__BDOS(EXIT,0L); /* Exit to BDOS */
} /***************************/