ack/mach/pdp/libem/isar.s

/ $Header$
.text
.globl isar~
.globl sar~,trp~

EILLINS = 18.

isar~:
	mov	(sp)+,r0
	cmp	(sp)+,$02
	bne	1f
	mov	02(sp),r1
	mov	r0,02(sp)
	mov	(sp)+,r0
	jmp	sar~
1:	mov	$EILLINS,-(sp)
	jsr	pc,trp~
	add	$06,sp
	jmp	(r0)
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl isar~`
			`.globl sar~,trp~`

			`EILLINS = 18.`

			`isar~:`
			`mov (sp)+,r0`
			`cmp (sp)+,$02`
			`bne 1f`
			`mov 02(sp),r1`
			`mov r0,02(sp)`
			`mov (sp)+,r0`
			`jmp sar~`
			`1: mov $EILLINS,-(sp)`
			`jsr pc,trp~`
			`add $06,sp`
			`jmp (r0)`