Kuhnke Electronics Instruction Manual
Kuhnke Electronics Instruction Manual
Kuhnke Electronics Instruction Manual
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