Code:
DEFINE OSC 8
define LCD_DREG  PORTB          
define LCD_DBIT    0            
define LCD_RSREG PORTB          
define LCD_RSBIT   5
define LCD_EREG  PORTB
define LCD_EBIT    4
define LCD_BITS    4
define LCD_LINES   2
osccon=$70:trisb=0:trisa=0:cmcon=7:ansel=0:ansel=0:A var word:di var porta.1
st var porta.4:di=1: pause 500:di=0: pause 500:st=1: pause 500:st=0: pause 1000
main: di=1:freqout st,500,625:di=0:freqout st,500,625:pause 1000:goto main
Run that and see what happens. I'll explain later... I think I know what the deal is, but I'm not sure.