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