getfcr.s 282 B

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