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

[Alex_K]

Чем Вы так красиво .OBJ расковыряли?)

С помощью LIBR.SAV вытягивал отдельные модули командой LIBR/EXT. А объектники в MACRO-11 переводились программой DECOBJ.SAV.

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

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

Это надо каждую подпрограмму оформить в виде отдельного объектного файла, а потом собрать их всех в библиотеку. Как раз CGLIB.OBJ является не объектным файлом, а библиотекой.

[Oleg N. Cher]

А умеет ли MACRO-11 создавать несколько объектных файлов (или библиотеку) из одного ассемблерного исходника? Или нужно этот исходник для начала порезать на кусочки по подпрограммам?

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

Дурацкий вопрос из разряда "а шо если засунуть пальцы в розетку": а шо будет, если не поставить эту задержку?

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

Я к чему спросил. InitGraph и CloseGraph пихают Esc-последовательности, но не используют задержек.

[Alex_K]

А умеет ли MACRO-11 создавать несколько объектных файлов (или библиотеку) из одного ассемблерного исходника? Или нужно этот исходник для начала порезать на кусочки по подпрограммам?

Библиотеку создаёт программа LIBR.SAV, потому придётся порезать по кусочкам.

[nzeemin]

А умеет ли MACRO-11 создавать несколько объектных файлов (или библиотеку) из одного ассемблерного исходника? Или нужно этот исходник для начала порезать на кусочки по подпрограммам?

MACRO создаёт один .OBJ файл, из одного или нескольких текстовых исходников.

а шо будет, если не поставить эту задержку?

Если сразу начать рисовать на экране после команды его очистки - то ПП будет стирать экран пока ЦП что-то рисует, может просто стереться часть того что вы пытаетесь нарисовать.

[Oleg N. Cher]

ОК. А каким кодом ждём ПП?

Видимо, я порежу Паскаль-исходник на кусочки по процедурам и буду их компилировать и ассемблировать уже по кусочкам. Думаю, что с этим разберусь. Гораздо хуже всё с палитрами обстоит. Чёрная магия, никто не знает как это сделать.

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

Кстати, я уже столкнулся с тем, что ПП затирает часть изображения, сформированного ЦП. Так что да, всё верно. Но тогда непонятно почему автор CGLIB, явно системщик со стажем, не ждёт ПП в конце процедур InitGraph/CloseGraph. Или этого не требуется в данном случае?

[Alex_K]

Гораздо хуже всё с палитрами обстоит. Чёрная магия, никто не знает как это сделать.

Ну не такая и чёрная. Читайте литературу, всё описано.
Маленький пример. Числа по умолчанию восьмеричные, R0 - адрес в ОЗУ ЦП, R1 - адрес в ОЗУ ПП, R2 - кол-во слов (2 байта) для обмена.

; Сохранить старый регистр
        MOV     #2470,R0
        MOV     #SVPAL,R1
        MOV     #2,R2
        CALL    RDPP


; Установить новый
        MOV     #2470,R0
        MOV     #NEWPAL,R1
        MOV     #2,R2
        CALL    WRPP


; Восстановить старый
        MOV     #2470,R0
        MOV     #SVPAL,R1
        MOV     #2,R2
        CALL    WRPP


RDPP:   MOV     #10*400,BLK
        MOV     R0,BLK+4
        MOV     R1,BLK+6
        MOV     R2,BLK+10
        CALL    CHAN2
        RETURN

WRPP:   MOV     #20*400,BLK
        MOV     R0,BLK+4
        MOV     R1,BLK+6
        MOV     R2,BLK+10
        CALL    CHAN2
        RETURN

CHAN2:  MOV     #BUF0,R0
        MOV     #5,R1
        MTPS    #200
        BR      2$
1$:     MOVB    (R0)+,@#176676
2$:     TSTB    @#176674
        BPL     2$
        SOB     R1,1$
        MTPS    #0
        RETURN

BLK:    .WORD   10*400,32,0,0,0
BUF0:   .WORD   BLK,-1

SVPAL:  .BLKW   2
NEWPAL: .WORD   ^B1110111011001100, ^B1010101010001000

[Advertiser]

[Oleg N. Cher]

Alex_K, весьма ценный пост, спасибо.

Родил такую процедуру установки цветов палитры:

/*$C
PALET:
    MOV     #BUF0, R0
    MOV     #5, R1
    MTPS    #^O200
    BR      2$
1$: MOVB    (R0)+,@#^O176676
2$: TSTB    @#^O176674
    BPL     2$
    SOB     R1, 1$
    MTPS    #0
    RETURN
BLK:    .WORD   ^O20*^O400,^O32,^O2470,NEWPAL,2
BUF0:   .WORD   BLK,-1
NEWPAL: .WORD   ^B1110111011001100, ^B1010101010001000
*/
PROCEDURE SetPalette (c0, c1, c2, c3: INTEGER);
BEGIN /*$C
    MOVB    8(SP), NEWPAL
    MOVB    6(SP), NEWPAL+1
    MOVB    4(SP), NEWPAL+2
    MOVB    2(SP), NEWPAL+3
    CALL    PALET
*/
END {SetPalette};

Трудности:

1. перепутанный RGB/GRB (нужно ориентироваться на GRB, т.к. таких машинок сильно больше?)
2. я так понимаю, цвета 1..7 с низкой яркостью не очень пользуется спросом на УКНЦ?
3. процедура понимает на входе значения типа #11, #33, #FF. нужно превращать 1 в #11, т.е. размножить младший полубайт на старший. Подскажите, как закодировать. На Z80 я бы скопировал его в другой регистр, сдвинул бы влево на тетраду и наложил бы по OR

[Alex_K]

3. процедура понимает на входе значения типа #11, #33, #FF. нужно превращать 1 в #11, т.е. размножить младший полубайт на старший. Подскажите, как закодировать. На Z80 я бы скопировал его в другой регистр, сдвинул бы влево на тетраду и наложил бы по OR

В техническом описании описана структура регистра управления цветом, страница 46. Надо, чтобы чётная и нечётная тетрады были одинаковыми, т.к. вы не используете план 0.
Например пусть у нас будут яркие цвета чёрный (00), зелёный (01), красный (10), жёлтый (11). Соответственно:
2470: 1010 1010 1000 1000
2472: 1110 1110 1100 1100

Да, и не забудьте восстановить старое значение при выходе.

[Oleg N. Cher]

Ну, я и сейчас не уверен, что выход обратно в текстмод RT-11 у меня сделан правильно. Но учту, спасибо.

Норм, если я вместо запоминания палитры и её восстановления после перехода в текстовый режим просто выведу?

        .BYTE	33,246,61		; 80x24 mode
	.BYTE	33,240,60		; Цвет символа
	.BYTE	33,241,61		; Цвет знакоместа
	.BYTE	33,242,61		; Цвет фона
	.BYTE	14			; Clear screen
	.BYTE	0

Да, после вывода этих кодов надо ждать ПП или не надо?

[Alex_K]

Норм, если я вместо запоминания палитры и её восстановления после перехода в текстовый режим просто выведу?

Регистры управления цветом не восстановятся.