双机串行通信(取号机 PCL).doc

甲机程序 D1 BIT P0.0 ;发光管端口定义 D2 BIT P0.1 K1 BIT P3.5 ;按键端定义 ORG 0000H ;复位地址 LJMP MAIN ORG 0023H ;串口中断地址 LJMP SERIAL_INT ORG 0100H ;主程序存放地址 MAIN:MOV SP,#60H ;堆栈地址 MOV SCON,#50H ;串口工作方式1,允许接收(数据为8位) MOV TMOD,#20H ;定时器T1工作方式2,8位可重装初值 MOV PCON,#00H ;波特率不倍增 MOV TH1,#0FDH ;T1赋初值(波特率位9600b/s) MOV TL1,#0FDH CLR TI ;发送标志清零 CLR RI ;接收标志清零 SETB TR1 ;启动T1 MOV IE,#90H ;开放串口中断和总中断 MOV P1,#00H ;LED数码管熄灭 L0: SETB D1 SETB D2 CALL DELAY JB K1,L0 ;检测按键第一次闭合 JNB K1,$ ;等按键松开 L1: MOV R1,#1 ;发送“1”至串口 MOV SBUF,R1 ;数据发送缓存区 CPL D1 SETB D2 ;D1闪烁D2熄灭 CALL DELAY JB K1,L1 ;检测按键第二次闭合 JNB K1,$ L2: MOV R1,#2 ;发送“2”至串口 MOV SBUF,R1 SETB D1 CPL D2 ;D2闪烁D1熄灭 CALL DELAY JB K1,L2 JNB K1,$ L3: MOV R1,#3 MOV SBUF,R1 CPL D1 CPL D2 CALL DELAY JB K1,L3 JNB K1,$ MOV R1,#4 MOV SBUF,R1 AJMP L0 ;跳转至L0，继续检测按键 DELAY:MOV R7,#20 ;延时程序 DELAY1:MOV R6,#250 DJNZ R6,$ DJNZ R7,DELAY1 RET ;串口中断服务程序 SERIAL_INT:JB TI,LOOP1 ;若为发送中断，直接跳至L5 JB RI,LOOP0 ;若为接收中断，则顺序执行以下程序 LOOP0: CLR RI ;清除接收标志 MOV A,SBUF ;查表，将对应的7段码送LED数码管显示 MOV DPTR,#TABLE MOVC A,@A+DPTR MOV P1,A LOOP1: CLR TI RETI ;中断返回 TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH ;7段代码表（0—9） END 乙机程序 D1 BIT P0.0 D2 BIT P0.1 K2 BIT P3.5 ;定义端口 ORG 0000H LJMP MAIN ORG 0023H LJMP SERIAL_INT ORG 0100H MAIN:MOV SP,#60H MOV SCON,#50H MOV TMOD,#20H MOV PCON,#00H MOV TH1,#0FDH MOV TL1,#0FDH CLR TI CLR RI SETB TR1 MOV IE,#90H MOV P1,#00H ;同甲机注释 SETB D1 SETB D2 ;两灯全熄灭 MOV R1,#0 ;按键计数器 LOOP:JB K2,LOOP ;检测按键闭合 JNB K2,$ ;等待按键松开 MOV SBUF,R1 ;按键计数值发送到缓冲区 MOV A,R1 ;将按键计数值送到LED数码管显示 MOV DPTR,#TABLE MO