UNIX 6th Ed. - /usr/source/fort/rt1/mod.s

   1: /
   2: /
   3: 
   4: / mod fortran function
   5: 
   6: .globl  mod.
   7: 
   8: .globl  retrn
   9: .globl  temp
  10: one = 40200
  11: .globl  rerr
  12: 
  13: mod.:   temp
  14:         .+2
  15:         setd
  16:         setl
  17:         cmp     *2(sp),$2
  18:         bne     1f
  19:         movif   *2(r3),r0
  20:         movf    r0,r2
  21:         movif   *4(r3),r1
  22:         divf    r1,r2
  23:         modf    $one,r2
  24:         mulf    r1,r3
  25:         subf    r3,r0
  26:         movfi   r0,temp
  27:         jmp     retrn
  28: 
  29: 1:
  30:         jsr     r5,rerr; 11.

Defined functions