RSX-11, ОСРВ, ОСРВМ

[form]

Максимальное количество одновременно активных нод в моем area
В том числе максимальное количество вариантов подключения (с точки зрения CTAKAH):

• MIM (это собственно за пределами моего area - роутер в остальной HECnet) - E11, Швеция, DECnet over IP через BQTCP
• BIGSYS - PDP-11/83, дома, Ethernet
• COPOKA - E11, другой конец города, DECnet over IP через BQTCP
• BOPOHA - CHARON/AXP, через COPOKA (которая видит его через Ethernet)
• KYPEBO - ДВК эмулятор, дома, serial порт
• CTEPEO - SimH, другой конец страны, DECnet over IP через BQTCP

>DLN

Active nodes summary as of 4-DEC-16 01:04:33

Executor node = 62.637 (CTAKAH)

   State = On, Identification = "DECnet for RSX-11M-Plus V4.6"

Remote                       Active                      Next
Node            State        Links   Delay  Circuit      Node

1.13 (MIM)      Reachable                   IP-0-0       1.13 (MIM)
62.3 (BIGSYS)   Reachable    0       7      UNA-0        62.3 (BIGSYS)
62.4 (COPOKA)   Reachable    0       7      IP-0-2       62.4 (COPOKA)
62.5 (BOPOHA)   Reachable    0       7      IP-0-2       62.4 (COPOKA)
62.11 (KYPEBO)  Reachable    0       7      DL-0         62.11 (KYPEBO)
62.12 (CTEPEO)  Reachable    0       10     IP-0-1       62.12 (CTEPEO)

>

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

Подготовка создания отдельной темы по RTEM. Если конечно это кому интересно
UPD. Видать был пьян когда-то - такую тему я уже создал. Перенесем все туда...

[Advertiser]

[form]

Надоело по одной макрокоманде (по 5-6 модулей) добывать из RSXовской макробиблиотеки для упрощения написания прог/драйверов в RTEM. Перетащил всю библиотеку в RT-11

Теперь можно творить что угодно в RTEM (прога в которой ни одной директивы RT-11 ):

.TY KAKA.MAC
        .TITLE  KAKA
        .MCALL  ABRT$S,DIR$,GTSK$S,QIOW$,QIOSY$

        QIOSY$                          ;ОПРЕДЕЛЯЕМ ФУНКЦИИ QIO

QIOW:   QIOW$   IO.WVB,1,1,,,,<BUFF,,40>;QIOW DPB ДЛЯ ТЕРМИНАЛА
TKBF:   .BLKW   16.                     ;БУФЕР GTSK
BUFF:   .BLKB   256.                    ;РАБОЧИЙ БУФЕР

START:  MOV     #TKBF,R2                ;R2=БУФЕР GTSK
        GTSK$S  R2                      ;ПОЛУЧАЕМ ПАРАМЕТРЫ ЗАДАЧИ
        MOV     #FMTS,R1                ;R1=СТРОКА ФОРМАТА
        MOV     #BUFF,R0                ;R0=РАБОЧИЙ БУФЕР
        CALL    $EDMSG                  ;ФОРМАТИРУЕМ ВЫВОД
        SUB     #BUFF,R0                ;R0=ДЛИНА
        MOV     R0,QIOW+Q.IOPL+2        ;СОХРАНЯЕМ В QIOW DPB
        DIR$    #QIOW                   ;ПЕЧАТАЕМ
        ABRT$S  #TKBF                   ;А МЫ ЕГО ПО МОРДЕ ЧАЙНИКОМ! ;)
        BR      .                       ;...

FMTS:   .ASCII  /TASK NAME:      %R%R%N/
        .ASCII  /PARTITION NAME: %R%R%N/
        .ASCII  /RESERVED:       %P,%P%N/
        .ASCII  /PRIORITY:       %M%N/
        .ASCII  /UIC:            %P%N/
        .ASCII  /LUNS:           %M%N/
        .ASCII  /CPU MODEL:      %M%N/
        .BYTE   0

        .END    START


.MAC RSXMAC/LIB+KAKA/OB

.LIN/LINK:RSXLIB KAKA

.RU KAKA

TASK NAME:      RTET51
PARTITION NAME: GEN   
RESERVED:       000000,000000
PRIORITY:       50
UIC:            000527
LUNS:           19
CPU MODEL:      94


?RTE-U-Aborted via directive, CLI, or user

>

[hobot]

прога в которой ни одной директивы RT-11

offtop

[свернуть]

[form]

Обновлен shared образ RT-11 V5.7 для RTEM. Добавлена библиотека RSXMAC.MLB и обновленная программа TTSET

[form]

Улучшенный командный файл для конфигурации IPNET.
>@IPNET ON (или просто @IPNET) - включает IPNET (ничего не делает если задача MLTNET активна)
>@IPNET OFF - выключает IPNET
>@IPNET UPD - обновляет конфигурацию

Можно вторым параметром указать имя интерфейса, чтобы выполнить команды только для него.

	.ENABLE SUBSTITITION

	.SETT ON
	.SETF UPD
	.IF P1 = "OFF" .SETF ON
	.IF P1 = "UPD" .SETT UPD
	.SETS CIR P2

	.TESTPARTITION MLTCOM
	.PARSE <EXSTRI> "," JUNK JUNK JUNK LOC JUNK
	.IF LOC = "NSP" INS LB:[IPNET]MLTCOM/UIC=[1,54]/PRO=[RW,RW,,]
	.IFNINS MLTNET INS LB:[IPNET]MLTNET
	.IFNINS ...MNC INS LB:[IPNET]MLTCFG

	.IFF UPD .IFT ON .IFACT MLTNET .GOTO DONE
	.IFT ON .OR .IFT UPD NCP SET PROC IP TOP
	.IFT ON .OR .IFT UPD NCP SET LIN IP-0-* ALL

	.TESTFILE LB:[IPNET]IPNET.CFG
	.IF <FILERR> <> 1 .GOTO DONE

	.OPENR LB:[IPNET]IPNET.CFG
.LOOP:
	.READ LINE
	.IFT <EOF> .GOTO DONE

	.PARSE LINE ";" LINE JUNK
	.PARSE LINE "!" LINE JUNK
	.SETS LINE "'LINE%C'"
	.IF LINE = "" .GOTO LOOP

	.PARSE LINE " " CIRC MODE HOST PORT JUNK
	.IF CIR <> "" .IF CIR <> CIRC .GOTO LOOP

	.IFF ON .OR .IFT UPD NCP SET CIR 'CIRC' STA OFF
	.IFT ON .OR .IFT UPD MNC SET CIR 'CIRC' 'MODE' HOST 'HOST' PORT 'PORT'
	.IFT ON .OR .IFT UPD NCP SET CIR 'CIRC' STA ON
	.GOTO LOOP

.DONE:
	.CLOSE

Пример IPNET.CFG со CTAKAH'а:

;Circ	Mode	Host				Port	Comment
;------	-------	-------------------------------	-------	-----------------------
IP-0-0	TCA	mim.update.uu.se:700		0	MIM
IP-0-1	TCP	95.104.192.245:0		700	CTEPEO
IP-0-2	TCP	5.128.31.182:0			700	COPOKA
IP-0-3	TCP	bigsys.home.lan:0		700	BIGSYS

[form]

Совсем чуть-чуть осталось и будет ровно неделя непрерывной работы эмулятора в HECnet.

>RMT KYPEBO

Connected to "KYPEBO", System type = RSX-11M-Plus
System ID: "DECnet for RSX-11M-Plus V4.6"


>HEL GUEST/

RSX-11M-PLUS V4.6   BL87    [1,54] System    KYPEBO 
14-DEC-16 04:00    Logged on Terminal HT0:  as GST14

Good Morning

             ,;,
           O(o o)O
  +---ooO-----------Ooo------------------------------------------------+
  |           #           #   #              W E L C O M E   T O       |
  |           #          ##  ##                                        |
  | ####   #### ####      #   #     ###  # ###   #### #   # ###  #   # |
  | #   # #   # #   # ### #   #    #   #  #   # #    #     #   # #   # |
  | #   # #   # #   #     #   #    #   #  #     #    #     #     #   # |
  | ####   #### ####     ### ### #  ###   #      #####  #  #      ###  |
  | #           #                                    #                 |
  | #           #          RSX-11M-PLUS V4.6     ####                  |
  +--------------------------------------------------------------------+
 
    Last interactive login on Wednesday, December 14, 2016  03:09:15 (HT0:)
 
$ @LB:[1,2]SYSLOGIN.CMD
$ @ <EOF>
$ UPT
04:00:18  up 6 day(s), 06:55, 3 user(s), 0 batch job(s), 18 active task(s)
$

[form]

$ SHO HOS
Host=KYPEBO RSX-11M-PLUS V4.6  BL87  
$ UPT
21:43:06  up 7 day(s), 00:38, 3 user(s), 0 batch job(s), 18 active task(s)
$

Чуть-чуть опоздал! Но все-равно

[form]

Немного баловства (пока)... Запустил на CTAKAH'е Web сервер

[form]

Еще один советский RSX: МИКРОС-М V2.01 - первая советская система, которую можно сразу загрузить на
моем 11/83 без танцев с бубнами.
Русифицирован почти везде с использованием ^N/^O (VT100-подобным не понравится)

Несмотря на такое название, это RSX-11M-PLUS не старее чем 3.0 (скорее даже 4.0), но не новее чем 4.2.

[form]

Вытащим из небытия описание как делать unmapped RSX-11M V4.8 (а то долго искал недавно), попутно добавка: в RMD кто-то при расчете смещений относительно таблиц использует команды вроде "TST -(R4)" и все бы ничего, но R4 может быть равен нулю перед выполнением команды. На процессорах с адресуемым PSW проблем нет - RMD отмаплен на I/O page, а вот на 11/03 или УК-НЦ будут проблемы. Нужно заменить все такие команды (на самом деле все не обязательно, но хуже не будет - их там три всего) на "SUB #2,R4" в файле [14,10]MDPAGE.MAC.

Кроме того, VMR в такой системе требует чуть большего размера GEN чем рекомендуется при генерации. Вместо 400 нужно сделать его 414 и кое-какие проги (две-три всего - VMR подскажет) придется пересобрать, поправив xxxBLD.CMD на тему размера GEN (41400). Иначе прогам с выделенным местом для выгрузки этого самого места не хватит.

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

Пользуясь случаем, пока вживую мучаю...
Ничего особо нового, просто для информации на случай если кому лень было читать release notes
Без коментариев - тут все понятно

>MOU MU:/FO
>MOU DU2:/OVR
>VCP CON DU2:[0,0]RSXMPBL87/CR:RA80/MOU:FOR
VCP - Device VF0: (DU4:) has been assigned.
>BRU /REW/VER MU: DU4:
Initialize output disk [Y/N]:Y
BRU - Starting Tape 1 on MU0:

BRU -- *WARNING* -- No bad block data file found

BRU - End of Tape 1 on MU0:

BRU - Starting verify pass Tape 1 on MU0:

BRU - End of Tape 1 on MU0:

BRU - Completed

>DMO DU4:/DEV
DMO -- TT0:    dismounted from DU4:    *** Final dismount initiated ***
17:22:59  *** DU4:  -- Dismount complete
>MOU DU4:/OVR
>BOO DU4:[2,54]


RSX-11M-PLUS V4.6  BL87   2044.KW  System:"Baseline"
>RED VF:=SY:
>RED VF:=LB:
>RED VF:=SP:
>MOU DU2:"MPBL87TEST"
>MOU VF0:"RSX11MPBL87"
>@[2,54]BASTART.CMD
>SET /CRASHDEV=MM0:
SET -- Crash device MM000: has been successfully loaded
>;
>;
>;      RSX-11M-PLUS V4.6 Distribution Kit
>;
>;      This is the baseline system of the RSX-11M-PLUS V4.6
>;      distribution kit. This system contains an assortment of
>;      devices and may in fact be of some use on your target
>;      system. The main purpose of the baseline system, however,
>;      is to provide a working system environment which may be
>;      used to generate a custom-tailored operating system for
>;      your target hardware. We will now provide instructions
>;      to guide you through the startup procedure.
>;
>;
>;      It is important to specify the correct date and time.
>;      Use the format "DD-MMM-YYYY HH:MM".
>;
>* Please enter time and date (HH:MM DD-MMM-YYYY) [S]: