a:ptc -o c0.tmp $1.p
a:cpp -o c1.tmp -x -i a:|b: c0.tmp
a:cp1 -cem -o c2.tmp -b0 -n8 -u c1.tmp
b:p68 -o $1.s c2.tmp
era c*.tmp
b:a68 -o $1.o $1.s
era $1.s