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.

Remanent Data<br />

(*Check address and set pointer*)<br />

pSysVars:=ADR(xrdata.SysVars.magic_number);<br />

pExtrarema02:=ADR(xrdata.Extrarema02.magic_number);<br />

(*Check size of extraremanent structures and set pointer*)<br />

Size_SysVars:=SIZEOF (xrdata.Sysvars);<br />

Size_Extrarema02:=SIZEOF (xrdata.Extrarema02);<br />

(* Check structure1 of type SystemData an clear as necessary:<br />

"SysVars" *)<br />

IF ( xrdata.SysVars.magic_number 16#47110815 )<br />

THEN<br />

END_IF<br />

OR ( xrdata.SysVars.magic_number2 16#47110815 )<br />

IF clear THEN pByte := pSysVars;<br />

END_IF<br />

FOR i:=0 TO Size_SysVars DO<br />

END_IF;<br />

pByte^[i]:=0;<br />

xrdata.SysVars.magic_number := 16#47110815;<br />

xrdata.SysVars.magic_number2 := 16#47110815;<br />

(* Check structure2 of type Extrarema_02 and clear as necessary:<br />

"Extrarema02" *)<br />

IF ( xrdata.Extrarema02.magic_number 16#47110815 )<br />

THEN<br />

END_IF<br />

OR ( xrdata.Extrarema02.magic_number2 16#47110815 )<br />

IF clear THEN pByte := pExtrarema02;<br />

END_IF<br />

FOR i:=0 TO Size_Extrarema02 DO<br />

END_IF;<br />

pByte^[i]:=0;<br />

xrdata.Extrarema02.magic_number := 16#47110815;<br />

xrdata.Extrarema02.magic_number2 := 16#47110815;<br />

124 E 700 GB

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

Saved successfully!

Ooh no, something went wrong!