'****************************************************************** '* Nome : gmbser.bas * '* Autore : Graziano GAIBA * '* Data : 06/05/04 * '* Versione : 1.1 * '* Scheda : GMM 876 + GMB HR84 * '* Linguaggio: PIC BASIC Standard Ver. 1.45 * '* Azienda : Copyright (c) 2004 grifo(r) ITALIAN Technology * '* : All Rights Reserved * '* : 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 * '****************************************************************** ' ' 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. ' ' Per la comunicazione, viene usata la seriale hardware implementata ' nel demo Usart.bas del PIC Basic standard opportunamente ' modificata. ' ' ' ********************************************************************* ' * Definizioni e Costanti * ' ********************************************************************* ' ' Registri del PIC symbol INDF = 0 symbol FSR = $04 ' Port di I/O symbol PORTA = $05 symbol TRISA = $85 ' banco 1 symbol PORTB = $06 symbol TRISB = $86 ' banco 1 symbol PORTC = $07 symbol TRISC = $87 ' banco 1 ' A/D converter symbol ADCON0 = $1F symbol ADCON1 = $9F ' banco 1 ' symbol OPTION_REG = $81 ' banco 1 ' ' Simboli usati dalla seriale hardware implementata ' nel demo Usart.bas del PIC Basic standard ' Definizione registri USART Symbol PIR1 = $0C ' Registro Peripheral Interrupt Flag Symbol RCSTA = $18 ' Registro di stato e controllo ricezione Symbol TXREG = $19 ' Dato da trasmettere Symbol RCREG = $1A ' Dato ricevuto Symbol TXSTA = $98 ' Registro di stato e controllo trasmissione Symbol SPBRG = $99 ' Registro del Baud Rate Generator ' ' ' ********************************************************************* ' * Variabili usate dal programma * ' ********************************************************************* ' ' ' Usate dall'USART SYMBOL UsartST = B0 ' Stato dell'USART SYMBOL UsartOut = B1 ' Carattere da inviare symbol UsartIn = B2 ' Carattere ricevuto ' Valore da stampare come stringa symbol Valore = B3 ' Uso Generico SYMBOL i = B4 SYMBOL c = B5 symbol z = B6 ' Usato dall'input di un valore esadecimale symbol ValoreHex = B7 symbol ValoreHexMSB = B8 ' Usata per inizializzare il Baud Rate Generator symbol ValBRG = B9 ' ' ' ********************************************************************* ' * Programma main * ' ********************************************************************* ' Main: gosub Module_init ' Inizializzazione ' ' Apre tutti i relays ' B0 = 0 ' gosub set_relays for i=0 to 35 lookup i,("Demo per GMM 876 e GMB HR84 Rel. 1.1"),usartout gosub charout next i gosub nlcr gosub nlcr for i=0 to 129 lookup i,("Ogni carattere ricevuto dalla linea seriale viene rimandato indietro.",13,10,"Il carattere R complementa lo stato del segnale DIR (pin 12)."),usartout gosub charout next i gosub nlcr gosub nlcr ' Lista dei Baud Rate disponibili: '1) 1200 '2) 2400 '3) 9600 '4) 19200 for i=0 to 69 lookup i,("Inserire il Baud Rate: ",13,10,"1) 1200",13,10,"2) 2400",13,10,"3) 9600",13,10,"4) 19200",13,10,"Scelta: "),usartout gosub charout next i ' Attende un carattere tra "1" e "4" e lo stampa Mainloop1: gosub CharIn if usartin < "1" or usartin > "4" then Mainloop1 i = usartin - "0" - 1 usartout = usartin gosub charout gosub nlcr ' Reimposta il baud rate con il valore scelto dall'utente e ' imposta il funzionamento a bassa velocita'. ' Un eventuale trasmissione in corso viene interrotta. lookup i,(1200,2400,4800,19200),W0 gosub calcolabrg_ls Poke SPBRG,valbrg Poke TXSTA,%00100000 ' gosub nlcr gosub nlcr for i = 0 to 70 lookup i,("Per RS 232: settare ON gli switch 1 e 2 e OFF gli switch 3 e 4 di DSW1."),usartout gosub charout next i gosub nlcr for i = 0 to 97 lookup i,("Settando OFF gli switch 1 e 2 e ON gli switch 3 e 4,",13,10,"sullo zoccolo vanno i segnali TTL dell'UART."),usartout gosub charout next i gosub nlcr gosub nlcr for i = 0 to 137 lookup i,("Collegare J7 in 2-3.",13,10, "Testare in RS232,poi configurare GMB per altro protocollo:",13,10,"togliere alimentazione,settare DSW1:",13,10,"1=2=OFF,3=4=ON,poi:"),usartout gosub charout next i gosub nlcr gosub nlcr for i = 0 to 75 lookup i,("RS422:",13,10,"-montare SN75176 o MAX483 su IC1 e IC2",13,10,"-J2=1-2 J3=1-2 J4=1-2 J5=2-3"),usartout gosub charout next i gosub nlcr gosub nlcr for i = 0 to 69 lookup i,("RS485:",13,10,"-montare SN75176 o MAX483 su IC1",13,10,"-J2=1-2 J3=1-2 J4=1-2 J5=1-2"),usartout gosub charout next i gosub nlcr gosub nlcr for i = 0 to 86 lookup i,("Se la scheda e' a un capo della rete -> J1 chiuso",13,10,"R commuta lo stato del trasmettitore"),usartout gosub charout next i gosub nlcr gosub NLCR Main_loop: gosub charin if usartin = 0 then main_loop usartout = usartin gosub charout if usartin <> "r" and usartin <> "R" then main_loop ' Commuta lo stato della linea peek portc, i i = i ^ %00000100 poke portc,i goto main_loop end ' ' '********************************************************************* '* Fine del programma * '********************************************************************* ' ' ' ' Inizializzazione della GMM 876 Module_init: ' Spengo l'A/D converter poke adcon0, 0 ' Imposta Port A come input digitale poke ADCON1, 7 ' ' Imposta RC2 come uscita peek trisc, B0 bit2 = 0 poke trisc, B0 ' ' Inizializza USART per 19200 Baud W0 = 19200 gosub calcolabrg_hs Poke SPBRG,valbrg ' Imposta baud rate a 19200 Poke RCSTA,%10010000 ' Abilita porta seriale e ricezione continua Poke TXSTA,%00100100 ' Abilita tramsissione, modalita' asincrona e ' baud rate elevati ' Rimettere la pagina 0 prima di uscire dall'asm 'ASM 'ENDASM pause 500 return ' ' ' Questa procedura imposta lo stato dei relays di una GMB HR84. ' La corrispondenza tra bit del paramertro, linea di I/O e relay e': ' Bit 0 -> RB4 -> A1 ' Bit 1 -> RB5 -> A2 ' Bit 2 -> RB6 -> B1 ' Bit 3 -> RB7 -> B2 ' Il parametro in ingresso e' la variabile B0, viene distrutto il ' contenuto della variabile B1. ' Per ogni segnale, il rispettivo bit ha il seguente significato: ' bit a 0 -> Relay aperto ' bit a 1 -> Relay chiuso Set_relays: B0 = B0 ^ $0F peek portb, B1 bit12 = bit0 bit13 = bit1 bit14 = bit2 bit15 = bit3 poke portb, B1 return ' ' ' Commuta lo stato della linea Toggle_dir: return ' ' ' Calcola il valore per inizializzare il Baud Rate Generator in modalita' ' ad alta velocita'. ' Il Baud Rate desiderato si trova nella variabile W0, il risultato, ' ovvero il valore da scrivere nel registro SPBRG, si trova nella ' variabile ValBRG. ' Si ricorda che per attivare la modalita' ad alta velocita' bisogna ' porre ad 1 il bit 2 del registro TXSTA (BRGH). CalcolaBRG_HS: ' Fquarzo ' ValBRG = -------- - 1 ' 16 * BR valbrg = 0 if W0 = 9600 then val_9600_hs if W0 = 19200 then val_19200_hs if W0 = 38400 then val_38400_hs if W0 = 57600 then val_57600_hs if W0 = 115200 then val_115200_hs goto esci_hs val_9600_hs: valbrg = 129 goto esci_hs val_19200_hs: valbrg = 64 goto esci_hs val_38400_hs: valbrg = 32 goto esci_hs val_57600_hs: valbrg = 21 goto esci_hs val_115200_hs: valbrg = 10 goto esci_hs esci_hs: return ' ' ' Calcola il valore per inizializzare il Baud Rate Generator in modalita' ' a bassa velocita'. ' Il Baud Rate desiderato si trova nella variabile W0, il risultato, ' ovvero il valore da scrivere nel registro SPBRG, si trova nella ' variabile ValBRG. ' Si ricorda che per attivare la modalita' a bassa velocita' bisogna ' porre a 0 il bit 2 del registro TXSTA (BRGH). CalcolaBRG_LS: ' Fquarzo ' ValBRG = -------- - 1 ' 64 * BR valbrg = 0 if W0 = 1200 then val_1200_ls if W0 = 2400 then val_2400_ls if W0 = 9600 then val_9600_ls if W0 = 19200 then val_19200_ls goto esci_hs val_1200_ls: valbrg = 255 goto esci_hs val_2400_ls: valbrg = 129 goto esci_hs val_9600_ls: valbrg = 31 goto esci_hs val_19200_ls: valbrg = 15 goto esci_hs esci_ls: return ' ' ' Stampa due spazi DueSpazi: usartout = " " ' Spazio gosub charout gosub charout return ' ' ' Trasforma il valore esadecimle nella variabile Valore in caratteri ' ASCII e li invia alla porta seriale. ' Valore deve essere compreso tra 0 e 0FFh. StampaHex: usartout = valore / 16 gosub hexdecode gosub charout StampaNibbleHex: usartout = valore & $0F gosub hexdecode gosub charout return ' HexDecode: Lookup usartout,("0123456789ABCDEF"),usartout return ' HexEncode: lookDown usartin,("0123456789abcdef"),usartin return ' ' ' Manda a capo su una riga sotto NLCR: usartout = 10 ' New Line gosub charout CR: usartout = 13 ' Carriage Return gosub charout return ' ' ' Input di un valore esadecimale da 000 a FFF poi va a capo InputHex3: gosub charin if usartin = 0 then InputHex3 usartout = usartin gosub charout usartin = usartin | $20 gosub hexencode valorehexMSB = usartin InputHex: gosub charin if usartin = 0 then InputHex usartout = usartin gosub charout usartin = usartin | $20 gosub hexencode valorehex = usartin * 16 InputHex2: gosub charin if usartin = 0 then InputHex2 usartout = usartin gosub charout usartin = usartin | $20 gosub hexencode valorehex = valorehex + usartin gosub nlcr return ' ' ' Attende la pressione di un tasto AttendiTasto: gosub charin if usartin = 0 then AttendiTasto return ' ' ' Subroutine che invia un carattere al trasmettitore USART ' (sospensiva) CharOut: Peek pir1,UsartST ' Leggi il Flag in UsartST = B0 If Bit4 = 0 Then charout ' Attendi che si svuoti il registro di ' trasmissione Poke TXREG,Usartout ' Metti il carattere nel registro di ' trasmissine Return ' Ritorno al chiamante ' ' ' Subroutine che preleva un carattere dal ricevitore dell'USART ' (non sospensiva) CharIn: UsartIn = 0 ' Preset a nessun carattere ricevuto Peek PIR1,Usartst ' Leggi il Flag in UsartST = B0 If Bit5 = 0 Then ciret ' Se il flag di ricezione e' 0, esci Peek RCREG,UsartIn ' Altrimenti metti il carattere ricevuto ' in UsartIn = B1 ciret: Return