Page 310 - Making PIC Microcontroller Instruments and Controllers

3I2 LOGGIIIQ DATA FBOII| A SOLAR COLLECION

liFii{iiii.i:gf$ The finished program for the solar collector (solar collector-based
data logglng) (Corlirued)

TRtsA= %00111111
TRISB= %00000000
TRtsc= %00000000
TRIsD= %00000000
TRISE= %00000000 SET PORTE
a.DCONl= 9b00000111 don'! forget to set ADCON1
alias pins are as follors
CE VAR PORTA.2 Real iime clock node
CI,K VAR PORTC.l
SDf,TA VAR POREC.3
IO VAR PORTC.s
; allocate wariables
R'CYEAR VTR BYEE
RfCIIONTII VAR BYTE
RECDATE VAX BYTE
RECDAY VAR BIEE
RTCER VAR EYTE
RTCIIIN \IAR AYTE
RTCSEC VTR BYTA
TNTEMP VAR BYttE

tow cE
t ow cLK
TIIGH IO
ADCON1 = 7 ; PoRTA and e digiLal
I.OW PORTE.z ; 1cd r/w lou = vrite
; s e ! i n i L i a l t i n e t o 0 0 : 0 0 : 0 0 m on 01/01/07 same will be true
; for all resets.
RICYEA.R = $07
RTCIION:fB - $01
RTCDATE - 901

RECMIN= 0

set RTC !o inpuL
C E = 1 enable tr:ansfer
; wrile to the 7 RTc registers ro initialize them
SqIFITOUT SDAEA, CLK, I,SBFIRSIT, IRTCYEAI, RTC!,IOM!g. RTCDATE,
RTCDAY\4I RECER' RTCMIN]
C E = 0 disable Ric
PAUSE 500 pause .500 second for LCD
LCDOI':T SFE, 1, \CIJEAR'

IiIAIN:
GOST'B READ CLOCK
GOST'B READ SENSORS