seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 08:54:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/klib/exit.c Normal file
View File

@@ -0,0 +1,35 @@
/****************************************************************************/
/* */
/* 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 */
} /***************************/