【正文】 uture For Solar Energy Of The Chinese Academy Of Sciences,2008,22（4）：219220[8]，2009，2：4043[9]陳維，206，36（1）：6771[10]，2007,28（5）：80110[11]李陽初，：石油大學出版社，：881附 錄附錄A.DEFINE P_IOA_Data 0x7000.DEFINE P_IOA_Buffer 0x7001.DEFINE P_IOA_Dir 0x7002.DEFINE P_IOA_Attrib 0x7003.DEFINE P_IOB_Data 0x7005.DEFINE P_IOB_Buffer 0x7006.DEFINE P_IOB_Dir 0x7007.DEFINE P_IOB_Attrib 0x7008.DEFINE P_ADC 0x7014.DEFINE P_ADC_Ctrl 0x7015.DEFINE P_ADC_MUX_Ctrl 0x702B.DEFINE P_ADC_MUX_Data 0x702C.DEFINE P_Watchdog_Clear 0x7012.IRAM//*******定義五個變量作為設定值*********// .VAR T1=0x0213,T2=0x00ee,T3=0x011f,H1=0x01c3,H2=0x03af,Q1=0x0346.VAR T4,T5,T6,H3,Q2.CODE.EXTERNAL delays.PUBLIC _MAIN。 _MAIN: r1 = 0x0000 //設置IOA口為懸浮輸入口 [P_IOA_Dir] = r1 r1 = 0xffff [P_IOA_Attrib] = r1 r1 = 0x0000 [P_IOA_Data] = r1 r1 = 0xffff //設置IOB口為同相低電平輸出口 [P_IOB_Dir] = r1 r1 = 0xffff [P_IOB_Attrib] = r1 r1 = 0x0000 [P_IOB_Data] = r1 //*****************采集數(shù)據(jù)并進行AD轉換*******//loop8: r1 = 0x0001 //選擇ADC通道0采集儲水罐內(nèi)水溫 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop9: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop9 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [T4]=r1 r1 = 0x0010 //選擇ADC通道1采集油管內(nèi)油溫 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop10: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop10 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [T5]=r1 r1 = 0x0011 //選擇ADC通道2采集外部水管內(nèi)水溫 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop11: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop11 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [T6]=r1 r1 = 0x0001 //選擇ADC通道3采集蓄電池電量 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop12: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop12 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [Q2]=r1 r1 = 0x0001 //選擇ADC通道4采集儲水箱水位 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop13: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop13 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [H3]=r1//***************對采集進來的數(shù)據(jù)于設定值進行比較并根據(jù)比較結果做出相應的處理*************// r2=Q1 r3=Q2 CMP r2,r3//采集到的蓄電池電量跟給定最低值比較 JB loop1 r1=0x0001 [P_IOB_Data] = r1 //開蓄電池電量過低指示燈 goto loop8 //call delaysloop1: r1=0x0000 [P_IOB_Data] = r1 //清蓄電池電量過低指示燈 call HEAT //防凍處理子程序 call LEVEL//水位控制子程序 r2=T1 r3=T5 CMP r2,r3//油溫跟給定值比較 JNB loop7 goto loop8loop7: r1=0x0010 [P_IOB_Data] = r1 //開油溫報警指示燈 r2=T4 r3=T5 CMP r2,r3//采集到的水溫跟油溫進行比較 JNB loop9 goto loop8loop9: r1=0x0050 [P_IOB_Data] = r1 //開油溫報警指示燈及水泵開始給油管加熱 call delays r1 = 0x0001 [P_Watchdog_Clear] = r1//清看門狗 goto loop8.PUBLIC HEAT//伴熱帶控制HEAT: r2=T2 r3=T6 CMP r3,r2 JNB loop4 r1=0x0022 [P_IOB_Data]=r1//開伴熱帶及防凍指示燈loop6: call delays //延時五分鐘 call delays //延時五分鐘 r1 = 0x0011 //選擇ADC通道2采集外部水管內(nèi)水溫 [P_ADC_MUX_Ctrl] = r1 r1 = 0x0001 //使能ADC [P_ADC_Ctrl] = r1 r1 = [P_ADC_MUX_Data] //啟動ADCLoop14: r1 = [P_ADC_MUX_Ctrl] test r1,0x8000 //判斷轉換是否完成？ jz Loop14 //沒有則繼續(xù)轉換 r1 = [P_ADC_MUX_Data] //取轉換數(shù)據(jù) [T6]=r1 r2=T3 r3=T6 CMP r3,r2 JNB loop5 jmp loop6loop5: r1=0x0000 [P_ADC_MUX_Data]=r1//關伴熱帶及關防凍指示燈 jmp loop4loop4: RETF//************儲水箱水位的控制********************// .PUBLIC LEVELLEVEL: r2=H1 r3=H3 CMP r3,r2 JNB loop2 r1=0x0004 [P_IOB_Data] = r1//開水位低過警報燈 jmp loop3loop2: r1=0x0000 [P_IOB_Data] = r1//清水位過低報警燈 r2=H2 r3=H3 CMP r2,r3 JNB loop3 r1=0x0008 [P_IOB_Data] = r1//開水位過高報警燈loop3: RETFvoid delays(void){ unsigned int uiCount。 for(uiCount = 0。uiCount = 30000000。uiCount++) { *P_Watchdog_Clear = 0x0001。 //清看門狗 }}附錄