Symbol bitRS = bit8
Symbol bitWR = bit9
Symbol bitE = bit10
Symbol bitD4 = bit12
Symbol bitD5 = bit13
Symbol bitD6 = bit14
Symbol bitD7 = bit15
Initialisation:
HI2cSetup I2CMASTER, $4E, I2CSLOW, I2CBYTE
b0 = $33 : Gosub SendB0AsInitByte
b0 = $33 : Gosub SendB0AsInitByte
b0 = $32 : Gosub SendB0AsInitByte
b0 = $28 : Gosub SendB0AsCommandByte
b0 = $0C : Gosub SendB0AsCommandByte
b0 = $06 : Gosub SendB0AsCommandByte
b0 = $01 : Gosub SendB0AsCommandByte
Pause 2
MainProgram:
b0 = $80 : Gosub SendB0AsCommandByte
b0 = "L" : Gosub SendB0AsDataByte
b0 = "i" : Gosub SendB0AsDataByte
b0 = "n" : Gosub SendB0AsDataByte
b0 = "e" : Gosub SendB0AsDataByte
b0 = " " : Gosub SendB0AsDataByte
b0 = "1" : Gosub SendB0AsDataByte
b0 = $A0 : Gosub SendB0AsCommandByte
b0 = "L" : Gosub SendB0AsDataByte
b0 = "i" : Gosub SendB0AsDataByte
b0 = "n" : Gosub SendB0AsDataByte
b0 = "e" : Gosub SendB0AsDataByte
b0 = " " : Gosub SendB0AsDataByte
b0 = "2" : Gosub SendB0AsDataByte
b0 = $C0 : Gosub SendB0AsCommandByte
b0 = "L" : Gosub SendB0AsDataByte
b0 = "i" : Gosub SendB0AsDataByte
b0 = "n" : Gosub SendB0AsDataByte
b0 = "e" : Gosub SendB0AsDataByte
b0 = " " : Gosub SendB0AsDataByte
b0 = "3" : Gosub SendB0AsDataByte
b0 = $E0 : Gosub SendB0AsCommandByte
b0 = "L" : Gosub SendB0AsDataByte
b0 = "i" : Gosub SendB0AsDataByte
b0 = "n" : Gosub SendB0AsDataByte
b0 = "e" : Gosub SendB0AsDataByte
b0 = " " : Gosub SendB0AsDataByte
b0 = "4" : Gosub SendB0AsDataByte
Do : Loop
SendB0AsInitByte:
Pause 15
bitWR = 0 ; Keep WR signal low
SendB0AsCommandByte:
bitRS = 0 ; Send byte as a command
SendB0AsDataByte:
bitD4 = bit4 ; Send msb first
bitD5 = bit5
bitD6 = bit6
bitD7 = bit7
bitE = 1
b2 = b1 ; b2 holds msb with E set
bitE = 0 ; b1 holds msb with E clear
HI2cOut b1, ( b2, b1 )
bitD4 = bit0 ; Send lsb second
bitD5 = bit1
bitD6 = bit2
bitD7 = bit3
bitE = 1
b2 = b1 ; b2 holds lsb with E set
bitE = 0 ; b1 holds lsb with E clear
HI2cOut b1, ( b2, b1 )
bitRS = 1 ; Send data byte next time
Return