getfcr.s

这是一个同样来自贝尔实验室的和UNIX有着渊源的操作系统, 其简洁的设计和实现易于我们学习和理解

TEXT	getfsr(SB), $0
	MOVL	$0, R0
	MOVL	FPSR, R0
	RTS

TEXT	setfsr(SB), $0
	MOVL	new+0(FP), R1
	MOVL	R1, FPSR
	RTS

TEXT	getfcr(SB), $0
	MOVL	$0, R0
	MOVL	FPCR, R0
	RTS

TEXT	setfcr(SB), $0
	MOVL	new+0(FP), R1
	MOVL	R1, FPCR
	RTS