ack/mach/pdp/libem/cfi.s

.text
.globl cfi~
.globl setfloat~,setint~

cfi~:
	mov	(sp)+,r1
	mov	(sp)+,r0
	jsr	pc,setint~
	mov	(sp)+,r0
	jsr	pc,setfloat~
	movf	(sp)+,r0
	movfi	r0,-(sp)
	setd;seti
	jmp	(r1)
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl cfi~`
			`.globl setfloat~,setint~`

			`cfi~:`
			`mov (sp)+,r1`
			`mov (sp)+,r0`
			`jsr pc,setint~`
			`mov (sp)+,r0`
			`jsr pc,setfloat~`
			`movf (sp)+,r0`
			`movfi 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)`