anchor.diff:              //3 байтовая адресация включена
   
               //старший байт адреса
  -            if Address > 16777215 then
  +            if Address > 16777216 then
               begin
                 UsbAsp25_WriteSR(hUSBDev, hi(hi(Address)), $c5);
                 UsbAsp25_WREN(hUSBDev);
  
positive.code:   begin
      if ChunkSize > (DataSize - Address) then ChunkSize := DataSize - Address;
  
      if DataSize > 16777215 then
          BytesRead := BytesRead + UsbAsp25_Read32bitAddr(hUSBDev, $13, Address, datachunk, ChunkSize)
        else
          BytesRead := BytesRead + UsbAsp25_Read(hUSBDev, $03, Address, datachunk, ChunkSize);
  
negative.code:       if (MainForm.MenuAutoCheck.Checked) and (WriteType = WT_PAGE) then
        begin
  	  
          if WriteSize > 16777216 then
            UsbAsp25_Read32bitAddr(hUSBDev, $13, Address, datachunk2, PageSize)
          else
            UsbAsp25_Read(hUSBDev, $03, Address, datachunk2, PageSize);
  