Page 311 - Making PIC Microcontroller Instruments and Controllers

UPDATING 3I3
TTIE ICD

itii!!g!il*$g: The finished program lor the solar collector (solar collector-based
(Corrnued)
daia logging)
GOSUB CONTROI. FAN
GOSUI UPDATE I.CD
GOST'B SEND DATA
GOEO MAIII

REIID CIOCK:
10= 0 ; se! RTC to ouLput
cE= 1
? FT. rodi <iare
SS!!T I SDATA, CIII. I,SBPRE. TRfCYEAR, RTCITOIITE' RTCDf,TEI RTCDAY\4'-
RTCER, RTC!{IN, RTCSECI
C E = 0 disable RTc
RETURN
READ SENSORS:
ADCIN 4. INTEMP read channel 4 to intenp
RETURN

CONTROIJ_FTN:
lF ITiITEMF=>135 THEN

EI.SE

ENDIF
REIET'RN

UPDATE_LCD:
\TII!E=",HEX2 ':" IIEX2 RTC!|IN' \.t' ltu,jd2-
I/CDOIIT $FE, $8Ot RECSR,
RICSEC, / *
!fEMP=",DEC3 " FAN=I 'DECI PoRTD'3
t CDOI]IT SFE' SCO, lllTEMP,
FAUSE 10
RETURN
SEIID DATA3
rF R;csEc-$oo rIrEN
ICDOTXT sFE ,580 , "sEilDtNG DATA' ;
r,cDouE $FE, $c0, "
; in the next line we decide what we ate soing !o
; send !o the conpurer for storage Dav of week is onitted-
SEROUT PORTC.5, T24OO, IRTCYEAR, RTCMONITT' RTCDIEE, RTCER'
RTCMIN, RTCSEC, IIiTTEMP' PORTD.3. 10, 131
PAUSE 1100 inlo Lhe n€xt second.
E!,SE
EIIDIF
RETURN
END