mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-11-05 04:04:46 +00:00
36 lines
563 B
C
36 lines
563 B
C
/* Copyright (C) 1985 by Manx Software Systems, Inc. */
|
|
/* Copyright (C) 1988 by Michael W. Spille */
|
|
|
|
#include <prodos.h>
|
|
#include <sysfunc.h>
|
|
|
|
extern struct shvar {
|
|
char vects[6];
|
|
int retflg;
|
|
} *_Sp;
|
|
|
|
_exit(n)
|
|
{
|
|
char *temp;
|
|
temp = 0x3f4;
|
|
|
|
_sys_parm[0] = 1;
|
|
_sys_parm[1] = 0; /* close all files */
|
|
_system(SYS_CLOSE);
|
|
if (_Sp) /* if called from SHELL */
|
|
_Sp->retflg = n;
|
|
|
|
*temp++;
|
|
|
|
_sys_parm[0] = 4;
|
|
_sys_parm[1] = 0;
|
|
_sys_parm[2] = 0;
|
|
_sys_parm[3] = 0;
|
|
_sys_parm[4] = 0;
|
|
_sys_parm[5] = 0;
|
|
_sys_parm[6] = 0;
|
|
_system (0x65);
|
|
|
|
}
|
|
|