syntax error correction

diff --git a/mach/i80/libem/rck.s b/mach/i80/libem/rck.s
index 0bfc326..69777ff 100644 (file)
--- 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 de26f07..1199df1 100644 (file)
--- 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 83ac56c..ab3fe34 100644 (file)
--- 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