移动点阵

#include<reg52.h>
#include<intrins.h>
#define uchar unsigned char
sbit ser1=P2^0;
sbit srclk1=P2^1;
sbit rclk1=P2^2;

sbit ser=P1^0;
sbit srclk=P1^1;
sbit rclk=P1^2;

uchar w[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};
uchar tab[]={0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//
       0x00,0x00,0x7f,0x08,0x08,0x07,0x00,0x00,//h
       0x00,0x00,0x3c,0x52,0x52,0x32,0x00,0x00,//e
       0x00,0x00,0x00,0x7e,0x02,0x04,0x00,0x00,//l
       0x00,0x00,0x00,0x7e,0x02,0x04,0x00,0x00,//l
       0x00,0x00,0x1c,0x22,0x22,0x1c,0x00,0x00,//o
       0x00,0x00,0x00,0x05,0x0e,0x0c,0x00,0x00,//,
       0x00,0x38,0x04,0x38,0x04,0x38,0x00,0x00,//w
       0x00,0x00,0x1c,0x22,0x22,0x1c,0x00,0x00,//o
       0x00,0x20,0x1f,0x20,0x40,0x40,0x20,0x00,//r
       0x00,0x00,0x0c,0x12,0x12,0x7e,0x00,0x00,//d
       0x00,0x00,0x00,0x7d,0x00,0x00,0x00,0x00,//!
       0x00,0x00,0x00,0x00,0x00};

void delay(uchar n)
{
 uchar i,j;
 for(i=0;i<n;i++)
 for(j=0;j<125;j++);
}
void s_byte(uchar dat)
{
 uchar i;
 for(i=0;i<8;i++)
 {
  srclk=0;
  ser=dat&0x01;
  dat>>=1;
  srclk=1;
 }
}
void s_2byte(uchar dat1,uchar dat2)
{
 s_byte(dat1);
 s_byte(dat2);
 rclk=1;
 _nop_();
 rclk=0;
}
void s_wei(uchar dat)
{
 uchar i;
 for(i=0;i<8;i++)
 {
  srclk1=0;
  ser1=dat&0x80;
  dat<<=1;
  srclk1=1;
 }
 rclk1=1;
 _nop_();
 rclk1=0;
}
void main()
{
 uchar i,j,k;
 for(i=0;i<92;i++)
 for(k=0;k<20;k++)
 for(j=0;j<8;j++)
 {
  s_wei(w[7-j]);
  s_2byte(~tab[i+j],0xff);
  delay(2);
  
  s_2byte(0xff,0xff);
  delay(1);
 }
 for(i=0;i<92;i++)
 for(k=0;k<20;k++)
 for(j=0;j<8;j++)
 {
  s_wei(w[7-j]);
  s_2byte(0xff,~tab[i+j]);
  delay(2);
  
  s_2byte(0xff,0xff);
  delay(1);
 }
 for(i=0;i<92;i++)
 for(k=0;k<10;k++)
 for(j=0;j<8;j++)
 {
  s_wei(w[7-j]);
  s_2byte(~tab[i+j],~tab[i+j]);
  delay(2);
  
  s_2byte(0xff,0xff);
  delay(1);
 }
}