41 lines
802 B
C
41 lines
802 B
C
#include <locator.h>
|
|
#include <tcpip.h>
|
|
#include <orca.h>
|
|
#include <stdlib.h>
|
|
#include "installcmds.h"
|
|
#include "aspinterface.h"
|
|
#include "dsi.h"
|
|
#include "asmglue.h"
|
|
|
|
int main(void) {
|
|
Boolean loadedTCP = FALSE;
|
|
Boolean startedTCP = FALSE;
|
|
|
|
if (!TCPIPStatus() || toolerror()) {
|
|
LoadOneTool(54, 0x0300); /* load Marinetti 3.0+ */
|
|
if (toolerror())
|
|
goto error;
|
|
loadedTCP = TRUE;
|
|
TCPIPStartUp();
|
|
if (toolerror())
|
|
goto error;
|
|
startedTCP = TRUE;
|
|
}
|
|
|
|
installCmds();
|
|
|
|
while (TRUE) {
|
|
IncBusyFlag();
|
|
PollAllSessions();
|
|
DecBusyFlag();
|
|
asm { cop 0x7f }
|
|
}
|
|
|
|
error:
|
|
if (startedTCP)
|
|
TCPIPShutDown();
|
|
if (loadedTCP)
|
|
UnloadOneTool(54);
|
|
return;
|
|
}
|