;@ args iiiiii,a,a
opcode Eq2Band, 0, KKKKK
; rbjeq ???
  kFreqL, kFreqH, kGainL, kGainH, kLev xin 
  ain zar 2 ; CHANGE 
  ai1 pareq ain, kFreqL, kGainL, sqrt(.5), 2
  aout pareq ai1, kFreqH, kGainH, sqrt(.5), 1
  zaw aout*kLev, 2  ; CHANGE 
endop
