Dekoder klavesnice pro MK14
danhard 26.06.2017

Device 20v8

 c1	= 1	'adresa sloupce c1-c8 
 c2	= 2
 c3	= 3
 c4	= 4
 c5	= 5
 c6 = 6
 c7	= 7
 k0	= 8	'kod klavesy k0-k4
 k1	= 9	
 k2	=10
 k3	=11		 

/oe	= 13	'oe, potvrzeni klavesy
 k4	= 14 
 r1	= 15	'vystup radku r1-r4
 r2	= 16	
 p1 	= 17	'pomocny vystup p1-p4
 p2		= 18
 p3 	= 19
 p4		= 20
 r3	= 21
 r4	= 22
 c8	= 23

start
 
r1     = /c1*/k4*/k3*/k2*/k1*/k0	'" 0 "
	+ /c2*/k4*/k3*/k2*/k1* k0	'" 1 "
	+ /c3*/k4*/k3*/k2* k1*/k0	'" 2 "
	+ /c4*/k4*/k3*/k2* k1* k0	'" 3 "
	+ p1;
r1.ena	= /oe;	

p1	= /c5*/k4*/k3* k2*/k1*/k0	'" 4 "
	+ /c6*/k4*/k3* k2*/k1* k0	'" 5 "
	+ /c7*/k4*/k3* k2* k1*/k0	'" 6 "
	+ /c8*/k4*/k3* k2* k1* k0;	'" 7 "

r2     = /c1*/k4* k3*/k2*/k1*/k0	'" 8 "
	+ /c2*/k4* k3*/k2*/k1* k0	'" 9 "
	+ /c3*/k4* k3*/k2* k1*/k0
	+ /c4*/k4* k3*/k2* k1* k0
	+ p2;
r2.ena	= /oe;	

p2	= /c5*/k4* k3* k2*/k1*/k0
	+ /c6*/k4* k3* k2*/k1* k0
	+ /c7*/k4* k3* k2* k1*/k0
	+ /c8*/k4* k3* k2* k1* k0;

r3     = /c1* k4*/k3*/k2*/k1*/k0
	+ /c2* k4*/k3*/k2*/k1* k0
	+ /c3* k4*/k3*/k2* k1*/k0	'" Go "
	+ /c4* k4*/k3*/k2* k1* k0	'" Mem "
	+ p3;	
r3.ena	= /oe;

p3      = /c5* k4*/k3* k2*/k1*/k0	'" Abort "
	+ /c6* k4*/k3* k2*/k1* k0
	+ /c7* k4*/k3* k2* k1*/k0
	+ /c8* k4*/k3* k2* k1* k0;	'" Term "

r4     = /c1* k4* k3*/k2*/k1*/k0	'" A "
	+ /c2* k4* k3*/k2*/k1* k0	'" B "
	+ /c3* k4* k3*/k2* k1*/k0	'" C "
	+ /c4* k4* k3*/k2* k1* k0	'" D "
	+ p4;	
r4.ena	= /oe;

p4	= /c5* k4* k3* k2*/k1*/k0
	+ /c6* k4* k3* k2*/k1* k0
	+ /c7* k4* k3* k2* k1*/k0	'" E "
	+ /c8* k4* k3* k2* k1* k0;	'" F "

end