' **********************************************************************
' ** Programma: S1DEB6.BAS -  Versione : 1.0   -   02  Giugno  1999   **
' ** Compilatore : BASCOM LT, (IDE V.1.20, LIB V.1.27)                **
' ** Scheda : GPC(r) 552                                              **
' ** 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 fa scorrere l'accensione di un LED in una sola direzione
' dal banco dei LEDs rossi verso l'altro banco.
' Per facilitare la visualizzazione dello stato delle linee è necessario
' collegare con un cavo flat a 20 poli, il connettore CN6 della GPC(r) 552
' al connettore CN15 della DEB 01.
'
'****************** Direttive del compilatore **************************
'
$romstart = &H8050                 ' indirizzo di partenza del codice macchina
$ramstart = &HD000                 ' indirizzo di partenza della area dati
$ramsize = &H2800                  ' pongo a 10K la area dati
$crystal = 22118400                ' frequenza di clock del microcontrollore
$baud = 19200                      ' velocità di comunicazione RS-232
$large                             ' indirizzamento a 16 bit
'
'****************** Dichiarazione delle costanti ***********************
'
Dim Pda As Const &HFFF8            ' registro dati del portA
Dim Pdb As Const &HFFF9            ' registro dati del portB
Dim Pdc As Const &HFFFA            ' registro dati del portC
Dim Cnt As Const &HFFFB            ' registro di controllo
'
'****************** Dichiarazione delle variabili **********************
'
Dim Shifter As Byte                ' Varibile che fa scorrere i led
Dim Porta As Bit                   ' Se 1 scorrono i led di port A , altrimenti
                                   ' Scorrono i led di port C
Waitms 1                           ' Ritardo per assestamento dei segnali

Out Cnt , &B10000010               ' Configura in ingresso port B e C
                                   ' In uscita port A
Porta = 1                          ' Inizia a far scorrere i led di port A
'
'************************* Programma main ******************************
'
Print "    Programma dimostrativo 6 per la sezione 1 della scheda DEB(r) 01"
Print : Print "    Fa scorrere l'accensione di un LED in una sola direzione."
Print : Print "    Esecuzione in corso..."
Do
   Shifter = 1                     ' Inizia a scorrere da destra
   While Shifter <> 0
      Shifter = Not Shifter        ' I led funzionano in logica negata
      If Porta = 1 Then            ' Se è indicata port A
          Out Pda , Shifter        ' Impone lo stato dei led a port A
          Out Pdc , 255
      Else                         ' Altrimenti 
          Out Pda , 255
          Out Pdc , Shifter        ' Lo impone a port C
      End If
      Shifter = Not Shifter        ' Ripristina per la rotazione
      Rotate Shifter , Left        ' Salto al led successivo
      Waitms 255                   ' Attesa per fare pochi salti al secondo
   Wend
   Porta = Not Porta               ' Passa da port C a port A o viceversa
Loop

End
'
'************************ Fine del programma ***************************
'