Bases de datos

;Realice un programa para el PIC, que muestre en un display,
;una ascendente del 0 al 9 si el bit RA0 está en 1,
;que muestre una cuenta descendente si el bit esta en 0,
;el display estarán elpuerto B, y la cuenta en el contador deberá cambiar e inmediato si cambia el valor RA0.

;INTEGRANTES

;Jonathan Martínez Ramírez
;Luis Ángel covia mariscal
;Edson Alberto murillo Rodríguez;Cesar Antonio Gómez López

LIST P=16F84 ; tipo de pic
INCLUDE "P16F84.INC" ; librería
ENSAMBLADOR
__CONFIG H'3FF9' ; palabra configuración

R0 EQU0C
R1 EQU 0D
R2 EQU 0E

ORG 0X00 ; comenzamos en la dirección 1
GOTO INICIO

INICIO BSF STATUS, 5 ; pasamos al bank1
CLRF TRISB ; ponemos el PORTB salida
BCF 3,5 ;regresamos al bank0

COMPARA
BTFSC PORTA, 0 ; si el RA0 = 0 se salta 1 Inst.
GOTO CERO ; ejecutamos instrucciones CERO
GOTO NUEVE ; ejecutamos instrucciones NUEVE

CERO
MOVLWB'11000000' ; asignar el valor a W
MOVWF PORTB ; PORTB= W
CALL RETARDO
BTFSC PORTA, 0 ; si el RA0 = 0 se salta 1 Inst.
GOTO UNO
GOTO COMPARA

UNO
MOVLW B'11111001'
MOVWFPORTB
CALL RETARDO
BTFSC PORTA,0
GOTO DOS
GOTO CERO

DOS
MOVLW B'10100100'
MOVWF PORTB
CALL RETARDO
BTFSC PORTA, 0
GOTO TRES
GOTO UNO

TRES
MOVLW B'10110000'MOVWF PORTB
CALL RETARDO
BTFSC PORTA, 0
GOTO CUATRO
GOTO DOS

CUATRO
MOVLW B'10011001'
MOVWF PORTB
CALL RETARDO
BTFSC PORTA, 0
GOTO CINCO
GOTO TRESCINCO
MOVLW B'10010010'
MOVWF PORTB
CALL RETARDO
BTFSC PORTA,0
GOTO SEIS
GOTO CUATRO


SEIS
MOVLW B'10000010'
MOVWF PORTB
CALL RETARDO
BTFSC PORTA,0GOTO SIETE
GOTO CINCO

SIETE
MOVLW B'11111000'
MOVWF PORTB
CALL RETARDO
BTFSC PORTA, 0
GOTO OCHO
GOTO SEIS

OCHO
MOVLW B'10000000'
MOVWF...