'***        chuj            ***
'*** Autor: Jacek Ciesielka ***
'*** II/stc/UP/Krakow/2019  ***
'******************************

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$sim

Deflcdchar 0,32,2,4,32,14,17,17,17 ' ń

'===========Konfiguracja=======
Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.3

Config Porta = Input
Config Portd = Output
Portd.0 = 0
Portd.7 = 0
Dim czas As Word
czas = 35000
Dim stan As Integer
stan = 1

Do
   Debounce Pina.0 , 0 , pom , Sub
   Debounce Pina.7 , 0 , nieb , Sub                   'stop
Loop until stan = 1


'===========Podprogramy=========

pom:
cls
Locate 2 , 7
Lcd "Pomara", char(0) "czowy"
PORTD.0 = 1

nieb:
cls
Locate 2 , 7
Lcd "Niebieski"
PORTD.0 = 0
PORTD.7 = 1
Waitms czas
PORTD.7 = 0
END