.enable substitution
.sets device p1
.ifnins ...con ins $con
@[1,2]ballsup/lo / Install Reconfiguration Task
con estat 'device'
;.setn exstat <exstat>
.setn exstat <exstat>&100
.if exstat > 0 .sett subctr
.if exstat = 0 .setf subctr
.setn exstat <exstat>&200
.if exstat > 0 .sett ctr
.if exstat = 0 .setf ctr
.setn exstat <exstat>&400
.if exstat > 0 .sett online
.if exstat = 0 .setf online
.setn exstat <exstat>&1000
.if exstat > 0 .sett diag
.if exstat = 0 .setf diag
.setn exstat <exstat>&2000
.if exstat > 0 .sett multip
.if exstat = 0 .setf multip
.setn exstat <exstat>&4000
.if exstat > 0 .sett massbu
.if exstat = 0 .setf massbu
.setn exstat <exstat>&10000
.if exstat > 0 .sett csrunk
.if exstat = 0 .setf csrunk
.setn exstat <exstat>&20000
.if exstat > 0 .sett accpat
.if exstat = 0 .setf accpat
.setn exstat <exstat>&40000
.if exstat > 0 .sett contex
.if exstat = 0 .setf contex
.setn exstat <exstat>&100000
.if exstat > 0 .sett loaded
.if exstat = 0 .setf loaded
.setn exstat <exstat>
.exit exstat&17
.;
.;	CONESTAT.CMD - fight mcr>CONFIGURE ESTAT mumble
.;
.; call:@[1,2]CONESTAT/lo foo
.;
.; in:	foo		device, controller or memory-port name
.;
.; do:			use CON command to investigate it.
.;
.; out:	<exstat>	CONfigure task's exit status.
.;			Expected values: <SUCCES> <WARNIN> <ERROR> <SEVERE>
.;	exstat		The full emitted status of CON ESTAT.
.;	device		foo (the device name you passed: /lo you see.
.;	subctr		True iff subcontroller device.
.;	ctr		True iff controller device.
.;	online		True iff on-line. (controller or port)
.;	diag		True iff only diagnostics permitted.
.;	multip		True iff multiport device.
.;			True iff this is current port.
.;	massbu		True iff massbuss device.
.;	csrunk		True iff device's CSR is unknown.
.;	accpat		True iff On-line access path exists. (contr or port)
.;	contex		True iff device or port has context.
.;	loaded		True iff a driver is loaded for this device.
.;
