	.LEVEL 1.1
	.SPACE $PRIVATE$
	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
	.SPACE $TEXT$
	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.IMPORT $global$,DATA
	.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
	.SPACE $TEXT$
	.SUBSPA $CODE$


	.align 4
;.NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.EXPORT ieee_set_fcr,ENTRY,PRIV_LEV=3,ARGW0=GR
ieee_set_fcr
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	stw %r26,-12(%r30)
	fldws -12(%r30),%fr0L
	bv,n %r0(%r2)
	.EXIT
	.PROCEND



	.align 4
;.NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.EXPORT ieee_get_fcr,ENTRY,PRIV_LEV=3,RTNVAL=GR
ieee_get_fcr
	.PROC
	.CALLINFO FRAME=64,NO_CALLS
	.ENTRY
	ldo 64(%r30),%r30
	fstws %fr0L,-16(%r30)
	ldw -16(%r30),%r28
	bv %r0(%r2)
	ldo -64(%r30),%r30
	.EXIT
	.PROCEND



	.align 4
;.NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.EXPORT ieee_set_fsr,ENTRY,PRIV_LEV=3,ARGW0=GR
ieee_set_fsr
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	stw %r26,-12(%r30)
	fldws -12(%r30),%fr0L
	bv,n %r0(%r2)
	.EXIT
	.PROCEND



	.align 4
;.NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.EXPORT ieee_get_fsr,ENTRY,PRIV_LEV=3,RTNVAL=GR
ieee_get_fsr
	.PROC
	.CALLINFO FRAME=64,NO_CALLS
	.ENTRY
	ldo 64(%r30),%r30
	fstws %fr0L,-16(%r30)
	ldw -16(%r30),%r28
	bv %r0(%r2)
	ldo -64(%r30),%r30
	.EXIT
	.PROCEND

