' **********************************************************************
' ** File: Hello_it.BAS   -   Versione : 1.1  -  27 Gennaio 2006      **
' ** Compilatore: Bascom 8051 IDE e LIB 2.0.11.0                      **
' ** Scheda: GMM 5115                                                 **
' ** 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                      **
' **                                                                  **
' ** Realizzato da:  Graziano GAIBA                                   **
' **********************************************************************
'
' Hello_it.BAS - Rel. 1.1 - 27.01.2006 by Graziano Gaiba
' Programma precaricato nei mini moduli.
' Effettua il lampeggiamento del LED di bordo.
'
'N.B. Verificare ed eventualmente aggiungere il file 89C5115.DAT nella
'     directory principale del BASCOM 8051. Inoltre nella finestra
'     Options | Compiler | Misc  effettuare i seguenti settaggi:
'        Register File = 89C5115.DAT
'        Byte End(Hex) = A0
'        Size warning  = non attivato
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile "89c5115.dat"
$romstart = &H0                           ' Indirizzo inizio codice in FLASH
$ramstart = &H0                           ' Indirizzo inizio RAM esterna
$ramsize = &H100                          ' 256 bytes di RAM esterna
$crystal = 14745600                       ' F quarzo del microcontrollore
$baud = 19200                             ' Velocità comunicazione seriale
$large                                    ' Indirizzamento a 16 bit
$map                                      ' Genera informazioni per ogni riga
'
'
'
'*************************** Programma Main ****************************
'
Main:
   ' Imposta come uscita la linea TTL collegata al LEDs
   P1.0 = 1
   Do
      ' Accende il LED
      P1.0 = 0
      ' Pausa di 200 millisecondi
      Waitms 200
      ' Spegne il LED
      P1.0 = 1
      ' Pausa di 200 millisecondi
      Waitms 200
   ' Ripete all'infinito
   Loop
End
'
'********************** Fine del programma Main ************************
'