'LCD Test '-------------------------------------------------------------- $regfile = "m8def.dat" 'ATMega 8L $crystal = 4000000 'Quarz: 4 MHz Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portd.6 , Rs = Portd.7 Config Portd = &00000000 Config Portd = Output Config Lcdbus = 4 Config Lcdmode = Port Do Lcd "Test" Loop End