MANUAL DE MICROCONTROLADORES PIC
MANUAL DE MICROCONTROLADORES PIC
MANUAL DE MICROCONTROLADORES PIC
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
BANK1<br />
CLRF TRISA<br />
BANK0<br />
CLRF PORTA<br />
NOP<br />
NOP<br />
Muestre<br />
BCF OE<br />
RUSCAN<br />
CALL SCAN<br />
XORLW 0x00 ;espera una Tecla<br />
BTFSC _z<br />
GOTO Muestre<br />
MOVWF PORTA<br />
MOVLW .50<br />
MOVWF COUNT<br />
LOOPSCAN<br />
CALL <strong>DE</strong>L5MS<br />
<strong>DE</strong>CFSZ COUNT,1<br />
GOTO LOOPSCAN<br />
GOTO RUSCAN<br />
;************************************************************************<br />
***<br />
<strong>DE</strong>L5MS<br />
MOVLW .12<br />
MOVWF R1<br />
MOVLW 7<br />
MOVWF R2<br />
MOVLW 1<br />
MOVWF R3<br />
MOVLW 1<br />
MOVWF R4<br />
LOOP<strong>DE</strong>L5<br />
<strong>DE</strong>CFSZ R1,F<br />
GOTO LOOP<strong>DE</strong>L5<br />
<strong>DE</strong>CFSZ R2,F<br />
GOTO LOOP<strong>DE</strong>L5<br />
<strong>DE</strong>CFSZ R3,F<br />
GOTO LOOP<strong>DE</strong>L5<br />
<strong>DE</strong>CFSZ R4,F<br />
GOTO LOOP<strong>DE</strong>L5<br />
NOP<br />
RETURN<br />
;***************************************************************<br />
;RETORNA W=00 NO HAY TECLA OPRIMIDA,<br />
;RETORNA W=COD SI TECLA OPRIMIDA.<br />
;**************************************************************<br />
SCAN