ADC0804制作的温度控制器, 设一个加热器p2.0一个制冷器p1.4
;设定下限温度30度(设4bh)存31h上限温度60度(设96h)存30h
;调整腾龙版的ad电位器可观察到p2.0,p1.4继电器端口的动作范围
;此程序仅仅供演示,如果实际应用请另外扩展继电器以及温度/电压转换部分

;//定义ADC的连接端口
ad_cs equ P3.6
ad_wr equ P3.2
ad_rd equ P3.7
ad_input equ p1
org 0000h
ajmp main
org 0030h
main:
lcall adc_demo
ajmp main
;........启动AD转换.................
Adc_Start:
clr ad_cs
nop
clr ad_wr
nop
setb ad_wr
nop
setb ad_cs
nop
ret

;.........读AD转换...................

Adc_Read:
mov ad_input,#0ffh
clr ad_cs
nop
clr ad_rd
nop
nop
mov a,AD_INPUT
nop
setb ad_rd
nop
setb ad_cs
ret
;............. AD转换程序.............
Adc_Demo:
lcall Adc_Start
lcall delay1ms
lcall adc_read
mov 34h,a ;现在的温度存34h
mov 31h,#4bh ;下限温度30度存31h
mov 30h,#96h ;上限温度60度存30h
clr c
subb a,32h ;现在的温度和以前的温度相减
jc tdown ;c=0取入值较大,表示上升否则下降
tup:mov a,34h ;取出现有温度
clr c ;c=0
subb a,30h ;与上限温度比较,c=1则需要加热否则c=0则需要制冷
jnc poff
jmp loop
poff:clr p1.4 ;开始制冷
setb p2.0
jmp loop

tdown:mov a,34h ;取出现有温度
clr c
subb a,31h ;与下限温度比较,c=1则需要加热否则c=0则需要制冷
jc pon
jmp loop

pon: clr p2.0 ;开始加热
setb p1.4
jmp loop

loop:mov 32h,34h ;把现有温度存32h
clr a ;清除a
mov r4,#0ffh ;延长时间
djnz r4,$
jmp Adc_Demo ;继续监测温度

delay1ms: ;延时子程序
mov r7,#10
MM:mov r6,#50
djnz r6,$ 
djnz r7,MM
ret
end

(摘自www.51cn51.com)