系统执行软件源程序代码Word下载.docx
- 文档编号:17046077
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:19
- 大小:17.57KB
系统执行软件源程序代码Word下载.docx
《系统执行软件源程序代码Word下载.docx》由会员分享,可在线阅读,更多相关《系统执行软件源程序代码Word下载.docx(19页珍藏版)》请在冰豆网上搜索。
XRLA,#SLAVE
JZSJCS0
SJCS1:
SETBSM2
POPPSW
POPA
RETI
SJCS0:
CLRSM2
MOVSBUF,#SLAVE
JNBTI,$
CLRTI
JNBRI,$
XRLA,#11H
JZSJCS2
SJMPSJCS1
SJCS2:
MOVA,25H
ADDA,#1
MOVSBUF,A
MOV22H,#00H
----------------18B20温度采集子程序------------------------------------------------------------------------------------
WDCJ:
MOVSP,#60H
LCALLGET_TEMP
MOVA,21H
MOVC,00H
RRCA
MOVC,01H
MOVC,02H
MOVC,03H
MOV21H,A
MOV25H,A
AJMPMAIN
------------------18B20温度采集时序子程序------------------------------------------------------------------------------
GET_TEMP:
CLREA
LCALLINT
MOVA,#0CCH
LCALLWRITE
MOVA,#44H
MOVA,#0BEH
LCALLREAD
MOV20H,A
SETBEA
RET
----------------18B20初始化子程序-----------------------------------------------------------------------------------
INT:
L0:
CLRDK
MOVR2,#200
L1:
DJNZR2,L1
SETBDK
MOVR2,#30
L4:
DJNZR2,L4
CLRC
ORLC,DK
JCL0
MOVR6,#80
L5:
JCL3
DJNZR6,L5
SJMPL0
L3:
L2:
DJNZR2,L2
----------------18B20写命令子程序-----------------------------------------------------------------------------------------
WRITE:
MOVR3,#8
WR1:
MOVR4,#8
WR2:
DJNZR4,WR2
MOVDK,C
MOVR4,#20
WR3:
DJNZR4,WR3
DJNZR3,WR1
-------------------18B20读数据子程序
READ:
MOVR6,#8
RE1:
MOVR4,#4
NOP
RE2:
DJNZR4,RE2
MOVC,DK
MOVR5,#30
RE3:
DJNZR5,RE3
DJNZR6,RE1
-----------------八为十六转十进制子程序-----------------------------------------------------------------------------------
BCDZH:
INC21H
MOV30H,#12
JNB,BCD0
MOV30H,#11
CPLA
BCD0:
MOVR1,#00H
MOVR2,#00H
BCD1:
SUBBA,#64H
JCBCD2
INCR1
SJMPBCD1
BCD2:
ADDA,#64H
BCD3:
SUBBA,#0AH
JCBCD4
INCR2
SJMPBCD3
BCD4:
ADDA,#0AH
MOV31H,R1
MOV32H,R2
MOV33H,A
-----------------四位数码子程序--------------------------------------------------------------------------------------------
DISPLAY:
MOVR3,#4
MOVR0,#30H
MOV3AH,#0f7H
DISP0:
MOVA,@R0
MOVDPTR,#TAB
MOVCA,@A+DPTR
MOVDPTR,#0D00H
MOVX@DPTR,A
MOVDPTR,#0E00H
MOVA,3AH
RRA
MOV3AH,A
ACALLDY1ms
INCR0
DJNZR3,DISP0
延时子程序------------------------------------------------------------------------------------------
DY1ms:
MOVR4,#50
LOOP:
DJNZR4,LOOP
-----------------10ms延时子程序----------------------------------------------------------------------------------------
DY10ms:
MOVR4,#10
LOOP0:
MOVR5,#250
LOOP1:
DJNZR5,LOOP
DJNZR4,LOOP0
----------------十进制码表---------------------------------------------------------------------------------------------------
TAB:
DB3fh,06h,5bh,4fh,66h;
0,1,2,3
DB6dh,7dh,07h,7fh,6fh;
4,5,6,7
DB058H,040H,00H;
8,9,C,-,黑屏
END
二、系统多机通信主机源程序代码
-----------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------------------
ORG0000H
-------------------------主程序--------------------------------------------------------------------------------------------------
MOVSP,#70H
MOVSCON,#98H
MOVPCON,#00H
MOVR6,#10
MOVR7,#3
MOV55H,#00H
MAIN00:
LCALLPCJCX
LCALLSJCS
MOVSCON,#50H
lcallserial_send
LCALLSJCS11
SJMPMAIN00
---------------通信子程序------------------------------------------------------------------------------------------------------
MOVA,R6
XRLA,R6
SJCS00:
SETBTB8
CLRTB8
MOV30H,R6
MOVA,#11H
MOV44H,A
LCALLSFJSJ
DJNZ55H,SJCS
SJCS11:
INCR6
DJNZR7,SJCS
SFJSJ:
CJNER6,#11,SFJSJ3
MOV62H,44H
MOV58H,44H
SJMPSFJSJ0
SFJSJ3:
JCSFJSJ1
MOV63H,44H
SFJSJ1:
MOV61H,44H
SFJSJ0:
PCJCX:
JNBRI,HH1
LJMPHH2
HH1:
JNBRI,WW5
HH2:
WW1:
CJNEA,#49,WW2
mov44h,61h
lcallbcdzh
lcalldisplay
MOV58H,61H
LJMPWW5
-----------------PC机地址判别子程序------------------------------------------------------------------------------------
WW2:
CJNEA,#50,WW3
mov44h,62h
MOV58H,62H
WW3:
CJNEA,#51,WW4
mov44h,63h
MOV58H,63H
WW4:
CJNEA,#52,WW5
LJMPMAIN
WW5:
-------------------八为十六转十进制子程序---------------------------------------------------------------------------
MOVA,44H
MOV31H,#15
MOV31H,#14
MOV32H,R1
MOV33H,R2
MOV34H,A
----------------六位数码子程序--------------------------------------------------------------------------------------------
MOVR3,#6
MOV35H,#13
MOV3AH,#0DFH
延时子程序------------------------------------------------------------------------------------------
--------------------10ms延时子程序-----------------------------------------------------------------------------------------
--------------------PC机通信子程序------------------------------------------------------------------------------------------
serial_send:
DEC58H
MOVA,58H
movb,#10;
温度值为16进制方式,控制范围不超过100oC
divab;
因此可只用两位十进制数表示
movdptr,#ascii_tab;
分出十位在acc中,个位在b中
movca,@a+dptr;
用查表法将数转换成ascii码
movsbuf,a
;
LCALLBCDZH
LCALLDISPLAY;
启动串口发送10位的数据
jnbti,$;
等待一帧发送结束,未完时ti=0,结束时ti=1
clrti;
清除发送中断标志位
mova,b;
取在b中的个位
movca,@a+dptr
启动串口发送个位的数据
jnbti,$
clrti
ascii_tab:
db30h,31h,32h,33h,34h,35h,36h,37h,38h,39h;
0—9ASCII码表
DB77H,7CH,39H,058H,040H,00H;
8,9,A,b,C,c-,黑屏
三、计算机实验室温控系统PC机应用程序代码:
(VisualBasic)
DimxAsInteger
DimyAsInteger
DimTAsInteger
DimCAsInteger
DimIAsInteger
PrivateSubbutton_now1_Click()
=+"
1"
'
发送数据
T=10
="
ForI=1To2'
延时
Next
EndSub
PrivateSubbutton_now2_Click()
2"
T=11
PrivateSubbutton_now3_Click()
3"
T=12
PrivateSubButton_RECV_C_Click()
"
9"
PrivateSubButton_SEND_C_Click()
PrivateSubButton_SEND_Click()
DimxAsString
If="
Then'
发送数据不能为空
x=MsgBox("
发送数据不能为空"
16)
ExitSub
EndIf
IfNotThen'
保证串口打开
请打开串口"
9)
=True
='
ForI=1To200'
PrivateSubCheck1_Click()
If=1Then
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 系统 执行 软件 源程序 代码