' **********************************************************************
' ** Programma: PPOCN3AV.BAS   -  Versione :   1.3 - 30 Gennaio 2001  **
' ** Compilatore : BASCOM AVR, (IDE V.1.11.4.0, LIB 1.11.4.0)         **
' ** Scheda : K51-AVR                                                 **
' ** Ditta:   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    **
' **                                                                  **
' ** Realizzato da:  Graziano GAIBA                                   **
' **********************************************************************
'
' Questo programma attiva in sequenza le 16 linee TTL disponibili sul
' connettore CN3.
'
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile = "8515def.dat"
$romstart = &H0                                   ' indirizzo di partenza del codice
$crystal = 5529600                                ' frequenza di clock del micro
$baud = 19200
Config Debounce = 50                              ' tempo di attesa per convalidare
                                          ' avvenuta pressione di un tasto
                                           ' Es: 10= 10ms, 50= 50ms
'
'****************** Dichiarazione delle variabili **********************
'
Dim Pout As Byte                                  ' valore per le linee di uscita
Dim X As Byte                                     ' uso generico
Dim Valore As Byte , Valore1 As Byte              ' valore di conteggio
'
' *********************** Elenco PIN per AT90s8515 *********************
'
Config Porta = Output
Config Portc = Output

'
'************************* Programma main ******************************
'
Main:                                             ' Ritardo Assestamento segnali
Waitms 1
Do
   Valore = 1                                     ' valore di partenza
   Valore1 = 128
   For X = 1 To 7                                 ' inizializzo il ciclo
      Pout = Not Valore                           ' complemento in valore
      Porta = Pout
      Pout = Not Valore1                          ' complemento in valore
      Portc = Pout
      Valore = Valore * 2                         ' shift dei bit a sinistra
      Valore1 = Valore1 / 2                       ' shift dei bit a sinistra
      Waitms 255                                  ' ritardo
   Next X
   For X = 1 To 7                                 ' inizializzo il ciclo
      Pout = Not Valore                           ' complemento in valore
      Porta = Pout
      Pout = Not Valore1                          ' complemento in valore
      Portc = Pout
      Valore = Valore / 2                         ' shift dei bit a destra
      Valore1 = Valore1 * 2                       ' shift dei bit a sinistra
      Waitms 255                                  ' ritardo
   Next X
Loop
End
'
'************************ Fine del programma ***************************
'