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

syntax error correction

Browse source
This commit is contained in:
ceriel 1987-01-28 22:23:14 +00:00
parent beaaa19ada
commit e69ccee1f7
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
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

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

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

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

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