Anpassad för (och testad med) "PICkit2 UART Tool" som terminal.
           ___________  ___________ 
          |           \/           | 
    +5V---|Vdd      16F690      Vss|---GND
          |RA5        RA0/AN0/(PGD)|---bbTx ->- PK2Rx
          |RA4            RA1/(PGC)|---bbRx -<- PK2Tx
Pk2 VPP---|RA3/!MCLR/(Vpp)  RA2/INT|
          |RC5/CCP              RC0|--+LED--gnd
Disp C/D--|RC4                  RC1|--Disp Data
 KBD  Rx--|RC3                  RC2|--Disp Clock
 KBD  Ck--|RC6                  RB4|
          |RC7               RB5/Rx|
          |RB7/Tx               RB6|
          |________________________|
  
Display anslutningar:
pin 1-20 inte anslutna
pin:
21	inte ansluten
22	inte ansluten
23	gnd
24	5V
25	5V
26	5V
27	gnd
28 in	PIC PORTC.1	Seriell Data
29 in	PIC PORTC.2	Klocka
30	5V
31	5V
32	5V
33	5V
34	5V
35	5V
36	5V	(E)
37	5V	(R/W)
38	gnd	(CS)
39 in	PIC PORTC.4	Controll=1, Data=0
40	5V	(RESET)
         

/* Hämtar tecken från en keyPad 
Använder kod från www.elektronikutveckling.com, 
radera inte denna info om du modifierar eller kopierar delar 
från denna fil. Använd på egen risk, rätta felaktigheter. 

Använder dessa PIC 16F690 portar: 
Kopiera till huvudprogrammet.

ANSEL.7 = 0;	// PORTC.3 ej analog 
TRISC.3 = 1;	// KeyPad Rx in

ANSELH.0= 0;	// PORTC.6 ej analog
TRISC.6 = 1;	// KeyPad Clk in
*/


char getTkn(void)	
{		// getTkn() returnerar keypad'ens tecken för NEDtryckt tangent, annars 0x7.
		// Made by elektronikutveckling.com
		// In:
 		// Om data1 != EO || F0 så är det ett tecken.
		// Om data1 == E0 så är nästa tal ett tecken eller F0.
		// Om data1 eller data2 == F0 så är nästa tal samma tecken (knapp uppe igen).
		// Ut: endast teckenkoden vid nedtryckt tangent.
char bitCount, key, tkn, i;
char data1;
char data2;
char data3;
char data4;
char data5;

// läs in 3st eller 5st 11bit byte:
// tecken ska ha buffrats i keypaden genom att hålla clock låg tills nu

PORTC.6=1;	// "clock"
TRISC.6=1;	// nu kan keypaden skicka sparat tecken

PSA=0;		// TMR0 används som timer.
T0CS=0;		// Intern Fosc/4 används som klocka för TMR0

/* 	PS<2:0>	prescaling
	000	1:2
	001	1:4
	010	1:8
	011	1:16
	100	1:32
	101	1:64
	110	1:128
	111	1:256 		*/

    TMR0=0;	// Reset'ar TMR0 register och prescaler.
    PS2=1;	// Sätter prescalern= 1:256 på detta sätt
    PS1=1;	// TMR0==20 borde ge ca 20 * 256*1us = 5 ms
    PS0=1;	

    while (PORTC.6) {if(TMR0>20) {key=0x7; goto END;} } // hitta flank eller AVBRYT
    while (!PORTC.6) {if(TMR0>20) {key=0x7; goto END;} } // hitta flank eller AVBRYT
    // klockan har nu gått från hög till låg till hög

    Carry = PORTC.3; 		// läser data vid klock +flank
    data1 = rr( data1);  	// Carry blir LSB , ? blir Carry

    bitCount = 8;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        Carry = PORTC.3;
        data1 = rr( data1);
        } while ( -- bitCount > 0); 	// (startbiten hamnar till slut i Carry)
    bitCount = 2;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        } while ( -- bitCount > 0);
    key=data1;				// Klart om data1 inte är E0 eller F0.
					// key ändras nedan om så inte var fallet.

/* -------------- (S2) i strukturdiagramet ------------- */

if(data1==0xE0)				// Om 0xE0 läses alltid en byte till
{					// Antingen "enter" eller "/"
    bitCount = 9;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        Carry = PORTC.3;
        data2 = rr( data2);
        } while ( -- bitCount > 0);
    bitCount = 2;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        } while ( -- bitCount > 0);
    key=data2;				// Klart om data2 är "/" eller "enter".
					// Alt. ignorera "enter knapp nere"
					// och välj "enter knapp uppe" istället.

/* -------------- (S3) i strukturdiagramet ------------- */

 if( data2==0xF0 )			// data3 = "/" , "enter". (knapp uppe)
 {
    bitCount = 9;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        Carry = PORTC.3;
        data3 = rr( data3);
        } while ( -- bitCount > 0);
    bitCount = 2;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        } while ( -- bitCount > 0);
    key=0x7;				// Jag ignorera key knapp uppe.
					// (Alt. "enter knapp uppe" istället för
					// "enter knappr nere" kan vara vettigt.)
 }

}

/* -------------- (S4) i strukturdiagramet ------------- */

if(data1==0xF0)		// Tangenkoden upprepas efter 0xF0 när knapp uppe igen.
{		
    bitCount = 9;	// (Alt. lösn: klocka 11 bitar och strunta i data.)
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        Carry = PORTC.3;
        data2 = rr( data2); 
        } while ( -- bitCount > 0);
    bitCount = 2;
    do  {
	while (PORTC.6);
	while (!PORTC.6);
        } while ( -- bitCount > 0);
    key=0x7; 		// Jag struntar i när knapp uppe. (Alt. returnera annars data2)
}

// Inläsningen klar av 1,2 eller 3st byte.

END:

   TRISC.6=0;
   PORTC.6=0; 	// nu kan keypaden inte skicka tecken (tecken sparas i keyPad'en)

switch(key)
{
case 0x4A: tkn = '/'; break;
case 0x7C: tkn = '*'; break;
case 0x7B: tkn = '-'; break;
case 0x79: tkn = '+'; break;
case 0x5A: tkn = '='; break;	// Min översättning av 'enter'
case 0x71: tkn = '.'; break;
case 0x70: tkn = '0'; break;
case 0x69: tkn = '1'; break;
case 0x72: tkn = '2'; break;
case 0x7A: tkn = '3'; break;
case 0x6B: tkn = '4'; break;
case 0x73: tkn = '5'; break;
case 0x74: tkn = '6'; break;
case 0x6C: tkn = '7'; break;
case 0x75: tkn = '8'; break;
case 0x7D: tkn = '9'; break;
case 0x77: tkn = 'N'; break;	// Min översättning av 'Num Lock'
case 0x07: tkn = key ;
}

   return tkn;
}

char getKey(void)	// borde fungera men PIC'en hinner inte alltid med.
{
// OBS, PS2-tangentbord och Keypad har 2 startbitar enligt UARTE'n. (Knasigt)
// MSB hamnar som paritetsbit,
bit paritet;
char key, skrot, i;

if(OERR==1)		// UART overrun (för mycket indata)
{
CREN = 0;    		// radera UART
SPEN = 0;		// reset UART
SPEN = 1;
CREN = 1;
skrot = RCREG; 		// borde sätta RCIF =0
skrot = RCREG; 
key= 0x7;		// ignorera key
return key;
}

  paritet=RX9D;		// paritetsbiten motsvarar MSB biten pga 2 startbitar.
  Carry=paritet;	// 
  key = RCREG; 		// RCIF blir =0 efter läsning av RCREG.  
  key = rr(key);	// Skiftar in MSB, skiftar bort starbit från LSB
  CREN = 0;    		// radera UART
  SPEN = 0;		// reset UART
  seganer(6);
  SPEN = 1;
  CREN = 1;
  if( (key!=0xE0)&&(key!=0xF0) ) key=0x7;	// Om inte E0, F0, ignorera key

if(key==0xE0)	
{		
  while(RCIF==0);
  paritet=RX9D;		// paritetsbiten mostvarar MSB biten pga 2 startbitar.
  Carry=paritet;	// 
  key = RCREG; 		// RCIF blir =0 efter läsning av RCREG.  
  key = rr(key);	// Skiftar in MSB, skiftar bort starbit från LSB
  CREN = 0;    		// radera UART
  SPEN = 0;		// reset UART
  seganer(6);
  SPEN = 1;
  CREN = 1;
  if( key!=0xF0 ) key=0x7;	// Om inte F0, ignorera key
}

if(key==0xF0)	
{		
  while(RCIF==0);
  paritet=RX9D;		// paritetsbiten mostvarar MSB biten pga 2 startbitar.
  Carry=paritet;	// 
  key = RCREG; 		// RCIF blir =0 efter läsning av RCREG.  
  key = rr(key);	// Skiftar in MSB, skiftar bort starbit från LSB
  CREN = 0;    		// radera UART
  SPEN = 0;		// reset UART
  seganer(6);
  SPEN = 1;
  CREN = 1;

}
			
return key;
}