/* 
 **********************************************************************
 * File  demo_ppi.C       -        Rel. 1.1  con  uC/51 V. 1.10.10    *
 * GRIFO(R)   via Dell'Artigiano 8/6   40016 S. Giorgio di Piano (BO) *
 * Schede: GPC F2 d.s. 130688 e DEB01 o TIO16                         *
 *     Tel. +39 051 892052                      Fax. +39 051 893661   *
 *     http://www.grifo.com                     http://www.grifo.it   *
 *     sales@grifo.it         tech@grifo.it          grifo@grifo.it   *
 *     by Graziano Gaiba                               del 29.09.03   *
 **********************************************************************

  Rel. 1.1 - 29.09.2003 by Graziano Gaiba

 Con un flat da 20 vie si collega il CN2 della GPC F2 al CN15 della DEB01
 o al CN1 della TIO16.

 Questo programma permette di gestire le linee digitali TTL per un
 totale di 24, della periferica PPI 82c55, contemporaneamente avviene
 una segnalazione acustica durante il pilotaggio delle uscite.
*/

#include <reg52.h>
#include <stdio.h>
#include <ctype.h>

// Frequenza di clock della CPU usata
#define FCLOCK              11059200

#define FALSE 0x00					   // Valori booleani
#define TRUE 0xFF


// Indirizzi allocazione registri delle periferiche di bordo.
static unsigned char  	    PORTA   @ 0xFA00,
			    PORTB   @ 0xFA01,
			    PORTC   @ 0xFA02,
			    CNT     @ 0xFA03;

	
// Variabili usate dal programma
near unsigned char	dallas;


/********* Funzioni di utility generale e di gestione sezioni hw ***********/
void iniser(unsigned long baud)
/* Inizializza la linea seriale con:	Bit x chr   = 8
					Stop bit    = 1
					Parity	    = None
					Baud rate   = baud
   usando come baud rate generator il timer 1.				   */
{
  SCON=0x052;					// Modo 1, abilita ricevitore
  TMOD&=0x00F;				       // Timer 1 in modo auto-reload
  TMOD|=0x020;
  TR1=0;						   // Stop al TIMER 1
  TH1=256-((2*FCLOCK)/(384*baud));			// baud a 14.7456 MHz
  PCON=PCON|0x080;			   // Setta SMOD=1 per baud rate alti
  TR1=1;						  // Start al TIMER 1
}


// Attesa di assestamento dei segnali
void setup(void)
{
  unsigned int i;

  for(i=10000; i!=0; i--)
    ;
}


// Inizializza l'82c55 con il valore passato nel parametro
void init8255(unsigned char c)
{
  CNT=c;
}


// Imposta il valore del port A dell'82c55
void setPortA(unsigned char v)
{
  PORTA=v;
}


// Imposta il valore del port B dell'82c55
void setPortB(unsigned char v)
{
  PORTB=v;
}


// Imposta il valore del port C dell'82c55
void setPortC(unsigned char v)
{
  PORTC=v;
}


// Legge il valore del port A dell'82c55
unsigned char getPortA(void)
{
  return PORTA;
}


// Legge il valore del port B dell'82c55
unsigned char getPortB(void)
{
  return PORTB;
}


// Legge il valore del port C dell'82c55
unsigned char getPortC(void)
{
  return PORTC;
}


// Legge il valore del Dip Switch DSW1
unsigned char getDSW1(void)
{
  return PORTB;
}


void ritardo(unsigned int rit)
/* Effettua un ritardo software di rit millisecondi, calibrato su un Clock
   di CPU da 22.1184 MHz, a seconda della CPU montata.                     */
{
unsigned int r;

  do
  {
    for (r=0 ; r<150 ; r++);
    rit--;
  }
  while (rit>0);
}


// Emette un suono ed effettua un ritardo totale di circa un secondo
void ritardo_bip(void)

{
  unsigned int i;

  // Suono di frequenza circa 500 Hz della durata di circa 300 msec
  for(i=0; i<150; i++)
  {
    P1_B2=0;	// Attiva il buzzer
    ritardo(1);
    P1_B2=1;    // Disattiva il buzzer
    ritardo(1);
  }

  ritardo(700);
}



// ************************** Programma principale ***************************

void main(void)
{
  unsigned char c;

  setup();                         // Attesa di assestamento dei segnali

  iniser(9600);
  TI=0;
  RI=0;

  // Commentare se si usa la seriale in polling (SIOTYPE=p oppure k)
  ES=1;                                 // Abilita interrupt porta seriale
  EA=1;					// Abilitazione interrupt

// Inizializzazione del PPI 8255.
  init8255(0x82);	        // PORT A e C in OUTPUT, PORT B in INPUT.

  puts("********************* Demo PPI  **********************");
  puts("");
  puts("Il demo pilota l'accensione delle linee dei Port A e C presenti sul connettore");
  puts("CN3 e mostra continuamente il valore del Port B, presente sullo zoccolo DIP1.\n");

  for (;;)		           // Loop infinito.
  {
    // Scorrimento da LED rossi a LED verdi e gialli
    c=1;
    setPortC(0xff);                // Pulisce Port C
    while(c)
    {
      setPortA(~c);
      c<<=1;
      // Ritardo per rendere visibile il movimento del LED
      ritardo_bip();
      printf("%X\r", getPortB());
    }
    c=1;
    setPortA(0xff);                // Pulisce Port A
    while(c)
    {
      setPortC(~c);
      c<<=1;
      // Ritardo per rendere visibile il movimento del LED
      ritardo_bip();
      printf("%X\r", getPortB());
    }


    // Scorrimento da LED verdi e gialli a LED rossi
    c=0x80;
    setPortA(0xff);                // Pulisce Port A
    while(c)
    {
      setPortC(~c);
      c>>=1;
      // Ritardo per rendere visibile il movimento del LED
      ritardo_bip();
      printf("%X\r", getPortB());
    }
    c=0x80;
    setPortC(0xff);                // Pulisce Port A
    while(c)
    {
      setPortA(~c);
      c>>=1;
      // Ritardo per rendere visibile il movimento del LED
      ritardo_bip();
      printf("%X\r", getPortB());
    }
  }			  			  	 
}