getfcr-386.s 256 B

123456789101112131415161718192021222324252627
  1. TEXT setfcr(SB), $0
  2. MOVL p+0(FP),AX
  3. XORB $0x3f,AX
  4. PUSHW AX
  5. WAIT
  6. FLDCW 0(SP)
  7. POPW AX
  8. RET
  9. TEXT getfcr(SB), $0
  10. PUSHW AX
  11. WAIT
  12. FSTCW 0(SP)
  13. POPW 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