Adding some more languages: Dibol, Pascal, C, and Cobol. The v1_2 tape for C seems to be damaged – I can’t get it to work. Which is a shame, maybe, because the v1.1 compiler does not seem to produce very good code – at least, I’ve had some surprising results from a number of test programs I ran.
And installing Cobol 4.4 is a bit of a trick, as the original command file get things wrong… and not just the usual about the slow task builder. Mysteriously, the flx command wildcards don’t work right, unless you’re still in the same session as the one that the autoins script ran in. Apparently that changes some setting, but I’m clueless as to which one. And, the tape unit name must be entered in capitals, otherwise it will think you’re installing from disk.
Files needed:
ftp://ftp.trailing-edge.com/pub/rsxdists/dibol_v1_4.zip
ftp://ftp.trailing-edge.com/pub/rsxdists/pascal_v1_3.zip
ftp://ftp.trailing-edge.com/pub/rsxdists/pdp11_c_v1_1.zip
ftp://ftp.trailing-edge.com/pub/rsxdists/cobol_v4_4.zip
# pdp11 run
PDP-11 simulator V3.9-0
Disabling XQ
sim> set ts ena
sim> set ts0 format=tpc
sim> set ts0 lock
sim> att ts0 dibol_v1_4.tpc
sim> boot rp0
RSX-11M-PLUS V4.6 BL87 1024.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]: 15:42 19-jan-14
>TIME 15:42 19-jan-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 BAP0:/BATCH
>QUE BAP0:/AS:BATCH
>@ <EOF>
>bye
Have a Good Afternoon
19-JAN-14 15:42 TT0: logged off RSXMPL
>
>hello system
Password:
RSX-11M-PLUS V4.6 BL87 [1,54] System RSXMPL
19-JAN-14 15:42 Logged on Terminal TT0: as SYS1
Good Afternoon
*****************************************************************
* *
* Welcome to RSX-11M-PLUS *
* *
* Version 4.6 Base level 87 *
* This is file LB:[1,2]LOGIN.TXT *
* *
*****************************************************************
Last interactive login on Thursday, November 4, 1999 15:31:39 (TT0:)
>ufd [6,2]
>set /uic=[6,2]
>ins $flx
>mou/for ms0:
>flx ms0:[*,*]/di/do
Directory MS0:[0,0]
19-JAN-14
DBLRSX.CMD 35. 06-JUL-89 <233> [1,1]
DBLRSX.TSK 35. 06-JUL-89 <233> [1,1]
DBLRSX.STB 4. 06-JUL-89 <233> [1,1]
DBLDDT.OBJ 1. 06-JUL-89 <233> [1,1]
DBLUESL.OLB 34. 06-JUL-89 <233> [1,1]
DBLOSSL.OLB 54. 06-JUL-89 <233> [1,1]
MENU.OLB 128. 06-JUL-89 <233> [1,1]
DIB83E.MSG 20. 06-JUL-89 <233> [1,2]
DBLRSX.MSG 5. 06-JUL-89 <233> [1,2]
DBLERR.CMD 1. 06-JUL-89 <233> [1,2]
DBLSRT.MSG 3. 06-JUL-89 <233> [1,2]
SRTERR.CMD 1. 06-JUL-89 <233> [1,2]
DBLMNUGEN.MSG 7. 06-JUL-89 <233> [1,2]
DBLMNGERR.CMD 1. 06-JUL-89 <233> [1,2]
DBLMENU.MSG 3. 06-JUL-89 <233> [1,2]
DBLMNUERR.CMD 1. 06-JUL-89 <233> [1,2]
DBLSTART.CMD 1. 06-JUL-89 <233> [1,2]
DBLNOTES.TXT 1. 06-JUL-89 <233> [1,2]
DIBOL.HLP 66. 06-JUL-89 <233> [1,2]
DBLRTS.OLB 68. 06-JUL-89 <233> [1,20]
DBLSORT1.OLB 69. 06-JUL-89 <233> [1,20]
DBLSORT2.OLB 87. 06-JUL-89 <233> [1,20]
DBLMSGMGR.OLB 35. 06-JUL-89 <233> [1,20]
DBLSTATUS.OLB 48. 06-JUL-89 <233> [1,20]
DBLCOMP.OLB 231. 06-JUL-89 <233> [1,20]
MENUMOD1.ODL 11. 06-JUL-89 <233> [1,20]
MENUMOD2.ODL 11. 06-JUL-89 <233> [1,20]
DIBOL83.TSK 242. 06-JUL-89 <233> [3,54]
DBLMSGMGR.TSK 24. 06-JUL-89 <233> [3,54]
DBLSTATUS.TSK 30. 06-JUL-89 <233> [3,54]
DBLSORT1.TSK 45. 06-JUL-89 <233> [3,54]
DBLSORT2.TSK 65. 06-JUL-89 <233> [3,54]
DBLMNUGEN.TSK 103. 06-JUL-89 <233> [3,54]
IVP.CMD 1. 06-JUL-89 <233> [3,54]
IVPM.DBL 14. 06-JUL-89 <233> [3,54]
Total of 1485. blocks in 35. files
>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 <MM0:> [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
>;
>@ <EOF>
>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 15:43:47 for 5 seconds |
| Finished SLEEP at 15:43:52 |
| 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 19-JAN-14 Time is 15:43 |
| 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
15:44:03 *** MS0: — Dismount complete
DMO — TT0: dismounted from MS0: *** Final dismount initiated ***
Connect time: 0 hrs 1 mins 49 secs
CPU time used: 0 hrs 0 mins 20 secs
Task total: 172
Have a Good Afternoon
19-JAN-14 15:44 TT0: logged off RSXMPL
>
>hello system
Password:
RSX-11M-PLUS V4.6 BL87 [1,54] System RSXMPL
19-JAN-14 15:44 Logged on Terminal TT0: as SYS2
Good Afternoon
*****************************************************************
* *
* Welcome to RSX-11M-PLUS *
* *
* Version 4.6 Base level 87 *
* This is file LB:[1,2]LOGIN.TXT *
* *
*****************************************************************
Last interactive login on Sunday, January 19, 2014 15:42:14 (TT0:)
>^E
Simulation stopped, PC: 021240 (BR 21206)
sim> att ts0 pascal_v1_3.tpc
sim> c
>mou/for ms0:
>@[367,367]autoin
RSX-11M/M-PLUS Auto-Install Procedure V1.1
19-JAN-14 15:44:23
Type “?” for help; CTRL/Z to end; or valid input.
Which product(s) do you want to install? PAS
Type “?” for help; CTRL/Z to exit Auto-Install; or valid input.
Where are the update files located <DB0:>? MS0:
Type “?” for help; CTRL/Z to skip this product; or valid input.
Which device are the distribution files for PAS (PAS) located on (include colon)
? ms0:
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
Products being installed:
Device Product Task name
—— ——- ———
MS0: PAS (PAS)
Determining system configuration.
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
Do you want to customize PAS (PAS) (Y/N) <N>? y
Which directory do you want the PASCAL task assigned to ([g,m]) <[1,1]>?
Generate FPP or EIS code <FPP, EIS, UNKNOWN> <UNKNOWN>? FPP
Build the compiler using separate I & D space <NO>?
Allow future customization of this file <YES>?
Print release notes automatically <NO>?
Print the installation log automatically <NO>?
Do you want to customize PAS (PAS) again (Y/N) <N>?
Installation of PAS (PAS) beginning at 19-JAN-14 15:45:10
Reading PASPAS.CFG.
Transferring kit files to work area.
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
15:45:10 *** MS0: — Dismount complete
DMO — TT0: dismounted from MS0: *** Final dismount initiated ***
Building product PAS (PAS).
Transferring files from work area.
Running IVP command procedure PASIVP.CMD.
PAS — PDP-11 PASCAL V1.3-01
23 I := J; { Tests that message file is correctly installed – should
give warning }
^150
** PAS — ERROR 150: W — Must assign value before using variable
PDP-11 PASCAL V1.3
As verification that the OTS is correctly installed,
you should now see a non-fatal run time warning
DOUBLE DEALLOCATION OF DYNAMIC MEMORY
** TT0 — Warning — Error 22
Double deallocation of dynamic memory
At PC = 002702
In PASTST At Or After 21
Installation of PAS (PAS) ending at 19-JAN-14 15:45:20.
PIP — Not a directory device
MS0:[262,200]PASUPD.DON;*
Installation of PAS (PAS) successful.
Auto-Install ended on 19-JAN-14 at 15:45:20.
>^E
Simulation stopped, PC: 021240 (BR 21206)
sim> att ts0 pdp11_c_v1_1.tpc
sim> c
>mou/for ms0:
>@[367,367]autoin
RSX-11M/M-PLUS Auto-Install Procedure V1.1
19-JAN-14 15:46:53
Type “?” for help; CTRL/Z to end; or valid input.
Which product(s) do you want to install? CCC
Type “?” for help; CTRL/Z to exit Auto-Install; or valid input.
Where are the update files located <DB0:>? ms0:
Type “?” for help; CTRL/Z to skip this product; or valid input.
Which device are the distribution files for CCC (CCC) located on (include colon)
? ms0:
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
Products being installed:
Device Product Task name
—— ——- ———
MS0: CCC (CCC)
Determining system configuration.
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
Do you want to customize CCC (CCC) (Y/N) <N>? y
Suppress use of I/D space feature even if present <NO>?
Task directory <[3,54]>?
Target device <LB:>?
Print release notes <NO>?
Print log file <NO>?
Do you want to customize CCC (CCC) again (Y/N) <N>?
Installation of CCC (CCC) beginning at 19-JAN-14 15:47:21
Reading CCCCCC.CFG.
Transferring kit files to work area.
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
BRU – Starting Tape 1 on MS0:
BRU – End of Tape 1 on MS0:
BRU – Completed
15:47:21 *** MS0: — Dismount complete
DMO — TT0: dismounted from MS0: *** Final dismount initiated ***
Building product CCC (CCC).
Installing PDP-11 C product files
You must add the following line to your system startup command file:
@LB:[1,2]PDP11C.INS
PDP-11 C installation procedure ended
Transferring files from work area.
Running IVP command procedure CCCIVP.CMD.
Start of PDP-11 C Installation Verification Procedure
Verifying operation of PDP-11 C
Verifying presence of PDP-11 C product files
CCC has passed.
Installation of CCC (CCC) ending at 19-JAN-14 15:47:21.
PIP — Not a directory device
MS0:[362,200]CCCUPD.DON;*
Installation of CCC (CCC) successful.
Auto-Install ended on 19-JAN-14 at 15:47:21.
>^E
Simulation stopped, PC: 021240 (BR 21206)
sim> att ts0 cobol_v4_4.tpc
sim> c
>ufd [6,3]
>set /uic=[6,3]
>mou/for ms0:
>flx sy:/rs=ms0:[100,100]inscbl.cmd/do
>ins $edt
>edt inscbl.cmd
1 ;
*239
239 ;
*s/;/.goto 900
239 .goto 900
1 substitution
*ex
DB0:[6,3]INSCBL.CMD;2 350 lines
[m)B
>@inscbl
>;
>; I N S C B L . C M D
>;
>; COPYRIGHT (c) 1982 DIGITAL EQUIPMENT CORP.
>;
>; COMMAND FILE TO INSTALL COBOL V4.4 ONTO AN RSX-11M, 11M+ OR IAS SYSTEM USING
>; VERSION 1.8 OF RMS.
>;
>; YOU MUST BE LOGGED INTO A PRIVILEGED ACCT TO EXECUTE THIS COMMAND FILE.
>;
>; YOU MUST HAVE MOUNTED THE COBOL V4.4 DISTRIBUTION KIT PRIOR TO
>; EXECUTING THIS COMMAND FILE !
>;
>;
>INS $LBR
>;
>* WHAT DEVICE IS YOUR DISTRIBUTION KIT MOUNTED ON (NO COLON)? [S R:2-4]: MS0
>* ARE YOU INSTALLING COBOL ON A PDP-11 WITH CIS ? [Y/N]: n
>* WHAT IS YOUR SYSTEM DEVICE (NO COLON)? [S]: SY
>;
>* ARE YOU INSTALLING COBOL ON AN IAS SYSTEM? [Y/N]: N
>* WHAT DEVICE IS TO BE ASSIGNED FOR THE TASK-BUILD MAP (NO COLON)? [S]: SY
>ASN SY:=MP:
>* WHAT DIRECTORY DO YOU WANT THE COBOL TASKS ASSIGNED TO ([X,Y])? [S]: [6,3]
>;
>; REMOVE OLD COBOL FILES
>;
>PIP LB:[1,1]COBLIB.OLB;*/DE
PIP — No such file(s)
LB:[1,1]COBLIB.OLB;*
>PIP LB:[1,1]COBOVR.OLB;*/DE
PIP — No such file(s)
LB:[1,1]COBOVR.OLB;*
>PIP LB:[1,20]CBLLIB.OLB;*/DE
PIP — No such file(s)
LB:[1,20]CBLLIB.OLB;*
>PIP LB:[1,24]CBLBLD.CMD;*/DE
PIP — No such file(s)
LB:[1,24]CBLBLD.CMD;*
>PIP LB:[1,24]CBLBLD.ODL;*/DE
PIP — No such file(s)
LB:[1,24]CBLBLD.ODL;*
>PIP LB:[1,24]CBLMRG.CMD;*,LB:[1,24]REFRMT.CMD;*/DE
PIP — No such file(s)
LB:[1,24]CBLMRG.CMD;*
PIP — No such file(s)
LB:[1,24]REFRMT.CMD;*
>PIP LB:[6,3]CBLMRG.CBL;*,LB:[6,3]REFRMT.CBL;*/DE
PIP — No such file(s)
LB:[6,3]CBLMRG.CBL;*
PIP — No such file(s)
LB:[6,3]REFRMT.CBL;*
>PIP LB:[6,3]IO001.CBL;*,LB:[6,3]IO002.CBL;*,LB:[6,3]IO003.CBL;*/DE
PIP — No such file(s)
LB:[6,3]IO001.CBL;*
PIP — No such file(s)
LB:[6,3]IO002.CBL;*
PIP — No such file(s)
LB:[6,3]IO003.CBL;*
>PIP SY:[1,34]CBLMRG.MAP;*,SY:[1,34]REFRMT.MAP;*/DE
PIP — No such file(s)
SY:[1,34]CBLMRG.MAP;*
PIP — No such file(s)
SY:[1,34]REFRMT.MAP;*
>PIP SY:[1,34]COBOL.MAP;*/DE
PIP — No such file(s)
SY:[1,34]COBOL.MAP;*
>PIP LB:[1,1]CID.OBJ;*/DE
PIP — No such file(s)
LB:[1,1]CID.OBJ;*
>PIP LB:[1,1]CIROT0.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIROT0.ODL;*
>PIP LB:[1,1]CIROT3.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIROT3.ODL;*
>PIP LB:[1,1]CIO017.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO017.ODL;*
>PIP LB:[1,1]CIO027.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO027.ODL;*
>PIP LB:[1,1]CIO037.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO037.ODL;*
>PIP LB:[1,1]CIO047.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO047.ODL;*
>PIP LB:[1,1]CIO057.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO057.ODL;*
>PIP LB:[1,1]CIO067.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO067.ODL;*
>PIP LB:[1,1]CIO077.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO077.ODL;*
>;
>;
>; COPY FILES FROM THE DISTRIBUTION DEVICE
>;
>FLX SY:[6,3] = MS0:[200,200]*.CBL,[200,210]*.*,[200,100]*.*
>;
>; PLACE IN THE APPROPRIATE AREAS
>;
>PIP LB:[6,3]IO001.CBL/NV/RE=SY:[6,3]IO001.CBL
>PIP LB:[6,3]IO002.CBL/NV/RE=SY:[6,3]IO002.CBL
>PIP LB:[6,3]IO003.CBL/NV/RE=SY:[6,3]IO003.CBL
>PIP LB:[1,1]COBLIB.OLB/NV/RE=SY:[6,3]COBLIB.OLB
>PIP LB:[1,1]COBOVR.OLB/NV/RE=SY:[6,3]COBOVR.OLB
>PIP LB:[1,20]CBLLIB.OLB/NV/RE=SY:[6,3]COBBLD.OLB
>PIP LB:[1,24]CBLBLD.ODL/NV/RE=SY:[6,3]CBLBLD.ODL
>PIP LB:[1,24]CBLBLD.CMD/NV/RE=SY:[6,3]CBLBLD.CMD
>PIP LB:[1,24]CBLMRG.CMD/NV/RE=SY:[6,3]CBLMRG.CMD
>PIP LB:[1,24]REFRMT.CMD/NV/RE=SY:[6,3]REFRMT.CMD
>PIP LB:[6,3]CBLMRG.CBL/NV/RE=SY:[6,3]CBLMRG.CBL
>PIP LB:[6,3]REFRMT.CBL/NV/RE=SY:[6,3]REFRMT.CBL
>PIP LB:[1,1]CID.OBJ;1/NV/RE=SY:[6,3]COBCID.OBJ
>;
>; PERFORM INSTALLATION
>@ <EOF>
>edt [1,24]cblbld.cmd
1 ;CBLBLD.CMD
*7
7 COBOL,MP:[1,34]COBOL/-SP=[1,24]CBLBLD/MP
*s|,|/sb,|
7 COBOL/sb,MP:[1,34]COBOL/-SP=[1,24]CBLBLD/MP
1 substitution
*ex
DB0:[1,24]CBLBLD.CMD;2 69 lines
[m)B
>TKB @LB:[1,24]CBLBLD.CMD
>PIP LB:[6,3]COBOL.TSK/NV/RE=LB:[6,3]COBOL.TSK
>INS LB:[6,3]COBOL.TSK
>CBL DB0:[6,3]CBLMRG/-SKL=LB:[6,3]CBLMRG/ERR:2
>TKB @LB:[1,24]CBLMRG.CMD
>CBL DB0:[6,3]REFRMT/-SKL=LB:[6,3]REFRMT/ERR:2
>TKB @LB:[1,24]REFRMT.CMD
>PIP LB:[6,3]CBLMRG.TSK/NV/RE=LB:[6,3]CBLMRG.TSK
>PIP LB:[6,3]REFRMT.TSK/NV/RE=LB:[6,3]REFRMT.TSK
>INS LB:[6,3]CBLMRG.TSK
>INS LB:[6,3]REFRMT.TSK
>CBL DB0:[6,3]IO001/-SKL=LB:[6,3]IO001/ERR:2
>CBL DB0:[6,3]IO002/-SKL=LB:[6,3]IO002/ERR:2
>CBL DB0:[6,3]IO003/-SKL=LB:[6,3]IO003/ERR:2
>TKB IO001=IO001,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>TKB IO002=IO002,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>TKB IO003=IO003,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>run io001
Successful test of COBOL-11 verification program IO001
>run io002
Successful test of COBOL-11 verification program IO002
>run io003
Successful test of COBOL-11 verification program IO003
>
>run $shutup
RSX-11M-PLUS Shut down program
Enter minutes to wait before shutdown: 0
Reason for shutdown (<CR> for none):
OK to shutdown? [Y/N]: y
All further logins are disabled
19-JAN-14 15:52 System is now shutting down — RSXMPL
QUE /STO:QMG
>
STOP/ACCOUNTING SHUTUP
15:52:39 SYSLOG — 47. Exiting
>
@LB:[1,2]SHUTUP
>VCP DISCONNECT /ALL
>@ <EOF>
>
ELI /NOLOG
>
ACS DB0:/BLKS=0.
ACS — Checkpoint file now inactive
>
DMO DB0:/DEV/LOCK=V
DMO — System disk being dismounted
DMO — SYSTEM dismounted from DB0: *** Final dismount initiated ***
15:52:40 *** DB0: — Dismount complete
>
DMO MS0:/DEV/LOCK=V
15:52:45 *** MS0: — Dismount complete
DMO — TT0: dismounted from MS0: *** Final dismount initiated ***
>
SHUTUP operation complete
HALT instruction, PC: 126130 (CLRB @#177776)
sim> <strong>q Goodbye
#