lddriver/LM$STARTUP.COM at main · vmssoftware/lddriver · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
$ !                       L M $ S T A R T U P . C O M
$ ! ************************************************************************
$ ! *                                                                      *
$ ! * These sources for LDdriver  are based on the sources provided in the *
$ ! * LD  V9.7  kit  as  provided by  Jur  van den  Burg  on  digiater.nl. *
$ ! * VMS Software, Inc (VSI) has put its changes to  these sources in the *
$ ! * public domain.                                                       *
$ ! *                                                                      *
$ ! * The original license statement for LD 9.7 reads as follows:          *
$ ! *                                                                      *
$ ! * LDdriver is freeware.  It may be  freely  downloaded and  used.  The *
$ ! * sources are available in the kit, and support is limited. In case of *
$ ! * problems report them and they may get fixed.  We are not responsible *
$ ! * for any malfunction or data loss caused by this software.            *
$ ! *                                                                      *
$ ! ************************************************************************
$ !
$ !+-----------------------------------------------------------------------------
$ !
$ set noon
$ ctrlr = p1
$ if ctrlr .eqs. "" then ctrlr = "a"
$ arch = f$getsyi("arch_name")
$ !
$ if .not. f$getdvi("lm''ctrlr'0","exists")
$ then
$    gosub load_lmdriver_'arch'
$ endif
$ !
$ if f$file_attributes("sys$system:lm$utility.exe","known")
$ then
$    install replace sys$system:lm$utility.exe
$ else
$    install create  sys$system:lm$utility.exe /open /header /share /privilege=(phy_io,syslck,share)
$ endif
$ !
$ if f$file_attributes("sys$message:lm$msg.exe","known")
$ then
$    install replace sys$message:lm$msg.exe
$ else
$    install create  sys$message:lm$msg.exe
$ endif
$ !
$ exit
$ !
$!+-----------------------------------------------------------------------------
$ !
$load_lmdriver_alpha:
$load_lmdriver_ia64:
$load_lmdriver_x86_64:
$ !
$ sysman := $sysman
$ if f$getsyi("system_check") .and. f$search("sys$loadable_images:sys$lddriver_mon.exe") .nes. ""
$ then
$   driver := "sys$lddriver_mon.exe"
$ else
$   driver := "sys$lddriver.exe"
$ endif
$ sysman io connect lm'ctrlr'0 /noadapter /driver='driver'
$ !
$ return
$ !
$!+-----------------------------------------------------------------------------
$ !