.text
.globl cif~,cuf~
.globl setint~,setfloat~

cif~:
	mov	(sp)+,r1
	mov	(sp)+,r0
	jsr	pc,setfloat~
	mov	(sp)+,r0
1:	jsr	pc,setint~
	movif	(sp)+,r0
	movf	r0,-(sp)
	setd;seti
	jmp	(r1)
cuf~:
	mov	(sp)+,r1
	mov	(sp)+,r0
	jsr	pc,setfloat~
	mov	(sp)+,r0
	cmp	r0,$02
	bne	1b
	clr	-(sp)
	mov	$04,r0
	br	1b