merlinknight
- 1st March 2007, 17:16
Hello, i am a newbie on this and was working on the 18f452. It was going great. I installed an 18f4520 to replace the 18f452 and now the lcd does not work.
Any help would greatly be appreciated. Can't figure out why.
I am not using the pro version . On order.
DEFINE OSC 4
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_RWREG PORTA
DEFINE LCD_RWBIT 2
ADCON1=$07
TRISA = $00
TRISD = $00
PORTA.2 = 0
PAUSE 500
LOOP:
LCDOUT $FE, 1
PAUSE 1000
LCDOUT $FE, $0F
PAUSE 1000
LCDOUT $FE, $80,"Hello "
PAUSE 5000
LCDOUT $fe, $c0,";)"
PAUSE 5000
GOTO LOOP
Any help would greatly be appreciated. Can't figure out why.
I am not using the pro version . On order.
DEFINE OSC 4
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_RWREG PORTA
DEFINE LCD_RWBIT 2
ADCON1=$07
TRISA = $00
TRISD = $00
PORTA.2 = 0
PAUSE 500
LOOP:
LCDOUT $FE, 1
PAUSE 1000
LCDOUT $FE, $0F
PAUSE 1000
LCDOUT $FE, $80,"Hello "
PAUSE 5000
LCDOUT $fe, $c0,";)"
PAUSE 5000
GOTO LOOP