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

[form]

Обновление VKMON V02.11.
При инициализации подсистемы работы с динамической памятью, оставляем нетронутым место под USR - не любят запросы .FETCH когда их просят в эту область загрузить драйверы
Теперь можно работать с устройствами для которых драйверы не загружены.
Метод выбран тупой, но там столько по хорошему надо переделать, что пока не стал заострять внимание на этом

.VKMON LD:RTEMFB
?VKMON-F-Fetch error LD:RTEMFB.MAP

.@VKMON

.R MACRO
*VKCMD=SY:ULBMAC,RSXLIB/M,DK:VKDEF,VKCMD
*VKDAT=SY:ULBMAC,DK:VKDAT
*VKDEV=VKDEF,VKDEV
*VKMAP=SY:ULBMAC,DK:VKDEF,VKMAP
*VKMEM=SY:ULBMAC,DK:VKDEF,VKMEM
*VKMON=SY:ULBMAC,DK:VKDEF,VKMON
*VKPAT=SY:ULBMAC,RSXLIB/M,DK:VKDEF,VKPAT
*VKSET=VKDEF,VKSET
*VKSHO=VKDEF,VKSHO
*VKSYM=VKSYM
*VKTIM=SY:ULBMAC,DK:VKDEF,VKTIM
*VKTTY=VKDEF,VKTTY
*^C

.R LINK
*VKMON,VKMON=VKMON,VKSYM,SY:ULBLIB,SY:RSXLIB//
*VKMAP
*VKMEM
*VKDAT
*VKCMD
*VKSET
*VKSHO
*VKDEV
*VKTTY
*VKTIM
*VKPAT
*//
*VKMOV,VKMOV=VKMON,VKSYM,SY:ULBLIB,SY:RSXLIB//
*VKCMD/O:1
*VKMAP/O:1
*VKMEM/O:1
*VKDAT/O:2
*VKDEV/O:2
*VKSHO/O:2
*VKSET/O:2
*VKTTY/O:2
*VKTIM/O:2
*VKPAT/O:2
*//
*^C

.VKMON LD:RTEMFB

RT-11FB  V05.07  

VKMON>SH ALL

RT-11FB  V05.07  

USR     is set SWAP
EXIT    is set SWAP
KMON    is set NOIND
MODE    is set NOSJ
TT      is set NOQUIET
ERROR   is set ERROR
EDIT    is set KED
FORTRAN is set FORTRA
WILD    is set IMPLICIT
KMON nesting depth is 3

CLI is set DCL, CCL, UCL, NO UCF

Emulated RT-11 environment
60 Hertz system clock

Multi-terminal support
Global .SCCA support
FPU support
Extended unit support

TT  (Resident)
SY  
MQ  (Resident)
BA  
NL  
10 free slots

Unit    Type      WIDTH TAB CRLF FORM FB  PAGE SCOPE SPEED  CSR   VECTOR
------------------------------------------------------------------------
  0  Console   DL   80  No  No   No   Yes  Yes  Yes   N/A  177560  060

VKMON>

[Advertiser]

[form]

Еще обновление VKMON V02.12.

• мелкая оптимизация работы с ошибками
• в сообщениях об ошибках символов (дуп, отсутствует, кривой адрес) убран лишний CRLF в конце строки
• из кода инициализации динамической памяти выброшено лишнее, добавлена проверка на VBGEXE.

--
Немного технической информации

В прошлой версии для инициализации динамической памяти вместо родного $INIDM, был запользован код из SRCCOM, выполняющий инициализацию с резервированием памяти под USR сверху. Еще тогда кое-что показалось в этом коде неправильным.

Проверка показала, что там действительно кое-что не так.
Код берет место для загрузки USR по умолчанию (смещение 266 RMON), делает TST -(R0) чтобы указать на адрес ниже USR, выполняет .SETTOP, по результату в R0 вычисляет размер свободной памяти, а потом проверяет программу на виртуальность, и если она виртуальная - отнимает 500 от размера.

Идея в цклом понятна: виртуальная программа (не VBGEXE) мапится в нижнюю память, но так, что ее адрес 0 оказывается в физическом адресе 500. Вот только не учитывается тот факт, что при этом адрес загрузки USR окажется за пределами адресного пространства программы, и TST -(R0) вызовет MMU fault. Тут правильнее использовать SUB.

А кроме того, после вызова .SETTOP, верхний адрес будет автоматом подправлен с учетом USR (в mapped системах он всегда в памяти), а значит никаких танцев с бубнами вокруг 500 не требуется.

Впрочем, сделать VKMON виртуальным можно только поправив вручную SAV файл

Ну а для VBGEXE и вовсе нет смысла развлекаться с размером - такая прога мапится в верхнюю память, и спокойно может использовать самый верхний доступный адрес.

[hobot]

Еще обновление VKMON V02.12.

а по ссылке архив так остался 02.11 ?

[form]

а по ссылке архив так остался 02.11 ?

Похоже забыл залить - три захода делал, в последний момент вспоминая что еще доделать можно
Поправил.

[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

[form]

Обновление программы TTSET V05.00.
Теперь если драйвера SL нет в системе, команды для него не выдаются.
Так же добавлена опция /TEST для печати команд вместо их выполнения.

.TTSET /SL/WIN/TEST
?TTSET-I-The following commands would be executed:
  SET EDIT KEX
  SET SL VT100
  SET SL ON

.

[AFZ]

Коллеги, а нет ли отдельной темы по программированию на MACRO-11 ? А то в разных темах периодически вылезают вопросы по программированию, а начни искать - фиг найдешь!..

[form]

Коллеги, а нет ли отдельной темы по программированию на MACRO-11 ? А то в разных темах периодически вылезают вопросы по программированию, а начни искать - фиг найдешь!..

Отдельно по MACRO-11 не было.
Все что есть с уклоном куда-нибудь.
Так что можно завести новую

[Hunta]

Отдельно по MACRO-11 не было.

Если по самому языку, всё в книжках есть. Если их конечно читать.
А если по конкретным операционкам и их вызовам, то смысл в одной теме их мешать?

[hobot]

Коллеги, а нет ли отдельной темы по программированию на MACRO-11 ?

есть вот такая тема, где МАКРО-11 так же активно обсуждается, поскольку подспорье для программ на Паскале.
https://zx-pk.ru/threads/20444-pasca...knts-dvk).html