Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Examen Micros

Download as pdf or txt
Download as pdf or txt
You are on page 1of 6

Primer Examen Parcial Microcomputadoras

Alumno: Pastenes Pérez Jorge Luis

Pseudocódigo

INICIO
LIMPIAR PORTA, PORTB, PORTC, PORTD
CONFIG PORTA, PORTB, PORTC, PORTD
ENTRADAS: PORTA,PORTB,PORTC
SALIDAS: PORTD
LIMPIAR SALIDAS
INICIA LOOP
Switch (PORTC):
0→SUMA (PORTA+PORTB)
1→RESTA(PORTA-PORTB)
2→COMPARACION
Si PORTA<=PORTB, PORTD = ENCENDIDO
No, APAGADO
3→PARPADEDO (PORTA=ON, PORTB=OFF

CODIGO
processor 16f877
include <p16f877.inc>

valor1 equ h'21'


valor2 equ h'22'
valor3 equ h'23'
aux equ H'41'
cte1 equ 20h
cte2 equ 20h
cte3 equ 10h

ORG 0
GOTO INICIO

ORG 5

INICIO: CLRF PORTA ;Limpiamos el puerto A


BSF STATUS,RP0
BCF STATUS,RP1
MOVLW 06H ;DEFINIMOS LOS PUERTOS COMO
DIGITALES
MOVWF ADCON1
MOVLW 0X3F
MOVWF TRISA ;PUERTO A COMO ENTRADA
MOVLW 0XFF
MOVWF TRISB ;PUERTO B COMO ENTRADA
MOVLW 0XFF
MOVWF TRISC ;PUERTO C COMO ENTRADA
CLRF TRISD ;PUERTO D COMO SALIDA
BCF STATUS,RP0 ;
CLRF PORTD ;LIMPIAMOS LA SALIDA

PROGRAMA:
MOVF PORTC,0
ANDLW B'00000011'
ADDWF PCL,F
GOTO SUMA
GOTO RESTA
GOTO COMPARACION
GOTO PARPADEO

SUMA:
MOVF PORTA,W
ADDWF PORTB,W
MOVWF PORTD
GOTO PROGRAMA

RESTA:
MOVF PORTB,W
MOVWF aux
COMF aux,f
MOVF PORTA,W
ADDWF aux,W
MOVWF aux
INCF aux,W
MOVWF PORTD
GOTO PROGRAMA

COMPARACION:
MOVF PORTA,W
SUBWF PORTB,W
BTFSC STATUS,Z
GOTO ON
BTFSS STATUS,C
GOTO OFF
GOTO ON

ON: MOVLW 0XFF


MOVWF PORTD
GOTO PROGRAMA
OFF: CLRF PORTD
GOTO PROGRAMA

PARPADEO:
CLRF PORTD
MOVF PORTA,W
apagado:
call retardo
DECFSZ W
GOTO apagado
MOVLW 0XFF
MOVWF PORTD
MOVF PORTB,W
encendido:
call retardo
DECFSZ W
GOTO encendido

GOTO PROGRAMA

retardo: MOVLW cte1


MOVWF valor1
tres MOVLW cte2
MOVWF valor2
dos MOVLW cte3
MOVWF valor3
uno DECFSZ valor3
GOTO uno
DECFSZ valor2
GOTO dos
DECFSZ valor1
GOTO tres
RETURN
END
CAPTURAS DE EJECUCION
SUMA
RESTA

COMPARACION
PARPADEO

You might also like