home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / mult.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  249 b   |  27 lines
  1. .globl .m,.q,.r
  2. .globl .p,sprv
  3.  
  4. .m:
  5.     jsr    pc,sprv
  6.     mov    (sp),r0
  7.     mpy    4(sp),r0
  8.     mov    r1,4(sp)
  9.     br    1f
  10.  
  11. .q:
  12.     jsr    pc,sprv
  13.     mov    4(sp),r1
  14.     sxt    r0
  15.     dvd    (sp),r0
  16.     mov    r0,4(sp)
  17.     br    1f
  18.  
  19. .r:
  20.     jsr    pc,sprv
  21.     mov    4(sp),r1
  22.     sxt    r0
  23.     dvd    (sp),r0
  24.     mov    r1,4(sp)
  25. 1:
  26.     jmp    .p
  27.