/*
 *	magnum user level lock code
 */

#define	LL(base, rt)	WORD	$((060<<26)|((base)<<21)|((rt)<<16))
#define	SC(base, rt)	WORD	$((070<<26)|((base)<<21)|((rt)<<16))
#define	NOOP		WORD	$0x27
#define COP3		WORD	$(023<<26)

	TEXT	ALEF_3ktas(SB),$0
btas:
	MOVW	sema+0(FP), R1
	MOVB	R0, 1(R1)
	NOOP
	COP3
	BLTZ	R1, btas
	RET

	TEXT	ALEF_4ktas(SB),$0
	MOVW	sema+0(FP), R1
	MOVW	R1, R2		/* address of key */
loop:
	MOVW	$1, R3
	LL(2, 1)
	NOOP
	SC(2, 3)
	NOOP
	BEQ	R3, loop
	RET

	TEXT	ALEF_fcr0(SB), $0
	MOVW	FCR0, R1
	RET