[Info-vax] $QIO Volatile my arse

[maherrj at googlemail.com]

And just a little bit of tenderness: -

$ on warning then exit
$ if .not. f$privilege("cmkrnl,sysprv")  then goto no_priv
$ arch_name = f$getsyi("arch_name")
$ if (arch_name .nes. "Alpha" .and. arch_name .nes. "IA64") then goto no_vax
$!
$set default work
$!
$cobol/list/noalign/copy/granularity=quad  t3$app_ldr.cob
$!
$macro/list/machine/enable=quad/preserve=(GRANULARITY,ATOMICITY) t3$app_ldr_def
$!
$link/map/full/notrace/exe=sys$common:[sysexe]t3$app_ldr.exe -
t3$app_ldr.obj, -
t3$app_ldr_def.obj, -
t3$msgsym.obj
$!
$ purge/log sys$system:t3$app_ldr.exe
$ set file/protection=(w:e) sys$system:t3$app_ldr.exe
$!
$install:==$install/command
$if f$file_attributes("sys$system:t3$app_ldr.exe","KNOWN")
$then
$       install replace sys$system:t3$app_ldr.exe
$else
$       install add sys$system:t3$app_ldr.exe /open/header/share
$endif
$!
$ exit
$!
$no_priv:
$       write sys$output "Insufficient privilege. You need (CMKRNL,SYSPRV)"
$       exit 44
$no_vax:
$       write sys$output "This code only works on Alpha and IA64"
$       exit 44
$