anchor.diff:  
   procedure WriteFlash95(var RomStream: TMemoryStream; StartAddress, WriteSize: cardinal; PageSize: word; ChipSize: integer);
   var
  -  DataChunk: array[0..4095] of byte;
  -  DataChunk2: array[0..4095] of byte;
  +  DataChunk: array[0..2047] of byte;
  +  DataChunk2: array[0..2047] of byte;
     Address, BytesWrite: cardinal;
     i: integer;
   begin
  
positive.code: var
    ChunkSize: Word;
    BytesRead, i: integer;
    DataChunk: array[0..4095] of byte;
    DataChunkFile: array[0..4095] of byte;
    Address: cardinal;
  begin
    if (StartAddress >= DataSize) or (DataSize = 0) then
  
negative.code: 
  procedure WriteFlash25(var RomStream: TMemoryStream; StartAddress, WriteSize: cardinal; PageSize: word; WriteType: integer);
  var
    DataChunk: array[0..2047] of byte;
    DataChunk2: array[0..2047] of byte;
    Address, BytesWrite: cardinal;
    i: integer;
    sreg: byte;
  