amigo aqui
caballero mira a ver si pudes hacer este.
LO DEMAS........................................................
#INCLUDE<P16F84A.INC>
;DECLARACION DE VARIABLES
NUMERO EQU 20
REG1 EQU 21
REG2 EQU 22
REG3 EQU 23
RESTA EQU 24
ORG 00
GOTO INICIO
TABLA
ADDWF PCL,1
RETLW B'11000000' ;ANODO COMUN
RETLW B'11111001'
RETLW B'10100100'
RETLW B'10110000'
RETLW B'10011001'
RETLW B'10010010'
RETLW B'10000010'
RETLW B'11111000'
RETLW B'10000000'
RETLW B'10011000'
RETLW B'10111111'
INICIO
BSF STATUS,5
MOVLW H'00'
MOVWF PORTB
MOVLW B'01111'
MOVWF PORTA
BCF STATUS,5
CLRF PORTB
CLRF PORTA
GER
YYYYY MOVF PORTA,0
movwf NUMERO
GOTO DECODIFICAR
VISUALIZACION
MOVF UNIDAD,W
CALL TABLA
BCF PORTA,4
MOVWF PORTB
CALL RETARDO
BSF PORTA,4
MOVF DECENAS,W
CALL TABLA
MOVWF PORTB
BCF PORTB,7
CALL RETARDO
BSF PORTB,7
RETURN
DECODIFICAR
MOVF NUMERO,W
MOVWF RESTA
CLRF DECENAS
MOVLW .10
RE SUBWF RESTA,1
BTFSC STATUS,0
GOTO INCREME
ADDWF RESTA,1
MOVF RESTA,W
MOVWF UNIDAD
CALL VISUALIZACION
GOTO YYYY
INCREME INCF DECENAS,1
GOTO RE
SALUDOS