/*
static.c for illgol.c
*/
byte d[16384]; /* dataspace */
byte *dp;
byte * stalloc(int l)
{
byte * f = dp;
memset(dp, 0, l);
dp += l;
return f;
}
word caddr(byte * b) /* return eventual machine address of static data */
{
return (word)((b - d) + 262);
}
void stretract(void) /* only on multiple successive string literals */
{
dp--;
}