txlt.l revision 1.1 
1	void munchit(char *);
2%%
3\..*\n					printf("%s", yytext);
4pea[ 	][_A-Za-z][A-Za-z0-9_]*$	{printf("pea");munchit(yytext+3);}
5\ [_A-Za-z][A-Za-z0-9_]*/\,		munchit(yytext);
6.					putchar(*yytext);
7%%
8void
9munchit(s)
10	char *s;
11{
12	putchar(*s++);
13	if (!strncmp(s, "fp", 2) ||
14	    !strncmp(s, "sp", 2) ||
15	    ((*s == 'a')  || (*s == 'd')) && ((s[1]-'0')<=7))
16		printf("%s", s);
17	else
18		printf("pc@(%s)",s);
19}
20