17.02.2013 Views

Kuhnke Electronics Instruction Manual

Kuhnke Electronics Instruction Manual

Kuhnke Electronics Instruction Manual

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Start_OK := CheckXREMDATA(Clear);<br />

IF flag AND Start_OK THEN<br />

END_IF<br />

xrdata.SysVars.noof_SystemStarts :=<br />

Rema1:=Rema1+1;<br />

flag := FALSE;<br />

IF Start_OK THEN<br />

(* The actual main program goes here. *)<br />

END_IF<br />

running:=running +1;<br />

FUNCTION CheckXREMDATA : BOOL<br />

VAR_INPUT<br />

END_VAR<br />

VAR<br />

END_VAR<br />

flag1:BOOL;<br />

Remanent Data<br />

xrdata.SysVars.noof_SystemStarts+1;<br />

CheckXREMDATA:<br />

Use the "magic words" to check if the remanent data are<br />

OK. If the contents of the "magic words" changed they are<br />

overwritten with the defined bit pattern. Depending on the<br />

value of the "clear" input variable, the extraremanent<br />

structures can be removed.<br />

pSysVars: POINTER TO DWORD;<br />

pExtrarema02: POINTER TO DWORD;<br />

Size_SysVars: UINT;<br />

Size_Extrarema02: UINT;<br />

i: INT;<br />

pByte: POINTER TO ARRAY[0..4095] OF BYTE;<br />

123

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!