.title	MBINST - Must Be INSTalled to run
	.link	'sys$system:sys.stb'/selective_search

	$ssdef

ICB$L_KFEADDR = ^x54			;Offset to KFE address in ICB
					;  ...from Kenah & Bates IDSM

.extrn	IAC$GL_IMAGE_LIST		;Image list chain pointer
.extrn	MBI_NOTINSTALLED		;NOT Installed message file

	.psect	$$$tfr_vector,exe,nowrt,rd,shr,pic
	jmp	patch_start

	.psect	$$code,exe,nowrt,rd,shr,pic
patch_start:
	calls	#0,b^10$
	rsb
10$:	.word	^xffc			;main patch entrypoint
	movzwl	#SS$_NORMAL,r0		;setup an OK code
	movl	g^IAC$GL_IMAGE_LIST,r1	;Get image list header
	tstl	b^ICB$L_KFEADDR(r1)	;See if we've got a KFE address
	bneq	20$			;It's OK... keep success code
	movl	#MBI_NOTINSTALLED,r0	;set new failure code
20$:	ret				;buzzoff
	.end