COMPORT – Compilador Portugol - Nilo Menezes

}
void
Enter (long size)
{
Put (PSH, LNK, SP, 4);
Put (PSH, FP, SP, 4);
Put (ADD, FP, 0, SP);
Put (SUBI, SP, SP, size);
}
void
Return (long size)
{
Put (ADD, SP, 0, FP);
Put (POP, FP, SP, 4);
Put (POP, LNK, SP, size + 4);
Put (RET, 0, 0, LNK);
}
void
Open (void)
{
curlev = 0;
pc = 0;
relx = 0;
ClearReg ();
}
void
Close (FILE * S, long globals)
{
Put (POP, LNK, SP, 4);
Put (RET, 0, 0, LNK);
}
void
EnterCmd (char *name)
{
strcpy (name, comname[cno]);
comadr[cno] = pc * 4;
cno++;
}
ComPort – Compilador Portugol
void
Load (FILE * S)
{
long i = 0L, k;
while (i < relx)
{
k = rel[i++];
code[k] = (code[k] / 0x10000 * 0x10000) + (code[k] + MemSize) %
0x10000;
}
RISC.Load (code, pc);
fprintf (W, " code loaded\n");
RISC.Execute (entry * 4, S, stderr);
}
void
97