OpenCores
URL https://opencores.org/ocsvn/8051/8051/trunk

Subversion Repositories 8051

[/] [8051/] [tags/] [rel0/] [asm/] [fib.c] - Rev 186

Compare with Previous | Blame | View Log

/*
 * Copyright (c) 1999-2001 Tony Givargis.  Permission to copy is granted
 * provided that this header remains intact.  This software is provided
 * with no warranties.
 *
 * Version : 2.9
 */
 
/*---------------------------------------------------------------------------*/
 
#include <reg51.h>
 
/*---------------------------------------------------------------------------*/
 
void fib(unsigned char* buf, unsigned char n) {
 
    char i;
 
    buf[0] = 1;
    buf[1] = 1;
    for(i=2; i<n; i++) {
 
        buf[i] = buf[i-1] + buf[i-2];
    }
}
 
/*---------------------------------------------------------------------------*/
 
void print(unsigned char* buf, unsigned char n) {
 
    char i;
 
    for(i=0; i<n; i++) {
 
        P0 = buf[i];
    }
}
 
/*---------------------------------------------------------------------------*/
 
void main() {
 
    unsigned char buf[10];
 
    fib(buf, 10);
    print(buf, 10);
    while(1);
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.