LCD display

Only 4 data wires are connected - only Port B required

LCD display driver
- eva_test_lcd.bas

Define CONF_WORD = 0x3f72
Define CLOCK_FREQUENCY = 20
AllDigital
' LCD settings for EVA board are all defaults
' as specified by the Oshonsoft basic compiler notes
'EVA RW line goes to Earth
Define LCD_BITS = 4
Define LCD_DREG = PORTB
Define LCD_DBIT = 4
Define LCD_RSREG = PORTB
Define LCD_RSBIT = 3
Define LCD_RWBIT = 0
Define LCD_EREG = PORTB
Define LCD_EBIT = 2
Define LCD_READ_BUSY_FLAG = 1
Lcdinit 3 'curser type
Dim a As Word
a = 65535
loop:
Lcdcmdout LcdClear
Lcdout "I am counting!"
Lcdcmdout LcdLine2Home
Lcdout #a
a = a - 1
WaitMs 1000
Goto loop
LCD display driver - minimum required since the LCD is wired as the default
- eva_test_lcd_default.bas

AllDigital
'this assumes the HD44780 LCD is connected to
' port B as in the palmtronics board - all defaults assumed
Lcdinit 3 'curser type
Dim a As Word
a = 65535
loop:
Lcdcmdout LcdClear
Lcdout "I am counting!"
Lcdcmdout LcdLine2Home
Lcdout #a
a = a - 1
'WaitMs 1000
Goto loop