2.9BSD - /usr/src/ucb/ranm/f77.s

   1: f4p = 0
   2: f77 = 1
   3: .globl  _ranm_
   4: .globl _ransav_
   5: .globl _ranres_
   6: .globl  csv, cret
   7: .globl  _iran_
   8: _iran_:
   9:         mov     sp,r0
  10:         mov     12.(r0),r1; mov (r1),-(sp)
  11:         mov     10.(r0),r1; mov (r1),-(sp)
  12:         mov     8.(r0),r1; mov (r1),-(sp)
  13:         mov     6(r0),r1; mov (r1),-(sp)
  14:         mov     4(r0),r1; mov (r1),-(sp)
  15:         mov     2(r0),r1; mov (r1),-(sp)
  16:         jsr     pc,_iran
  17:         add     $12.,sp
  18:         rts     pc
  19: .globl  _randomi,_rndmze_

Defined functions