txlt.l revision 1.1 
11.1Sis	void munchit(char *);
21.1Sis%%
31.1Sis\..*\n					printf("%s", yytext);
41.1Sispea[ 	][_A-Za-z][A-Za-z0-9_]*$	{printf("pea");munchit(yytext+3);}
51.1Sis\ [_A-Za-z][A-Za-z0-9_]*/\,		munchit(yytext);
61.1Sis.					putchar(*yytext);
71.1Sis%%
81.1Sisvoid
91.1Sismunchit(s)
101.1Sis	char *s;
111.1Sis{
121.1Sis	putchar(*s++);
131.1Sis	if (!strncmp(s, "fp", 2) ||
141.1Sis	    !strncmp(s, "sp", 2) ||
151.1Sis	    ((*s == 'a')  || (*s == 'd')) && ((s[1]-'0')<=7))
161.1Sis		printf("%s", s);
171.1Sis	else
181.1Sis		printf("pc@(%s)",s);
191.1Sis}
20