//----------------------------------------------------------------------------
// Demo SX01-SX13
// Note        : Per utilizzare questo firmware occorre collegare la scheda
//               SX01 (connettore BITWISE I/O) con la scheda SX13 tramite un 
//               cavo piatto a 10 poli. La scheda dimmer deve montare il firmware
//               SX13A, dotato di controllo seriale
//-----------------------------------------------------------------------------


#define BINBUFSIZE   255
#define BOUTBUFSIZE  255


#define SET_ADDRESS 0x53  //Comando S. Impostazione indirizzo
#define SET_DIMMER  0x4C  //Comando L. Impostazione dimmer

// Prototipi funzioni
void SendDimCommand(char, char, char);
void msDelay(unsigned int );


//-----------------------------------------------------------------
// Genera un ritardo
// Riceve       : numero di ms da ritardare
// Restituisce  : -
//-----------------------------------------------------------------
nodebug
void msDelay(unsigned int ams)
{
  auto unsigned long t0;
  for(t0=MS_TIMER; MS_TIMER<ams+t0;); 
}



//-----------------------------------------------------------------
// Invia un comando alla scheda SX13
// Riceve       : cmd - comando da inviare
//                address - indirizzo di destinazione
//                dato - Dato del comando
// Restituisce  : -
//-----------------------------------------------------------------
void SendDimCommand(char cmd, char address, char dato) {
 
    printf ("Invio del comando [%c] in corso...\n",cmd);    
    serBputc(cmd);
    
    printf("Invio dell'indirizzo [%d] in corso...\n",address);
    serBputc(address);
    
    printf("Invio del dato [%d] in corso...\n",dato);
    serBputc(dato);
    
    // Invia il raddoppio del dato
    serBputc(dato);
  
  
}

// -----------------------------------
// Loop Principale
// -----------------------------------
main () {
  
  int val,i;
  char ch,addr,data;
  char	st[256];
  
  // Imposta la porta D4 come seriale
  WrPortI(PDFR, &PDFRShadow, 0x10);
  // Imposta il pullup  sulla porta D 
  WrPortI(PDDCR, &PDDCRShadow, 0x0);
  // Imposta la porta PD4 come output 
  BitWrPortI(PDDDR, &PDDDRShadow, 1,4);

  // Apertura della porta seriale con parametri 4800,N,8,1
  serBopen(4800);
  
  data=0;
  addr=1;
  
  while (1) {
  
    printf ("Funzione desiderata: 1 - Invio comandi diretto, 2 - Generazione Rampa (premere il numero desiderato + Invio)\n");
    gets(st);      
    val=atoi(st);
    ch=0;
    
    switch (val) {
      
    case 1:
    
      while (ch!=0x71) {
          
        printf ("Comando da inviare 1 - SET ADDRESS, 2 - SET DIMMER (premere il numero desiderato + Invio)\n");
        gets(st);
      
        val=atoi(st);
        
        switch (val) {
        
        case 1:
          
          printf (" ---> Comando scelto: Impostazione Indirizzo\n");
          
          printf ("Inserisci l'indirizzo di destinazione del comando (in decimale + Invio)\n");
          gets(st);      
          val=atoi(st);
          val &= 0xFF;
          
          addr=(char)val;      
          
          printf ("Inserisci il nuovo indirizzo da impostare (in decimale + Invio)\n");
          gets(st);
          val=atoi(st);
          val &= 0xFF;
          
          data=(char)val;
        
          SendDimCommand(SET_ADDRESS,addr,data);
          
          break;
              
        case 2:
        
          printf (" ---> Comando scelto: Impostazione Livello Dimmer\n");
        
          printf ("Inserisci l'indirizzo di destinazione  del comando (in decimale + Invio)\n");
          gets(st);      
          val=atoi(st);
          val &= 0xFF;
          
          addr=(char)val;      
          
          printf ("Inserisci il valore di luminosità (in decimale + Invio)\n");
          gets(st);
          val=atoi(st);
          val &= 0xFF;
          
          data=(char)val;
        
          SendDimCommand(SET_DIMMER,addr,data);
        
          break;
        
        default:
          printf ("Comando Sconosciuto\n");
          break;  
          
        }      
       
        printf ("Premere 'q' per terminare. Qualsiasi altro carattere per continuare\n");
        ch=getchar(); 
        
      } 
    
      break;  
  
    case 2:
  
      while (ch!=0x71) {
        
        // Rampa
        addr=0xFF;
        for (i=0;i<=255;i++) {
          
          data=(char)i;
          
          SendDimCommand(SET_DIMMER,addr,data);
          
          msDelay(50);
          
        }
    
        for (i=255;i>=0;i--) {
          
          data=(char)i;
          SendDimCommand(SET_DIMMER,addr,data);
          msDelay(50);
          
        }
        
        
        printf ("Premere 'q' per terminare. Qualsiasi altro carattere per continuare\n");
        ch=getchar();
        
      }
    
      break;  
  
    default:
    
      break;  
      
    }
  
  
  }

}