/ / / xe -- temp file junk .globl tfildiag .globl tfil1, tfil2 tfildiag: mov $1,r0 sys write; mes1; emes1-mes1 clr r0 sys seek; 0; 2 mov $-1,r0 / failure return sys exit mes1: <Temp file?\n> emes1: tfil1: <f.tmp1\0> tfil2: <f.tmp2\0>