ZX Like Pascal

[AzAtom]

Наконец, дописал некоторые функции и немного намарафетил свой модуль. Написан по описанию компилятора ZX Like Pascal версии 0.908. zxpas-v0.908.rar
Модуль сделан на Delphi 4.
Имеющиеся несоответствия описаны в самом начале модуля.
- Не реализованы функции write, writeln, read, readln. При их использовании происходит ввод-вывод через консоль и необходима директива компилятора {$APPTYPE CONSOLE}.
- Плохо реализована функция очистки массива. Скорее всего, будет нормально очищать одномерный массив и первую строку двумерного массива.
- Функция SoundEffect выдаёт немного более быстрый звук, чем получается на эмуляторе. Возможно, это связано с тем, что я не учитываю остановки процессора (wait). Так же, продолжительность одного эффекта ограничивается 10 секундами. По алгоритму максимальная длительность звукового эффекта может превышать 10 минут.


Реализованы дополнительные функции, отсутствующие в ZX Like Pascal:
-function ZXInitialized:boolean; // Возвращает true, если графическое окно создано и можно выводить графику.
-procedure TextOut(x,y:word;text:string); // Вывод текста по указанным координатам знакоместа.
-procedure PutPixel(x,y,e:word); // Установка точки по координатам X,Y. E=0 бит сбрасывается, E=1 бит устанавливается.
-procedure Line(x1,y1,x2,y2:word); // Рисование линии от X1,Y1 до X2,Y2. Биты всегда устанавливаются.
-procedure ReadMouse(var x,y,b:word); // Возвращает координаты мыши 0<=X<=255, 0<=Y<=191 и нажатые кнопки в виде 00000MRL.

Так же, в архиве программа, использующая данный модуль и скомпилированный исполняемый файл для windows.

Коротко принцип работы.
Для работы используются 2 массива по 6912 байт, соответствующие экрану настоящего Spectrum. Один является аналогом реального экрана, второй аналог виртуального экрана и все графические функции работают в соответствии с принципами Spectrum.
При инициализации модуля запоминаются режимы работы, которые должны соответствовать установленным галкам компилятора ZX Like Pascal. Так же, запускается вспомогательный поток, в котором создаётся окно и таймер, срабатывающий каждые 32 мс.
По сообщению от таймера происходит преобразование массива с реальным экраном spectrum в windows bitmap, который, затем, отображается на экране.

[Advertiser]

[Andrew771]

Обновил версию до 0.909, в первом посте.
Теперь можно:
- инициализировать значения переменных и массивов при объявлении;
- выводить карты не только по 2х2 знакоместа на клетку, но и по 1х1 знакоместо на клетку;
- заменены непривычные ArrayType[N] на стандартные паскалевские Array[1..N] of Type.

Также добавлен Генератор спрайтов ZxSprGen V.2.0.1 от AzAtom, спасибо еще раз огромное тебе!

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

Нарушен порядок вычисления выражений. Написал if (ggx+5)>29 then ggx:=29-5; и тоже правильно сгенерировал код, загрузил переменную, добавил к ней 5 и сравнил с 29. Надо чтобы сначала вычислялись выражения, затем проводилось сравнение.

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

[Smalovsky]

Когда будет поддержка типов записей?

[Bolt]

Когда будет поддержка типов записей?

У меня уже есть Работает, правда, всё это очень медленно, но мы и над этим когда-нибудь поработаем

type
	tPoint=record x,y:byte; end;

procedure putpixel(const point:tPoint);
var
	x,y,a:word;
begin
	x:=point.x;
	y:=point.y;
	a:=((y and 7) shl 8) + ((y and $38) shl 2) + ((y and $c0) shl 5);
	a:=a+$4000+(x shr 3);
	mem[a]:=mem[a] or (128 shr (x and 7));
end;

procedure test_rec;
var
	i:byte;
	pnt:tPoint;
begin
	for i:=1 to 100 do
	begin
		pnt.x:=i*2;
		pnt.y:=i;
		putpixel(pnt);
	end;
end;

begin
	// ...
	test_rec;
	// ...
end.

[Andrew771]

Когда-нибудь Опять времени стало мало на разработку.
А вообще, в ближайших изменившихся планах - поддержка 8-битных вычислений без типа Word (опционально) вместо нынешних 16-битных и для Byte, и для Word.
16-битные вычисления расходуют больше памяти и меньше по быстродействию, но в большинстве динамичных игр Word не нужен или мало используется. Кстати, записи тоже будут тормозить расчет адресов, поэтому отложены на светлое будущее.

[Andrew771]

Класс! Будем ждать твой компиль тоже, хотца свои наработки на Спек перекомпилировать, где типов записей полно.

[ALKO]

Забыл, какую тулзу юзал от Эндрю771, которая перегоняла BMP-шки в подпрограмму отрисовки спрайтов и шестнадцатиричных данных.
Напомните, плиз.

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

Хотя вон смотрю есть некий ZxSprGen, пощупаю его.

[Andrew771]

Рекомендую ZxSprGen от AzAtom, он полностью подходит.

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

А моя тулза тут

[ALKO]

Странно.
Лоде руннер запустился нормально.
А demo_sprites выдаёт следующее (все галочки включены при компиляции в асм. В качестве асм в машинные коды использую EmuZwin)


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

Адреса пробовал как дефолтный, так и org 30000

[Andrew771]

Судя по формату спрайтов, атрибуты спрайтов должны быть выключены.