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