From: ceriel <none@none>
Date: Wed, 28 Jan 1987 22:54:52 +0000 (+0000)
Subject: more corrections
X-Git-Tag: release-5-5~4889
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7be94f7d44f19f3a74e602e77b4fb903e619d083;p=ack.git

more corrections
---

diff --git a/mach/i80/libem/rck.s b/mach/i80/libem/rck.s
index 69777ff72..d7c85c91c 100644
--- a/mach/i80/libem/rck.s
+++ b/mach/i80/libem/rck.s
@@ -24,7 +24,7 @@
 	mov b,m
 	inx h
 	mov a,d
-	xri b
+	xra b
 	jm 1f			! jump if index and l.b. have different signs
 	mov a,e
 	sub c
@@ -32,14 +32,14 @@
 	sbb b
 	jmp 2f
 
-1:	xri b			! now a = d again
+1:	xra b			! now a = d again
 2:	cm erange		! trap if index too small
 
 	mov c,m
 	inx h
 	mov b,m
 	mov a,d
-	xri b
+	xra b
 	jm 1f			! jump if index and u.b. have different signs
 	mov a,c
 	sub e
@@ -47,7 +47,7 @@
 	sbb d
 	jmp 2f
 
-1:	xri d			! now a = b
+1:	xra d			! now a = b
 2:	cm erange		! trap if index is too large
 
 	lhld .bcreg
diff --git a/mach/i80/libem/rol4.s b/mach/i80/libem/rol4.s
index 1199df16d..e5bb1a83d 100644
--- a/mach/i80/libem/rol4.s
+++ b/mach/i80/libem/rol4.s
@@ -16,7 +16,7 @@
 	mov l,c
 	shld .bcreg
 
-.rol4:	pop h		! low-order bytes of operand
+	pop h		! low-order bytes of operand
 	pop b		! high order bytes of operand
 
 	mov a,e
diff --git a/mach/i80/libem/ror4.s b/mach/i80/libem/ror4.s
index ab3fe3464..e77d8a74c 100644
--- a/mach/i80/libem/ror4.s
+++ b/mach/i80/libem/ror4.s
@@ -16,7 +16,7 @@
 	mov l,c
 	shld .bcreg
 
-.ror4:	pop h		! low-order bytes of operand
+	pop h		! low-order bytes of operand
 	pop b		! high order bytes of operand
 
 	mov a,e