Nějak se v tom plácám a pořád nic

Kód: Vybrat vše
;20M2
symbol baud = N4800_32
symbol rx = C.0
symbol rs = C.2
symbol horni = C.1
symbol dolni = C.3
init:
gosub lcd_init
main:
serin RX,baud,b1
if b1 < 253 then
pinsB = b1
pulsout horni,1 ;pulsout dolni,1
goto main
else if b1 = 254 then
low rs
serin RX,baud,b1
pinsB = b1
pulsout horni,1 ;pulsout dolni,1
high rs
goto main
end if
lcd_init:
dirsC = %10111110
dirsB = %11111111
pause 15
pinsB = %00110000
pulsout horni,1
pulsout dolni,1
pause 5
pulsout horni,1
pulsout dolni,1
pulsout horni,1
pulsout dolni,1
setfreq m32
pinsB = %00111000
pulsout horni,1
pulsout dolni,1
pinsB = %00000001
pulsout horni,1
pulsout dolni,1
pause 8
pinsB = %00000010
pulsout horni,1
pulsout dolni,1
pinsB = %00000110
pulsout horni,1
pulsout dolni,1
pause 1
pinsB = %00001100
pulsout horni,1
pulsout dolni,1
high rs
return
Kód: Vybrat vše
;08M2
symbol baud=N4800
pause 500
serout C.1, baud, (254,1) ;smaže lcd
start:
serout C.1, baud, (254,128) ;první řádek, první pozice
serout C.1, baud, ("abcdefghi")
serout C.1, baud, (254,192) ;druhý řádek, první pozice
serout C.1, baud, ("123456789")
pause 1000
serout C.1, baud, (254,1) ;smaže lcd
pause 1000
goto start