home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxe.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  249 b   |  25 lines
  1. /
  2. /
  3.  
  4. / xe -- temp file junk
  5.  
  6. .globl    tfildiag
  7. .globl    tfil1, tfil2
  8.  
  9. tfildiag:
  10.     mov    $1,r0
  11.     sys    write; mes1; emes1-mes1
  12.     clr    r0
  13.     sys    seek; 0; 2
  14.     mov    $-1,r0        / failure return
  15.     sys    exit
  16.  
  17. mes1:
  18.     <Temp file?\n>
  19. emes1:
  20. tfil1:
  21.     <f.tmp1\0>
  22. tfil2:
  23.     <f.tmp2\0>
  24.  
  25.