' **********************************************************************
' ** Programma: S1DEB2.BAS -  Versione : 1.1   -   01  Giugno  1999   **
' ** Compilatore : BASCOM LT, (IDE V.1.20, LIB V.1.27)                **
' ** Scheda : GPC(r) 553                                              **
' ** 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 riporta sullo schermo dell'emulatore di terminale
' lo stato, in forma binaria, dei port 4 e 1 della scheda GPC(r) 553.
' Per facilitare la visualizzazione dello stato delle linee è necessario
' collegare con un cavo flat a 20 poli, il connettore CN5 della GPC(r) 553
' 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 variabili **********************
'
Dim Port As Byte                   ' Memorizza lo stato dei port
Dim V8bit As Byte , C8bit As Byte  ' Variabili per usi generici
Dim R8bit As Byte                  ' Variabile per usi generici
'
'****************** Dichiarazione delle procedure ***********************
'
Declare Sub Stampabits(v8bit As Byte)' Stampa i bits del parametro in
                                     ' ingresso nel formato 1/0 (non va a capo)

Waitms 1                           ' Ritardo per assestamento dei segnali
'
'************************* Programma main ******************************
'
Print "    Programma dimostrativo 2 per la sezione 1 della scheda DEB(r) 01"
Print : Print "    Riporta sul monitor del PC lo stato di entrambi i port."
Print : Print "    Esecuzione in corso..."
Print
Print "Port 4      Port 1"         ' Stampa la maschera
Do

   Call Stampabits(p4)             ' Stampa il valore di port 4 come bits
   Print "    " ;
   Call Stampabits(p1)             ' Stampa il valore di port 1 come bits
   Print Chr(13) ;                 ' Va a capo
   Waitms 250                      ' Ritardo per stampare 4 volte al secondo

Loop

End
'
'************************ Fine del programma ***************************
'
'
'**************************** Procedure ********************************
'
' Procedura che stampa il suo parametro di 8 bits come una successione
' di stringhe 1/0 a seconda dei valori dei bits del parametro. Terminata
' la stampa non va a capo.
' Parametri in ingresso:
' V8bit			byte			Il valore da stampare come bits
' Parametri in uscita:
' Nessuno
Sub Stampabits(v8bit As Byte)
For C8bit = 1 To 8
   R8bit = V8bit And &H80          ' Legge il bit più significativo di V8bit
   If R8bit = 0 Then               ' Se il pulsante è premuto
      Print "0" ;                  ' stampa 0
   Else                            ' altrimenti
      Print "1" ;                  ' stampa 1
   End If                          ' poichè i pulsanti sono in logica negata
   Rotate V8bit , Left             ' Sposta il bit succesivo di V8bit nel suo
                                   ' bit più significativo
Next C8bit                         ' Ripete per 8 volte
End Sub