' **********************************************************************
' ** File: Hello_it.BAS   -   Versione : 1.1  -  27 Gennaio 2006      **
' ** Compilatore: Bascom 8051 IDE e LIB 2.0.11.0                      **
' ** Scheda: CAN GM0                                                  **
' ** 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 dei LEDs di bordo.
'
'N.B. Verificare ed eventualmente aggiungere il file 8951CC03.DAT nella
'     directory principale del BASCOM 8051. Inoltre nella finestra
'     Options | Compiler | Misc  effettuare i seguenti settaggi:
'        Register File = 8951CC03.DAT
'        Byte End(Hex) = A0
'        Size warning  = non attivato
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile "8951cc03.dat"
$romstart = &H0                           ' Indirizzo inizio codice in FLASH
$ramstart = &H0                           ' Indirizzo inizio RAM esterna
$ramsize = &H400                          ' 1K 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 uscite le linee TTL collegate ai LEDs
   P2.6 = 1
   P2.7 = 1
   Do
      ' Accende il LED1
      P2.6 = 0
      ' Spegne il LED2
      P2.7 = 1
      ' Pausa di 200 millisecondi
      Waitms 200
      ' Spegne il LED1
      P2.6 = 1
      ' Accende il LED2
      P2.7 = 0
      ' Pausa di 200 millisecondi
      Waitms 200
   ' Ripete all'infinito
   Loop
End
'
'********************** Fine del programma Main ************************
'