Can't seem to get this to work on Port B..
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_LINES 2
DEFINE LCD_BITS 4
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
ADCON0 = %00000000
TRISB = %00000000
worda var word
worda = 12345
Lop:
pause 50
LCDOUT $fe, 1,"DEC =", dec worda
pause 1000
LCDOUT $fe, 1,"Value = ",dec worda,".",dec1 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec2 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec3 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec4 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec5 worda
pause 1000
GOTO LOP
END
Can someone take a look and see what I am doing wrong? Thanks Don
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_LINES 2
DEFINE LCD_BITS 4
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
ADCON0 = %00000000
TRISB = %00000000
worda var word
worda = 12345
Lop:
pause 50
LCDOUT $fe, 1,"DEC =", dec worda
pause 1000
LCDOUT $fe, 1,"Value = ",dec worda,".",dec1 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec2 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec3 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec4 worda
pause 1000
LCDOUT $fe, 1,"Value =", dec worda,".", dec5 worda
pause 1000
GOTO LOP
END
Can someone take a look and see what I am doing wrong? Thanks Don
Comment