' **********************************************************************
' * File:   gmbser.bas - Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4    *
' * Schede: GMB HR84 + GMM AM08                                        *
' *                                                                    *
' * GRIFO(R)   via Dell'Artigiano 8/6   40016 S. Giorgio di Piano (BO) *
' *     Tel. +39 051 892052                      Fax. +39 051 893661   *
' *     http://www.grifo.com                     http://www.grifo.it   *
' *     sales@grifo.it         tech@grifo.it          grifo@grifo.it   *
' *     by Graziano Gaiba                               del 21.01.04   *
' **********************************************************************
'
' Il demo e' un semplice esempio di comunicazione in grado di operare con tutti
' i protocolli elettrici disponibili su CN2 (RS 232, RS 422, RS 485,
' current loop o TTL). In dettaglio, tramite funzioni a basso livello,
' e' possibile programmare il baud rate da console, poi ogni carattere ricevuto
' dalla seriale viene ritrasmesso sulla stessa; la ricezione del carattere 'r'
' o 'R' determina la gestione della direzione (segnale DIR) per RS 422 e RS 485.
'
' 21.01.04 - Rel 1.1 By Graziano Gaiba per GMM AM08
'
'   Il file compilato non supera i 2048 bytes, quindi puo' essere
'   compilato con il demo gratuito di BASCOM AVR.
'
'
' !!!!!!!!!!!!!!!!!!!!!!!!!!! IMPORTANTE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' Nel menu Options | Compiler | Chip, impostare:
'
' Chip:       M8
' HW Stack:   almeno 64
' Soft Stack: almeno 32
' Framesize:  almeno 64
'
'
'****************** Direttive del compilatore **************************
'
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 19200
'
'****************** Dichiarazione delle costanti ***********************
'
Const Cret = 13                                             ' Codice di ritorno di carrello
Const Nl = 10                                               ' Codice nuova linea
Const Clrscr = 12                                           ' codice di clear screen
Const Bell = 7                                              ' codice di Bell

Const Attivo = 1                                            ' Valore per attivare il driver 422 o 485
Const Disattivo = 0                                         ' Valore per disattivare il driver 422 o 485
'
'****************** Dichiarazione delle variabili **********************
'
' Uso generico
Dim Dir_ser As Bit                                          ' Stato driver trasmissione

' Per le procedure di basso livello
Dim Char As Byte
Dim Rate As Long                                            ' Baud rate richiesto dall'utente

Ri Alias Ucsra.rxc                                          ' Ricezione completa
Ti Alias Ucsra.txc                                          ' Trasmissione completa
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Init()                                          ' Inizializzazione
Declare Sub Txa(byval C As Byte)                            ' Gestisce la trasmissione sulla seriale A
Declare Function Rxa() As Byte                              ' Gestisce la ricezione sulla seriale A
'
'************************* Programma main ******************************
'
Main:

   Call Init()                                              ' Inizializza il demo

   ' Spiegazione sulla gestione dell'UART in RS 232 e TTL
   Print
   Print "Per RS 232: settare ON gli switch 1 e 2 e OFF gli switch 3 e 4 di DSW1."
   Print "La Gestione Software e' Bascom,Vedere Documentazione Per piu' informazioni"
   Print "Settando OFF gli switch 1 e 2 e ON gli switch 3 e 4,sullo zoccolo"
   Print "vanno i segnali TTL dell'UART."
   Print
   Print "Premere un tasto per continuare..."
   Char = Waitkey()
   Print
   Print "Collegare J7 in 2-3."
   ' La comunicazione e' a basso livello perche'
   ' BASCOM non gestisce la direzione ad alto livello
   Print
   Input "Baud rate:" , Rate
   ' UBRR = (7372800 / (16 * BaudRate)) - 1
   Rotate Rate , Left , 4
   Rate = 7372800 / Rate
   Decr Rate
   ' Prima di riprogrammare la seriale bisogna svuotare il buffer di trasmissione
   Waitms 10
   ' Bit x chr = 8"
   ' Stop bit  = 1"
   ' Parity    = No"
   ' Handshake = No"
   ' Baud rate = 19200"
   Ucsrc = &H86                                             ' Inizializza Seriale 8 Bit , 1 Stop , No Interrupt
   Ubrrhi = &H00                                            ' Setta Baud Rate A 19200
   Ubrr = Rate
   Print "Testare in RS232,poi configurare GMB per altro protocollo:"
   Print "togliere alimentazione,settare DSW1:"
   Print "1=2=OFF,3=4=ON,poi:"
   Print
   Print "RS422:"
   Print "-montare SN75176 o MAX483 su IC1 e IC2"
   Print "-J2=1-2 J3=1-2 J4=1-2 J5=2-3"
   Print
   Print "RS485:"
   Print "-montare SN75176 o MAX483 su IC1"
   Print "-J2=1-2 J3=1-2 J4=1-2 J5=1-2"
   Print
   Print "Scheda a un capo rete->J1 chiuso"
   Print "R commuta trasmettitore"

   Dir_ser = Disattivo                                      ' memorizzo lo stato
   Portb.1 = 0

   Do
      Char = Rxa()                                          ' ricevo dalla seriale A
      If Char <> 0 Then                                     ' è presente un carattere nella seriale A
         Call Txa(char)                                     ' Trasmetto il carattere sulla seriale A
         Char = Char Or &H20                                ' Metti in minuscolo
         If Char = "r" Then
            If Dir_ser = Attivo Then                        ' se era disattivo
               Portb.1 = 1                                  ' attiva la trasmissione
                                                                 ' del driver 422 o 485
               Dir_ser = Disattivo
            Else                                            ' viceversa
               Portb.1 = 0                                  ' disattiva la trasmissione
                                                                 ' del driver 422 o 485
               Dir_ser = Attivo
            End If
         End If
      End If
   Loop
End
Do
Loop
'
'************************ Fine del programma ***************************
'
'
'**************************** Procedure ********************************
'
'
'
' Inizializza il demo
'
Sub Init()
   Ddrb.1 = 1                                               ' Segnale dir
End Sub
'
' ************** Gestisce la trasmissione sulla seriale A **********************
' * Questa procedura permette di trasmettere un carattere alla volta sulla     *
' * seriale A, il carattere da trasmettere risiede nella variabile CHAR        *
' ******************************************************************************
'
Sub Txa(byval C As Byte)                                    ' Gestisce la trasmissione sulla seriale A
   Bitwait Ti , Set                                         ' attendo che sia trasmesso il carattere
                                          ' precedente
   Ti = 1
   Udr = C                                                  ' trasmetto il carattere
End Sub
'
' ************** Gestisce la ricezione sulla seriale A *************************
' * Questa procedura restituisce il carattere ricevuto sulla seriale A e lo    *
' * mette nella variabile Valore, se non c'è nessun carattere, restituisce il  *
' * CHAR= 0.                                                                   *
' ******************************************************************************
'
Function Rxa() As Byte                                      ' Gestisce la ricezione sulla seriale A
   If Ri = 1 Then
      Rxa = Udr                                             ' leggo il carattere ricevuto
   Else
      Rxa = 0                                               ' nessun carattere ricevuto
   End If
End Function