Pomoc uvezi jednog programa

Pozdrav svima.Zatrebala mi je nabrzinu neka PWM regulacija za neki grejac i da negubim vreme nabrzinu sam nesto skinuo sa interneta,sve to lepo radi ali malo me je zainteresovao taj program sto sam skinuo jer neke stvari nekapiram pa da zamolim za neko krace objasnjenje
Postavicu ceo program pa ovaj deo izmedju linija

define osc 4
PORTA=0:portb=0
TRISB=%00111111
TRISA=%00000000


ON INTERRUPT GoTo KESME 'kesme oluþursa KESME adlý etikete git.
OPTION_REG=%00001000 'Pull up dirençleri ÝPTAL- Bölme oraný 1/1
INTCON=%10100000 'Kesmeler aktif ve TMR0 kesmesi aktif

CMCON=7 '16F628 de komparatör pinleri iptal hepsi giriþ çýkýþ

R var byte

RH VAR BYTE

RL VAR BYTE

I VAR BYTE


CLEAR
'PAUSE 200
TMR0=243
R=50

RH=r:RL=100-rH

PORTA=%00000111


BASLA:
IF PORTB.0=0 THEN
R=R+1:IF R=100 THEN R=99
GOSUB DELAY
ENDIF
IF PORTB.1=0 THEN
R=R-1:IF R=0 THEN R=1
GOSUB DELAY
ENDIF

GOTO BASLA

DELAY:
FOR I=0 TO 255:NEXT
FOR I=0 TO 255:NEXT
FOR I=0 TO 255:NEXT
FOR I=0 TO 255:NEXT
FOR I=0 TO 255:NEXT
RETURN

DISABLE
KESME:



------------- ovaj deo ovde--------------------

IF PORTA.0=1 THEN
RH=RH-1
IF RH=0 then
PORTA.0=1-PORTA.0 >>>>>>-------------------- OVO OVDE
RH=R
endif
ELSE
RL=RL-1
IF RL=0 THEN
PORTA.0=1-PORTA.0 >>>>>>-------------------- OVO OVDE
RL=100-Rh
ENDIF
ENDIF

--------------------------------------------


TMR0=243
INTCON.2=0
RESUME
ENABLE

END

Potpis

MILAN ANDRIC

Prvi put vidim ovo i nikako nekapiram sta tadi taj deo.

Potpis

MILAN ANDRIC

Taj dio provjerava u kom stanju je izlaz i da li je vrijeme da se prebaci na drugo stanje.

Sad bar imam neku pretstavu sta se tu dogadja pa cu valjda da ukapiram ceo taj deo.
Probao sam da nadjem bilo sta slicno na internetu sa nekim objasnjenjem ali nisam uspeo.

Potpis

MILAN ANDRIC