【正文】 0C　　　　　　SJMP MAIN　　SH0： MOV R3，09H　　ZL2： MOV R7，OFFH　　ZL1： MOV R6，OFFH　　ZL0： SETB 　　　　　　ACALL DEL1 ；1ms　　　　　　ACALL LOOP1 ；1ms調(diào)水溫顯示　　　　　　ACALL DEL1 ；1ms　　　　　　SETB 　　　　　　SETB 　　　　　　CLR 　　　　　　ACALL TD0 ；調(diào)水位顯示　　　　　　MOV A，31H　　　　　　RL A　　　　　　ADD A，30H　　　　　　CJNE A，50H，JXX ；30分鐘內(nèi)有沒上水到500C，若沒轉(zhuǎn)移　　　　　　CLR 　　　　　　SJMP MAIN　　JXX： DJNZ R6，ZL0　　　　　　DJNZ R7，ZL1　　　　　　DJNZ R3，ZL2　　　　　　CJNE A，50H　　　　　　CLR 　　　　　　SJMP MAIN　　ZZH： ACALL DSH ；調(diào)低水壓上水　　　　　　SJMP SH0　　 Ｔ１中斷服務程序：　　　　　　ORG　 0100H　　INT1： ＣＬＲ ＴＲ0　　　　　　PUSH ACC　　　　　　MOV A，TH0　　　　　　CJNE A，61H，ZHYD2　　　　　　MOV A，TL0 ；讀低八位　　　　　　CJNE A，50H ；比較低八位　　　　　　SJMP ZHYD3 ；T0值沒有變化轉(zhuǎn)移ZHYD程序　　ZHYD2：MOV A，TH0 ；存放高八位　　　　　　MOV 61H，A　　　　　　MOV A，TL0　　　　　　MOV 60H，A ；存放低八位　　　　　　MOV 20H，H ； 把所測水位值放入20H中　　ZHYD3：MOV TMOD，51H ；設置T0定時，T1計數(shù)并采用方式2　　　　　　MOV TH0，00H　　　　　　MOV TL0，00H　　　　　　MOV TH1，00H　　　　　　MOV TL1，00H　　　　　　SETB TR0 ；啟動T0　　　　　　SETB TR1 ；啟動T1　　　　　　POP ACC　　　　　　RET T0中斷服務程序： 　　　　　　ORG 0200H　　INT0： CLR TR1　　　　　　MOV 　 SP，＃３０Ｈ　　　　　　PUSH ACC　　　　　　MOV A，TH1 ；讀高八位　　　　　　CJNE A，51H，ZHYD0 ；高八位不等，則兩數(shù)不等轉(zhuǎn)移　　　　　　MOV A， TL1 ；讀低八位　　　　　　CJNE A，50H ；比較低八位　　　　　　SJMP ZHDY1 ；相等則轉(zhuǎn)移　　　　　　ZHYD0：MOV A，TH1 ；放入高八位　　　　　　MOV 51H，A　　　　　　MOV A，TL0 ；放入低八位　　　　　　MOV 50H，A　　LOOP： MOV B，XXH　　　　　　MUL AB　　　　　　MOV A，YYH　　　　　　CLR C　　　　　　SUBB A，B　　　　　　CJNE A，6AH ；看下所測溫度有沒超1000C　　LOOP1：JNC LOOP2 ；低于1000C順序執(zhí)行，高于1000C轉(zhuǎn)移　　　　　　MOV R0，00H　　　　　　CLR C　　CHAN2：SUBB A，0AH ；減10　　　　　　JC CHAN3 ；不夠減轉(zhuǎn)移　　　　　　INC R0 ；夠減，十位數(shù)加1　　　　　　SJMP CHAN2 ；重復減10　　　　　　CHIN3： ADD A，0AH　　　　　　MOV 31H，R0 ；BCD碼十位送顯緩　　　　　　MOV 30H，A ；BCD碼個位送顯緩　　ZHYD1：MOV TMOD，15H ；設置T1定時，T0計數(shù)并采用方式1　　　　　　MOV TH0，00H ；送初值　　　　　　MOV TL0，00H　　　　　　MOV TH1，00H　　　　　　MOV TL1，00H　　　　　　SETB TR0 ；開啟T0計數(shù)　　　　　　SETB TR1 ；開啟T1定時　　　　　　SJMP LOOP3　　LOOP2：MOV 30H，0FH　　　　　　MOV 31H，0FH　　　　　　ACALL LOOP1 ；顯示溫度　　LOOP3：POP ACC　　　　　　RETI　　 水位設置及缺水上水至預置水位的程序：　　　　　　ORG 0300H　　SHSH： MOV R1，00H　　　　　　MOV AUXR1，00H ；先將置位端KBF清 0　　　　　　MOV KBI，0CH ；，　　　　　　SETB EKB ；使能觸發(fā)　　　　　　MOV A，P0　　　　　　ORL A，0CH ；，其它位不變　　　　　　MOV P0，A　　　　　　MOV A，P0　　　　　　JNB ，KEY ；，即鍵被按下　　　　　　ACALL SH50 ；未被按下，預置水位為50%　　　　　　SJMP FHZ　　KEY3： INC R1　　　　　　MOV AUXR1，00H　　　　　　CJNE R1，05H，BJ1　　　　　　MOV R1，01H　　　　　　ACALL SH80　　　　　　SJMP FHZ　　BJ1： CJNE R1，01H，BJ2　　　　　　ACALL SH80　　　　　　SJMP FHZ　　BJ3： CJNE R1，03H，ZHD 　　　　　　ACALL SH20　　　　　　SJMP FHZ　　ZHD： ACALL SH50　　FHZ： RETI 上水及低水壓上水子程序： 　　 　　　　ORG 0400H　　SH50: MOV R4，09H　　JX3： MOV R3，6AH　　JX2： MOV R7，04H　　JX1： MOV R6，0FAH　　JX0： SETB 　　　　　　SETB 　　　　　　SETB 　　　　　　SETB 　　　　　　SETB ；開電磁閥　　　　　　ACALL DEL1 ；1ms　　　　　　MOV A，20H　　　　　　CJNE A，b，JX　　　　　　SETB 　　　　　　CLR ；上水完畢關(guān)電磁閥　　　　　　SJMP FHD　　JX： DJNZ R6，JX0　　　　　　DJNZ R7，JX1　　　　　　DJNZ R3，JX2　　　　　　DJNZ R4，JX3　　　　　　MOV A，20H　　　　　　CJNE A，b，CY ；采用低水壓上水　　　　　　SETB 　　　　　　CLR 　　　　　　SJMP FHD　　CY： ACALL DSH　　　　　　SJMP SH50　　FHD： RET　　　　　　ORG 0500H　　SH80： MOV R4，09H　　JX3： MOV R3，6AH　　JX2： MOV R7，04H　　JX1： MOV R6，0FAH　　JX0： SETB 　　　　　　SETB 　　　　　　CLR 　　　　　　SETB 　　　　　　SETB ；開電磁閥　　　　　　ACALL DEL1 ；1ms　　　　　　MOV A，20H　　　　　　CJNE A，c，JX　　　　　　SETB 　　　　　　CLR ；上水完畢關(guān)電磁閥　　　　　　SJMP FHD1　　JX： DJNZ R6，JX0　　　　　　DJNZ R7，JX1　　　　　　DJNZ R3，JX2　　　　　　DJNZ R4，JX3　　　　　　MOV A，20H　　　　　　CJNE A，a，CY ；采用低水壓上水　　CY： ACALL SDH　　　　　　SJMP SH80　　FHD： RET　　　　　　ORG 0600H　　SH20： MOV R4，09H　　JX3： MOV R3，6AH　　JX2： MOV R7，04H　　JX1： MOV R6，0FAH　　JX0： SETB ；位選置1，不顯示十位　　　　　　SETB ；不顯示個位　　　　　　CLR ；顯示水位燈　　　　　　SETB ；20%水位燈亮　　　　　　SETB ；開電磁閥　　　　　　ACALL DEL1　　　　　　ACALL LOOP1　　　　　　MOV A，20H　　　　　　CJNE A，a，JX　　　　　　SETB 　　　　　　CLR 　　　　　　SJMP FHD　　JX： DJNZ R6，JX0