взаимодействие V3021

[Guest]

здрасти на всички,
Аз се опитвам да се намесвам V3021 реално време часовник до PIC18F458, но имат някои проблеми.Не мога да се V3021 вървят всеки път.Струва ми се, че не е правилно initialized.Това е контрол на функциите Аз написа:

# определят TRISCIO TRISC2
# определят вход 1
# определят изхода 0
/ / CS закрепване на V3021 е трайно свързан с GND
летливи битов CWR @ ((неподписан) & PORTC * 8 0); / / до WR закрепване на V3021
летливи битов CRD @ ((неподписан) & PORTC * 8 1); / / за развитие на селските райони за закрепване на V3021
летливи битов CIO @ ((неподписан) & PORTC * 8 2); / / до IO закрепване на V3021

нищожно забавяне (недействителни)
(
CLRWDT ();
CLRWDT ();
CLRWDT ();
CLRWDT ();
)

неподписан овъглявам rtc_get_data (неподписан овъглявам адр)
(
неподписан овъглявам I;
неподписан овъглявам данни;
CLRWDT ();
данни = 0;
CRD = 1;
CWR = 1;
TRISCIO = продукция;
незабавно ();
за (I = 0; I <4; I )
(
CIO = адр;
незабавно ();
CWR = 0;
незабавно ();
CWR = 1;
адр>> = 1;
)
TRISCIO = Input;
за (I = 0; I <8; I )
(
данни>> = 1;
незабавно ();
CRD = 0;
незабавно ();
ако (CIO)
(
данни | = 0x80;
)
CRD = 1;
)
възвращаемост (данни);
)

недействителни rtc_put_data (неподписан овъглявам адр, неподписани овъглявам данни)
(
неподписан овъглявам I;
CLRWDT ();
CRD = 1;
CWR = 1;
TRISCIO = продукция;
незабавно ();
за (I = 0; I <4; I )
(
CIO = адр;
незабавно ();
CWR = 0;
незабавно ();
CWR = 1;
адр>> = 1;
)
за (I = 0; I <8; I )
(
CIO = данни;
незабавно ();
CWR = 0;
незабавно ();
CWR = 1;
данни>> = 1;
)
TRISCIO = Input;
)

недействителни rtc_put_cmd (неподписан овъглявам CMD)
(
неподписан овъглявам I;
CLRWDT ();
CRD = 1;
CWR = 1;
TRISCIO = продукция;
за (I = 0; I <4; I )
(
CIO = CMD;
незабавно ();
CWR = 0;
незабавно ();
CWR = 1;
CMD>> = 1;
)
TRISCIO = Input;
)

недействителни rtc_reset ()
(
неподписан овъглявам I;
CLRWDT ();
CRD = 1;
CWR = 1;
TRISCIO = Input;
за (I = 0; I <8; I )
(
CRD = 0;
незабавно ();
CRD = 1;
)
)

Всеки, който има опит с това РТК?Помощ моля!
Благодарности.