Программирование на УКНЦ как?

[Patron]

В позиционно-независимом коде доступ к абсолютным адресам затруднён, поэтому записать в R0 адрес нулевого байта можно так:

CRLF:	MOV	PC,R0		;GET A NULL BYTE POINTER IN R0
	MOV	R0,R0		;NO-OP WHOSE BOTTOM BYTE IS 0!!!!!
	.PRINT			;PRINTING NULLSTRING IS A CRLF
	RETURN

[Advertiser]

[form]

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

Сохранение регистра без изменения признаков в слове состояния процессора:

        JSR     R0,@PC                  ;СОХРАНИТЬ R0 В СТЕКЕ

Очистка памяти и чистый останов после очистки (при выключенном/отсутствующем MMU):

        MOV     #160000,SP              ;ВЕРХ ПАМЯТИ (+2)
        MOV     (PC)+,@#0               ;ИНСТРУКЦИЯ
        CALL    -(PC)                   ; ВЫЗОВА САМОГО СЕБЯ        
        CLR     PC                      ;ПЕРЕХОД НА ИНСТРУКЦИЮ

Данный способ не будет работать на J11 процессорах в виду возникновения прерывания по 4 как только SP опустится ниже 400.

В MACRO-11 названия инструкций кроме всего прочего - константы, равные коду инструкции с обнуленными битами аргумент(а,ов):

        <CLV>!<CLC>                     ;ОЧИСТИТЬ БИТЫ V и C
        MOV     #BR,R0                  ;ЗАНЕСТИ 400 В R0

Немного о совместимости. Директивы .PSECT могут кардинально изменить картину. Например

        MOV     #NOP,SUBR

SUBR:   BR      XXX                     ;ЗАМЕНЯЕМАЯ ИНСТРУКЦИЯ

не сработает если программа собрана с разделением I/D пространств (LINK/ID в RT-11, TKB /ID в RSX-11, RSTS/E итд). Кроме того следует помнить, что в многопользовательских задачах (TKB /MU) в RSX-11, секции, объявленные как RO аппаратно защищаются от записи. Также не следует полагаться на то, что порядок секций будет совпадать с указанным в исходниках - он может быть измененн опциями линковщика.

Еще о совместимости: OBJ файлы во всех DECовских системах (RT-11, RSX-11, RSTS/E итд) абсолютно совместимы. Это значит, что скомпилированный в одной системе код может быть перенесен в другую систему прямо в виде OBJ файла (разумеется, в файле должен быть чистый код - без использования системно-зависимого функционала). Также следует помнить об особенностях работы с файлами в разных системах: перенос OBJ файлов RSX-11 в RT-11/DOS-11 или обратно требует правильного преобразования файлов (FLX /FB например). Это однако относится только к обычным или "склеенным" (допускается использование таковых) OBJ файлам. Библиотечные файлы RT-11 (также имеющие расширение OBJ) несовместимы с другими системами (а также в случае копирования в RSX-11 должны бысть скопированы 1:1 [FLX /IM]).

Пара слов о глобальных переменных. В RSX-11 и в RT-11 V5+ неопределенные ссылки автоматически считаются глобальными. В RT-11 V4 и ранних неопределенные ссылки по умолчанию вызывают ошибку. Если требуется совместимость, есть смысл перечислить все внешние ссылки в директиве .GLOBL или разрешить по умолчанию считать глобальными директивой .ENABL GBL.

Верхний адрес программы:

        MOV     #END,R0         ;НЕПРАВИЛЬНОЕ ПОЛУЧЕНИЕ ВЕРХНЕГО АДРЕСА

END:
        .END    START

пример выше может быть некорректным например если используются библиотечные вызовы. Во избежание несовместимостей, стоит воспользоваться директивой .LIMIT которая записывает два слова (начальный и конечный адрес программы) или содержимым ячейки @#50 (или результатом вызова .SETTOP) в RT-11.

Ну и еще немного о совместимости:

        MOV     R0,-(R0)
        MOV     R1,(R1)+
        JMP     (R0)+
        MOV     PC,LABEL

результат выполнения вышеперечисленных инструкций зависит от процессора и потому не предсказуем заранее. Впрочем компилятор выдаст ошибку Z на подобные команды.

Ну и напоследок (а то уже работать пора) мое любимое - немного о фортране.

        CALL    SUBR(1,2)

вышенаписанный оператор отнюдь не вызывает подпрограмму SUBR с аргументами 1 и 2 как многие даже изучавшие фортран могут подумать. Аргументы 1 и 2 гарантируются только при первом вызове подпрограммы (во многих программах можно видеть вызовы вроде RAN(0,0) для получения случайного числа - это как раз такой случай). В дальнейшем сама подпрограмма может изменить их значения (все аргументы в фортране - ссылки). Кстати именно поэтому все аргументы внешних фортрановских подпрограмм для паскаля обязаны быть объявлены как VAR.

Подпрограмма для фортрана (если она написана на MACRO-11) точно знает сколько аргументов передано и какие из них пропущены. Выглядит это так: на входе в подпрограмму R5 содержит адрес блока аргументов. Первое слово содержит количество аргументов (включая пропущенные), далее следуют ссылки на аргументы. Если в ссылке прописано -1, это означает пропущенный аргумент. Сохранять регистры в подпрограмме, написанной на MACRO-11 для фортрана, не требуется.

А еще фраза "God is real, unless declared integer" полностью соответствует правилам фортрана где без явного объявления все переменные начинающиеся с букв от I до N считаюся целыми, а все остальные - вещественными

Пока все, пора работать, позже может еще чего-нибудь напишу.

[nzeemin]

Где-то так <033>%!0<033>LI@@7@@0@@0<033>%!3.

Алексей, а есть где-то подробное описание команд графического режима? В коде я вижу кроме LI есть ещё MV, MP, MM, ML, RU, RR, в общем всего полтора десятка.
В частности, интересует возможность переключить режим основной части экрана на 40 символов в строке и обратно.

[hobot]

nzeemin, Никита. я не программист и не совсем понимаю что есть графический режим, но вот я
пользуюсь древней шпаргалкой для УК-НЦ )

Скрытый текст

PROCEDURE TTYOUT(N:INTEGER);
 CONST R=200B;
 VAR A ORIGIN 177564B, D ORIGIN 177566B:INTEGER;
BEGIN
 WHILE (A AND R)=0 DO;
 D:=N;
END;


PROCEDURE CURSOR(CC:INTEGER); /* цВЕТ КУРСОРА 60-ЧЁРНЫЙ. 67-БЕЛЫЙ */
BEGIN
	TTYOUT(33B);TTYOUT(247B);TTYOUT(CC);
END;

PROCEDURE SCRFRM(SS:INTEGER); 
BEGIN
	TTYOUT(33B);TTYOUT(246B);TTYOUT(SS); /* 62 - 40Х80 */
END;

PROCEDURE SETCOLOR(CT,CZ,CS:INTEGER);
BEGIN
	TTYOUT(33B);TTYOUT(240B);TTYOUT(CT); /* СИМВОЛ */
	TTYOUT(33B);TTYOUT(241B);TTYOUT(CZ); /* ЗНАКОМЕСТ */
	TTYOUT(33B);TTYOUT(242B);TTYOUT(CS); /* ЭКРАН */
END;

PROCEDURE TEXTCOLOR(CT:INTEGER); /* ЦВЕТ ТЕКСТА 60-ЧЕРНЫЙ 67-БЕЛЫЙ */
BEGIN
	TTYOUT(33B);TTYOUT(240B);TTYOUT(CT);
END;

На самом деле эти процедуры я выкладывал в этой теме уже,
только давно давно давно ) Извиняюсь если не то что нужно.
Думаю это легко читаемые вещи - легко переписать на ассемблере )

[свернуть]

---------- Post added at 03:21 ---------- Previous post was at 02:39 ----------

Esc ГРАФ-F (033 246) - установка формата экрана:
Esc ГРАФ-F 1 (033 246 061) - 80x24;
Esc ГРАФ-F 2 (033 246 062) - 40x24;
Esc ГРАФ-F 3 (033 246 063) - 20x24;
Esc ГРАФ-F 4 (033 246 064) - 10x24.

http://www.felixl.com/Uknc_RAM_description_app

[hobot]

nzeemin, ещё после вашего запроса, такое родилось предложение
http://zx-pk.ru/showpost.php?p=782076&postcount=150

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

Почему именно на этот исходник даю ссылку, там некая процедура
присутствует "инициализация графического режима".

[nzeemin]

hobot, спасибо за подсказки.
Подразню тебя иллюстрацией прогресса работы над портом (геймплея пока ещё нету конечно):

[hobot]

hobot, спасибо за подсказки.
Подразню тебя иллюстрацией прогресса работы над портом (геймплея пока ещё нету конечно):

Вот это да! ) Даже прослезился! )
Это шикарнейший анонс, Никита, я записываюсь в тестеры !
И в целом любая поддержка с моей стороны для этого проекта! )

Если могу помочь какой-то рутиной пособить - без сложного низкоуровневого, пишите мне ТЗ в ЛС )

Ура!

[nzeemin]

Это шикарнейший анонс, Никита, я записываюсь в тестеры !
И в целом любая поддержка с моей стороны для этого проекта! )

Чтобы не засорять эту ветку, вынес в отдельную тему:
http://zx-pk.ru/showthread.php?p=788784#post788784

[form]

Решил ради интереса попробовать как работают ALR в BASIC-11. Подробно расписывать не буду, все описано в Installation Guide, User Guide и Language Reference. На пробу собрал BASIC, понимающий две подпрограммы PEEK и POKE для работы с памятью.

Простенькая программка, печатающая строку на экран через регистры терминала:

LIST


TTREG     25-MAR-15  18:18:23

10 C%=OCT('177564') \ B%=OCT('177566')
20 S$=CHR$(13)&CHR$(10)&'*** HELLO, WORLD! ***'&CHR$(13)&CHR$(10)
30 FOR I%=1% TO LEN(S$)
40 O%=ASC(SEG$(S$,I%,I%))
50 CALL 'PEEK'(C%,V%) \ IF V%<>128 THEN 50 \ CALL 'POKE'(B%,O%)
60 NEXT I%

READY
RUN


TTREG     25-MAR-15  18:22:16


*** HELLO, WORLD! ***

READY

Принцип такой: берется дистрибутив BASIC-11 (в архиве должен быть, я выкладывал), копируется файл BSCLI.MAC в MYCLI.MAC, по метке FTBL добавляются ссылки на функции:

FTBL:   .WORD   PEEKNM,POKENM	;АДРЕСА ДЕСКРИПТОРОВ ПОДПРОГРАММ
        .WORD   0		;КОНЕЦ СПИСКА

Ниже перед строчкой ".GLOBL UACTST" добавляем дескрипторы и сами подпрограммы:

PEEKNM: .ASCII  <4>/PEEK/	;<ДЛИНА>/ИМЯ/
        .EVEN			;ВЫРАВНИВАНИЕ
        .WORD   PEEKST		;АДРЕС ПОДПРОГРАММЫ
POKENM: .ASCII  <4>/POKE/
        .EVEN
        .WORD   POKEST

;+
;ПОДПРОГРАММА ПОЛУЧЕНИЯ ДВУХ АРГУМЕНТОВ С ПРОВЕРКОЙ
;ТИПА (ПОДДЕРЖИВАЕТСЯ ТОЛЬКО INTEGER).
;-
GETARG: MOV     -2(R5),R4               ;СОХРАНЯЕМ ССЫЛКУ НА
					;ДЕСКРИПТОРЫ АРГУМЕНТОВ
        CMP     #101002,(R5)+           ;ПРОВЕРЯЕМ ЧТО ДВА АРГУМЕНТА
        BNE     ARGERR                  ;НЕТ
        MOV     (R5)+,R1                ;ПОЛУЧАЕМ ССЫЛКУ НА АРГ 1
        MOV     (R5)+,R2                ;ПОЛУЧАЕМ ССЫЛКУ НА АРГ 2
        .TRPSET #AREA,#BUSTMO           ;ПЕРЕХВАТЫВАЕМ ПРЕРЫВАНИЯ 4/10
        CALL    @PC                     ;ВЫПОЛНЯЕМ ДВАЖДЫ
        MOV     @R4,R0                  ;ОПИСАНИЕ АРГУМЕНТА
        BIC     #^C177,R0               ;УБИРАЕМ ЛИШНЕЕ
        CMP     #23,R0                  ;ТИП INTEGER?
        BNE     ARGERR                  ;НЕТ
        BIT     #200,(R4)+              ;ПРОВЕРЯЕМ ПЕРЕМЕННАЯ/ВЫРАЖЕНИЕ
        RETURN                          ;ВОЗВРАТ

ARGERR: JMP     $ARGER                  ;ОШИБКА: НЕВЕРНЫЕ АРГУМЕНТЫ

BUSTMO: MOV     #BUSERR,@SP             ;ПЕРЕДАЕМ АПРАВЛЕНИЕ НА BUSERR
        RTI                             ;

BUSERR: JSR     R1,$BOMB                ;ПЕЧАТЬ СООБЩЕНИЯ ОБ ОШИБКЕ
        .ASCIZ  /INVALID ADDRESS/
        .EVEN
        RETURN                          ;ВОЗВРАТ

PEEKST: CALL    GETARG                  ;ПОЛУЧАЕМ АРГУМЕНТЫ
        BNE     ARGERR                  ;ВТОРОЯ АРГУМЕНТ - КОНСТАНТА - КЮ!
        MOV     @(R1)+,@R2              ;ЧИТАЕМ СОДЕРЖИМОЕ ПАМЯТИ
RETURN: .TRPSET #AREA,#0                ;ОТКЛЮЧАЕМ ПЕРЕХВАТ ПРЕРЫВАНИЯ
        RETURN                          ;ВОЗВРАТ

POKEST: CALL    GETARG                  ;ПОЛУЧАЕМ АРГУМЕНТЫ
        MOV     @R2,@(R1)+              ;ПИШЕМ В ПАМЯТЬ
        BR      RETURN                  ;ВОЗВРАТ

AREA:   .BLKW   2                       ;БЛОК EMT

Компилируем модуль командой "MAC BSASM+BSMAC+MYCLI/OB" и выполняем генерацию BASIC-11:

.RU BASIC
BASIC-11/RT-11 V02-03S
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? A

READY
RUN SUCNFG
BASIC-11/RT-11 V02 Configuration Program

Type "?<ret>" after any prompt for HELP.

.SAV and .COM file name (default is BASIC):

Do you want a map? (Y or N; default is N):

Background or Foreground ? (B or F; default is B):

Do you want PRINT USING? (Y or N; default is Y):

Do you want CALL support? (Y or N; default is N): Y

Enter module names (one per line): MYCLI
Module name: BSCLLB
Module name: 

Single or Double precision math? (S or D; default is S):

Arithmetic hardware (NONE, EAE, EIS, FIS, or FPU; default is NONE): FPU

Do you want the transcendental functions? (Y or N; default is Y):

Do you want the SUB command? (Y or N, default is Y):

Do you want the RESEQ command? (Y or N, default is Y):

Do you want long error messages? (Y or N; default is Y):

Overlay structure type (1, 2, 3, 4, or 5; default is 1):

To create the BASIC that you have just defined,
type "BYE<ret>" after BASIC prints "READY". When the system
prompts for input, type "@BASIC<ret>" to link the new BASIC.
You may type "R BASIC<ret>" to run it.
run it by typing only "BASIC<ret>".

READY
BYE  
     
.@BASIC

Собственно все

[AFZ]

MOV 12(SP),-(SP) ;ПЕРЕНОСИМ АДРЕС ВОЗВРАТА
MOV R5,14(SP) ;СОХРАНЯЕМ R5
JSR PC,@(SP)+ ;СОПРОГРАМИМ ВЫЗВАВШЕГО

Кстати, вот это самое "сопрограммим" - весьма плодотворный прием. Мне он понравился еще с того момента, как я заглянул внутрь .INTEN, после чего я его начал применять, в том числе и в некоторых, скажем так, нетрадиционных местах. Напимер, при программировании драйверов. Загляни, допустим, в исходник LP. О, ужас!Как там воюют с той же эмуляцией Таба, да и с другими вещами... А используя "сопрограммы" - сплошной комфорт, пишешь программу линейно, а там, где нужно ждать прерывания пишешь:
CALL InWait
в которой достаешь из стека и сохраняешь в статической памяти адрес возврата, нужные регистры и пр. и выходишь. Получив же прерывание, сделаешь .INTEN (вернее, его сделает .DRAST), достаешь из той самой статической памяти всё сохраненное, после чего переходишь по сохраненному адресу возврата. И программа сразу же становится линейной и понятной. Правда, никакой реентерабельности, но она от драйверов RT-11 требуется только в случае, когда один драйвер обслуживает несколько однотипных устройств, но и тогда цена вопроса - таблица обслуживаемых устройств, в которой, кроме всего прочего, предусмотрено место и для сохранения адресов и регистров - для каждого устройства индивидуально. Я так однажды склепал XM-ный драйвер (для TSX, конечно) для какого-то не совсем стандартного сдвоенного компорта, штатное не подошло, да и заказчику нужно было подключать не терминал, а нечто построчно-ориентированное. Так пришлось разобраться и с ХМ-драйверами, и с ведением собственной очереди ввода-вывода для этих устройств (система извещалась о том, что очередь к устройству пуста и можно обращаться, а драйвер продолжал прием или передачу. Естесвенно, повторное обращение к занятому устройству возвращало ошибку, а вот обращение ко второму, свободному, проходило. Програмка была "веселая", сказать, что я облысел именно из-за нее, будет, конечно, преувеличением, но площади лысины она мне добавила наверняка.