單片機(jī)數(shù)字溫度計匯編程序

ORG0000HLJMPMAINORG0100H;*DATBITTEMPER_LEQU40HTEMPER_HEQU41HA_BITEQU60HB_BITEQU61HC_BITEQU62HD_BITEQU63H;*主程序MAIN:MOVA,#7FHLCALLWRITE_1820LCALLINIT_1820LCALLGET_TEMPERLCALLCONVERLCALLDISPLAYLJMPMAIN;*初始化db18b20INIT_1820:CLREAINI10:SETBDATMOVR2,#200INI11:CLRDATDJNZR2,INI11SETBDATMOVR2,#30INT12:DJNZR2,INT12CLRCORLC,DATJCINI10MOVR6,#80INI13:ORLC,DATJCINI14DJNZR6,INI13SJMPINI10INI14:MOVR2,#240INT15:DJNZR2,INT15RET;讀溫度子程序*GET_TEMPER:MOVA,#0CCHLCALLWRITE_1820MOVA,#44HLCALLWRITE_1820SETBDATLCALLDISPLAYLCALLINIT_1820MOVA,#0CCHLCALLWRITE_1820MOVA,#0BEHLCALLWRITE_1820LCALLREAD_1820MOVTEMPER_L,ALCALLREAD_1820MOVTEMPER_H,ARET;*寫ds18b20的程序*WRITE_1820:CLREAMOVR3,#8WR11:SETBDATMOVR4,#8RRCACLRDATWR12:DJNZR4,WR12MOVDAT,CMOVR4,#30WR13:DJNZR4,WR13DJNZR3,WR11SETBDATRET;*讀ds18b20的程序*READ_1820:CLREAMOVR6,#8RD11:CLRDATMOVR4,#8NOPSETBDATRD12:DJNZR4,RD12MOVC,DATRRCAMOVR5,#30RD13:DJNZR5,RD13DJNZR6,RD11SETBDATRET;*計算溫度子程序CONVER:MOVA,#0F0HANLA,TEMPER_HMOV64H,AJZUNSIGNDECTEMPER_LMOVA,TEMPER_HCPLAMOVTEMPER_H,AMOVA,TEMPER_LCPLAMOVTEMPER_L,AUNSIGN:MOVA,#0FHANLA,TEMPER_LMOVB,#10MULABMOVB,#16DIVABMOVA_BIT,AMOVA,#0F0HANLA,TEMPER_LSWAPAMOVB,AMOVA,#0FHANLA,TEMPER_HSWAPAADDA,BMOV32H,ABCD:MOVB,#100DIVABMOV30H,AMOVD_BIT,AMOVA,#10XCHA,BDIVABMOVC_BIT,AMOVB_BIT,BSWAPAADDA,BMOV31H,ARET;顯示溫度子程序*DISPLAY:MOV5FH,#00HMOV5EH,#03HMOVDPTR,#TABMOVR3,#100S3:MOVR1,#20S2:MOVR2,#08HMOVR0,#63HMOVR4,#4SETBCS1:MOVP2,R2CJNER4,#4,DLP3CJNE@R0,#00H,DLP6MOVA,#0FFHLJMPDLP1DLP3:CJNER4,#3,DLP6CJNE@R0,#00H,DLP6MOVA,63HCJNEA,#00H,DLP3MOVA,#0FFHLJMPDLP1DLP6:MOVA,@R0MOVCA,@A+DPTRCJNER4,#2,DLP1ANLA,#7FHDLP1:MOVR5,64HCJNER5,#0F0H,DLP2CJNER4,#4,DLP5MOVR6,62HCJNER6,#0,DLP4MOVA,#0FFHLJMPDLP2DLP4:MOVA,#0BFHLJMPDLP2DLP5:CJNER4,#3,DLP2CJNE@R0,#0,DLP2MOVA,#0BFHDLP2:MOVP0,ALCALLDELAYMOVA,R2AMOVR2,ADECR0DJNZR4,S1DJNZR1,S