ZX Like Pascal

[Andrew771]

Это уже явно не Паскалевские команды.

[AzAtom]

В турбопаскале ReadKey ждёт нажатия клавиши, поэтому делали так
if KeyPressed then ReadKey.
И ReadKey возвращает по одной нажатой клавише. Вряд ли тут так будет удобно, это нужно будет отдельный буфер создавать для учёта нажатых клавиш.
Думаю, сейчас удобнее - сразу прочитал коды нажатых клавиш и пошёл обрабатывать. Только хорошо бы их штуки 3 или 4 считывать одновременно.

[Andrew771]

Сейчас у меня сделано так - readkey читает все клавиши и коды двух первых нажатых заносит в две разные переменные типа byte. А юзер хочет, может их потом проверить или не проверять, по одной или обе. Можно просто увеличить количество этих переменных.

[AzAtom]

В оригинале опрос клавы через внутренности ULA проходит вроде, может там какие-то мутки. Но вообще похоже на гон.

Просто считывается значение порта. Кнопки сидят на решётке и если нажать 3 кнопки на углах одного квадрата, то определится, что и четвёртая нажата, в этом и проблема.
Клавиатуры для PC спроектированы так, что могут однозначно определить одновременное нажатие 3 клавиш, 2 из которых могут быть управляющие.

[Andrew771]

Andrew771, какие алгоритмы растворения экрана и генерации звука? Хорошо бы их тоже реализовать в модуле.

Растворение - эффект Thaw отсюда
Звук - эффект Explos отсюда

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

Я на выходных тогда попробую сделать readkey с 10 клавишами (а может и кемпстон в придачу) и плюс, что раньше говорил, установку начального адреса компиляции юзером.

[AzAtom]

Andrew771, с массивами у меня загвоздка. Не получается как у тебя.

Функция WindowGet куда копирует окно? В отдельный буфер в памяти?

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

И если 2 раза подряд её применить, прежняя запомненная картинка затрётся?

[Advertiser]

[Andrew771]

Andrew771, с массивами у меня загвоздка. Не получается как у тебя.

что не получается?

Функция WindowGet куда копирует окно? В отдельный буфер в памяти?

Да, в отдельный буфер памяти. В область виртуального экрана. (Кстати, нельзя использовать виртуальный экран и эту команду одновременно в программе, будет портиться виртуальный экран).

И если 2 раза подряд её применить, прежняя запомненная картинка затрётся?

да, затрётся.

[AzAtom]

что не получается?

Делаю новый тип type bytearray = array of byte; В итоге получается тип динамического массива и объявить переменную var a:bytearray[0..10]; уже не получается. Либо делаю тип type bytearray = array[0..65535]of byte и тоже переменную можно объявить только типа bytearray без указания его размера.
В общем, надежда только на то, что переделаешь типы массивов как в турбо/дельфи паскале, либо придётся делать по 2 блока объявления массивов, для отладки под модуль ZXPas и под компиляцию для спектрума. Неудобно.

В область виртуального экрана. (Кстати, нельзя использовать виртуальный экран и эту команду одновременно в программе, будет портиться виртуальный экран).

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

[Andrew771]

В общем, надежда только на то, что переделаешь типы массивов как в турбо/дельфи паскале, либо придётся делать по 2 блока объявления массивов, для отладки под модуль ZXPas и под компиляцию для спектрума. Неудобно.

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

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

bytearray

кстати, сейчас не bytearray, а arraybyte.
Но скоро этого не будет. Будет нормальный array[1..x] of byte

[AzAtom]

Andrew771, может, я немного и надоем, но будет много вопросов и не получается сразу все задать.

- При прокрутке окна WindowScrollLeft и другие, аттрибуты не трогать вне зависимости от флага?
- Флаг "окна с атрибутами" влияет только на WindowGet и WindowPut?