Софт для ДВК/PDP11

[form]

Простенькая утилитка для создания универсальных командных файлов RT-11 (в условиях когда IND недоступен/неудобен).
Позволяет выполнять команды при определенных условиях.
Программа работает только в RT-11 V5.02 и новее (и совместимых).

IF [NOT] DECpro [cmd]
	- проверяет что система запущена на DEC Professional

IF [NOT] EXIsts file [cmd]
	- проверяет что файл существует

IF [NOT] INItialized dev [cmd]
	- проверяет что устройство инициализировано под RT-11 (проверяется только home block,
	  соответственно то, что инициализировано кривыми прогами вроде FLX не будет распознано)

IF [NOT] INStalled dev [cmd]
	- проверяет что драйвер установлен

IF [NOT] LOAded dev [cmd]
	- проверяет что драйвер загружен

IF [NOT] MAPped [cmd]
	- проверяет что система поддерживает управление памятью

IF [NOT] MULtiterminal [cmd]
	- проверяет что система многотерминальная

IF [NOT] PROtected file [cmd]
	- проверяет что файл защищен от удаления

IF [NOT] RSTs [cmd]
	- проверяет что система - RSTS/E (на самом деле последний вариант RSTS/E совместим
	  максимум с RT-11 V3, так что вряд-ли эта проверка сработает когда-либо)

IF [NOT] RTEm [cmd]
	- проверяет что система - RTEM-11

IF [NOT] TSX [cmd]
	- проверяет что система - TSX-Plus

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

RT-11XM (S) V05.07

.IF INS VM: IF NOT INI VM: INI VM:/NOQ

.IF INS VM: ASS VM0: CF

.IF INS VM: ASS VM0: WF

.IF INI DU4: ASS DU4: DK

.R TTSET /SL

.IF INS EQ: LOA EQ:

.R DATE
?DATE-I-Time source: 70-71-BC-50-EB-D0, OpenBSD 6.7 amd64
?DATE-I-Date & time: 24-MAY-2020 13:03:19

.IF LOA EQ: UNL EQ:

.

Команд для выполнения может быть несколько (разделяются через \):

.IF MULTITERM SET XL MTTY\SET XL LINE=1