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

[form]

Версия 1.1 CPS.SAV для УКНЦ

.GET CPSENG
 
.E 1000-1012
177560 000060 177564 000064 000000 000000
.REE
    CPS:  5735
.

Теперь регистры и вектора для ввода и вывода задаются раздельно - это даёт возможность пропатчить CPSENG.SAV значениями TTKS и TTKINT в ячейках 01000, 01002 (если нужные значения отличаются от находящихся там 0177560 и 060) и задавать только значения TTPS и TTPINT тестируемого порта в ячейках 01004, 01006 .

Так же, как и в предыдущей версии - запуск по команде REENTER или с ненулевым значением в ячейке 01012 - приводит к отмене вывода программой необязательных сообщений.

Для полного счастья - еще одну ячейку сделать патчуемой и в ней держать число тиков в секунду - так, на всякий случай

.GET CPSENG

.E 40
001030

.D 500=52737,4000,177520,137,1030

.ST 500

CPS - CHECK TERMINAL OUTPUT SPEED - V1.1

PRESS ANY KEY TO EXIT

    CPS:   240   

PROGRAM COMPLETED

.

---------- Post added at 19:36 ---------- Previous post was at 19:34 ----------

Ну и таки на живом УКНЦ интересно посмотреть сколько консоль покажет...
Хотя если с силами соберусь - может сам перетащу, только это надо задействовать 386 колмпьютер и контроллер дискет

---------- Post added at 20:04 ---------- Previous post was at 19:36 ----------

Кстати о версиях программ. В RESORC как минимум начиная с RT-11 V5.4 (более ранние проверять лень, но в макробиблиотеке поддержка с 5.0 начинается) есть фича, позволяющая показывать версию (версии) модуля.

.RESORC TEST.SAV/V
Release = V01, ID(s): 2 

.TY TEST.MAC
.MCALL  .MODULE
.MODULE TEST,RELEASE=V01,VERSION=02,COMMENT=<Test module>,AUDIT=YES

START:  104350
        .END    START

В данном случае версия V01.02 (генерится .IDENT если явно не сказать IDENT=NO, его в MAP файле видно если есть).
Если RELEASE не писать, по умолчанию V05. RELEASE должен быть одинаков во всех файлах которые принимают участие в программе. Это может мешать если используются библиотеки DECовские, но на MACRO походу их никто кроме меня не пользует

Может пригодиться чтобы различать SAVы сразу

[Advertiser]

[Patron]

Для полного счастья - еще одну ячейку сделать патчуемой и в ней держать число тиков в секунду

В следующей версии так и сделаем, а пока - единственное на всю программу слово со значением 50. (062) по адресу 01236 - это оно и есть.