' **********************************************************************
' ** Programma: S1DEB5.BAS -  Versione : 1.0   -   10  Maggio  1999   **
' ** Compilatore : BASCOM LT, (IDE V.1.20, LIB V.1.27)                **
' ** Scheda : GPC(r) 323                                              **
' ** 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 scrive sul port A il valore del port C se lo switch 1
' del dip switch della GPC(r) 323 è OFF, il valore negato del port C
' in caso contrario.
' Per facilitare la visualizzazione dello stato delle linee è necessario
' collegare con un cavo flat a 20 poli, il connettore CN7 della GPC(r) 323
' 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 &HFFFC            ' registro dati del portA
Dim Pdb As Const &HFFFD            ' registro dati del portB
Dim Pdc As Const &HFFFE            ' registro dati del portC
Dim Cnt As Const &HFFFF            ' registro di controllo
Dim Dsw1 As Const &HFFF9           ' mappatura del dip switch
'
'****************** Dichiarazione delle variabili **********************

Dim Dummy As Byte                  ' Variabile di uso generale
Dim Dip1 As Byte                   ' Memorizza lo stato del dip 1
'
'************************* Programma main ******************************
'
Waitms 1                           ' Ritardo per assestamento dei segnali

Print "    Programma dimostrativo 5 per la sezione 1 della scheda DEB(r) 01"
Print : Print "    Riporta sul port 0 lo stato del port 1 se lo switch 1 e' ON, altrimenti"
Print "    riporta sul port 0 lo stato del port 1 negato."
Print : Print "    Esecuzione in corso..."
Out Cnt , &B10001011               ' Configura in ingresso i port B e C
                                   ' In uscita il port A
Do
   Dummy = Inp(dsw1)               ' Legge il dip switch
   Dip1 = Dummy And 1              ' Legge lo switch 1
   Dummy = Inp(pdc)                ' Legge il port C
   If Dip1 <> 0 Then               ' Se il dip 1 è OFF
     Dummy = Not Dummy             ' Nega il valore di port C
   End If
   Out Pda , Dummy                 ' Scrive il valore su port A
Loop

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