单片机温度计完整汇编语句.doc

单片机温度计完整汇编语句汇编程序;=;=常数定义=TIMELEQU 0E0H ;20ms，定时器0时间常数TIMEHEQU 0B1HTEMPHEAD EQU 36H;=工作内存定义=BITST DATA 20HTIME1SOK BIT BITST.1TEMPH DATA 27HTEMPHC DATA 28HTEMPLC DATA 29H;= 引脚定义=TEMPDIN BIT P3.7;= 中断向量区=ORG 0000HLJMP STARTORG 00BHLJMP T0IT;=系统初始化=ORG100HSTART: MOVSP,#60HCLSMEM: MOV R0,#20HMOV R1,#60HCLSMEM1:MOV R0,#00HSJMPINITERROR:NOPLJMP STARTNOPINIT:NOPSETB ET0SETB TR0SETBEAMOV PSW,#00HCLR TEMPONEOKLJMP MAIN;= 定时器0中断服务程序=T0IT:PUSH PSWCJNE R7,#32H,T0IT1MOV R7,#00HSETB TIME1SOK ;1s定时到标志T0IT1:POP PSWRETI;= 主程序=MAIN:LCALL DISP1 序JNB TIME1SOK,MAINCLR TIME1SOK JNB TEMPONEOK,MAIN2 LCALL READTEMP1;LCALL CONVTEMP LCALL DISPBCD LCALL DISP1 MAIN2: LCALLREADTEMP ;SETB TEMPONEOKLJMP MAIN;= 子程序区=;RESET DS18B20;=INITDS1820:SETB TEMPDINNOPNOPCLR TEMPDINMOV R6,#0A0H ;DELAY 480usDJNZ R6,$MOV R6,#0A0HDJNZ R6,$DJNZ R6,LOOP1820MOV R6,#064HDJNZ R6,$SJMP INITDS1820RETINITDS1820OUT:SETB TEMPDINRET;= 读DS18B20的程序，从DS18B20中读出一个字节的数据=READDS1820:MOV R7,#08HSETB TEMPDINNOPNOPREADDS1820LOOP:CLR TEMPDINNOPNOPSETB TEMPDINDJNZ R7,READDS1820LOOPMOV R6,#3CH ;DELAY 120 usDJNZ R6,$RET;= 写DS18B20的程序，从DS18B20中写一个字节的数据=WRITEDS1820:MOV R7,#08HSETB TEMPDINNOPNOPWRITEDS1820LOP:CLR TEMPDIN04usDJNZ R6,$SETB TEMPDINDJNZ R7,WRITEDS1820LOPRET;= READ TEMP =READTEMP:LCALL INITDS1820MOV A,#0CCHLCALL WRITEDS1820 ;SKIP ROMMOV R6,#34H ;DELAY 104usDJNZ R6,$MOV A,#44HLCALL WRITEDS1820 ;START CONVERSIONMOV R6,#34H ;DELAY 104DJNZ R6,$RETREADTEMP1:LCALLINITDS1820MOV A,#0CCHLCALL WRITEDS1820;SKIP ROM04usDJNZ R6,$MOV R5,#09HMOV R0,#TEMPHEADMOV B,#00HREADTEMP2:LCALL READDS1820MOV R0,AINC R0READTEMP21:LCALL CRC8CALDJNZ R5,READTEMP2MOV A,BJNZ READTEMPOUTMOV A,TEMPHEAD+0MOV TEMPL,AMOV A,TEMPHEAD+1MOV TEMPH,AREADTEMPOUT:RET;= 处理温度BCD码子程序=CONVTEMP:MOV A,TEMPHANL A,#80HJZ TEMPC1CLR CMOV A,TEMPLCPL AADD A,#01HMOV TEMPL,AMOV A,TEMPH ;-CPL AADDC A,#00HMOV TEMPH,A ;TEMPHC HI=符号位MOV TEMPHC,#0BHSJMP TEMPC11TEMPC1:MOV TEMPHC,#0AH ;+TEMPC11:MOV A,TEMPHCSWAP AMOV TEMPHC,AMOV A,TEMPLANL A,#0FH ;乘0.0625MOV DPTR,#TEMPDOTTABMOVC A,A+DPTRMOV TEMPLC,A ;TEMPLC LOW=小数部分BCDMOV A,TEMPL ;整数部分ANL A,#0F0HSWAP AMOV TEMPL,AMOV A,TEMPHANL A,#0FHSWAP AORL A,TEMPLLCALL HEX2BCD1MOV TEMPL,AANL A,#0F0HSWAP AORL A,TEMPHC ;TEMPHC LOW=十位数BCDMOV TEMPHC,AMOV A,TEMPLANL A,#0FHSWAP A ;TEMPLC HI=个位数BCDORL A,TEMPLCMOV TEMPLC,AMOV A,R7MOV R7,AMOV A,TEMPHC ;TEMPLC HI=百位数BCDANL A,#0FHORL A,R7MOV TEMPHC,ATEMPC12:RET;= 小数部分码表=TEMPDOTTAB:DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06HDB 06H,07H,08H,08H,09H,09H;= 显示区BCD码温度值刷新子程序=DISPBCD:MOV A,TEMPLCMOV 71H,AMOV A,TEMPHCANL A,#0FHMOV 72H,AMOV A,TEMPHCSWAPAANL A,#0FHMOV 73H,AMOV A,TEMPHCANL A,#0F0HCJNE A,#010H,DISPBCD0SJMP DISPBCD2DISPBCD0:MOV A,TEMPHCANL A,#0FHJNZ DISPBCD2;十位数是0MOV A,TEMPHCSWAP AANL A,#0FHMOV 73H,#0AH;符号位不显示MOV 72H,A;十位数显示符号DISPBCD2:RET;= 显示子程序=;显示数据在70H73H单元内，用4位LED共阳数码管显示，P1口输出段码数据，;P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。DISP1:MOV R1,#70H;指向显示数据首址MOV R5,#0FEH;扫描控制字初值PLAY:MOV P0,#0FFHMOV P0,A;段码放入P0口MOV A,R5JB ACC.1,LOOP5;小数点处理CLR P0.7LOOP5:LCALL DL1MS;显示1msINC R1;指向下一地址MOV A,R5;扫描控制字放入AJNB ACC.3,ENDOUT;ACC.3=0时一次显示结束RL A;A中数据循环左移MOVR5,A;放回R5内AJMP PLAY;跳回PLAY循环ENDOUT:MOV P0,#0FFH;一次显示结束，P0口复位MOV P3,#0FFH;P3口复位RET;子程序返回TADL1:MOV R7,#19HDL2:DJNZ R7,DL2DJNZ R6,DL1RET;= 单字节十六进制转BCD =HEX2BCD1:MOV B,#064H;十六进制-BCDDIV AB;B=A%100MOV R7,A;R7=百位数MOV A,#0AHXCH A,BDIV AB;B=A%BSWAP AORL A,BRET;=;Calculate CRC-8Values. Uses The CCITT-8Polynomial,Expressed As;X8+X5+X4+1;=CRC8CAJNC CRC8LOOP2;Skip If Data=0XRL A,#18H;Updata The New CRCCRC8LOOP2:RRC