Parcourir la source

Routine was wrong, leaving things on the stack in the one bit case,
the inclusion of slu in this routine was bogus.
It is never called anyway, so slu is taken out.

sater il y a 40 ans
Parent
commit
2a0a27f00a
1 fichiers modifiés avec 4 ajouts et 6 suppressions
  1. 4 6
      mach/pdp/libem/sru.s

+ 4 - 6
mach/pdp/libem/sru.s

@@ -1,18 +1,17 @@
 / $Header$
 .text
-.globl sru~,slu~
+.globl sru~
 .globl unknown~
 
 sru~:
 	neg	2(sp)
-slu~:
 	mov	(sp)+,r3
 	cmp	r0,$02
 	bgt	1f
 	mov	2(sp),r1
 	clr	r0
 	ashc	(sp)+,r0
-2:	mov	r1,-(sp)
+	mov	r1,(sp)
 	jmp	(r3)
 1:	cmp	r0,$04
 	bgt	3f
@@ -23,9 +22,8 @@ slu~:
 	ashc	$-1,r0
 	bic	$0100000,r0
 	inc	(sp)
-	beq	4f
-	ashc	(sp)+,r0
-4:	mov	r0,(sp)
+4:	ashc	(sp)+,r0
+	mov	r0,(sp)
 	mov	r1,02(sp)
 	jmp	(r3)
 3:	jmp	unknown~