Manejo De Displays Con Pic16f887

C:\proyectos\asembler\Puertos_16F887\Display_887.asm

domingo, 13 de septiembre de 2009 12:48

TITLE "Manejo de dos displays de 7 segmentos" SUBTITLE "Configuración de puertos del PIC16F887 " PROCESSOR 16F887 INCLUDE

P16F887.INC

;Palabra de configuracion OSCILADOR XT

__CONFIG _CONFIG1,_LVP_OFF&_FCMEN_OFF&_IESO_OFF&_BOR_OFF&_CPD_OFF&_CP_OFF& _MCLRE_OFF&_PWRTE_ON&_WDT_OFF&_INTRC_OSC_NOCLKOUT __CONFIG _CONFIG2,_WRT_OFF&_BOR21V ;Definición de Entradas/Salidas #DEFINE DIS_UNI PORTA,1 #DEFINE DIS_DEC PORTA,2

;Activar transistor NPN para habilitar display de las unidades ;Activar transistor NPN para habilitar display de las decenas

CBLOCK 0X20 AUXA,AUXB,AUXC ENDC ;*******************************************************************************************

ORG GOTO

0X00

PPAL

;Configuración de registros del PIC16F887

CONFIG_PIC ; BANCO 4

BANKSEL CLRF CLRF

ANSEL ANSEL ANSELH

; BANCO 1

BANKSEL MOVLW MOVWF MOVLW MOVWF MOVLW MOVWF

TRISA B'11111001' TRISA B'00000001' TRISB B'01101001' OSCCON

; BANCO 0

BANKSEL CLRF RETURN

PORTA PORTB

;******************************************************************************** ;Rutina de retardo para visualización

RETARDO

RETAR3 RETAR2 RETAR1

MOVLW MOVWF MOVLW MOVWF MOVLW MOVWF DECFSZ GOTO DECFSZ

.1

AUXA .2

AUXB .100

AUXC AUXC,F RETAR1 AUXB,F -1-

C:\proyectos\asembler\Puertos_16F887\Display_887.asm

GOTO DECFSZ GOTO RETURN

domingo, 13 de septiembre de 2009 12:48

RETAR2 AUXA,F RETAR3

;*************************************************************************************** ;Tabla para activación de segmentos en display de cátodo común

TABLA_DISPLAY_CC ADDWF RETLW RETLW RETLW RETLW RETLW RETLW RETLW RETLW RETLW RETLW RETLW

PCL,F B'01111110' B'00001100' B'10110110' B'10011110' B'11001100' B'11011010' B'11111010' B'00001110' B'11111110' B'11001110' B'00000000'

;0 ;1 ;2 ;3 ;4 ;5 ;6 ;7 ;8 ;9 ;APAGADO

;************************************************************************** ;Rutina para visualización de valor en display

VISUAL_CC MOVLW

08

CALL

TABLA_DISPLAY_CC PORTB DIS_UNI

MOVWF BSF NOP

BCF NOP CALL

DIS_DEC

CLRF

RETARDO PORTB

MOVLW

05

CALL

TABLA_DISPLAY_CC PORTB DIS_UNI

MOVWF BCF NOP BSF NOP CALL

CLRF RETURN

;Dato para visualizar en el disply de las unidades

;;Dato para visualizar en el disply de las decenas

DIS_DEC RETARDO PORTB

;******************************************************************************** ;Programa principal PPAL CALL CONFIG_PIC BUCLE CALL VISUAL_CC

GOTO

BUCLE

END

-2-