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