资源描述：
《双机串行通信(取号机 PCL)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、甲机程序D1BITP0.0;发光管端口定义D2BITP0.1K1BITP3.5;按键端定义ORG0000H;复位地址LJMPMAINORG0023H;串口中断地址LJMPSERIAL_INTORG0100H;主程序存放地址MAIN:MOVSP,#60H;堆栈地址MOVSCON,#50H;串口工作方式1,允许接收(数据为8位)MOVTMOD,#20H;定时器T1工作方式2,8位可重装初值MOVPCON,#00H;波特率不倍增MOVTH1,#0FDH;T1赋初值(波特率位9600b/s)MOVTL1,#0FDHCLRTI;发送标志清零CLRRI;接收标志清零SETBTR1;启动T1MOV
2、IE,#90H;开放串口中断和总中断MOVP1,#00H;LED数码管熄灭L0:SETBD1SETBD2CALLDELAYJBK1,L0;检测按键第一次闭合JNBK1,$;等按键松开L1:MOVR1,#1;发送“1”至串口MOVSBUF,R1;数据发送缓存区CPLD1SETBD2;D1闪烁D2熄灭CALLDELAYJBK1,L1;检测按键第二次闭合JNBK1,$L2:MOVR1,#2;发送“2”至串口MOVSBUF,R1SETBD1CPLD2;D2闪烁D1熄灭CALLDELAYJBK1,L2JNBK1,$L3:MOVR1,#3MOVSBUF,R1CPLD1CPLD2CALLDELAY
3、JBK1,L3JNBK1,$MOVR1,#4MOVSBUF,R1AJMPL0;跳转至L0，继续检测按键DELAY:MOVR7,#20;延时程序DELAY1:MOVR6,#250DJNZR6,$DJNZR7,DELAY1RET;串口中断服务程序SERIAL_INT:JBTI,LOOP1;若为发送中断，直接跳至L5JBRI,LOOP0;若为接收中断，则顺序执行以下程序LOOP0:CLRRI;清除接收标志MOVA,SBUF;查表，将对应的7段码送LED数码管显示MOVDPTR,#TABLEMOVCA,@A+DPTRMOVP1,ALOOP1:CLRTIRETI;中断返回TABLE:DB3FH
4、,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;7段代码表（0—9）END乙机程序D1BITP0.0D2BITP0.1K2BITP3.5;定义端口ORG0000HLJMPMAINORG0023HLJMPSERIAL_INTORG0100HMAIN:MOVSP,#60HMOVSCON,#50HMOVTMOD,#20HMOVPCON,#00HMOVTH1,#0FDHMOVTL1,#0FDHCLRTICLRRISETBTR1MOVIE,#90HMOVP1,#00H;同甲机注释SETBD1SETBD2;两灯全熄灭MOVR1,#0;按键计数器LOOP:JBK2,LOO
5、P;检测按键闭合JNBK2,$;等待按键松开MOVSBUF,R1;按键计数值发送到缓冲区MOVA,R1;将按键计数值送到LED数码管显示MOVDPTR,#TABLEMOVCA,@A+DPTRMOVP1,AINCR1;按键计数值加一CJNER1,#10,LOOP;按键计数值是否等于10MOVR1,#0;按键计数值清零AJMPLOOPSERIAL_INT:JBTI,L5;若为发送中断,直接跳至L5JBRI,L0;若为接收中断,则顺序执行以下程序L0:CLRRI;接收标志清零MOVR0,SBUF;接收缓冲区数据存入R0CJNER0,#1,L1;接收缓冲区数值与"1"比较CPLD1SETBD
6、2CALLDELAYL1:CJNER0,#2,L2;接收缓冲区数值与"2"比较SETBD1CPLD2CALLDELAYL2:CJNER0,#3,L3;接收缓冲区数值与"3"比较CPLD1CPLD2CALLDELAYL3:CJNER0,#4,L4;接收缓冲区数值与"4"比较SETBD1SETBD2CALLDELAYRETI;中断返回L5:CLRTIL4:RETI;延时程序DELAY:MOVR7,#20DELAY1:MOVR6,#250DJNZR6,$DJNZR7,DELAY1RETTABLE:DB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;7段代码表
7、(0-9)END
