$ ! Do not edit lines beginning with `$!+`
$!+64000
$!+ 0
$!+ 8
$!+ kersquash:DECUSINFO.DSK
$!+ 0
$!+ 0
$ set proc/priv=(cmkrnl,sysprv,netmbx,tmpmbx)
$ sysgen:=$sysgen
$ sysman:=$sysman
$ ! Device: _ARISIA$FRA2: Size:64000  Index File Reserve:0 
$ ! Container file: kersquash:DECUSINFO.DSK
$ ! Mount at boot time: Y Compress:Low Cache:8
$ device := FRA0:
$ m = 1
$ if .not. f$getdvi(device,"exists") then sysgen connect 'device' /noadapter/driver=frdriver
$ device := FRA0:
$ if f$getdvi(device,"refcnt") .ne. 0
$ then
$ write sys$output "%Squash-F-device busy. Exiting. ",device
$ endif
$ if f$getdvi(device,"refcnt") .ne. 0 then exit
$ if f$search("kersquash:DECUSINFO_$FRA0.LOG;") .nes. "" then delete kersquash:DECUSINFO_$FRA0.LOG;
$ run /detached/authorize/input=kersquash:SQUASH_DECUSINFO$.DAEMON/output=kersquash:DECUSINFO_$FRA0.LOG; sys$system:loginout.exe
$ i = 0
$10$:
$ if (f$getdvi(device,"sts") .and. 16) .ne. 0
$ then
$       if m .and. (p1 .eqs. "") then mount/system/noassist 'device' DECUSINFO
$       exit
$ endif
$ wait 00:00:06
$ i = i + 1
$ if i .lt. 20 then goto 10$
$write sys$output "%SQUASH-E-Device taking too long to go online."
$ exit 4