Реконструкция CGLIB для использования из OMSI Pascal

[Oleg N. Cher]

Я здесь решил немного поковырять УК-НЦ. Уже рисую из Паскаля точки :-)



Я реконструирую графическую библиотеку CGLIB и попутно адаптирую её для работы с кодом на OMSI Pascal. Выбор этого Паскаля оправдан тем, что на нём получаются самые маленькие .SAV (3 блока для пустой программы).

Трудности: в приложенном Хоботом архиве описание версии 2.01, а сам объектник - версии 1.0. В описании есть такие процедуры (а кода для них в объектнике нет):

int Palette(int n)

Функция устанавливает палитру из стандартного набора. В стандартном
наборе имеется 4 палитры, соответствие логического цвета
и физического цвета приведено ниже. 0<=n<=3.
Стандартные палитры:
Палитра 0: 0 -- черный
1 -- зеленый
2 -- красный
3 -- желтый
Палитра 1: 0 -- синий
1 -- голубой
2 -- фиолетовый
3 -- белый
Палитра 2: 0 -- черный
1 -- темно-зеленый
2 -- темно-красный
3 -- коричневый
Палитра 3: 0 -- темно-синий
1 -- темно-голубой (серый)
2 -- темно-фиолетовый
3 -- бледно-белый

int SetPalette(int c0, c1, c2, c3)

Функция позволяет создавать произвольную палитру. Числа c0,c1,c2,c3
представляют собой последовательность физических номеров в палитре,
при этом 0<=cN<=15. c0 - номер физ.цвета с лог.номером 0, c1 - номер
физ.цвета с лог.номером 1 и т.д. Соответствие физ.номеров цветам:
0 -- черный
1 -- темно-синий
2 -- темно-зеленый
3 -- серый
4 -- темно-красный
5 -- темно-фиолетовый
6 -- коричневый
7 -- бледно-белый
8 -- черный
9 -- синий
10-- зеленый
11-- голубой
12-- красный
13-- фиолетовый
14-- желтый
15-- белый

Нужно повторить функциональность этих двух процедур на асме.

P.S. Форум на тему изменения палитр смотрел. Г-н Зимин устанавливает их по-холодному через Esc-последовательности (а нам нужна горячая замена на лету, как я понимаю). А работать с ячейками 2470 и 2472 у меня не получилось. Код ничего не делает:

PROCEDURE Palette; (* Здесь по идее палитра обнуляется во все чёрные цвета *)
BEGIN /*$C
    MOV     #^O2470, R0
    CLR     R0
    CLR     2(R0)
*/
END {Palette};

Вообще при обращении к этим ячейкам ничего не происходит. Вот такая команда, предложенная S_V_B для перевода в 320 строк, тоже ничего не делает:

BIS #20,@#2462

Что я делаю не так? Буду рад любой помощи.

[Advertiser]

[Alex_K]

Что я делаю не так? Буду рад любой помощи.

Ваша программа исполняется в ОЗУ центрального процессора, а данные ячейки находятся в ОЗУ периферийного процессора. Так что лучше Esc-последовательностями.

[Oleg N. Cher]

А какими последовательностями меняется палитра? Смотрел в исходники игр Никиты Зимина, там почти нихрена не понял ;-)
Или ткните доку, где почитать про палитры.

[nzeemin]

В оглавлении хламника Хобота есть вот такой файл, может это оно?
CGLIB .OBJ 29 12-Jul-1991 14'848
Указано что он на диске ukncbtlwebcomplekt\VAMOS_C_BOOT\disk30_cc.BOOT.dsk , но самого диска я не нашёл.

- - - Updated - - -

А какими последовательностями меняется палитра? Смотрел в исходники игр Никиты Зимина, там почти нихрена не понял ;-)
Или ткните доку, где почитать про палитры.

http://www.emuverse.ru/wiki/%D0%A3%D...A6_RAM.LST_app

Обычно передаём на вывод вот такую строку, и затем ставим задержку чтобы ПП очистил экран, заполнив его новыми цветами.

GAMESC:	; Строка подготовки игрового экрана
	.BYTE	33,246,62		; Формат экрана 40x24
	.BYTE	33,240,60		; Цвет символа
	.BYTE	33,241,61		; Цвет знакоместа
	.BYTE	33,242,61		; Цвет фона
	.BYTE	14			; Clear screen
	.BYTE	0
	.EVEN

[Oleg N. Cher]

Спасибо.
А как будет выглядеть последовательность в случае, когда у нас уже установлен графический режим и нужно просто щёлкать палитры?
Сопоставить "цвет символа, цвет знакоместа и цвет фона" с палитрами у меня не хватило фантазии. Хотя примерно понял, куда рыть.

В УКНЦ есть набор предустановленных палитр, о которых упоминается в описании функции Palette?

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

В оглавлении хламника Хобота есть вот такой файл, может это оно?
CGLIB .OBJ 29 12-Jul-1991 14'848

Сам диск-то есть, но увы - это не оно. Это другая совершенно библиотека с тем же именем. Набор функций внутри неё тоже другой.

[Oleg N. Cher]

Прокомментируйте, пожалуйста. Это Esc-последовательность, которую вызывает InitGraph:

    .BYTE   ^O33, ^O246, ^O62      ; 40x24 mode (эти коды прилепил уже я - для перехода в режим 320)
    .BYTE   ^O33, ^O45, ^O41, ^O61 ; Term mode
    .BYTE   ^O33, ^O133, ^O60, ^O73, ^O60, ^O162 ; Здесь, похоже, гасится служебная надпись РУС/ЛАТ.
    .BYTE   ^O33, ^O45, ^O41, ^O60 ; Graph

CloseGraph:

    .BYTE   ^O14
    .BYTE   ^O33, ^O45, ^O41, ^O63
    .BYTE   ^O33, ^O246, ^O61 ; 80x24 mode (это тоже прилепил я)

После вызова CloseGraph надо корректно выйти в текстовый режим RT-11, у меня есть сомнения, что эти последовательности правильно это делают. РУС/ЛАТ по идее надо восстановить обратно.

[hobot]

но самого диска я не нашёл.

спасибо, Никита! папка с дискетой от Vamos - в корне нет, она в \Other\ (оглавление поправил).
Поглядел поставку Си к РАФОС - там граф.модуля вообще нет. Наверное надо делать выбор в пользу варианта библиотеки максимально большого размера и копаться-разбираться с ней, пример по изучение списка "глобальных" LIBR'ом я Олегу кидал, у него все шпаргалки на руках ) С Си вообще много непонятного на наших машинках - скорее всего очень много "местечковых под свои задачи" наработок на местах, откуда скопированы библиотеки.

[Alex_K]

Прочёл про данную библиотеку. Да, она работает напрямую с планами памяти 1 и 2 через регистры центрального процессора. Потому и кол-во цветов в палитре ограничено четырьмя. Так что, чтобы менять палитру, надо изменять ячейки 2470 и 2472 в ОЗУ ПП. В данных ячейках находится регистр управления цветом для экрана пользователя. Программу в ОЗУ ПП грузить необязательно. Можно их прочесть и записать через канал К2. Необходимо прочесть УКНЦ. Работа с внешними устройствами.

[Alex_K]

Перевод на черновую библиотеки CGLIB.

[Oleg N. Cher]

Alex_K, благодарю. Чётко то, что надо) Чем Вы так красиво .OBJ расковыряли?) Я дизасмлю IDA Pro, но он не совсем такое выдаёт.

Думаю ограничиться 4-мя цветами. А то, видимо, аксакалы, которые тут обитаются, не зря избегают лезть в ПП-шный битплан. Krakout от BlaireCas использует больше цветов, но там, видимо, устанавливается палитра для каждой строки, я так не умею, ну и пока неинтересно. Надо для начала что-то более штатное.

Программу в ОЗУ ПП грузить необязательно. Можно их прочесть и записать через канал К2.

Тёмный совершенно лес. Был бы рад готовому примеру кода, который устанавливает палитру таким способом, вот просто аж до небес)

Наверное надо делать выбор в пользу варианта библиотеки максимально большого размера и копаться-разбираться с ней

Хоботярыч, там у тебя в архиве все CGLIB разные. Не в том смысле, что разные версии - вообще разные библиотеки. А та, что мы сейчас ковыряем, только одна - самой первой версии с описанием от второй. Только реконструировать, без вариантов. Если знаешь ещё какие-то библиотеки для работы со спрайтами/картинками, кидай.

Ещё вопрос по MACRO-11: как оформить подпрограммы, чтобы при линковке из объектника подключались только нужные? (сейчас у меня подключаются тупо все).