$!	This is the site-specific system startup procedure.
$!
$!
$! Define symbols for later use
$ SCSNODE = f$edit(f$getsyi("SCSNODE"), "TRIM, UPCASE")
$!
$! Define commands for later use
$ SYSGEN :== $SYSGEN
$ INSTALL :== $INSTALL/COMMAND
$!
$! Define system logicals
$ define/system/exec SYS$SYLOGIN SYS$MANAGER:SYLOGIN.COM
$!
$! Define VAX ELN logical
$ define/system/exec ELN$ 'SCSNODE'$DRA3:[ELN]
$!
$! Define logicals needed for JNET
$ define/system/exec JAN_DEVICE 'SCSNODE'$DRA0:
$ define/system/exec JAN_TMPDEVICE DISK$SPOOL:
$!
$! WAIT before mounting disks
$ wait 00:01
$!
$! Mount disks
$ mount/system/cluster dra1 share0
$ mount/system/cluster dra2 share1
$ mount/system/cluster dra3 share2
$ mount/system/bind=spool dua0,dua1 spool0,spool1
$ mount/system/cluster/bind=home dra4,dra5 hom0,hom1
$!
$! Set LP11 printer characteristicds
$ set printer/lowercase/width=132 lpa0:
$!
$! Set DZ11 terminal multiplexer characteristics
$ set term/permanent/dialup/disconnect/hangup/modem tta0:
$ set term/permanent/dialup/disconnect/hangup/modem tta1:
$ set term/permanent/dialup/disconnect/hangup/modem tta2:
$ set term/permanent/dialup/disconnect/hangup/modem tta3:
$ set term/permanent/dialup/disconnect/hangup/modem tta4:
$ set term/permanent/dialup/disconnect/hangup/modem tta5:
$ set term/permanent/dialup/disconnect/hangup/modem tta6:
$ set term/permanent/dialup/disconnect/hangup/modem tta7:
$ set term/permanent/dialup/disconnect/hangup/modem ttb0:
$ set term/permanent/dialup/disconnect/hangup/modem ttb1:
$ set term/permanent/dialup/disconnect/hangup/modem ttb2:
$ set term/permanent/dialup/disconnect/hangup/modem ttb3:
$ set term/permanent/dialup/disconnect/hangup/modem ttb4:
$ set term/permanent/dialup/disconnect/hangup/modem ttb5:
$ set term/permanent/dialup/disconnect/hangup/modem ttb6:
$ set term/permanent/dialup/disconnect/hangup/modem ttb7:
$ set term/permanent/dialup/disconnect/hangup/modem ttc0:
$ set term/permanent/dialup/disconnect/hangup/modem ttc1:
$ set term/permanent/dialup/disconnect/hangup/modem ttc2:
$ set term/permanent/dialup/disconnect/hangup/modem ttc3:
$ set term/permanent/dialup/disconnect/hangup/modem ttc4:
$ set term/permanent/dialup/disconnect/hangup/modem ttc5:
$ set term/permanent/dialup/disconnect/hangup/modem ttc6:
$ set term/permanent/dialup/disconnect/hangup/modem ttc7:
$ set term/permanent/dialup/disconnect/hangup/modem ttd0:
$ set term/permanent/dialup/disconnect/hangup/modem ttd1:
$ set term/permanent/dialup/disconnect/hangup/modem ttd2:
$ set term/permanent/dialup/disconnect/hangup/modem ttd3:
$ set term/permanent/dialup/disconnect/hangup/modem ttd4:
$ set term/permanent/dialup/disconnect/hangup/modem ttd5:
$ set term/permanent/dialup/disconnect/hangup/modem ttd6:
$ set term/permanent/dialup/disconnect/hangup/modem ttd7:
$!
$! Start queues
$ start/queue/manager disk$spool:[sys0.sysque]
$ start/queue/batch/job_limit=4 sys$batch
$ start/queue/default=(flag=all,burst=one,trailer=one,feed) sys$print
$!
$! Start the networks - DECnet, TCP/IP, and JNET
$ @sys$manager:startnet
$ if f$search("sys$system:ipdriver.exe") .nes. "" then -
      sysgen connect ip0 /noadapter
$ @sys$manager:ip_startup
$ if f$search("sys$system:pydriver.exe') .nes. "" then -
      sysgen connect pya0 /noadapter /driver=pydriver
$ if f$search("sys$system:tzdriver.exe") .nes. "" then -
      sysgen connect tza0 /noadapter /driver=tzdriver
$ if f$search("jan_device:[jancommon.sys]janstart.com") .nes. "" then -
      @jan_device:[jancommon.sys]janstart.com
$!
$! Initialize layered products
$ if f$search("sys$manager:lpr_startup.com") .nes. "" then -
      @sys$manager:lpr_startup
$ if f$search("sys$manager:lpd_startup.com") .nes. "" then -
      @sys$manager:lpd_startup
$ if f$search("sys$manager:mailsmb_startup.com") .nes. "" then -
      @sys$manager:mailsmb_startup
$ @sys$manager:dqs$startup.com
$ @sys$manager:dns$startup.com
$ @sys$manager:ssu$startup.com
$ @sys$manager:acmstart
$ @sys$manager:tdmstrtup
$ @sys$manager:fmstartup
$ @sys$manager:gkstartup
$ @sys$manager:phigs$startup
$ @sys$manager:retos_startup
$ @sys$manager:vax11rsx
$ @sys$manager:f77reslib
$ @sys$manager:pdpdebug$startup
$ @sys$manager:cddstrtup
$ @sys$manager:monstart
$ @sys$manager:rmonstart
$ @sys$manager:dtrstup
$ @sys$manager:mrstart restart
$ @sys$manager:a1v2start
$ @sys$manager:adestarup
$ @sys$manager:reportstr
$ @sys$manager:dtpinit
$ @sys$manager:calc$start
$ @sys$manager:plus$start
$ @sys$manager:xway$startup
$ @sys$manager:tda_startup
$ @sys$manager:apl$startup
$ @sys$manager:lispstart
$ @sys$manager:mcrpwr$startup
$ @sys$instruction:vms$strtup.com
$!
$! Install additional commands
$ if f$search("sys$system:finger.exe") .nes. "" then -
      install add finger/priv=(sysprv,cmkrnl,world)
$ if f$search("sys$library:inet_mailshr.exe") .nes. "" then -
      install add sys$library:inet_mailshr.exe/share
$ assign/sys/exec "sys$instruction:vms$cai" vmscai
$!
$! VAX C Compiler Link Libraries
$ define/system/exec lnk$library  sys$library:vaxccurse
$ define/system/exec lnk$library_1  sys$library:vaxcrtlg
$ define/system/exec lnk$library_2  sys$library:vaxcrtl
$ define/system graph$library sys$sysroot:[decgraph]
$!
$! Submit certain startup commands to the system batch queue
$ submit/name=edcs$start sys$manager:edcsstart
$ submit/name=sls$startup sys$manager:sls$startup
$!
$ EXIT
