E AUTHIDENTV1.0 4-NOV-2021 09:55 VSI C V7.4-002  $READONLY$iT$CODE$ $LITERAL$$LINK$$DATA$0JAUTHIDENTBEGIN8JP AUTHIDENTCLOSESOCKET8JAUTHIDENTCONNECTAST8Jp AUTHIDENTREADAST8J`P AUTHIDENTREADTIMEOUTAST @6= =#&TG8^~"@^H~PX`޴hh[pxGGGpb# P0=G P/@Zk0BG?"`GxBb`Gr..<T JrJtFC"AJF4G/@âB v"@ZkHB(GGPbGG@ZkG BfSHGTGb0vJF@Zk[/c"G##D ",ݲ=C/c/1?J"F?$"}GYK[ yKaF} [G=+//D? ]"/(=? =G ,=#â=cݲ$}]$:_KCG=G#F= ] 8B"0"B"@bGG/@Zk d`D/tGbD`%#! //8B"0"B"@btGG/@Zk bx"e"BGGbG.%1v HG (/@ZkG//%B4GbR H %0v J@ZkHB(GGPbGG@ZkGB fSHGTGb0vJF@Zk&%R H E"B2v@J"Ge"G޶G GG(b@ZkGCD%R H /RJFEB2v^JfSHGTGbFFE/@Zk// XB"G4G`bD/`,=4G@Zk`SH?&"(vIE}$,.3JbF$HP JTGGF0D =3//DXB G#(4G}4G ,`b@Zk`SH?$"(vIEd0JF%2!]GAF] } ///8B"0"B"@b'"G/@Zk堘¤ e"BGGG1vH (b/@ZkBDG G4Gb@ZkB*"4Gb@ZkBdSHGbTG(vIE@ZkG8]@]H}PX`ݤhpx#k//#^_";"^~"^ ~(08GGG#/4/{RJĢ<DKY 4KCDGGJGpB4D"xb/ @ZkGb#@ӘBGTGbRH @Zk/$0BG"G]"@b"8bG/@Zk<d""GpBxb ,.CD6vJ"G HP J0DG"H@Fv_"@ZkBGTGb1vH@ZkCGc"BGG vH1v@J Gb(@ZkRH #BR H $GTGb@ZkGC# c"BGbG>G1v@J>4G ( /@ZkPBGGGGGXb`Bh"/@Zk0B$GB"G"G8b@Zk/BDG4Gb@ZkB*"4Gb/@ZkeSHBGbTG vHD0J @ZkG]] }(08@#/k/// 04G({0v Jk//@#GTGP^~X^`~hpx޴[>^~G#GGb@ZkC,&R@J2v^JPF#!v H/ CcR`Jh.4G""_"&`."<$CD@bJGGV JF"JG^8B~""/@ZkGb#/@ӠBGTGbRH @Zk/hb B@b vH`@@. "RQJ""@>..<JU JFaJCFx"8BDG_"/ `#"5v KG@ZkhBGTGpb1vH@ZkG⤈b#@,HLH /hF"/ &.Q2J'JQ3B1!F/ //.(B4G"0bTJJ/@Zk&, &H?' f"/ F.RSJGJRTBR@F/ @//.B4G"bUJJ/@Zk8BG4G@b@ZkL&,&H 'f"/ F.RSJGJRTBR@F/ @//.B4G"bUJJ/@Zk&, &H?&.&J% //gȢ"/ `.TJJTBF/ //.(B4G#0bWJJ/@Zk&,&H%D &. &J?g ¦ `.֢"TJJTBF /.B4G#bWJJ/@Zk8BG4G@b@ZkH&,&H 'f"/ F.RSJGJRTBR@F/ @//.B4G"bUJJ/@Zk&, &H?&.&J( //gȢ =|"/ `.TJJTBF///.(B4G#0bWJJ/@Zk///&,&HX'D &. &J?BGx""GtGb/@Zk///l-I/$ ///X'DD/ &. &JCU'BqF/ . JCUBF/ . JCUB7G/F/ FK?, HC@.J!///gȢ"/ `&.Q5J'JQ6B1!F/ //.(B4G#0bTJJ/@Zk&, &H?&.&J B=!G!/- /// "/ .VJJVB֢F/ //&/0bF#Y:K(B'K4G/@Zk&,(A&HU'@u)H2F .TJF>. )!J)/Y)K)?F/FK ( A B&@/*&"/ F.RQJGJA!B!!D/ //f.(B4G"0bStJgJ/@Zk///&-&IX'D . Jf.fJ$! G d!/,`///Ǣ,KA# .WJJWBvJWG//f/(B4G [`KgK0b/@Zk@KAD .j.JSjJ t JJ!tFj>.JKAG{ KJ/ZJK[GJ!J?x,x% HKA"DA.AJCF<///-uJJ D! @ELIJ!KA E=.J! CpJzG&@ ,@ HD <a.aJJ!KA! CrjJF/-LI EJ!KA=.J! CpJ;G ,@ HD <!.!JCJ!KAFBKAG`,_"tG""b G@Zk,)IAGH<$$ L}H=eE Dh0.P.<0JR PJC¦8BD"G@b2F6_"""JFX"G@ZkD(B?!4G  $0AGTG0b@ZkBGTG="l b@ZkB"HB"G@Zk/_%J! DBGTGb@ZkGP]X]`}hpxݤ=]}#k///#4G~^^~ GG#pP[b0v@J@Zk"2`<4G"Bh_"b.!.CJQ !JFGDG@"G!HaF"/ """@Zk`G/Gc4GBm_""""GGbc "G@ZkG]]} 0#/k4 0Gt VMGETHEAP4Hb# VMGETHEAP4 p@t VMGETHEAP4G WATCHTHIS4b# WATCHTHIS4@ WATCHTHIS4 G SYS$ASSIGN4 b# SYS$ASSIGN4 @ SYS$ASSIGN4G8 SYSDCLAST4 b# SYSDCLAST44@8 SYSDCLAST<@GdERROREXITVMSSTATUS<Pb#ERROREXITVMSSTATUS<`@dERROREXITVMSSTATUS<GERROREXITVMSSTATUS<b#ERROREXITVMSSTATUS<@ERROREXITVMSSTATUS4G$SYS$QIOW4b#SYS$QIOW4 @$SYS$QIOW48GX SYS$DASSGN4@b# SYS$DASSGN4T@X SYS$DASSGN4 XGx SYS$ASSIGN4 hb# SYS$ASSIGN4 t@x SYS$ASSIGN4|G SYSDCLAST4b# SYSDCLAST4@ SYSDCLAST4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4XG SYSDCLAST4lb# SYSDCLAST 4@ SYSDCLAST4 G DECC$HTONS4 b# DECC$HTONS4 @ DECC$HTONS4 4Gl DECC$HTONS4 db# DECC$HTONS4 h@l DECC$HTONS<GERROREXITVMSSTATUS<b#ERROREXITVMSSTATUS<@ERROREXITVMSSTATUS,GDSYS$QIO,8b#SYS$QIO,@@DSYS$QIO4HGh SYS$CANEXH4`b# SYS$CANEXH4d@h SYS$CANEXH4hG|SYS$EXIT4tb#SYS$EXIT4x@|SYS$EXIT4G SYSDCLAST4b# SYSDCLAST4@ SYSDCLAST4lG WATCHTHIS4xb# WATCHTHIS4@ WATCHTHIS4G SYSDCLAST4b# SYSDCLAST4@ SYSDCLAST4+G FAOTOBUFFER4,b# FAOTOBUFFER4+@ FAOTOBUFFER4G\ WATCHTHIS4b# WATCHTHIS4X@\ WATCHTHIS4%`Gx WATCHDATADUMP4&lb# WATCHDATADUMP4%t@x WATCHDATADUMP4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4G SYSDCLAST4b# SYSDCLAST4@ SYSDCLAST, GT SYS$QIO, b#SYS$QIO,P @T SYS$QIO4-T G SYS$SETIMR4.p b# SYS$SETIMR4- @ SYS$SETIMR< G ERROREXITVMSSTATUS< b#ERROREXITVMSSTATUS< @ ERROREXITVMSSTATUS4 G SYS$CANEXH4 b# SYS$CANEXH4 @ SYS$CANEXH4 G SYS$EXIT4 b#SYS$EXIT4 @ SYS$EXIT4 G SYSDCLAST4 b# SYSDCLAST4 @ SYSDCLAST4)P Gh SYS$CANCEL4*\ {#` SYS$CANCEL4)d h SYS$CANCEL4 G SYS$CANTIM4 b# SYS$CANTIM4 @ SYS$CANTIM4@ b# WATCHTHIS4l G WATCHTHIS4 @ WATCHTHIS4 G SYSDCLAST4 b# SYSDCLAST4 @ SYSDCLAST4 b# WATCHTHIS4 GH WATCHTHIS4D @H WATCHTHIS4%L Gd WATCHDATADUMP4&X b# WATCHDATADUMP 4%` @d WATCHDATADUMP4! G DECC$ISSPACE4" b# DECC$ISSPACE4! @ DECC$ISSPACE4T Gt DECC$ISDIGIT4 ` b# DECC$ISDIGIT4p @t DECC$ISDIGIT4#x G DECC$ATOI4$ b# DECC$ATOI4# @ DECC$ATOI4 G DECC$ISDIGIT4  b# DECC$ISDIGIT4@ DECC$ISDIGIT4!tG DECC$ISSPACE4"b# DECC$ISSPACE4!@ DECC$ISSPACE4G DECC$ISDIGIT4 b# DECC$ISDIGIT4@ DECC$ISDIGIT4#G, DECC$ATOI4$$b# DECC$ATOI4#(@, DECC$ATOI4G DECC$ISDIGIT4 b# DECC$ISDIGIT4@ DECC$ISDIGIT4!G4 DECC$ISSPACE4" b# DECC$ISSPACE4!0@4 DECC$ISSPACE,dGSTRSAME,xb#STRSAME,@STRSAME4!G DECC$ISSPACE4"b# DECC$ISSPACE4!@ DECC$ISSPACE4"Db# DECC$ISSPACE4!PGd DECC$ISSPACE4!`@d DECC$ISSPACE4!G4 DECC$ISSPACE4" b# DECC$ISSPACE4!0@4 DECC$ISSPACE4!G DECC$ISSPACE4"b# DECC$ISSPACE4!@ DECC$ISSPACE<'tGERRORGENERALOVERFLOW<(b#ERRORGENERALOVERFLOW<'@ERRORGENERALOVERFLOW4G4 WATCHTHIS4 b# WATCHTHIS40@4 WATCHTHIS4 HGx VMGETHEAP4pb# VMGETHEAP4 t@x VMGETHEAP4xG DECC$STRCPY4b# DECC$STRCPY4@ DECC$STRCPY4GOTS$MOVE4@OTS$MOVE4G SYSDCLAST4b# SYSDCLAST4@ SYSDCLAST4TGd SYS$DASSGN4Xb#P SYS$DASSGN4`@d SYS$DASSGN4xG WATCHTHIS4b#P WATCHTHIS4@ WATCHTHIS4G4 WATCHTHIS4 b#P WATCHTHIS40@4 WATCHTHIS =H;RFC1413 connect !AZ to !AZ,!ULRFC1413 close !AZ,!UL !&S@= RFC1413 close !AZ,!ULX=(RFC1413 response ports?x=(RFC1413 response !UL bytes=(RFC1413 read !AZ,!UL !&S=(RFC1413 request !UL bytes=RFC1413 connect !&S 7 TCPIPFULLDUPLEXCLOSEOPTION7 TCPIPSOCKET4 SYS$CANEXH7 EFNNOWAIT=0WATCH Pe5@SYS$QIOW;7EFNWAIT= AUTHIDENTp SYSDCLAST;=080;=@ ;7TCPIPDEVICEDSC7ERRORSANITYCHECK ERROREXITVMSSTATUS SYS$ASSIGN DECC$HTONS VMGETHEAP WATCHTHISSYS$QIOSYS$EXIT7 TCPIPSOCKET6@ SYS$DASSGN=02 ;=0  DECC$STRCPYSTRSAME SYS$CANTIM8OTS$MOVE DECC$ISDIGIT7DECC$$GL___CTYPEA=0P2p ;=L 7DECC$$GA___CTYPET! DECC$ISSPACE# DECC$ATOI= anystringwilldo0% WATCHDATADUMP=USERIDP 'ERRORGENERALOVERFLOW=0P ;) SYS$CANCEL=02;=@4< ;+ FAOTOBUFFER= !UL, !UL - SYS$SETIMR`;7 DELTA30SEC $=  P DECC$ISDIGIT DECC$ISSPACE DECC$$GA___CTYPET DECC$$GL___CTYPEA DECC$STRCPYSTRSAME ERROREXITVMSSTATUS ERRORGENERALOVERFLOW FAOTOBUFFER VMGETHEAP WATCHDATADUMP WATCHTHIS DECC$ATOIEFNWAIT EFNNOWAIT DELTA30SEC ERRORSANITYCHECKTCPIPDEVICEDSC TCPIPSOCKET4 TCPIPSOCKET6(TCPIPFULLDUPLEXCLOSEOPTIONWATCH SYS$ASSIGN SYSDCLASTSYS$QIOW SYS$DASSGN DECC$HTONSSYS$QIO SYS$CANEXHSYS$EXIT SYS$SETIMR SYS$CANCEL SYS$CANTIMOTS$MOVE C$IS