more corrections

diff --git a/mach/i80/libem/rck.s b/mach/i80/libem/rck.s
index 69777ff..d7c85c9 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
-       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 1199df1..e5bb1a8 100644 (file)
--- 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 ab3fe34..e77d8a7 100644 (file)
--- 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