here is my PFC code!!
I solved my problem changin PFC8583 to DS1302 :-)


Define LOADER_USED 1
;Define OSC 20
Define LCD_DREG PORTD ' Define LCD connections
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1



SCL var PORTC.1
SDA var PORTC.3

UP var PORTB.0
DOWN var PORTB.1



temp var word
count_remain var byte
countPerC var byte

Menusay var Byte

LoBATT var byte
TMP var byte

sec var bit
'B0 var byte
S var byte
M var byte
H var byte
D var byte
W var byte
Mn var Byte
Y var byte
'ADCON1=7
'pause 100
s=0
M=0
h=0
d=0
W=0
Mn =0
Y = 0
adval var byte ' Create adval to store result


TRISA = %11111111 ' Set PORTA to all input
ADCON1 = %00000100 ' Set PORTA analog

Low PORTE.2 ' LCD R/W line low (W)
Pause 100 ' Wait for LCD to start up

OPTION_REG.7=0 ' pull direncleri aktif
TRISB=%00001111
PORTB=0

ADCON1=7
pause 100
I2Cwrite SDA,SCL,$A2,2,[S,m,h,d,W,MN,Y]
pause 50
main:

' goto main



'Lcdout $fe, 1 ' Clear screen
Lcdout $fe, 1 ,"Clock" ' Clear screen
pause 1000
TRISA=%00001110 ' port a 0 cıkıs 1 giris yapıldı
LOW PortA.0
menusay=0
mainloop:

if UP = 0 then
pause 50
IF MenuSay < 3 then
Menusay = Menusay+1
Lcdout $fe, 1,"MENU", dec menusay
pause 500

Gosub SetupMenu
else
menusay=0
endif
endif





if menusay = 0 then
GOsub SAAT

endif





Goto mainloop ' Do it all forever



''' SAAT RUTINI

SAAT:
' Lcdout $fe, 1, " OKUNUYOR"
' pause 1000
toggle sec




i2cread sda,scl,$A1,2,[S] 'sn
i2cread sda,scl,$A1,3,[M] 'dakika
i2cread sda,scl,$A1,4,[H] 'saat

'


Lcdout $fe, $c0,"Saat:",hex2 (H),":",hex2( M),":",Hex2 (S )
pause 250
return


SetupMenu:

Select Case MenuSay

'Case 1; Baslangis sicakligi


case 1 ; Saat Ayar

DevamSaat:
'Read 4,H ' epprom 1
'Lcdout $fe, 1,"S :" ,Dec (H)

' call RTC_write


Gosub ArtirAzalt
IF up = 0 and down=0 then goto CikisSaat
goto DevamSaat
cikisSaat:
Lcdout $fe, 1,"SET :S:" ,Dec (H)

'gosub RTCWrite
I2Cwrite SDA,SCL,$A1,4,[h]
pause 250


case 2 ; dakika ayar
DevamDakika:


Gosub ArtirAzalt
' i2CWrite sda,scl,$A2,3,[M] 'saat
'

IF up = 0 and down = 0 then goto CikisDakika

goto DevamDakika
cikisDakika:
Lcdout $fe, 1,"Dk Set"
'gosub rtcWrite
I2Cwrite SDA,SCL,$A1,3,[m]
pause 250
'Case 4 ; Gun Ayarla

'Case 5 ; Ay ayarla
Case 3 ;save
Lcdout $fe, 1,"Setup OK"
pause 1000
menusay = 0

end select

Return
;????????????????????????????????????????????????? ????????????????????????


;Azaltma Artirma Rutinleri
ArtirAzalt:

;Sıcalik Artir
Select Case Menusay

case 1 ' Saat
if up = 0 then
pause 50
if H = 23 then
H =0
else
H = H + 1
endif
endif
If Down = 0 then
pause 50
if H = 0 then
H = 23
else
H = H -1
Endif
endif
Lcdout $fe, 1,"Saat", dec H
pause 250

case 2 ' Dakika
if up=0 then
pause 50
if m = 59 then
m =0
else
m = m + 1
endif
endif

If Down = 0 then
pause 50
if M = 0 then
M = 59
else
m = m -1
Endif
endif
Lcdout $fe, 1,"Dakika", dec M
pause 250
end select
Return



RTCWrite:

tmp=S
S=(tmp dig 1<<4)+(tmp dig 0)
tmp=M
M=(tmp dig 1<<4)+(tmp dig 0)
tmp=H
H=(tmp dig 1<<4)+(tmp dig 0)
tmp=D
D=(tmp dig 1<<4)+(tmp dig 0)
tmp=MN
MN=(tmp dig 1<<4)+(tmp dig 0)
tmp=Y
Y=(tmp dig 1<<4)+(tmp dig 0)

I2CWRITE SDA,SCL,$A1,2,[S,M,H,D,W,MN,Y] 'Write parameters to RTC
pause 50
return

end