initial commit

This commit is contained in:
root
2023-06-12 09:14:09 +02:00
commit b4912f303e
2545 changed files with 209350 additions and 0 deletions

View File

@@ -0,0 +1,34 @@
#include <portab.h>
#include <osbind.h>
#include <string.h>
#include <basepage.h>
#include <gemfast.h>
#include "ovl.h"
extern OVL_RSM Overlay;
char Cmp[] = "RSMOVL";
WORD start(BASEPAGE* BasePage)
{
WORD Ret = 1;
if(BasePage->p_cmdlin[0] == 14)
{
if(!strncmp(&BasePage->p_cmdlin[1], Cmp, 6))
{
LONG Adr = 0;
char* Pos = &BasePage->p_cmdlin[7];
WORD i;
for(i=0; i<8; i++)
{
Adr <<= 4;
Adr |= *Pos++ - 'A';
}
*((OVL2RSM**)Adr) = &Overlay;
Ret = 0;
}
}
Pterm(Ret);
}