67 lines
1.3 KiB
C
67 lines
1.3 KiB
C
#pragma rtl
|
|
|
|
#include <appletalk.h>
|
|
#include <locator.h>
|
|
#include <desk.h>
|
|
#include <orca.h>
|
|
#include "installcmds.h"
|
|
#include "aspinterface.h"
|
|
#include "asmglue.h"
|
|
|
|
void pollTask(void);
|
|
|
|
static struct RunQRec {
|
|
Long reserved1;
|
|
Word period;
|
|
Word signature;
|
|
Long reserved2;
|
|
Byte jml;
|
|
void (*proc)(void);
|
|
} runQRec;
|
|
|
|
|
|
int main(void) {
|
|
LoadOneTool(54, 0x0300); /* load Marinetti 3.0+ */
|
|
if (toolerror())
|
|
goto error;
|
|
|
|
/*
|
|
* Put Marinetti in the default TPT so its tool stub won't be unloaded,
|
|
* even if UnloadOneTool is called on it. Programs may still call
|
|
* TCPIPStartUp and TCPIPShutDown, but those don't actually do
|
|
* anything, so the practical effect is that Marinetti will always
|
|
* be available once its init has loaded (which may not have happened
|
|
* yet when this init loads).
|
|
*/
|
|
SetDefaultTPT();
|
|
|
|
RamForbid();
|
|
installCmds();
|
|
RamPermit();
|
|
|
|
runQRec.period = 1;
|
|
runQRec.signature = 0xA55A;
|
|
runQRec.jml = 0x5C;
|
|
runQRec.proc = pollTask;
|
|
AddToRunQ((Pointer)&runQRec);
|
|
|
|
error:
|
|
return;
|
|
}
|
|
|
|
|
|
#pragma databank 1
|
|
void pollTask(void) {
|
|
Word stateReg;
|
|
|
|
IncBusyFlag();
|
|
stateReg = ForceRomIn();
|
|
|
|
PollAllSessions();
|
|
runQRec.period = 4*60;
|
|
|
|
RestoreStateReg(stateReg);
|
|
DecBusyFlag();
|
|
}
|
|
#pragma databank 0
|