谁能提供一些关于51单片机模拟串口通信的汇编程序？

[qiuhanqing]

大概要扩展3个串口，用与键盘，通信口，显示器这三个外设和单片机间的通信！
用硬件好象太贵了，而且自己不是很熟悉串口扩展的芯片！
谢谢大家的帮助！！！

[icesnows]

用芯片啊，16C554；编起来也很麻烦的

[ppcust]

也可以考虑用并口啊。。。。。。
并口扩展比较方便的啊

[tjjack]

1、你可以用硬件扩展，我用了一个一扩三的，很好用的哦!
2、其他你只要看懂一个，c和汇编的没什么区别。网上好多的！
#include <reg51.h>
sbit BT_SND =P1^0;
sbit BT_REC =P1^1;
/**********************************************

IO 口模拟232通讯程序

使用两种方式的C程序 占用定时器0

**********************************************/

#define MODE_QUICK

#define F_TM F0

#define TIMER0_ENABLE TL0=TH0; TR0=1;
#define TIMER0_DISABLE TR0=0;

sbit ACC0= ACC^0;
sbit ACC1= ACC^1;
sbit ACC2= ACC^2;
sbit ACC3= ACC^3;
sbit ACC4= ACC^4;
sbit ACC5= ACC^5;
sbit ACC6= ACC^6;
sbit ACC7= ACC^7;

void IntTimer0() interrupt 1
{
F_TM=1;
}
//发送一个字符
void PSendChar(unsigned char inch)
{
#ifdef MODE_QUICK
ACC=inch;

F_TM=0;
BT_SND=0; //start bit
TIMER0_ENABLE; //启动
while(!F_TM);

BT_SND=ACC0; //先送出低位
F_TM=0;
while(!F_TM);

BT_SND=ACC1;
F_TM=0;
while(!F_TM);

BT_SND=ACC2;
F_TM=0;
while(!F_TM);

BT_SND=ACC3;
F_TM=0;
while(!F_TM);

BT_SND=ACC4;
F_TM=0;
while(!F_TM);

BT_SND=ACC5;
F_TM=0;
while(!F_TM);

BT_SND=ACC6;
F_TM=0;
while(!F_TM);

BT_SND=ACC7;
F_TM=0;
while(!F_TM);

BT_SND=1;
F_TM=0;
while(!F_TM);


TIMER0_DISABLE; //停止timer
#else
unsigned char ii;

ii=0;

F_TM=0;
BT_SND=0; //start bit
TIMER0_ENABLE; //启动
while(!F_TM);

while(ii<8)
{
if(inch&1)
{
BT_SND=1;
}
else
{
BT_SND=0;
}
F_TM=0;
while(!F_TM);
ii++;
inch>>=1;
}
BT_SND=1;
F_TM=0;
while(!F_TM);

#endif
TIMER0_DISABLE; //停止timer
}
//接收一个字符
unsigned char PGetChar()
{
#ifdef MODE_QUICK

TIMER0_ENABLE;
F_TM=0;
while(!F_TM); //等过起始位
ACC0=BT_REC;

TL0=TH0;

F_TM=0;
while(!F_TM);
ACC1=BT_REC;

F_TM=0;
while(!F_TM);
ACC2=BT_REC;

F_TM=0;
while(!F_TM);
ACC3=BT_REC;

F_TM=0;
while(!F_TM);
ACC4=BT_REC;

F_TM=0;
while(!F_TM);
ACC5=BT_REC;

F_TM=0;
while(!F_TM);
ACC6=BT_REC;

F_TM=0;
while(!F_TM);
ACC7=BT_REC;

F_TM=0;

while(!F_TM)
{
if(BT_REC)
{
break;
}
}
TIMER0_DISABLE; //停止timer
return ACC;
#else
unsigned char rch,ii;
TIMER0_ENABLE;
F_TM=0;
ii=0;
rch=0;
while(!F_TM); //等过起始位

while(ii<8)
{
rch>>=1;
if(BT_REC)
{
rch|=0x80;
}
ii++;
F_TM=0;
while(!F_TM);

}
F_TM=0;
while(!F_TM)
{
if(BT_REC)
{
break;
}

}
TIMER0_DISABLE; //停止timer
return rch;

#endif

}
//检查是不是有起始位
bit StartBitOn()
{
return (BT_REC==0);

}
void main()
{
unsigned char gch;

TMOD=0x22; /*定时器1为工作模式2(8位自动重装)，0为模式2(8位
自动重装) */
PCON=00;

TR0=0; //在发送或接收才开始使用
TF0=0;
TH0=(256-96); //9600bps 就是 1000000/9600=104.167微秒 执行的
timer是
//
104.167*11.0592/12= 96
TL0=TH0;
ET0=1;
EA=1;

PSendChar(0x55);
PSendChar(0xaa);
PSendChar(0x00);
PSendChar(0xff);

while(1)
{
if(StartBitOn())
{
gch=PGetChar();
PSendChar(gch);
}
}

}


××××××××××××××××××××××××××××××××
第二个


;模拟串行通讯程序

io_rxd equ p3.2 ;模拟rxd,中断接收
io_txd equ p1.0 ;模拟txd
ar_sbuf equ 7eh ;模拟串行接收存储单元
at_sbuf equ 7fh ;模拟串行发送存储单元
a_ri bit 0 ;模拟串行接收标志位，a_ri="1",表示已接收新数据
a_ti bit 1 ;模拟串行发送标志位，a_ti="1",表示已发送新数据

org 0000h
ljmp start ;复位入口
org 0003h
ljmp a_asi ;模拟串行接收中断入口

org 0030h
start: mov sp,#30h
setb px0 ;置模拟串行接收（int0）最高级中断
setb ex0 ;允许int0中断
setb ea ;总中断允许
;......
main:
;......
mov at_sbuf,#0 ;将要发送的数据存入at_sbuf
lcall a_aso ;调模拟串行发送子程序
;......
ljmp main

;模拟串行接收中断程序
a_asi: push psw ;psw保护入栈
push acc ;acc保护入栈
setb rs0 ;更换工作寄存器组
setb rs1 ;或使用其它未被使用的工作寄存器组
mov r7,#8 ;接收8位数据位
;接收起始位
lcall a_delay05t ;调1/2位周期延时子程序
lcall a_test_bit ;调逻辑检测子程序
jnc a_asi2 ;起始位正确转a_asi2，起始位逻辑应为“0”
;程序返回出口
a_asi1: pop acc ;acc保护出栈
pop psw ;psw保护出栈
reti ;开中断返回
;接收8位数据位
a_asi2: lcall a_delay10t ;调位周期延时子程序
lcall a_test_bit ;调逻辑检测子程序
rrc a ;数据位暂存于累加器中
djnz r7,a_asi2 ;8位数据未接收完循环至a_asi2
;接收终止位
lcall a_delay10t ;调位周期延时子程序
lcall a_test_bit ;调逻辑检测子程序
jnc a_asi1 ;终止位不正确转a_asi1
setb a_ri ;模拟串行接收标志位a_ri置位
mov ar_sbuf,a ;8位接收数据存入模拟串行接收存储器ar_sbuf
sjmp a_asi1 ;转中断出口返回

;模拟串行发送子程序
a_aso: clr ea ;禁止所有中断
a_aso1: mov r4,#9 ;8位数据+1位终止位
clr io_txd ;模拟串口输出逻辑"0"，输出起始位
nop
mov a,at_sbuf ;模拟发送数据存储器内容送累加器
setb c ;终止位在c中，置终止位
a_aso2: lcall a_delay10t1 ;调位周期延时子程序
rrc a ;取发送逻辑至c中
mov io_txd,c ;由模拟串行口发送
djnz r4,a_aso2 ;未发送完循环至a_aso2
lcall a_delay10t1 ;调位周期延时子程序
setb a_ti ;模拟串新接收标志位置位
setb ea ;开中断
ret ;返回

;模拟串行接收逻辑检测子程序，三取二
a_test_bit: jb io_rxd,a_test_bit1 ;第1次检测为“1”，转a_test_bit1
jnb io_rxd,a_test_bitl ;两次检测都为“0”，转a_test_bitl
jb io_rxd,a_test_bith ;第3次检测为"1"，转a_test_bith
a_test_bitl:clr c ;检测逻辑在c中，c清零
ret ;返回
a_test_bit1:jb io_rxd,a_test_bith ;两次检测都为“1”，转a_test_bith
jnb io_rxd,a_test_bitl ;第3次检测为"0"，转a_test_bitl
a_test_bith:setb c ;检测逻辑在c中，c置位
ret ;返回

;模拟串行通讯程序延时子程序
;时钟频率=11.0592MHz，波特率=9600pbs

A_DELAY05T: MOV R5,#12
A_DELAY05T1:DJNZ R5,$
RET
A_DELAY10T: MOV R5,#38
NOP
SJMP A_DELAY05T1
A_DELAY10T1:MOV R5,#42
SJMP A_DELAY05T1

[qiuhanqing]

谢谢！！！