E DCLMEMBUFV1.0 4-NOV-2021 09:58 VSI C V7.4-002 8 $READONLY$(DCLMEMBUFSIZEDEFAULT0$BSS$i$CODE$ $LITERAL$$LINK$0$DATA$0JpDCLMEMBUFBEGIN0J DCLMEMBUFCREATE0J(PDCLMEMBUFDELETE0J DCLMEMBUFEND0JDCLMEMBUFWRITE8J`DCLMEMBUFWRITEAST  DCLMEMBUFCOUNT648DCLMEMBUFCOUNT64  DCLMEMBUFFAILCOUNT8DCLMEMBUFFAILCOUNT( DCLMEMBUFGBLPAGECOUNT8 DCLMEMBUFGBLPAGECOUNT( DCLMEMBUFGBLPAGECOUNTMAX@ DCLMEMBUFGBLPAGECOUNTMAX( DCLMEMBUFGBLPAGECOUNTMIN@ DCLMEMBUFGBLPAGECOUNTMIN  DCLMEMBUFGBLPAGEMAX8 DCLMEMBUFGBLPAGEMAX  DCLMEMBUFGBLPAGEMIN8 DCLMEMBUFGBLPAGEMIN( DCLMEMBUFGBLSECTIONCOUNT@DCLMEMBUFGBLSECTIONCOUNT8 DCLMEMBUFSIZEDEFAULT  DCLMEMBUFSIZEMAX8DCLMEMBUFSIZEMAX  DCLMEMBUFSIZEMIN8DCLMEMBUFSIZEMIN0J DCLMEMBUFINIT 6= =%WASD_MEMBUF_!2XL!8XL!8XL!2XL $=  = 04G?B0BFBpF0k///B40k//#^~^ ~(08޴@HG#PGGp{#=@/c@X`¤,H"/%d"/ D.RSJGJRTBRAF/@//.xB4G"bUJJ/@Zk///$, $H?XEG`"/ @d.StJgJSuBs`F/`h//.hB4G"pbVJJ/@Zk///YBh¤Gb4G`/@ZkƠG.DJ&"HC!///E"/ @d.StJgJSuBs`F/ `//.hB4G"pbVJJ/@Zk$, $H?$.$J"Du-Bu)BtF`WJ-BC)BF`"F/ / 9XKKD@DD D/4Gb ZDKGKxB/@ZkDX`G@b#G'H%HCC@@D@G % `#B_"4G"b,,CDHF HDHFG"" 3J6aJ~"B&@Zk`¤B?""GbG b" G@Zk BG?"b"GGGb@ZkG]G] }(08ݤ@HP#k///#^~^ ~(0GGG#{#P]\@("G`¦B>_"" bG.!.CDJQ !JFG""`""HaF&/ @ZkbB?" b"GbGGc G@Zk BG?"b"GGGb@ZkG]G] }(0@#k//#GG^~^ ~(08޴@[HGG#GG?"8d`B `({c G{"b/@ZkG/0,G ¤(0H //F"/ @e.StJgJSuBsaF/ `//.@B4G"HbVJJ/@Zk%, %H? "1G(e" E.RSJGJRTBR@F/@ ////.0B4G"8bUJJ/@ZkPBG4GXb@ZkG /#BGGGGbG@ /@Zk`BGGcGhb"@ZkG % `cBG""b,',CD@"GG&HA 'HD"HAF_"/ @Zk4GG (⤐B?"pb"GbGG G@ZkGG]] }(08ݤ@HP#k/#PGp"^~^ ~(08޴@GGG#,Ц8JB0"ж ,@/0 HZ @K:DHCF 4E@[D~G^_"&@;"Hb@Zk8¤?"G B(bXb"G@ G@Zk/4 B"]"G?"(bhb"G,/@Zk // BG?""G]",(b0b@ZkBGGbtG2vH@ZkG]] }(08ݤ@P#k///#4G ^H[~(^0~8@H޴PGGGG# ۤPb"P@Zk" E"BG="b!0@DG?D/@ZkPB$ 4GxBDGbG1vH vH@7!H4JF.VJG>`"/@ZkPXB""="GGG,7(w(`b >/@ZkxBGG`"bGGG@Zk/0@y =Bh"X(!5@G0 @!!H6!H17!HCG@Zk"Q@0B#_B@rG@8B@0 @/8p;@`0òFc "t@_G_G C7G9////{CK`D XKc t@G?$,$H Cy#HuF%`#.Q#J9Fc t@#>.J C{CHDC/ZCK[GC?.JCc t@ vJF `#.Q#Jc t@6F#>$/$KCD/XK?G ]G(]0}8@HݤP`#/k///0#G~^^~ (GGG //$ C3@ XBc#pG`b4G@Zk "HB vH4GGGPbG!1?J F!0"@Zk "BGtGb@ZkHBGG0"PbGGG@Zk(8" Q!1 @ 0J6J0PB/ hBGxb"GGQ"Gpb@ZkD㳨G]G]} (0#k 4$GD DECC$ISSPACE40b# DECC$ISSPACE4@@D DECC$ISSPACE4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4G DECC$ATOI4b# DECC$ATOI4@ DECC$ATOI4tG DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4(b# DECC$ISSPACE48GD DECC$ISSPACE4@@D DECC$ISSPACE4b# WATCHTHIS4G  WATCHTHIS4@  WATCHTHIS4G< FAOTOBUFFER4 b# FAOTOBUFFER48@< FAOTOBUFFER4@Gd FAOTOBUFFER4\b# FAOTOBUFFER4`@d FAOTOBUFFER4GL WATCHTHIS4b# WATCHTHIS4H@L WATCHTHIS4PG| FAOTOBUFFER4`b# FAOTOBUFFER4x@| FAOTOBUFFER4G FAOTOBUFFER4b# FAOTOBUFFER4@ FAOTOBUFFER4GT FAOTOBUFFER4Hb# FAOTOBUFFER4P@T FAOTOBUFFER4G DECC$ISSPACE4b# DECC$ISSPACE4@ DECC$ISSPACE4TGt DECC$ISDIGIT4`b# DECC$ISDIGIT4p@t DECC$ISDIGIT4xG DECC$ATOI4b# DECC$ATOI4@ DECC$ATOI4GNETWRITE4 b#NETWRITE4@NETWRITE4G NETIOWRITE4b# NETIOWRITE4@ NETIOWRITE4Gl WATCHTHIS4 b# WATCHTHIS4h@l WATCHTHIS4G FAOTOBUFFER4b# FAOTOBUFFER4@ FAOTOBUFFER4| G WATCHTHIS4 b#` WATCHTHIS4 @ WATCHTHIS4 G FAOTOBUFFER4 b#` FAOTOBUFFER4 @ FAOTOBUFFER4 G FAOTOBUFFER4 b#` FAOTOBUFFER4 @ FAOTOBUFFER4 GL FAOTOBUFFER4@ b#` FAOTOBUFFER4H @L FAOTOBUFFER4P Gl DCLCALLOUTQIO4\ b#` DCLCALLOUTQIO4h @l DCLCALLOUTQIO4  G SYS$GETTIM4 b# SYS$GETTIM4  @ SYS$GETTIM,  GD SYS$FAO,  b#SYS$FAO, @ @D SYS$FAO4T G SYS$SETPRV 4` b# SYS$SETPRV4 @ SYS$SETPRV4 G SYS$CRMPSC4 b# SYS$CRMPSC4 @ SYS$CRMPSC4 G SYS$SETPRV4 b# SYS$SETPRV4 @ SYS$SETPRV4 8 Gl OTS$ZERO4 h @l OTS$ZERO4G DECC$STRLEN4b#( DECC$STRLEN4@ DECC$STRLEN4G SYS$SETPRV4b#( SYS$SETPRV4@ SYS$SETPRV4G SYS$DGBLSC4 b#( SYS$DGBLSC4@ SYS$DGBLSC4G< SYS$SETPRV4(b#( SYS$SETPRV48@< SYS$SETPRV4tG ERRORNOTICED4b#( ERRORNOTICED4@ ERRORNOTICED D= 500 !UL/!@SQ !&S=0#BUFFER written !UL/!@SQ bytes !&S@=(BUFFER write !UL bytes !&S`=0'BUFFER end !@SQ bytes transferred !&S=4,BUFFER begin !UL bytes !UL pages "!AZ" !&S -=0;7DCLMEMBUFSIZEMAX7DCLMEMBUFSIZEMIN;=02P;=0( ;7 DCLMEMBUFGBLSECTIONCOUNT7 GBLSECPRVMASK7 DCLMEMBUFGBLPAGECOUNTp SYS$SETPRV DECC$STRLEN ERRORNOTICED= DCLMEMBUF SYS$DGBLSC SYS$FAO8OTS$ZERO7INSTANCENUMBER7DCLMEMBUFGBLPAGEMIN7DCLMEMBUFFAILCOUNT7 DCLMEMBUFGBLPAGECOUNTMIN=0 2 ;=`0| ;7DCLMEMBUFCOUNT647DCLMEMBUFGBLPAGEMAX7 DCLMEMBUFGBLPAGECOUNTMAX@ SYS$GETTIM SYS$CRMPSC=00;=P4|  FAOTOBUFFER; WATCHTHISWATCH Pe5= 500 abort=200 !UL/!@SQ DCLCALLOUTQIO=02;=P8 7DECC$$GL___CTYPEA7DECC$$GA___CTYPET DECC$ISDIGIT DECC$ISSPACE DECC$ATOI NETIOWRITE= 500 !&SpNETWRITE`;=02;=(@  200 !&S=02p;=!P, 200 !AZ =4==4= 4=  DECC$ISDIGIT DECC$ISSPACE DECC$$GA___CTYPET DECC$$GL___CTYPEANETWRITE NETIOWRITE DCLCALLOUTQIO ERRORNOTICED FAOTOBUFFER WATCHTHIS DECC$ATOIINSTANCENUMBER GBLSECPRVMASKWATCH SYS$GETTIMSYS$FAO SYS$SETPRV SYS$CRMPSC DECC$STRLEN SYS$DGBLSCOTS$ZERO C$IS