Ассемблер и Паскаль не дружат...

[Monte-Kristo]

Задание такое: ввести в паскале строку, потом отослать эту строку в заранее созданный модуль в ассемблере и удалить 10 символов, начиная со второго включительно.
И все бы ничего, но после обработки строки в ассемблеровском модуле строка возвращается с потерей первого символа.

Пример: дана строка abcdefghijklmn, после обработки должно вернуться almn, а возвращается lmn (можно конечно сделать, чтоб вернулось и klmn, но вот чтоб первая а осталась нетронутой - у меня не получается сделать). Если кто знает в чем ошибки, исправьте плз... Выкладываю код модуля и код паскалевской проги?

Ассемблеровский модуль:

.model  large,pascal
.data
extrn  s1:byte, s2:byte, d:word
.code
public sdf
sdf proc far

lea     si,s1
lea	di,s2
inc	si
mov	bl,[si]
mov	[di],bl
sub	d,11
mov     cx,d
add	si,1

m:	
add	si,10	
mov	bl,[si]
sub	si,10
inc	di
mov	[di],bl
inc	si
loop	m
ret
sdf endp
end

Паскальевская программа:

{$L sdf}
uses crt;
var s1,s2:string[20];
d:word;
procedure sdf;far;external;
 begin
  clrscr;
  s1:='abcdefghijklmn';
  writeln(s1);
  writeln;
  d:=length(s1);
  sdf;
  writeln('В Ассемблере:');
  writeln(s2);
  readln;
 end.

[Monte-Kristo]

Пс. Я не удаляю, а переношу нужные символы в другую строку...

[Goodwin98]

Наверно так.

lea     si,s1
lea	di,s2
mov	bl,[si]
mov	[di],bl
sub	d,11
mov     cx,d
inc       di
add si,11

m:	
mov	bl,[si]
mov	[di],bl
inc	di
inc	si
loop	m
ret
sdf endp
end

[Monte-Kristo]

Неа, все равно первый символ глатается...

[Goodwin98]

Может паскаль хранит строки по другому.. Попробуй так.

lea     si,s1
lea	di,s2
inc di
inc si
mov	bl,[si]
mov	[di],bl
sub	d,11
mov     cx,d
inc       di
add si,11

m:	
mov	bl,[si]
mov	[di],bl
inc	di
inc	si
loop	m
ret
sdf endp
end

[Monte-Kristo]

Так вообще не пашет... Я знаю, что в паскале нулевой байт отводится под информацию о строке. Может это с этим связано?

[Goodwin98]

Ну может тода так

lea     si,s1
lea	di,s2
mov	bl,[si]
mov	[di],bl
inc si
inc di
mov	bl,[si]
mov	[di],bl
sub	d,11
mov     cx,d
inc       di
add si,11

m:	
mov	bl,[si]
mov	[di],bl
inc	di
inc	si
loop	m
ret
sdf endp
end

В нулевом байте вроде должна содержаться длина строки, но если первая прога нормально выводила результат, то и это должно сканать.

[airyashov]

что гадать, программирование не та дисциплина
из 1 поста программа не работает, так как пишет во вторую строку с 0 байта, поэтому пропадает 1 символ и получаются иероглифы
из 5 длина строки второй не меняется = 0 поэтому ничего не выводит

.model  large,pascal
.data
extrn  s1:byte, s2:byte, d:word
.code
public sdf
sdf proc far

lea     si,s1[1]
lea     di,s2[1]
mov bl,[si]
mov [di],bl
sub d,11
mov cx,d
mov s2[0],cl
inc s2[0]
inc di
add si,11

m:
mov     bl,[si]
mov     [di],bl
inc     di
inc     si
loop    m
ret
sdf endp
end