XProfan

DEF @OUT32(2) ! "INPOUT32.DLL", "Out32"
DEF @INP32(1) ! "INPOUT32.DLL", "Inp32"
Def delay(1) !"KERNEL32","Sleep"
declare portaddr%,portbyte&, Control%,Data%
declare EN%,RS%,RW%
cls
Portaddr%=$378
DATA%=Portaddr%
Control%=Portaddr%+2

proc set_control

    PARAMETERS EN%,RW%,RS%
    EN%=abs(EN%-1)
    PortByte&=inp32(CONTROL%)
    Portbyte&=setbit(Portbyte&,0,EN%)
    Portbyte&=setbit(Portbyte&,1,RW%)
    Portbyte&=setbit(Portbyte&,2,RS%)
    out32(CONTROL%,portbyte&)
    delay(20)

endproc

proc befehl

    parameters byte&
    RS%=0
    set_control 1,RW%,RS%
    out32(DATA% , byte&)
    set_control 0,RW%,RS%

endproc

proc Zeichen

    parameters byte&
    RS%=1
    set_control 0,RW%,RS%
    out32(DATA% , byte&)
    set_control 1,RW%,RS%
    print chr$(byte&);

endproc

proc lcd_init

    rw%=1
    initialaisierung
    befehl($000f)
    befehl($0001)
    cls
    locate 1,1
    befehl($0038)

endproc

lcd_init
zeichen ord("T")
zeichen ord("e")
zeichen ord("s")
zeichen ord("t")
zeichen ord("l")
zeichen ord("a")
zeichen ord("u")
zeichen ord("f")
befehl %11000000 sprung zweite zeile
locate 2,1
zeichen ord("b")
zeichen ord("e")
zeichen ord("s")
zeichen ord("t")
zeichen ord("a")
zeichen ord("n")
zeichen ord("d")
zeichen ord("e")
zeichen ord("n")
waitinput