olha o exeplo do programa ai:
program TecladoPS2
Main:
dim keydata, special, down as byte
'Define as variáveis auxiliares da função PS2_Key_Read
ADCON1=7 'Desliga os ADs do pino do PORTA
trisa.1=0 'Configura o RA1 como saída
Ps2_config(PORTC,1,2) 'Configura os pinos de CLOCK e DATA do teclado
while true 'Loop While
if Ps2_Key_Read(keydata, special, down)=1 then
'Tem algum dado no buffer?
if keydata="a" then 'Sim! É o "a"?
porta.1=1 'Sim! Então liga o relé
else
porta.1=0 'Não... Então desliga o relé
end if
end if
wend
end.
