Вид для печати
С помощью LIBR.SAV вытягивал отдельные модули командой LIBR/EXT. А объектники в MACRO-11 переводились программой DECOBJ.SAV.Цитата:
Сообщение от Oleg N. Cher
- - - Добавлено - - -
Это надо каждую подпрограмму оформить в виде отдельного объектного файла, а потом собрать их всех в библиотеку. Как раз CGLIB.OBJ является не объектным файлом, а библиотекой.Цитата:
Сообщение от Oleg N. Cher
А умеет ли MACRO-11 создавать несколько объектных файлов (или библиотеку) из одного ассемблерного исходника? Или нужно этот исходник для начала порезать на кусочки по подпрограммам?
Дурацкий вопрос из разряда "а шо если засунуть пальцы в розетку": а шо будет, если не поставить эту задержку?Цитата:
Сообщение от nzeemin
- - - Добавлено - - -
Я к чему спросил. InitGraph и CloseGraph пихают Esc-последовательности, но не используют задержек.
Библиотеку создаёт программа LIBR.SAV, потому придётся порезать по кусочкам.Цитата:
Сообщение от Oleg N. Cher
MACRO создаёт один .OBJ файл, из одного или нескольких текстовых исходников.Цитата:
Сообщение от Oleg N. Cher
Если сразу начать рисовать на экране после команды его очистки - то ПП будет стирать экран пока ЦП что-то рисует, может просто стереться часть того что вы пытаетесь нарисовать.Цитата:
а шо будет, если не поставить эту задержку?
ОК. А каким кодом ждём ПП?
Видимо, я порежу Паскаль-исходник на кусочки по процедурам и буду их компилировать и ассемблировать уже по кусочкам. Думаю, что с этим разберусь. Гораздо хуже всё с палитрами обстоит. Чёрная магия, никто не знает как это сделать.
- - - Добавлено - - -
Кстати, я уже столкнулся с тем, что ПП затирает часть изображения, сформированного ЦП. Так что да, всё верно. Но тогда непонятно почему автор CGLIB, явно системщик со стажем, не ждёт ПП в конце процедур InitGraph/CloseGraph. Или этого не требуется в данном случае?
Ну не такая и чёрная. Читайте литературу, всё описано.Цитата:
Сообщение от Oleg N. Cher
Маленький пример. Числа по умолчанию восьмеричные, 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
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
В техническом описании описана структура регистра управления цветом, страница 46. Надо, чтобы чётная и нечётная тетрады были одинаковыми, т.к. вы не используете план 0.Цитата:
Сообщение от Oleg N. Cher
Например пусть у нас будут яркие цвета чёрный (00), зелёный (01), красный (10), жёлтый (11). Соответственно:
2470: 1010 1010 1000 1000
2472: 1110 1110 1100 1100
Да, и не забудьте восстановить старое значение при выходе.
Ну, я и сейчас не уверен, что выход обратно в текстмод 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
Регистры управления цветом не восстановятся.Цитата:
Сообщение от Oleg N. Cher