/*
 **********************************************************************
 ** Program: ppocn35e.c   -   Version : 1.4   -   01 October 2003    **
 ** Compiler: uC/51 Ver. 1.10.10                                     **
 ** Board: K51-AVR and 89c51 or compatible                           **
 ** Firm:   grifo(r) ITALIAN TECHNOLOGY                              **
 ** Via Dell' Artigiano 8/6          40016 San Giorgio di Piano (BO) **
 ** Tel.+39 051 892 052     Fax +39 051 893 661                      **
 ** http://www.grifo.com    http://www.grifo.it                      **
 ** sales@grifo.it          tech@grifo.it          grifo@grifo.it    **
 **                                                                  **
 ** Written by:  Graziano Gaiba                                      **
 **********************************************************************

 This program turns on in sequence the 16 TTL lines available on
 connector CN3.
 Versione for micro ATMEL AT89c51 or compatible.



 05.06.2000 by Adriano Pedrielli 
 (original version in BASCOM 8051)


 01.10.2003 by Graziano Gaiba 

 Translation in uC/51 for ATMEL AT89c51 or compatible.
*/

#include <reg52.h>


void ritardo(unsigned int rit)
/* Performs a software delay of rit milliseconds, calibrated on a CPU Clock
   11059200 Hz.                     */
{
unsigned int r,rit1ms;
  rit1ms=150;	      // Sperimental value for delay of 1 msec. with 80c32
  do
    {
    for (r=0 ; r<rit1ms ; r++);
    rit--;
    }
  while (rit>0);
}


void main(void)
{
  unsigned int d;

  ritardo(2);

  while(1)                      // Infinite Loop
  {
    d=0x0001;
    while(d)
    {
      P0=~(d & 0x00FF);
      P2=~(d>>8);
      ritardo(500);
      d<<=1;
    }

    d=0x8000;
    while(d)
    {
      P0=~(d & 0x00FF);
      P2=~(d>>8);
      ritardo(500);
      d>>=1;
    }
  }
}