|
@@ -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
|