//****************************************************************************************
//   Project      :
//   Program Name :
//   Programer    :
//   Create date  :
//   History      :
//   Launguage    :
//   Version      :
//****************************************************************************************
//   Description
//
//****************************************************************************************

#include "string.h"
#include "iostm8s.h"

void timer(unsigned int);
void M0puls(void);
void M1puls(void);
void M_hyp(unsigned int);
void M_dot(unsigned int);
void M_spe(unsigned int);
void M_end(unsigned int);
void M_out(char);
void M_outs(char *);
void Mintim(void);
void wat(void);

void main(void)
{
// *******************************
//  1.Initialize
// *******************************
//  (1)Data Direction
    PD_DDR = 0b000000001;

//  (2)Init Data 
    PD_ODR = 0b000000001;

// *******************************
//  2.Program main
// *******************************
    while(1){
        M_outs("ABCDEFGHIJKLMNOPQRSTUVWXYZ   ");
        M_outs("1234567890   ");
    }
}
//****************************************************************************
//   Function Name : M_outs
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_outs(char in_char[] )
{
unsigned int lp=0;
    while(in_char[lp]!=0x00){
        M_out(in_char[lp]);
        lp++;
    }
}
//****************************************************************************
//   Function Name : M_out
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_out(char in_char )
{
char m_data[15];
unsigned int lp;
unsigned int Speed=10;
//unsigned int Speed=100;

// ********************
//  1.Set data
// ********************
    if(in_char==' ') strcpy(m_data," ");
    if(in_char=='A') strcpy(m_data,"0-");
    if(in_char=='B') strcpy(m_data,"-000");
    if(in_char=='C') strcpy(m_data,"-0-0");
    if(in_char=='D') strcpy(m_data,"-00");
    if(in_char=='E') strcpy(m_data,"0");
    if(in_char=='F') strcpy(m_data,"00-0");
    if(in_char=='G') strcpy(m_data,"--0");
    if(in_char=='H') strcpy(m_data,"0000");
    if(in_char=='I') strcpy(m_data,"00");
    if(in_char=='J') strcpy(m_data,"0---");
    if(in_char=='K') strcpy(m_data,"-0-");
    if(in_char=='L') strcpy(m_data,"0-00");
    if(in_char=='M') strcpy(m_data,"--");
    if(in_char=='N') strcpy(m_data,"-0");
    if(in_char=='O') strcpy(m_data,"---");
    if(in_char=='P') strcpy(m_data,"0--0");
    if(in_char=='Q') strcpy(m_data,"--0-");
    if(in_char=='R') strcpy(m_data,"0-0");
    if(in_char=='S') strcpy(m_data,"000");
    if(in_char=='T') strcpy(m_data,"-");
    if(in_char=='U') strcpy(m_data,"00-");
    if(in_char=='V') strcpy(m_data,"000-");
    if(in_char=='W') strcpy(m_data,"0--");
    if(in_char=='X') strcpy(m_data,"-00-");
    if(in_char=='Y') strcpy(m_data,"-0--");
    if(in_char=='Z') strcpy(m_data,"--00");
    if(in_char=='0') strcpy(m_data,"-----");
    if(in_char=='1') strcpy(m_data,"0----");
    if(in_char=='2') strcpy(m_data,"00---");
    if(in_char=='3') strcpy(m_data,"000--");
    if(in_char=='4') strcpy(m_data,"0000-");
    if(in_char=='5') strcpy(m_data,"00000");
    if(in_char=='6') strcpy(m_data,"-0000");
    if(in_char=='7') strcpy(m_data,"--000");
    if(in_char=='8') strcpy(m_data,"---00");
    if(in_char=='9') strcpy(m_data,"----0");

// ********************
//  2.Output
// ********************
    for(lp=0;lp<15;lp++){
        switch(m_data[lp]){
            case '0':
                M_dot(Speed);
                M_spe(Speed);
                break;
            case '-':
                M_hyp(Speed);
                M_spe(Speed);
                break;
            case ' ':
                M_end(Speed);
                break;
            default:
                M_end(Speed);         
                return;
        }
    }
       
}
//****************************************************************************
//   Function Name : M_hyp
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_hyp(unsigned int len )
{
unsigned int lp;
    len=len*3;
    for(lp=0;lp<len;lp++)
        M1puls();
}
//****************************************************************************
//   Function Name : M_dot
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_dot(unsigned int len )
{
unsigned int lp;
    for(lp=0;lp<len;lp++)
        M1puls();
}
//****************************************************************************
//   Function Name : M_spe
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_spe(unsigned int len )
{
unsigned int lp;
    for(lp=0;lp<len;lp++)
        M0puls();
}
//****************************************************************************
//   Function Name : M_end
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M_end(unsigned int len )
{
unsigned int lp;
    len=len*7;
    for(lp=0;lp<len;lp++)
        M0puls();
}
//****************************************************************************
//   Function Name : M0plus
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M0puls()
{
    PD_ODR=0x01;
    Mintim();
    Mintim();
}

//****************************************************************************
//   Function Name : M1plus
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void M1puls()
{
    PD_ODR=0x00;
    Mintim();
    Mintim();
    PD_ODR=0x01;
}

//****************************************************************************
//   Function Name : Mintim
//   Title         : 
//   Input         : 
//   Output        : 
//   Description   : 
//****************************************************************************
void Mintim()
{
unsigned int lp,lp1;
    for(lp=0;lp<10;lp++)
        for(lp1=0;lp1<100;lp1++){};
}