;@ map s 5 CLA000 CLAEXP MIXdbl
;@ map d BUT002
;@ map s 5 CLA000 CLAEXP MIXdbl
;@ map d BUT002
;@ map d BUT003

;@ args iiiii, kkk, k
opcode Mix21A, 0, iiiiiiiii   ; MULTIMODE support a/k?
    ; TODO: lin/log scale, chain input
    iLev1, iSw1, iLev2, iSw2, iScale, izIn1, izIn2, izInChain, izOut xin
  k1 zkr izIn1
  k2 zkr izIn2
  k3 zkr izInChain
  aout = a1 + a2*kLev1*iSW1 + a3*kLev2*iSW2
  zkw aout, izOut
endop

;@ args iiiii, aaa, a
opcode Mix21A, 0, iiiiiiiii   ; MULTIMODE support a/k?
    ; TODO: lin/log scale, chain input
    iLev1, iSw1, iLev2, iSw2, iScale, izIn1, izIn2, izInChain, izOut xin
  k1 zar izIn1
  k2 zar izIn2
  k3 zar izInChain
  aout = a1 + a2*kLev1*iSW1 + a3*kLev2*iSW2
  zaw aout, izOut
endop
