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

   1: /
   2: /
   3: 
   4: / amod & dmod fortran functions
   5: 
   6: .globl  amod.
   7: .globl  dmod.
   8: 
   9: .globl  retrn
  10: one = 40200
  11: .globl  temp
  12: .globl  rerr
  13: 
  14: dmod.:  temp
  15:         .+2
  16:         setd
  17:         br      1f
  18: 
  19: amod.:  temp
  20:         .+2
  21:         setf
  22: 1:
  23:         cmp     *2(sp),$2
  24:         bne     1f
  25:         movf    *2(r3),r0
  26:         movf    r0,r2
  27:         movf    *4(r3),r1
  28:         divf    r1,r2
  29:         modf    $one,r2
  30:         mulf    r1,r3
  31:         subf    r3,r0
  32:         movf    r0,temp
  33:         jmp     retrn
  34: 
  35: 1:
  36:         jsr     r5,rerr; 2

Defined functions