ack/mach/pdp/libem/cif.s

/ $Header$
.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
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.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)`
a setl instruction was changed to a setd setl was just plain wrong 1984-07-19 13:09:53 +00:00			`setd;seti`
Initial revision 1984-07-19 12:51:00 +00:00			`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`