Complete Keypad Example

[RAYMON]

Hello

Here another program which uses another technique for the keypad, can help me has to write a routine or have an idea. my program does not have constrained foncionnement of the program has to supervise.

thank you

start:
pcode=0

clavier:
porta.2=0
trisb=%11110000 '0=out / 1=in
portb=%00000000
pause 10 'Let stabilize state
msb=portb
if msb=240 then 'No key pressed
goto clavier
endif

TRISB=%00001111 '0=out / 1=in
portb=%00000000
pause 10 'Let stabilize state
lsb=portb
if lsb=15 then 'Key is already released
goto clavier
endif
pause 100 'Enable one key press each 500ms

msblsb=msb + lsb 'Combine line & column