DB 06H,07H,08H,08H,09H,09H
;====================== 显示区BCD码温度值刷新子程序===============
DISPBCD: MOV A,TEMPLC ANL A,#0FH MOV 70H,A MOV A,TEMPLC SWAP A ANL A,#0FH MOV 71H,A MOV A,TEMPHC ANL A,#0FH MOV 72H,A MOV A,TEMPHC SWAP A ANL A,#0FH MOV 73H,A MOV A,TEMPHC ANL A,#0F0H CJNE A,#010H,DISPBCD0 SJMP DISPBCD2
DISPBCD0: MOV A,TEMPHC ANL A,#0FH JNZ DISPBCD2 ;十位数是0 MOV A,TEMPHC SWAP A ANL A,#0FH MOV 73H,#0AH ;符号位不显示 MOV 72H,A ;十位数显示符号 DISPBCD2: RET
;======================= 显示子程序===============================
;显示数据在70H~73H单元内，用4位LED共阳数码管显示，P1口输出段码数据， ;P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。 DISP1: MOV R1,#70H ;指向显示数据首址 MOV R5,#0FEH ;扫描控制字初值 PLAY: MOV P0,#0FFH MOV A,R5 ;扫描字放入A MOV P3,A ;从P3口输出 MOV A,@R1 ;取显示数据到A MOV DPTR,#TAB ;取段码表地址 MOVC A,@A+DPTR ;查显示数据对应段码 MOV P0,A ;段码放入P0口 MOV A,R5
JB ACC.1,LOOP5 ;小数点处理 CLR P0.7 LOOP5: LCALL DL1MS ;显示1ms INC R1 ;指向下一地址 MOV A,R5 ;扫描控制字放入A JNB ACC.3,ENDOUT ;ACC.3=0时一次显示结束 RL A ;A中数据循环左移 MOV R5,A ;放回R5内 AJMP PLAY ;跳回PLAY循环 ENDOUT: MOV P0,#0FFH ;一次显示结束，P0口复位 MOV P3,#0FFH ;P3口复位 RET ;子程序返回 TAB: DB
0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH
;共阳段码表 “0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“-”
DL1MS: MOV R6,#14H ;1ms延时程序，LED显示程序用 DL1: MOV R7,#19H DL2: DJNZ R7,DL2 DJNZ R6,DL1 RET
;===================== 单字节十六进制转BCD =======================
HEX2BCD1: MOV B,#064H ;十六进制->BCD DIV AB ;B=A0 MOV R7,A ;R7=百位数 MOV A,#0AH XCH A,B DIV AB ;B=A%B SWAP A ORL A,B RET
;================================================================
;Calculate CRC-8Values. Uses The CCITT-8Polynomial,Expressed As ;X^8+X^5+X^4+1
;================================================================
CRC8CAL: PUSH ACC MOV R7,#08H ;Number Bits In Byte CRC8LOOP1: XRL A,B ;Calculte CRC RRC A ;Move To Carry MOV A,B ;Get The Last CRC Value JNC CRC8LOOP2 ;Skip If Data==0
CRC8LOOP2: END
XRL
RRC MOV POP RR PUSH DJNZ POP RET
A,#18H ;Updata The New CRC A ;Position The New CRC B,A ;Store The New CRC ACC ;Get The Remaining Bits A ;Position The Next Bit ACC ;Save The Remaining Bits R7,CRC8LOOP1 ;Repeat For 8 Bits ACC
六 、程序清单
HEX输出文件
:03000000020100FA :03000B0002012BC4
:1001000075816078207960760008D9FB7589217542 :100110008CE0758AB18005000201000000D2A9D2EE :100120008CD2AF75D000C202020141C0D075D01090 :10013000758CB1758AE00FBF32047F00D201D0D038 :10014000321202AA3001FAC20130020C1201D51299 :1001500002081202761202AA1201BFD20202014163 :10016000D2B70000C2B77EA0DEFE7EA0DEFED2B710 :100170007E32DEFE7E3CA2B74009DEFA7E64DEFE01 :1001800080DE22D2B7227F08D2B70000C2B70000BB :1001900000D2B77E07DEFEA2B77E3CDEFE13D2B7EA :1001A000DFEA7E3CDEFE227F08D2B70000C2B77EC7 :1001B00007DEFE1392B77E34DEFED2B7DFEF2212E7 :1001C000016074CC1201A77E34DEFE74441201A7D4 :1001D0007E34DEFE2212016074CC1201A77E34DE72 :1001E000FE74BE1201A77E34DEFE7D09783675F0FE :1001F00000120186F6081202F7DDF6E5F07008E558 :1002000036F526E537F52722E52754806014C3E547 :1002100026F42401F526E527F43400F52775280B8C :0C022000800375280AE528C4F528E526AF
:10022C00540F90026693F529E52654F0C4F526E5A3 :10023C0027540FC445261202E9F52654F0C445286C :10024C00F528E526540FC44529F529EF600B540F0A :10025C00C4FFE528540F4FF52822000101020303C7 :10026C0004040506060708080909E529540FF5706A :10027C00E529C4540FF571E528540FF572E528C42F :10028C00540FF573E52854F0B410028010E528548F :10029C000F700AE528C4540F75730AF57222797031 :1002AC007DFE7580FFEDF5B0E79002D493F580EDFF :1002BC0020E102C2871202E009ED30E30423FD4184
:1002CC00AE7580FF75B0FF22C0F9A4B0999282F888 :1002DC008090FFBF7E147F19DFFEDEFA2275F0647A :1002EC0084FF740AC5F084C445F022C0E07F086521 :1002FC00F013E5F05002641813F5F0D0E003C0E001 :05030C00DFEDD0E0224E :00000001FF
六 调试及仿真
经软件调试-仿真器MedWin调试通过，并烧录芯片，得到所要求的设计结果。试验成功。
七 总结和体会
这次为期三周的电子工程训练已经结束，但是带给我的影响是很大的。从查资料找合适的方案和电路开始，找元件焊接，调试程序，仿真，烧录元件都是由我们自己完成。途中遇到了很多问题。电子元件不全所以要改方案，焊接中检查是否焊错，修改程序使之符合自己的电路并调试成功，烧录芯片并调试成功。每一步都有可能出现问题，我们所做的就是迎接问题，改正错误，使自己的作品更加完善。过程中我对单片机的工作原理有了更深一步的体会，并且复习了在大一的时候就参加过的工程训练（焊接），而且对接下来的单片机课程设计也起到了很大作用。在今后的学习生活中，要牢记在实验过程中的经验教训，争取获得更大的进步。
八 元件清单（名称、型号、数量）
元件名称 单片机芯片 温度传感器 晶振 电源 三极管 电容 型号 89C51 DS18B20 12MHz 5V 8550（PNP） 30pF 数量 1 1 1 1 4 2
相关推荐：
loading