' **********************************************************************
' ** Programma: PPOCN351.BAS   -  Versione :   1.1 -  19 Maggio 2000  **
' ** Compilatore : BASCOM LT Demo, (IDE V.1.21, LIB V.1.28)           **
' ** 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:  Adriano Pedrielli                                **
' **********************************************************************
'
' Questo programma attiva in sequenza le 16 linee TTL disponibili sul
' connettore CN3.
'
' Prima di compilare selezionare nel menu Option/Compiler/Misc/ :
' Byte End 5F;  Register File 8052.DAT
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$romstart = &H0                           ' indirizzo di partenza del codice
$crystal = 11059200                       ' frequenza di clock del micro
'
'****************** 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
'
'************************* 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
      P0 = Pout
      Pout = Not Valore1                  ' complemento in valore
      P2 = 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
      P0 = Pout
      Pout = Not Valore1                  ' complemento in valore
      P2 = 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 ***************************
'