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(); }