sys/src/libc/68020/vlop.s

   1 TEXT    _mulv(SB), $0
   2         MOVL    r+0(FP), A0
   3         MOVL    a+8(FP), R0
   4
   5         WORD    $0x4c2f
   6         WORD    $0x0401
   7         WORD    $0x0014
   8 /*
   9  *      MULUL   b+16(FP), R0:R1
  10  *      philw made me do it!
  11  */
  12
  13         MOVL    a+4(FP), R2
  14         MULUL   b+16(FP), R2
  15         ADDL    R2, R1
  16
  17         MOVL    a+8(FP), R2
  18         MULUL   b+12(FP), R2
  19         ADDL    R2, R1
  20
  21         MOVL    R1, (A0)+
  22         MOVL    R0, (A0)
  23         RTS