UNIX 6th Ed. - /usr/source/fort/f4/f41.s

   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

Defined functions