EOD P D ††5â¾ÈÚ}¾ÈÚoDPTCOMM `P5êi¾¥Å¾ÈÚs@BATCH LS=Y#L$*********************************************************************** LF* *** PATCH FILE DPTCOMM 1.1 DX10 3.5  LAST UPDATE05/05/82FL$*********************************************************************** L* '* TITLE: DPTCOMM* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @8*  SUBSYSTEM, WHICH IS COMMON TO ALL COMMUNICATION 86*  PROTOCOLS. THIS COMMON SEGMENT IS PATCHED ON 6**  .S$IMAGES AND IS NAMED "COMMCOM".*:*  "XB"S WILL BE APPENDED AUTOMATICALY TO THIS FILE :8*  TO INVOKE TWO MORE PATCH STREAMS PER PROTOCOL. 8* 'L$************************************************************************L:* ***S P E C I A L  I N S T R U C T I O N S *** :* ',*  WHEN BUILDING THE DSR USING THE PROC ,À'BCD' (BUILD 8*  COMMUNICATIONS DSR), THIS PATCH FILE IS APPLIED 8<*  USING THE CURRENT 'PCS' PROC (PATCH COMMUNICATIONS <@*  SYSTEM) LOCATED ON THE COMMON COMMUNICATIONS DSR PARTS @<*  DIRECTORY, DXCMO. THIS DIRECTORY IS LOCATED ON THE <<*  DX10 SYSTEM GENERATION PARTS DIRECTORY, .S$SYSGEN. <>*  USE OF THE 'PCS' PROC IS DESCRIBED IN THE DX10 COMMON >:*  COMMUNICATIONS DSR OBJECT INSTALLATION DOCUMENT. :<*  ALL PROTOCOL DSRS MUST BE GENERATED AND THE SYSTEM <2*  "ALGS" PERFORMED BEFORE PATCHING BEGINS. 2* '<*  FOLLOW THE INSTRUCTIONS IN THE OBJECT INSTALLATION <:*  MANUAL(S) FOR THE COMMUNICATION PACKAGE(S) BEING :*  INSTALLED. * '*  NOTE:"D*  THIS PATCH FILE SHOULD ONLY BE EXECUTED BY USING THE 'PCS' D *  PROC À6AS THIS PROC WILL ASSIGN ANY SYNONYMS REQUIRED FOR 6*  PROPER EXECUTION.L$*********************************************************************** L* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06.IF  @$$DSC$,EQ,"$$DSC$"6.SYN $$DSC$=@DS01  !LET DS01 BE DEFAULT VOLUME 6 .ENDIF% @.SYN IMAGE="@$$DSC$.S$IMAGES" !PROGRAM FILE TO BE PATCHED @L$*********************************************************************** L ***** LINK DEFINED SYNONYMS L$*********************************************************************** LL$*********************************************************************** L$***** PRE-LINK DEFINED SYNONYMS$ ********** €B************************************************************* B#SYN DATA,D$DATA#SYN COMMC,COMMCOM#SYN SROOT,ROOT #SYN SFILMG,FILMG,KIF L$*********************************************************************** L .EVAL CS$PAT="@COMMCOM" .EVAL MAXIO="@D$DATA+4"L$*********************************************************************** L>* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. ><* THIS CAUSES SEVERAL PROBLE,S IN DISK RESIDENT SYSTEM <* TASKS. #L$*********************************************************************** L .IF @FILMG,GT,>C000(CM R=ME,M="PATCH STREAM FATAL ERROR"(*CM R=ME,M="SYSTEM ROOT EXCEEDS >C000" **CM R=ME,M="CURRENT ROOT SIZE = @FILMG"*$CM R=ME,M="PATCHING TERMINATED" $EC' .STOP % @ .ENDIF% L$*********************************************************************** L>* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. >6* THIS CAUSES SEVERAL PROBLE,S IN EXECUTION AS ANY6@* REFERENCE IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS @ * INSTEAD OF MEMORY.L$*********************************************************************** L .IF @SROOT,EQ,>100(CM R=ME,M="PATCH STREAM FATAL ERROR"(2CM R=ME,M="LONGEST OVERLAY PATH EXCEEDS >F800"2$CM R=ME,M="PATCHING TERMINATED" $EC' .STOP % .ENDIF% L$*********************************************************************** L *  PATCHES RELEASE 1.1.0 L$*********************************************************************** L* PATCHES GO HERE &************************************&€(*********************************** ( *  INSERT NEW PATCHES HERE  L$*********************************************************************** L2.SYN COMMC="",COMMCOM="",DATA="",D$DATA="", 2* SROOT="",ROOT="",CS$PAT="",MAXIO="", * FILMG="",SFILMG="",KIF=""* '>CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.DPTCOMM" >.IF @$E$C,NE,"0"  .EVAL $E$PCS="@$E$PCS+1"  .ENDIF% LS'* '<* NEXT AVAILABLE COMMCOM PATCH LOCATION IS CS$PAT+>0000 <* 'G TERMINATED" $EC' .STOP % .ENDIF% L$*********************************************************************** L *  PATCHES RELEASE 1.1.0 L$*********************************************************************** L* PATCHES GO HERE &************************************&