;@ map FLTfrq
;@ map CLA000
;@ map MID000
;@ map MID000
; TODO needs table mapping new style
;@ ins a k
;@ outs a
opcode FltLP, 0, kkkkkkk
; KBT !!!!!
	kFreq, kFreqMod, kKBT, kOn, kin,kmod,kout xin
	ain zar kin
	kMod zkr kmod
	aout tonex ain, kFreq+kFreqMod*kMod, 4 ; ORDER IN MODES!
	zaw aout, kout
endop


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