XMEGA und READPRODUCTIONROW Probleme

Unit NVMSignature;

interface
// global part

{ $W+}                  // enable/disable warnings for this unit

uses ;

{--------------------------------------------------------------}
{ Const Declarations }
const
     NVM_CMD_READ_CALIB_ROW:Byte=$02;
     NVM_CMD_NO_OPERATION  :Byte = $00;    //(0x00<<0)  // Noop/Ordinary LPM
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type

{--------------------------------------------------------------}
{ Var Declarations }
var

{--------------------------------------------------------------}
{ functions }
Function ReadProduktRowEx(Value:Byte):Byte;


implementation
// local part

{--------------------------------------------------------------}
{ Type Declarations }
type

{--------------------------------------------------------------}
{ Const Declarations }
const

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var
   ReturnByte,SignaturAdr:Byte;

{--------------------------------------------------------------}
{ functions }

//; On entry temp must contain the address of the calibration byte to read.
//; Calibration byte returned in temp.
Function ReadProduktRowEx(Value:Byte):Byte;
Begin
  SignaturAdr:=Value;
  PushAllRegs;
ASM;
Read_calibration_byte:
  LDS  R20, NVMSignature.SignaturAdr           ; Point Z to required signature byte
  mov  ZL, R20           ; Point Z to required signature byte
  clr  ZH
  ldi  R20, NVMSignature.NVM_CMD_READ_CALIB_ROW
  sts  NVMCMD, R20         ; Load command into NVM Command register.
  lpm  R20, Z
        STS     NVMSignature.ReturnByte,R20
;Resets NVM to no operation and return
NVM_CMD_NO_OP:
  ldi  r21, NVMSignature.NVM_CMD_NO_OPERATION        ; Prepare NVM command code in R20.
  sts  NVMCMD, r21                               ; Set NVM command to No Operation so that LPM reads Flash.
endasm;
  PopAllRegs;
  Return(ReturnByte);
end;


initialization
// at StartUp

// finalization          // optional
// at System_ShutDown
end NVMSignature.

Procedure Test PROW;
    uCount:Byte;
    a:Array[0..$37] of Byte;
    B:Array[0..$37] of Byte;
begin
  For uCount:=0 to $37 do
    a[uCount]:=ReadProductionRow(Word(uCount));
  endfor;
  For uCount:=0 to $37 do
    b[uCount]:=ReadProduktRowEx(uCount);
  endfor;
end;