LIST P=16F877 ;Se indica el modo de procesador INCLUDE ;se incluye la definicion de los registros internos __config 3D31 sincbit EQU 0x50 ;contador envio de bits Wdata EQU 0x51 ;variable de intercambio de datos CMData EQU 0x52 ;variable de comandos RXmsb EQU 0x53 ;registros de recepcion de datos RXlsb EQU 0x54 CheckS EQU 0x56 PDel0 EQU 0x21 PDel1 EQU 0x22 PDel2 EQU 0x23 BUFFER EQU 0x24 INNER EQU 0x25 ;delay variable mS OUTER EQU 0x26 ;delay variable mS Digito EQU 0x27 Digito2 EQU 0x28 ASCII_H EQU 0x31 ASCII_M EQU 0x32 ASCII_L EQU 0x33 HEXADECIMAL EQU 0x34 ;---------------------------------------------------------------------------- org 0x00 ;vector de inicio goto INICIO org 0x05 ;despues del vector de interrupcion ;<<<<<<----------------- INICIO PROGRAMA PRINCIPAL ------------------->>>>>>> ;---------------------------------------------------------------------------- INICIO bsf STATUS,RP0 ;banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- movlw 0x06 ;Puerto A en modo digital movwf ADCON1 clrf TRISA ;PortA como salida clrf TRISB ;PortB como salida bcf STATUS,RP0 ;banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- clrf PORTA ;Limpia latches puerto clrf PORTB ;Limpia latches puerto clrf Wdata clrf RXmsb clrf RXlsb ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' START call LCD_INI ;Inicia LCD (CFG puertos...) movlw b'00111000' call LCD_REG START_1 movlw b'00000001' ;Borrar LCD y Home call LCD_REG movlw b'00000110' ; call LCD_REG movlw b'00001111' ;LCD On, cursor Off,Parpadeo Off call LCD_REG call tbl_hygro call tbl_temp call sht11_Set8bits ;############################################################################### bucle call PDelay ;retardo de 2 segundos call sht11_Humedad ;muestrea la medida RXmsb:RXlsb ;mostrar en lcd!************************************************************ inLCD movf RXlsb,w ;muestra la humedad relativa por LCD RH RXlsb call Hex_Ascii movlw 0x89 ;Direccion caracter call LCD_REG movf ASCII_H,W ;sobreescribe el dato xorlw 0x30 ;Comprueba si ASCII_H es cero (hay o no hay centenas?) btfss STATUS,Z goto nocero1 movlw 0x20 ;Si no hay centenas, se genera un espacio en blanco CALL LCD_DATOS ;Visualiza caracter goto nocero2 nocero1 movf ASCII_H,W ;==================================== CALL LCD_DATOS ;Visualiza caracter nocero2 movf ASCII_M,W ;==================================== CALL LCD_DATOS ;Visualiza caracter movf ASCII_L,W ;==================================== CALL LCD_DATOS ;Visualiza caracter movlw '%' CALL LCD_DATOS ;Visualiza caracter clrf PORTB goto bucle ;------------------------------------------------------------- ;//////////////////RUTINAS SENSOR SHT11/////////////////////////////; sht11_Humedad ;LECTURA HUMEDAD 2 bytes call SHT11_start ; Inicio de transmision movlw b'00000101' call SHT11_CMD ; Envio: Lectura de humedad call waitACK ; espera que llegue ACK desde el sensor call adqtime ; espera que pase el tiempo de adquisicion call readMSB ; lee el byte alto call setACK call readLSB ; lee el byte bajo call setACK call CheckSum call setNACK ;call CalcRH ; Calcula %RH y ajusta linealidad, vuelve con el valor en RH return ;------------------------------------------------------------------------------------------------------------------------------------ sht11_Tempera ;LECTURA TEMPERATURA 2 bytes call SHT11_start ; Inicio de transmision movlw b'00000011' call SHT11_CMD ; Envio: Lectura de Temperatura call waitACK ; espera que llegue ACK desde el sensor call adqtime ; espera que pase el tiempo de adquisicion call readMSB ; lee el byte alto call setACK call readLSB ; lee el byte bajo call setNACK ;call CalcRH ; Calcula %RH y ajusta linealidad, vuelve con el valor en RH return ;------------------------------------------------------------------------------------------------------------------------------------ sht11_Set8bits ;configura el sensor para trabajar en modo 8 bits call SHT11_start ; Inicio de transmision movlw b'00000110' call SHT11_CMD ; Envio: Escritura de registro interno call waitACK ; espera que llegue ACK desde el sensor bcf RXmsb,0 ; pone un 1 en el bit 0 de status... (8 bit RH, 12 bit °T) movf RXmsb,W ; y carga el stats modificado del sensor call SHT11_CMD ; Envio: modificacion de status call waitACK ; espera que llegue ACK desde el sensor return ;------------------------------------------------------------------------------------------------------------------------------------- SHT11_start ;transmision start bsf STATUS,RP0 ; banco 1 bcf STATUS,RP1 bcf TRISB,0 ; puertos como salida ;////////////// AJUSTAR ESTOS PARAMETROS \\\\\\\\\\\\\\\\ bcf TRISB,1 bcf STATUS,RP0 ; banco 0 bsf PORTB,0 ; DATA a 1 (por defecto) nop ; espera un poco nop bsf PORTB,1 ; Se aCLK bcf PORTB,0 ; DATA (pulso bajo) bcf PORTB,1 ; Se da un pulso que pasa de alto a bajo y luego nuevamente a alto en el bit CLK bsf PORTB,1 ; mientras DATA se encuentra en estado bajo. bsf PORTB,0 ; DATA (por defecto alto) bcf PORTB,1 ; return ;------------------------------------------------------------------------------------------------------------------------------------- SHT11_CMD movwf CMData ; guarda el comando en variable clrf sincbit bcf STATUS,C ; borra carry bsf STATUS,RP0 ; banco 1 bcf TRISB,0 ; pone DATA port,0 como salida bcf STATUS,RP0 ; banco 0 cont_send rlf CMData,F ; rota a la izquierda, bit alto en carry ;envio de datos segun el protocolo del sht11 send_data btfsc STATUS,C ; comprueba si es 1 o 0 goto uno ; cero bcf PORTB,1 ; SCK falling edge -_ bcf PORTB,0 ; DATA change bsf PORTB,1 ; SCK rising edge _- goto sht11_compTX ; salta uno bcf PORTB,1 ; SCK falling edge -_ bsf PORTB,0 ; DATA change bsf PORTB,1 ; SCK rising edge _- ;Comprobacion para 8 rotaciones, una por bit del comando. sht11_compTX movlw .7 ; comprobacion 8 bits subwf sincbit,W ; Compara btfsc STATUS,Z ; Es el ultimo? return ; Si, >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> incf sincbit,f ; Incrementa numero de sincbit goto cont_send ; Vuelve a escribir ;------------------------------------------------------------------------------------------------------------------------------------- waitACK ;espera el ACK del sensor bsf STATUS,RP0 ; banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bsf TRISB,0 ; pone DATA port,0 como entrada bcf STATUS,RP0 ; banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- nop nop nop nop ACKrx bcf PORTB,1 ; SCK falling edge nop nop ; 5uS de retardo nop nop nop bsf PORTB,1 ; SCK rising edge btfsc PORTB,0 ; comprueba data goto ACKrx ; NO, bucle bcf PORTB,1 ; SCK falling edge estado bajo por defecto return ;------------------------------------------------------------------------------------------------------------------------------------- adqtime btfsc PORTB,0 ; comprueba data goto adqtime ; NO, bucle return ;------------------------------------------------------------------------------------------------------------------------------------- readMSB clrf RXmsb ; limpia registro bsf RXmsb,0 ; pone un 1 que indicara en carry el final leemsb bcf PORTB,1 ; SCK falling edge bsf PORTB,1 ; SCK rising edge btfss PORTB,0 ; lee data goto es_ceromsb es_unomsb rlf RXmsb,f ; rota a la izquierda bsf RXmsb,0 ; pone un 1 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leemsb ; continua y captura el siguiente bit return es_ceromsb rlf RXmsb,f ; rota a la izquierda bcf RXmsb,0 ; pone un 0 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leemsb ; continua y captura el siguiente bit return ;------------------------------------------------------------------------------------------------------------------------------------- readLSB clrf RXlsb ; limpia registro bsf RXlsb,0 ; pone un 1 que indicara en carry el final leelsb bcf PORTB,1 ; SCK falling edge bsf PORTB,1 ; SCK rising edge btfss PORTB,0 ; lee data goto es_cerolsb es_unolsb rlf RXlsb,f ; rota a la izquierda bsf RXlsb,0 ; pone un 1 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leelsb ; continua y captura el siguiente bit return es_cerolsb rlf RXlsb,f ; rota a la izquierda bcf RXlsb,0 ; pone un 0 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leelsb ; continua y captura el siguiente bit return ;------------------------------------------------------------------------------------------------------------------------------------- CheckSum clrf CheckS ; limpia registro bsf CheckS,0 ; pone un 1 que indicara en carry el final leeCheck bcf PORTB,1 ; SCK falling edge bsf PORTB,1 ; SCK rising edge btfss PORTB,0 ; lee data goto es_ceroCheck es_unoCheck rlf CheckS,f ; rota a la izquierda bsf CheckS,0 ; pone un 1 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leeCheck ; continua y captura el siguiente bit return es_ceroCheck rlf CheckS,f ; rota a la izquierda bcf CheckS,0 ; pone un 0 en el bit 0 btfss STATUS,C ; salio la marca por carry? goto leeCheck ; continua y captura el siguiente bit return ;------------------------------------------------------------------------------------------------------------------------------------- setACK bsf STATUS,RP0 ; banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bcf TRISB,0 ; pone DATA port,0 como salida bcf STATUS,RP0 ; banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bcf PORTB,1 ; SCK falling edge bcf PORTB,0 ; DATA change nivel logico 0 bcf bsf PORTB,1 ; SCK rising edge nop nop nop nop nop nop nop nop ;bsf PORTB,0 ; DATA change nivel logico 1(reposo) bsf STATUS,RP0 ; banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bsf TRISB,0 ; pone DATA port,0 como entrada bcf STATUS,RP0 ; banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- return ;------------------------------------------------------------------------------------------------------------------------------------- setNACK bsf STATUS,RP0 ; banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bcf TRISB,0 ; pone DATA port,0 como salida bcf STATUS,RP0 ; banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bcf PORTB,1 ; SCK falling edge bsf PORTB,0 ; DATA change nivel logico 0 bsf PORTB,1 ; SCK rising edge nop bcf PORTB,1 ; baja clk bsf STATUS,RP0 ; banco 1 _-_-_-_-_-_-_-_-_-_-_-_-_-_- bsf TRISB,0 ; pone DATA port,0 como entrada bcf STATUS,RP0 ; banco 0 _-_-_-_-_-_-_-_-_-_-_-_-_-_- return End