ack/mach/pdp/libem/inn.s

/ $Header$
.text
.globl inn~

inn~:
	mov	r0,-(sp)
	clr	r0
	div	$010,r0
	cmp	r0,(sp)
	bcc	1f
	add	sp,r0
	bitb	bits(r1),4(r0)
	beq	1f
	mov	$01,r0
	br	2f
1:	clr	r0
2:	mov	02(sp),r1
	add	(sp)+,sp
	tst	(sp)+
	jmp	(r1)
.data
bits:	.byte	1,2,4,10,20,40,100,200
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl inn~`

			`inn~:`
			`mov r0,-(sp)`
			`clr r0`
			`div $010,r0`
			`cmp r0,(sp)`
			`bcc 1f`
			`add sp,r0`
edited to make reentrant, no more globals in use 1984-07-20 16:20:28 +00:00			`bitb bits(r1),4(r0)`
Initial revision 1984-07-19 12:51:00 +00:00			`beq 1f`
			`mov $01,r0`
			`br 2f`
			`1: clr r0`
			`2: mov 02(sp),r1`
			`add (sp)+,sp`
			`tst (sp)+`
			`jmp (r1)`
			`.data`
			`bits: .byte 1,2,4,10,20,40,100,200`