Trailing-Edge
-
PDP-10 Archives
-
BB-D480F-SB_FORTRAN10_V10
-
fdbm5.ctl
There are 5 other files named fdbm5.ctl in the archive. Click here to see a list.
;FDBM5.CTL V(EDIT)==5A(12)
;Used to load FORTRAN run-time system
;
;Submit with command .SUBMIT FDBM5/TIME:10:00
;
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;Required files:
;SYS: MAKLIB (Latest released versions)
; DIRECT
; LINK+LNK*
; FORTRAN V10
; FOROTS V10
; FORLIB V10
;
;DSK: DBSANY.REL DBS10.REL DBSFOR.REL
; FDBM5.CTL DBCS1F.CMD FDBM5.CCL
; SCHIO1.REL FDBM5.FOR
;
;
;Output: DBMSF.REL, DBMSF.EXE
;
;Use latest software and record what is used
.SET WATCH VERSION
.MOU PIT:
.R SETSRC
*C PIT:,*
*T
.DIR /CHECKSUM SYS:DIRECT, SYS:MAKLIB, SYS:LINK, SYS:LNK*
.ERROR
; These files must exist to be built into DBMSF.EXE
.DIR DBSFOR.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, FORDBM.REL
.TYPE FDBM5.CCL
.R MAKLIB
*@FDBM5.CCL
.IF (ERROR) .GOTO TRUBLE
.ERROR
.EX FDBM5.FOR
.IF (ERROR) .GOTO TRUBLE
.TY DBCS1F.CMD
.R LINK
*@DBCS1F
.IF (ERROR) .GOTO TRUBLE
NOFORT::
.ERROR
;
;See what we got
;
.DIR /CHECKSUM DBMSF.EXE
;
;Tell how we did
;
.PLEASE -- DBMS-10 Creation successful!!!
.GOTO ENDOF
TRUBLE::
.PLEASE -- DBMS-10 Creation not successful???
ENDOF::
%FIN::
;[ End of DBMS10.CTL ]