the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

movable sp for sim65

Browse Source
This commit is contained in:
bbbradsmith
2019-05-28 15:29:55 -04:00
committed by Oliver Schmidt
parent 38d2eb7a0e
commit 2f3cae0d2e
8 changed files with 33 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/sim65/paravirt.c
View File

@@ -77,6 +77,7 @@
typedef void (*PVFunc) (CPURegs* Regs);
static unsigned ArgStart;
static unsigned char SPAddr;
@@ -120,9 +121,9 @@ static unsigned char Pop (CPURegs* Regs)
static unsigned PopParam (unsigned char Incr)
{
unsigned SP = MemReadZPWord (0x00);
unsigned SP = MemReadZPWord (SPAddr);
unsigned Val = MemReadWord (SP);
MemWriteWord (0x0000, SP + Incr);
MemWriteWord (SPAddr, SP + Incr);
return Val;
}
@@ -132,7 +133,7 @@ static void PVArgs (CPURegs* Regs)
{
unsigned ArgC = ArgCount - ArgStart;
unsigned ArgV = GetAX (Regs);
unsigned SP = MemReadZPWord (0x00);
unsigned SP = MemReadZPWord (SPAddr);
unsigned Args = SP - (ArgC + 1) * 2;
Print (stderr, 2, "PVArgs ($%04X)\n", ArgV);
@@ -152,9 +153,9 @@ static void PVArgs (CPURegs* Regs)
MemWriteWord (Args, SP);
Args += 2;
}
MemWriteWord (Args, 0x0000);
MemWriteWord (Args, SPAddr);
MemWriteWord (0x0000, SP);
MemWriteWord (SPAddr, SP);
SetAX (Regs, ArgC);
}
@@ -313,10 +314,11 @@ static const PVFunc Hooks[] = {
void ParaVirtInit (unsigned aArgStart)
void ParaVirtInit (unsigned aArgStart, unsigned char aSPAddr)
/* Initialize the paravirtualization subsystem */
{
ArgStart = aArgStart;
SPAddr = aSPAddr;
};