COMPORT – Compilador Portugol - Nilo Menezes
COMPORT – Compilador Portugol - Nilo Menezes
COMPORT – Compilador Portugol - Nilo Menezes
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ComPort <strong>–</strong> <strong>Compilador</strong> <strong>Portugol</strong><br />
void<br />
Put (long op, long a, long b, long c)<br />
{<br />
if (op >= 32)<br />
op = op - 64;<br />
code[pc] = fASH (fASH (fASH (op, 5) + a, 5) + b, 16) + (c % 0x10000);<br />
pc++;<br />
}<br />
void<br />
EXCL (char *reg, int p)<br />
{<br />
reg[p] = 0;<br />
}<br />
void<br />
TestRange (long x)<br />
{<br />
if (x >= 0x8000 || x form != Boolean)<br />
88