Subversion Repositories yacc

/*Calculate the value of PI.  Takes a long time!*/

void putchar(char);

#define print_port 0x3ff0

#define print_char_port 0x3ff1

#define print_int_port 0x3ff2

#define print_long_port 0x3ff4

#define uart_port               0x03ffc //for 16KRAM

#define uart_wport uart_port

#define uart_rport uart_port

#define int_set_address 0x03ff8 //for 16KRAM

void print_uart(unsigned char* ptr)// 

{

        unsigned int uport;

        #define WRITE_BUSY 0x0100

        while (*ptr) {

                do {

                  uport=*(volatile unsigned*)   uart_port;

                } while (uport & WRITE_BUSY);

                *(volatile unsigned char*)uart_wport=*(ptr++);

        }

}

void putc_uart(unsigned char c)// 

{

        unsigned int uport;

        do {

                  uport=*(volatile unsigned*)   uart_port;

        } while (uport & WRITE_BUSY);

        *(volatile unsigned char*)uart_wport=c;

}

void print(unsigned char* ptr)//Verilog Test Bench Use 

{

        while (*ptr) {

                *(volatile unsigned char*)print_port=*(ptr++);

        }

        *(volatile unsigned char*)print_port=0x00;//Write Done

}

void print_char(unsigned char val)//Little Endian write out 16bit number 

{

        *(volatile unsigned char*)print_port=(unsigned char)val ;

}

void print_num(unsigned long num)

{

   unsigned long digit,offset;

   for(offset=1000;offset;offset/=10) {

      digit=num/offset;

      #ifdef RTL_SIM

        print_char(digit+'0');

      #else

        putc_uart(digit+'0');

      #endif

      num-=digit*offset;

   }

}

long a=10000,b,c=56,d,e,f[57],g;

//long a=10000,b,c=2800,d,e,f[2801],g;

void main()

{

#ifdef RTL_SIM

        print("Calculating pi, it may take some minutes.\n");

#endif

for(;b-c;)f[b++]=a/5;for(;d=0,g=c*2;c-=14,print_num(e+d/a),e=d%a)for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);

   print_char('\n');

   print("");

#ifdef RTL_SIM

        print("$finish");

#endif

}