'******************************************************************************************
' this program is for testing of read and write word array in to eeprom and display on lcd
'******************************************************************************************
define LCD_DREG PORTD
define LCD_DBIT 4
define LCD_RSREG PORTD
define LCD_RSBIT 2
define LCD_EREG PORTD
define LCD_EBIT 3
define LCD_BITS 4
define LCD_LINES 2
H var byte
L var byte
m var word [1]
main:
m[0] = $4142 ' 41 = A and 42 = B
write 1,m.highbyte [0]
write 2,m.lowbyte [0]
read 1,H
read 2,L
LCDOut $FE,1,H
Pause 2000
LCDOut $FE,1,L
Pause 2000
goto main
end