单片机串口通信程序集

《单片机串口通信程序集》由会员分享，可在线阅读，更多相关《单片机串口通信程序集（2页珍藏版）》请在装配图网上搜索。

1、真诚为您提供优质参考资料，若有不当之处，请指正。单片机串口通信程序集串口通信的单片机程序beep    bit   p3.7                蜂鸣器定义org 00h      jmp main        org 23h&

2、#160;                      ;串行中断入口地址      jmp com_int                  

3、0;  ;串行中断服务程序;*  主程序开始    *        org 30h  main:  mov sp,#30h                设置堆栈       &

4、#160;     lcall rest             ;初始化             lcall comm             ;串口初始化   

5、60;         jmp $                  原地等待;  *   初始化   *   rest:      mov p0,#00h   

6、0;         ;禁止数码管显示             mov p2,#255             clr  beep           

7、;     禁止蜂鸣器             mov p1,#255              禁止LED显示             RET  &

8、#160;                   返回; *  串口初始化   *;设置串行口工作方式1，定时器1作为波特率发生器;波特率设置为   2400  comm:         mov tmod,#20h   

9、       设置定时器T1工作方式2              mov tl1,#0f3h             ;定时器计数初值，波特率 2400          

10、0;    mov th1,#0f3h            定时器重装值              setb ea               &#

11、160;       ;允许总的中断              setb es                       ;允许串行中断   

12、60;          mov pcon,#00h          波特率不倍增              mov scon,#50h          设

13、置串口工作方式1,REN = 1 允许接收              setb tr1                       ;定时器开始工作       

14、0;      ret                               ;返回;*  串口中断服务程序   *;  如果接收  0FF &

15、#160;表示上位机需要联机信号，单片机发送 0FFH作为;  应答信号,如果接收到 数字 1 n，表示相应的功能；;  这里，如果收到 1 ，则单片机向计算机发送字符  'H'            如果收到 2 ，则单片机向计算机发送字符  'e'         

16、0;  如果收到其他的数据，则发送    'J'com_int:  clr es                        禁止串行中断          &#

17、160;     clr ri                          清除接收标志位                m

18、ov a,sbuf               ;从缓冲区取出数据                mov p1,a               

19、60;mov dptr,#tab                cjne a,#0ffh,in_1      检查数据                mov sbuf,#255   

20、0;      收到联机信号，发送联机信号                jnb ti,$                      等待发送完毕 &

21、#160;              clr ti                          清除发送标志       &

22、#160;        setb es                     ;允许串行中断                reti  

23、                          中断返回      in_1: cjne a,#1H, in_2         ;如果收到1    

24、60;           movc a,a+dptr                mov sbuf,a             ;发送 'h'    

25、            jnb ti,$                      等待发送完毕             

26、0;  clr  ti                         ;清除发送中断标志                setb es  

27、                   ;允许串行中断                reti              

28、              中断返回      in_2: cjne a,#2,in_3         ;接收到  2                

29、; movc a,a+dptr                mov sbuf,a             ;发送 'e'              &#

30、160; jnb ti,$                      等待发送完毕                clr  ti     &

31、#160;                   ;清除发送中断                setb es            

32、0;        ;允许串行中断                reti                        

33、0;   中断返回      in_3:     mov a,#03h                movc a,a+dptr               &

34、#160;mov sbuf,a             ;发送 'j'                jnb ti,$               

35、60;      等待发送完毕                clr ti                         

36、60;清除发送中断标志                setb es                     ;允许串行中断         

37、0;      reti                            返回tab:    db '2','h','e','j'  end2 / 2