来秀一个我我RTL8019以太网程序，可以发送ARP封包。 (amobbs.com 阿莫电子技术论坛) -

aishiqi1992 发表于 2011-8-18 10:54:59

来秀一个我我RTL8019以太网程序，可以发送ARP封包。

#include <reg52.h>       // 引用标准库的头文件
#include <absacc.h>
#include <stdio.h>

#define uchar unsigned char
#define uint unsigned int

#define REG00 XBYTE // 端口300H，命令寄存器CR
#define REG01 XBYTE // 端口301H
#define REG02 XBYTE // 端口302H
#define REG03 XBYTE // 端口303H
#define REG04 XBYTE // 端口304H
#define REG05 XBYTE // 端口305H
#define REG06 XBYTE // 端口306H
#define REG07 XBYTE // 端口307H
#define REG08 XBYTE // 端口308H
#define REG09 XBYTE // 端口309H
#define REG0a XBYTE // 端口30aH
#define REG0b XBYTE // 端口30bH
#define REG0c XBYTE // 端口30cH
#define REG0d XBYTE // 端口30dH
#define REG0e XBYTE // 端口30eH
#define REG0f XBYTE // 端口30fH
#define REG10 XBYTE // 端口310H
#define REG11 XBYTE // 端口311H
#define REG12 XBYTE // 端口312H
#define REG13 XBYTE // 端口313H
#define REG14 XBYTE // 端口314H
#define REG15 XBYTE // 端口315H
#define REG16 XBYTE // 端口316H
#define REG17 XBYTE // 端口317H
#define REG18 XBYTE // 端口318H
#define REG19 XBYTE // 端口319H
#define REG1a XBYTE // 端口31aH
#define REG1b XBYTE // 端口31bH
#define REG1c XBYTE // 端口31cH
#define REG1d XBYTE // 端口31dH
#define REG1e XBYTE // 端口31eH
#define REG1f XBYTE // 端口31fH

void delay(uint t);
void NICRst();
void SelectPage(uchar pagenum);
void ClearISR();
void setmac();
void RTL8019Init();
void sentdata(struct packet *mypk );

receivedata(char *dat);
#endif
#include "Ethernet.h"

/* 主函数 */
sbit k=P1^6;
sbit k2=P1^5;

struct ethhead {
unsigned char destmac;
unsigned char sourcemac;
unsigned int nextprot;
}myeth;

struct arppk{
unsigned int hardware;
unsigned int prottype;
unsigned char hardlen;
unsigned char protlen;
unsigned int operation;
unsigned char sendermac;
unsigned char senderip;
unsigned char targetmac;
unsigned char targetip;

}myarp;

struct packet{
unsigned char *dat;
unsigned int len;
struct packet *nextpk;

} ethpacket,arppacket={0};

unsigned char code str={

0xFF,0xFF,0xFF,0xFF,0xFF,0xFF, 0x27,0x27,0x27,0x27,0x27,0x27, 0x08,0x06//, 0x00,0x01,
//0x08,0x00, 0x06, 0x04, 0x00,0x01, 0x27,0x27,0x27,0x27,0x27,0x27, 0xAC,0x10,0x2A,0xFD,
//0x00,0x00,0x00,0x00,0x00,0x00, 0xAC,0x10,0x2A,0xFE

};

unsigned char mymac={0x27,0x27,0x27,0x27,0x27,0x27};
unsigned char myip={0xC0,0xA8,0x01,0x66};
unsigned char destip={0xC0,0xA8,0x01,0x65};

unsigned charrec;
unsigned int reclen;
init()
{
TMOD=0x20;
PCON=0x00;
SCON=0x50;
TH1=0xfd;
TL1=0xfd;
TR1=1;
EA=0;
}

sent(unsigned char ch)
{SBUF=ch;
while(!TI);
TI=0;
}

sentstr(unsigned char *ch,len)
{
unsigned int i;
i=0;
while(i<len)
{
sent(ch);
i++;
}
}

arpans()
{
unsigned char i;

if(rec==myip&&rec==myip&&rec==myip&&rec==myip&&((struct arppk*)(rec+14))->operation==0x0001)
{

for(i=0;i<6;i++){
myeth.sourcemac=mymac;
myeth.destmac=rec;
myarp.sendermac=mymac;
myarp.targetmac=rec;

}
for(i=0;i<4;i++)
{
myarp.senderip=myip;
myarp.targetip=rec;
}

myeth.nextprot=0x0806;
myarp.hardware=0x0001;
myarp.prottype=0x0800;
myarp.hardlen=0x06;
myarp.protlen=0x04;
myarp.operation=0x0002;    //01rewquest //02respond

ethpacket.dat=(unsigned char *)&myeth;
ethpacket.len=14;
ethpacket.nextpk=&arppacket;
arppacket.dat=(unsigned char *)&myarp;
arppacket.len=28;
arppacket.nextpk=NULL;

sentdata(&ethpacket);
}
}

arpreq()
{
unsigned char i;
for(i=0;i<6;i++){
myeth.sourcemac=mymac;
myeth.destmac=0xff;
myarp.sendermac=mymac;
myarp.targetmac=0;

}
for(i=0;i<4;i++)
{
myarp.senderip=myip;
myarp.targetip=destip;
}

myeth.nextprot=0x0806;
myarp.hardware=0x0001;
myarp.prottype=0x0800;
myarp.hardlen=0x06;
myarp.protlen=0x04;
myarp.operation=0x0001;    //01rewquest //02respond

ethpacket.dat=(unsigned char *)&myeth;
ethpacket.len=14;
ethpacket.nextpk=&arppacket;
arppacket.dat=(unsigned char *)&myarp;
arppacket.len=28;
arppacket.nextpk=NULL;

sentdata(&ethpacket);

}

void main(void)
{
unsigned char ks,ks2;
ks=0;
init();
delay(1000); // 延时1s，保证电源稳定和网卡自身的上电完成

NICRst(); // RTL8019AS热复位

ClearISR(); // 清除ISR寄存器

RTL8019Init(); // 初始化RTL8019AS

while(1)
{
if(k2==0&&ks2==0)
{

   arpreq();

ks2=1;
}
if(k2!=0)ks2=0;
// if(!k)

if( receivedata(rec))

{
if(((struct ethhead*)rec)->nextprot==0x0806)arpans();
sentstr(rec,reclen);

}

}
}

/* 延时t毫秒 */
void delay(uint t)
{
uint i;
while(t--)
{
/* 对于12M时钟，约延时1ms */
for (i=0;i<125;i++)
{}
}
}

/* RTL8019AS热复位 */
void NICRst()
{
uchar i,tmp;
tmp = REG1f; // 读RTL8019AS的复位端口
REG1f = tmp; // 写RTL8019AS的复位端口
for(i=0;i<250;i++); // 适当延时
}

/* 通过CR寄存器的PS1和PS0设置寄存器页 */
void SelectPage(uchar pagenum)
{
uchar tmp;
tmp = REG00;
tmp = tmp&0x3B; // 注意不是0x3F，TXP位在不发送时要置0
pagenum = pagenum<<6;
tmp = tmp|pagenum;
REG00 = tmp;
}

/* 初始化RTL8019AS，PAGE2寄存器只读，PAGE3寄存器不是NE2000兼容的，均不用设置 */
/* 使用0x40-0x4b为网卡的发送缓冲区，共12页，刚好存储2个最大的以太网数据包。
使用0x4c-0x7f为网卡的接收缓冲区，共52页。因此PSTART=0x4c，PSTOP=0x80
(0x80为停止页，接收缓冲区直到0x7f，不包括0x80）。刚开始时，网卡没有接收
到任何数据包，因此BNRY设置为指向第一个接收缓冲区的页0x4c） */
void RTL8019Init()
{
REG00 = 0x21; // 选择页0的寄存器，网卡停止运行，因为还没有初始化

REG01 = 0x4c; // 寄存器PSTART，设置接收缓冲区的起始页的地址
REG02 = 0x80; // 寄存器PSTOP，设置接收缓冲区的结束页的地址
REG03 = 0x4c; // 寄存器BNRY，设置为指向第一个接收缓冲区的页0x4c（用作读指针）
REG04 = 0x40; // 寄存器TPSR，发送起始页地址初始化为指向第一个发送缓冲区的页
REG0c = 0xcc; /* 接收配置寄存器RCR，设置为仅接收自己地址的数据包以及广播地址
和多点播送地址数据包，小于64字节的包丢弃，校验错的数据包不接收 */
REG0d = 0xe0; // 发送配置寄存器TCR，设置为启用crc自动生成和校验，正常模式工作
REG0e = 0xc8; /* 数据配置寄存器DCR，设置为使用FIFO缓存，普通模式，8位数据传输，
   字节顺序为高位字节在前，低位字节在后 */
REG0f = 0xff; // 中断屏蔽寄存器IMR，设置为屏蔽所有中断，若为0xff则使能所有中断
SelectPage(1); // 选择页1的寄存器
REG07=0x4d; // 寄存器CURR，设置为指向当前正在写的页的下一页（用作写指针）

/* 多址地址寄存器MAR0-MAR7均设置为0x00 */
REG08 = 0x00; // MAR0
REG09 = 0x00; // MAR1
REG0a = 0x00; // MAR2
REG0b = 0x00; // MAR3
REG0c = 0x00; // MAR4
REG0d = 0x00; // MAR5
REG0e = 0x00; // MAR6
REG0f = 0x00; // MAR7

setmac(); // 获取以太网物理地址

REG00 = 0x22; // 选择页0寄存器，执行命令。
}

/* 上电后清除ISR寄存器 */
void ClearISR()
{
SelectPage(0);
REG07 = REG07|0xff;
}

/* 获取以太网物理地址 */
void setmac()
{

// SelectPage(0); // 选择页0
// REG08 = 0; // 远程DMA起始地址低位寄存器RSAR0，设置为0
// REG09 = 0; // 远程DMA起始地址高位寄存器RSAR1，设置为0
// REG0a = 12; // 远程DMA计数器低位寄存器RBCR0，设置为12
// REG0b = 0; // 远程DMA计数器高位寄存器RBCR1，设置为0

// REG00 = 0x0a; // 远程DMA，启动命令

SelectPage(1); // 选择页1
// tmp = REG10;    // 读取一个字节
REG01 = mymac; // 写入PAR0
// tmp = REG10; // 读取一个重复的字节，这个字节被丢弃
// tmp = REG10;    // 读取一个字节
REG02 = mymac; // 写入PAR1
// tmp = REG10; // 读取一个重复的字节，这个字节被丢弃
// tmp = REG10;    // 读取一个字节
REG03 = mymac; // 写入PAR2
// tmp = REG10; // 读取一个重复的字节，这个字节被丢弃
// tmp = REG10;    // 读取一个字节
REG04 =mymac ; // 写入PAR3
// tmp = REG10; // 读取一个重复的字节，这个字节被丢弃
// tmp = REG10;    // 读取一个字节
REG05 = mymac; // 写入PAR4
// tmp = REG10; // 读取一个重复的字节，这个字节被丢弃
// tmp = REG10;    // 读取一个字节
REG06 = mymac; // 写入PAR5
SelectPage(0);
}

void sentdata(struct packet *mypk )
{unsigned int i,len;
struct packet *tmppk;

len =mypk->len;

tmppk=mypk->nextpk;
while(tmppk!=NULL)
{
len+=tmppk->len;
tmppk=tmppk->nextpk;
}

REG00=0x21;
REG07=0x0a;
//REG08=0x40;
//REG09=0x00;
REG08=0x00;
REG09=0x40;

   REG0b=len>>8;
   REG0a=len&0x00ff;

REG00=0x12;

tmppk=mypk;

while(tmppk!=NULL)
{
for(i=0;i<tmppk->len;i++)
{
REG10=*((tmppk->dat)+i);

}
tmppk=tmppk->nextpk;
}

REG04=0x40;

if(len<60) len=60;
REG05=len&0xff;
REG06=len>>8;

REG00=0x24;

}

/*
void sentdata(struct ethhead *eth,unsigned char ethlen, struct arppk *arp,unsigned int arplen)
{unsigned int i,len;
REG00=0x21;
REG07=0x0a;
//REG08=0x40;
//REG09=0x00;
REG08=0x00;
REG09=0x40;
len=ethlen+arplen;

   REG0b=len>>8;
   REG0a=len&0x00ff;

REG00=0x12;

for(i=0;i<ethlen;i++)
{
REG10=*eth;
eth++;

}
for(i=0;i<arplen;i++)
{
REG10=*arp;
arp++;

}

REG04=0x40;

if(len<60) len=60;
REG05=len&0xff;
REG06=len>>8;

REG00=0x24;

}

void sentdata(unsigned char *dat,unsigned int len)
{unsigned int i;
REG00=0x21;
REG07=0x0a;
//REG08=0x40;
//REG09=0x00;
REG08=0x00;
REG09=0x40;

   REG0b=len>>8;
   REG0a=len&0x00ff;

REG00=0x12;

for(i=0;i<len;i++)
{
REG10=*dat;
dat++;

}

REG04=0x40;

if(len<60) len=60;
REG05=len&0xff;
REG06=len>>8;

REG00=0x24;

} */

receivedata(char *dat)
{
unsigned char tmp,nextpage;
unsigned int i;
char bnry,curr;
SelectPage(0);
bnry=REG03;
SelectPage(1);
curr=REG07;
bnry++;
if(bnry>0x7f)bnry=0x4c;

if(bnry!=curr)
{
SelectPage(0);
REG08=0x00;
REG09=bnry;
REG0a=0x00;
REG0b=04;
REG00=0x0a;

tmp=REG10;
nextpage=REG10;
reclen=REG10;
tmp=REG10;
reclen+=tmp<<8;
REG00=0x22;

REG08=4;
REG09=bnry;
REG0b=reclen>>8;
REG0a=reclen&0x00ff;
reclen-=4;
REG00=0x0a;

for(i=0;i<reclen;i++)
{dat=REG10;

   }
   REG00=0x0a;

   bnry=nextpage-1;
   if(bnry<0x4c)bnry=0x7f;
   REG03=bnry;
   REG07=0xff;
return 1;
}
return 0;

}

wzhansen 发表于 2011-10-31 23:34:48

MARK

tanguicaicai 发表于 2013-10-23 11:37:12

学习下~~~

页: [1]

amobbs.com 阿莫电子技术论坛's Archiver

来秀一个我我RTL8019以太网程序，可以发送ARP封包。