Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
 
2 
TEXT	setfcr(SB), $0
3 
	MOVL	p+0(FP),AX
4 
	XORB	$0x3f,AX
5 
	PUSHW	AX
6 
	WAIT
7 
	FLDCW	0(SP)
8 
	POPW	AX
9 
	RET
10 
 
11 
TEXT	getfcr(SB), $0
12 
	PUSHW	AX
13 
	WAIT
14 
	FSTCW	0(SP)
15 
	POPW	AX
16 
	XORB	$0x3f,AX
17 
	RET
18 
 
19 
TEXT	getfsr(SB), $0
20 
	WAIT
21 
	FSTSW	AX
22 
	RET
23 
 
24 
TEXT	setfsr(SB), $0
25 
	WAIT
26 
	FCLEX
27 
	RET