自在自线亚洲а∨天堂在线-中文字幕一区视频播放-扒开双腿猛进入喷水高潮叫声-欧美日本亚洲一区二区-老熟妇高潮偷拍一区二区-国产精品高清一区二区不卡-午夜色福利视频一区二区三区-亚洲国产成人精品福利在线观看-亚洲欧美成人一区二区在线电影

beep    bit   p3.7                ;蜂鳴器定義

        org 00h
      jmp main
        org 23h                       ;串行中斷入口地址
      jmp com_int                     ;串行中斷服務(wù)程序

;***********  主程序開(kāi)始    *******************
        org 30h
  main:  MOV sp,#30h                ;設(shè)置堆棧
             lcall rest             ;初始化
             lcall comm             ;串口初始化
             jmp $                  ;原地等待

;  *************   初始化   *********************
   rest:      MOV p0,#00h             ;禁止數(shù)碼管顯示
             MOV p2,#255
             clr  beep                ;禁止蜂鳴器
             MOV p1,#255              ;禁止LED顯示
             RET                      ;返回

; **************  串口初始化   *****************
;設(shè)置串行口工作方式1 ， 定時(shí)器1作為波特率發(fā)生器
;波特率設(shè)置為   2400  ;

comm:         MOV tmod,#20h          ;設(shè)置定時(shí)器T1工作方式2
              MOV tl1,#0f3h             ;定時(shí)器計(jì)數(shù)初值，波特率 2400 
              MOV th1,#0f3h            ;定時(shí)器重裝值
              setb ea                       ;允許總的中斷
              setb es                       ;允許串行中斷
              MOV pcon,#00h          ;波特率不倍增
              MOV scon,#50h          ;設(shè)置串口工作方式1,REN = 1 允許接收
              setb tr1                       ;定時(shí)器開(kāi)始工作
              ret                               ;返回
;***************  串口中斷服務(wù)程序   ***********
;  如果接收  0FF  表示上位機(jī)需要聯(lián)機(jī)信號(hào)，單片機(jī)發(fā)送 0FFH作為
;  應(yīng)答信號(hào),如果接收到 數(shù)字 1~ n，表示相應(yīng)的功能；
;  這里，如果收到 1 ，則單片機(jī)向計(jì)算機(jī)發(fā)送字符  'H';
;            如果收到 2 ，則單片機(jī)向計(jì)算機(jī)發(fā)送字符  'e';
;            如果收到其他的數(shù)據(jù)，則發(fā)送    'J';
com_int:  clr es                        ;禁止串行中斷
                clr ri                          ;清除接收標(biāo)志位
                MOV a,sbuf               ;從緩沖區(qū)取出數(shù)據(jù)
                MOV p1,a
                MOV dptr,#tab
                cjne a,#0ffh,in_1      ;檢查數(shù)據(jù)
                MOV sbuf,#255          ;收到聯(lián)機(jī)信號(hào)，發(fā)送聯(lián)機(jī)信號(hào)
                jnb ti,$                      ;等待發(fā)送完畢
                clr ti                          ;清除發(fā)送標(biāo)志
                setb es                     ;允許串行中斷
                reti                            ;中斷返回
      in_1: cjne a,#1H, in_2         ;如果收到1
                MOVc a,@a+dptr
                MOV sbuf,a             ;發(fā)送 'h'
                jnb ti,$                      ;等待發(fā)送完畢
                clr  ti                         ;清除發(fā)送中斷標(biāo)志
                setb es                     ;允許串行中斷
                reti                            ;中斷返回
      in_2: cjne a,#2,in_3         ;接收到  2 
                MOVc a,@a+dptr
                MOV sbuf,a             ;發(fā)送 'e'
                jnb ti,$                      ;等待發(fā)送完畢
                clr  ti                         ;清除發(fā)送中斷
                setb es                     ;允許串行中斷
                reti                            ;中斷返回
      in_3:     MOV a,#03h
                MOVc a,@a+dptr
                MOV sbuf,a             ;發(fā)送 'j'
                jnb ti,$                      ;等待發(fā)送完畢
                clr ti                          ;清除發(fā)送中斷標(biāo)志
                setb es                     ;允許串行中斷
                reti                            ;返回
tab:    db '2','h','e','j'
  end