h5bjdjtest.txt

这是一个DSP5416控制步进电机的程序

void lcdwrite(uchar dat,uchar ypos,uchar xpos)
{
lcdpos( ypos, xpos);
lcdwd(dat,ypos,xpos);
}

void lcdfill()                      /*液晶屏清屏程序*/
{
uchar dat,ypos, xpos;
dat=0x0;
for(ypos=0;ypos<=7;ypos++)
   {
    for(xpos=0;xpos<=127;xpos++)
       {
     lcdwrite(dat,ypos,xpos);
       }
   }
}


void test2play()
{
   uchar dat1,ypos,xpos;
   ulong x;
   x=0;
  for(xpos=3;xpos<124;xpos++)
  {
      for(ypos=1;ypos<=3;ypos++)
      {
      dat1=table7[x];
      lcdwrite(dat1,ypos,xpos);
      x=x+1;
      }
  }
}

void test3play()
{
   uchar dat1,ypos,xpos;
   ulong x;
   x=0;
  for(xpos=3;xpos<124;xpos++)
  {
      for(ypos=1;ypos<=3;ypos++)
      {
      dat1=table8[x];
      lcdwrite(dat1,ypos,xpos);
      x=x+1;
      }
  }
}



void dataplay(uchar vxpos,uchar vypos,uchar dat2) // 数字显示子程序
{
   uchar dat1,ypos,xpos;                          //vxpos是列的起始地址
                                                  //vypos是行的起始地址  
   ulong x;
   x=dat2*36;                                     //确定查表地址
  for(xpos=vxpos+0;xpos<vxpos+12;xpos++)
  {
      for(ypos=vypos+2;ypos<vypos+5;ypos++)
       {
       dat1=table4[x];
       lcdwrite(dat1,ypos,xpos);
       x=x+1;
       }
  }
}

void  bjdj(void)                        //步进电机测试程序
{  int i; 
   for(i=0;i<10;i++)
   {
   bjcs=0x09;
   delay100ms();
   bjcs=0x0c;
   delay100ms();
   bjcs=0x06;
   delay100ms();
   bjcs=0x03;
   delay100ms();
   }
   bjcs=0x0;
}

void  hbjdj(void)                        //步进电机测试程序
{  int i; 
  for(i=0;i<10;i++)
   {
   bjcs=0x03; 
   delay100ms();
   bjcs=0x06;
   delay100ms();
   bjcs=0x0c;
   delay100ms();
   bjcs=0x09; 
   delay100ms();
   }
   bjcs=0x0;
}

////////////////////////////////////////////////////////////////////////
void main()
{  
   cpu_init(); 
   lcdreset();
   lcdfill();
   for(;;)
   {};
}

interrupt void keyint0()             //键盘测试 
{ 
   int a;
   a=portc001;
   a=a&0x00ff;
   if(a!=0x00ff)
   {
   delay10ms();
   a=portc001;
   a=a&0x00ff;
 
 switch(a)
            {
 case 0xfe:   break;
 case 0xfd:   break;
 case 0xfb:   break;
 case 0xf7:   break;
 case 0xef:   break;
 case 0xdf:   lcdfill();
              test2play();
              hbjdj();  
              break;
 case 0xbf:    lcdfill();
              test3play();
              bjdj();  
              break;
 case 0x7f:   lcdfill();
              bjcs=0x0;            //电机停转 
              break;
             }
     }
}

void  vect()
{
   asm(" .ref _c_int00");
   asm(" .ref _keyint0");

   asm(" b _c_int00");  /* reset */
   asm(" nop");
   asm(" nop");
   
   asm(" rete");        /* nmi  */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");       //
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete ");       /* int0 */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");       /* int1 */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" b _keyint0"); /* int2 */
   asm(" nop");
   asm(" nop");

   asm(" nop");
   asm(" nop");    /* tint0 */
   asm(" nop");
   asm(" nop");

   asm(" rete");      /* brint0 */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");      /* bxint0 */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");      /* dmac0 */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete");       /* tint1 */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" nop");
   asm(" nop");   /* int3 */
   asm(" nop");
   asm(" nop");

   asm(" rete");       /* hpint */
   asm(" nop");
   asm(" nop");
   asm(" nop");

   asm(" rete ");       /* brint1 */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");       /* bxint1 */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");       /* dmac4 */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" rete");        /* dmac5 */
   asm(" nop");
   asm(" nop");
   asm(" nop");
   
   asm(" nop");
   asm(" nop");
   asm(" nop");
   asm(" nop");
}