Установка DiBOL
DiBOL( Digital's Business Oriented Language) - язык программирования разработанный в DEC и является смесью из нескольких языков программирования. Устанавливается он не сложно и похоже что образ ленты не поврежден.

Скачиваем отсюда и приступаем:

sim> att ts0 dibol_v1_4.tpc
sim> boot rp0


RSX-11M-PLUS V4.6 BL87 512.KW System:"RSXMPL"

>RED DB:=SY:
>RED DB:=LB:
>RED DB:=SP:
>MOU DB0:"RSX11MPBL87"
>@DB:[1,2]STARTUP
>; PLEASE NOTE
>;
>; If you have not yet read the system release notes, please do so
>; now before attempting to perform a SYSGEN or to utilize the new
>; features of this system.
>;
>;
Z[c
SET -- Inquire cannot determine terminal type
>;
>; Please ignore any random characters that may have printed on your
>; terminal just now. They came from a SET /INQUIRE=TI: command.
>; Evidently your terminal does not recognize escape sequences.
>; This will not affect the running of this command file.
>;
>* Please enter time and date (HH:MM DD-MMM-YYYY) [S]: 18:25 02-MAR-14
>TIME 18:25 02-MAR-14
>ACS SY:/BLKS=1024.
>CON ONLINE ALL
>ELI /LOG/LIM
>CLI /INIT=DCL/CTRLC/DPR="<15><12>/$ /"
>INS LB:[1,1]RMSRESAB.TSK/RON=YES/PAR=GEN
>INS LB:[1,1]RMSLBL.TSK/RON=YES/PAR=GEN
>INS LB:[1,1]RMSLBM.TSK/RON=YES/PAR=GEN
>INS $QMGCLI
>INS $QMGCLI/TASK=...PRI
>INS $QMGCLI/TASK=...SUB
>QUE /START:QMG
>INS $QMGPRT/TASK=PRT.../SLV=NO
>QUE LP0:/CR/NM
>START/ACCOUNTING
>CON ESTAT LP0:
>QUE LP0:/SP/FL:2/LOWER/FO:0
>QUE BAP0:/BATCH
>QUE LP0:/AS:PRINT
>QUE BAP0:/AS:BATCH
>@
>BYE

Have a Good Evening
02-MAR-14 18:25 TT0: logged off RSXMPL
>
>hello system
Password:

RSX-11M-PLUS V4.6 BL87 [1,54] System RSXMPL
2-MAR-14 18:25 Logged on Terminal TT0: as SYS1

Good Evening

*****************************************************************
* *
* Welcome to RSX-11M-PLUS *
* *
* Version 4.6 Base level 87 *
* This is file LB:[1,2]LOGIN.TXT *
* *
*****************************************************************

Last interactive login on Sunday, March 2, 2014 18:18:33 (TT1:)

>ufd [6,2]
>set /uic=[6,2]
>ins $flx
>mou/for ms0:
>flx sy:/rs=ms0:[1,1]dblrsx.cmd/do
>@dblrsx
>!***********************************************************************&
>! &
>! RSX-11M+ DIBOL Version V01.04 INSTALLATION COMMAND FILE &
>! &
>!***********************************************************************&
>!
>!
>* What device is the distribution medium mounted on [S]: MS0:
>;
>; We will now attempt to copy the distribution files onto the system disk
>;
>FLX LB:[1,1]/RS/CO/BL:35.=MS0:[1,1]DBLRSX.TSK/DNS:1600
>FLX LB:[1,1]/RS=MS0:[1,1]DBLRSX.STB/DNS:1600/-RW
>FLX LB:[1,1]/RS=MS0:[1,1]DBLDDT.OBJ/DNS:1600/-RW
>FLX LB:[1,1]/RS=MS0:[1,1]DBLUESL.OLB/DNS:1600/-RW
>FLX LB:[1,1]/RS=MS0:[1,1]DBLOSSL.OLB/DNS:1600/-RW
>FLX LB:[1,1]/RS=MS0:[1,1]MENU.OLB/DNS:1600/-RW
>FLX LB:[1,2]/RS/IM=MS0:[1,2]DIB83E.MSG/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLRSX.MSG/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLERR.CMD/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLSRT.MSG/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]SRTERR.CMD/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLMNUGEN.MSG/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLMNGERR.CMD/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLMENU.MSG/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLMNUERR.CMD/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLSTART.CMD/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DBLNOTES.TXT/DNS:1600/-RW
>FLX LB:[1,2]/RS=MS0:[1,2]DIBOL.HLP/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLRTS.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLSORT1.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLSORT2.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLMSGMGR.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLSTATUS.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]DBLCOMP.OLB/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]MENUMOD1.ODL/DNS:1600/-RW
>FLX LB:[1,20]/RS=MS0:[1,20]MENUMOD2.ODL/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:242.=MS0:[3,54]DIBOL83.TSK/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:24.=MS0:[3,54]DBLMSGMGR.TSK/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:30.=MS0:[3,54]DBLSTATUS.TSK/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:45.=MS0:[3,54]DBLSORT1.TSK/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:65.=MS0:[3,54]DBLSORT2.TSK/DNS:1600/-RW
>FLX LB:[3,54]/RS/CO/BL:103.=MS0:[3,54]DBLMNUGEN.TSK/DNS:1600/-RW
>FLX /RS=MS0:[3,54]IVP.CMD/DNS:1600/-RW
>FLX /RS=MS0:[3,54]IVPM.DBL/DNS:1600/-RW
>;
>; Build the DIBOL, DBLSORT, and MENU Error Message Files
>;
>DCL INSTALL $RMSDEF
>DCL INSTALL $RMSCNV
>DEF @LB:[1,2]DBLERR

Your file has been created -- DB:[1,2]DBLRSX.ERR;1

>DCL CONVERT /RELATIVE/PAD/TRUNCATE LB:[1,2]DBLRSX.MSG LB:[1,2]DBLRSX.ERR
>DEF @LB:[1,2]SRTERR

Your file has been created -- DB:[1,2]DBLSRT.ERR;1

>DCL CONVERT /RELATIVE/PAD/TRUNCATE LB:[1,2]DBLSRT.MSG LB:[1,2]DBLSRT.ERR
>DEF @LB:[1,2]DBLMNGERR

Your file has been created -- DB:[1,2]DBLMNUGEN.ERR;1

>DCL CONVERT /RELATIVE/PAD/TRUNCATE LB:[1,2]DBLMNUGEN.MSG LB:[1,2]DBLMNUGEN.ERR
>DEF @LB:[1,2]DBLMNUERR

Your file has been created -- DB:[1,2]DBLMENU.ERR;1

>DCL CONVERT /RELATIVE/PAD/TRUNCATE LB:[1,2]DBLMENU.MSG LB:[1,2]DBLMENU.ERR
>;
>DCL PURGE LB:[1,1]DBLRSX.TSK
>DCL PURGE LB:[1,1]DBLRSX.STB
>DCL PURGE LB:[1,1]DBLDDT.OBJ
>DCL PURGE LB:[1,1]DBLUESL.OLB
>DCL PURGE LB:[1,1]DBLOSSL.OLB
>DCL PURGE LB:[1,1]MENU.OLB
>DCL PURGE LB:[1,2]DIB83E.MSG
>DCL PURGE LB:[1,2]DBLRSX.MSG
>DCL PURGE LB:[1,2]DBLERR.CMD
>DCL PURGE LB:[1,2]DBLSRT.MSG
>DCL PURGE LB:[1,2]SRTERR.CMD
>DCL PURGE LB:[1,2]DBLRSX.ERR
>DCL PURGE LB:[1,2]DBLSRT.ERR
>DCL PURGE LB:[1,2]DBLMNUGEN.ERR
>DCL PURGE LB:[1,2]DBLMNUGEN.MSG
>DCL PURGE LB:[1,2]DBLMNGERR.CMD
>DCL PURGE LB:[1,2]DBLMENU.ERR
>DCL PURGE LB:[1,2]DBLMENU.MSG
>DCL PURGE LB:[1,2]DBLMNUERR.CMD
>DCL PURGE LB:[1,2]DBLSTART.CMD
>DCL PURGE LB:[1,2]DBLNOTES.TXT
>DCL PURGE LB:[1,2]DIBOL.HLP
>DCL PURGE LB:[1,20]DBLRTS.OLB
>DCL PURGE LB:[1,20]DBLSORT1.OLB
>DCL PURGE LB:[1,20]DBLSORT2.OLB
>DCL PURGE LB:[1,20]DBLMSGMGR.OLB
>DCL PURGE LB:[1,20]DBLSTATUS.OLB
>DCL PURGE LB:[1,20]DBLCOMP.OLB
>DCL PURGE LB:[1,20]MENUMOD1.ODL
>DCL PURGE LB:[1,20]MENUMOD2.ODL
>DCL PURGE LB:[3,54]DIBOL83.TSK
>DCL PURGE LB:[3,54]DBLMSGMGR.TSK
>DCL PURGE LB:[3,54]DBLSTATUS.TSK
>DCL PURGE LB:[3,54]DBLSORT1.TSK
>DCL PURGE LB:[3,54]DBLSORT2.TSK
>DCL PURGE LB:[3,54]DBLMNUGEN.TSK
>;
>; To automatically have the DIBOL components installed when your
>; system is booted; append LB:[1,2]DBLSTART.CMD to the system startup
>; file (LB:[1,2]STARTUP.CMD).
>;
>; Please read LB:[1,2]DBLNOTES.TXT for Release Notes that were not
>; available in time for the Release Notes and Installation Guide
>; documentation.
>;
>; Dismount and Deallocate MS0: and store it in a safe place.
>;
>;
>* Do you want to verify the installation?? [Y/N]: Y
>;
>;
>;
>DCL REMOVE DBLRSX/REG
REM -- Common not in system
>;
>; Executing LB:[1,2]DBLSTART.CMD
>;
>;
>; Install the DIBOL-83 Components
>;
>CBD DBLRSX
CBD -- Common not in system
>DCL INSTALL LB:[1,1]DBLRSX/PARTITION=GEN
>DCL INSTALL $DIBOL83
>DCL INSTALL $DBLMSGMGR
>DCL INSTALL $DBLSORT1
>DCL INSTALL $DBLSORT2
>DCL INSTALL $DBLMNUGEN/TASK=...MNU
>DCL RUN MSGMGR /DELAY=1S
>;
>; Executing IVP.CMD (The IVP Command File)
>;
>DIB IVPM/OPTIMIZE/BUILD
No errors detected
>DCL LINK @IVPM
LINK -- Sorry, task not installed
>RUN IVPM
INS -- File not found
>;
>;
>DCL DELETE /QUERY IVP.CMD;0
Delete file DB0:[6,2]IVP.CMD;1 [Y/N/G/Q]? N
>DCL DELETE /QUERY IVPM.DBL;0
Delete file DB0:[6,2]IVPM.DBL;1 [Y/N/G/Q]? N
>DCL DELETE /QUERY IVPM.CMD;0
Delete file DB0:[6,2]IVPM.CMD;1 [Y/N/G/Q]? N
>DCL DELETE /QUERY IVPM.ODL;0
Delete file DB0:[6,2]IVPM.ODL;1 [Y/N/G/Q]? N
>DCL DELETE /QUERY IVPM.TSK;0
DEL -- No such file(s)
SY0:[6,2]IVPM.TSK;0
>DCL DELETE /QUERY IVPM.OBJ;0
Delete file DB0:[6,2]IVPM.OBJ;1 [Y/N/G/Q]? N
>;
>@
>ins $tkb
>tkb @ivpm
>run ivpm

+--------------------------------------------------------------------+
| Starting RSX-11M+ DIBOL V01.04 Installation Verification Program |
+--------------------------------------------------------------------+
| Seventeen tests follow |
| Completed test number 01 (OPEN, DISPLAY) |
| Completed test number 02 (WRITES) |
| Completed test number 03 (READS) |
| Completed test number 04 (UESL XCALLS) |
| Completed test number 05 (Error handling) |
| Completed test number 06 (CLEAR, INCR, ADD) |
| Completed test number 07 (Booleans) |
| Completed test number 08 (CALL, RETURN) |
| Completed test number 09 (.IFDEF) |
| Completed test number 10 (.IFNDEF) |
| Starting SLEEP at 18:27:13 for 5 seconds |
| Finished SLEEP at 18:27:18 |
| Completed test number 11 (SLEEP) |
| Completed test number 12 (XCALL MONEY, Edit-strings) |
| Completed test number 13 (XCALL PAK/UNPAK) |
| Completed test number 14 (XCALL to a DIBOL subroutine) |
| Completed test number 15 (LOCASE) |
| Completed test number 16 (SEND, RECV) |
| Completed test number 17 (FOR, USING) |
+--------------------------------------------------------------------+
| Date is 02-MAR-14 Time is 18:27 |
| Job number is 000 Terminal number is 0 |
| DIBOL Run-Time Library Version is "RSX11M+ V01.04 " |
+--------------------------------------------------------------------+
| RSX-11M+ DIBOL V01.04 IVP successfully completed |
+--------------------------------------------------------------------+
>bye
18:27:26 *** MS0: -- Dismount complete

DMO -- TT0: dismounted from MS0: *** Final dismount initiated ***

Connect time: 0 hrs 1 mins 52 secs
CPU time used: 0 hrs 0 mins 20 secs
Task total: 172

Have a Good Evening
02-MAR-14 18:27 TT0: logged off RSXMPL
комментарии # 03-03-2014 05:46, Unik

Оставить комментарий к «Установка DiBOL»


Навигация

Страницы

Поиск

000webhost logo