anchor.diff:  var
     ChunkSize: Word;
     BytesRead: integer;
  -  DataChunk: array[0..4095] of byte;
  +  DataChunk: array[0..2047] of byte;
     Address: cardinal;
   begin
     if (StartAddress >= ChipSize) or (ChipSize = 0) then
  
positive.code: var
    ChunkSize: Word;
    BytesRead: integer;
    DataChunk: array[0..4095] of byte;
    Address: cardinal;
  begin
    if (StartAddress >= ChipSize) or (ChipSize = 0) then
  
negative.code: procedure ReadFlashKB(var RomStream: TMemoryStream; StartAddress, ChipSize: cardinal);
  var
    ChunkSize: byte;
    BytesRead: integer;
    DataChunk: byte;
    Address: cardinal;
  begin
  