getfcr.s

来自「这是一个同样来自贝尔实验室的和UNIX有着渊源的操作系统, 其简洁的设计和实现易」· S 代码 · 共 29 行

TEXT	getfcr(SB), $8
	MOVFL	FPSCR, F3
	FMOVD	F3, f-8(SP)
	MOVW	-4(SP), R3
	RETURN

TEXT	getfsr(SB), $8
	MOVFL	FPSCR, F3
	FMOVD	F3, f-8(SP)
	MOVW	-4(SP), R3
	RETURN

TEXT	setfcr(SB), $8
	SYNC
	MOVW	R3, -4(SP)
	FMOVD	-8(SP), F3
	MOVFL	F3, FPSCR
	ISYNC
	RETURN

TEXT	setfsr(SB), $8
	SYNC
	MOVW	R3, -4(SP)
	FMOVD	-8(SP), F3
	MOVFL	F3, FPSCR
	ISYNC
	RETURN