' ****************************************************************
' ** File: Hello_it.bas  -  Ver. 1.1                            **
' ** Compilatore:  PIC Basic PRO                                **
' ** IDE: MicroCode Studio Plus                                 **
' ** Versione Compilatore: 2.45                                 **
' ** Scheda: CAN PIC                                            **
' **   GRIFO(R)   via Dell'Artigiano 8/6                        **
' **   40016 S. Giorgio di Piano (BO)                           **
' **   Tel. +39 051 892052                 Fax. +39 051 893661  **
' **   http://www.grifo.com                http://www.grifo.it  **
' ** by Graziano Gaiba                        del 31.01.2006    **
' ****************************************************************
'
' Hello_it.BAS - Rel. 1.1 - 31.01.2006 by Graziano Gaiba
' Programma precaricato nei mini moduli.
' Effettua il lampeggiamento dei LEDs di bordo.
'
'
' **************** Definizioni del compilatore ******************
'
DEFINE OSC 40 ' Frequenza oscillatore (4 x 10 MHz mediante PLL)
'DEFINE HSER_RCSTA 90h  ' Abilita il ricevitore
'DEFINE HSER_TXSTA 20h  ' Abilita trasmettitore
'DEFINE HSER_BAUD 19200 ' Baud Rate
'
'
'************************** Programma principale *******************************
'
main:
    ' Imposta le linee di controllo dei LEDs come uscite
    TRISD.0=0   ' LD1
    TRISD.1=0   ' LD2
    
    ADCON1=$0f        ' Imposta come I/O digitale i pin AN0..10
    CMCON=$07         ' Disabilita il comparatore analogico
    ECCP1CON = 0      ' Disabilita il modulo ECCP

   
   ' Alternanza di circa due lampeggi al secondo    
for_ever:
    ' Accende LD1 e spegne LD2
    PORTD.0=0   
    PORTD.1=1
    pause 200
    ' Spegne LD1 e accende LD2
    PORTD.0=1   
    PORTD.1=0
    pause 200
    
    goto for_ever
end