Bases de datos
;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...
Regístrate para leer el documento completo.