program MyProject

' Declarations section
dim i, MyPWM,Lamp as byte
dim j as word
dim TimeDoorOpen as longint
dim TimeLyfe as longint

sub procedure SetPwm(dim MyData as byte)
CCPR1L=MyData

end sub

sub procedure StartPwm()
PR2 = %01100101
T2CON = %00000101
CCPR1L = %00000000
CCP1CON = %00001100
end sub

sub procedure StopPwm()
CCP1CON = %00000000
end sub

main:
' Main program
ANSEL= %00000000
TRISIO=%00100000 'GPIO.5 as input - door open
MyPWM=0
TimeDoorOpen=0
'Lamp=0
TimeLyfe=11250000 '20 minut
GPIO.2=0

StartPwm()

start1:
'если открыта дверь взводим шим. включаем лампу, считаем время
if GPIO.5=0 then 'open door - turn on lamp
delay_us(10)
inc(TimeDoorOpen)
if TimeDoorOpen<TimeLyfe then 'если время не вышло пусть светит
SetPwm(255)
MyPWM=255
else
TimeDoorOpen=TimeLyfe+1
'GPIO.2=0 'Lamp off
IF MyPWM>10 then
'GPIO.2=1
SetPWM(MyPWM)
for j=1 to 500
nop
next j
dec(MyPWM)
end if

if MyPWM=10 then
MyPWM=0
SetPWM(MyPWM)
end if
end if
end if

'Дверь закрыта. Цикл плавного тушения
if GPIO.5=1 then 'turn on lamp
delay_us(10)
TimeDoorOpen=0 'дверь закрыли, можно сбросить счетчик открытой двери
IF MyPWM>10 then
'GPIO.2=1
SetPWM(MyPWM)
for j=1 to 500
nop
next j
dec(MyPWM)
end if

if MyPWM=10 then
MyPWM=0
SetPWM(MyPWM)
end if
end if

goto start1

end.