'  barimfiszámláló' PicBasic program 
'     LCDMER counter 16f887  pickit2 USB

	include "modedefs.bas"

DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTc
DEFINE LCD_RSBIT 7
DEFINE LCD_EREG PORTc
DEFINE LCD_EBIT 6
DEFINE LCD_BITS 4 ' rem 8 bit
DEFINE LCD_LINES 4
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
DEFINE OSC 4




HOROG	VAR PORTB.4
JEL	VAR PORTB.5
RESET	VAR PORTD.4
y	var byte

c1	var word
c2	var word
b11	var c1.lowbyte
b12	var c1.highbyte
b21	var c2.lowbyte
b22	var c2.highbyte

i:

read 1,b11:read 2,b12:read 3,b21:read 4,b22
        
OUTPUT RESET
anselh=0
trisb=255
pause 500	
i1:	Lcdout $fe, 1    
	lcdout "NAPI =",dec c1," C",dec jel
		LCDOUT $FE,$C0
	LCDOUT "SUM  =",dec c2," H",dec horog
i2:        INPUT RESET 
	IF RESET=0 THEN TOROL
	OUTPUT RESET
	IF HOROG=1 THEN GOSUB FIGYEL	
        if jel=0 and horog=0 then i2
	pause 50 
goto i1

FIGYEL:
	PAUSE 10
 	IF HOROG=0 THEN RETURN
	LCDOUT $FE,$C0
	LCDOUT "SUM  =",dec c2," H",dec horog
	IF JEL=1 THEN gosub szamol
return




szamol:
	PAUSE 10
	IF JEL=0 THEN RETURN
	FIGYVAR:
        	IF HOROG=1 THEN FIGYVAR
	C1=C1+1
	C2=C2+1
		Lcdout $fe, 1
	lcdout "NAPI db.=",dec c1
		LCDOUT $FE,$C0
	LCDOUT "SUM  db.=",dec c2
		write 1,b11:write 2,b12:write 3,b21:write 4,b22
        
return

  torol:
    if reset=1 then i1
	
	output reset
        
	pause 500
     	Lcdout $fe, 1
	lcdout "NAPI db.=",dec c1
		LCDOUT $FE,$C0
	LCDOUT "Nap STORNO 3 sec"

	c1=0
	write 1,b11:write 2,b12:write 3,b21:write 4,b22
	pause 3000
	
    goto i1