ack/mach/pdp/libem/cmf.s

.text
.globl cmf~
.globl setfloat~

cmf~:
	jsr	pc,setfloat~
	mov	(sp)+,r1
	movf	(sp)+,r0
	movf	(sp)+,r1
	clr	r0
	cmpf	r0,r1
	setd
	cfcc
	beq	1f
	blt	2f
	dec	r0
	jmp	(r1)
2:	inc	r0
1:	jmp	(r1)
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl cmf~`
			`.globl setfloat~`

			`cmf~:`
			`jsr pc,setfloat~`
			`mov (sp)+,r1`
			`movf (sp)+,r0`
			`movf (sp)+,r1`
			`clr r0`
			`cmpf r0,r1`
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			`cfcc`
			`beq 1f`
			`blt 2f`
			`dec r0`
			`jmp (r1)`
			`2: inc r0`
			`1: jmp (r1)`