mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-06-27 07:29:32 +00:00
50 lines
1.1 KiB
C
50 lines
1.1 KiB
C
/* :ts=4 */
|
|
/* SEXEC - Exec for system programs */
|
|
/* Copyright (c) 1988 by Michael W. Spille */
|
|
|
|
#include <prodos.h>
|
|
#include <sysfunc.h>
|
|
|
|
char *ctop();
|
|
extern void ldnjmp ();
|
|
extern void elnj ();
|
|
|
|
sexec (pname)
|
|
char *pname;
|
|
{
|
|
char *system_path, *rest_code;
|
|
int (*sys_prog)();
|
|
char *lptr, *eptr;
|
|
int ret_code;
|
|
|
|
rest_code = (char *)0x1000;
|
|
system_path = 0x280;
|
|
lptr = (char *)&ldnjmp;
|
|
eptr = (char *)&elnj;
|
|
|
|
/* Convert pname from ASCIIZ to pascal length-string convention and copy it to
|
|
0x280, where prodos expects it to be. */
|
|
|
|
strcpy (system_path,pname);
|
|
ctop(system_path);
|
|
|
|
_sys_parm[0] = 1; /* Parm count is 1 */
|
|
_sys_parm[1] = 0;
|
|
_system(SYS_CLOSE); /* Close all files */
|
|
|
|
/* Move ldnjmp down to 0x1000 */
|
|
|
|
for (;lptr != eptr;)
|
|
*rest_code++ = *lptr++;
|
|
|
|
/* Jump to the loader */
|
|
|
|
sys_prog = 0x1000;
|
|
ret_code = (*sys_prog)(); /* There should be no return from this call */
|
|
/* If there is a return, ldnjmp couldn't load the
|
|
system program @ 0x2000, and will return the
|
|
prodos error message (in decimal) */
|
|
return (ret_code);
|
|
}
|
|
|