找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 3413|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)-電腦pc串口通信匯編程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:83710 發(fā)表于 2015-6-23 20:13 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
程序如下:
ORG 0000H;單片機(jī)與PC的串口通信實(shí)驗(yàn)2010,9,21
    LJMP START
    ORG 0023H
    LJMP UARTInterrupt
START:
    MOV SP,#60H
    LCALL InitUART
MOV DPTR,#TAB

LOOP:MOV R0,#8
MOV R3,#00H
     L:  MOV A,R3
   MOVC A,@A+DPTR
    LCALL  SendOneByte ;add your code here!
    INC R3
    DJNZ R0,L
    LJMP LOOP
InitUART:;初始化串口;波特率9600;定時(shí)器1;方式2;
    MOV TMOD,#20H
    MOV SCON,#50H
    MOV TH1,#0FDH
    MOV TL1,TH1
    MOV PCON,#00H
    SETB EA
    SETB ES
    SETB TR1
    RET
UARTInterrupt:
    JB RI,IsUART_Receive;查接收標(biāo)志是接收?發(fā)送?為1表示是接收中斷相應(yīng)的,反之為發(fā)送,因?yàn)闊o(wú)論發(fā)收都會(huì)觸發(fā)中斷
    CLR TI ;為0,表示不是接收中斷,兒時(shí)發(fā)完了
    RETI
IsUART_Receive: ;接收數(shù)據(jù)
    CLR RI
    PUSH ACC
    MOV A,SBUF
    ;========================
      MOV P0,A   
    ;========================
    POP ACC
    RETI
SendOneByte: ;發(fā)送數(shù)據(jù)
    CLR ES
    CLR TI
    MOV SBUF,A
WaitSendFinish:
    JNB TI,WaitSendFinish
    CLR TI
    SETB ES
    RET
TAB:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H
END
上位機(jī):Private Sub Command1_Click()
Dim aa$
MSComm1.Output = Text2.Text
aa = MSComm1.Input
Text1.Text = aa

End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 7
MSComm1.PortOpen = True
End Sub


硬件方面:RS-232數(shù)據(jù)通信線一根;MCU×8×LED;FOSC=11.0592M;
軟件方面:vb-MSCOOM控件界面做上位機(jī);
亮點(diǎn):第一次真實(shí)體驗(yàn)到原來(lái)電腦數(shù)據(jù)近在咫尺,原來(lái)鍵盤(pán)的數(shù)據(jù)是用ASCII嗎啊
結(jié)論:下一步向協(xié)議發(fā)展


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表