ack/mach/pdp/libem/cff.s

/ $Header$
.text
.globl cff~
.globl setfloat~

cff~:
	mov	(sp)+,r1
	mov	(sp)+,r0
	cmp	(sp)+,r0
	beq	1f
	jsr	pc,setfloat~
	movof	(sp)+,r0
	movf	r0,-(sp)
	setd
1:	jmp	(r1)
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl cff~`
			`.globl setfloat~`

			`cff~:`
			`mov (sp)+,r1`
			`mov (sp)+,r0`
			`cmp (sp)+,r0`
			`beq 1f`
			`jsr pc,setfloat~`
			`movof (sp)+,r0`
			`movf r0,-(sp)`
a setl instruction was changed to a setd setl was just plain wrong 1984-07-19 13:09:53 +00:00			`setd`
Initial revision 1984-07-19 12:51:00 +00:00			`1: jmp (r1)`