ack/mach/pdp/libem/csb.s

/ $Header$
.text
.globl csb~
.globl fat~

ECASE	= 20.

csb~:
	mov	(r0)+,-(sp)
	mov	(r0)+,r3
	beq	1f
3:	cmp	(r0)+,r1
	beq	2f
	tst	(r0)+
	sob	r3,3b
1:	mov	(sp)+,r1
	br	4f
2:	tst	(sp)+
	mov	(r0),r1
4:	beq	5f
	jmp	(r1)
5:	mov	$ECASE,-(sp)
	jmp	fat~
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl csb~`
			`.globl fat~`

			`ECASE = 20.`

			`csb~:`
			`mov (r0)+,-(sp)`
			`mov (r0)+,r3`
			`beq 1f`
			`3: cmp (r0)+,r1`
			`beq 2f`
			`tst (r0)+`
			`sob r3,3b`
			`1: mov (sp)+,r1`
			`br 4f`
			`2: tst (sp)+`
			`mov (r0),r1`
			`4: beq 5f`
			`jmp (r1)`
edited to make reentrant, no more globals in use 1984-07-20 16:20:28 +00:00			`5: mov $ECASE,-(sp)`
Initial revision 1984-07-19 12:51:00 +00:00			`jmp fat~`