Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,27 @@
/****************************************************************************/
/* */
/* E x i t F u n c t i o n */
/* ------------------------- */
/* Copyright 1982 by Digital Research Inc. All rights reserved. */
/* */
/* The exit function is called from anywhere to pass control back to */
/* the CCP from the executing C program. */
/* Note that the stream files are closed via '_cleanup()'. */
/* */
/* Calling Sequence: */
/* */
/* exit(code); */
/* */
/* Where: */
/* code Is the exit status (ignored) */
/* */
/****************************************************************************/
#include <stdio.h>
#include <cpm.h>
exit(code) /***************************/
WORD code; /* Exit status */
{ /* */
_cleanup(); /* Close all (stream) files*/
_exit(code); /* return to O.S. */
} /***************************/