Комментарии к ассемблерной вставке

[Feelnoobskill]

Всем привет. Ищу помощи у знатоков ассемблера!Есть программный код

program p51;
uses crt;
var
   s1:string;
   s2:string;
   x:string;
   n:integer;
begin
 clrscr;
 writeln('Enter string');
 readln(s1);
 x:='';
 n:=length(s1);
asm
 mov si,offset word ptr s1
 mov bx,offset word ptr s2
 inc si
 inc bx
 xor dx,dx
 mov cx,ax
 mov dx,ax
 mov ah,byte ptr x
@beg2:
 mov al,[si]
 mov [bx],al  
 mov [bx+1],ah
 mov al,[si+1]
 mov [bx+2],al
 mov [bx+3],ah
 add bx,4
 add si,2
 loop @beg2
 add dx,n
 add dx,1
 mov bx,offset s2
 mov [bx],dl

end;
  writeln(s2);
  readln;
end.

Кто может помочь с написанием комментариев к ассемблерной вставки, а то я в ассемблере конкретный 0
Заранее спасибо большое!

[Mikl___]

Feelnoobskill,
а задание-то как звучало в оригинале? Давай от этого отталкиваться, наверное, "создать строку, которая бы повторяла введенную строку, но после каждого символа бы следовал пробел?" Идея понятна, а реализация ассемблерной вставки с кучей ошибок, смысл комментировать ошибки?

[Feelnoobskill]

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

[Mikl___]

Feelnoobskill,
ну если ТРИ пробела, тогда считай сам

mov ah,byte ptr x <-- здесь должен передаться пробел из переменной Х,
@beg2:
 mov al,[si]<-- копируем символ из строки s1 через регистр AL
 mov [bx],al  <--в строку s2
 mov [bx+1],ah <-- первый пробел, а где второй и третий пробелы?
 mov al,[si+1] <-- символ из строки
 mov [bx+2],al <-- символ в строку
 mov [bx+3],ah <-- очередной пробел после очередного символа
 add bx,4
 add si,2
 loop @beg2

[Feelnoobskill]

Хорошо, с этой частью я более-менее разобрался, не подскажите ли вы мне, что делает часть кода

xor dx,dx
 mov cx,ax
 mov dx,ax

и

 add dx,n
 add dx,1
 mov bx,offset s2
 mov [bx],dl

[Mikl___]

Feelnoobskill

xor dx,dx <-- dx:=0 хотя для чего, ведь двумя строчками ниже
DX получает значение из регистра AX
 mov cx,ax <-- вероятно в АХ длина строки s1, которую вернула функция length(s1)
 mov dx,ax <-- DX := AX = n
...
add dx,n <-- DX := DX + n если учесть что там уже есть n то DX = 2*n
 add dx,1 <-- DX := DX + 1 = 2n + 1
 mov bx,offset s2 <-- адрес начала строки s2
 mov [bx],dl <--  в самом первом байте Pascal-строки находится ее длина = 2n+1

только писал всё это какой-то двоешник