Show De Luces - Ensamblador

Codigo:

LIST P=F16F690 #INCLUDE <P16F690.INC>

__CONFIG _CP_OFF & _CPD_OFF & _BOR_OFF & _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_ON & _FCMEN_OFF & _IESO_OFF

;BANCO 2 PARA DESABILITAR A/D BCF STATUS,RP0 BSF STATUS,RP1 CLRF ANSEL CLRF ANSELH

BCF STATUS,RP1 BSF STATUS,RP0

MOVLW 0X03 MOVWF TRISA MOVLW 0X80 MOVWF TRISB CLRF TRISC

BCF STATUS,RP0 CLRF 0X20 MOVLW 0XFF MOVFW PORTC START BTFSS PORTB,7 GOTO START MOVFW PORTA ANDLW 0X03 MOVWF 0x20 XORLW 0 BTFSS STATUS,Z GOTO NEXT1 GOTO SHOW1 NEXT1 MOVFW 0X20 XORLW 0X01 BTFSS STATUS,Z GOTO NEXT2 CALL SHOW2 NEXT2 MOVFW 0X20 XORLW 0X02 BTFSS STATUS,Z GOTO NEXT3 GOTO SHOW3 NEXT3 MOVFW 0X20 XORLW 0X03 BTFSS STATUS,Z GOTO START GOTO SHOW4

SHOW1 MOVLW 0XFF MOVWF PORTC CALL R_1seg MOVLW .200 BCF PORTC,7 CALL R_1msv BCF PORTC,6 CALL R_1msv BCF PORTC,5 CALL R_1msv BCF PORTC,4 CALL R_1msv BCF PORTC,3 CALL R_1msv BCF PORTC,2 CALL R_1msv BCF PORTC,1 CALL R_1msv BCF PORTC,0 CALL R_1seg BSF PORTC,7 CALL R_1msv BSF PORTC,6 CALL R_1msv BSF PORTC,5 CALL R_1msv BSF PORTC,4 CALL R_1msv BSF PORTC,3 CALL R_1msv BSF PORTC,2 CALL R_1msv BSF PORTC,1 CALL R_1msv BSF PORTC,0 CALL R_1seg CLRF PORTC MOVLW .100 CALL R_1msv MOVLW 0XFF MOVWF PORTC MOVLW .100 CALL R_1msv

CLRF PORTC MOVLW .100 CALL R_1msv MOVLW 0XFF MOVWF PORTC MOVLW .100 CALL R_1msv

GOTO START

SHOW2 MOVLW 0X81 MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0XC3 MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0XE7 MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0XFF MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0XE7 MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0XC3 MOVWF PORTC MOVLW .100 CALL R_1msv MOVLW 0X81 MOVWF PORTC MOVLW .100 CALL R_1msv