【正文】 0 。調(diào)用 JB ,FYYZ1 DJNZ R1,FYYZ1 ACALL BJ AJMP MAIN 。*****濃香豆?jié){工作程序**** GN2:SETB 。啟動加熱 MOV R1,1EH 。設(shè)置循環(huán)30次（延時30分鐘） ACALL AA0 。調(diào)用 MOV B,30H 。從30H中取溫度值 MOV A,50H 。設(shè)定溫度為80度 DIV AB 。比較A、B大小，商存于A中 CJNE A,00H,DJ2 DJNZ R1,GN2 。****打漿程序***** DJ2:CLR 。停止加熱 MOV R0,4 。循環(huán)四次 SETB 。啟動打漿 ACALL CC CLR ACALL DD 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 。*****報警提示程序**** BJ:MOV R3,0FFH CLR 。光報警 CLR 。聲報警 ACALL EE CLR CLR ACALL EE DJNZ R0,BJ 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