;@ ins k k
;@ outs k
opcode TH, 0, 0 ; ???? EQUAL TO S&H ??
  kCtrl zkr 1; CHANGE
  kIn zkr 2; CHANGE
  kOut init 0
  if (kCtrl != 0) then
  	kOut = kIn
  endif
  
  zkw kOut, 2; CHANGE
endop
