🚀 go-pugleaf

Submitted-by: sysop@primate.wisc.edu
Posting-number: Volume 3, Issue 164
Archive-name: enter_by_fid/part01

ENTER - A utility that will allow you to creat file names for files who's 
	FID is known.  May be used to create multiple links to a known file,
	ala $ set file/enter=xxxx, OR to help when you have lost files that
	need to be relinked someplace.

Interactive use.  Future mods will be released with CLI preprocessing for
command line execution.

$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 8.0
$!   On 10-SEP-1992 15:44:26.09   By user BERRYMAN    
$!
$! The VMS_SHARE software that created this archive
$!    was written by  Andy Harper, Kings College London UK
$!    -- September 1992
$!
$! Credit is due to these people for their original ideas:
$!    James Gray, Michael Bednarek 
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. ENTER.FOR;1
$!       2. FABDEF.SYM;1
$!       3. MAKE.COM;1
$!       4. NAMDEF.SYM;1
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'"
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-UNPACK, Unpacking file ''P1'"
$ n=P1
$ if P3 .nes. "" then $ n=f
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
PROCEDURE SkipPartsep LOOP ERASE_LINE;EXITIF INDEX(CURRENT_LINE,
"-+-+-+-+-+-+-+-+")=1;ENDLOOP;ERASE_LINE;ENDPROCEDURE PROCEDURE ProcessLine s:=
ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(CURRENT_LINE);
CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["`"]:ERASE_CHARACTER(1);COPY_TEXT(
ASCII(GetHex));[" "]: ERASE_CHARACTER(1);[OUTRANGE,INRANGE]: MOVE_HORIZONTAL(1)
;ENDCASE;ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
"UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
GET_INFO(COMMAND_LINE,"output_file"));QUIT;
$ if p3 .eqs. "" then $ goto ck
$ open/write fdl &f
$ write fdl "RECORD"
$ write fdl P3
$ close fdl
$ w "-I-CONVRFM, Converting record format to ", P3
$ convert/fdl=&f &f-1 &P1
$ck: checksum 'P1'
$ if checksum$checksum .eqs. P2 then $ exit
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ delete/nolog 'f'*
$ endsubroutine
$start:
$!
$ create 'f'
X`09program`20Enter
X
XC*`20Title:`09ENTER.FOR
XC*`20Author:`09Shawn`20A.`20Clifford
XC*`20Date:`0926-AUG-1992
XC*`20Purpose:`09Enter`20a`20file`20by`20its'`20File`20ID`20into`20the`20curren
Vt`20directory.
X
X`09implicit`20none
X
X`09include`20'($rmsdef)'
X`09include`20'($ssdef)'
Xc
Xc`09Converted`20all`20the`20$EQU`20statements`20in`20the$NAMDEF.MAR`20and`20$F
VABDEF.MAR
Xc`09macros,`20stored`20in`20the`20SYS$LIBRARY:STARLET.MLB`20macro`20library,
V`20into
Xc`09FORTRAN`20PARAMETER`20statements`20for`20symbol`20definitions.`20`20Just
V`20using:
Xc`09`09include`20'($fabdef)'
Xc`09would`20not`20allow`20me`20to`20use`20the`20symbol`20names`20the`20way`20I
V`20needed.
Xc`09The`20important`20point`20is`20that`20the`20FAB$x_`20(or`20NAM$x_)`20value
Vs`20are`20OFFSETS
Xc`09into`20the`20FAB/NAM`20blocks`20for`20the`20locations`20of`20the`20FAB/NAM
V`20fields.
Xc`09These`20offsets`20are`20BYTE`20offsets`20from`20the`20top`20of`20the`20blo
Vck,`20therefore
Xc`09we`20need`20to`20divide`20by`202`20or`204`20when`20accessing`20WORD`20or
V`20LONGWORD`20cells.
Xc
X`09include`20'namdef.sym'
X`09include`20'fabdef.sym'
X
X`09parameter`09naml_siz`20=`20(NAM$C_BLN/4),
X`091`09`09namw_siz`20=`20(NAM$C_BLN/2),
X`091`09`09fabl_siz`20=`20(FAB$C_BLN/4),
X`091`09`09fabw_siz`20=`20(FAB$C_BLN/2)
Xc
Xc`09Define`20the`20access`20blocks.`20`20Put`20the`20byte`20definitions`20afte
Vr`20INTEGER*4,
Xc`09and`20before`20INTEGER*2`20definitions`20to`20keep`20the`20blocks`20longwo
Vrd`20aligned.
Xc`09The`20access`20blocks`20are`20define`20for`20BYTE,`20WORD,`20and`20LONGWOR
VD`20arrays
Xc`09so`20that`20we`20may`20access`20the`20different`20FAB/NAM`20cell`20locatio
Vns`20according
Xc`09to`20the`20cell`20sizes.
Xc
X`09integer*4`09naml`20(0:naml_siz-1)`09/naml_siz*0/
X`09integer*4`09fabl`20(0:fabl_siz-1)`09/fabl_siz*0/
X`09byte`09`09fabb`20(0:FAB$C_BLN-1)`09/FAB$C_BLN*0/
X`09byte`09`09namb`20(0:NAM$C_BLN-1)`09/NAM$C_BLN*0/
X`09integer*2`09nam`20`20(0:namw_siz-1)`09/namw_siz*0/
X`09integer*2`09fab`20`20(0:fabw_siz-1)`09/fabw_siz*0/
X
X`09character*(NAM$C_MAXRSS)`20`20inp_str,`20esa_str,`09!`20Set`20aside`20space
V`20...
X`091`09res_str,`20dna_str`20/'.ENTERED'/`09!`20...`20for`20filenames.
X`09character*37`09prompt/'Name`20of`20file`20entry`20(w/o`20wildcards):`20`20'
V/
X`09character*10`09num_buf`09!`20Read`20number`20data`20here,`20then`20convert.
V
X
X`09integer*2`09fid_num,`20fid_seq,`20fid_rvn`09!`20FileID`20words.
X
Xc`09Various`20string`20lengths.
X`09byte`09`09inp_str_len,`20res_str_len,`20esa_str_len,
X`091`09`09dna_str_len`20`09/8/`09!`20Doesn't`20work`20anyway.
X
X`09integer*4`09stat,`20lib$get_input,`20sys$parse,`20lib$signal,
X`091`09`09sys$enter,`20ots$cvt_tu_l
X`09external`09lib$get_input,`20sys$parse,`20lib$signal,`20sys$exit,
X`091`09`09sys$enter,`20ots$cvt_tu_l
X
Xc
Xc`09Overlay`20common`20locations`20for`20easy`20access.
Xc
X`09equivalence`09(fabb,fab,fabl),`09!`20The`20FAB`20block.
X`091`09(namb,nam,naml),`09`09!`20The`20NAM`20block.
X`091`09(fid_num,`20nam(NAM$W_FID/2)),`20`09!`20The`20three`20...
X`091`09(fid_seq,`20nam(NAM$W_FID_SEQ/2)),!`20...`20words`20in`20...
X`091`09(fid_rvn,`20nam(NAM$W_FID_RVN/2)),!`20...`20the`20FID.
X`091`09(inp_str_len,`20fabb(FAB$B_FNS)),`09!`20File`20name`20length.
X`091`09(res_str_len,`20namb(NAM$B_RSL)),`09!`20Result`20str`20length.
X`091`09(dna_str_len,`20fabb(FAB$B_DNS)),`09!`20Default`20str`20length.
X`091`09(esa_str_len,`20namb(NAM$B_ESL))`09!`20Expanded`20str`20length.
X
Xc
Xc`09Initialize`20access`20blocks.
Xc`09Usually`20taken`20care`20of`20in`20MACRO`20by`20the`20$NAM`20and`20$FAB
V`20macros.
Xc
Xc`09First`20the`20NAM`20block...
Xc
X`09namb(NAM$B_BLN)`20=`20NAM$C_BLN`09!`20Define`20the`20size`20of`20the`20bloc
Vk.
X`09namb(NAM$B_BID)`20=`20NAM$C_BID`09!`20Tell`20RMS`20that`20it`20is`20a`20NAM
V`20block.
X`09namb(NAM$B_RSS)`20=`20NAM$C_MAXRSS`09!`20Tell`20how`20big`20result`20can
V`20be.
X`09namb(NAM$B_ESS)`20=`20NAM$C_MAXRSS`09!`20Tell`20how`20big`20expanded`20str
V`20may`20be.
X`09naml(NAM$L_RSA/4)`20=`20%loc(res_str)`09!`20Point`20to`20result`20string.
X`09naml(NAM$L_ESA/4)`20=`20%loc(esa_str)`09!`20Point`20to`20filespec`20to`20en
Vter.
Xc
Xc`09...`20and`20now`20the`20FAB`20block.
Xc
X`09fabb(FAB$B_BLN)`20=`20FAB$C_BLN`09!`20Define`20size.
X`09fabb(FAB$B_BID)`20=`20FAB$C_BID`09!`20This`20is`20a`20FAB`20block.
X`09fabl(FAB$L_FOP/4)`20=`20FAB$M_NAM`09!`20Let`20RMS`20know`20to`20use`20NAM
V`20block.
X`09fabl(FAB$L_NAM/4)`20=`20%loc(nam)`09!`20Chain`20up`20the`20NAM`20block.
X`09fabl(FAB$L_FNA/4)`20=`20%loc(inp_str)`09!`20Point`20to`20input`20filespec.
X`09fabl(FAB$L_DNA/4)`20=`20%loc(dna_str)`09!`20Default`20file`20info.
Xc`09
Xc`09Prompt`20the`20user`20for`20the`20entered`20name`20of`20the`20file.
Xc
X`09print`20*
X`09print`20*,`20'ENTER`20V8.92`20-`20`20Create`20a`20file`20name`20with`20asso
Vciated`20File'//
X`091`09`20'ID`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20(by`20SAC)'
X`09print`20*
X`09stat=lib$get_input(%descr(inp_str),%descr(prompt),
X`091`09%ref(inp_str_len))
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20lib$signal(%val(stat))
Xc
Xc`09Parse`20the`20input`20so`20that`20we`20may`20get`20the`20expanded`20string
V`20length.
Xc
X`09stat`20=`20sys$parse(fab,,)
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20lib$signal(%val(stat))
Xc
Xc`09Get`20the`20FID.`20`20You`20don't`20usually`20use`20the`20revision`20numbe
Vr.
Xc`09Note:`20`20fid_xxx`20map`20directly`20into`20their`20NAM`20fields.`20`20We
V`20set`20these
Xc`09AFTER`20calling`20sys$parse`20because`20sys$parse`20apparently`20zeroes
Xc`09these`20fields`20out.
Xc`09Values`20are`20read`20into`20a`20character`20buffer,`20then`20converted
V`20to
Xc`09unsigned`20words,`20ignoring`20tabs`20and`20blanks.
Xc
X`09print`20*
X`09print`20*,`20'The`20file`20ID`20(FID)`20is`20in`20the`20form:`20`20fild_num
V,`20fid_seq,`20'//
X`091`09`20'fid_rvn'
X`09print`20*,`20'Use`20DIR/FILE`20`7Bfilename`7D`20to`20get`20a`20known`20file
V''s`20FID.'
X`09print`20*
X
X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20number:`20`20`20`20`20`20
V`20'
X`09read`20'(A)',`20num_buf
X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_num),
X`091`09%val(2),`20%val('11'x))
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
X
X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20sequence:`20`20`20`20`20'
X`09read`20'(A)',`20num_buf
X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_seq),
X`091`09%val(2),`20%val('11'x))
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
X
X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20revision`20`5B0`5D:`20'
X`09read`20'(A)',`20num_buf
X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_rvn),
X`091`09%val(2),`20%val('11'x))
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
X`09print`20*
Xc
Xc`09Enter`20the`20file`20in`20the`20current`20directory.
Xc
X`09stat`20=`20sys$enter(fab,,)
X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
Xc
Xc`09Print`20out`20the`20expanded`20or`20resultant`20string.
Xc
X`09if`20(res_str_len.gt.0)`20then
X`09`20`20`20print`20*,`20'The`20file`20was`20entered`20as:`20`20',`20res_str(:
Vres_str_len)
X`09else`20if`20(esa_str_len.gt.0)`20then
X`09`20`20`20print`20*,`20'The`20file`20was`20entered`20as:`20`20',`20esa_str(:
Vesa_str_len)
X`09endif
X`09print`20*
X`09if`20((res_str_len.eq.0)`20.and.`20(esa_str_len.eq.0))`20then
X`09`20`20`20print`20*,`20'Sorry.`20`20Error`20with`20input.'
X`09`20`20`20call`20sys$exit(%val(stat))
X`09endif
X
X`09end
$ call unpack ENTER.FOR;1 1448355409 ""
$!
$ create 'f'
X`09PARAMETER`09FAB$C_BID`09=3
X`09PARAMETER`09FAB$M_PPF_RAT`09=16320
X`09PARAMETER`09FAB$M_PPF_IND`09=16384
X`09PARAMETER`09FAB$M_PPIFI`09=32768
X`09PARAMETER`09FAB$M_ASY`09=1
X`09PARAMETER`09FAB$M_MXV`09=2
X`09PARAMETER`09FAB$M_SUP`09=4
X`09PARAMETER`09FAB$M_TMP`09=8
X`09PARAMETER`09FAB$M_TMD`09=16
X`09PARAMETER`09FAB$M_DFW`09=32
X`09PARAMETER`09FAB$M_SQO`09=64
X`09PARAMETER`09FAB$M_RWO`09=128
X`09PARAMETER`09FAB$M_POS`09=256
X`09PARAMETER`09FAB$M_WCK`09=512
X`09PARAMETER`09FAB$M_NEF`09=1024
X`09PARAMETER`09FAB$M_RWC`09=2048
X`09PARAMETER`09FAB$M_DMO`09=4096
X`09PARAMETER`09FAB$M_SPL`09=8192
X`09PARAMETER`09FAB$M_SCF`09=16384
X`09PARAMETER`09FAB$M_DLT`09=32768
X`09PARAMETER`09FAB$M_NFS`09=65536
X`09PARAMETER`09FAB$M_UFO`09=131072
X`09PARAMETER`09FAB$M_PPF`09=262144
X`09PARAMETER`09FAB$M_INP`09=524288
X`09PARAMETER`09FAB$M_CTG`09=1048576
X`09PARAMETER`09FAB$M_CBT`09=2097152
X`09PARAMETER`09FAB$M_SYNCSTS`09=4194304
X`09PARAMETER`09FAB$M_RCK`09=8388608
X`09PARAMETER`09FAB$M_NAM`09=16777216
X`09PARAMETER`09FAB$M_CIF`09=33554432
X`09PARAMETER`09FAB$M_ESC`09=134217728
X`09PARAMETER`09FAB$M_TEF`09=268435456
X`09PARAMETER`09FAB$M_OFP`09=536870912
X`09PARAMETER`09FAB$M_KFO`09=1073741824
X`09PARAMETER`09FAB$M_PUT`09=1
X`09PARAMETER`09FAB$M_GET`09=2
X`09PARAMETER`09FAB$M_DEL`09=4
X`09PARAMETER`09FAB$M_UPD`09=8
X`09PARAMETER`09FAB$M_TRN`09=16
X`09PARAMETER`09FAB$M_BIO`09=32
X`09PARAMETER`09FAB$M_BRO`09=64
X`09PARAMETER`09FAB$M_EXE`09=128
X`09PARAMETER`09FAB$M_SHRPUT`09=1
X`09PARAMETER`09FAB$M_SHRGET`09=2
X`09PARAMETER`09FAB$M_SHRDEL`09=4
X`09PARAMETER`09FAB$M_SHRUPD`09=8
X`09PARAMETER`09FAB$M_MSE`09=16
X`09PARAMETER`09FAB$M_NIL`09=32
X`09PARAMETER`09FAB$M_UPI`09=64
X`09PARAMETER`09FAB$M_ORG`09=240
X`09PARAMETER`09FAB$C_SEQ`09=0
X`09PARAMETER`09FAB$C_REL`09=16
X`09PARAMETER`09FAB$C_IDX`09=32
X`09PARAMETER`09FAB$C_HSH`09=48
X`09PARAMETER`09FAB$M_FTN`09=1
X`09PARAMETER`09FAB$M_CR`09=2
X`09PARAMETER`09FAB$M_PRN`09=4
X`09PARAMETER`09FAB$M_BLK`09=8
X`09PARAMETER`09FAB$C_RFM_DFLT`09=2
X`09PARAMETER`09FAB$C_UDF`09=0
X`09PARAMETER`09FAB$C_FIX`09=1
X`09PARAMETER`09FAB$C_VAR`09=2
X`09PARAMETER`09FAB$C_VFC`09=3
X`09PARAMETER`09FAB$C_STM`09=4
X`09PARAMETER`09FAB$C_STMLF`09=5
X`09PARAMETER`09FAB$C_STMCR`09=6
X`09PARAMETER`09FAB$C_MAXRFM`09=6
X`09PARAMETER`09FAB$M_ONLY_RU`09=1
X`09PARAMETER`09FAB$M_RU`09=2
X`09PARAMETER`09FAB$M_BI`09=4
X`09PARAMETER`09FAB$M_AI`09=8
X`09PARAMETER`09FAB$M_AT`09=16
X`09PARAMETER`09FAB$M_NEVER_RU`09=32
X`09PARAMETER`09FAB$M_JOURNAL_FILE`09=64
X`09PARAMETER`09FAB$M_RCF_RU`09=1
X`09PARAMETER`09FAB$M_RCF_AI`09=2
X`09PARAMETER`09FAB$M_RCF_BI`09=4
X`09PARAMETER`09FAB$K_BLN`09=80
X`09PARAMETER`09FAB$C_BLN`09=80
X`09PARAMETER`09FAB$S_FABDEF`09=80
X`09PARAMETER`09FAB$B_BID`09=0
X`09PARAMETER`09FAB$B_BLN`09=1
X`09PARAMETER`09FAB$R_IFI_OVERLAY`09=2
X`09PARAMETER`09FAB$W_IFI`09=2
X`09PARAMETER`09FAB$R_IFI_BITS`09=2
X`09PARAMETER`09FAB$S_PPF_RAT`09=8
X`09PARAMETER`09FAB$V_PPF_RAT`09=6
X`09PARAMETER`09FAB$V_PPF_IND`09=14
X`09PARAMETER`09FAB$V_PPIFI`09=15
X`09PARAMETER`09FAB$R_FOP_OVERLAY`09=4
X`09PARAMETER`09FAB$L_FOP`09=4
X`09PARAMETER`09FAB$R_FOP_BITS`09=4
X`09PARAMETER`09FAB$V_ASY`09=0
X`09PARAMETER`09FAB$V_MXV`09=1
X`09PARAMETER`09FAB$V_SUP`09=2
X`09PARAMETER`09FAB$V_TMP`09=3
X`09PARAMETER`09FAB$V_TMD`09=4
X`09PARAMETER`09FAB$V_DFW`09=5
X`09PARAMETER`09FAB$V_SQO`09=6
X`09PARAMETER`09FAB$V_RWO`09=7
X`09PARAMETER`09FAB$V_POS`09=8
X`09PARAMETER`09FAB$V_WCK`09=9
X`09PARAMETER`09FAB$V_NEF`09=10
X`09PARAMETER`09FAB$V_RWC`09=11
X`09PARAMETER`09FAB$V_DMO`09=12
X`09PARAMETER`09FAB$V_SPL`09=13
X`09PARAMETER`09FAB$V_SCF`09=14
X`09PARAMETER`09FAB$V_DLT`09=15
X`09PARAMETER`09FAB$V_NFS`09=16
X`09PARAMETER`09FAB$V_UFO`09=17
X`09PARAMETER`09FAB$V_PPF`09=18
X`09PARAMETER`09FAB$V_INP`09=19
X`09PARAMETER`09FAB$V_CTG`09=20
X`09PARAMETER`09FAB$V_CBT`09=21
X`09PARAMETER`09FAB$V_SYNCSTS`09=22
X`09PARAMETER`09FAB$V_RCK`09=23
X`09PARAMETER`09FAB$V_NAM`09=24
X`09PARAMETER`09FAB$V_CIF`09=25
X`09PARAMETER`09FAB$V_ESC`09=27
X`09PARAMETER`09FAB$V_TEF`09=28
X`09PARAMETER`09FAB$V_OFP`09=29
X`09PARAMETER`09FAB$V_KFO`09=30
X`09PARAMETER`09FAB$L_STS`09=8
X`09PARAMETER`09FAB$L_STV`09=12
X`09PARAMETER`09FAB$L_ALQ`09=16
X`09PARAMETER`09FAB$W_DEQ`09=20
X`09PARAMETER`09FAB$R_FAC_OVERLAY`09=22
X`09PARAMETER`09FAB$B_FAC`09=22
X`09PARAMETER`09FAB$R_FAC_BITS`09=22
X`09PARAMETER`09FAB$V_PUT`09=0
X`09PARAMETER`09FAB$V_GET`09=1
X`09PARAMETER`09FAB$V_DEL`09=2
X`09PARAMETER`09FAB$V_UPD`09=3
X`09PARAMETER`09FAB$V_TRN`09=4
X`09PARAMETER`09FAB$V_BIO`09=5
X`09PARAMETER`09FAB$V_BRO`09=6
X`09PARAMETER`09FAB$V_EXE`09=7
X`09PARAMETER`09FAB$R_SHR_OVERLAY`09=23
X`09PARAMETER`09FAB$B_SHR`09=23
X`09PARAMETER`09FAB$R_SHR_BITS`09=23
X`09PARAMETER`09FAB$V_SHRPUT`09=0
X`09PARAMETER`09FAB$V_SHRGET`09=1
X`09PARAMETER`09FAB$V_SHRDEL`09=2
X`09PARAMETER`09FAB$V_SHRUPD`09=3
X`09PARAMETER`09FAB$V_MSE`09=4
X`09PARAMETER`09FAB$V_NIL`09=5
X`09PARAMETER`09FAB$V_UPI`09=6
X`09PARAMETER`09FAB$L_CTX`09=24
X`09PARAMETER`09FAB$B_RTV`09=28
X`09PARAMETER`09FAB$R_ORG_OVERLAY`09=29
X`09PARAMETER`09FAB$B_ORG`09=29
X`09PARAMETER`09FAB$R_ORG_BITS`09=29
X`09PARAMETER`09FAB$S_ORG`09=4
X`09PARAMETER`09FAB$V_ORG`09=4
X`09PARAMETER`09FAB$R_RAT_OVERLAY`09=30
X`09PARAMETER`09FAB$B_RAT`09=30
X`09PARAMETER`09FAB$R_RAT_BITS`09=30
X`09PARAMETER`09FAB$V_FTN`09=0
X`09PARAMETER`09FAB$V_CR`09=1
X`09PARAMETER`09FAB$V_PRN`09=2
X`09PARAMETER`09FAB$V_BLK`09=3
X`09PARAMETER`09FAB$B_RFM`09=31
X`09PARAMETER`09FAB$R_JOURNAL_OVERLAY`09=32
X`09PARAMETER`09FAB$B_JOURNAL`09=32
X`09PARAMETER`09FAB$R_JOURNAL_BITS`09=32
X`09PARAMETER`09FAB$V_ONLY_RU`09=0
X`09PARAMETER`09FAB$V_RU`09=1
X`09PARAMETER`09FAB$V_BI`09=2
X`09PARAMETER`09FAB$V_AI`09=3
X`09PARAMETER`09FAB$V_AT`09=4
X`09PARAMETER`09FAB$V_NEVER_RU`09=5
X`09PARAMETER`09FAB$V_JOURNAL_FILE`09=6
X`09PARAMETER`09FAB$B_RU_FACILITY`09=33
X`09PARAMETER`09FAB$L_XAB`09=36
X`09PARAMETER`09FAB$L_NAM`09=40
X`09PARAMETER`09FAB$L_FNA`09=44
X`09PARAMETER`09FAB$L_DNA`09=48
X`09PARAMETER`09FAB$B_FNS`09=52
X`09PARAMETER`09FAB$B_DNS`09=53
X`09PARAMETER`09FAB$W_MRS`09=54
X`09PARAMETER`09FAB$L_MRN`09=56
X`09PARAMETER`09FAB$W_BLS`09=60
X`09PARAMETER`09FAB$B_BKS`09=62
X`09PARAMETER`09FAB$B_FSZ`09=63
X`09PARAMETER`09FAB$L_DEV`09=64
X`09PARAMETER`09FAB$L_SDC`09=68
X`09PARAMETER`09FAB$W_GBC`09=72
X`09PARAMETER`09FAB$R_ACMODES_OVERLAY`09=74
X`09PARAMETER`09FAB$B_ACMODES`09=74
X`09PARAMETER`09FAB$R_ACMODES_BITS`09=74
X`09PARAMETER`09FAB$S_LNM_MODE`09=2
X`09PARAMETER`09FAB$V_LNM_MODE`09=0
X`09PARAMETER`09FAB$S_CHAN_MODE`09=2
X`09PARAMETER`09FAB$V_CHAN_MODE`09=2
X`09PARAMETER`09FAB$S_FILE_MODE`09=2
X`09PARAMETER`09FAB$V_FILE_MODE`09=4
X`09PARAMETER`09FAB$S_CALLERS_MODE`09=2
X`09PARAMETER`09FAB$V_CALLERS_MODE`09=6`20`20`20`20!`20`20ACMODE`20for`20user
V`20structure`20probing
X`09PARAMETER`09FAB$R_RCF_OVERLAY`09=75
X`09PARAMETER`09FAB$B_RCF`09=75
X`09PARAMETER`09FAB$R_RCF_BITS`09=75
X`09PARAMETER`09FAB$V_RCF_RU`09=0
X`09PARAMETER`09FAB$V_RCF_AI`09=1
X`09PARAMETER`09FAB$V_RCF_BI`09=2
$ call unpack FABDEF.SYM;1 356255002 ""
$!
$ create 'f'
X$!`20@MAKE`20to`20build`20ENTER.EXE
X$`20fortran/nodeb/opt`20enter
X$`20link/nodeb/notrace/contig`20enter
$ call unpack MAKE.COM;1 2100576717 ""
$!
$ create 'f'
X`09PARAMETER`09NAM$C_BID`09=2
X`09PARAMETER`09NAM$C_MAXRSS`09=255
X`09PARAMETER`09NAM$C_MAXRSSLCL`09=255
X`09PARAMETER`09NAM$M_PWD`09=1
X`09PARAMETER`09NAM$M_FILL_1`09=2
X`09PARAMETER`09NAM$M_FILL_2`09=4
X`09PARAMETER`09NAM$M_SYNCHK`09=8
X`09PARAMETER`09NAM$M_NOCONCEAL`09=16
X`09PARAMETER`09NAM$M_SLPARSE`09=32
X`09PARAMETER`09NAM$M_SRCHXABS`09=64
X`09PARAMETER`09NAM$C_UFS`09=0
X`09PARAMETER`09NAM$C_NO_RFS`09=0
X`09PARAMETER`09NAM$C_RMS11`09=1
X`09PARAMETER`09NAM$C_RMS20`09=2
X`09PARAMETER`09NAM$C_RMS32`09=3
X`09PARAMETER`09NAM$C_FCS11`09=4
X`09PARAMETER`09NAM$C_RT11FS`09=5
X`09PARAMETER`09NAM$C_TOPS20FS`09=7
X`09PARAMETER`09NAM$C_TOPS10FS`09=8
X`09PARAMETER`09NAM$C_RMS32S`09=10
X`09PARAMETER`09NAM$C_CPMFS`09=11
X`09PARAMETER`09NAM$C_MS_DOSFS`09=12
X`09PARAMETER`09NAM$C_ULTRIX32_FS`09=13
X`09PARAMETER`09NAM$C_ULTRIX11_FS`09=14
X`09PARAMETER`09DAP$K_SNADTF_FS`09=15
X`09PARAMETER`09NAM$C_DVI`09=16
X`09PARAMETER`09NAM$M_IFI`09=65536
X`09PARAMETER`09NAM$M_SRCHNMF`09=1073741824
X`09PARAMETER`09NAM$M_SVCTX`09=-2147483648
X`09PARAMETER`09NAM$K_BLN_V2`09=56
X`09PARAMETER`09NAM$C_BLN_V2`09=56
X`09PARAMETER`09NAM$M_EXP_VER`09=1
X`09PARAMETER`09NAM$M_EXP_TYPE`09=2
X`09PARAMETER`09NAM$M_EXP_NAME`09=4
X`09PARAMETER`09NAM$M_WILD_VER`09=8
X`09PARAMETER`09NAM$M_WILD_TYPE`09=16
X`09PARAMETER`09NAM$M_WILD_NAME`09=32
X`09PARAMETER`09NAM$M_EXP_DIR`09=64
X`09PARAMETER`09NAM$M_EXP_DEV`09=128
X`09PARAMETER`09NAM$M_WILDCARD`09=256
X`09PARAMETER`09NAM$M_SEARCH_LIST`09=2048
X`09PARAMETER`09NAM$M_CNCL_DEV`09=4096
X`09PARAMETER`09NAM$M_ROOT_DIR`09=8192
X`09PARAMETER`09NAM$M_LOWVER`09=16384
X`09PARAMETER`09NAM$M_HIGHVER`09=32768
X`09PARAMETER`09NAM$M_PPF`09=65536
X`09PARAMETER`09NAM$M_NODE`09=131072
X`09PARAMETER`09NAM$M_QUOTED`09=262144
X`09PARAMETER`09NAM$M_GRP_MBR`09=524288
X`09PARAMETER`09NAM$M_WILD_DIR`09=1048576
X`09PARAMETER`09NAM$M_DIR_LVLS`09=14680064
X`09PARAMETER`09NAM$M_WILD_UFD`09=16777216
X`09PARAMETER`09NAM$M_WILD_SFD1`09=33554432
X`09PARAMETER`09NAM$M_WILD_SFD2`09=67108864
X`09PARAMETER`09NAM$M_WILD_SFD3`09=134217728
X`09PARAMETER`09NAM$M_WILD_SFD4`09=268435456
X`09PARAMETER`09NAM$M_WILD_SFD5`09=536870912
X`09PARAMETER`09NAM$M_WILD_SFD6`09=1073741824
X`09PARAMETER`09NAM$M_WILD_SFD7`09=-2147483648
X`09PARAMETER`09NAM$M_WILD_GRP`09=16777216
X`09PARAMETER`09NAM$M_WILD_MBR`09=33554432
X`09PARAMETER`09NAM$K_BLN_DIRWC`09=96
X`09PARAMETER`09NAM$C_BLN_DIRWC`09=96
X`09PARAMETER`09NAM$K_BLN`09=96
X`09PARAMETER`09NAM$C_BLN`09=96
X`09PARAMETER`09NAM$S_NAMDEF`09=96
X`09PARAMETER`09NAM$B_BID`09=0
X`09PARAMETER`09NAM$B_BLN`09=1
X`09PARAMETER`09NAM$B_RSS`09=2
X`09PARAMETER`09NAM$B_RSL`09=3
X`09PARAMETER`09NAM$L_RSA`09=4
X`09PARAMETER`09NAM$R_NOP_OVERLAY`09=8
X`09PARAMETER`09NAM$B_NOP`09=8
X`09PARAMETER`09NAM$R_NOP_BITS`09=8
X`09PARAMETER`09NAM$V_PWD`09=0
X`09PARAMETER`09NAM$V_FILL_1`09=1
X`09PARAMETER`09NAM$V_FILL_2`09=2
X`09PARAMETER`09NAM$V_SYNCHK`09=3
X`09PARAMETER`09NAM$V_NOCONCEAL`09=4
X`09PARAMETER`09NAM$V_SLPARSE`09=5
X`09PARAMETER`09NAM$V_SRCHXABS`09=6
X`09PARAMETER`09NAM$B_RFS`09=9
X`09PARAMETER`09NAM$B_ESS`09=10
X`09PARAMETER`09NAM$B_ESL`09=11
X`09PARAMETER`09NAM$L_ESA`09=12
X`09PARAMETER`09NAM$L_RLF`09=16
X`09PARAMETER`09NAM$S_DVI`09=16
X`09PARAMETER`09NAM$T_DVI`09=20
X`09PARAMETER`09NAM$R_FID_OVERLAY`09=36
X`09PARAMETER`09NAM$S_FID`09=6
X`09PARAMETER`09NAM$W_FID`09=36
X`09PARAMETER`09NAM$R_FID_FIELDS`09=36
X`09PARAMETER`09NAM$W_FID_NUM`09=36
X`09PARAMETER`09NAM$W_FID_SEQ`09=38
X`09PARAMETER`09NAM$R_FID_RVN_OVERLAY`09=40
X`09PARAMETER`09NAM$W_FID_RVN`09=40
X`09PARAMETER`09NAM$R_FID_RVN_FIELDS`09=40
X`09PARAMETER`09NAM$B_FID_RVN`09=40
X`09PARAMETER`09NAM$B_FID_NMX`09=41
X`09PARAMETER`09NAM$R_DID_OVERLAY`09=42
X`09PARAMETER`09NAM$S_DID`09=6
X`09PARAMETER`09NAM$W_DID`09=42
X`09PARAMETER`09NAM$R_DID_FIELDS`09=42
X`09PARAMETER`09NAM$W_DID_NUM`09=42
X`09PARAMETER`09NAM$W_DID_SEQ`09=44
X`09PARAMETER`09NAM$R_DID_RVN_OVERLAY`09=46
X`09PARAMETER`09NAM$W_DID_RVN`09=46
X`09PARAMETER`09NAM$R_DID_RVN_FIELDS`09=46
X`09PARAMETER`09NAM$B_DID_RVN`09=46
X`09PARAMETER`09NAM$B_DID_NMX`09=47
X`09PARAMETER`09NAM$R_WCC_OVERLAY`09=48
X`09PARAMETER`09NAM$L_WCC`09=48
X`09PARAMETER`09NAM$R_WCC_BITS`09=48
X`09PARAMETER`09NAM$V_IFI`09=16
X`09PARAMETER`09NAM$V_SRCHNMF`09=30
X`09PARAMETER`09NAM$V_SVCTX`09=31
X`09PARAMETER`09NAM$R_FNB_OVERLAY`09=52
X`09PARAMETER`09NAM$L_FNB`09=52
X`09PARAMETER`09NAM$R_FNB_BITS0`09=52
X`09PARAMETER`09NAM$V_EXP_VER`09=0
X`09PARAMETER`09NAM$V_EXP_TYPE`09=1
X`09PARAMETER`09NAM$V_EXP_NAME`09=2
X`09PARAMETER`09NAM$V_WILD_VER`09=3
X`09PARAMETER`09NAM$V_WILD_TYPE`09=4
X`09PARAMETER`09NAM$V_WILD_NAME`09=5
X`09PARAMETER`09NAM$V_EXP_DIR`09=6
X`09PARAMETER`09NAM$V_EXP_DEV`09=7
X`09PARAMETER`09NAM$V_WILDCARD`09=8
X`09PARAMETER`09NAM$V_SEARCH_LIST`09=11
X`09PARAMETER`09NAM$V_CNCL_DEV`09=12
X`09PARAMETER`09NAM$V_ROOT_DIR`09=13
X`09PARAMETER`09NAM$V_LOWVER`09=14
X`09PARAMETER`09NAM$V_HIGHVER`09=15
X`09PARAMETER`09NAM$V_PPF`09=16
X`09PARAMETER`09NAM$V_NODE`09=17
X`09PARAMETER`09NAM$V_QUOTED`09=18
X`09PARAMETER`09NAM$V_GRP_MBR`09=19
X`09PARAMETER`09NAM$V_WILD_DIR`09=20
X`09PARAMETER`09NAM$S_DIR_LVLS`09=3
X`09PARAMETER`09NAM$V_DIR_LVLS`09=21
X`09PARAMETER`09NAM$R_FNB_BITS1`09=52
X`09PARAMETER`09NAM$V_WILD_UFD`09=24
X`09PARAMETER`09NAM$V_WILD_SFD1`09=25
X`09PARAMETER`09NAM$V_WILD_SFD2`09=26
X`09PARAMETER`09NAM$V_WILD_SFD3`09=27
X`09PARAMETER`09NAM$V_WILD_SFD4`09=28
X`09PARAMETER`09NAM$V_WILD_SFD5`09=29
X`09PARAMETER`09NAM$V_WILD_SFD6`09=30
X`09PARAMETER`09NAM$V_WILD_SFD7`09=31
X`09PARAMETER`09NAM$R_FNB_BITS2`09=52
X`09PARAMETER`09NAM$V_WILD_GRP`09=24
X`09PARAMETER`09NAM$V_WILD_MBR`09=25
X`09PARAMETER`09NAM$B_NODE`09=56
X`09PARAMETER`09NAM$B_DEV`09=57
X`09PARAMETER`09NAM$B_DIR`09=58
X`09PARAMETER`09NAM$B_NAME`09=59
X`09PARAMETER`09NAM$B_TYPE`09=60
X`09PARAMETER`09NAM$B_VER`09=61
X`09PARAMETER`09NAM$L_NODE`09=64
X`09PARAMETER`09NAM$L_DEV`09=68
X`09PARAMETER`09NAM$L_DIR`09=72
X`09PARAMETER`09NAM$L_NAME`09=76
X`09PARAMETER`09NAM$L_TYPE`09=80
X`09PARAMETER`09NAM$L_VER`09=84
$ call unpack NAMDEF.SYM;1 923084111 ""
$ v=f$verify(v)
$ exit