;@ ins k k
;@ outs k
opcode LevMult, 0, kkk
  kin,kmod,kout xin
  kI zkr kin
  kM zkr kmod
  zkw kI * kM, kout
endop

;@ ins a a
;@ outs a
opcode LevMult, 0, kkk
  kin,kmod,kout xin
  aI zar kin
  aM zar kmod
  zaw aI * aM, kout
endop

; UP 10.04.20
