.ONERR ERXIT
.ENABLE SUBSTITUTION
; XEDRVMOD.CMD - Command file to apply Goodyear Aerospace Corp. developed
;                mandatory fix to the DEUNA device driver distributed
;                with the RSX11M V4.1 Update D.
;
; Apply the changes to the distributed XEDRV source file.
;
.SETS SAVUIC "'<UIC>'"
.SETF INSSLP
.IFNINS SLP .SETT INSSLP
.IFT INSSLP INS LB:'<SYSUIC>'SLP
SLP @MD0:XEDRVMOD.COR
.IFT INSSLP REM SLP
;
; Now test if the modules have been patched properly.
; If any of the file compares that follow generate differences, it
; means that the new release of RSX11M contains a change to the base
; module.  The reason for the difference and its effect on a newly
; generated system must be determined before continuing.
;
.SETF INSCMP
.IFNINS CMP .SETT INSCMP
.IFT INSCMP INS LB:'<SYSUIC>'CMP/INC=10000.
CMP TI:/-CO/-TB=MD0:XEDRV.MAC;2,;1
.IFT INSCMP REM CMP
.ASK [<TRUE>:10S] Q Did all of the file compares pass
.IFT Q .GOTO 10
;
; At this point, the cause(s) for the file compare errors must be
; determined.  This process is exiting in order that such an evaluation
; may take place.
;
.EXIT 1
.ERXIT:
.EXIT 4
.10:
;
; Now move the modified driver source file back to its original directory.
;
.SETF INSPIP
.IFNINS PIP .SETT INSPIP
.IFT INSPIP INS LB:'<SYSUIC>'PIP
SET /UIC=[11,10]
PIP KT1:/NV/CD=MD0:'SAVUIC'XEDRV.MAC;2
SET /UIC='SAVUIC'
PIP MD0:XEDRV.MAC;2/DE
.IFT INSPIP REM PIP
;
; This completes the application of the XEDRV modifications.
;