2.9BSD - /usr/src/lib/c/crt/alrem.s

   1: .globl alrem
   2: / long assign remainder (fp)
   3: / called: 2(sp): ptr to LHS, 4(sp):RHS
   4: 
   5: alrem:
   6:         setl
   7:         mov     2(sp),r0
   8:         movif   (r0),fr0
   9:         movif   4(sp),fr1
  10:         movf    fr0,fr2
  11:         movf    fr1,fr3
  12:         divf    fr1,fr0
  13:         modf    $40200,fr0
  14:         mulf    fr3,fr1
  15:         subf    fr1,fr2
  16:         movfi   fr2,(r0)
  17:         mov     2(r0),r1
  18:         mov     (r0),r0
  19:         seti
  20:         rts     pc

Defined functions