Pepperl+Fuchs VAM-CTR-PC2 Handbuch Seite 46

error := send_cmd(C_SET_PP);
if error <> 0 then
begin
end;
{ return to protected operation mode }
DPpage(D_DATA); { write 0 to the parameter 'data' }
DPindex(D_DATA);
DPwrite($00);
error := send_cmd(C_SET_MODE); { command to set mode }
if error <> 0 then
begin
end;
{ wait for normal operation }
DPpage(D_EC_FLAGS);
GetTime(hour, minute, second, sec100);
the_second := second;
repeat
until ($00 <> (flags AND $20));
{ write projected parameter (PP) to parameter image (PI) }
{ AS-i PC2 board writes PI list only after power up! }
DPpage(D_PI);
DPindex(D_PI);
for i:=0 to 15 do
{ initialize watchdog }
DPpage(D_WDOG_CNT);
DPindex(D_WDOG_CNT);
DPwrite($0A);
DPpage(D_WDOG_ENA);
DPindex(D_WDOG_ENA);
DPwrite($01);
{ communication for ever }
repeat
Zumutbare Änderungen aufgrund technischer Verbesserungen vorbehalten.
46
Pepperl+Fuchs GmbH · 68301 Mannheim · Telefon (06 21) 7 76-11 11 · Telefax (06 21) 7 76-10 00 · Internet http://www.pepperl-fuchs.com
write('can`t update PP.',error);
exit;
write('can`t return to protected operation mode.',error);
exit;
{ store actual time }
{ loop until normal operation mode flag gets high }
DPindex(D_EC_FLAGS);
DPread(flags);
GetTime(hour, minute, second, sec100);
{ end program after 2 seconds timeout}
if (second - the_second > 2) then
begin
write ('can`t start normal operation.');
exit;
end;
DPwrite( pp[i] );
{ load watchdog counter with 100 ms }
{ enable watchdog }
{ reload watchdog counter with 100 ms }
DPpage(D_WDOG_CNT);
DPindex(D_WDOG_CNT); { index register will be incremented }
DPwrite($0A); { after every read or write access! }
{ read input data from DPRAM }
for i:=0 to 15 do
DPread( idata[i] );
AS-Interface
{ command to update PP }
Copyright Pepperl+Fuchs, Printed in Germany
Anhang