getfcr.s

著名操作系统Plan 9的第三版的部分核心源代码。现在很难找到了。Plan 9是bell实验室开发的Unix后继者。

#define	EXCB	WORD	$0x60000400		/* until 7a/7l catch up */

TEXT	getfsr(SB), $8
	EXCB
	MOVT	FPCR, F0
	EXCB
	MOVT	F0, tmp-8(SP)
	MOVL	tmp-4(SP), R1
	MOVQ	$0x01e00000, R2
	AND		R2, R1, R0
	RET

TEXT	setfsr(SB), $8
	MOVQ	$0x01e00000, R2
	EXCB
	MOVT	FPCR, F0
	EXCB
	MOVT	F0, tmp-8(SP)
	MOVL	tmp-4(SP), R1
	ANDNOT	R2, R1, R3
	AND		R2, R0, R4
	OR		R3, R4, R5
	MOVL	R5, tmp-4(SP)
	MOVT	tmp-8(SP), F0
	EXCB
	MOVT	F0, FPCR
	EXCB
	RET

TEXT	getfcr(SB), $8
	EXCB
	MOVT	FPCR, F0
	EXCB
	MOVT	F0, tmp-8(SP)
	MOVL	tmp-4(SP), R1
	MOVQ	$0x700c0000, R2
	AND		R2, R1, R0
	XOR		R2, R0
	RET

TEXT	setfcr(SB), $8
	MOVQ	$0x700c0000, R2
	XOR		R2, R0
	EXCB
	MOVT	FPCR, F0
	EXCB
	MOVT	F0, tmp-8(SP)
	MOVL	tmp-4(SP), R1
	ANDNOT	R2, R1, R3
	AND		R2, R0, R4
	OR		R3, R4, R5
	MOVL	R5, tmp-4(SP)
	MOVT	tmp-8(SP), F0
	EXCB
	MOVT	F0, FPCR
	EXCB
	RET