Code:
;******************************************************************************
;
; Weather Station Software
;
; This program links a homemade weather station to a PIC 16F628A with display
; and logger functions. Wind direction, wind speed and a lightening detector
; use Dallas One-Wire bus chips and a one-wire protocol. An SMT11
; relative humidity and temperature chip is also used and communicates using
; a 2-wire protocol.
;
; The data is displayed on a 2x24 LCD module using two screens.
; Display 1 shows temp, humidity, wind speed and wind direction.
; Display 2 shows max/min temperature and lightning strikes. The display
; toggles when the Display Toggle button is pushed. The weather data is
; sampled every second for wind direction and lightning strikes, and every 2 seconds for
; temperature, relative humidity, wind speed. The data is also output on an RS-232
; serial link (9600 baud) every minute. The PIC 16F628A pin layout:
;
;
; RA0 LCD Data
; RA1 LCD Data
; RA2 LCD Data
; RA3 LCD Data
; RA4
; RA5
; RA6 LCD RS
; RA7 LCD EN
;
; RB0 Switch input - Display Toggle
; RB1 RS232 RX
; RB2 RS232 TX
; RB3 One-wire bus
; RB4 2-wire Clock
; RB5 2-wire Data
; RB6
; RB7
;
; Routines for SHT11 temperature and humidity calculations were modified
; from original code by Claudiu Chiculita http://www.ac.ugal.ro/staff/ckiku/software/sht11.htm
;
;******************************************************************************
;
; Filename: weather.asm
; Date: 18 November 2003
; File Version: 1.0
;
; Author: A.Round
; Company:
;
;
;******************************************************************************
;
; Files required: "m_lcd.h"
;
;******************************************************************************
;
; Notes: Version 1.0 - Initial Baseline
;
;
;
;*****************************************************************************
list p=16f628A ; list directive to define processor
#include <p16F628A.inc> ; processor specific variable definitions
__CONFIG _CP_OFF & _DATA_CP_OFF & _LVP_OFF & _BOREN_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTOSC_OSC_NOCLKOUT
; '__CONFIG' directive is used to embed configuration word within .asm file.
; The lables following the directive are located in the respective .inc file.
; See data sheet for additional information on configuration word settings.
;***** LCD HARDWARE DECLARATION *****
LCD_DATA EQU PORTA
LCD_DATA_TRIS EQU TRISA
#define R_S LCD_DATA,6 ; LCD Register Select control line RA6
#define EN LCD_DATA,7 ; LCD Enable control line RA7
;***** IC2 HARDWARE DECLARATION *****
IC2 EQU PORTB
IC12_TRIS EQU TRISB
#define IC2_CLOCK IC2,6 ; IC2 clock line
#define IC2_DATA IC2,7 ; IC2 data line
;***** TWO WIRE HARDWARE DECLARATION *****
TWO_WIRE EQU PORTB
TWO_WIRE_TRIS EQU TRISB
#define TWO_WIRE_CLOCK TWO_WIRE,4 ; Two Wire Serial Clock line RB4
#define TWO_WIRE_DATA TWO_WIRE,5 ; Two Wire Serial Data line RB5
;***** 1-WIRE HARDWARE DECLARATION *****
D1WIRE_PORT EQU PORTB
D1WIRE_TRIS EQU TRISB
#define D1WIRE D1WIRE_PORT,3 ; 1-Wire Bus RB0
;***** VARIABLE DECLARATION *****
CBLOCK 0X20
TEMP1 ; Used in LCD subroutines, SHT-11 Time Out subroutine
TEMP2 ; Used in LCD_Hex subroutine, SHT-11 Time Out subroutine
TEMP3 ; Used in 1-Wire Reset subroutine, SHT-11 Time Out subroutine
CNTR ; Used in 1-Wire WB/RB, 1-Wire Reset subroutines
CNTR1 ; Used in 1-Wire RB, Read DS2423 subroutines
CNTR2 ; Used in 1-Wire Read DS2423 subroutine
COUNT ; Used in RCOUNT macro
START_COUNT ; Used to determine wind speed
STORE ; Used in 16 Bit CRC subroutine
CRC8 ; Used for 8 bit CRC subroutine
CRC16_HI ; Used for 16 bit CRC subroutine
CRC16_LO ; Used for 16 bit CRC subroutine
DELAY1 ; Used in Delay macros
DELAY2 ; Used in Delay macros
HALF_SEC_COUNT ; Used for Timer1 ISR routines
TWO_SEC_COUNT ; Used for Timer1 ISR routines
TA1 ; Low byte DS2423 counter memory page address
TA2 ; High byte DS2423 counter memory page address
WSPEED_VALUE ; Latest Wind Speed value
FLAGS ; B0=0 Start Display B0=1 Second Display B1=0 call DS2423 table
; B1=1 call DS2450 table
TEST ; Used for keyboard de-bounce
DATAH ; MS byte from SHT11
DATAL ; LS byte from SHT11
CALCH ; Working temperature/RH/WD/LS MS byte
CALCL ; Working temperature/RH/WD/LS LS byte
TDATAHMAX ; Maximum temperature reading MS byte
TDATALMAX ; Maximum temperature reading LS byte
TDATAHMIN ; Minimum temperature reading MS byte
TDATALMIN ; Minimum temperature reading LS byte
NEG ; Temperature sign register
T10 ; ASCII Temperature 10's
T1 ; ASCII Temperature 1's
T01 ; ASCII Temperature 0.1's
TSIGN_MAX_VALUE ; maximum temperature sign (pos or neg)
TSIGN_MIN_VALUE ; minimum temperature sign (pos or neg)
T10MAX_VALUE ; ASCII Temperature 10's maximum value
T10MIN_VALUE ; ASCII Temperature 10's minimum value
T1MAX_VALUE ; ASCII Temperature 1's maximum value
T1MIN_VALUE ; ASCII Temperature 1's minimum value
T01MAX_VALUE ; ASCII Temperature 0.1's maximum value
T01MIN_VALUE ; ASCII Temperature 0.1's minimum value
R100 ; ASCII Relative Humidity 100's
R10 ; ASCII Relative Humidity 10's
R1 ; ACSII Relative Humidity 1's
WD100 ; ASCII Wind direction 100's
WD10 ; ASCII Wind direction 10's
WD1 ; ASCII Wind direction 1's
WS10 ; ASCII Wind speed 10's
WS1 ; ASCII Wind speed 1's
LS100 ; ASCII Lightning Strikes 100's
LS10 ; ASCII Lightning Strikes 10's
LS1 ; ASCII Lightning Strikes 1's
RH_32 ; Raw Relative Humidity divided by 32
RH_128 ; Raw Relative Humidity divided by 128
RH ; Calculated Relative Humidity
SHT_ERROR1 ; ASCII SHT11 Error code
SHT_ERROR2 ; ASCII SHT11 Error code
D1WIRE_ERROR ; 1 Wire Error code
CHANNELC ; 8 bit ADC reading from Channel C pot in wind vane
CHANNELD ; 8 bit ADC reading from Channel D pot in wind vane
HIGH_ADDRESS ; temp register to pass table read address information
LOW_ADDRESS ; temp register to pass table read address information
SUBH ; Used in 16BIT subtraction routine
SUBL ; Used in 16BIT subtraction routine
DIGIT ; Used in binary to ASCII temperature conversion
ENDC
CBLOCK 0X70
W_TEMP
STATUS_TEMP
ENDC
;**********************************************************************
ORG 0x000 ; processor reset vector
GOTO MAIN ; go to beginning of program
ORG 0x004 ; interrupt vector location
GIE_CLEAR
BCF INTCON, GIE ; turn off interupts
BTFSC INTCON, GIE ; make sure they are really turned off
GOTO GIE_CLEAR
MOVWF W_TEMP ; save off current W register contents
MOVF STATUS, W ; move status register into W register
MOVWF STATUS_TEMP ; save off contents of STATUS register
MOVLW ' ' ; clear 1 Wire error code
MOVWF D1WIRE_ERROR
BTFSC INTCON, INTF ; test to see if Display Change button has been pushed
GOTO DISPLAY_CHANGE : if yes, go to the display change routine
BTFSC PIR1, TMR1IF ; test to see if Timer1 overflow
GOTO HALF_SEC ; if yes, go to time counting routine
GOTO ISR_OVER ; if no, go to ISR_OVER
HALF_SEC
BCF PIR1, TMR1IF ; Clear Timer1 interrupt flag
INCF HALF_SEC_COUNT,F ; increment half seconds count
MOVFW HALF_SEC_COUNT
BTFSS HALF_SEC_COUNT, 0 ; check to see if this was a whole second
GOTO HALF_SEC1 ; If yes, go to HALF_SEC1
GOTO ISR_OVER ; If no, go to ISR_OVER and wait for next interrupt
HALF_SEC1
MOVFW HALF_SEC_COUNT ; check to see if 2 seconds has elapsed
ANDLW b'00011111'
SUBLW b'00000100'
SKPNZ
GOTO HALF_SEC2 ; If yes, update wspeed, wdir, temp, rh
CALL WDIR_UPDATE ; If no, update wdir and lightning strikes
CALL LSTRIKE_UPDATE
GOTO ISR_OVER ; Go to ISR_OVER and wait for next interrupt
HALF_SEC2
CLRF HALF_SEC_COUNT ; Clear half seconds count
CALL WSPEED_UPDATE ; update wspeed, wdir, temp, rh, lstrike
CALL WDIR_UPDATE
CALL TEMP_RH_UPDATE
CALL LSTRIKE_UPDATE
INCF TWO_SEC_COUNT,F ; increment ten second count
MOVFW TWO_SEC_COUNT
SUBLW b'00011110' ; Check to see if one minute has past
SKPNZ
GOTO HALF_SEC3 ; If yes, go to HALF_SEC3
GOTO ISR_OVER ; If no, go to ISR_OVER and wait for next interrupt
HALF_SEC3
CLRF TWO_SEC_COUNT ; Clear 2 second counter
CALL RS232_TX ; Send current readings to RS232
GOTO ISR_OVER
WSPEED_UPDATE
MOVLW 0xC0 ; Load low byte counter memory page address
MOVWF TA1
MOVLW 0x01 ; Load high byte counter memory page address
MOVWF TA2
CALL RCOUNT ; Read the counter value from the DS2423
MOVF START_COUNT,W ; Move previous counter value into W
SUBWF COUNT,W ; Subtract previous counter value from latest counter value
MOVWF WSPEED_VALUE ; Store result in WSPEED_VALUE
MOVF COUNT,W ; Overwrite previous counter value with latest counter value
MOVWF START_COUNT
MOVF WSPEED_VALUE,W
MOVWF CNTR
MOVLW HIGH WIND_SPEED
MOVWF PCLATH
MOVLW LOW WIND_SPEED + 1
ADDWF CNTR,W
BTFSC STATUS,C
INCF PCLATH,F
CALL WIND_SPEED ; get BCD wind speed from look-up table
CALL WS_BCD_ASCII ; convert BCD table value to ASCII
RETURN
WDIR_UPDATE
CALL DS2450_READ ; read value of two 360 degree potentiometers converted to
BCF STATUS,C ; eight bit readings
MOVLW 0X0F
SUBWF CHANNELD,W
BTFSS STATUS,C ; if set, CHANNELD is greater than 0x0F
GOTO WD_CC ; if not set, CHANNELD is less that 0x0F and use CHANNELC
BCF STATUS,C
MOVLW 0XF0
SUBWF CHANNELD,W
BTFSC STATUS,C ; if clear, CHANNELD is less than 0x0F
GOTO WD_CC ; use Channel C pot as Channel D is near deadband
GOTO WD_CD ; use Channel D pot as Channel D is clear of deadband
WD_CC
MOVLW 0X80 ; add 180 degrees to the reading of Channel C pot
ADDWF CHANNELC,W
GOTO CALC_WD
D_CD
MOVF CHANNELD,W
CALC_WD
MOVWF CALCL ; calculate degrees from Channel C/D ADC converter values
CLRF CALCH
MOVLW D'14' ; multiply CHANNELD reading by 14 to give degrees*10
CLRF CNTR
BSF CNTR, 3
RRF CALCL,F
LOOP
SKPNC
ADDWF CALCH,F
RRF CALCH,F
RRF CALCL,F
DECFSZ CNTR,F
GOTO LOOP
CALL WD_ASCII ; convert degrees*10 into ASCII
RETURN
TEMP_RH_UPDATE ; Routines for SHT11 temperature and humidity calculations were modified
; from original code by Claudiu Chiculita
MOVLW ' ' ; clear SHT11 error codes
MOVWF SHT_ERROR1
MOVWF SHT_ERROR2
CALL SHT_CONNECTION_RESET ; reset SHT11 serial interface
MOVLW 0x03 ; temperature conversion command
CALL SHT_DATA_ACQUIRE ; get temperature data. W will be 1 if an error was detected
ADDLW D'0'
BTFSS STATUS,Z ; check for errors
GOTO ISR_OVER ; if yes, go to ISR_OVER
MOVF DATAL,W ; if no, move temperature reading LS byte to CALCL
MOVWF CALCL
MOVF DATAH,W ; move temperature reading MS byte to CALCH
MOVWF CALCH
MOVLW HIGH(D'4000') ; calculate temperature by subtracting 4000
MOVWF SUBH
MOVLW LOW(D'4000')
MOVWF SUBL
CLRF NEG
CALL SUB16
BC POS_TEMP ; if no carry then temperature is positive
MOVLW HIGH(D'1') ; if carry, then temperature is negative
MOVWF SUBH
MOVLW LOW(D'1')
MOVWF SUBL
CALL SUB16
COMF CALCH,F
COMF CALCL,F
INCF NEG,F ; increment NEG to indicate negative temperature
POS_TEMP
CALL TEMP_ASCII ; convert temperature into ASCII and store in T10, T1, T01
CALL SHT_CONNECTION_RESET ; reset SHT11 serial interface
MOVLW 0x05 ; relative humidity conversion command
CALL SHT_DATA_ACQUIRE ; get relative humidity data. W is 1 if an error was detected
ADDLW D'0'
BTFSS STATUS,Z ; check for errors
GOTO ISR_OVER ; if yes, go to ISR_OVER
MOVF DATAL,W ; if no, move relative humidity reading LS byte to CALCL
MOVWF CALCL
MOVF DATAH,W ; move relative humidity reading MS byte to CALCH
MOVWF CALCH
MOVLW D'5'
MOVWF CNTR ; number of right shifts for RH calculations
LIN_RH1
BCF STATUS,C ; 5 right shifts to CALCH, CALCL to give raw reading/32
RRF CALCH,F
RRF CALCL,F
DECFSZ CNTR,F
GOTO LIN_RH1
MOVF CALCL,W
MOVWF RH_32 ; raw RH reading divided by 32
MOVLW D'2'
MOVWF CNTR
LIN_RH11
BCF STATUS,C ; 2 right shifts to CALCH, CALCL to give raw reading/128
RRF CALCH,F
RRF CALCL,F
DECFSZ CNTR,F
GOTO LIN_RH11
MOVF CALCL,W
MOVWF RH_128 ; raw RH reading divided by 128
MOVF DATAL,W ; move relative humidity reading LS byte to CALCL
MOVWF CALCL
MOVF DATAH,W ; move relative humidity reading MS byte to CALCH
MOVWF CALCH
MOVLW HIGH(D'1024')
MOVWF SUBH
MOVLW LOW(D'1024')
MOVWF SUBL
CALL SUB16
BTFSS STATUS,C ; is relative humidity reading RH<1024
GOTO LIN_RH2 ; if yes, use RH% = RH_32 + RH_128 -3
MOVLW HIGH(D'1546')
MOVWF SUBH
MOVLW LOW(D'1546')
MOVWF SUBL
CALL SUB16
BTFSS STATUS,C ; is relative humidity reading 1024<RH<2560?
GOTO LIN_RH3 ; if yes, use RH% = RH_31 + 4
MOVF RH_128,W ; if no, then use RH% = RH_32 - RH_128 + 24
SUBWF RH_32,W
ADDLW D'24'
MOVWF RH
SUBLW D'100'
BTFSS STATUS,C ; is result greater than 100%?
GOTO LIN_RH_HUN ; yes, limit value to 100%
GOTO LIN_RH_OVER ; no, finished
LIN_RH_HUN
MOVLW D'100' ; limit RH to 100%
MOVWF RH
GOTO LIN_RH_OVER
LIN_RH2
MOVF RH_32,W ; RH% = RH_32 + RH_128 -3
ADDWF RH_128,W
ADDLW -D'3'
BTFSS STATUS,C ; is result less than 0%?
GOTO LIN_RH_ZERO ; yes, limit value to 0%
MOVWF RH
GOTO LIN_RH_OVER ; no, finished
LIN_RH_ZERO
MOVLW D'0' ; limit RH to 0%
MOVWF RH
GOTO LIN_RH_OVER
LIN_RH3
MOVF RH_32,W ; RH% = RH_31 + 4
ADDLW D'4'
MOVWF RH
LIN_RH_OVER
CLRF CALCH
MOVF RH,W
MOVWF CALCL
CALL RH_ASCII ; convert RH into ASCII and store in R100, R10, R1
RETURN
LSTRIKE_UPDATE
MOVLW 0xE0 ; Load low byte counter memory page address
MOVWF TA1
MOVLW 0x01 ; Load high byte counter memory page address
MOVWF TA2
CALL RCOUNT ; Read the counter value from the DS2423
MOVF COUNT,W
MOVWF CALCL
CLRF CALCH
CALL LS_ASCII
RETURN
DISPLAY_CHANGE
BTFSC FLAGS,0 ; is start screen displayed?
GOTO DISPLAY_CHANGE1 ; if no, go to DISPLAY_CHANGE1
BSF FLAGS,0 ; if yes, set display flag
CALL SECOND_SCREEN ; put screen two on LCD
GOTO DISPLAY_CHANGE2
DISPLAY_CHANGE1
BCF FLAGS,0 ; clear display flag
CALL START_SCREEN ; put start screen on LCD
DISPLAY_CHANGE2
MOVF PORTB, W ; read PORTB
MOVWF TEST ; store PORTB in TEST
BTFSS TEST, 0 ; has display key been released?
GOTO DISPLAY_CHANGE2 ; no, go to DISPLAY_CHANGE2
CALL DELAY_KB ; 10 ms Keyboard debounce
MOVF PORTB, W ; read PORTB
MOVWF TEST ; store PORTB in TEST
BTFSS TEST, 0 ; has display key been released?
GOTO DISPLAY_CHANGE2 ; no, go to DISPLAY_CHANGE2
BCF INTCON, INTF ; clear RB0 interupt flag
GOTO ISR_OVER
ISR_OVER
CALL DISPLAY_UPDATE ; Update display
MOVF STATUS_TEMP,W ; retrieve copy of STATUS register
MOVWF STATUS ; restore pre-isr STATUS register contents
SWAPF W_TEMP,F
SWAPF W_TEMP,W ; restore pre-isr W register contents
RETFIE ; return from interrupt
;***** INCLUDE FILES *****
#include "m_lcd.h"
;*************************************** TABLES *************************************
;***** 1-WIRE DEVICE ROM CODE TABLE *****
; This needs to be modified should any of the 1-Wire devices be changed
DS2423
MOVWF PCL
DT 0x1D,0x56,0xA7,0x04,0x00,0x00,0x00,0x33
DS2450
MOVWF PCL
DT 0x20,0x1B,0xAD,0x00,0x00,0x00,0x00,0x93
;***** SCREEN TABLES *****
SCREEN1
MOVWF PCL
DT "TEMP . ",0xDF,"C RELH %",0x00
SCREEN2
MOVWF PCL
DT "WSPD KTS WDIR ",0xDF,"T",0x00
SCREEN3
MOVWF PCL
DT "TMIN . ",0xDF,"C TMAX . ",0xDF,"C",0x00
SCREEN4
MOVWF PCL
DT "LSTRIKES ",0x00
;***** WIND SPEED LOOK-UP TABLE *****
WIND_SPEED
MOVWF PCL
DT 0x00,0x00,0x01,0x01,0x01,0x02,0x02,0x03,0x03,0x03,0x04,0x04,0x05,0x05,0x05,0x06
DT 0x06,0x07,0x07,0x07,0x08,0x08,0x09,0x09,0x09,0x10,0x10,0x11,0x11,0x12,0x12,0x12
DT 0x13,0x13,0x14,0x14,0x14,0x15,0x15,0x16,0x16,0x16,0x17,0x17,0x18,0x18,0x18,0x19
DT 0x19,0x20,0x20,0x20,0x21,0x21,0x22,0x22,0x23,0x23,0x23,0x24,0x24,0x25,0x25,0x25
DT 0x26,0x26,0x27,0x27,0x27,0x28,0x28,0x29,0x29,0x29,0x30,0x30,0x31,0x31,0x31,0x32
DT 0x32,0x33,0x33,0x33,0x34,0x34,0x35,0x35,0x36,0x36,0x36,0x37,0x37,0x38,0x38,0x38
DT 0x39,0x39,0x40,0x40,0x40,0x41,0x41,0x42,0x42,0x42,0x43,0x43,0x44,0x44,0x44,0x45
DT 0x45,0x46,0x46,0x47,0x47,0x47,0x48,0x48,0x49,0x49,0x49,0x50,0x50,0x51,0x51,0x51
DT 0x52,0x52,0x53,0x53,0x53,0x54,0x54,0x55,0x55,0x55,0x56,0x56,0x57,0x57,0x58,0x58
DT 0x58,0x59,0x59,0x60,0x60,0x60,0x61,0x61,0x62,0x62,0x62,0x63,0x63,0x64,0x64,0x64
DT 0x65,0x65,0x66,0x66,0x66,0x67,0x67,0x68,0x68,0x69,0x69,0x69,0x70,0x70,0x71,0x71
DT 0x71,0x72,0x72,0x73,0x73,0x73,0x74,0x74,0x75,0x75,0x75,0x76,0x76,0x77,0x77,0x77
DT 0x78,0x78,0x79,0x79,0x80,0x80,0x80,0x81,0x81,0x82,0x82,0x82,0x83,0x83,0x84,0x84
DT 0x84,0x85,0x85,0x86,0x86,0x86,0x87,0x87,0x88,0x88,0x88,0x89,0x89,0x90,0x90,0x91
DT 0x91,0x91,0x92,0x92,0x93,0x93,0x93,0x94,0x94,0x95,0x95,0x95,0x96,0x96,0x97,0x97
DT 0x97,0x98,0x98,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99
;*************************************** DELAY MACROS *************************************
;***** SHORT DELAY MACRO *****
D10USEC MACRO TCNST ; provides a delay equal to TCNST * 10 usecs
MOVLW TCNST
MOVWF DELAY1
CALL D10USEC1
ENDM
D10USEC1
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ DELAY1, F
GOTO D10USEC1
RETURN
;***** LONG DELAY MACRO *****
DLONG MACRO TCNST ; provided a delay of TCNST * msec
MOVLW TCNST
MOVWF DELAY1
CALL OUTER
ENDM
OUTER
MOVLW D'110' ; close to 1.0 msec delay when set to 110
MOVWF DELAY2
INNER
NOP
NOP
NOP
NOP
NOP
NOP
DECFSZ DELAY2, F
GOTO INNER
DECFSZ DELAY1, F
GOTO OUTER
RETURN
;*************************************** DELAY SUBROUTINES *************************************
DELAY_KB
DLONG D'10'
RETURN
;*************************************** LCD MODULE SUBROUTINES *************************************
; For KS0066U controller chips
; Note that lower bits of Port are being used
;***** LCD MODULE INITALIZATION SUBROUTINE *****
LCD_Init
BANKSEL LCD_DATA_TRIS
CLRF LCD_DATA_TRIS
BANKSEL LCD_DATA
CLRF LCD_DATA
BCF R_S ; write to the KS0066U IR.
MOVLW b'00000011' ; Command for 8-bit interface
MOVWF LCD_DATA
BSF EN
NOP
NOP
BCF EN
DLONG D'5' ; have to wait 5ms here
BSF EN
NOP
NOP
BCF EN
D10USEC D'12' ; have to wait 100us here
BSF EN
NOP
NOP
BCF EN
D10USEC D'10' ; have to wait 100us here
MOVLW FUNC_SET ; Function Set
CALL LCD_Cmd
MOVLW DISP_OFF ; Display Off
CALL LCD_Cmd
MOVLW CLR_DISP ; Clear the Display
CALL LCD_Cmd
MOVLW ENTRY_INC ; Entry Cursor Increment
CALL LCD_Cmd
MOVLW DISP_ON ; Display On, No Cursor
CALL LCD_Cmd
RETURN
;***** LCD_Nbl SUBROUTINE *****
LCD_Nbl
MOVWF TEMP1 ; Character to be sent is in
; W so put in Temp1
DLONG D'2' ; Wait 2ms instead of Busy Check
SWAPF TEMP1, W
ANDLW 0x0F ; Get upper nibble into lower half port
MOVWF LCD_DATA ; Send data to LCD
BSF R_S ; Set LCD to data mode
CALL LCDtglclk ; Toggle EN
MOVF TEMP1, W
ANDLW 0x0F ; Get lower nibble into upper half port
MOVWF LCD_DATA ; Send data to LCD
BSF R_S ; Set LCD to data mode
CALL LCDtglclk ; Toggle EN
RETURN
LCDtglclk
BSF EN ; Toggle EN for LCD
NOP
NOP
BCF EN
RETURN
;***** LCD_Cmd SUBROUTINE *****
LCD_Cmd
MOVWF TEMP1 ; Command to be sent is in
; W so put in Temp1
DLONG D'2'
SWAPF TEMP1, W
ANDLW 0x0F ; Get upper nibble into lower half port
MOVWF LCD_DATA ; Send data to LCD
BCF R_S ; Set LCD to command mode
CALL LCDtglclk ; Toggle EN
MOVF TEMP1, W
ANDLW 0x0F ; Get lower nibble into lower half port
MOVWF LCD_DATA ; Send data to LCD
BCF R_S ; Set LCD to command mode
CALL LCDtglclk ; Toggle EN
RETURN
;***** LCD_Hex SUBROUTINE *****
LCD_Hex
MOVWF TEMP2 ; Character to be sent is in
; W so put in Temp2
SWAPF TEMP2, W
ANDLW 0x0F ; Get upper nibble into lower half port
CALL LCD_Hex1 ; Convert upper nybble to ASCII
CALL LCD_Nbl ; Output ASCII on LCD display
MOVF TEMP2, W
ANDLW 0x0F
; Get lower nibble into lower half port
CALL LCD_Hex1 ; Convert lower nybble to ASCII
CALL LCD_Nbl ; Output ASCII on LCD display
RETURN
LCD_Hex1
ADDLW 0xF6 ; This routine converts a number in w to an
BTFSC STATUS, C ; ASCII hex number. Result in W
ADDLW 0x07
ADDLW 0x3A
RETURN
;***** LCD_Clear SUBROUTINE *****
LCD_Clear
MOVLW CLR_DISP
CALL LCD_Cmd
RETURN
;***************************************LCD MODULE MACROS *************************************
;***** LCD_Move Macro *****
LCD_Move MACRO Address
MOVLW Address ;(Address|0x80)
CALL LCD_Cmd
ENDM
;*************************************** 1-WIRE SUBROUTINES *************************************
;***** 1-WIRE MATCH ROM SUBROUTINE *****
MATCH_ROM
MOVLW 0X55 ; MATCH ROM Command
MOVWF TEMP1
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW D'8' ; 8 bytes of ROM ID data long
MOVWF CNTR2
MATCH_ROM1
MOVLW D'8' ; 8 bits long
MOVWF CNTR
MOVF HIGH_ADDRESS,W
MOVWF PCLATH
INCF LOW_ADDRESS,W
ADDWF CNTR1,W
BTFSC STATUS,C
INCF PCLATH,F
BTFSS FLAGS,1 ; is FLAGS,1 set?
GOTO CALL_DS2423 ; no, call DS2423 table
CALL DS2450 ; yes, call DS2450 table
GOTO NEXT
CALL_DS2423
CALL DS2423
NEXT
MOVWF TEMP1 ; and output to 1820
CALL WB ; One-Wire Write Byte subroutine
DECFSZ CNTR2,F ; decrement count and skip next if=0
GOTO MATCH_ROM2 ; else increment address and read again
GOTO MATCH_ROM3 ; done sending ROM ID
MATCH_ROM2
INCF CNTR1,F
GOTO MATCH_ROM1
MATCH_ROM3
RETURN
;***** 1-WIRE Reset SUBROUTINE *****
RESET
BANKSEL D1WIRE_PORT
BCF D1WIRE ; Set 1-Wire Bus low
BANKSEL D1WIRE_TRIS
BCF D1WIRE ; 1-Wire Bus direction = output, 1-wire forced low
D10USEC D'50' ; 500 µs DELAY
BSF D1WIRE ; 1-Wire Bus direction = input, 1-wire pulled up
BANKSEL D1WIRE_PORT
D10USEC D'6' ; 60 µs DELAY
CLRF TEMP3 ; Initialize samples register=0
MOVLW D'36' ; 36 counts (180 µs)
MOVWF CNTR ; Put 36 into count register
CALL RESET1
RETURN
RESET1
BTFSS D1WIRE ; Skip next if 1-wire is high
INCF TEMP3,F ; Low so increment samples register
DECFSZ CNTR,F ; Decrement count and skip next if=0
GOTO RESET1 ; Else go back, sample, decrement again
D10USEC D'24' ; 240 µs DELAY
RETURN ; Done (TEMP3 contains sampled low count)
;***** 1-WIRE WRITE SUBROUTINE *****
; Input: Byte to write in TEMP1
; : Number of bits to send in CNTR
;
WB
CALL WB0
RETURN
WB0
RRF TEMP1,F ; Rotate LSBit data into carry
BTFSS STATUS,C ; Skip next if carry (data)=1
GOTO WB2 ; Else jump to data=0 routine
WB1
CALL W1S ; Call the write-1 time slot
GOTO WB3 ; Go on
WB2
CALL W0S ; Call the write-0 time slot
WB3
DECFSZ CNTR,1 ; Decrement count and skip next if=0
GOTO WB0 ; Else go back and do another bit
RETURN ; Done sending all bits
W1S
BANKSEL D1WIRE_PORT
BCF D1WIRE ; Force 1-wire I/O bit low
BANKSEL D1WIRE_TRIS
BCF D1WIRE ; I/O direction=output, 1-wire forced low
D10USEC D'1'
BSF D1WIRE ; I/O direction=input, 1-wire pulled up
BANKSEL D1WIRE_PORT
D10USEC D'10' ; 100 µs DELAY
RETURN ; Done sending bit
W0S
BANKSEL D1WIRE_PORT
BCF D1WIRE ; Force 1-wire I/O bit low
BANKSEL D1WIRE_TRIS ; Point to Bank1 (direction control)
BCF D1WIRE ; I/O direction=output, 1-wire forced low
D10USEC D'6' ; 60 µs DELAY
BSF D1WIRE ; I/O direction=input, 1-wire pulled up
BANKSEL D1WIRE_PORT
D10USEC D'1'
RETURN ; Done sending bit
;***** 1-WIRE READ SUBROUTINE *****
; Input: number of bits to read in CNTR
; Output: read byte in TEMP1
;
RB
CALL RB0
RETURN
RB0
CALL RS ; Call the read time slot
MOVF TEMP2,1 ; Get the sampled low count
BCF STATUS,C ; Clear carry (read data=0 setup)
BTFSC STATUS,Z ; Skip next if sampled count <>0
BSF STATUS,C ; Set carry (read data=1)
RRF TEMP1,1 ; Rotate data into the MSBit
DECFSZ CNTR,1 ; Decrement count and skip next if=0
GOTO RB0 ; Else go back and do another bit
RETURN ; Done reading all bits
RS
BANKSEL D1WIRE_PORT
BCF D1WIRE ; Force 1-wire I/O bit low
BANKSEL D1WIRE_TRIS ; Point to Bank1 (direction control)
BCF D1WIRE ; I/O direction=output, 1-wire forced low
D10USEC D'1' ; 10 µs DELAY
BSF D1WIRE ; I/O direction=input, 1-wire pulled up
BANKSEL D1WIRE_PORT
MOVLW D'3' ; 3 count (15 µs)
MOVWF CNTR1 ; into count register
CLRF TEMP2 ; Initialize sample count=0
RS2
BTFSS D1WIRE ; Skip next if 1-wire input=1
INCF TEMP2,1 ; Low so increment samples register
DECFSZ CNTR1,1 ; Decrement count and skip next if=0
GOTO RS2 ; Else go back and decrement again
D10USEC D'5' ; 50 µs DELAY
RETURN ; Done receiving bit
;***** 16 bit CRC SUBROUTINE *****
; Input: Byte for CRC in TEMP1
; Output: Original byte in TEMP1,
; CRC16_HI and CRC16_LO new value of CRC16
;
DSCRC16
MOVLW D'8' ; 8 bits
MOVWF CNTR ; store counter
MOVF TEMP1,W
MOVWF STORE ; Store TEMP1
Crc_Get_Bit
RRF TEMP1,F ; Bit in C
MOVF TEMP1,W ; Value to W
SKPNC
GOTO Crc_In_1
BTFSS CRC16_LO,0 ; Lowest bit set ?
GOTO Crc_Cont ; Go to count with C=0
SETC
GOTO Crc_Cont ; Go to count with C=1
Crc_In_1
BTFSC CRC16_LO,0 ; Lowest bit zero ?
CLRC ; If no, C=0 = complement
Crc_Cont
SKPC
GOTO Crc_Shift ; If C=0 only shift
BTFSC CRC16_HI,6 ; Complement 15th bit of CRC
GOTO Crc1
BSF CRC16_HI,6 ; If clear, set
GOTO Crc2
Crc1
BCF CRC16_HI,6 ; If set, clear
Crc2
BTFSC CRC16_LO,1 ; Complement 2nd bit of CRC
GOTO Crc3
BSF CRC16_LO,1
GOTO Crc_Shift
Crc3
BCF CRC16_LO,1
Crc_Shift
RRF CRC16_HI,F ; 16bit rotate
RRF CRC16_LO,F
MOVF TEMP1,W
DECFSZ CNTR,F
GOTO Crc_Get_Bit
MOVF STORE,W
MOVWF TEMP1 ; Restore TEMP1
RETURN
;***************************************READ DS2423 SUBROUTINE*************************************
; Reads DS2423 Counter
; Input:TA1 is low byte address, TA2 is high byte address
; Output: counter value in COUNT
RCOUNT
CLRF CRC16_LO
CLRF CRC16_HI
CLRF CNTR1
CLRF COUNT
CALL RESET
MOVF TEMP3,W ; Move data into W
SKPNZ ; Check to see if it is zero
GOTO ERROR_TRAP ; If it is zero, go to ERROR_TRAP
MOVLW HIGH DS2423 ; send Match Rom command using ID of DS2423
MOVWF HIGH_ADDRESS
MOVLW LOW DS2423 ; send Match Rom command using ID of DS2423
MOVWF LOW_ADDRESS
BCF FLAGS,1 ; clear FLAGS,1 to indicate DS2423 table read
CALL MATCH_ROM
MOVLW 0XA5 ; READ COUNTER Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVF TA1,W ; COUNTER Low Address Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVF TA2,W ; COUNTER High Address Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW D'32'
MOVWF CNTR2
SKIPD32
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16
DECFSZ CNTR2,F
GOTO SKIPD32
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16
MOVF TEMP1,W
MOVWF COUNT ; transfer value to COUNT. Only interested in last byte of
; counter
MOVLW D'3'
MOVWF CNTR2
READD
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16
DECFSZ CNTR2,F
GOTO READD
MOVLW D'4'
MOVWF CNTR2
SKIPD2
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16
DECFSZ CNTR2, 1
GOTO SKIPD2
READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
COMF CRC16_LO,F
MOVF CRC16_LO,W
SUBWF TEMP1,W
SKPZ
GOTO ERROR_TRAP
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
COMF CRC16_HI,F
MOVF CRC16_HI,W
SUBWF TEMP1,W
SKPZ
GOTO ERROR_TRAP
GOTO CRC_OVER
ERROR_TRAP
MOVLW 'E'
MOVWF D1WIRE_ERROR
RETURN
CRC_OVER
RETURN
;***************************************DS2450 INITIALIZATION SUBROUTINE*************************
; Initialize DS2450 to do 8 bit conversions on Channel A,B,C,D with Vcc available (0X40 written to
; Memory location 1C)
DS2450_INIT
CLRF CRC16_LO
CLRF CRC16_HI
CLRF CNTR1
CALL RESET
MOVF TEMP3,W ; Move data into W
SKPNZ ; Check to see if it is zero
GOTO ERROR_TRAP ; If it is zero, go to ERROR_TRAP
MOVLW HIGH DS2450 ; send Match Rom command using ID of DS2450
MOVWF HIGH_ADDRESS
MOVLW LOW DS2450 ; send Match Rom command using ID of DS2450
MOVWF LOW_ADDRESS
BSF FLAGS,1 ; set FLAGS,1 to indicate DS2450 table read
CALL MATCH_ROM
MOVLW 0X55 ; Write Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x0C ; Page 1 Channel C Control/Status Low Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x00 ; Page 1 Channel C Control/Status High Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x08 ; Channel C Control, 8 bit conversion
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0x08
SUBWF TEMP1,W
BTFSS STATUS,Z
CALL ERROR_TRAP1
CLRF CRC16_LO
CLRF CRC16_HI
MOVLW 0x0D
MOVWF CRC16_LO
MOVLW 0x00
MOVWF CRC16_HI
MOVLW 0x01 ; Channel C Status, 5.12 Volts
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0x01
SUBWF TEMP1,W
BTFSS STATUS,Z
CALL ERROR_TRAP2
CLRF CRC16_LO
CLRF CRC16_HI
MOVLW 0x0E
MOVWF CRC16_LO
MOVLW 0x00
MOVWF CRC16_HI
MOVLW 0x08 ; Channel D Control, 8 bit conversion
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0x08
SUBWF TEMP1,W
BTFSS STATUS,Z
CALL ERROR_TRAP3
CLRF CRC16_LO
CLRF CRC16_HI
MOVLW 0x0F
MOVWF CRC16_LO
MOVLW 0x00
MOVWF CRC16_HI
MOVLW 0x01 ; Channel D Status, 5.12 Volts
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0x01
SUBWF TEMP1,W
BTFSS STATUS,Z
CALL ERROR_TRAP4
CALL RESET
CLRF CRC16_LO
CLRF CRC16_HI
CLRF CNTR1
CALL MATCH_ROM
MOVLW 0X55 ; Write Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x1C ; Page 4 Low Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x00 ; Page 4 High Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x40 ; VCC available alwyas
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0x40
SUBWF TEMP1,W
BTFSS STATUS,Z
CALL ERROR_TRAP5
CALL RESET
RETURN
ERROR_TRAP1
MOVLW '1'
MOVWF D1WIRE_ERROR
RETURN
ERROR_TRAP2
MOVLW '2'
MOVWF D1WIRE_ERROR
RETURN
ERROR_TRAP3
MOVLW '3'
MOVWF D1WIRE_ERROR
RETURN
ERROR_TRAP4
MOVLW '4'
MOVWF D1WIRE_ERROR
RETURN
ERROR_TRAP5
MOVLW '5'
MOVWF D1WIRE_ERROR
RETURN
;***************************************READ DS2450 SUBROUTINE*************************
; Read results of 8 bit conversions on Channel C,D
DS2450_READ
CLRF CRC16_LO
CLRF CRC16_HI
CLRF CNTR1
CALL RESET
MOVF TEMP3,W ; Move data into W
SKPNZ ; Check to see if it is zero
GOTO ERROR_TRAP ; If it is zero, go to ERROR_TRAP
MOVLW HIGH DS2450 ; send Match Rom command using ID of DS2450
MOVWF HIGH_ADDRESS
MOVLW LOW DS2450 ; send Match Rom command using ID of DS2450
MOVWF LOW_ADDRESS
BSF FLAGS,1 ; set FLAGS,1 to indicate DS2450 table read
CALL MATCH_ROM
MOVLW 0X3C ; Convert Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x0C ; input select mask
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x00 ; read out control byte
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
CALL READCRC
CONVER_WAIT
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
MOVLW 0xFF
SUBWF TEMP1,W
BTFSS STATUS,Z
GOTO CONVER_WAIT
CALL RESET
CLRF CRC16_LO
CLRF CRC16_HI
CLRF CNTR1
CALL MATCH_ROM
MOVLW 0XAA ; Read Command
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x04 ; Channel C Result Low Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW 0x00 ; Channel C Result High Address
MOVWF TEMP1
CALL DSCRC16
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL WB ; One-Wire Write Byte subroutine
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16 ; Channel C LS Byte
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16 ; Channel C MS Byte
MOVF TEMP1,W
MOVWF CHANNELC
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16 ; Channel D LS Byte
MOVLW D'8' ; 8 bits long
MOVWF CNTR
CALL RB ; One-Wire Read Byte subroutine
CALL DSCRC16 ; Channel D MS Byte
MOVF TEMP1,W
MOVWF CHANNELD
CALL READCRC
CALL RESET
RETURN
;*************************************** SHT11 SUBROUTINES *************************************
;***** SHT11 TRANSMISSION START SUBROUTINE *****
; Leaves DATA as input at end of subroutine
SHT_TX_START
BANKSEL TWO_WIRE
BCF TWO_WIRE_CLOCK ; set Clock line low
BCF TWO_WIRE_DATA ; set Data line low
BANKSEL TWO_WIRE_TRIS
BCF TWO_WIRE_CLOCK ; set Clock line as output
BCF TWO_WIRE_DATA ; set Data line as output
BANKSEL TWO_WIRE
BSF TWO_WIRE_DATA ; set Data line high
BSF TWO_WIRE_CLOCK ; set Clock line high
BCF TWO_WIRE_DATA ; set Data line low
BCF TWO_WIRE_CLOCK ; set Clock line low
BSF TWO_WIRE_CLOCK ; set Clock line high
BSF TWO_WIRE_DATA ; set Data line high
BCF TWO_WIRE_CLOCK ; set Clock line low
BANKSEL TWO_WIRE_TRIS
BSF TWO_WIRE_DATA ; set Data line as input
BANKSEL TWO_WIRE
RETURN
;***** SHT11 WRITE BYTE SUBROUTINE *****
; Input: Byte to write in TEMP1
; : Number of bits to send in CNTR
; Output: Carry=1 if no ACK was received
; Leaves DATA as input at end of subroutine
SHT_WRITE_BYTE
BANKSEL TWO_WIRE
BCF TWO_WIRE_CLOCK ; set Clock line low
BCF TWO_WIRE_DATA ; set Data line low
BANKSEL TWO_WIRE_TRIS
BCF TWO_WIRE_CLOCK ; set Clock line as output
BCF TWO_WIRE_DATA ; set Data line as output
BANKSEL TWO_WIRE
SHT_WRITE_BYTE1
BCF TWO_WIRE_CLOCK ; set Clock line low
RLF TEMP1,F ; rotate MSB into Carry
BTFSS STATUS,C ; is bit 1?
BCF TWO_WIRE_DATA ; no, set Data line low
BTFSC STATUS,C ; is bit 0?
BSF TWO_WIRE_DATA ; no. set Data line high
BSF TWO_WIRE_CLOCK ; set Clock line high
DECFSZ CNTR,F ; have all bits been sent?
GOTO SHT_WRITE_BYTE1 ; no, go to SHT_WRITE_BYTE
BANKSEL TWO_WIRE_TRIS
BSF TWO_WIRE_DATA ; set Data line as input
BANKSEL TWO_WIRE
BCF TWO_WIRE_CLOCK ; set Clock line low
BSF TWO_WIRE_CLOCK ; set Clock line high
BCF STATUS,C ; clear Carry flag
BTFSC TWO_WIRE_DATA ; is Data line low?
BSF STATUS,C ; no, set Carry bit to indicate no ACK received
BCF TWO_WIRE_CLOCK ; yes, set Clock line low
RETURN
;***** SHT11 READ BYTE SUBROUTINE *****
; Input: Number of bits to read in CNTR
; Output: Read byte in TEMP1
SHT_READ_BYTE
BANKSEL TWO_WIRE
CLRF TEMP1
BCF TWO_WIRE_CLOCK
BCF TWO_WIRE_DATA
BANKSEL TWO_WIRE_TRIS
BCF TWO_WIRE_CLOCK
BSF TWO_WIRE_DATA
BANKSEL TWO_WIRE
SHT_READ_BYTE1
BSF TWO_WIRE_CLOCK
BCF STATUS,C
BTFSC TWO_WIRE_DATA
BSF STATUS,C
RLF TEMP1,F
BCF TWO_WIRE_CLOCK
DECFSZ CNTR,F
GOTO SHT_READ_BYTE1
BANKSEL TWO_WIRE_TRIS
BCF TWO_WIRE_DATA
BANKSEL TWO_WIRE
BCF TWO_WIRE_DATA
BSF TWO_WIRE_CLOCK
BCF TWO_WIRE_CLOCK
RETURN
;***** SHT11 WAIT FOR DATA SUBROUTINE *****
;
WAIT_FOR_DATA
MOVLW D'195' ; this gives a maximum 250 msec delay while waiting for the SHT-11
MOVWF TEMP1 ; to finish the reading
WAIT_FOR_DATA1
CLRF TEMP2 ; inner nested counting loop
WAIT_FOR_DATA2
BTFSS TWO_WIRE_DATA ; is the data line low (SHT-11 signal that reading is finished)
RETLW D'0' ; if yes, return with w egual to 0
DECFSZ TEMP2,F ; if no, continue counting
GOTO WAIT_FOR_DATA2
DECFSZ TEMP1,F ; is TEMP1 now zero
GOTO WAIT_FOR_DATA1 ; if no, continue counting
RETLW D'1' ; if yes, SHT-11 has timed out. Return with W equal to 1
;***** SHT11 CONNECTION RESET SUBROUTINE *****
SHT_CONNECTION_RESET
BANKSEL TWO_WIRE
BCF TWO_WIRE_CLOCK
BCF TWO_WIRE_DATA
BANKSEL TWO_WIRE_TRIS
BCF TWO_WIRE_CLOCK
BCF TWO_WIRE_DATA
BANKSEL TWO_WIRE
MOVLW D'9'
MOVWF CNTR
BSF TWO_WIRE_DATA
SHT_CONNECTION_RESET1
BSF TWO_WIRE_CLOCK
BCF TWO_WIRE_CLOCK
DECFSZ CNTR,F
GOTO SHT_CONNECTION_RESET1
RETURN
;***** SHT11 DATA ACQUISITION SUBROUTINE *****
; Input: Command in W
; Output: Data in DATAH, DATAL
; 0 in W if data received
; 1 in W if communication timeout
SHT_DATA_ACQUIRE
MOVWF TEMP1
CALL SHT_TX_START
MOVLW D'8'
MOVWF CNTR
CALL SHT_WRITE_BYTE
BTFSC STATUS,C ; has the SHT-11 issued an ACK for the command
GOTO ERROR_NO_ACK ; if no, go to error routine
CALL WAIT_FOR_DATA ; if yes, wait for end of reading
XORLW D'1' ; did the SHT-11 timeout
BTFSC STATUS,Z
GOTO ERROR_TIMEOUT ; if yes, go to error routine
MOVLW D'8' ; if no, read first data byte
MOVWF CNTR
CALL SHT_READ_BYTE
MOVF TEMP1,W
MOVWF DATAH ; store first data byte in DATAH
MOVLW D'8' ; read second data byte
MOVWF CNTR
CALL SHT_READ_BYTE
MOVF TEMP1,W
MOVWF DATAL ; store second data byte in DATAL
RETLW D'0' ; return with W equal to 0 to indicate success
ERROR_NO_ACK
MOVLW '1' ; set ASCII error code 1 for no ack
MOVWF SHT_ERROR2
GOTO SHT_ERROR
ERROR_TIMEOUT
MOVLW '2' ; set ASCII error code 2 for timeout
MOVWF SHT_ERROR2
GOTO SHT_ERROR
ERROR_CRC
MOVLW '3' ; set ASCII error code 3 for wrong CRC
MOVWF SHT_ERROR2
GOTO SHT_ERROR
SHT_ERROR
MOVLW 'E' ; set ASCII error code E for error detected
MOVWF SHT_ERROR1
CALL SHT_CONNECTION_RESET ; reset SHT-11 serial interface
RETLW D'1' ; return with W equal to 1 to indicate error
;***************************************LCD SCREEN SUBROUTINES *************************************
;***** START SCREEN *****
START_SCREEN
CALL LCD_Clear
CLRF CNTR
START_SCREEN1
MOVLW HIGH SCREEN1
MOVWF PCLATH
MOVLW LOW SCREEN1 + 1
ADDWF CNTR,W
BTFSC STATUS,C
INCF PCLATH,F
CALL SCREEN1
ANDLW 0xFF
BTFSC STATUS, Z
GOTO START_SCREEN2
CALL LCD_Nbl
INCF CNTR,F
GOTO START_SCREEN1
START_SCREEN2
LCD_Move 0xC0
CLRF CNTR
START_SCREEN3
MOVLW HIGH SCREEN2
MOVWF PCLATH
MOVLW LOW SCREEN2 + 1
ADDWF CNTR,W
BTFSC STATUS,C
INCF PCLATH,F
CALL SCREEN2
ANDLW 0xFF
BTFSC STATUS, Z
GOTO START_SCREEN4
CALL LCD_Nbl
INCF CNTR,F
GOTO START_SCREEN3
START_SCREEN4
RETURN
;***** SECOND SCREEN *****
SECOND_SCREEN
CALL LCD_Clear
CLRF CNTR
SECOND_SCREEN1
MOVLW HIGH SCREEN3
MOVWF PCLATH
MOVLW LOW SCREEN3 + 1
ADDWF CNTR,W
BTFSC STATUS,C
INCF PCLATH,F
CALL SCREEN3
ANDLW 0xFF
BTFSC STATUS, Z
GOTO SECOND_SCREEN2
CALL LCD_Nbl
INCF CNTR,F
GOTO SECOND_SCREEN1
SECOND_SCREEN2
LCD_Move 0xC0
CLRF CNTR
SECOND_SCREEN3
MOVLW HIGH SCREEN4
MOVWF PCLATH
MOVLW LOW SCREEN4 + 1
ADDWF CNTR,W
BTFSC STATUS,C
INCF PCLATH,F
CALL SCREEN4
ANDLW 0xFF
BTFSC STATUS, Z
GOTO SECOND_SCREEN4
CALL LCD_Nbl
INCF CNTR,F
GOTO SECOND_SCREEN3
SECOND_SCREEN4
RETURN
;***** DISPLAY UPDATE *****
DISPLAY_UPDATE
BTFSC FLAGS,0
GOTO DISPLAY_UPDATE2
LCD_Move 0x84
MOVF NEG,W
CALL LCD_Nbl
MOVF T10,W
CALL LCD_Nbl
MOVF T1,W
CALL LCD_Nbl
LCD_Move 0x88
MOVF T01,W
CALL LCD_Nbl
LCD_Move 0X8C
MOVF SHT_ERROR1,W
CALL LCD_Nbl
MOVF SHT_ERROR2,W
CALL LCD_Nbl
LCD_Move 0x94
MOVF R100,W
CALL LCD_Nbl
MOVF R10,W
CALL LCD_Nbl
MOVF R1,W
CALL LCD_Nbl
LCD_Move 0xC5
MOVF WS10,W
CALL LCD_Nbl
MOVF WS1,W
CALL LCD_Nbl
LCD_Move 0xCC
MOVF D1WIRE_ERROR,W
CALL LCD_Nbl
LCD_Move 0xD3
MOVF WD100,W
CALL LCD_Nbl
MOVF WD10,W
CALL LCD_Nbl
MOVF WD1,W
CALL LCD_Nbl
GOTO DISPLAY_UPDATE3
DISPLAY_UPDATE2
LCD_Move 0x84
MOVF TSIGN_MIN_VALUE,W
CALL LCD_Nbl
MOVF T10MIN_VALUE,W
CALL LCD_Nbl
MOVF T1MIN_VALUE,W
CALL LCD_Nbl
LCD_Move 0x88
MOVF T01MIN_VALUE,W
CALL LCD_Nbl
LCD_Move 0x91
MOVF TSIGN_MAX_VALUE,W
CALL LCD_Nbl
MOVF T10MAX_VALUE,W
CALL LCD_Nbl
MOVF T1MAX_VALUE,W
CALL LCD_Nbl
LCD_Move 0x95
MOVF T01MAX_VALUE,W
CALL LCD_Nbl
LCD_Move 0xC9
MOVF LS100,W
CALL LCD_Nbl
MOVF LS10,W
CALL LCD_Nbl
MOVF LS1,W
CALL LCD_Nbl
DISPLAY_UPDATE3
RETURN
;***************************************MATH SUBROUTINES *************************************
;***** 16 BIT SUBTRACTION *****
; Input: CALCH, CALCL , SUBH, SUBL
; Output: CALCH=CALCH-SUBH, CALCL=CALCL-SUBL
SUB16
BCF STATUS,C
MOVF SUBL,W
SUBWF CALCL,F
MOVF SUBH,W
BTFSS STATUS,C
ADDLW D'1'
SUBWF CALCH,F
RETURN
;***** 16 BIT ADDITION *****
; Input: CALCH, CALCL , SUBH, SUBL
; Output: CALCH=CALCH+SUBH, CALCL=CALCL+SUBL
ADD16
MOVF SUBL,W
ADDWF CALCL,F
MOVF SUBH,W
BTFSC STATUS,C
ADDLW D'1'
ADDWF CALCH,F
RETURN
;***** 16 BIT MACRO *****
; Loads SUBH, SUBL with ARGL
LOADS MACRO ARGL
MOVLW HIGH(ARGL)
MOVWF SUBH
MOVLW LOW(ARGL)
MOVWF SUBL
ENDM
;***** BINARY TO ASCII CONVERSION MACRO*****
; Input: CALCH, CALCL, ARGL
; Output: ASCII value in DIGIT based on CALCH,CALCL divided by ARGL
DODIGIT MACRO ARGL
LOADS ARGL
CALL DOSUB
ENDM
DOSUB
MOVLW '0'-1
MOVWF DIGIT ; tracks ASCII value of count
DOSUB1
INCF DIGIT,F ; increment ASCII character
CALL SUB16
BTFSC STATUS,C ; any carry?
GOTO DOSUB1 ; no, keep subtracting
CALL ADD16 ; yes, reverse the last subtraction
MOVF DIGIT,W ; place ASCII value of count in W
RETURN
;***** TEMP DATA TO ASCII CONVERSION *****
; Input: Temp data is CALCH, CALCL
; Output: ASCII characters in T10,T1,T01 (leading spaces removed and leading minus if req'd)
TEMP_ASCII
DECFSZ NEG,F
GOTO TEMP_SIGN1 ; temperature is positive, no sign required
MOVLW '-' ; temperature is negative, sign required
MOVWF NEG
GOTO TEMP_SIGN2
TEMP_SIGN1
MOVLW ' ' ; temperature is positive, replace negative sign with space
MOVWF NEG
TEMP_SIGN2
DODIGIT D'1000' ; count 10's of degrees
MOVWF T10 ; store result in T10
DODIGIT D'100' ; count 1's of degrees
MOVWF T1 ; store result in T1
DODIGIT D'10' ; count 0.1's of degrees
MOVWF T01 ; store result in T01
BCF STATUS,C ; is temperature a new TMAX?
MOVF DATAL,W
SUBWF TDATALMAX,W
MOVF DATAH,W
BTFSS STATUS,C
ADDLW D'1'
SUBWF TDATAHMAX,W
BTFSC STATUS,C
GOTO OVER
MOVF DATAH,W ; yes, update TDATAHMAX, TDATALMAX
MOVWF TDATAHMAX
MOVF DATAL,W
MOVWF TDATALMAX
MOVF T10,W
MOVWF T10MAX_VALUE ; update T10MAX_VALUE
MOVF T1,W
MOVWF T1MAX_VALUE ; update T1MAX_VALUE
MOVF T01,W
MOVWF T01MAX_VALUE ; update T01MAX_VALUE
MOVF NEG,W
MOVWF TSIGN_MAX_VALUE ; update sign of maximum temperature
OVER
BCF STATUS,C ; is temperature a new TMIN?
MOVF DATAL,W
SUBWF TDATALMIN,W
MOVF DATAH,W
BTFSS STATUS,C
ADDLW D'1'
SUBWF TDATAHMIN,W
BTFSS STATUS,C
GOTO OVER1
MOVF DATAH,W ; yes, update TDATAHMIN, TDATALMIN
MOVWF TDATAHMIN
MOVF DATAL,W
MOVWF TDATALMIN
MOVF T10,W
MOVWF T10MIN_VALUE ; update T10MIN_VALUE
MOVF T1,W
MOVWF T1MIN_VALUE ; update T1MIN_VALUE
MOVF T01,W
MOVWF T01MIN_VALUE ; update T01MIN_VALUE
MOVF NEG,W
MOVWF TSIGN_MIN_VALUE
OVER1
BCF STATUS,RP0 ; check for leading zero
MOVLW '0'
XORWF T10,W
SKPZ
GOTO ZERO_END ; no leading zero
MOVLW ' ' ; leading zero found, replace with space
MOVWF T10
ZERO_END
RETURN
;***** RH DATA TO ASCII CONVERSION *****
; Input: RH data is in CALCH, CALCL
; Output: ASCII characters in R100,R10,R1 (leading zeros removed)
RH_ASCII
DODIGIT D'100' ; count 100's of relative humidity
MOVWF R100 ; store result in R100
DODIGIT D'10' ; count 10's of relative humidity
MOVWF R10 ; store result in R10
DODIGIT D'1' ; count 1's of relative humidity
MOVWF R1 ; store result in R1
BCF STATUS,RP0 ; check for leading zeros
MOVLW '0'
XORWF R100,W
SKPZ
GOTO RH_ZERO_END
MOVLW ' ' ; 100's leading zero found, replace with space
MOVWF R100
MOVLW '0'
XORWF R10,W
SKPZ
GOTO RH_ZERO_END
MOVLW ' ' ; 10's leading zero found, replace with space
MOVWF R10
RH_ZERO_END
RETURN
;***** WIND SPEED TO ASCII CONVERSION *****
; Input: WIND_SPEED look-up table value in W (BCD)
; Output: ASCII characters in WS10,WS1
WS_BCD_ASCII
MOVWF TEMP1
SWAPF TEMP1,W
ANDLW 0x0F
ADDLW 0x30
MOVWF WS10
BCF STATUS,RP0 ; check for leading zeros
MOVLW '0'
XORWF WS10,W
SKPZ
GOTO WS_ZERO_END
MOVLW ' ' ; 10's leading zero found, replace with space
MOVWF WS10
WS_ZERO_END
MOVF TEMP1,W
ANDLW 0x0F
ADDLW 0x30
MOVWF WS1
RETURN
;***** WIND DIRECTION TO ASCII CONVERSION *****
; Input: WD data is in CALCH, CALCL
; Output: ASCII characters in W100,W10,W1
WD_ASCII
DODIGIT D'1000' ; count 100's of relative humidity
MOVWF WD100 ; store result in W100
DODIGIT D'100' ; count 10's of relative humidity
MOVWF WD10 ; store result in W10
DODIGIT D'10' ; count 1's of relative humidity
MOVWF WD1 ; store result in W1
RETURN
;***** LIGHTING STRIKES TO ASCII CONVERSION *****
; Input: LS data is in CALCH, CALCL
; Output: ASCII characters in LS100,LS10,LS1 (leading zeros removed)
LS_ASCII
DODIGIT D'100' ; count 100's of relative humidity
MOVWF LS100 ; store result in LS100
DODIGIT D'10' ; count 10's of relative humidity
MOVWF LS10 ; store result in LS10
DODIGIT D'1' ; count 1's of relative humidity
MOVWF LS1 ; store result in LD1
BCF STATUS,RP0 ; check for leading zeros
MOVLW '0'
XORWF LS100,W
SKPZ
GOTO LS_ZERO_END
MOVLW ' ' ; 100's leading zero found, replace with space
MOVWF LS100
MOVLW '0'
XORWF LS10,W
SKPZ
GOTO LS_ZERO_END
MOVLW ' ' ; 10's leading zero found, replace with space
MOVWF LS10
LS_ZERO_END
RETURN
;***************************************RS232 SUBROUTINES *************************************
;***** TX WEATHER DATA *****
RS232_TX
MOVLW 'T'
CALL TX_DATA
MOVF NEG,W
CALL TX_DATA
MOVF T10,W
CALL TX_DATA
MOVF T1,W
CALL TX_DATA
MOVLW '.'
CALL TX_DATA
MOVF T01,W
CALL TX_DATA
MOVLW 'C'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVLW 'R'
CALL TX_DATA
MOVLW 'H'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVF R100,W
CALL TX_DATA
MOVF R10,W
CALL TX_DATA
MOVF R1,W
CALL TX_DATA
MOVLW 0X25
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVLW 'W'
CALL TX_DATA
MOVLW 'S'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVF WS10,W
CALL TX_DATA
MOVF WS1,W
CALL TX_DATA
MOVLW 'K'
CALL TX_DATA
MOVLW 'T'
CALL TX_DATA
MOVLW 'S'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVLW 'W'
CALL TX_DATA
MOVLW 'D'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVF WD100,W
CALL TX_DATA
MOVF WD10,W
CALL TX_DATA
MOVF WD1,W
CALL TX_DATA
MOVLW 'T'
CALL TX_DATA
MOVLW ' '
CALL TX_DATA
MOVLW 'L'
CALL TX_DATA
MOVLW 'S'
CALL TX_DATA
MOVLW ' '
MOVF LS100,W
CALL TX_DATA
MOVF LS10,W
CALL TX_DATA
MOVF LS1,W
CALL TX_DATA
MOVLW 0x0A
CALL TX_DATA
MOVLW 0X0D
CALL TX_DATA
RETURN
TX_DATA
BANKSEL PIR1
BTFSC PIR1,TXIF ;check if transmitter busy
GOTO TX_DATA1
GOTO TX_DATA
TX_DATA1
MOVWF TXREG
RETURN
;************** MAIN **************
MAIN
;***** INITALIZE *****
CLRF PORTA
CLRF PORTB
CLRF HALF_SEC_COUNT
CLRF TWO_SEC_COUNT
CLRF WSPEED_VALUE
CLRF FLAGS
MOVLW 0xFF
MOVWF TDATAHMIN
MOVWF TDATALMIN
MOVLW 0x00
MOVWF TDATAHMAX
MOVWF TDATALMAX
MOVLW ' '
MOVWF SHT_ERROR1
MOVWF SHT_ERROR2
MOVWF D1WIRE_ERROR
MOVWF NEG
MOVWF T10
MOVWF T1
MOVWF T01
MOVWF T10MIN_VALUE
MOVWF T1MIN_VALUE
MOVWF T01MIN_VALUE
MOVWF T10MAX_VALUE
MOVWF T1MAX_VALUE
MOVWF T01MAX_VALUE
MOVWF TSIGN_MAX_VALUE
MOVWF TSIGN_MIN_VALUE
MOVWF R100
MOVWF R10
MOVWF R1
MOVWF WD100
MOVWF WD10
MOVWF WD1
MOVWF WS10
MOVWF WS1
MOVWF LS100
MOVWF LS10
MOVWF LS1
BANKSEL OPTION_REG
MOVLW b'00000000' ; Port B pullups, int falling edge RB0
MOVWF OPTION_REG
BANKSEL INTCON
MOVLW b'11010000' ; GIE, PIE, RBIE enabled
MOVWF INTCON
BANKSEL PIE1
MOVLW b'00000001' ; RCI, TXI, TMR1I enabled
MOVWF PIE1
BANKSEL CMCON
MOVLW b'00000111' ; Comparators off
MOVWF CMCON
BANKSEL T1CON
MOVLW b'00110000' ; 1:8 pre-scale, Internal Clock, Timer1 disabled
MOVWF T1CON
BANKSEL SPBRG
MOVLW D'25' ; 9600 baud
MOVWF SPBRG
MOVLW 0x06 ; set tris bits for TX and RX
IORWF TRISB,F
MOVLW 0x24
MOVWF TXSTA ; TX endabled and BRGH=1
BANKSEL RCSTA
MOVLW 0x80 ; enable serial port
MOVWF RCSTA
MOVLW '0'
MOVWF TXREG
DLONG D'200' ; LCD power up delay
CALL LCD_Init ; Initialize LCD Module
CALL START_SCREEN ; display first screen
CALL DS2450_INIT
CALL DISPLAY_UPDATE
BANKSEL T1CON
BSF T1CON, TMR1ON ; Turn Timer1 on
WAIT
GOTO WAIT ; Wait for interrupts
END