' **********************************************************************
' ** Programma: WEEF2.BAS -  Versione : 1.1   -    22 Maggio  2000    **
' ** Compilatore : BASCOM 8051, (IDE V.1.0.0.20, LIB V.1.20)          **
' ** Scheda : K51-AVR e GPC F2                                        **
' ** 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:  Adriano Pedrielli                                **
' **********************************************************************
'
' Questo programma permette di scrivere su una EEPROM seriale su IC4
' (max 24c08), con indirizzamento che va da &H400 a &H7FF, da &H0 a &H0FF
' risulta occupato da IC7 (RTC PCF8583), mentre da &H100 a &H3FF risulta
' libero.
' Alla partenza il programma mostra indirizzo per la scrittura, tramite
' il tasto 1 e 2 della tastiera del P.C.,si incrementa il valore o si diminuisce.
' Tramite il tasto 3, si convalida il valore, poi si seleziona il
' dato da scrivere agendo su 1 e 2, al termine si preme 3.
' Ad ogni pressione di un tasto viene emesso un seganle acustico.
' Ad operazione conlusa viene visualizzato l indirizzo scelto alternato
' al dato scelto.
' La gestione di questo programma avviene tramite la seriale RS232, quindi e'
' indispensabile collegare una COM libera del PC al connettore CN3 della GPC F2.
' Configurare il terminale del BASCOM 8051 nel menu OPTION/ COMUNICATION/
' selezionare la COM e settare il BAUD a 9600, none, 8, 1.
'
' Eseguire i seguenti collegamenti come segue :
' GPC F2                    K51 AVR
' +5Vdc   (pin15 CN3) ----> +5Vdc (pin1 CN6)
' Gnd     (pin16 CN3) ----> Gnd   (pin2 CN6)
' T0 P3.4 (pin3 CN3)  ----> SD    (pin7 CN6)
' T1 P3.5 (pin1 CN3)  ----> SC    (pin8 CN6)
'
' Prima di compilare selezionare nel menu Option/Compiler/Misc/ :
' Byte End 5F.
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile = "REG51.DAT"                         ' elenco registri della CPU
$romstart = &H8050                             ' indirizzo di partenza del codice
                                          ' &H8050 per MO52 Rel.1.1 in RAM IC8
                                          ' &H0000 per EPROM senza RAM IC8

$ramstart = &HD000                             ' ind. per variabili in RAM esterna
$ramsize = &H2800                              ' assegno 10K di RAM esterna per variabili

$crystal = 11059200                            ' frequenza di clock della CPU
$baud = 9600                                   ' velocità di comunicazione RS-232
$large                                         ' indirizzamento a 16 bit
'
' *************************** Elenco PIN per 8xc51 *********************
'
Config Sda = P3.4                              ' Pin3 CN3 GPC F2, segnale dei DATI
                                          ' per I2CBUS
Config Scl = P3.5                              ' Pin1 CN3 GPC F2, segnale del Clock
                                          ' per I2CBUS
Buz Alias P1.2                                 ' Pin 3 del micro sulla GPC F2, che
                                          ' risulta essere connesso al buzzer
                                          ' di bordo.

Const Cler = 12                                ' codice di clear screen
Const Bel = 7                                  ' codice di Bell
'
'****************** Dichiarazione delle costanti ***********************
'
Dim Saa1064 As Const &H38                      ' Slave address SAA1064
Dim Wsaa1064 As Const &H70                     ' Slave address SAA1064 in Write
Dim Rsaa1064 As Const &H71                     ' Slave address SAA1064 in Read
' ***************** Elenco indirizzi per Saa1064 ***********************
Dim Ctb As Const 0                             ' Ind. Control byte
Dim Dig1 As Const 1                            ' Ind. Digit 1
Dim Dig2 As Const 2                            ' Ind. Digit 2
Dim Dig3 As Const 3                            ' Ind. Digit 3
Dim Dig4 As Const 4                            ' Ind. Digit 4
' **********************************************************************
'
Dim Wee As Const &HA0                          ' Slave address 24cXX in Write
Dim Ree As Const &HA1                          ' Slave address 24cXX in Read

' **********************************************************************
'
Dim R As Const 1                               ' valore per leggere in EEPROM
Dim W As Const 0                               ' valore per scriver in eeprom
'
'****************** Dichiarazione delle variabili **********************
'
Dim Dig As Byte                                ' valore di un digit
Dim Cifh As Byte                               ' cifra 4 bit alti in HEX
Dim Cifl As Byte                               ' cifra 4 bit bassi in HEX
Dim Nb As Byte                                 ' byte per DY3 e DY4
Dim Nw As Word                                 ' word per DY1, DY2, DY3 e DY4
Dim Ind As Word                                ' indirizzo per I2CBUS ecc. a 16 Bit
Dim W_r As Byte                                ' selezione scrittura o lettura con R e W
Dim Hind As Byte                               ' byte Hight di Ind
Dim Lind As Byte                               ' byte Low di Ind
Dim X As Byte                                  ' dato da scrivere
Dim Valore As Byte                             ' uso generico
Dim T As Byte                                  ' codice del tasto premuto
Dim Tstr As String * 1                         ' stringa di un carattere
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Iniz                               ' Inizializzazione periferiche
Declare Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converte un numero in 2 cifre HEX
Declare Sub Digit (dig As Byte )               ' Converte un numero da 0-F in 7 segmenti
Declare Sub Vis_byte (nb As Byte)              ' visualizza un byte in HEX
Declare Sub Vis_word (nw As Word)              ' visualizza una word in HEX
Declare Sub I2cbus (ind As Word , Valore As Byte , W_r As Byte)
                                          ' Legge/scrive su I2CBUS
'
'************************* Programma main ******************************
'
Main:                                          ' Assestamento segnali
Waitms 1
Call Iniz                                      ' inizializzazioni
Ind = &H400                                    ' indirizzo per IC4
X = 0                                          ' dato da scrivere
Do
   Do
      Call Vis_word(ind)                       ' visualizzo indirizzo
      T = Inkey                                ' leggo un carattere dalla seriale
   Loop Until T <> 0                           ' esco se ho ricevuto un carattere
   Tstr = Chr(t)                               ' converto il carattere in stringa
   Select Case Tstr                            ' controllo il tasto premuto
      Case "1" : Gosub Inc_ind                 ' se premuto incremento Ind
      Case "2" : Gosub Dec_ind                 ' se premuto decremento Ind
      Case "3" : Sound Buz , 100 , 250         ' attivo il buzzer
                 Buz = 1                       ' disattivo il buzzer
                 Print
                 Print " 1) Incrementa il dato da scrivere"
                 Print " 2) Decrementa il dato da scrivere"
                 Print " 3) Convalida il dato da scrivere"
                 Print " 4) Esci"
                 Print
                 Print "Premi uno dei 4 tasti sulla tastiera del P.C."
                 Do
                 Do
                    Call Vis_byte(x)           ' visualizzo il dato da scrivere
                          T = Inkey            ' leggo un carattere dalla seriale
                 Loop Until T <> 0             ' esco se ho ricevuto un carattere
                 Tstr = Chr(t)                 ' converto il carattere in stringa
                 Select Case Tstr              ' controllo il tasto premuto
                    Case "1" : Gosub Inc_x     ' se premuto incremento X
                    Case "2" : Gosub Dec_x     ' se premuto decremento X
                    Case "3" : Sound Buz , 100 , 250       ' attivo il buzzer
                               Buz = 1         ' disattivo il buzzer
                               Call I2cbus(ind , X , W)       ' scrivo il valore in I2cBUS
                               Do
                                  Call Vis_byte(x)       ' visualizzo il dato da scrivere
                                  Wait 1       ' ritardo di 1 secondo
                                  Call Vis_word(ind)       ' visualizzo indirizzo
                                  Wait 1       ' ritardo di 1 secondo
                                  T = Inkey    ' leggo un carattere dalla seriale
                                  If T <> 0 Then
                                     Tstr = Chr(t)
                                  End If
                               Loop Until Tstr = "4"       ' esco se ho ricevuto il carattere 4
                               Ljmp 0                   ' esco e rilancio il monitor
                    Case "4" : Ljmp 0          ' esco e rilancio il monitor
                    Case Else : Print Chr(bel);       ' tasto non valido
                 End Select
                 Loop
      Case "4" : Ljmp 0                        ' esco e rilancio il monitor
      Case Else : Print Chr(bel);              ' tasto non valido
   End Select
Loop
'
'
'
Inc_ind:
   Waitms 50                                   ' ritardo
   Incr Ind                                    ' incremento Ind
   Sound Buz , 100 , 250                       ' attivo il buzzer
   Buz = 1                                     ' disattivo il buzzer
Return
Dec_ind:
   Waitms 50                                   ' ritardo
   Decr Ind                                    ' decremento Ind
   Sound Buz , 100 , 250                       ' attivo il buzzer
   Buz = 1                                     ' disattivo il buzzer
Return
Inc_x:
   Waitms 50                                   ' ritardo
   Incr X                                      ' incremento X
   Sound Buz , 100 , 250                       ' attivo il buzzer
   Buz = 1                                     ' disattivo il buzzer
Return
Dec_x:
   Waitms 50                                   ' ritardo
   Decr X                                      ' decremento X
   Sound Buz , 100 , 250                       ' attivo il buzzer
   Buz = 1                                     ' disattivo il buzzer
Return
End
'
'************************ Fine del programma ***************************
'
'
'**************************** Procedure ********************************
'
' ******************* Inizializzazione delle periferiche *****************
' Questa procedura esegue tutte le inizializzazioni del sistema.
' Parametri:
' Ingresso : nulla
' Uscita : nulla
' ************************************************************************
'
Sub Iniz                                       ' Inizializzazione periferiche
   Print Chr(cler);                            ' cancellazione dello schermo
   Print "Demo K51-AVR scrittura EEPROM IC4(24c0x) tramite GPC F2 rel.1.1 22/05/2000"
   Print
   Print " 1) Incrementa l'indirizzo di scrittura"
   Print " 2) Decrementa l'indirizzo di scrittura"
   Print " 3) Convalida l'indirizzo di scrittura"
   Print " 4) Esci"
   Print
   Print "Premi uno dei 4 tasti sulla tastiera del P.C."
   Do
      I2creceive Rsaa1064 , Valore             ' leggo il registro di stato
   Loop Until Valore = 0                       ' attendo accensione SAA1064
   I2cstart                                    ' sequenza di Start per I2CBUS
   I2cwbyte Wsaa1064                           ' comunico lo Slave address
   I2cwbyte Ctb                                ' Punto al registro di controllo
   I2cwbyte &B00100111                         ' bit0 =1 dynamic mode
                                          ' bit1 =1 digit 1+3 not blanked
                                          ' bit2 =1 digit 2+4 not blanked
                                          ' bit3 =0 no test segment
                                          ' bit4 =0 no 3mA segment current
                                          ' bit5 =1 6mA segment current
                                          ' bit6 =0 no 12mA segment current
                                          ' bit7 =0 indifferente
   I2cwbyte 0                                  ' scrive DY1 off
   I2cwbyte 0                                  ' scrive DY2 off
   I2cwbyte 0                                  ' scrive DY3 off
   I2cwbyte 0                                  ' scrive DY4 off
   I2cstop
End Sub
'
' ************* Legge/scrive su I2CBUS ******************************
' Questa procedura scrive o legge attraverso I2cBUS nel campo che va
' da &H000 fino &H7FF su IC4 (EEPROM 24cxx) o IC7 (RTC PCF8583).
' Parametri:
' Ingresso :   Ind as words, contiene indirizzo del dispositivo
'      Valore as byte, valore da scrivere
'      W_R as byte, = 0 scrivo, se = 1 leggo.
'      Utilizza 2 variabili globali : Hind e Lind tipo Byte.
' Uscita : Valore as byte, valore letto.
' *******************************************************************
'
Sub I2cbus(ind As Word , Valore As Byte , W_r As Byte)
                                          ' Legge/scrive su I2CBUS
   Hind = High(ind)                            ' prelevo il byte alto
   Lind = Low(ind)                             ' prelevo il byte basso
   Hind = Hind And 7                           ' prelevo i 3 bit bassi
   clr c                                  ' resetto il carry
   Rotate Hind , Left                          ' sposto a sinistra di 1 bit
   Hind = Hind Or Wee                          ' sommo lo slave address con scrittura
   If W_r = 0 Then                             ' controllo se devo leggere o scrivere
      I2cstart                                 ' sequenza di start
      I2cwbyte Hind                            ' slave address
      I2cwbyte Lind                            ' asdress of EEPROM
      I2cwbyte Valore                          ' valore da scrivere
      I2cstop                                  ' sequenza di stop
      Waitms 10                                ' ritardo di 10ms necessario alla
                                          ' EEPROM dopo ogni scrittura
   Else
      I2cstart                                 ' sequenza di start
      I2cwbyte Hind                            ' slave address
      I2cwbyte Lind                            ' asdress of EEPROM
      Hind = Hind Or Ree                       ' sommo lo slave address in lettura
      I2cstart                                 ' ripeto lo start
      I2cwbyte Hind                            ' slave address
      I2crbyte Valore , Nack                   ' leggo
      I2cstop                                  ' sequenza di stop
   End If
End Sub
'
' ***************** Converte un numero da 0 a F in 7 segmenti ***********
' Questa procedura converte una cifra da 0 a F nel formato 7 segmenti, se
' il valore e maggiore di F il display risulta spento.
' Parametri:
' Ingresso : dig as byte, valore da 0 a F
' Uscita : dig as byte, valore in formato 7 segmenti.
' ************************************************************************
'
Sub Digit (dig As Byte )                       ' Converte un numero da 0-F in 7 segmenti
   If Dig < 16 Then                            ' il numero risulta minore di 16
      Dig = Lookup(dig , Tab_7seg)             ' leggo in tabella il valore
   Else
      Dig = 0                                  ' se = 10 o superiore azzero
   End If
End Sub
'
' ***************** Converte 1 byte in due cifre HEX ********************
' Questa procedura converte 1 byte da 0 a 255 in due cifre esadecimali a
' 4 bit.
' Parametri:
' Ingresso : Valore as byte, valore da 0 a 255
' Uscita :  Cifh as byte, cifra del nibble alto
'    Cifl as byte, cifra del nibble basso
' ************************************************************************
'
Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converte un numero in due cifre HEX
   Cifh = Valore And &HF0                      ' prelevo i 4 bit alti
   Cifh = Cifh / 16                            ' sposto in basso i 4 bit alti
   Cifl = Valore And &H0F                      ' prelevo i 4 bit bassi
End Sub
'
' *********************** Visualizza un byte in HEX **********************
' Questa procedura permette di visualizzare un byte nel formato esadecimale.
' nei 2 display a destra. Es: 255= FFH, 32= 20H ecc.
' Parametri:
' Ingresso : Nb as byte, numero da visualizzare in HEX
' Uscita : nulla
' ************************************************************************
'
Sub Vis_byte (nb As Byte)                      ' visualizza un byte in HEX
      I2cstart                                 ' sequenza di START
      I2cwbyte Wsaa1064                        ' slave address
      I2cwbyte Dig1                            ' punto al diplay 1 (DY1)
      I2cwbyte 0                               ' spengo DY1
      I2cwbyte 0                               ' spengo DY2

      Call Cifre(nb , Cifh , Cifl)             ' converto il numero1 in 2 cifre HEX
      Call Digit(cifh)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY3

      Call Digit(cifl)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY4

      I2cstop                                  ' sequenza di stop
End Sub
'
' *********************** Visualizza una Word in HEX **********************
' Nei primi 2 display (DY1 e DY2) viene visualizzato il byte alto, mentre
' nei 2 rimanenti il byte basso (DY3 e DY4).
' Questa procedura permette di visualizzare una Word nel formato esadecimale.
' Es: 65535= FFFFH, 257= 101H ecc.
' Parametri:
' Ingresso : Nw as word, numero da visualizzare in HEX
' Uscita : nulla
' ************************************************************************
'
Sub Vis_word (nw As Word)
                  ' visualizza un byte in HEX
      I2cstart                                 ' sequenza di START
      I2cwbyte Wsaa1064                        ' slave address
      I2cwbyte Dig1                            ' punto al diplay 1 (DY1)
      Nb = High(nw)
      Call Cifre(nb , Cifh , Cifl)             ' converto il numero1 in 2 cifre HEX
      Call Digit(cifh)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY1

      Call Digit(cifl)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY2

      Nb = Low(nw)
      Call Cifre(nb , Cifh , Cifl)             ' converto il numero1 in 2 cifre HEX
      Call Digit(cifh)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY3

      Call Digit(cifl)                         ' converto la cifra in HEX in 7 seg.
      I2cwbyte Dig                             ' scrivo il display DY4

      I2cstop                                  ' sequenza di stop
End Sub
'
'
' ************* Tabella conversione per cifra a 7 segmenti da 0 a 15 *******
Tab_7seg:
' num.  0      1      2      3      4      5      6      7      8      9
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
' num.  A      b      C      d      E      F
Data &H77 , &H7C , &H39 , &H5E , &H79 , &H71
' **************************************************************************
'