.SETF INSLBR
	.IFINS LBR .GOTO LBRINS
	INS $LBR
	.SETT INSLBR
.LBRINS:

LBR KEDIOX=KEDLIB/EX:KEDIOX

	.SETF	INSMAC
	.IFINS	MAC .GOTO MACINS
	INS	$MAC
	.SETT	INSMAC
.MACINS:

MAC KEDFSLMU=KEDFSLMU
MAC KEDFSLMU.POB=KEDFSLMU.PAT

	.IFT	INSMAC	REM MAC
	.SETF	INSPAT
	.IFINS	PAT .GOTO PATINS
	INS	$PAT
	.SETT	INSPAT
.PATINS:

PAT KEDIOX;2=KEDIOX;1/CS:63700,KEDFSLMU.POB/CS:13462
	.IFT	INSPAT	REM PAT

LBR KEDLIB/RP=KEDIOX.OBJ;2
	.IFT	INSLBR	REM LBR

	.SETF	INSTKB
	.IFINS	TKB	.GOTO TKBINS
	INS	$TKB
	.SETT	INSTKB
.TKBINS:

TKB @KEDFSLMU
	.IFT	INSTKB	REM TKB
	.EXIT