' **********************************************************************
' ** Programma: S1DEB4.BAS -  Versione : 1.1   -   02  Giugno  1999   **
' ** Compilatore : BASCOM LT, (IDE V.1.20, LIB V.1.27)                **
' ** Scheda : GPC(r) 554                                              **
' ** 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 lo stato del jumper 2 presente sulla scheda
' GPC(r) 554 sulle linee del port 4.
' Per facilitare la visualizzazione dello stato delle linee è necessario
' collegare con un cavo flat adattatore da 20 a 26 poli, il connettore CN5
' della GPC(r) 554 al connettore CN15 della DEB 01.
' ATTENZIONE! Per indirizzare correttamente le linee dati del microcontrollore
' 80552 e' necessario selezionare il relativo register file. Per fare questo
' bisogna selezionare l'etichetta Misc dal menu Option/Compiler, clickare
' sulla casella di testo Register file e selezionare il file 80552.DAT.
'
'****************** 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 Rundebug As Const &HFFFD       ' mappatura del registro di run/debug
'
'****************** Dichiarazione delle variabili **********************

Dim J2 As Byte                     ' Memorizza lo stato del jumper 2
'
'************************* Programma main ******************************
'
Waitms 1                           ' Ritardo per assestamento segnali

Print "    Programma dimostrativo 4 per la sezione 1 della scheda DEB(r) 01"
Print : Print "    Riporta sul port 4 lo stato del jumper 2. Se il jumper e' connesso"
Print "    accende i LEDs rossi, altrimenti li spegne."
Print : Print "    Esecuzione in corso..."
Do
   J2 = Inp(rundebug)               ' Legge il registro di run/debug
   J2 = J2 And &B10000000            ' Estrae lo stato del jumper 2
   If J2 = &B10000000 Then         ' Se il jumper è connesso
      P4 = 255                       ' Accende il LEDs rossi
   Else
      P4 = 0                       ' Altrimenti li spegne
   End If
Loop

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