' ********************************************************************** ' ** Program: Hello_uk.BAS - Version : 1.1 - 27 January 2006 ** ' ** Compiler: BASCOM AVR, (IDE and LIB V.1.11.7.9) ** ' ** Hardware: CAN AVR ** ' ** Firm: 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 ** ' ** ** ' ** Made by: Graziano GAIBA ** ' ********************************************************************** ' ' Hello_uk.BAS - Rel. 1.1 - 27.01.2006 by Graziano Gaiba ' Program preloaded im mini modules. ' Makes the on-board LED blink. ' ' !!!!!!!!!!!!!!!!!!!!!!!!!!!! IMPORTANT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' In menu Option | Compiler | Chip, set: ' ' Chip: m128can.dat ' HW Stack: at least 64 ' Soft Stack: at least 32 ' Framesize: at least 64 ' '*********************************************************************** ' '*************************** Compiler directives *********************** ' ' Descriptor file for microcontroller registers $regfile = "m128can.dat" ' Microcontroller working frequency $crystal = 12000000 ' Baud rate for possible serial communications (not used here) $baud = 19200 ' ' ' '***************************** Main program **************************** ' Main: ' Set as output the TTL signals connected to the LEDs Ddra.0 = 1 Ddra.1 = 1 Do ' Turn on LD2 Porta.1 = 0 ' Turn off LD1 Porta.0 = 1 ' Pause for 200 milliseconds Waitms 200 ' Turn off LD2 Porta.1 = 1 ' Turn on LD1 Porta.0 = 0 ' Pause for 200 milliseconds Waitms 200 ' Loops forever Loop End ' '************************ End of Main program ************************** '