Было дело. В 4.0 как раз упростили.
Вид для печати
Сделал себе справочник по командам MCR, может кому ещё пригодится...
Вложение 55552
Добавлю, что команды сокращаются до 3 букв кроме HELP (в M+ после входа в систему достаточно HEL).
Команды SHUTUP не существует - это программа завершения.
BLOCK - нет такой команды MCR, в MCR эта команда называется BLK
DISMOUNT - нужно пояснить, что в MCR таки DMO (а не DIS в силу привычных сокращений)
TYPE - такой команлы MCR нет. Это либо отклик TDX на неопознанную команду либо команда DCL.
ACNT - опять таки такой команды нет - это программа, в M+ ее не может запустить простой пользователь
CTRL/C отнюдь не прерывает выполнение команды, а вызывает подсказку текущего CLI (если программа в этот момент не захватила терминал для единоличнго использования). В DCL есть возможность настроить такую реакцию, но речь про MCR :)
Переделал книгу "Операционная система ОСРВМ СМ ЭВМ", получилось 7,5 Мб http://rghost.ru/62GvqpwKy
Спасибо MiX за любезно предоставленные исходники сканов.
Хотел установить BQTCP/IP, но появилась проблема... :)
В процессе установки, скрипт устанавливает по умолчанию директорию [IP] чтобы оттуда копировать файлы, но у меня эта команда не работает "SET /DEF=DL:[IP]"
Что я делаю не так?
Вот лог установки:
образ BQTCP.DSK установлен в RL0
Код:>MOU DL0:/OVR/PUB
>@DL0:[IP]IPGEN.CMD
>;
>; BQTCP/IP generation. X0.5
>;
>; Started on 19-JAN-16 11:53:31
>;
>SET /NAMED
>* What is the device where the kit is [S D:"SY:"]: DL:
>SET /DEF=DL:[IP]
>INS $MAC
>* How many interfaces do you want [O R:1-10 D:2]:
>* What type is IF0: [S D:"Ethernet"]:
>* Do you want to use DHCP for this interface? [Y/N D:Y]:
>* Do you want to use the default route on this interface? [Y/N D:Y]:
>* Do you want to use DNS over this interface? [Y/N D:Y]:
>* Do you want to use the DNS domain for this interface? [Y/N D:Y]: N
>* What is the line name of IF0: [S]: ETH
>* What type is IF1: [S D:"Loopback"]:
>;
>* What is your hostname [S]: PISTON
>* What is your (default) domain name [S]:
>;
>* Do you want to install the DECnet driver? [Y/N D:N]: N
>;
>* What size do you want the IP pool to be [D D:256.]:
>* Do you want to install the new IPINS.CMD? [Y/N D:N]:
>* Do you want to install the new IPAPPL.CMD? [Y/N D:N]:
>* Do you want to install the new HOSTS file? [Y/N D:N]:
>* Do you want to install the new HELP files? [Y/N D:N]:
>* Do you want to install the new message files? [Y/N D:N]:
>; Thank you. All questions have now been asked.
>;
>; Creating IPINS.NEW
>;
>;
>; Creating HOSTS file
>;
>;
>; Creating parameter file
>;
>;
>; Copy libraries libraries
>;
>pip lb:[1,1]/nv=[lib]*.*
PIP -- Open failure on output file
DB0:[1,1]IPLIB.OLB -- Privilege violation
>;
>; Compiling and taskbuilding drivers
>;
>mac iftab=iftab
MAC -- Open failure on output file
IFTAB=IFTAB
>mac iptab=iptab
MAC -- Open failure on output file
IPTAB=IPTAB
>mac udtab=udtab
MAC -- Open failure on output file
UDTAB=UDTAB
>mac tctab=tctab
MAC -- Open failure on output file
TCTAB=TCTAB
>tkb @ifdrv
TKB -- *FATAL*-Lookup failure on file IFTAB.OBJ
>tkb @ipdrv
TKB -- *FATAL*-Lookup failure on file IPTAB.OBJ
>tkb @uddrv
TKB -- *FATAL*-Lookup failure on file UDTAB.OBJ
>tkb @tcdrv
TKB -- *FATAL*-Lookup failure on file TCTAB.OBJ
>;
>; Copying drivers
>;
>pip lb:[1,54]/nv=[ip]ifdrv.tsk,.stb
PIP -- No such file(s)
SY0:[IP]IFDRV.TSK
PIP -- No such file(s)
SY0:[IP].STB
>pip lb:[1,54]/nv=[ip]ipdrv.tsk,.stb
PIP -- No such file(s)
SY0:[IP]IPDRV.TSK
PIP -- No such file(s)
SY0:[IP].STB
>pip lb:[1,54]/nv=[ip]uddrv.tsk,.stb
PIP -- No such file(s)
SY0:[IP]UDDRV.TSK
PIP -- No such file(s)
SY0:[IP].STB
>pip lb:[1,54]/nv=[ip]tcdrv.tsk,.stb
PIP -- No such file(s)
SY0:[IP]TCDRV.TSK
PIP -- No such file(s)
SY0:[IP].STB
>;
>; Building TELNET common
>;
>TKB @TELCOM
TKB -- *DIAG*-Allocation failure on file TELCOM.TSK
TKB -- *DIAG*-Open failure on file TELCOM.MAP
TKB -- *DIAG*-Open failure on file TELCOM.STB
>;
>; Copy basic tools
>;
>pip lb:[ip]/nv=[ip]ifconfig.tsk,netstat,ping,tracert,ethacp,resacp
>;
>; Done
>;
>; Remember to add, change or update the information in LB:[1,2]HOSTS.TXT
>;
>; After DECnet has started (if DECnet is also installed on the machine),
>; invokde [IP]IPINS.CMD to start TCP/IP.
>;
>; Edit [IP]IPAPPL.CMD, and invoke that at a later point in the
>; startup, when all shared libraries and other requisits have been
>; installed.
>;
>; Edit [IP]IPREM.CMD to customize the shutting down procedure,
>; and remember to invoke this if needed from the standard shutup
>; procedure.
>SET /CLI=TI:MCR
>SET /NONAMED
>SET /DEF=[200,200]
>@ <EOF>
Из лога видно, что она как раз работает.
Зато судя по ошибкам "Privilege violation" можно предположить, что перед выполнением IPGEN защитный UIC был непривилегированным (например [200,200]), соответственно и доступа к некоторым каталогам нету. Так что скорее всего нужно сначала выставить защитный UIC например командой SET /UIC=[1,1].
form, спасибо! Проблема была как раз в этом, теперь все нормально установилось.