pic 16f84 yardım ltfn. bu pic prog.ini 15 saniye geciktirmek icin ne yapmaliyim

List P=16f84
Include "p16f84.inc"
Bsf Status,5
Clrf Trisb
basla
Clrwdt
Movlw B'11010111'
Movwf Option_reg
Bcf Status,5
Clrf Portb
yak
Movlw H'ff'
Movwf Protb
Call Gecikme
sondur
Clrf Portb
Call Gecikme
Goto Yak
gecikme
Clrf Tmr0
test_bit
Btfss Tmro,7
Goto Test_bit
Return
End

pause 1500