'---------------------------------------------------_ 'name : lauflicht2 mit display ] 'micro : Mega32 ] ' benn ] '-------------------------------------------------! $regfile = "m32def.dat" ' specify the used micro $crystal = 1000000 ' used crystal frequency $baud = 110000 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 10 ' default use 40 for the frame space config PORta.0 = output config porta.1 = output config porta.2 = output config porta.3 = output config porta.6 = output config porta.4 = output config portb.0 = output config portc.0 = output config porta.7 = output config portd.7 = output Lcd_db4 Alias Portd.1 Lcd_db5 Alias Portc.4 Lcd_db6 Alias Portc.3 Lcd_db7 Alias Portd.0 Lcd_e Alias Portc.1 Lcd_rs Alias Portc.2 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Lcd_db4 , Db5 = Lcd_db5 , Db6 = Lcd_db6 , Db7 = Lcd_db7 , E = Lcd_e , Rs = Lcd_rs = lcd Config Lcdbus = 8 Lcddata 65 Lcdcmd 1 do cls locate 1 , 1 print " hallo " wait 1 locate 2 , 1 Print "~~~**~~~" wait 5 cls set PORTD.7 waitms 10 reset PORTD.7 set PORTa.0 waitms 13 set PORTa.1 waitms 13 set PORTa.2 waitms 13 set PORTa.3 waitms 13 set PORTa.4 waitms 13 set PORTb.0 waitms 13 set PORTc.0 waitms 13 set PORTA.6 waitms 13 set porta.7 waitms 13 waitms 325 reset PORTA.0 waitms 100 reset PORTA.1 waitms 100 reset PORTA.2 waitms 100 reset PORTA.3 waitms 100 reset PORTA.4 waitms 100 reset PORTB.0 waitms 100 reset PORTC.0 waitms 100 reset PORTA.6 waitms 100 reset PORTA.7 waitms 100 loop end '---------------------------------------------------------------------------