' ********************************************************************** ' ** Program: Hello_uk.BAS - Version : 1.1 - 30 January 2006 ** ' ** Compiler: Bascom 8051 IDE and LIB 2.0.11.0 ** ' ** Hardware: GMM AC2 ** ' ** 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 - 30.01.2006 by Graziano Gaiba ' Program preloaded im mini modules. ' Makes the on-board LEDs blink. ' ' NOTE: Check presence of 89C51AC2.DAT file in BASCOM-8051 root directory and ' copy it if not available; furthermore inside "Options | Compiler | Misc" ' window perform the following settings: ' Register File = 89C51AC2.DAT ' Byte End(Hex) = A0 ' Size warning = Not selected ' '*********************************************************************** ' '*************************** Compiler directives *********************** ' $regfile "89C51AC2.DAT" $romstart = &H0 ' Start address of code in FLASH $ramstart = &H0 ' Start address of external RAM $ramsize = &H400 ' 1K bytes of external RAM $crystal = 14745600 ' Microprocessor clock frequency $baud = 19200 ' Serial communication speed $large ' 16 bit addressing $map ' Generates info for each line ' ' ' '***************************** Main program **************************** ' Main: ' Set as output the TTL signals connected to the LEDs P2.6 = 1 P2.7 = 1 Do ' Turn on LED1 P2.6 = 0 ' Turn off LED2 P2.7 = 1 ' Pause for 200 milliseconds Waitms 200 ' Turn off LED1 P2.6 = 1 ' Turn on LED2 P2.7 = 0 ' Pause for 200 milliseconds Waitms 200 ' Loops forever Loop End ' '************************ End of Main program ************************** '