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: cf886ef796
Branches Tags
harvey
/
sys
/
src
/
libc
/
68000
/
getfcr.s

getfcr.s 229 B
History Raw

12345678910111213141516171819 
  1. TEXT	getfsr(SB), $0
    2. 

  2. 	MOVL	$0, R0
    3. 

  3. 	MOVL	FPSR, R0
    4. 

  4. 	RTS
    5. 

  5. 

  6. TEXT	setfsr(SB), $0
    7. 

  7. 	MOVL	new+0(FP), R1
    8. 

  8. 	MOVL	R1, FPSR
    9. 

  9. 	RTS
    10. 

  10. 

  11. TEXT	getfcr(SB), $0
    12. 

  12. 	MOVL	$0, R0
    13. 

  13. 	MOVL	FPCR, R0
    14. 

  14. 	RTS
    15. 

  15. 

  16. TEXT	setfcr(SB), $0
    17. 

  17. 	MOVL	new+0(FP), R1
    18. 

  18. 	MOVL	R1, FPCR
    19. 

  19. 	RTS
    20.