串口通信的單片機(jī)程序

beepbit 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
clrbeep;禁止蜂鳴器
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ā)送完畢
clrti ;清除發(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ā)送完畢
clrti ;清除發(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