Home Explore Help
Register Sign In
RISCI_ATOM
/
harvey
mirror of https://github.com/Harvey-OS/harvey.git
1
0
Fork 0
Files Issues 0 Wiki
Tree: 2d4f830104
Branches Tags
harvey
/
sys
/
src
/
libc
/
alpha
/
getfcr.s

getfcr.s 816 B
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 
  1. #define	EXCB	WORD	$0x60000400		/* until 7a/7l catch up */
    2. 

  2. 

  3. TEXT	getfsr(SB), $8
    4. 

  4. 	EXCB
    5. 

  5. 	MOVT	FPCR, F0
    6. 

  6. 	EXCB
    7. 

  7. 	MOVT	F0, tmp-8(SP)
    8. 

  8. 	MOVL	tmp-4(SP), R1
    9. 

  9. 	MOVQ	$0x01e00000, R2
    10. 

  10. 	AND		R2, R1, R0
    11. 

  11. 	RET
    12. 

  12. 

  13. TEXT	setfsr(SB), $8
    14. 

  14. 	MOVQ	$0x01e00000, R2
    15. 

  15. 	EXCB
    16. 

  16. 	MOVT	FPCR, F0
    17. 

  17. 	EXCB
    18. 

  18. 	MOVT	F0, tmp-8(SP)
    19. 

  19. 	MOVL	tmp-4(SP), R1
    20. 

  20. 	ANDNOT	R2, R1, R3
    21. 

  21. 	AND		R2, R0, R4
    22. 

  22. 	OR		R3, R4, R5
    23. 

  23. 	MOVL	R5, tmp-4(SP)
    24. 

  24. 	MOVT	tmp-8(SP), F0
    25. 

  25. 	EXCB
    26. 

  26. 	MOVT	F0, FPCR
    27. 

  27. 	EXCB
    28. 

  28. 	RET
    29. 

  29. 

  30. TEXT	getfcr(SB), $8
    31. 

  31. 	EXCB
    32. 

  32. 	MOVT	FPCR, F0
    33. 

  33. 	EXCB
    34. 

  34. 	MOVT	F0, tmp-8(SP)
    35. 

  35. 	MOVL	tmp-4(SP), R1
    36. 

  36. 	MOVQ	$0x700c0000, R2
    37. 

  37. 	AND		R2, R1, R0
    38. 

  38. 	XOR		R2, R0
    39. 

  39. 	RET
    40. 

  40. 

  41. TEXT	setfcr(SB), $8
    42. 

  42. 	MOVQ	$0x700c0000, R2
    43. 

  43. 	XOR		R2, R0
    44. 

  44. 	EXCB
    45. 

  45. 	MOVT	FPCR, F0
    46. 

  46. 	EXCB
    47. 

  47. 	MOVT	F0, tmp-8(SP)
    48. 

  48. 	MOVL	tmp-4(SP), R1
    49. 

  49. 	ANDNOT	R2, R1, R3
    50. 

  50. 	AND		R2, R0, R4
    51. 

  51. 	OR		R3, R4, R5
    52. 

  52. 	MOVL	R5, tmp-4(SP)
    53. 

  53. 	MOVT	tmp-8(SP), F0
    54. 

  54. 	EXCB
    55. 

  55. 	MOVT	F0, FPCR
    56. 

  56. 	EXCB
    57. 

  57. 	RET
    58.