REP 10/11	;13C1
	ND	A00MCO,^D12393		;HIGHEST MCO IN THIS LOAD (26-BITS)
 WIT
	ND	A00MCO,^D12807		;HIGHEST MCO IN THIS LOAD (26-BITS)
 REP 49/127	;13C2
		AOSE	INTRST
		LSTALL
 WIT
		SKIPGE	INTRST
		AOSE	INTRST
		JRST	.-2
 REP 37/174	;13C3
		AOSE	INTL		;WAIT FOR INTERLOCK
		LSTALL
	IFN M.KI10,<
		CONI	PAG,INTO
	>
	IFE M.KI10,<
		APRID	INTO
	>
	>
 WIT
		SKIPGE	INTL		;DON'T TRY UNLESS ITS POSSIBLE TO GET IT
		AOSE	INTL		;WAIT FOR INTERLOCK
		JRST	.-2
	IFN M.KI10,<CONI  PAG,INTO>
	IFE M.KI10,<APRID INTO>
	>

 SUM 27059