Установка DiBOL

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

Скачиваем dibol_v1_4.zip и приступаем:

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