力测量实验.c

3000TB51配套实验例程 1八段数码管显示实验 等

/* ;“验证式”	实验八 力测量实验  */
#include <absacc.h>
#define LEDLen 6
#define MODE 0x03
#define CS0809 XBYTE[0xa000] 
#define CAddr XBYTE[0xe100]    /* 命令控制口 */
#define OUTBIT XBYTE[0xe101]    /* 位控制口 */
#define CLK164 XBYTE[0xe102]    /* 段控制口(接164时钟位) */
#define DAT164 XBYTE[0xe102]    /* 段控制口(接164数据位) */
#define IN XBYTE[0xe103]    /* 键盘读入口 */

unsigned char LEDBuf[LEDLen];  /* 显示缓冲 */
code unsigned char LEDMAP[] = {  /* 八段管显示码 */
  0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07,
  0x7f, 0x6f, 0x77, 0x7c, 0x39, 0x5e, 0x79, 0x71
};

void Delay(unsigned char CNT)
{
  unsigned char i;

  while (CNT-- !=0)
    for (i=100; i !=0; i--);
}

void DisplayLED()
{
  unsigned char i, j;
  unsigned char Pos;
  unsigned char LED;

  Pos = 0x20;  /* 从左边开始显示 */
  for (i = 0; i < LEDLen; i++) {
    OUTBIT = 0;     /* 关所有八段管 */
    LED = LEDBuf[i];
    for (j = 0; j < 8; j++) {   /* 送164 */
     if (LED & 0x80) DAT164 = 1 ; else DAT164 = 0 ;
      CLK164 = CLK164| 0X02;
      CLK164 = CLK164& 0Xfd;
      LED <<= 1;
    }
    OUTBIT = Pos;  /* 显示一位八段管 */
    Delay(1);
    Pos >>= 1;     /* 显示下一位 */
  }
  OUTBIT = 0;     /* 关所有八段管 */
}
unsigned char Read0809()
{
  unsigned char i;

  CS0809 = 0;                /* 起动 A/D */
  for (i=0; i<0x20; i++) ;   /* 延时 > 100us */
  return(CS0809);            /* 读入结果 */
}

void main()
{

   unsigned char j;
    unsigned char b;
   CAddr= MODE;
   while(1) {
     LEDBuf[0] = 0Xb8;
     LEDBuf[1] = 0X40;
     LEDBuf[2] = 0X40;
     LEDBuf[3] = 0X40;
     LEDBuf[4] = 0X00;
     LEDBuf[5] = 0X00;

     //b = Read0809();

     LEDBuf[5] = LEDMAP[Read0809() & 0x0f] ;
     LEDBuf[4] = LEDMAP[Read0809()>>4 & 0x0f] ;
     for(j=0; j<5; j++)
       DisplayLED();   /* 延时 */
   }
}