;@ map d FLTfrq
;@ map d CLA000
;@ map d MID000
;@ map d MID000

;@ ins a k
;@ outs a
opcode FltHP, 0, kkkkkkk
; KBT !!!!!
	kFreq, kFreqMod, kKBT, kOn, kin,kmod,kout xin
	ain zar kin  
	kMod zkr kmod  
	aout atonex ain, kFreq+kFreqMod*kMod, 4 ; ORDER IN MODES!
	zaw aout, kout 
endop


;@ ins a a
;@ outs a
opcode FltHP, 0, kkkkkkk
; KBT !!!!!
	kFreq, kFreqMod, kKBT, kOn, kin,kmod,kout xin
	ain zar kin  
	aMod zar kmod  
	aout atonex ain, kFreq+kFreqMod*aMod, 4 ; ORDER IN MODES!
	zaw aout, kout 
endop
