2051制冰机控制程序.txt

平时使用单片机的时候所得到的一些心得和一些实用小程序

org 0000h
ajmp start
org 000bh
ajmp time0
org 0040h
start:		mov tmod,#00000001b
		mov th0,#0f1h
		mov tl0,#0a4h
		setb ea
		setb et0
		setb tr0
		/*以上是为定时器工作做的设定工作*/

temp equ 25h
     mov temp,#0
     mov r4,#0//关定时开关
mov 30h,#0
mov r0,#0
mov r1,#0
mov p3,#0ffh
mov p1,#0
setb p1.7 //开进水阀热汽阀
loop: mov a,r0
cjne a,#60,dsp  //60秒到了加一分钟,否则跳到dsp 
inc temp //分钟加1
mov r0,#0 //秒钟归0
dsp:mov a,temp		
cjne a,#6,next //6分钟到了就关进水热气阀
clr p1.7 //关进水阀，热气阀
lcall d10ms
setb p1.5 //开水泵＇风机
lcall d10ms
setb p1.6 //开压缩机
lcall d10ms
      
next: cjne a,#23,next2 //24分钟到了执行动作否则跳转
clr p1.5 //关水泵风机
setb p1.7 //开进水阀和热汽阀
mov temp, #0
next2:jb p1.3 ,next3
ljmp loop
next3: lcall cb //查冰

cb:push p1
cb1:jb p1.3,next4
mov temp,#0
ajmp out
next4: clr p1.2 //1.3如果是高电位就显示1.2亮冰满
clr p1.5
clr p1.6
clr p1.7 //关进水阀
ajmp cb1
out:pop p1
ret


d10ms:mov r7,#200
d3:mov r6,#200
d4:djnz r6,$
djnz r7,d3
ret

time0: //定时器中断
push acc
push psw
inc 30h
mov a,30h
cjne a,#249,tnext//计到250个4MS秒加1,时间不准可调这里
inc r0
mov 30h,#0

/*以上是处理分钟的,下面处理闪点的*/
tnext:mov th0,#0f1h
       mov tl0,#0a4h
		 pop psw
		 pop acc
		 reti

end