interp()
{
register word t;
register word t2;
register char c;
register int mm, n, k; /* 1 if dumping on, 0 if off */
register adr u, u1, u2;
mask = 0377;
/* Here is the main loop of the interpreter. */
loop:
/* dump();
if (anything)
dumpck();
if (--timer == 0)
checkint(); */
next:
t = *pcx++ & mask;
if(stopvlag) dump();
else if(traceflag && !(--instrcount & 0x3fff)){
sprintf(errbuf,"Telstop %3d",((instrcount)>>14)&0Xff); meldroutine();
if(instrcount) {/* system("sleep 1"); winupdate();*/}
else dump();}
void interp( void )
{
register word t;
register word t2;
register char c;
register int mm, n; //k; /* 1 if dumping on, 0 if off */
register adr u, u1, u2;
mask = 0377;
/* Here is the main loop of the interpreter. */
loop:
t = *pcx++ & mask;
//fprintf(stderr, "opcode t = 0x%x\n", t);
if (stopvlag)
dump();
else if (traceflag && !(--instrcount & 0x3fff)) {
sprintf(errbuf, "Telstop %3d", ((instrcount) >> 14) & 0Xff);
meldroutine();
if (instrcount) { /* system("sleep 1"); winupdate();*/
} else
dump();
}
