' ****************************************************************

' * File:  gmbser.bas  -  Ver. 1.1                               *

' * Compilatore:  PIC Basic PRO                                  *

' * IDE: MicroCode Studio Plus                                   *

' * Versione Compilatore: 2.45                                   *

' * Schede: GMM 4620 + GMB HR168 + K51-AVR                       *

' *   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  *

' * by Graziano Gaiba                              11.02.05      *

' ****************************************************************

'

' 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.

'

' Rel 1.1 - by Graziano Gaiba

' Demo di utilizzo a basso livello della periferica EUSART usando una GMB HR168

' pilotata da un Mini Modulo GMM 4620

'

'

' ***************** Definizioni del compilatore ******************

'

DEFINE OSC 10 ' Frequenza oscillatore 9,8304 MHz

'DEFINE HSER_RCSTA 90h  ' Abilita EUSART in ricezione

'DEFINE HSER_TXSTA 20h  ' Abilita EUSART in trasmissione

'DEFINE HSER_BAUD 19200 ' Baud Rate

'

' *************** Dichiarazione delle contanti *******************

'

RTCSLA con $A0

I2C_BUFFER_SIZE con 10

'

' ******************* Dichiarazione delle Variabili ********************

'

' Variabili di uso generico

i var byte

scelta var byte

di var byte

do var byte

'

' Usata dalle procedure di gestione I/O

port_val var byte  ' Valore letto o da scrivere nell'I/O

'

' Usate dalla gestione a basso livello della EUSART

char_to_tx var byte

char_rx var byte

kbhit var bit

'

'

'********************** Programma principale ***************************

'

main:

    gosub Init_cpu

    ' Spegne i relays

    port_val = 0

    gosub set_relays

    ' Serve la comunicazione a basso livello perche' il segnale DIR non viene

    ' gestito dalle istruzioni di alto livello del PIC BASIC PRO.

    ' Disabilita rilevazione baud-rate automatica, generatore baud-rate a 8 bit 

    baudctl = 0

    ' Valore per baud rate 19200 e tenendo conto dei settaggi fatti sopra

    '              Fosc

    ' SPBRG = --------------  -  1

    '          16 * BaudRate

    spbrg = 31

    ' High baud elevati, modo asincron, abilta trasmettitore, trasmette a 8 bit

    txsta = $24

    ' Abilita ricevitore, ricezione a 8, abilita porta seriale

    rcsta = $90



    gosub clrscr

    hserout ["Demo EUSART a basso livello Rel 1.1 per GMM 4620 rel 120304", 13, 10]

    hserout ["e GMB HR168 rel 110104", 13, 10, 13, 10]

    hserout ["Viene mostrato come configurare l'accoppiata per comunicazione seriale", 13, 10]

    hserout ["tipo RS 232, TTL, RS 422, RS 485.", 13, 10]

    hserout ["Seguendo le istruzioni si puo' provare la comunicazione RS 232 a basso livello,", 13, 10]

    hserout ["ovvero pilotata da istruzioni assembly anziche' da comandi BASIC.", 13, 10]

    hserout ["Poi, RS 422 o RS 485 viene configurato ed utilizzato. Anche un segnale di", 13, 10]

    hserout ["direzione viene usato con il protocollo RS 485.", 13, 10]

    gosub chiede_tasto

    hserout [13, 10, 13, 10]

    hserout ["In RS 232: su GMM 4620 mettere ON i dip switch da 1 a 3, mettere OFF gli altri,", 13, 10]

    hserout ["mettere OFF i dip switch 2 e 3, mettere ON i dip switch 4 e 5, per avere", 13, 10]

    hserout ["dei segnali TTL dalla EUSART direttamente sui pin dello zoccolo.", 13, 10]

    hserout ["Collegare J10 in 1-2.", 13, 10]

    gosub chiede_tasto

    hserout [13, 10, 13, 10]

    hserout ["Collaudare in RS232, poi configurare GMB per un altro protocollo a scelta:", 13, 10]

    hserout ["Spegnere l'accoppiata, impostare i dip switch:", 13, 10]

    hserout ["2=3=OFF,4=5=ON, poi:", 13, 10]

    hserout [13, 10, 13, 10]

    hserout ["RS422:", 13, 10]

    hserout ["-installare SN75176 o MAX483 su IC10 e IC11", 13, 10]

    hserout ["J5=2-3 J6,J7,J8=1-2 J10=1-2", 13, 10]

    hserout [13, 10, 13, 10]

    hserout ["RS485:", 13, 10]

    hserout ["-installare SN75176 o MAX483 su IC10", 13, 10]

    hserout ["-J5=1-2 J6,J7,J8=1-2 J10=1-2", 13, 10]

    hserout [13, 10, 13, 10]

    hserout ["Se l'accoppiata e' all'estremita' di una rete -> J3 e J4 vanno connessi", 13, 10]

    hserout ["La ricezione del carattere R commuta lo stato del trasmettitore", 13, 10]

    ' Il segnale DIR per RS 485 e' PORTE.2

    trise.2 = 0

    porte.2 = 0

for_ever:

    gosub rx_status

    if kbhit = 1 then

        gosub rx_char

        if char_rx == "r" or char_rx == "R" then

            porte.2 = ! porte.2

        endif

        char_to_tx = char_rx

        gosub tx_char

    endif

    

    goto for_ever

end

'

' **************** Procedures definition ******************

'

'

' Inizializzazione direzione segnali della CPU

Init_cpu:

    ADCON1=$0f        ' Imposta come I/O digitale i pin AN0..12

    CMCON=$07         ' Imposta come I/O digitale RA0..4

    ' Gli ingressi optoisolati di CN1 sono:

    ' IN1-1 <-> RA0

    ' IN2-1 <-> RA1

    ' IN3-1 <-> RB0

    ' IN4-1 <-> RB1

    ' IN5-1 <-> RA4

    ' IN6-1 <-> RC0

    ' IN7-1 <-> RC1

    ' IN8-1 <-> RC5

    trisa.0 = 1

    trisa.1 = 1

    trisa.4 = 1

    trisb.0 = 1

    trisb.1 = 1

    trisc.0 = 1

    trisc.1 = 1

    trisc.5 = 1

    ' Gli ingressi optoisolati di CN2 sono:

    ' IN1-2 <-> RD0

    ' IN2-2 <-> RD1

    ' IN3-2 <-> RD2

    ' IN4-2 <-> RD3

    ' IN5-2 <-> RD4

    ' IN6-2 <-> RD5

    ' IN7-2 <-> RD6

    ' IN8-2 <-> RD7

    trisd = $ff

    ' Le uscite relays di CN3 sono:

    ' OUT A1 <-> RB4

    ' OUT A2 <-> RB5

    ' OUT B1 <-> RB6

    ' OUT B2 <-> RB7

    ' OUT C1 <-> RB3

    ' OUT C2 <-> RB2

    trisb = trisb & $03

    ' Le uscite relays di CN4 sono:

    ' OUT D1 <-> RA3

    ' OUT D2 <-> RC2 (J10 in posizione 3-4)

    trisa.3 = 0

    trisc.2 = 0

return

'

'

' Pulisce lo schermo, inviando 25 volte CR + LF.

clrscr:

    for i= 0 to 24

      hserout [13, 10]

    next i

return

'

'

' Chiede la pressione di un tasto

chiede_tasto:

    hserout ["Premere un tasto..."]

chiede_tasto_loop:

    hserin 1, chiede_tasto_loop, [i]

return

'

'

' Procedura per impostare lo stato dei relays sui connettori CN3 e CN4.

' A seconda del valore dei bits di port_val, ogni relay viene attivato

' (contatto chiuso) o disattivato (contatto aperto).

' I bit di port_val hanno il seguente significato:

' -- CN3

' port_val.0 pilota il relay OUT A1

' port_val.1 pilota il relay OUT A2

' port_val.2 pilota il relay OUT B1

' port_val.3 pilota il relay OUT B2

' port_val.4 pilota il relay OUT C1

' port_val.5 pilota il relay OUT C2

' -- CN4

' port_val.6 pilota il relay OUT D1

' port_val.7 pilota il relay OUT D2

'

' Ogni bit ha il seguente significato:

'   bit              Significato

'    0    Relay disattivato (contatto aperto)

'    1    Relay attivato (contatto chiuso)

set_relays:

    ' I relays sono pilotati in logica complementata , quindi anche port_val

    ' deve essere complementato

    port_val = port_val ^ $ff

    portb.4 = port_val.0

    portb.5 = port_val.1

    portb.6 = port_val.2

    portb.7 = port_val.3

    portb.3 = port_val.4

    portb.2 = port_val.5

    

    porta.3 = port_val.6

    

    portc.2 = port_val.7

return

'

'

' Trasmissione di un singolo carattere gestendo l'EUSART a basso livello.

' Il carattere da inviare deve trovarsi nella variablie char_to_tx.

' Blocca il programma finche' il trasmettitore non si libera.

tx_char:

    ' Attende che il trasmettitore si liberi

    if txsta.1 = 0 then tx_char

    txreg = char_to_tx

return

'

'

' Verifi
ca che un carattere sia stato ricevuto.

' Se e' stata completata la ricezione di un carattere, la variablie kbhit

' vale 1, altrimenti vale 0.

rx_status:

    if pir1.5 = 1 then

        pir1.5 = 0

        kbhit = 1

    else

        kbhit = 0

    endif

return

'

'

' Ricezione di un singolo carattere gestendo l'EUSART a basso livello.

' Il carattere ricevuto viene memorizzato nella variabile char_rx.

' NON controlla se un carattere e' stato ricevuto.

rx_char:

    char_rx = rcreg

return