;@ map LVLamp

;@ ins k
;@ outs k
opcode LevAmp,0,kkkk
  kKnob, kScale, kin, kout xin
  kIn zkr kin
  kLev table kScale, giLVLamp
  zkw kIn*kLev, kout
endop

;@ ins a
;@ outs a
opcode LevAmp,0,kkkk
  kKnob, kScale, kin, kout xin
  aIn zar kin
  kLev table kScale, giLVLamp
  zaw aIn*kLev, kout
endop

; UP 10.04.20
