.ONERR ERXIT
.ENABLE SUBSTITUTION
; HEXMOD.CMD - Command file to apply Goodyear Aerospace Corp. developed
;              hexadecimal radix modifications to the RSX11M command
;              line interpreter routines in SYSLIB.OLB and RSXMAC.SML.
;
; Extract new RSX-11M version modules that are effected by the hexadecimal
; modifications.
;
.SETS SAVUIC "'<UIC>'"
.SETF INSPIP
.IFNINS PIP .SETT INSPIP
.IFT INSPIP INS LB:'<SYSUIC>'PIP
SET /UIC=[1,1]
.TESTFILE KT0:SYSLIBOLB.VGN;1
.IF <FILERR> EQ 1 .GOTO TSTMAC
PIP KT0:SYSLIBOLB.VGN;1/RE=KT0:SYSLIB.OLB;0
PIP KT0:SYSLIB.OLB/NV/-CD=KT0:SYSLIBOLB.VGN;1
.TSTMAC:
.TESTFILE KT0:RSXMACSML.VGN;1
.IF <FILERR> EQ 1 .GOTO DOPTCH
PIP KT0:RSXMACSML.VGN;1/RE=KT0:RSXMAC.SML;0
PIP KT0:RSXMAC.SML/NV/-CD=KT0:RSXMACSML.VGN;1
.DOPTCH:
SET /UIC='SAVUIC'
.IFINS DOB REM DOB
INS MD0:'<UIC>'DOBNLB
DOB MD0:CATB.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:CATB
DOB MD0:CBTA.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:CBTA
DOB MD0:EDTMG.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:EDTMG
DOB MD0:ODCVT.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:.ODCVT
DOB MD0:OD2CT.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:OD2CT
DOB MD0:TPARS.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:.TPARS
DOB MD0:FCSST1.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:FCSST1
DOB MD0:FCSST2.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:FCSST2
DOB MD0:FCSLB1.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:FCSLB1
DOB MD0:FCSLB2.VGN=KT0:[1,1]SYSLIBOLB.VGN;1/LB:FCSLB2
REM DOB
.SETF INSLBR
.IFNINS LBR .SETT INSLBR
.IFT INSLBR INS LB:'<SYSUIC>'LBR
LBR MD0:CSISV.VGN=KT0:[1,1]RSXMACSML.VGN;1/EX:CSI$SV
LBR MD0:ISTAT.VGN=KT0:[1,1]RSXMACSML.VGN;1/EX:ISTAT$
;
; Apply the changes to the new modules extracted from SYSLIB and RSXMAC
;
.SETF INSSLP
.IFNINS SLP .SETT INSSLP
.IFT INSSLP INS LB:'<SYSUIC>'SLP
SLP @MD0:HEXMOD.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
CMP TI:/-CO/-TB=MD0:CATB.MAC;2,;1
CMP TI:/-CO/-TB=MD0:CBTA.MAC;2,;1
CMP TI:/-CO/-TB=MD0:EDTMG.MAC;2,;1
CMP TI:/-CO/-TB=MD0:ODCVT.MAC;2,;1
CMP TI:/-CO/-TB=MD0:OD2CT.MAC;2,;1
CMP TI:/-CO/-TB=MD0:TPARS.MAC;2,;1
CMP TI:/-CO/-TB=MD0:CSISV.MAC;2,;1
CMP TI:/-CO/-TB=MD0:ISTAT.MAC;2,;1
CMP TI:/-CO/-TB=MD0:FCSST1.MAC;2,;1
CMP TI:/-CO/-TB=MD0:FCSST2.MAC;2,;1
CMP TI:/-CO/-TB=MD0:FCSLB1.MAC;2,;1
CMP TI:/-CO/-TB=MD0:FCSLB2.MAC;2,;1
CMP TI:/-CO/-TB=MD0:FCSRS1BLD.BLD;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.
;
.IFT INSLBR REM LBR
.IFT INSPIP REM PIP
.EXIT 1
.ERXIT:
.EXIT 4
.10:
;
; Now assemble the changed modules, and insert them into the
; distribution libraries (SYSLIB.OLB and RSXMAC.SML).
; The unchanged libraries have been renamed to *.VGN;1 files.
;
.SETF INSMAC
.IFNINS MAC .SETT INSMAC
.IFT INSMAC INS LB:'<SYSUIC>'MAC
MAC MD0:CATB=MD0:CATB
MAC MD0:CBTA=MD0:CBTA
MAC MD0:EDTMG=MD0:EDTMG
MAC MD0:ODCVT=MD0:ODCVT
MAC MD0:OD2CT=MD0:OD2CT
MAC MD0:TPARS=MD0:TPARS
MAC MD0:FCSST1=MD0:FCSST1
MAC MD0:FCSST2=MD0:FCSST2
MAC MD0:FCSLB1=MD0:FCSLB1
MAC MD0:FCSLB2=MD0:FCSLB2
.IFT INSMAC REM MAC
SET /UIC=[1,20]
PIP KT3:/NV/-CD=MD0:'SAVUIC'FCSRS1BLD.BLD;2
SET /UIC=[1,1]
LBR KT0:SYSLIB/RP=MD0:'SAVUIC'CATB,CBTA,EDTMG,ODCVT,OD2CT,TPARS
LBR KT0:SYSLIB/RP/-EP=MD0:'SAVUIC'FCSST1,FCSST2,FCSLB1,FCSLB2
LBR KT0:RSXMAC.SML/RP=MD0:'SAVUIC'CSISV.MAC,ISTAT.MAC
.IFT INSLBR REM LBR
SET /UIC='SAVUIC'
PIP MD0:*.OBJ;1/DE,*.VGN;1
PIP MD0:CATB.MAC;2/DE
PIP MD0:CBTA.MAC;2/DE
PIP MD0:EDTMG.MAC;2/DE
PIP MD0:ODCVT.MAC;2/DE
PIP MD0:OD2CT.MAC;2/DE
PIP MD0:TPARS.MAC;2/DE
PIP MD0:FCSST1.MAC;2/DE
PIP MD0:FCSST2.MAC;2/DE
PIP MD0:FCSLB1.MAC;2/DE
PIP MD0:FCSLB2.MAC;2/DE
PIP MD0:CSISV.MAC;2/DE
PIP MD0:ISTAT.MAC;2/DE
PIP MD0:FCSRS1BLD.BLD;2/DE
.IFT INSPIP REM PIP
;
; This completes the application of the hexadecimal modifications.
;
