keil实现0到100累加

本设计用keil和protues实现0到100的实时累加显示，请大家多多指教！

#include 
unsigned char seg7[]={0xc00xf90xa40xb00x990x920x820xf80x800x90};
unsigned int sn;
unsigned char iabcdxh;
void delay（unsigned char m）
{
  unsigned char i;
  for（i=0;i}
void display（unsigned int n）
{
  a=n/1000%10;
  b=n/100%10;
  c=n/10%10;
  d=n%10;
  h=1000;
  while（h）
  {
    P0=seg7[a];
	P2=0x01;
	delay（100）;
	P0=0xff;
	delay（10）;
	P0=seg7[b];
	P2=0x02;
	delay（100）;
	P0=0xff;
	delay（10）;
	P0=seg7[c];
	P2=0x04;
	delay（100）;
	P0=0xff;
	delay（10）;
	P0=seg7[d];
	P2=0x08;
	delay（100）;
	P0=0xff;
	delay（10）;
	h--;
   }
}
void main（）
{ 
  i=0;
  s=0;
  x=101;
  while（x）
  { 
   delay（100）;
   display（s）;
   i=i+1;
   s=s+i;
   delay（100）;
   x--;
   }
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      36778  2010-05-06 15:00  0到100累加\sadfs.DSN

     文件       6376  2005-03-22 15:22  0到100累加\STARTUP.A51

     文件      36778  2010-05-06 15:00  0到100累加\Last Loaded sadfs.DBK

     文件        768  2010-05-17 08:08  0到100累加\sadfs.PWI

     文件         41  2010-05-17 08:08  0到100累加\sdf.lnp

     文件       6805  2010-05-17 08:08  0到100累加\sdf.M51

     文件        174  2010-05-17 08:11  0到100累加\sdf.plg

     文件      14048  2010-05-17 08:08  0到100累加\STARTUP.LST

     文件        755  2010-05-17 08:07  0到100累加\Text1.c

    .......      1690  2010-05-09 16:09  0到100累加\sdf_Uv2.Bak

    .......      1329  2010-05-09 16:09  0到100累加\sdf_Opt.Bak

     文件        749  2010-05-17 08:08  0到100累加\STARTUP.OBJ

     文件       2520  2010-05-17 08:08  0到100累加\Text1.LST

     文件       4087  2010-05-17 08:08  0到100累加\Text1.OBJ

     文件       4283  2010-05-17 08:08  0到100累加\sdf

     文件       2116  2010-05-17 08:08  0到100累加\sdf.Uv2

     文件       1371  2010-05-17 08:08  0到100累加\sdf.Opt

     目录          0  2010-05-06 16:27  0到100累加

----------- ---------  ---------- -----  ----

               120668                    18