home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / f4 / f41.s next >
Encoding:
Text File  |  1975-07-17  |  478 b   |  41 lines
  1. /
  2. /
  3.  
  4. / f41 -- everything else
  5.  
  6. .globl    pass4
  7.  
  8. .globl    signon
  9. .globl    flush
  10. .globl    dope
  11. .globl    formts
  12. .globl    globls
  13. .globl    constn
  14. .globl    fopen
  15. .globl    bsss
  16. .globl    tfil2
  17.  
  18. pass4:
  19.     setd
  20.     jsr    r5,signon; 4
  21.     mov    ibuf,r0
  22.     sys    close
  23.     jsr    r5,flush; obuf
  24.     jsr    r5,flush; tbuf
  25.  
  26.     jsr    r5,dope
  27.     jsr    r5,formts
  28.     jsr    r5,constn
  29.     jsr    r5,bsss
  30.     jsr    r5,globls        / uses r4 from bsss
  31.     jsr    r5,flush; obuf
  32.     sys    unlink; tfil2
  33.     clr    r0
  34.     tst    nerror
  35.     beq    1f
  36.     sys    seek; 0; 2
  37.     mov    $1,r0        / syntax errors
  38. 1:
  39.     sys    exit
  40.  
  41.