16級灰度護欄燈控制器程序   

硬件資源：   
RAM ADDRESS ：0000H---7FFFH   
CF card ADDRESS：8000H---8FFFH   
CPLD    ADDRESS：9000H---FFFFH   
RAM SIZE    ：32K    FLASH SIZE：8MBYTE = 4K*512PAGE*4PCS   
PCB:V10   
*/    
#include <reg52.h>    
#include <intrins.h>    
//#include <ctype.h>//字符函數    
#include <string.h>//字符串函數    
#include <stdio.h>//一般I/O函數    
#include <stdlib.h>//標準函數    
//#include <math.h>//數學函數    
#include <absacc.h>//絕對地址    
#include <intrins.h>//內部函數    
#include    <setjmp.h>    
#define uchar unsigned char    
#define uint unsigned int    
#define byte unsigned char    
#define ulong unsigned long    
#define bool bit    
#define TRUE 1    
#define FALSE 0    
#define V_TH0   0xff  /* 時間常數高8位 (65536-500)/256            */    
#define V_TL0   0xff  /* 時間常數低8位 (65536-500)>256   11.0592*/    
//#define V_TH0   (65536-1536)/256    
//#define V_TL0   (65536-1536)>256    
#define V_TMOD  0x01                     /* 定時器T0方式控制字 */    
#define WriteDeviceAddress 0xa0    
#define ReadDviceAddress    0xa1    
sfr     CHPCON= 0xbf;    
sfr     CHPENR=0xf6;    
sfr     PMR= 0xC4;    
sfr     SBUF1=0xc1;    
sfr     SCON1=0xc0;    
sbit SM01  = SCON1^7; /* alternative SM0_FE_1  */    
sbit SM11  = SCON1^6; /* alternative SM1_1  */    
sbit SM21  = SCON1^5; /* alternative SM2_1  */    
sbit REN1  = SCON1^4; /* alternative REN_1  */    
sbit TB81  = SCON1^3; /* alternative TB8_1  */    
sbit RB81  = SCON1^2; /* alternative RB8_1  */    
sbit TI1   = SCON1^1; /* alternative TI_1   */    
sbit RI1   = SCON1^0; /* alternative RI_1   */    
sbit ES1   = IE^6;    
/* 定義定時器T0的時間常數值和方式控制字 */    
    
#define  REGL XBYTE[0x9003] //控制寄存器護欄管的長度    
#define  FPGH XBYTE[0x9001] //閃存頁高位    
#define  FPGL XBYTE[0x9002] //閃存頁低位    
//-------- CF CARD REG ADDRESS    
#define EVEN_Data       XBYTE[0xa400]    
#define ODD_Data        XBYTE[0xa400]    
#define  Data_Reg       XBYTE[0xa000]   //DATA REGISTER(R/W)    
#define  Error_Reg      XBYTE[0xa001]       //ERROR REGISTER(READ)    
#define  Features       XBYTE[0xa001]  //FEATURE REGISTER(WRITE)    
#define  Sectr_Cnt      XBYTE[0xa002]//SECTOR COUNT REGISTER(R/W)    
#define  Sectr_No       XBYTE[0xa003]  //SECTOR NUMBER REGISTER(R/W)    
#define  Cylinder_Low   XBYTE[0xa004]  //CYLINDER LOW REGISTER(R/W)    
#define  Cylinder_Hi    XBYTE[0xa005]   //CYLINDER HIGH REGISTER(R/W)    
#define  Drv_Head       XBYTE[0xa006]   //DIRVE/HEAD REGISTER(R/W)    
#define  Status         XBYTE[0xa007]   //STATUS REGISTER(READ)    
#define  Command        XBYTE[0xa007]  //COMMAND REGISTER(WRITE)    
#define Alt_Status      XBYTE[0xa00e]   //Alternate Status Regiter(read only)    
#define Device_Ctrl     XBYTE[0xa00e]   //Device Control Register(Write only)    
#define Device_Addrs    XBYTE[0xa00f]   //Drive Address Register(read only).Not used in this demo    
#define Config          XBYTE[0x8200]   //Configuration Option Register    
#define Socket          XBYTE[0x8206]   //Socket and copy Register    
//CF card All command code    
#define ChkPwr      0xe5    
#define Diagnostic  0x90    
#define EraseSctr   0xc0    
#define Format      0x50    
#define Identify    0xec    
#define Idle        0xe3    
#define Idlelmm     0xe1    
#define Initialize  0x91    
#define ReadBuf     0xe4    
#define ReadLong    0x22    
#define ReadMulti   0xc4    
#define ReadSctr    0x20    
#define ReadVerify  0x40    
#define Recalibrate 0x10    
#define ReadSense   0x03    
#define Seek        0x70    
#define SetFeature  0xef    
#define SetMulti    0xc6    
#define Sleep       0xe6    
#define Standby     0xe2    
#define Standbylmm  0xe0    
#define Translate   0x87    
#define WearLevel   0xf5    
#define WriteBuf    0xe8    
#define WriteLong   0x32    
#define WriteMulti  0xc5    
#define WriteSctr   0x30    
#define WriteVerify 0x3c    
#define WrtMwoErase 0xcd    
#define WrtSwoErase 0x38    
#define debug 1;    
    
//**********************************************    
sbit    senden=P3^2;    
sbit    SDA=P3^3;    
sbit    SCL=P3^5;    
sbit    wdgclr=P1^7;    
//*************************************************    
uchar   Select;    
uchar   LBA[6];                 //Sets up sector ,CF Card Address    
uint    zhepe;                  //幀頻    
uint    ms;                     //毫秒定時    
uchar   ADD;                    //地址    
uchar   idata iic_buf[96];      //接收緩沖區    
uint    pointer;    
uchar   xdata *bufp;    
uchar   subchk;                 //接收指針 和校驗    
uchar   paklen;                 //包長    
    
uint    Dcyli;          //總柱面    
uint    Dhead;          //總磁頭    
uint    sec_track;      //扇區/磁道    
    
uchar   bdata flag;    
sbit    frameok=flag^0;         //rece ok    
sbit    color=flag^1;           //0 sing red color 1 red green color    
sbit    rec_sta=flag^2;         //1 進入接狀態,不顯示    
sbit    rec_end=flag^3;    
sbit    timout=flag^4;    
//jmp_buf env;    
//int retval;    
/***************************************************************************/    
void I2cDelay(unsigned int number) {    
    unsigned char temp;    
    for(;number!=0;number--,wdgclr=!wdgclr) {    
        for(temp=112;temp!=0;temp--) {    
        }    
    }    
}    
//*******************************    
void SomeNOP(void)    
{    
uchar i;    
i=5;    
while(i--);    
}    
/***************************************************************************/    
void Start() {    
    SDA=1;SomeNOP();    
    SCL=1;SomeNOP();    
    SDA=0;SomeNOP();    
    SCL=0;SomeNOP();    
}    
/***************************************************************************/    
void Stop() {    
    SCL=0;SomeNOP();    
    SDA=0;SomeNOP();    
    SCL=1;SomeNOP();    
    SDA=1;SomeNOP();    
}    
/***************************************************************************/    
void Ack() {    
    SDA=0;SomeNOP();    
    SCL=1;SomeNOP();    
    SCL=0;SomeNOP();    
    SDA=1;SomeNOP();    
}    
/***************************************************************************/    
void NoAck() {    
    SDA=1;SomeNOP();    
    SCL=1;SomeNOP();    
    SCL=0;SomeNOP();    
}    
/***************************************************************************/    
bit TestAck() {    
    bit ErrorBit;    
    SDA=1;SomeNOP();    
    SCL=1;SomeNOP();    
    ErrorBit=SDA;    
    SCL=0;    
    return(ErrorBit);    
}    
/***************************************************************************/    
Write8Bit(unsigned char input)    
{    
unsigned char temp;    
for(temp=8;temp!=0;temp--) {    
        SDA=(bit)(input&amt;0x80);    
        SCL=1;SomeNOP();    
        SCL=0;SomeNOP();    
        input=input<<1;    
    }    
}    
/***************************************************************************/    
void Write24c02(unsigned char xdata *Wdata,unsigned char RomAddress,unsigned char number) {    
    wdgclr=!wdgclr;    
    Start();    
    Write8Bit(WriteDeviceAddress);    
    TestAck();    
    Write8Bit(RomAddress);    
    TestAck();    
    for(;number!=0;number--) {    
        Write8Bit(*Wdata);    
        TestAck();    
        Wdata++;    
    }    
    Stop();    
    I2cDelay(10);    
}    
/***************************************************************************/    
unsigned char Read8Bit() {    
    unsigned char temp,rbyte=0;    
    for(temp=8;temp!=0;temp--) {    
        SCL=1;    
        rbyte=rbyte<<1;    
        rbyte=rbyte|((unsigned char)(SDA));    
        SCL=0;    
    }    
    return(rbyte);    
}    
    
/***************************************************************************/    
void Read24c02(unsigned char *RamAddress,unsigned char RomAddress,unsigned char bytes) {    
//  unsigned char temp,rbyte;    
    wdgclr=!wdgclr;    
    Start();    
    Write8Bit(WriteDeviceAddress);    
    TestAck();    
    Write8Bit(RomAddress);    
    TestAck();    
    Start();    
    Write8Bit(ReadDviceAddress);    
    TestAck();    
    while(bytes!=1) {    
    *RamAddress=Read8Bit();    
    Ack();    
    RamAddress++;    
    bytes--;    
    }    
    *RamAddress=Read8Bit();    
    NoAck();    
    Stop();    
}    
    
/*************************************************   
   
************************************************/    
void delayms( uchar ticks )    
{    
uint    Count;    
uchar   Tick;    
for (Tick=ticks;Tick>0;Tick--)    
    {    
    for (Count=0;Count<=500;Count++);    
    wdgclr=!wdgclr;    
    }    
    
}   

/************************************   
    通訊協議解析          接收數據   
*******************************************8   
*/    
void receive(void)    
{    
uchar   i;    
uchar xdata *sp;    
wdgclr=!wdgclr;    
switch(XBYTE[0x1002])//命令標志    
    {    
    case 1:rec_sta=1;TR0=0;//進入接收狀態    
        break;    
    case 2:         //接收數據    
    
        break;    
    case 0:         //加載某一幀數據到顯存    
        break;    
    case    3:      //將一扇區數據寫閃存    
    
        break;    
    case    4:      //測試    
    
        break;    
    case 5:     //接收到顯存    
    
    case 6:     //同步信號    
    
        ms=0;    
    break;    
    case 7:         //進入自動播放    
        sp=0x1008;    
        for(i=0;i<12;i++)    
            {    
            Write24c02(sp,i*8,8);    
            sp+=8;    
            }    
        ms=0;    
        TR0=1;    
    break;    
    case 8:    
    
    break;    
    default:break;    
    }    
}    
void send_char(unsigned char ascii)    
/*往串口發送一個字符  */    
{    
SBUF=ascii;    
while(!TI);TI=0;    
}    
    
void send_string(unsigned char code *string)    
/*往串口發送一個字符串，字符串為存儲在程序空間，碰到0x00結束 */    
{    
TB8=1;    
while(*string!=0)    
    {    
    send_char(*string);    
    string++;    
    }    
TB8=0;    
}    
//***************************    
void delay(uchar sec)    
{    
uint    i;    
while(sec)    
    {for(i=0;i<50000;i++);sec--;}    
}    
//****************************    
void    SoftRST(void)    
{    
Device_Ctrl=0x0c;    
Device_Ctrl=0x08;    
delay(10); //delay 0.5s    
}    
//*********************************    
bit Busy(void)    
{    
send_string("\r\Busy");    
while(Status&amt;0x80);    
if(Status&amt;0x01)    
    {send_string("\r\Busy_ERR");return(0);}    
else    
    {send_string("\r\Busy_OK");return(1);}    
}    
//**********************************    
bit Wait_Ready(void)    
{    
send_string("\r\Wait_Ready");    
while((Status&amt;0xf0)!=0x50);    
send_string("\r\Wait_Ready_OK");    
return(1);    
}    
//**********************************    
bit Wait_Drq(void)    
{    
send_string("\r\Wait_Drq");    
while((Status&amt;0xf8)!=0x58);    
send_string("\r\Wait_Drq OK");    
return(1);    
    
}    
    
//********************************    
void    Enable8bit(void)    
{    
Busy();    
Features=0x01;    
Drv_Head=Select;    
Command=0xef;    
}    
//*********************    
void    SetupCard(void)    
{    
Select=0xe0;    
Socket=0;    
Enable8bit();    
}    
//****************************    
//Set up sector count ,lba addresses command code    
//****************************    
void    Function(void)    
{    
send_string("\r\Function");    
Busy();    
Sectr_Cnt=LBA[0];    
Sectr_No=LBA[1];    
Cylinder_Low=LBA[2];    
Cylinder_Hi=LBA[3];    
Drv_Head=LBA[4];    
Command=LBA[5];    
}    
//*********************************    
void    Read512(uchar xdata *RamBuf)    
{    
uint    i;    
for(i=0;i<256;i++)    
    {*RamBuf++=EVEN_Data;    
    *RamBuf++=ODD_Data;}    
}    
//*********************************    
void    Write512(uchar xdata *RamBuf)    
{    
uint    i;    
for(i=0;i<256;i++)    
    {EVEN_Data=*RamBuf++;    
    ODD_Data=*RamBuf++;}    
}    
//***********************************    
void    Read_Sctr(uchar lba0,lba1,lba2,lba3)    
{    
    
Wait_Ready();    
LBA[0]=1;    
LBA[1]=lba3;    
LBA[2]=lba2;    
LBA[3]=lba1;    
LBA[4]=0xe0|(lba0&amt;0x0f);    
LBA[5]=ReadSctr;    
Function();    
Wait_Drq();    
Read512(0x0000);    
}    
//***********************************    
void    Read_Identify(void)    
{    
    
Wait_Ready();    
LBA[0]=1;    
LBA[1]=0;    
LBA[2]=0;    
LBA[3]=0;    
LBA[4]=0xe0;    
LBA[5]=Identify;    
Function();    
Wait_Drq();    
Read512(0x0000);    
}    
    
//***********************************    
void    Write_Sctr(void)    
{    
Wait_Ready();    
LBA[0]=1;    
LBA[1]=0x0a;    
LBA[2]=0;    
LBA[3]=0;    
LBA[4]=0xe0;    
LBA[5]=WriteSctr;    
Function();    
Wait_Drq();    
Write512(0x0000);    
}    
//**************************    
void    Send512(void)    
{    
uint    i;    
uchar xdata *p;    
p=0;    
TB8=1;    
for(i=0;i<512;i++)    
    {SBUF=*p++;while(!TI);TI=0;}    
TB8=0;    
}    
    
//********************************************    
//                   主程序    
//********************************************    
void main()    
{    
uchar *p;    
uint    l;    
//uchar i,play; //播放列表計數    
//uint  rplay;  //重復次數    
PS=1;    
ES=0;    
SM0=1;    
SM1=1;    
T2CON=0X30;    
RCAP2H=0XFF;    
TH2=0XFF;    
RCAP2L=0Xfb;    //9600bps= c4  115200bps =fb 57600= f6 19200 = e2    
TL2=0Xfb;    
TR2=1;    
    
REN=1;    
TMOD=0x05;  //定時器0 模式1 外部時鐘    
//TMOD=0x01;    //定時器0 模式1 外部時鐘    
TL0=V_TL0;    
TH0=V_TH0;    
//TR0=1;    
ET0=1;    
//ES=1;    
TI=0;    
EA=1;    
SM2=1;    
PMR=PMR|0x01;   //enable on-chip RAM    
ADD=(~P1)&amt;0x1f;    
p=&amt;iic_buf[0];    
Read24c02(p,0,96);    
//ADD=1;    
frameok=0;    
bufp=0x1000;    //接收緩沖區指針    
send_string("\r\CF card contr 2004-10-29");    
Send512();    
SoftRST();    
SetupCard();    
Write_Sctr();    
for(l=4096;l<51200;l++)    
    {Read_Sctr(0,0,l/256,l>256);    
     Send512();    
     }    
while(1)    
    {    
    wdgclr=!wdgclr;    
    if(frameok)    
        {receive();frameok=0;}    
    }//while(1)    
}    
//*****************************************    
//          串口中斷服務程序    
//*****************************************    
void send(void) interrupt  4    
{    
uchar d;    
if(!TI &amt;&amt; RI &amt;&amt; !frameok)    
{RI=0;    
d=SBUF;    
    if(pointer==0)    
        {if(d==ADD)    
            {subchk=d;*bufp++=d;TB8=1;senden=1;    
            SBUF=d;while(!TI);TI=0;    
            senden=0;SM2=0;TB8=0;pointer++;    
            }    
    
        }    
    else    
        {if(pointer==4104)    
            {    
            if(d==subchk)    
                {senden=1;SBUF=subchk;while(!TI);senden=0;TI=0;frameok=1;}    
            else    
                {senden=1;SBUF=~subchk;while(!TI);TI=0;senden=0;}    
            SM2=1;pointer=0;    
            bufp=0x1000;    
            }    
        else    
            {    
            *bufp++=d;subchk+=d;pointer++;    
            }    
        }    
  }//end if    
}    
//*************************************    
void timer1() interrupt  1    
{TL0=V_TL0;    
TH0=V_TH0;    
ms++;    
if(ms>zhepe)    
    {timout=1;    
    ms=0;    
    }    
}