Subversion Repositories mips789

/****************************************************************** 
 *                                                                * 
 *    Author: Liwei                                               * 
 *                                                                * 
 *    This file is part of the "mips789" project.                 * 
 *    Downloaded from:                                            * 
 *    http://www.opencores.org/pdownloads.cgi/list/mips789        * 
 *                                                                * 
 *    If you encountered any problem, please contact me via       * 
 *    Email:mcupro@opencores.org  or mcupro@163.com               * 
 *                                                                * 
 ******************************************************************/
 
 
 
#include "..\..\clib\dvc_lib.h"
 
void print_num(unsigned long num)
{
    unsigned long digit,offset ;
    for(offset=1000;offset;offset/=10)
    {
        digit=num/offset ;
        uart0_putc('0'+digit);
        num-=digit*offset ;
    }
}
 
long a=10000,b=0,c=56,d=0,e=0,f[57]={0},g=0 ;
 
void cal_PI(void)
{
    uart0_putstr("\nPI = ");
    a=10000 ;
    b=0 ;
    c=56 ;
    d=0 ;
    e=0 ;
    g=0 ;
    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);
    uart0_putc('\n');
}
 
main2()
{      
 
while(1)
{
    uart0_putstr("Hello CPU World ,this is  MIPS789...");
cal_PI();
}
 
}