RTEM-11 -- RT-11 под RSX-11M, RSX-11M-PLUS, Micro/RSX, VAX/RSX

[form]

оболочка MCE - типа SL драйвера для RT-11 - очень удобно

Сравнивать MCE с SL можно только при наличии очень богатого воображения
В настоящий момент для этой цели есть CLEACD (правда только в M+), и он действительно полноценен (хоть и не без косяков [правда в тех случаях где SL тоже дает сбои]).
А вообще - нужен кто-то кто бы вел архив софта - пригодится все, хотя с вероятностью около 100% все это уже где-то валяется в архиве.

[Advertiser]

[alphaer]

Хотел выложить ну а что - zip не цепляется, вложения как-то странно работают, я хз...

[Hunta]

Можно выложить у меня, можно у form - и прикрепить ссылку на форуме. Только, думаю, всё таки не в этой теме

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

В состав Микромира, кстати, входил (у меня - надо смотреть) редактор командной строки, но он работал немного по другому, по сравнению с "классическими" редакторами командной строки и самое главное - работал ТОЛЬКО с командной строкой MCR или DCL, ну или другого интерпретатора unsolicated ввода, блин, забыл как они по правильному в RSX называются

[form]

Руки никак не дойдут завести что-нибудь вроде BBS на вебе.
Так что место пока только персонально под полезное дело.
Собственно есть archive.pdp-11.org.ru которым можно рулить.

[form]

Нода XPEH с OpenVMS VAX V7.3 на которой заведен гостевой доступ в RTEM переехала на эмулятор поприличнее на более быстрой машинке.
Можно тестировать.

Попутно при переименовании старой ноды обнаружилось что еще можно сделать с JOAT и FIP, а именно - добавить "SY" в список разрешенных устройств - на нем оказывается private image в VMS если файл SYS$STARTUP:RSX$DEVICE_NAMES.COM не смог назначить "$$" устройство.

Хотя может уже пора понемногу переписывать RTEM и его обвески вместо латания старья - благо, вся нужная информация теперь известна

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

[свернуть]

[form]

Решил наваять утилитку для работы с named directories в RSX-11M+ и P/OS.
Поскольку развивать FIP, JOAT и сам RTEM, пытаясь воткнуть код еще куда-нибудь - дело гиблое.
А так - будет инструмент до того времени когда соберусь переписать все
Еще помучаю какое-то время, и если все будет нормально - добавлю в shared images и отправлю в RPM для обновления пакета.

>RTE /VS
RTEM-11 (RSX-11M-PLUS) V01.00F

RT-11FB  V05.07  

.SET TT QUIET

?DATE-I-Time source: RSX-11M-PLUS
?DATE-I-Date & time: 7-APR-2025 19:28:18

.MAP KAKA/TEMP

.MAP SYS$LOGIN:TEST

.SH S

No LD units mounted

VS0:    RO      [6250]  DU0:[1,1]RT11SH.DSK;21
        RW              DU1:RT11PR.DSK;1
VS1:    RW/TMP  [494]   DU1:[1,127]KAKA.DSK;0
VS2:    RW      [10240] DU1:[FORM]TEST.DSK;1
VS7:    RW      [65535] DU1:[1,127]WORK.DSK;1

.MAP

Device  LUN Options Size  File
------- --- ------- ----- -----------------------------------------------
VS0:    2   RO      6250  DU0:[1,1]RT11SH.DSK;25
        3   RW            DU1:RT11PR.DSK;1
VS1:    6   RW/TMP  494   DU1:[1,127]KAKA.DSK;0
VS2:    7   RW      10240 DU1:[FORM]TEST.DSK;1
VS7:    5   RW      65535 DU1:[1,127]WORK.DSK;1

.

[form]

Тест в P/OS.

[form]

Выложил тестовый образ shared image, содержащий обновленный вариант программы MAP, позволяющей подключать диски из именованых каталогов в RSX-11M-PLUS и P/OS. Поддерживаются длинные логические имена.

Формат команты:

MAP rsx-file[/CR[:size]][/RO][/TM[:size]][/VS:unit]

Опции:

• /CR[:size] - создает новый файл с размером size блоков. Если size не указан - используется значение по умолчанию из параметров RTEM.
• /RO - подключает текущий файл в режиме только чтение
• /TM[:size] - создает временный файл с размером size блоков (аналогично /CR).
• /VS:unit - в явном виде задает номер устройства VS. По умолчанию ищется первое свободное.

Отличия от JOAT:

• созданные файлы не инициализируются - это нужно делать явно командой INITIALIZE
• команда не разрешает назначать новый файл занятому устройству
• если указана опция /RO, файл открывается в режиме чтения, включить режим записи командой JOAT /W:NO не получится

Команда без параметров показывает текущие назначения.

>RTE /VS
RTEM-11 (RSX-11M-PLUS) V01.00F

RT-11FB  V05.07  

.SET TT QUIET

?DATE-I-Time source: RSX-11M-PLUS
?DATE-I-Date & time: 10-APR-2025 05:48:32

.MAP TEST/TM
?MAP-I-Mapped to device VS1:

.MAP SYS$LOGIN:TEST/TM:10240/VS:4

.JOAT VS1:/W

.MAP
Device  LUN Mode    Size  File
------- --- ------- ----- -----------------------------------------------
VS0:    2   RO/SHR  6280  DU0:[1,1]RT11SH.DSK;37
        3   RW/PVT        DU1:RT11PR.DSK;1
VS1:    6   NW/TMP  494   DU1:[1,127]TEST.DSK;0
VS4:    7   RW/TMP  10240 DU1:[FORM]TEST.DSK;0
VS7:    5   RW      65535 DU1:[1,127]WORK.DSK;1

.

[form]

Очередная переделка программы MAP.
Тестовый образ shared image выложен здесь.

Формат команды снова изменился:

.MAP [[device] file[options]]

Команда без параметров печатает текущие назначения устройств.
Параметр device в явном виде указывает имя устройства VS для которого выполняется назначение.
Все опции можно сокращать до 1 символа.

Опции:

• /ASSIGN:name[:] - назначает логическое имя name устройству
• /CREATE[:size] - создает новый файл с размером size (если не указан - используется параметр по умолчанию RTEM)
• /READONLY - открывает существующий файл в режиме только чтение
• /TEMPORARY - создает новый временный файл

.MAP VS6: SYS$LIBRARY:RT11SH/R

.MAP TEMP/C:10240/T/A:TMP
?MAP-I-Mapped to device VS1

.INI/NOQ TMP:

.DIR TMP:
 11-Apr-2025

 0 Files, 0 Blocks
 10202 Free blocks


.MAP
Device  LUN Mode    Size  File
------- --- ------- ----- -----------------------------------------------
VS0:    2   RO/SHR  5790  LB0:[SYSLIB]RT11SH.DSK;41
        3   RW/PVT        $$1:[FORM]RT11PR.DSK;1
VS1:    7   RW/TMP  10240 $$1:[FORM]TEMP.DSK;0
VS6:    6   RO      5328  LB0:[SYSLIB]RT11SH.DSK;41
VS7:    5   RW      65535 $$1:[FORM]WORK.DSK;5

.SH
TT  (Resident) 
VS  (Resident) 
    VS0 = SY 
    VS1 = TMP
    VS7 = DK 
MQ  (Resident) 
BA   
NL   
DU   
LD   
SD   
SL  (Loaded) 
LP   
MU   
10 free slots


.

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

Залил также на "официальную" страницу RTEM и отправил запрос на обновление пакета в репе RPM.

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

На всякий случай тест когда система загружена не с VS.
Вроде пашет как надо

>RTE DL:/RT
RTEM-11 (RSX-11M-PLUS) V01.00G

RT-11FB  V05.07  

.SET TT QUIET

?DATE-I-Time source: RSX-11M-PLUS
?DATE-I-Date & time: 11-APR-2025 15:58:37

.MAP
Device  LUN Mode    Size  File
------- --- ------- ----- -----------------------------------------------
VS7:    3   RW      65535 DU1:[1,127]WORK.DSK;1

.MAP LB:[1,1]RT11SH/RE
?MAP-I-Mapped to device VS0

.MAP
Device  LUN Mode    Size  File
------- --- ------- ----- -----------------------------------------------
VS0:    4   RO      5332  DU0:[1,1]RT11SH.DSK;35
VS7:    3   RW      65535 DU1:[1,127]WORK.DSK;1

.

[form]

Пара слов про использование FCS в RT-11 под RTEM.

В сущности все просто: берем нужные модули из LB:[1,1]SYSLIB.OLB (или SYS$COMMON:[1,1]SYSLIB.OLB) и подключаем. Макровызовы RSX есть в библиотеке SY:RSXMAC.MLB (есть в shared image). Также к программе нужно подключить библиотеку SY:ULBLIB.OBJ (она содержит всякие $RQCB, $RLCB).
Остаются мелкие нюансы

В главном модуле программы (который будет первым входящим файлом для LINK) нужно определить порядок секций FSR - они должны идти друг за другом.

        .PSECT  $$FSR1,RW,D,GBL,OVR     ;MAKE SURE FSR PSECTS ARE CONTIGUOUS
        .PSECT  $$FSR2,RW,D,GBL,OVR     ;
        .PSECT  $$FSR3,RW,D,GBL,OVR     ;
        .PSECT  $$FSR4,RW,D,GBL,OVR     ;
        .PSECT  $$FSR5,RW,D,GBL,OVR     ;

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

$DSW    ==:     46                      ;RSX DIRECTIVE STATUS WORD

        .MCALL  DRERR$,FEADF$           ;RSX-11 MACRO CALLS

        DRERR$  DEF$G                   ;DEFINE RSX DIRECTIVE ERROR CODES
        FEADF$  DEF$G                   ;DEFINE RSX SYSTEM FEATURE SYMBOLS

Как обычно, инитим FSR.

        FSRSZ$  0                       ;INITIALIZE FSR, NO RECORD I/O

Где-нибудь в программе определяем указатель на FSR:

.FSRPT::.WORD   .FSRCB                  ;POINTER TO FSR

В сущности - все.
Не забываем, что директивы (и некоторые подпрограммы) RSX меняют $DSW, а он находится по адресу @#46 из которого RT-11 берет адрес области для свопинга USR. Во избежание неприятностей, не забываем сохранять/восстанавливать значение.

        MOV     @#$DSW,-(SP)
        DIR$    #QIOW
        MOV     (SP)+,@#$DSW

Там где уместно, можно использовать стандартный сервис RTEM для вызова директив, требующих системных ресурсов. В этом случае специально сохранять содержимое адреса @#46 не требуется.

        MOV     @#250,R5                ;POINT TO RTEM LINKAGE AREA
        JSR     R5,@4(R5)               ;ENTER RSX MODE
        .WORD   ISB                     ;QIOW STATUS BLOCK OR 0 IF NONE
        DIR$    #QIOW                   ;
        CALL    @(SP)+                  ;RETRY IF NEEDED
        BCS     ERROR                   ;BRANCH IF WE FAILED

Данный способ вызова автоматически сохраняет/восстанавливает @#46, вызывает код, идущий между JSR R5,@4(R5) и CALL @(SP)+, и если обнаруживается нехватка ресурсов, делается попытка повторить операцию после ожидания важного события (только RSX).