Interdata732/usr/source/m6/m64.c

#

#include "m6.h"

pushget() {
/***/	ge = (ge+1)&~1;
	ge->word = gf-ge; 
	gf = ge; 
	ge =+2;
	++lg;
}

dotrace() {
	char *arg();
/***/	register i,j;
	printf("\n%d %c%s",lg,sharp,arg(0));
	for(j=9;j>0&&*arg(j)==0;j--);
	for(i=1;i<=j;i++)
		printf("%c%c%s%c",comma,lquote,arg(i),rquote);
	printf("%c\n",c); 
}

popget() {
	ge = gf; 
	gf =+ gf->word;
	--lg;
	if(gf<g0) diag("Software error"); 
}

pushput() {
	if(pe&1) {
		pf->prev =| 1;
		pe++; 
	}
	pe->word = pf-pe; 
	pf = pe; 
	pe =+2;
}

popput() {
	pe = pf; 
	pf =+ pf->word;
	if(pf->prev&1) {
		pe--;
/***/		pf->prev =& ~1; 
	}
	if(pf<p0) diag("Software error"); 
}

pushdef() {
/***/	de = (de+1)&~1;
	de->word = df-de; 
	df = de; 
	de =+2;
}

put() {
	if(lp>0) {
		*pe++ = c; 
		if(pe>pmax) diag("Arg collection overflow"); 
	}
	else putchar(c); 
}

get() {
/***/	register char *p;
/***/	register n;
	if(lg==0) 
		c = getchar();
	else while(1) {
		if(gf->marg!=0) {
			if((c = gf[gf->marg++])==0) gf->marg = 0;
			else return; 
		}
		c = (p = gf->mframe)[gf->mchar++];
		if(c!=dollar) return;
		n = p[gf->mchar] - '0';
		if(n<0 || n>9) return;
		++gf->mchar;
		gf->marg = arg(n) - gf; 
	}
}