.; .MODULE VERIFY,RELEASE=V05,VERSION=11,COMMENT= <Start the IVP>
.;
	.DISABLE PREFIX
	.DISABLE SUFFIX
	.ENABLE GLOBAL

	.IF <SYDISK> EQ "DZ" .GOTO BADSY
	.IF <SYDISK> EQ "DX" .GOTO BADSY
	.IF <SYDISK> EQ "PD" .GOTO BADSY
	.IF <SYDISK> EQ "DT" .GOTO BADSY
	.IF <SYDISK> EQ "DD" .GOTO BADSY
	.GOTO IVPA

.BADSY:	;
	;	The installation verification program can not be run from
	;	this media or configuration.
	.EXIT

.IVPA:	.SETS VIYD0 "BA-P732E-BC "  .;RX02 AUTO
	.SETS VIFD0 "BL-P746E-BC "  .;RX50 AUTO
	.SETS VIPD0 "BL-AI39D-BH "  .;RTPC AUTO
	.SETF $BIG
	.SETS $OTHER <SYDISK>+"'<SYUNIT>'"+":"
	.SETS BIGD "DLRKDM"
	.TEST BIGD <SYDISK>
	.IF <STRLEN> NE 0 .SETT $BIG
	.IFT $BIG .GOTO IVP99

	.SETS $OTHER <SYDISK>+"0:"
	.IF <SYUNIT> EQ 0 .SETS $OTHER <SYDISK>+"1:"
	.IF <SYDISK> EQ "DW" .SETS $OTHER "DZ:"
.IVP1:
	.ONERR IVP10
	.VOL VOLID '$OTHER'
	.ONERR
	.IF VOLID EQ VIYD0 .OR .IF VOLID EQ VIFD0 .OR .IF VOLID EQ VIPD0 .GOTO IVP99	
.IVP10:	;
	;	Mount RT-11 V5.2 BIN AUTO in '$OTHER'.
	.ASK CONT         Press the "RETURN" key when you have mounted the volume.
	.GOTO IVP1

.IVP99:
	@'$OTHER'IVP.COM
	.IFF $BIG .GOTO IVP98
	.SETS $OTHER <SYDISK>+"1"
	.IF <SYUNIT> EQ 1 .SETS $OTHER <SYDISK>+"0"	
.IVP98:
	;
	;	Remove the volume from '$OTHER' and store it in a safe place.
	.ASK CONTIN         Press the "RETURN" key when you have removed the volume.
.IVPEND:
	.EXIT