#CONFIG
__CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _MCLRE_OFF & _BOD_OFF & _CP_OFF & _PWRTE_ON
#ENDCONFIG
DEFINE OSC 4
'-------------------------- PDESAVANJA -------------------------------
ANSEL = $30
WPU = $37
CMCON0 = 7 ' Analog comparators off
ANSEL = %00000000 ' select all digital
OSCCON = %01110101 ' 8Mhz
TRISIO = %111100
'------------------------PROOGRAM------------------------------------
'DEFINMISANJE PORTOVA
symbol otvara = GPIO.0
LOW otvara
symbol zatvara = GPIO.1
low zatvara
symbol komanda1 = GPIO.2
input komanda1
symbol komanda2 = GPIO.3
input komanda2
symbol magnet1 = GPIO.4
input magnet1
symbol magnet2 = GPIO.5
input magnet2
pocetak:
do while komanda1 = 0
loop
do while komanda2 = 0
loop
do
if komanda1 = 0 then goto digni
if komanda2 = 0 then goto spusti
loop
'****************************************************
digni:
do while komanda1 = 0
loop
otvara = 1
pause 200
do while magnet1 = 1
if komanda1 = 0 then
otvara = 0
goto pocetak
endif
loop
otvara = 0
goto pocetak
spusti:
do while komanda2 = 0
loop
zatvara = 1
pause 500
do while magnet2 = 1
if komanda2 = 0 then
zatvara = 0
goto pocetak
endif
loop
zatvara = 0
goto pocetak
end