數(shù)字溫度計(2)(參考版)
2024-09-03 01:55本頁面
【正文】 **************************************** END。7段數(shù)碼管0～9數(shù)字的共陽顯示代碼。****************************************DL1MS: MOV R7,100 DJNZ R7,$ RET。****************************************。 250次沒完循環(huán) DJNZ R0,DP11 。 顯示1ms SETB 。 送出百位的7段代碼 CLR 。 取百位數(shù) MOVC A,A+DPTR 。 顯示1ms SETB 。 送出十位的7段代碼 CLR 。 取十位數(shù) MOVC A,A+DPTR 。 顯示1ms SETB 。 送出個位的7段代碼 CLR CLR 。 取個位數(shù) MOVC A,A+DPTR 。 顯示1ms SETB 。 送出小位的7段代碼 CLR 。 取小位數(shù) MOVC A,A+DPTR 。 指定查表啟始地址 MOV R0,4DP11: MOV R1,250 。顯示子程序。READ_OUT: RET。 MOV TEMPL,TEMPER_L 。 MOV A,B 。 LCALL CRC8CAL 。************************************ MOV R1,A 。 RRC A DJNZ R2,RE01 。 MOV C,TEMPDIN 。 NOP NOP NOP SETB TEMPDIN 。 數(shù)據(jù)一共有8位RE01: CLR C SETB TEMPDIN 。 將溫度高位和低位從DS18B20中讀出 MOV R1,TEMPER_L 。開始的兩個字節(jié)為溫度數(shù)據(jù)。******************************************。 RET 。 Save The Remaining Bits DJNZ R7,CRC8LOOP1 。 Get The Remaining Bits RR A 。 Position The New CRC MOV B,A 。 Skip If Data==0 XRL A,18H 。 Move T0 Carry MOV A,B 。 Number Bits ByteCRC8LOOP1: XRL A,B 。*************************************CRC8CAL: PUSH ACC 。CCITT8 Polynomial,Expressed As。*************************************。 RET 。 B=A%B SWAP A 。 XCH A,B 。 B=A%100 MOV R7,A 。*************************************HEX2BCD1:MOV B,64H 。*************************************。 十位數(shù)顯示符號DISPOUT: RET 。 MOV BUF4,0AH 。 SWAP A 。 JNZ DISPOUT 。DISPBCD0: MOV A, TEMPHC 。 CJNE A,10H,DISPBCD0 。 顯示百位 MOV A,TEMPHC 。 ANL A,0FH 。 顯示十位 MOV A,TEMPHC 。 ANL A,0FH 。 MOV BUF2,A
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1