[讨论] 串口通信的单片机程序

dafei_hz 2008-7-25 11:25 楼主

beep bit p3.7             ;蜂鸣器定义
      org 00h
   jmp main
      org 23h                      ;串行中断入口地址
   jmp com_int                   ;串行中断服务程序
;***********  主程序开始 *******************
      org 30h
  main:  mov sp,#30h             ;设置堆栈
         lcall rest          ;初始化
         lcall comm          ;串口初始化
         jmp $                ;原地等待
;  ************* 初始化 *********************
rest:    mov p0,#00h          ;禁止数码管显示
         mov p2,#255
         clr  beep             ;禁止蜂鸣器
         mov p1,#255             ;禁止LED显示
         RET                   ;返回
; **************  串口初始化 *****************
;设置串行口工作方式1，定时器1作为波特率发生器
;波特率设置为 2400  ;
comm:       mov tmod,#20h       ;设置定时器T1工作方式2
            mov tl1,#0f3h          ;定时器计数初值，波特率 2400
            mov th1,#0f3h          ;定时器重装值
            setb ea                      ;允许总的中断
            setb es                      ;允许串行中断
            mov pcon,#00h       ;波特率不倍增
            mov scon,#50h       ;设置串口工作方式1,REN = 1 允许接收
            setb tr1                      ;定时器开始工作
            ret                            ;返回
;***************  串口中断服务程序 ***********
;  如果接收  0FF  表示上位机需要联机信号，单片机发送 0FFH作为
;  应答信号,如果接收到数字 1~ n，表示相应的功能；
;  这里，如果收到 1 ，则单片机向计算机发送字符  'H';
;          如果收到 2 ，则单片机向计算机发送字符  'e';
;          如果收到其他的数据，则发送 'J';
com_int:  clr es                      ;禁止串行中断
            clr ri                         ;清除接收标志位
            mov a,sbuf             ;从缓冲区取出数据
            mov p1,a
            mov dptr,#tab
            cjne a,#0ffh,in_1    ;检查数据
            mov sbuf,#255       ;收到联机信号，发送联机信号
            jnb ti,$                   ;等待发送完毕
            clr ti                         ;清除发送标志
            setb es                   ;允许串行中断
            reti                         ;中断返回
   in_1: cjne a,#1H, in_2       ;如果收到1
            movc a,@a+dptr
            mov sbuf,a          ;发送 'h'
            jnb ti,$                   ;等待发送完毕
            clr  ti                      ;清除发送中断标志
            setb es                   ;允许串行中断
            reti                         ;中断返回
   in_2: cjne a,#2,in_3       ;接收到  2
            movc a,@a+dptr
            mov sbuf,a          ;发送 'e'
            jnb ti,$                   ;等待发送完毕
            clr  ti                      ;清除发送中断
            setb es                   ;允许串行中断
            reti                         ;中断返回
   in_3:    mov a,#03h
            movc a,@a+dptr
            mov sbuf,a          ;发送 'j'
            jnb ti,$                   ;等待发送完毕
            clr ti                         ;清除发送中断标志
            setb es                   ;允许串行中断
            reti                         ;返回
tab: db '2','h','e','j'
  end
本文章来自中国IT实验室http://embed.chinaitlab.com/