' {$STAMP BS2}


    char VAR Byte
    Index VAR Byte
    Clr_Display CON 1
    EntryMode_Set CON 6
    Display_Off CON 8
    Display_On CON 14
    Modeset CON 56
    FourBit_Mode CON 40
    DIRB = %1110
    OUTB = %0000
    DIRH = %11111111
    OUTH = %00000000
    Msg DATA "Stamp with LCD"
main:
    PAUSE 150
    char = Modeset
    GOSUB lcdcmd
    char = Display_Off
    GOSUB LCDcmd
    char = Display_On
    GOSUB LCDcmd
    char = Clr_Display
    GOSUB LCDcmd
    GOSUB start
    END



LCDcmd:
    OUTH = char
    LOW 4
    PULSOUT 6, 1
    RETURN

LCDwr:
    OUTH = char
    HIGH 4
    PULSOUT 6, 1
    RETURN

Start:
    FOR index = 0 TO 13
    READ index, char
      GOSUB LCDwr
    NEXT
    RETURN 