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

[Patron]

Попробовал снять все ограничения на использование символов КОИ-7 и КОИ-8 в комментариях и текстовых константах.

В приложении - последняя версия программного комплекта MACRO-11 ( включая компилятор MACRO V05.06r со снятыми ограничениями ).

[form]

SIPP патч для простоты

[form]

Поддержка 8бит в RT-11 V5.7 (SLP патчи для RMON.MAC и EDTG.MAC).
Поддержка включается определением conditional EIGH$T = 1 на этапе SYSGEN.

Патч тупо разрешает 8бит, хотя может правильнее запользовать PASAL$ бит в JSW, который правда отмечен как undocumented и используется для VENU$C=1.

В перспективе - добавка вопроса в SYSGEN на эту тему и правка KED/K52.
К слову в сорцах KED/K52 в коментариях отмечены места "change for 8bit", но там придется подумать - 8бит у них выполняет какую-то функцию. Тупо поправленный KED работает, но русский текст показывает в инверсном цвете

[form]

Раз уж есть тема по программированию, предлагаю сюда же свалить всякие хитрости какие кто пользует

Например такие:

        JSR     Rx,@PC          ;СОХРАНИТЬ Rx В СТЕКЕ, НЕ ТРОГАЯ PSW

        MOV     #160000,SP      ;ПОЛНАЯ ОЧИСТКА ПАМЯТИ (56Kb)
        MOV     #4747,@#0       ;И ЧИСТЫЙ ОСТАНОВ БЕЗ ОШИБОК 
        CLR     PC              ;В КОНЦЕ

        CALL    @(SP)+          ;ВЫЗОВ СОПРОГРАММЫ

[olegh]

И я тоже добавлю - простой способ разворачивания цикла 2x:

1. Пусть есть цикл, выполняющийся N раз, типа:
mov N,r0
1$: cmd ! некая команда, например, clr(r1)+
sob r0,1$

2. Простой способ разворачивания того ж цикла в линейку:
mov N,r0
inc r0
asr r0
bcc 2$
1$: cmd
2$: cmd
sob r0,1$
Идея состоит в том, чтоб позаботиться о нечётном числе итераций до начала
цикла, и войти внутрь цикла в обход стандартного начала.

[form]

Задавали тут вопросы, решил сюда занести на всякий случай - вдруг кто не в курсе

Что слово .WORD можно опускать и писать

123,456,LABEL

вместо

.WORD   123,456,LABEL

знают наверное все.
Но есть еще одна фича. Можно писать <имяинструкции> чтобы вписать
код [первой] инструкции в программу:

010000     <MOV>
005000     <CLR>

Ну а полезное практическое применение этому на мой взгляд одно - использование
понятных команд для очистки/установки нескольких признаков процессора одновременно (например <SEC>!<SEZ>, <CLV>!<CLZ>!<CLN>)...

Хотя еще пожалуй для создания таблиц дизассемблера может пригодится

[Advertiser]

[hobot]

Настройка экрана и запуск приложений
+ процедура gotoXY(x,y : integer); - для паскаля
+ процедура waitKEY; ожидания нажатия кнопочки - для паскаля

Устанавливает цвет курсора
8 цветов от 60 до 67 (третий параметр)
.TTYOUT #33
.TTYOUT #247
.TTYOUT #67

Цвет экрана
.TTYOUT #33
.TTYOUT #242
.TTYOUT #60

Цвет символов
.TTYOUT #33
.TTYOUT #241
.TTYOUT #67

Цвет знакоместа
.TTYOUT #33
.TTYOUT #240
.TTYOUT #60

Установка формата экрана
(61 - 80х24, 62 - 40х24, 63 - 20х24, 64 - 10х24)
.TTYOUT #33
.TTYOUT #246
.TTYOUT #61

Запускаем нужное приложение (на примере 'МЗ1:ДИГГЕР.САЖ')
.MCALL  .CHAIN
MOV  #^RMZ1,@#500
MOV  #^RDIG,@#502
MOV  #^RGER,@#504
MOV  #^RSAV,@#506
.CHAIN

PASCAL

PROCEDURE WAITKEY;
VAR KEY ORIGIN 177560B: INTEGER;
BEGIN
REPEAT KEY:=0 UNTIL KEY>0
END;

Если завести глобальную переменную
INKEY ORIGIN 177562B: INTEGER;
там будет код последней нажатой клавиши

PROCEDURE gotoXY(X,Y: INTEGER);
BEGIN
 WRITE(CHR(27),'Y',CHR(32+Y),CHR(32+X));
END;

Вот вопрос такой родился - почему никто не пишет игры для УКНЦ?
Платформа жива - пока для неё делают игры

[Titus]

При использовании на УК-НЦ печати через EMТ ^O341, возникла ситуация, когда видимо буфер где-то там переполняется и при интенсивной печати часть символов не выводится. Наверное где-то есть флажок, переполнен буфер или нет. Где он?

[Alex_K]

При использовании на УК-НЦ печати через EMТ ^O341, возникла ситуация, когда видимо буфер где-то там переполняется и при интенсивной печати часть символов не выводится. Наверное где-то есть флажок, переполнен буфер или нет. Где он?

Ну да, если буфер переполнен, то устанавливается бит C в PSW. Поэтому код должен быть таким:

        EMT     ^O341
        BCS     .-2

Titus, а зачем такие сложности, можно же подцепить макробиблиотеку SYSMAC.SML (она вообще-то автоматом цепляется, если есть) и объявить макрос с помощью .MCALL .TTYOUT, а затем уже использовать этот макрос.

        .TTYOUT #'A

[Titus]

        .TTYOUT #'A

А чего он делает в точности?