; nothing to map

;@ outs k k k k k k
opcode Keyboard, 0, kkkkkk
	kpitch, kgate, klin, krel, knote, kexp xin	
	kstatus, kchan, kdata1, kdata2 midiin

	kSet init 0
	if (kstatus != 144) goto Halt
		kSet = 1
	goto Run
	
	Halt:
	if (kstatus != 128) goto Run	
		kSet = 0
	
	Run:
	zkw kSet,kgate
endop
