1	.globl	_fpgetsticky
2_fpgetsticky:
3	getpsw	  r0
4	and.w	  #0x1f00,r0
5	shl.w	  #0xf8,r0
6	ret	  #0x0
7
8
9	.globl	_fpsetsticky
10_fpsetsticky:
11	 getpsw	  r0
12	 mov.w	  [ap],r1
13	 shl.w	  #0x8,r1
14	 updpsw.h r1,#0x1f00
15	 trapfl
16	 and.w	  #0x1f00,r0
17	 shl.w	  #0xf8,r0
18	 ret	  #0x0
19