;
;   *-*-*   PATCH.CSD   *-*-*
;
; SUBMIT PATCH(:fx:library, module, segment name, :fx:(repair object file) )
;
;   Sample submit file invocation for use of PTCH86.86:
;          SUBMIT PATCH(:f1:xcmdrv.lib,x254in,code,:f1:pch76.obj)
;
;   It removes the a module from a library, patches the segment in the
;   module with the repair object file and replaces the original module
;   in the library with the repaired module.  It creates work files on
;   drive :F1:.  These may be moved to suit your needs.
;
RUN
;
LINK86 %0(%1) TO :F1:PTEMP1 NOMAP
;
PTCH86 :F1:PTEMP1 %2 COMMON
;
LINK86 :F1:PTEMP1, %3 TO :F1:PTEMP2 NOMAP
;
PTCH86 :F1:PTEMP2 %2 PUBLIC
;
LIB86
DELETE %0(%1)
ADD :F1:PTEMP2 TO %0
EXIT
;
EXIT
;
DELETE :F1:PTEMP1, :F1:PTEMP2