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 mov b,m
inx h inx h
mov a,d mov a,d
xor b xri b
jm 1f ! jump if index and l.b. have different signs jm 1f ! jump if index and l.b. have different signs
mov a,e mov a,e
sub c sub c
@ -32,14 +32,14 @@
sbb b sbb b
jmp 2f jmp 2f
1: xor b ! now a = d again 1: xri b ! now a = d again
2: cm erange ! trap if index too small 2: cm erange ! trap if index too small
mov c,m mov c,m
inx h inx h
mov b,m mov b,m
mov a,d mov a,d
xor b xri b
jm 1f ! jump if index and u.b. have different signs jm 1f ! jump if index and u.b. have different signs
mov a,c mov a,c
sub e sub e
@ -47,7 +47,7 @@
sbb d sbb d
jmp 2f jmp 2f
1: xor d ! now a = b 1: xri d ! now a = b
2: cm erange ! trap if index is too large 2: cm erange ! trap if index is too large
lhld .bcreg lhld .bcreg

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

@ -10,7 +10,7 @@
! Expects on stack: operand ! Expects on stack: operand
! Yields on stack: result ! Yields on stack: result
.rol4 pop h .rol4: pop h
shld .retadr shld .retadr
mov h,b mov h,b
mov l,c mov l,c

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

@ -10,7 +10,7 @@
! Expects on stack: operand ! Expects on stack: operand
! Yields on stack: result ! Yields on stack: result
.ror4 pop h .ror4: pop h
shld .retadr shld .retadr
mov h,b mov h,b
mov l,c mov l,c