getfcr.s

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

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