;@ 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
