Browse Source

more corrections

ceriel 37 years ago
parent
commit
abd0235f2f
3 changed files with 6 additions and 6 deletions
  1. 4 4
      mach/i80/libem/rck.s
  2. 1 1
      mach/i80/libem/rol4.s
  3. 1 1
      mach/i80/libem/ror4.s

+ 4 - 4
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

+ 1 - 1
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

+ 1 - 1
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