@ Device PIC12F675,PROTECT_OFF,INTRC_OSC_NOCLKOUT,MCLR_OFF
DEFINE ADC_BITS 10 
DEFINE ADC_CLOCK 3 
DEFINE ADC_SAMPLEUS 50 

' Color-Changing Hot & Cold Glowies 
' imakeprojects.com    Jan 2008
' Requires Pic Basic Pro to compile for the Microchip 12F675.


CMCON=7
GPIO=%00000000
TRISIO=%010110
ANSEL=%00111110
ADCON0=%11001100

t VAR WORD
c VAR WORD
cl VAR WORD
m VAR BYTE
hh VAR BYTE
ch VAR BYTE
u VAR BYTE
d VAR BYTE

u=0
d=0
hh=2
ch=1
cl=0

pause 250
ADCIN 3, t
ADCIN 2, c
if(t>c) then
 cl=t-c
 m=1
endif
if(t<c) then
 cl=c-t
 m=0
endif

loop:

ADCIN 3, t
ADCIN 2, c
if m=1 then
 t=t-cl
else
 t=t+cl
endif

if u>10 then
 GPIO.0=0
 GPIO.5=1
endif

if d>10 then
 GPIO.5=0
 GPIO.0=1
endif

if t>(c+ch) then
 u=u+1
 d=0
 goto loop
else
 if t<(c-hh) then
  d=d+1
  u=0
  goto loop
 endif
endif

u=0
d=0
GPIO.0=0
GPIO.5=0
nap 2
GoTo loop