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