;@ map PANLOG

;@ ins k k k
;@ outs k
opcode Fade2, 0, kkkkkk
  kMix,kmod,kin1,kin2,kmodin,kout xin
  kIn1 zkr kin1
  kIn2 zkr kin2
  kMod zkr kmodin

  kM = kmod * kMod ;* 1/64

    kPL table 2 * kMix + kM, giPANLOG
    kPR table (127 - 2* kMix - kM), giPANLOG

  kO = kPL * kIn1 + kPR * kIn2

  zkw kO, kout
endop

;@ ins a a a
;@ outs a
opcode Fade2, 0, kkkkkk
  kMix,kmod,kin1,kin2,kmodin,kout xin
  aIn1 zar kin1
  aIn2 zar kin2
  aMod zar kmodin

  aM = kmod * aMod ;* 1/64

  aPL table 2 * kMix + kM, giPANLOG
  aPR table (127 - 2* kMix - kM), giPANLOG

  aO = aPL * aIn1 + aPR * aIn2

  zaw aO, kout
endop
