FVMSMUNCHV1.3-4 7-MAR-1995 12:48DEC C V4.1-001  $ABS$i $CODE$ $LITERAL$@$LINK$$DATA$$BSS$ $READONLY$DECC$GA_RMS_NAMDECC$GA_RMS_FAB DECC$STRLEN SYS$ASCTIM SYS$ASSIGN SYS$BINTIM SYS$DASSGN SYS$PARSESYS$QIOW SYS$SEARCH0JhVMSMUNCHOTS$MOVE = #~^ ^(G#G =]H GG8B@Zk ,XB@Zk B0r3}J`H`F0r P" ("Q P"GG8B@Zk  \ "XQ&SFXQ " T BPz$`GPz 4GhBpb@Zk " 0F " 4GBb@Zk " 0F " BR0@F@ b`s3cJgJ5Js`JF "1"GGGBb@Zk " 0F} "1B 2 bsp`J ԐJtB հJuB¦7Js`JF  "99# BZP@O b{P`O @t ,t  H @. q HPJF> BR0@B T bss"` ¦֢PN PN Cz8/z#8K Bw/"`7K[wK`Gw? "!0 @ 0 "11&J&J bs"BZ#^BR"^ # (GTGGGGBb@Zk " 0F  "11&J&J B2 bs0`F` B@\BCkݢ/6/"KY 7KGC "1"TGb4@. .JQ JFC "1"TGb(@\. . JQ !JF ]..r"JU JFC "1"TG@b/@. .JQ JF@]..JU JFC "1"TG@b@3 D"P.p.PJS pJSFC..JW JFC"8/8K Bz/G`H`GG!Da:HaGz? "QAF@FQ bs GFvFF & "   "!P L PO BXCtz/tZ#zK C8.#rxKQ8J2F8> 0B b ¦֢" PN PN "7Cz,z9#H BW/"aHZWKAGW? "10 B B2 8KK bs"b{#~"" 9# >(GGGGGBb@Zk " 0FJ "11&J&J B2 bs0`FK` 4JJ4G(B0b@Zk " 0FH 4GBb@Zk "f A "11&J&J4G(B0b@Zk 6 "!!&H&H4G(B0b@Zk += Fa.A. JtJS aJRAJuFTFa>A>$  ¦֦6JJ4G(B0b@Zk  "!!&H&H4G(B0b@Zk  "GG] ](0#k#~^G = t;p1"]GGG [({@Zk . PJ>G] #k#~^GG = A@ZkP!x0J`HFx ]Pa|[Px"=TG A(a@ZkG] #k4 @GHOTS$MOVE4 D@HOTS$MOVE4 XG` DECC$STRLEN4 \@` DECC$STRLEN4 GOTS$MOVE4 @OTS$MOVE4 G SYS$PARSE4b#h SYS$PARSE4 @ SYS$PARSE40G< SYS$SEARCH44b#h SYS$SEARCH48@< SYS$SEARCH4G SYS$ASSIGN4b#h SYS$ASSIGN4@ SYS$ASSIGN4|GSYS$QIOW4b#hSYS$QIOW4@SYS$QIOW4$G0SYS$QIOW4(b#hSYS$QIOW4,@0SYS$QIOW4G SYS$DASSGN4b#h SYS$DASSGN4@ SYS$DASSGN4G SYS$SEARCH4b#h SYS$SEARCH4@ SYS$SEARCH4G SYS$DASSGN4b#h SYS$DASSGN 4@ SYS$DASSGN4G  SYS$DASSGN4b#h SYS$DASSGN4@  SYS$DASSGN4G SYS$DASSGN4b#h SYS$DASSGN4@ SYS$DASSGN4G SYS$DASSGN4b#h SYS$DASSGN4@ SYS$DASSGN40 G< SYS$ASCTIM44 {# SYS$ASCTIM48 @< SYS$ASCTIM4  G DECC$STRLEN4  @ DECC$STRLEN4 G SYS$BINTIM4 a# SYS$BINTIM4 @ SYS$BINTIM 4=T, 7DECC$GA_RMS_NAM SYS$ASSIGN;0SYS$QIOW;P SYS$SEARCH;=0 ;=0 ; SYS$DASSGN8OTS$MOVE;7DECC$GA_RMS_FAB DECC$STRLEN SYS$PARSE=0 ;=  SYS$ASCTIM=0 d ;=  SYS$BINTIM 8=P04=4= (= `4=4=04=84=@4=H4=4=P4=4666= >=.&%VMSMUNCHDEC C V4.1-001 Q=ME?:Ew=l&INST:[LEVITTE.WRK.VMSTAR]VMSMUNCH.C;20 Q=MED?Zhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2DESCRIP O=KCB=:ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1RMS R=NFE@Eŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1NAMDEF R=NFE@ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1FABDEF R=NFE@~ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1RABDEF O=KCB=ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1XAB U=QIHCztzŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABALLDEF U=QIHC "ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABCXFDEF U=QIHC Jŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABCXRDEF U=QIHC Zrŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABDATDEF R=NFE@ zŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1XABDEF U=QIHC :;ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABFHCDEF U=QIHC:pŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABITMDEF U=QIHC`ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABJNLDEF U=QIHCڕŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABKEYDEF U=QIHCZŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABPRODEF U=QIHC ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABRDTDEF T=PHGB:ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1XABRUDEF U=QIHCŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABSUMDEF U=QIHCz ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 XABTRMDEF R=NFE@cŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1RMSDEF O=KCB=+$hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STDIO Q=MED?Zŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1IODEF P=LDC>kƔhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STRING S=OGFA.ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1STARLET R=NFE@ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1ATRDEF R=NFE@.ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1FIBDEF K=G?>9(ɗ>%INST:[LEVITTE.WRK.VMSTAR]VMSMUNCH.H;2 S=OGFA5ɗ $-INST:[LEVITTE.WRK.VMSTAR]VMSMUNCH_PRIVATE.H;2 = ab Sb T Z m    I   zS T  a   u+ ,  Ht u  B   y1  2  b    ]            >    J    >V  W  D       c  }d  e  }df e q&g r& F'h G' *)i ,) L)k R) *q @ I= 4h4=VMSmunch4= *ML *L * *8 *L *WL *    *2  *A $= ,4 =  char e4="filename e4=# action e4= ptr Xe4= $"fabdef$$_fill_1" "" fab$v_ppf_rat" "" fab$v_ppf_ind"  " fab$v_ppifi"   fab$w_ififab$r_ifi_bits e4=OG " fab$v_asy" " fab$v_mxv" " fab$v_sup" " fab$v_tmp" " fab$v_tmd" " fab$v_dfw" " fab$v_sqo" " fab$v_rwo" " fab$v_pos" " fab$v_wck" " fab$v_nef" " fab$v_rwc" " fab$v_dmo" " fab$v_spl" " fab$v_scf" " fab$v_dlt" " fab$v_nfs" " fab$v_ufo" " fab$v_ppf" " fab$v_inp" " fab$v_ctg" " fab$v_cbt" "" fab$v_syncsts" " fab$v_rck" " fab$v_nam" " fab$v_cif" $"fabdef$$_fill_3" " fab$v_esc" " fab$v_tef" " fab$v_ofp" " fab$v_kfo" $"fabdef$$_fill_4"   fab$l_fopfab$r_fop_bits ge4=WO " fab$v_put" " fab$v_get" " fab$v_del" " fab$v_upd" " fab$v_trn" " fab$v_bio" " fab$v_bro" " fab$v_exe"   fab$b_facfab$r_fac_bits e4=f^ !" fab$v_shrput" !" fab$v_shrget" !" fab$v_shrdel" !" fab$v_shrupd" " fab$v_mse" " fab$v_nil" " fab$v_upi" !" fab$v_fill_0"   fab$b_shrfab$r_shr_bits e4= $"fabdef$$_fill_5" " fab$v_org"   fab$b_orgfab$r_org_bits ge4= " fab$v_ftn" " fab$v_cr" " fab$v_prn" " fab$v_blk" " fab$v_msb" !" fab$v_fill_1"   fab$b_ratfab$r_rat_bits e4=ph "" fab$v_only_ru" " fab$v_ru" " fab$v_bi" " fab$v_ai" " fab$v_at" #"fab$v_never_ru" '"fab$v_journal_file" !" fab$v_fill_2"   fab$b_journalfab$r_journal_bits e4=A9 fab$r_journal_overlay 8e4=fab$b_ru_facilityfabdef$$_fill_7  fab$l_jnlfab$r_jnl_real_stuff e4= e4=  e4=nf " nam$v_pwd" !" nam$v_fill_1" !" nam$v_fill_2" !" nam$v_synchk" $"nam$v_noconceal" "" nam$v_slparse" #"nam$v_srchxabs" !" nam$v_fill_5"   nam$b_nopnam$r_nop_bits ge4= e 4= . .   nam$b_fid_rvn nam$b_fid_nmx  nam$w_fid_rvnnam$r_fid_rvn_fields Qe4=og 0 nam$w_fid_num nam$w_fid_seq nam$r_fid_rvn_overlay e4=5- 0 nam$w_fid "e4=*"nam$r_fid_fields e4=.   nam$b_did_rvn nam$b_did_nmx  nam$w_did_rvnnam$r_did_rvn_fields e4=og 0 nam$w_did_num nam$w_did_seq nam$r_did_rvn_overlay e4=5- 0 nam$w_did e4=*"nam$r_did_fields he4=  $"namdef$$_fill_1" " nam$v_ifi" $"namdef$$_fill_2 " "" nam$v_srchnmf"  " nam$v_svctx"   nam$l_wccnam$r_wcc_bits *e4=G? "" nam$v_exp_ver" #"nam$v_exp_type" #"nam$v_exp_name" #"nam$v_wild_ver" $"nam$v_wild_type" $"nam$v_wild_name" "" nam$v_exp_dir" "" nam$v_exp_dev" #"nam$v_wildcard" $"namdef$$_fill_3" &"nam$v_search_list" #"nam$v_cncl_dev" #"nam$v_root_dir" !" nam$v_lowver" "" nam$v_highver" " nam$v_ppf" " nam$v_node" !" nam$v_quoted" "" nam$v_grp_mbr" #"nam$v_wild_dir" #"nam$v_dir_lvls"  $"namdef$$_fill_4" #"nam$v_wild_ufd" $"nam$v_wild_sfd1" $"nam$v_wild_sfd2" $"nam$v_wild_sfd3" $"nam$v_wild_sfd4" $"nam$v_wild_sfd5" $"nam$v_wild_sfd6" $"nam$v_wild_sfd7"  $"namdef$$_fill_5" #"nam$v_wild_grp" #"nam$v_wild_mbr" !" nam$v_fill_6"   nam$l_fnbnam$r_fnb_bits0 2 e4=)!nam$r_fnb_bits1 ,#e4=)!nam$r_fnb_bits2 $e4=F>.  e4=  e4=  e4=  e4=  e4=  e4=. namdef nam$b_bid nam$b_bln nam$b_rss nam$b_rsl nam$l_rsa Xe4=+#@nam$r_nop_overlay e4=\TH nam$b_rfsP nam$b_essX nam$b_esl` nam$l_esa e4=# nam$l_rlf e4=# nam$t_dvi e4=+# nam$r_fid_overlay Oe4=+#Pnam$r_did_overlay e4=+#nam$r_wcc_overlay e4=+#nam$r_fnb_overlay +%e4= nam$b_node = nam$b_dev nam$b_dir nam$b_name nam$b_type nam$b_vernamdef$$_fill_6 %e4=$ nam$l_node %e4=#  nam$l_dev %e4=#@ nam$l_dir  &e4=$` nam$l_name &e4=$ nam$l_type *&e4=# nam$l_ver 9&e4=)!namdef$$_fill_7 H&e4= w&e4=  w&e4=  e4=  e4= #"fab$v_lnm_mode" $"fab$v_chan_mode" $"fab$v_file_mode" '"fab$v_callers_mode"   fab$b_acmodesfab$r_acmodes_bits )e4= !" fab$v_rcf_ru" !" fab$v_rcf_ai" !" fab$v_rcf_bi" !" fab$v_fill_3"   fab$b_rcffab$r_rcf_bits *e4=iafabdef fab$b_bid fab$b_blnfab$r_ifi_overlay e4=+# fab$r_fop_overlay ie4=wo@ fab$l_sts` fab$l_stv fab$l_alq fab$w_deqfab$r_fac_overlay e4=+#fab$r_shr_overlay e4=QI fab$l_ctx fab$b_rtvfab$r_org_overlay e4=+#fab$r_rat_overlay e4=>6 fab$b_rfmfab$r_jnl_overlay e4=#  fab$l_xab Ie4=#@ fab$l_nam )e4=#` fab$l_fna )e4=# fab$l_dna )e4= fab$b_fns fab$b_dns fab$w_mrs fab$l_mrn fab$w_bls fab$b_bks fab$b_fsz fab$l_dev  fab$l_sdc@ fab$w_gbcPfab$r_acmodes_overlay *e4=+#Xfab$r_rcf_overlay +e4=*"`fabdef$$_fill_9 4= Fab +e4=  4= Nam w&e4= "" fib$v_nowrite" " fib$v_dlock" #"fib$v_blk_lock" &"fib$v_fastrdsqnos"  " fib$v_spool" "" fib$v_writeck" "" fib$v_seqonly"  " fib$v_seqno"  " fib$v_write" !" fib$v_readck" !" fib$v_noread" "" fib$v_notrunc" "" fib$v_control" '"fib$v_no_read_data" $"fibdef$$_fill_3" "" fib$v_execute" $"fib$v_prsrv_atr" "" fib$v_rmslock" $"fib$v_writethru" !" fib$v_nolock" #"fib$v_norecord" #"fib$v_noverify" %"fib$v_change_vol"  $"fibdef$$_fill_5" !" fib$v_rewind" !" fib$v_curpos" $"fibdef$$_fill_6" !" fib$v_update" !" fib$v_fill_1" .  fibdef$$_fill_13 3e4=! fib$b_wsize =NF  fib$l_acctlfib$r_acctl_bits0 /e4=+#fib$r_acctl_bits1 2e4=-%fib$r_acctl_fields2 3e4=.   fib$b_fid_rvn fib$b_fid_nmx  fib$w_fid_rvnfib$r_fid_rvn_fields 4e4=og 0 fib$w_fid_num fib$w_fid_seq fib$r_fid_rvn_overlay 15e4={s 0fib$w_fid_dirnumfib$l_fid_recnum 0 fib$w_fid 4e4=*"fib$r_fid_fields 5e4=3+"fib$r_fid_iso_9660_fields 5e4=.   fib$b_did_rvn fib$b_did_nmx  fib$w_did_rvnfib$r_did_rvn_fields 6e4=og 0 fib$w_did_num fib$w_did_seq fib$r_did_rvn_overlay *7e4={s 0fib$w_did_dirnumfib$l_did_recnum 0 fib$w_did 6e4=*"fib$r_did_fields }7e4=3+"fib$r_did_iso_9660_fields 7e4= $"fibdef$$_fill_7" !" fib$v_allver" !" fib$v_alltyp" !" fib$v_allnam" $"fibdef$$_fill_8" " fib$v_wild" !" fib$v_newver" $"fib$v_supersede" "" fib$v_findfid" $"fibdef$$_fill_9" !" fib$v_lowver" "" fib$v_highver"   fib$w_nmctlfib$r_nmctl_bits 8e4=*"  " fib$v_alcon" !" fib$v_alconb" !" fib$v_filcon"  " fib$v_aldef" #"fib$v_allocatr" %"fibdef$$_fill_10" !" fib$v_extend"  " fib$v_trunc" #"fib$v_nohdrext" "" fib$v_markbad" %"fibdef$$_fill_11" "" fib$v_noplace" #"fib$v_nocharge"   fib$w_exctlfib$r_exctl_bits :e4=  " fib$v_exact" " fib$v_oncyl" !" fib$v_fill_2"   fib$b_aloptsfib$r_alopts_bits <e4=. .   fib$b_loc_rvn fib$b_loc_nmx  fib$w_loc_rvnfib$r_loc_rvn_fields >e4=og 0 fib$w_loc_num fib$w_loc_seq fib$r_loc_rvn_overlay @>e4=91 0 fib$w_loc_fid =e4=.&fib$r_loc_fid_fields >e4=A9 Pfib$r_loc_fid_overlay >e4=OG0fib$l_loc_addr P fib$w_alloc =e4=,$fib$r_alloc_fields ]?e4=' "" fib$v_alt_req" &"fib$v_alt_granted" !" fib$v_diracl" $"fib$v_propagate" $"fib$v_nocopyacl" &"fib$v_nocopyowner" %"fib$v_nocopyprot" '" =fib$v_exclprevious" &"fib$v_alias_entry" '"fib$v_wildfid_flag" !" fib$v_fill_3"   fib$l_statusfib$r_status_bits  @e4=~v @fib$l_mov_svbn fib$l_mov_vbncnt @fib$r_movfildp  Be4=E=fibdeffib$r_acctl_overlay $4e4=+# fib$r_fid_overlay 56e4=+#Pfib$r_did_overlay .8e4=@8 fib$l_wccfib$r_nmctl_overlay j:e4=-%fib$r_exctl_overlay <e4=WO fib$l_exsz fib$l_exvbnfib$r_alopts_overlay S=e4=D< fib$b_alalignfib$r_alloc_overlay ?e4=`fib$w_verlimitpfib$b_agent_modexfib$b_ru_facility fib$l_aclctxfib$l_acl_statusfib$r_status_overlay Ae4=D<fib$l_alt_accessfib$r_funcdepend NBe4=@fib$w_file_hdrseq_incrPfib$w_dir_hdrseq_incr `fib$w_file_dataseq_incrpfib$w_dir_dataseq_incr 04= Fib Be4=  e4={dsc$descriptor@ dsc$w_length dsc$b_dtype dsc$b_class dsc$a_pointer Ee4= 4=FibDesc Ee4=  e4=}dsc$descriptor_s@ dsc$w_length dsc$b_dtype dsc$b_class dsc$a_pointer :Fe4= 4=DevDesc IFe4=  " fat$v_rtype" "" fat$v_fileorg"   fat$b_rtypefat$r_rtype_bits Fe4= $"fat$v_fortrancc" $"fat$v_impliedcc" "" fat$v_printcc" !" fat$v_nospan"   fat$b_rattribfat$r_rattrib_bits Ge4=  fat$w_hiblkh fat$w_hiblkl  fat$l_hiblkfat$r_hiblk_fields He4=  fat$w_efblkh fat$w_efblkl  fat$l_efblkfat$r_efblk_fields  Ie4=tl. fatdeffat$r_rtype_overlay AGe4=/'fat$r_rattrib_overlay /He4=B: fat$w_rsize fat$r_hiblk_overlay He4=-%@fat$r_efblk_overlay KIe4=` fat$w_ffbytep fat$b_bktsizex fat$b_vfcsize fat$w_maxrec fat$w_defext fat$w_gbcfat$fill Ie4=)!fat$w_versions `4= Fat Ie4=fchdef"" #"fch$v_nobackup" $"fch$v_writeback" $"fch$v_readcheck" $"fch$v_writcheck" "" fch$v_contigb" !" fch$v_locked" !" fch$v_contig" "" !" fch$v_badacl"  " fch$v_spool" $"fch$v_directory" #"fch$v_badblock j =" "" fch$v_markdel" #"fch$v_nocharge"  " fch$v_erase"  fch nKe4= dummy4=uchar Me4=fjndef"" fjn$v_only_ru" " fjn$v_rujnl"  " fjn$v_bijnl"  " fjn$v_aijnl"  " fjn$v_atjnl" #"fjn$v_never_ru" '"fjn$v_journal_file"  4= jnl Me4=<4. 04=Cdate Oe4=<4. 84=Rdate cOe4=<4. @4=Edate Oe4=<4. H4=Bdate Oe4= 4= revisions P4=uic "system" "owner" "group" "world"  value bits aPe4=  4= prot Pe4=  e4=`Xatrdef@ atr$w_size atr$w_type atr$l_addr 5Qe4=G?:  QDQe4=  (4= Atr Qe4=<4. 4=EName Qe4=<4. 4=RName BRe4= 4=FileName IFe4= 4=string IFe4=  4=D<DevChan.  (4= iosb Re4=  T4=iX4= status 4= old_rtype := 4=  y= 44= asctim4= #+ $=  4 B=  e4= time Se4=' signed long Se4= binval Se4= x4=date_str Ee4 := L 4= t y= d 44= bintimd 4= 7+ $=  4 .=  e4= time jTe4=  Se4= binval Te4= 4=date_str Ee4 :=  4=  =   h