' ********************************************************************** ' ** Program name: PPOF2.BAS - Version : 1.1 - 22 May 2000 ** ' ** Compiler : BASCOM 8051, (IDE V.1.0.0.20, LIB V.1.20) ** ' ** Board : K51-AVR and GPC F2 ** ' ** Firm: 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 ** ' ** ** ' ** Written by: Adriano Pedrielli ** ' ********************************************************************** ' ' Questo programma attiva una linea alla volta in sequenza sulle 8 linee ' collegate a IC1 (PCF8574A o 8574P, vedi dichiarazione delle costanti),tramite ' 2 linee TTL pilotate dalla scheda GPC F2 avente un microcontrollore della ' famiglia 51. ' ' 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 ' ********************************************************************** ' Commentare la dichiarazione del componente non usato ' Dim Pcf8574 As Const &H3C ' Slave address PCF8574A Dim Wpcf8574 As Const &H78 ' Slave address PCF8574A in Write Dim Rpcf8574 As Const &H79 ' Slave address PCF8574A in Read 'Dim Pcf8574 As Const &H24 ' Slave address PCF8574P 'Dim Wpcf8574 As Const &H48 ' Slave address PCF8574P in Write 'Dim Rpcf8574 As Const &H49 ' Slave address PCF8574P in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim Pout As Byte ' valore per le linee di uscita Dim X As Byte ' uso generico Dim Valore As Byte ' valore di conteggio Dim T As Byte ' codice del tasto premuto ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni Do Do Valore = 1 ' valore di partenza For X = 1 To 7 ' inizializzo il ciclo Pout = Not Valore ' complemento in valore I2csend Wpcf8574 , Pout ' setto le uscite Valore = Valore * 2 ' shift dei bit a sinistra Waitms 255 ' ritardo Next X For X = 1 To 7 ' inizializzo il ciclo Pout = Not Valore ' complemento in valore I2csend Wpcf8574 , Pout ' setto le uscite Valore = Valore / 2 ' shift dei bit a destra Waitms 255 ' ritardo Next X T = Inkey ' leggo un carattere dalla seriale Loop Until T <> 0 ' esco se ho ricevuto un carattere If T = 27 Then ' e' stato premuto il tasto ESC Exit Do ' esco dal ciclo infinito Else Print Chr(bel); ' tasto non valido End If Loop Ljmp 0 ' esco e rilancio il monitor 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 8 output su IC1(PCF8574A o 8574P) tramite GPC F2"; Print " rel.1.1 22/05/2000" Print Print "Premi ESC per uscire" 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 92 ' scrive DY1 "o" I2cwbyte 28 ' scrive DY2 "u" I2cwbyte 120 ' scrive DY3 "t" I2cwbyte 0 ' scrive DY4 off I2cstop End Sub '