呵呵!去STC官方网站下载程序啊!!!



ORG 00H
TMPL EQU 29H
TMPH EQU 28H
FLAG1 BIT 38H
DATAIN BIT P1.3
MAIN:LCALL GET_TEMPER
LCALL CVTTMP
LCALL DISP1
AJMP MAIN
INIT_1820:SETB DATAIN
NOP
CLR DATAIN
MOV R1,#3
TSR1:MOV R0,#107
DJNZ R0,$
DJNZ R1,TSR1
SETB DATAIN
NOP
NOP
NOP
MOV R0,#25H
TSR2:JNB DATAIN,TSR3
DJNZ R0,TSR2
CLR FLAG1
SJMP TSR7
TSR3:SETB FLAG1
CLR P1.0
MOV R0,#117
TSR6:DJNZ R0,$
TSR7:SETB DATAIN
RET
GET_TEMPER:
SETB DATAIN
LCALL INIT_1820
JB FLAG1,TSS2
NOP
RET
TSS2:MOV A,#0CCH
LCALL WRITE_1820
MOV A,#44H
LCALL WRITE_1820
ACALL DISP1
LCALL INIT_1820
MOV A,#0CCH
LCALL WRITE_1820
MOV A,#0BEH
LCALL WRITE_1820
LCALL READ_18200
RET
WRITE_1820:
MOV R2,#8
CLR C
WR1:CLR DATAIN
MOV R3,#6
DJNZ R3,$
RRC A
MOV DATAIN,C
MOV R3,#23
DJNZ R3,$
SETB DATAIN
NOP
DJNZ R2,WR1
SETB DATAIN
RET
READ_18200:
MOV R4,#2
MOV R1,#29H
RE00:MOV R2,#8
RE01:CLR C
SETB DATAIN
NOP
NOP
CLR DATAIN
NOP
NOP
NOP
SETB DATAIN
MOV R3,#9
RE10:DJNZ R3,RE10
MOV C,DATAIN
MOV R3,#23
RE20:DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
CVTTMP:MOV A,TMPH
ANL A ,#08H
JZ TMPC1
CLR C
MOV A,TMPL
CPL A
ADD A,#1
MOV TMPL,A
MOV A,TMPH
CPL A
ADDC A,#0
MOV TMPH,A
MOV 37H,#0BH
SJMP TMPC11
TMPC1:
MOV 37H,#0AH
TMPC11:MOV A,TMPL
ANL A,#0FH
MOV DPTR,#TMPTAB
MOVC A,@A+DPTR
MOV 70H,A
MOV A,TMPL
ANL A,#0F0H
SWAP A
MOV TMPL,A
MOV A,TMPH
ANL A,#0FH
SWAP A
ORL A,TMPL
H2BCD:
MOV B,#100
DIV AB
JZ B2BCD1
MOV 73H,A
B2BCD1:MOV A,#10
XCH A,B
DIV AB
MOV 72H,A
MOV 71H,B
TMPC12:NOP
DISBCD:MOV A,73H
ANL A,#0FH
CJNE A,#1,DISBCD0
SJMP DISBCD1
DISBCD0:MOV A,72H
ANL A,#0FH
JNZ DISBCD1
MOV A,73H
MOV 72H,A
MOV 73H,#0AH
DISBCD1:RET
TMPTAB:DB 0,1,1,2,3,3,4,4,5,6,6,7,8,8,9,9
DISP1:MOV R1,#70H
MOV R5,#0FEH
PLAY:MOV P0,#0FFH
MOV A,R5
MOV P2,A
MOV A,@R1
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P0,A
MOV A,R5
JB ACC.1,LOOP1
CLR P0.7
LOOP1:LCALL DL1MS
INC R1
MOV A,R5
JNB ACC.3,ENDOUT
RL A
MOV R5,A
SJMP PLAY
ENDOUT:MOV P0,#0FFH
MOV P2,#0FFH
RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H
DB 92H,82H,0F8H,80H,90H,0FFH,0BFH
DL1MS:MOV R6,#14H
DL1:MOV R7,#100
DJNZ R7,$
DJNZ R6,DL1
RET
END
回复
有奖活动 | |
---|---|
【有奖活动】分享技术经验,兑换京东卡 | |
话不多说,快进群! | |
用知识换取送给亲朋的礼物,做个浪漫的开发者 | |
奖!发布技术笔记,技术评测贴换取您心仪的礼品 | |
玩转“DFRobot盖革计数器模块”测一测身边的辐射源 | |
打赏了!打赏了!打赏了! |
打赏帖 | |
---|---|
【STM32F769】AI之与本地deepseek对接被打赏50分 | |
Buck电路工作在CCM模式下电感电流的计算公式是什么?被打赏5分 | |
buck电路工作原理被打赏5分 | |
基于MSPM0L1306的MODBUS-RTU协议通讯实验被打赏100分 | |
我想要一部加热台+多合一调试工具被打赏18分 | |
每周了解几个硬件知识+485硬件知识分享被打赏10分 | |
【换取手持数字示波器】树莓派PICO调试器官方固件本地化部署实践被打赏24分 | |
【换取手持数字示波器】分享一个KEIL无法识别CMSIS-DAP调试器的解决办法被打赏20分 | |
【换取手持数字示波器】分享一个自制的ArduinoNano扩展板底板被打赏23分 | |
【换取手持示波器】树莓派PICOW网页烟花被打赏18分 |