home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / crt / lmul.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  331 b   |  22 lines
  1. /
  2. / 32-bit multiplication routine for fixed pt hardware.
  3. /  Implements * operator
  4. / Credit to an unknown author who slipped it under the door.
  5. .globl    lmul
  6. .globl    csv, cret
  7.  
  8. lmul:
  9.     jsr    r5,csv
  10.     mov    6(r5),r2
  11.     sxt    r1
  12.     sub    4(r5),r1
  13.     mov    10.(r5),r0
  14.     sxt    r3
  15.     sub    8.(r5),r3
  16.     mul    r0,r1
  17.     mul    r2,r3
  18.     add    r1,r3
  19.     mul    r2,r0
  20.     sub    r3,r0
  21.     jmp    cret
  22.