list p=16f877a radix hex include "p16f877a.inc" ;declaración de la librería ;*******************declaración de los bits de configuración*****
__config _cp_off&_cpd_off&_lvp_off&_wdt_off&_xt_osc
;************************** declaración de registros *******************
cblock 0x20
num1,num2,num3 ;********************************************
pointer ;registros utilizados en unidades,decenas ;binbcd y en la adquisición de centenas,millares ;datos
datoh
unidadest,decenast
centenast,millarest
sample
shift
;**********************************************************************
promedio
contador
endc
cblock 0x70 ;se coloca a datol en una de las localidades de datol ;memoria que están espejadas en banco0 y banco1
;*************************************** ;********declaración de los pines de control de la lcd*****************
#define
rs portc,2
#define
en portc,1 ;***************************** ;**************puerto donde estarán los pines de datos de la lcd***************
;********************************* ;*************************************;comandos de la pantalla
portlcd equ portd
limpiar equ b'00000001' ;limpia toda la pantalla
renglon1 equ b'10000000' ;coloca en el renglón 1
renglon2 equ b'11000000' ;coloca en el renglón 2
dison equ b'00001100' ;enciende el display
home equ b'00000010' ;va a la dirección 0
shiftdl equ b'00011100' ;rota el lcd a la izquierda
shiftdr equ b'00011000' ;rota el lcd a la derecha
shiftcl equ b'00010100' ;rota el cursor a la izquierda
shiftcr equ b'00010000' ;rota el cursor a la derecha ;***************************************************
org 0x00 ;vector de reset
goto inicio ;salto al inicio del código
org 0x04 ;vector de interrupción
;*******************tablas de datos para la subrutina binbcd*******************
tablau ;tabla de unidades
movf pointer,w
addwf pcl,f
retlw d'2'
retlw d'6'
retlw d'8'
retlw d'4'
retlw d'2'
retlw d'6'
retlw d'8'
retlw d'4'
retlw d'2'
retlw d'1'
tablad ;tabla de decenas
movf pointer,w
addwf pcl,f
retlw d'1'
retlw d'5'
retlw d'2'
retlw d'6'
retlw d'3'
retlw d'1'
retlw d'0'
retlw d'0'
retlw d'0'
retlw d'0'
tablac ;tabla de centenas
movf pointer,w
addwf pcl,f
retlw d'5'
retlw d'2'
retlw d'1'
retlw d'0'
retlw d'0'
retlw d'0'
retlw d'0'
retlw d'0'
retlw d'0'
retlw d'0'
;******************************************************************************
inicio:
bsf STATUS,RP0
bcf STATUS,RP1 ;cambio a banco1
clrf trisd ;configuro todo portd como salida
bcf trisc,1 ;configuro portc,1 como salida(en)
bcf trisc,2 ;configuro portc,2 como salida(rs)
bcf STATUS,RP0 ;cambio a banco0
clrf portd ;apago posible latchs en portd
clrf portc ;apago posible latchs en portc
call init_adqui ;llamo a la subrutina de configuración de ;el modulo adc
call initlcd ;llamo a la subrutina de inicialización ;de la pantalla lcd 16x2
start
call d16x2 ;llamo a la subrutina que escribe el mensaje inicial ;********** ;codigo que hace que se ejecute el comando de rotación a la derecha 46 veces
movlw .46
movwf shift
vuelta
call retardo
movlw shiftdr ;comando de rotación
call cmd
decfsz shift,f
goto vuelta
;****************************************
movlw limpiar ;comando de limpieza de pantalla
call cmd
opera
movlw renglon1 ;comando para empezar a escribir a partir ;de la primera dirección del renglon1
call cmd
clrf promedio ;se limpia al registro promedio
call adqui ;se llama a la subrutina de adquisición de ;datos del adc
call binbcd ;llamo a la subrutina que convierte de binario ;a ascii
;****************************************
movf millares,w ;mando los datos adquiridos a la lcd
call dato
movf centenas,w
call dato
movf decenas,w
call dato
movf unidades,w
call dato
;****************************************
movlw b'11011111' ;dato para el símbolo de grado
call dato
movlw 'c' ;la c de celsius
call dato
goto opera ;regreso al inicio del programa principal
;**************************subrutina de los mensajes **************************
d16x2 movlw "p"
call dato
movlw "r"
call dato
movlw "o"
call dato
movlw "y"
call dato
movlw "e"
call dato
movlw "c"
call dato
movlw "t"
call dato
movlw "o"
call dato
movlw " "
call dato
movlw "p"
call dato
movlw "d"
call dato
movlw "m"
call dato
movlw renglon2
call cmd
movlw "e"
call dato
movlw "l"
call dato
movlw "e"
call dato
movlw "t"
call dato
movlw "r"
call dato
movlw "o"
call dato
movlw "n"
call dato
movlw "i"
call dato
movlw "c"
call dato
movlw "a"
call dato
movlw " "
call dato
movlw "a"
call dato
movlw "/"
call dato
movlw "d"
call dato
return
;**********************subrutina de adquisición del adc**********************
adqui: call sampletime ;retardo de adquisición
bsf adcon0,go ;inicia la conversión
btfsc adcon0,go ;ya se termino la conversión?
goto $-1 ;no? pregunta de nuevo
banksel adresh ;si, continua
movf adresh,w ;lee la parte más significativa
movwf datoh ;guárdalo en datoh
banksel adresl ;cambio a banco1
movf adresl,w ;lee la parte menos significativa
movwf datol ;guárdalo en datol
banksel portb ;cambio a banco0
bcf status,c ;borra el bit de acarreo
rrf datoh,f ;elimino el bit menos significativo
rrf datol,f ;para ocupar solo 9 bits
return
sampletime:
movlw .225
movwf sample
espera_s:
nop
nop
decfsz sample,f
goto espera_s
return
;***********************subrutina de inicialización lcd************************
initlcd:
movlw b'00110000' ;1
call cmd
movlw b'00110000' ;2
call cmd
movlw b'00110000' ;3
call cmd
movlw b'00111100' ;4
call cmd
movlw b'00001000' ;5
call cmd
movlw b'00000001' ;6
call cmd
movlw b'00000110' ;7
call cmd
movlw dison ;8
call cmd
movlw home
call cmd
return
;*****************subrutina que envía los caracteres a la lcd******************
dato movwf portlcd
bsf rs
nop
nop
nop
bsf en
call retardo5ms
bcf en
return
;******************subrutina que envía los comandos a la lcd*******************
cmd movwf portlcd
bcf rs
nop
nop
nop
bsf en
call retardo5ms
bcf en
return
;******************************************************************************
retardo5ms
movlw d'1'
movwf num3
otra25 movlw d'100'
movwf num2
otra15 movlw d'166'
movwf num1
otra5 decfsz num1,f
goto otra5
decfsz num2,f
goto otra15
decfsz num3,f
goto otra25
return
;******************************************************************************
retardo movlw d'3'
movwf num3
otra25a movlw d'200
' movwf num2
otra15a movlw d'166'
movwf num1
otra5a decfsz num1,f
goto otra5a
decfsz num2,f
goto otra15a
decfsz num3,f
goto otra25a
return
;******************subrutina de conversión de binario a ascii******************
binbcd clrf millares
clrf unidades
clrf decenas
clrf centenas
clrf pointer
otra btfss datoh,7
goto rota
call tablau
addwf unidades,f
call tablad
addwf decenas,f
call tablac
addwf centenas,f
;****************************************
movf unidades,w
sublw d'10'
btfss status,c
goto mayor
goto menor
mayor incf decenas,f
movlw d'10'
subwf unidades,f
goto dece
menor movlw d'10'
subwf unidades,w
btfss status,z
goto dece
goto mayor
;****************************************
dece movf decenas,w
sublw d'10'
btfss status,c
goto mayord
goto menord
mayord incf centenas,f
movlw d'10'
subwf decenas,f
goto cente
menord movlw d'10'
subwf decenas,w
btfss status,z
goto cente
goto mayord
;****************************************
cente movf centenas,w
sublw d'10'
btfss status,c
goto mayorc
goto menorc
mayorc incf millares,f
movlw d'10'
subwf centenas,f
goto milla
menorc movlw d'10'
subwf centenas,w
btfss status,z
goto milla
goto mayorc
;****************************************
milla movf millares,w
sublw d'10'
btfss status,c
goto mayorm
goto menorm
mayorm movlw d'10'
subwf millares,f
goto rota
menorm movlw d'10'
subwf millares,w
btfss status,z
goto rota
goto mayorm
;****************************************
rota rlf datol,f
rlf datoh,f
incf pointer,f
movf pointer,w
sublw d'10'
btfss status,z
goto otra
movlw 0x30
addwf unidades,f
movlw 0x30
addwf decenas,f
movlw 0x30
addwf centenas,f
movlw 0x30
addwf millares,f
return
;**********************subrutina de configuración del cad**********************
init_adqui:
bsf status,rp0
bsf TRISA,0
clrf adcon1
bcf status,rp0
movlw b'11000001'
movwf adcon0
return
end ;final del programa
.
