Мощная среда ZXDev для разработки НА ПЯТИ ЯЗЫКАХ для ZX готова к тестированию

[Oleg N. Cher]

А ты не мог бы изъясняться как-то более связно, что ли? Торчки в хорошем смысле, радуйся, борцун "за всё эффективное"

[Lethargeek]

А ты не мог бы изъясняться как-то более связно, что ли? Торчки в хорошем смысле, радуйся, борцун "за всё эффективное"

ммм, это как из анекдота "в хорошем смысле"?

ну и прекрасно, предлагаю для пущей ясности изменить название данной темы на

Мощная среда ДЛЯ ТОРЧКОВ (В ХОРОШЕМ СМЫСЛЕ) ZXDev для разработки НА ПЯТИ ЯЗЫКАХ для ZX готова к тестированию

[Oleg N. Cher]

Торчки в нашем понимании это хорошие ассемблерщики, делающие свою работу хорошо, а не спускающиеся с подиума наркоманы, полные эйфории. Или это как-то связано?

[Lethargeek]

торчки на асме нам много не накодят

Торчки в нашем понимании это хорошие ассемблерщики

[Oleg N. Cher]

Понятно. По существу сказать нечего, поэтому придрался к словам.

Слушай. Почему я не могу заниматься на форуме тем, что мне нравится? Это связано с тематикой форума напрямую. И всё из-за пары утырков, людей странных в своём роде и повёрнутых на своём величии.

Ты делай что хочешь, я не мешаю.

[Jason]

Не нашёл отдельной темы по паскалю, спрошу здесь. Как включить в программу на турбопаскале 3.0 массив-константу известного размера? И чтобы при этом самому не указывать размер. Пусть компилятор сам посчитает запятые.
Иными словами, надо тупо сделать INCBIN. Конкретно - звуки для AY (afx).
Версия 3.0 не понимает открытых массивов (безразмерных 'array of byte'), но для Z80 - других нет.
Через array это делается так:

 const
 fx1:array[1..5] of byte = ($EA,$AB,0,0,$AA);

И т.п. Максимальный индекс (= 5) надо указывать руками. Если массив большой, то неудобно.
Как сделать чтобы компилятор сам посчитал кол-во байт в скобках? Хотелось бы 'sizeof (fx1)', но не работает.
Директива {$R} не помогает. Где-то читал, что это можно обойти, но не помню где.
Через inline (1/2/3/4/5) можно вставить что угодно любой длины, но как получить указатель на эти данные? Можно добавить в начало ld hl,$+4 : ret, но это изврат.

[Advertiser]

[Oleg N. Cher]

Предположу, что в Турбо Паскале 3 такой фишки нет. Придётся указывать руками.

Можно написать небольшую утилиту, которая будет бинарик конвертить в такой массив с указанием размера.

- - - Добавлено - - -

Да, ИИ подтверждают, что так и есть.

https://bitsavers.trailing-edge.com/...anual_1986.pdf

В Turbo Pascal 3.0 для Z80 действительно нет встроенной возможности объявить массив-константу без явного указания размера с автоматическим подсчетом компилятором. Это ограничение старых версий.

Обходной путь: использование внешней утилиты (как вы предложили).
Можно написать простую программу-конвертер, которая преобразует бинарный файл в код Паскаля:

{ CONVERT.PAS - конвертер bin -> pascal const }
program ConvertBin;
var
  f: file of byte;
  b: byte;
  i, count: integer;
begin
  Assign(f, 'sound.bin');
  Reset(f);
  count := FileSize(f);
  
  WriteLn('const');
  Write('  fx1: array[1..', count, '] of byte = (');
  
  for i := 1 to count do
  begin
    Read(f, b);
    Write('$', Hex(b));
    if i < count then Write(',');
    if i mod 16 = 0 then WriteLn;
  end;
  
  WriteLn(');');
  Close(f);
end.