Clavier à base d'un pic 16F84

Code:
char  a;
void main()
{
   PORTA=0;
   PORTB=0;
 
    TRISA=0x00;
    TRISB=0xF0;
   while(1)
   {
      a=99;
       portb.B0=1;
       if(portb.B4) a=1;
       if(portb.B5) a=4;
       if(portb.B6) a=7;
        portb.B0=0;
     
       portb.B1=1;
       if(portb.B4) a=2;
       if(portb.B5) a=5;
       if(portb.B6) a=8;
       if(portb.B7) a=0;
        portb.B1=0;
     
       portb.B2=1;
       if(portb.B4) a=1;
       if(portb.B5) a=4;
       if(portb.B6) a=7;
       portb.B2=0;
     
       if(a!=99)
              PORTA=a;
    }
    }