;@ map d CLA000
;@ map d CLA000
;@ map d CLA000
;@ map d CLA000
;@ map d BUT003

;@ args kkkkk,kkkkk,k
opcode Mix41B, 0, kkkkkkkkkkk   ; MULTIMODE support a/k?
kLev1,kLev2,kLev3,kLev4,kMode,kI1,kI2,kI3,kI4,kCh,kOut  xin 
	k1 zkr kI1 
	k2 zkr kI2 
	k3 zkr kI3 
	k4 zkr kI4 
	k5 zkr kCh 
	kout = k1*kLev1 + k2*kLev2 + k3*kLev3 + k4*kLev4 + k5
	zkw kout, kOut 
endop

;@ args kkkkk,aaaaa,a
opcode Mix41B, 0, kkkkkkkkkkk   ; MULTIMODE support a/k?
kLev1,kLev2,kLev3,kLev4,kMode,kI1,kI2,kI3,kI4,kCh,kOut  xin 
	a1 zar kI1 
	a2 zar kI2 
	a3 zar kI3 
	a4 zar kI4 
	a5 zar kCh 
	aout = a1*kLev1 + a2*kLev2 + a3*kLev3 + a4*kLev4 + a5
	zaw aout, kOut 
endop
