Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
0% encontró este documento útil (0 votos)
24 vistas3 páginas

Practica

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1/ 3

IEST GILDA LILIANA BALLIVIAN ROSADO

AREA ACADEMICA: ELECTRÓNICA INDUSTRIAL

RACTICA No. 1 PRACTICA VIRTUAL CON MPLAB Y PROTEUS

1. Escribir el programa en MPLAB de acuerdo a los pasos seguidos por el docente.


2. Compilar el programa y corregir los errores.
3. Luego correr el programa.
4. Simular con proteus el programa desarrollado.

Jose Angel Velez Oblitas


Electrónica Industrial III Noche

; REGISTRO OPTION
; ----------------------------------------------
; X X TOCS TOSE PSA PS2 PS1 PS0
; ----------------------------------------------
; 1 1 1 1 1 0 0 0 = 0xF8
; ----------------------------------------------
; C.EVEN. F.BAJ TMR0 Escalamiento

list p=16f877 ;Comando que indica el Pic usado


include "p16f877.inc" ;Etiquetas genéricas para el Pic16F877
CONF_ADCON1 EQU b'00000110' ; PA entrada digital
CONF_OPT EQU 0xF8 ; Valor a escribir en el registro de
configuracion del TMR0

LIMITE EQU 0x0A ; Limite de la cuenta


TEMP EQU 0x20 ; Variable temporal
org 0x000 ;Inicio del programa en la posición cero de memoria
nop ;Libre (uso del debugger)
nop
_inicio
bsf STATUS,RP0 ;Ir banco 1
bcf STATUS,RP1
movlw CONF_ADCON1 ;PA como entrada digital
movwf ADCON1
movlw 0xFF
movwf TRISA ;PA entrada
clrf TRISB ;PB salida
movlw CONF_OPT
movwf OPTION_REG ;Configuracion del TMRO
bcf STATUS,RP0 ;Ir banco 0
bcf STATUS,RP1
clrf TMR0 ;TMR0=0
BUCLE
movf TMR0,W ;W=TMR0
movwf TEMP ;TEMP=W
movlw LIMITE ;W=10
xorwf TEMP,W ;W XOR TEMP
btfss STATUS,Z ;EL resultado de la anterior instruccion es 0?
goto SIGUE ;Z=0, NO es diferente de 0, TMRO = 0,1,2,3,4,5,6,7,8,9
clrf TMR0 ;Z=1, SI vale 10, TMRO > 9, TMR0=0
clrf TEMP ;Temp=0
SIGUE
movf TEMP,W ;W=TEMP
call DISPLAY ;Decodifica el valor de DISPLAY
movwf PORTB ;Escribe el valor en PORTB
goto BUCLE ;Salta a la etiqueta bucle
DISPLAY
addwf PCL,f
retlw b'01000000' ;0
retlw b'01111001' ;1
retlw b'00100100' ;2
retlw b'00110000' ;3
retlw b'00011001' ;4
retlw b'00010010' ;5
retlw b'00000010' ;6
retlw b'01111000' ;7
retlw b'00000000' ;8
retlw b'00010000' ;9
END

También podría gustarte