' ****************************************************************
' ** File: Hello_uk.bas  -  Ver. 1.1                            **
' ** Compiler:  PIC Basic PRO                                   **
' ** IDE: MicroCode Studio Plus                                 **
' ** Compiler version: 2.45                                     **
' ** Hardware: GMM 876                                          **
' **   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                            31.01.2006    **
' ****************************************************************
'
' Hello_uk.BAS - Rel. 1.1 - 31.01.2006 by Graziano Gaiba
' Program preloaded im mini modules.
' Makes the on-board LED blink.
'
'
' ******************** Compiler definitions **********************
'
DEFINE OSC 20 ' Oscillator frequency 20 MHz
'DEFINE HSER_RCSTA 90h  ' Enable EUSART serial receiver
'DEFINE HSER_TXSTA 20h  ' Enable EUSART serial transmitter
'DEFINE HSER_BAUD 19200 ' Baud Rate
'
'
'************************** Main Program *******************************
'
main:
    ' Set as output LED control signal
    TRISB.4 = 0     
    
    ADCON1=$0f        ' Set as digital I/O pins AN0..12
    CMCON=$07         ' Set as digital I/O pins RA0..4

   
   ' Blinks about twice per second    
for_ever:
    ' Turn on LED
    PORTB.4 = 0
    pause 200
    ' Turn off LED
    PORTB.4 = 1
    pause 200
    
    goto for_ever
end