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 />
MOVLW 0x0F ;el puerto que lee teclado filas (in)<br />
MOVWF TRISB<br />
BANK0<br />
MOVLW 0x01<br />
MOVWF CONTCOL<br />
MOVLW 0x7F<br />
MOVWF COLKBD<br />
RSTFIL<br />
CLRF CONTFIL ;RESET CONT FILAS<br />
MOVF COLKBD,W<br />
MOVWF PORTB ;COLOCAR UN CERO EN COLUMNAS<br />
nop<br />
nop<br />
nop<br />
MOVF PORTB,W ;LEER FILAS <strong>DE</strong> TECLADO<br />
MOVWF AUX<br />
RLF AUX,F<br />
RLF AUX,F<br />
RLF AUX,F<br />
RLF AUX,F<br />
TESTFIL<br />
RLF AUX,F<br />
BTFSS _c<br />
GOTO ACERTADO<br />
INCF CONTFIL,F<br />
MOVF CONTFIL,W<br />
XORLW 0x04<br />
BTFSS _z<br />
GOTO TESTFIL<br />
BSF _c<br />
RRF COLKBD,F ;rotacion del cero a colocar<br />
INCF CONTCOL,F<br />
MOVF CONTCOL,W<br />
XORLW 0x05<br />
BTFSS _z<br />
GOTO RSTFIL<br />
RETLW 0x00<br />
ACERTADO<br />
MOVF CONTFIL,W<br />
XORLW 0x00<br />
BTFSC _z<br />
GOTO ESCERO<br />
MOVLW 0x00<br />
MUL<br />
ADDLW 0x04
Change language