d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

more corrections

Browse source
This commit is contained in:
ceriel 1987-01-28 22:54:52 +00:00
parent eb0030af45
commit 7be94f7d44
3 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mach/i80/libem/rck.s
View file

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

2
mach/i80/libem/rol4.s
View file

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

2
mach/i80/libem/ror4.s
View file

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