brojac var byte
provera var byte
taster var bit
TRISA = %11111101
brojac=0
DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 0
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 3
DEFINE LCD_LINES 2
pause 100
cekaj0:
lcdout $FE, $80, "BROJ ="
gosub proveri_ulaz
if taster = 0 then cekaj0:
cekaj1:
gosub proveri_ulaz
if taster = 1 then cekaj1
brojac=brojac + 1
lcdout $FE, 2
lcdout "BROJ ", #brojac
if brojac = 10 then
porta.1 = 1
LCDOUT $FE, $C0
lcdout " KRAJ"
endif
goto cekaj0
proveri_ulaz:
taster=0
for provera = 0 to 100
if PORTA.0 = 1 then return
pauseus 100
next provera
taster = 1
return
end
MILAN ANDRIC