E		CON	1                       ' LCD Enable pin  (1 = enabled)
RS              CON     3                       ' Register Select (1 = char)
char            VAR     Byte                    ' character sent to LCD
LCDout		VAR	OutH
' -------------------------------------------------------------------------
Initialize:
  DirL = %11111111				' setup pins for LCD
  DirH = %11111111
  PAUSE 500
  LCDout = %00111000				' function set
  PULSOUT E,1
  PAUSE 5
  PULSOUT E,1
  PULSOUT E,1
  char = %00001100	
  GOSUB LCDcommand
  char = %00000110
  GOSUB LCDcommand
  char = %00000010
  GOSUB LCDcommand
  char = %00000001
  GOSUB LCDcommand

  char = "H"
  GOSUB LCDwrite
  char = "i"
  GOSUB LCDwrite
  char = $1C
  loop:
  GOSUB LCDcommand
  PAUSE 150
  goto loop 
  END
' -------------------------------------------------------------------------

LCDcommand: 
  LOW RS					' enter command mode
  OutD = char.HighNib
  OutB = char.LowNib
  HIGH E
  LOW E
  HIGH RS
  RETURN
LCDwrite:
  OutD = char.HighNib
  OutB = char.LowNib
  HIGH E
  LOW E
  RETURN