【正文】 DJNZ R0,DJ2 。****煮漿程序 **** ZJ2:SETB 。啟動加熱 MOV R1,1EH 。設(shè)置循環(huán) 30 次（延時 30 分鐘） ACALL AA0 。調(diào)用 JB ,FYYZ2 DJNZ R1,ZJ2 。****防溢延煮程序 **** FYYZ2:CLR 。停止加熱 ACALL AA0 。等待一分鐘 SETB 。啟動加熱 MOV R1,8 。設(shè)置循環(huán) 8 次（防溢延煮 8 分鐘） ACALL AA0 。調(diào)用 JNB ,FYYZ2 DJNZ R1,FYYZ2 ACALL BJ AJMP MAIN 。****子程序清單 **** 。****溫度采集轉(zhuǎn)換程序 **** WDZH:MOV A,00H 。設(shè)置通道地址 MOV DPTR,0FEFFH 。設(shè)置 ADC0809 的口地址 MOVX @DPTR,A 。啟動轉(zhuǎn)換 ACALL DLT 。延時 10us WAIT:JB ,WAIT 。等待轉(zhuǎn)換結(jié)束 MOVX @DPTR,A 。讀入轉(zhuǎn)換結(jié)果 MOV 30H,A RET DLT:MOV R5,05H 。延時 10us DJNZ R5,$ RET 。*****報(bào)警提示程序 **** BJ:MOV R3,0FFH CLR 。光報(bào)警 CLR 。聲報(bào)警 ACALL EE CLR CLR ACALL EE DJNZ R0,BJ 20 RET 。****延時 程序 **** AA0:MOV R4,3 。延時一分鐘 AA:MOV R5,200 AA1:MOV R6,200 AA2:MOV R7,250 AA3:DJNZ R7,AA3 DJNZ R6,AA2 DJNZ R5,AA1 DJNZ R4,AA0 RET BB:MOV R5,200 。延時二十秒 BB1:MOV R6,200 BB2:MOV R7,250 BB3:DJNZ R7,BB3 DJNZ R6,BB2 DJNZ R5,BB1 RET CC:MOV R5,150 。延時十五秒 CC1:MOV R6,200 CC2:MOV R7,250 CC3:DJNZ R7,DD3 DJNZ R6,DD2 DJNZ R5,DD1 RET DD:MOV R5,100 。延時十秒 DD1:MOV R6,200 DD2:MOV R7,250 DD3:DJNZ R7,CC3 DJNZ R6,CC2 DJNZ R5,CC1 RET EE:MOV R5,5 。延時 500ms EE1:MOV R6,200 EE2:MOV R7,250 EE3:DJNZ R7,EE3 DJNZ R6,EE2 DJNZ R5,EE1 RET 。****防干燒程序 **** FGS:CLR CLR ACALL BJ RETI END