From: ceriel <none@none>
Date: Wed, 28 Jan 1987 22:23:14 +0000 (+0000)
Subject: syntax error correction
X-Git-Tag: release-5-5~4891
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e69ccee1f71c088399dd2454db32acb0e1f9c897;p=ack.git

syntax error correction
---

diff --git a/mach/i80/libem/rck.s b/mach/i80/libem/rck.s
index 0bfc3265e..69777ff72 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
-	xor b
+	xri 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:	xor b			! now a = d again
+1:	xri b			! now a = d again
 2:	cm erange		! trap if index too small
 
 	mov c,m
 	inx h
 	mov b,m
 	mov a,d
-	xor b
+	xri 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:	xor d			! now a = b
+1:	xri 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 de26f073f..1199df16d 100644
--- a/mach/i80/libem/rol4.s
+++ b/mach/i80/libem/rol4.s
@@ -10,7 +10,7 @@
 ! Expects on stack:	operand
 ! Yields on stack:	result
 
-.rol4	pop h
+.rol4:	pop h
 	shld .retadr
 	mov h,b
 	mov l,c
diff --git a/mach/i80/libem/ror4.s b/mach/i80/libem/ror4.s
index 83ac56cbf..ab3fe3464 100644
--- a/mach/i80/libem/ror4.s
+++ b/mach/i80/libem/ror4.s
@@ -10,7 +10,7 @@
 ! Expects on stack:	operand
 ! Yields on stack:	result
 
-.ror4	pop h
+.ror4:	pop h
 	shld .retadr
 	mov h,b
 	mov l,c