lddriver/LD$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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
$ !                       L D $ 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"
$ !
$ if f$getsyi("arch_type") .eq. 1
$ then
$    gosub load_lddriver_vax
$ endif
$ !
$ if .not. f$getdvi("ld''ctrlr'0","exists")
$ then
$    if f$getsyi("arch_type") .eq. 2
$    then
$       gosub load_lddriver_alpha
$    endif
$ !
$    if f$getsyi("arch_type") .eq. 3
$    then
$        gosub load_lddriver_ia64
$    endif
$ !
$    if f$getsyi("arch_type") .eq. 4
$    then
$        gosub load_lddriver_x86
$    endif
$ !
$ endif
$ !
$ if f$file_attributes("sys$system:ld$utility.exe","known")
$ then
$    install replace sys$system:ld$utility.exe
$ else
$    install create  sys$system:ld$utility.exe /open /header /share /privilege=(phy_io,syslck,share)
$ endif
$ !
$ if f$file_attributes("sys$message:ld$msg.exe","known")
$ then
$    install replace sys$message:ld$msg.exe
$ else
$    install create  sys$message:ld$msg.exe
$ endif
$ !
$ exit
$ !
$!+-----------------------------------------------------------------------------
$ !
$load_lddriver_vax:
$ !
$ sysgen := $sysgen
$ sysgen reload lddriver
$ sysgen connect ld'ctrlr'0 /noadapter
$ !
$ return
$ !
$!+-----------------------------------------------------------------------------
$ !
$load_lddriver_alpha:
$load_lddriver_ia64:
$load_lddriver_x86:
$ !
$ 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 ld'ctrlr'0 /noadapter /driver='driver'
$ !
$ return
$ !
$!+-----------------------------------------------------------------------------
$ !