' ********************************************************************** ' ** Programma: S1DEB3.BAS - Versione : 1.1 - 01 Giugno 1999 ** ' ** Compilatore : BASCOM LT, (IDE V.1.20, LIB V.1.27) ** ' ** Scheda : GPC(r) 553 ** ' ** 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: Graziano Gaiba ** ' ********************************************************************** ' ' Questo programma riporta lo stato del port 4 sulle linee del port 1. ' Per facilitare la visualizzazione dello stato delle linee è necessario ' collegare con un cavo flat a 20 poli, il connettore CN5 della GPC(r) 553 ' al connettore CN15 della DEB 01. ' ATTENZIONE! Per indirizzare correttamente le linee dati del microcontrollore ' 80552 e' necessario selezionare il relativo register file. Per fare questo ' bisogna selezionare l'etichetta Misc dal menu Option/Compiler, clickare ' sulla casella di testo Register file e selezionare il file 80552.DAT. ' '****************** Direttive del compilatore ************************** $romstart = &H8050 ' indirizzo di partenza del codice macchina $ramstart = &HD000 ' indirizzo di partenza della area dati $ramsize = &H2800 ' pongo a 10K la area dati $crystal = 22118400 ' frequenza di clock del microcontrollore $baud = 19200 ' velocità di comunicazione RS-232 $large ' indirizzamento a 16 bit ' '****************** Dichiarazione delle variabili ********************** ' Dim Portc As Byte ' Memorizza lo stato di Port C ' '************************* Programma main ****************************** ' Waitms 1 ' Ritardo per assestamento dei segnali Print " Programma dimostrativo 3 per la sezione 1 della scheda DEB(r) 01" Print : Print " Riporta sul port 4, lo stato del port 1" Print : Print " Esecuzione in corso..." Do P4 = P1 ' Scrive port 1 su port 4 Loop End ' '************************ Fine del programma *************************** '