Создать копию бинарного файла в формате txt, с разбивкой строк и адресацией.

[BDA]

ranges: array[0..7] of array[0..2] of Integer = (
    // start addr, end addr, offset
    ($0000, $06C0, $10),
    ($0870, $1F20, $20),
    ($2080, $3A90, $30),
    ($3DD0, $42C0, $40),
    ($4C60, $58E0, $50),
    ($6030, $73C0, $60),
    ($0BAE0, $BF60, $70),
    ($0E800, $FFFF, $80)
);
...
// увеличивать выходной адрес на смещение
Inc(addr, ranges[j, 2]);

А если не хочется самому считать смещение, то можно поместить третьим числом новый начальный адрес, а в коде сделать:

offset := ranges[j, 2] - ranges[j, 0];
while fbin.Position < ranges[j, 1] do
begin
  addr := fbin.Position;
  read_count := fbin.Read(b[0], Min(BYTES_IN_LINE, ranges[j, 1] - addr));
  // увеличивать выходной адрес на смещение
  Inc(addr, offset);

[sergey.serg-72]

Сообщение от BDA

А если не хочется самому считать смещение, то можно поместить третьим числом новый начальный адрес, а в коде сделать:

Смещение это новый адрес, на который будут записаны считанные данные правильно?
Третье число , это третье значение типа $10, можно сюда поместить адрес с которого начинать запись ? Это круто.

[sergey.serg-72]

Сообщение от BDA

offset := ranges[j, 2] - ranges[j, 0];
while fbin.Position < ranges[j, 1] do
begin
addr := fbin.Position;
read_count := fbin.Read(b[0], Min(BYTES_IN_LINE, ranges[j, 1] - addr));
// увеличивать выходной адрес на смещение

А будем делать , на случай обрезанного файла , на один байт и когда последний адрес не помещается, как делали ?

 if ranges6[j, 0] < fbin.Size then
fbin.Position := ranges6[j, 0]
else
Break;
if ranges6[j, 1] > fbin.Size then
Break;
while fbin.Position < ranges6[j, 1] do

offset добавить в переменную Integer;

[BDA]

Сообщение от sergey.serg-72

Смещение это новый адрес, на который будут записаны считанные данные правильно?

Смещение это смещение, а новый адрес это новый адрес (старый адрес + смещение = новый адрес). Можно записывать в массив ranges смещение, можно новый адрес , просто нужно соответственно его использовать.

Сообщение от sergey.serg-72

А будем делать , на случай обрезанного файла , на один байт и когда последний адрес не помещается, как делали ?

Не понял вопрос.

[sergey.serg-72]

Сообщение от sergey.serg-72

if ranges6[j, 0] < fbin.Size then
fbin.Position := ranges6[j, 0]
else
Break;
if ranges6[j, 1] > fbin.Size then
Break;
while fbin.Position < ranges6[j, 1] do

Сообщение от BDA

Не понял вопрос.

Я имел ввиду код обработки, если файл меньше адреса последнего .

Который мы использовали

 if ranges6[j, 0] < fbin.Size then
fbin.Position := ranges6[j, 0]
else
Break;
if ranges6[j, 1] > fbin.Size then
Break;
while fbin.Position < ranges6[j, 1] do

[sergey.serg-72]

Сообщение от BDA

Смещение это смещение, а новый адрес это новый адрес (старый адрес + смещение = новый адрес). Можно записывать в массив ranges смещение, можно новый адрес , просто нужно соответственно его использовать.

Ну да, я понял выставил адрес и зависла программа .....

($0000, $06C0, $3000),- типа сюда записать и так и другие произвольно.

И с Вашими адресами зависает программа, приходится принудительный сброс делать.
Виснет жёстко.

[sergey.serg-72]

Сообщение от BDA

ranges: array[0..7] of array[0..2] of Integer = (
// start addr, end addr, offset
($0000, $06C0, $10),
($0870, $1F20, $20),
($2080, $3A90, $30),
($3DD0, $42C0, $40),
($4C60, $58E0, $50),
($6030, $73C0, $60),
($0BAE0, $BF60, $70),
($0E800, $FFFF, $80)

Зависает жёстко и всё . пока не сбросишь.Что то не нравится в цикле думаю.

[sergey.serg-72]

Сообщение от BDA

А если не хочется самому считать смещение, то можно поместить третьим числом новый начальный адрес, а в коде сделать:

Так и сделал но смещение не работает , первое на своём месте, остальные не на своих местах.
Не работает такой вариант.
Надо как то считывать данные по заданным адресам, а записывать по новым.

ranges: array[0..7] of array[0..2] of Integer = (
    // start addr, end addr, offset
    ($0000, $06C0, $10),
    ($0870, $1F20, $20),
    ($2080, $3A90, $30),
    ($3DD0, $42C0, $40),
    ($4C60, $58E0, $50),
    ($6030, $73C0, $60),
    ($0BAE0, $BF60, $70),
    ($0E800, $FFFF, $80)
);
...
// увеличивать выходной адрес на смещение
Inc(addr, ranges[j, 2]);

[BDA]

Сообщение от sergey.serg-72

Зависает жёстко и всё

Я не добавлял исправления и не запускал у себя, но, скорее всего, вы разместили Inc(addr, ranges[j, 2]) не в том месте. Нужно его поместить после fbin.Read.

[sergey.serg-72]

Сообщение от BDA

Я не добавлял исправления и не запускал у себя, но, скорее всего, вы разместили Inc(addr, ranges[j, 2]) не в том месте. Нужно его поместить после fbin.Read.

да. нет разместил вроде правильно, всё ровно смещение не верно делает, первое правильно , со 2 по 5 неправильно. И главное . если эту строчку Inc(addr, ranges[j, 2]) файл не удлиняется под конечный адрес. Если эту Inc(addr, offset); то Удлиняется под размер последнего адреса.
Но в том и том варианте и вместе, смещение не соответствует прописанному.

 for j := Low(ranges) to High(ranges) do
begin
offset := ranges[j, 2] - ranges[j, 0];
while fbin.Position < ranges[j, 1] do 

begin
addr := fbin.Position;
read_count := fbin.Read(b[0], Min(BYTES_IN_LINE, ranges[j, 1] +1));
Inc(addr, ranges[j, 2]);
//Inc(addr, offset);

И куда, тогда эту строчку Inc(addr, offset);?