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

   1: .globl almul
   2: / long assign multiply (fp)
   3: / called: 2(sp): ptr to LHS, 4(sp):RHS
   4: 
   5: almul:
   6:         setl
   7:         mov     2(sp),r0
   8:         movif   (r0),fr0
   9:         movif   4(sp),fr1
  10:         mulf    fr1,fr0
  11:         movfi   fr0,(r0)
  12:         mov     2(r0),r1
  13:         mov     (r0),r0
  14:         seti
  15:         rts pc

Defined functions