помогите разобраться с кодом

[samosval]

что означает почти каждая строчка в коде ??? в итоге программа - вводишь строку из цисел от 0 до 9 и она выдеёт число этих цифр !!! ?????

program lab4;
uses windows;
var
i : integer;
procedure MessageBoxA;
external 'user32.dll' name 'MessageBoxA';
procedure stroka;
var
st1 : shortstring;
begin
   asm
      jmp @start
      @st2 : db 39h, 58d, 30h, 13d
             db 38h, 58d, 30h, 13d
             db 37h, 58d, 30h, 13d
             db 36h, 58d, 30h, 13d
             db 35h, 58d, 30h, 13d
             db 34h, 58d, 30h, 13d
             db 33h, 58d, 30h, 13d
             db 32h, 58d, 30h, 13d
             db 31h, 58d, 30h, 13d
             db 30h, 58d, 30h, 13d, 0
      @start:
      mov bl, byte ptr i
      add bl, 30h
      mov byte ptr @st2[edx], bl
      add dx, 4d
      cmp al, 30h
      je @label_k
      jmp @start_1
      @label_k: push 0
                push 0
                push offset @st2
                push 0
                call messageboxa
      @start_1:
   end;
end;
procedure dll;
var
st1 : shortstring;
begin
   write('‚ўҐ¤ЁвҐ бва®Єг: ');
   read(st1);
   i := 0;
   asm
   jmp @start_1
   @data_:
   @start_1:
   lea eax, [esp - 4]
   push eax
   push $00000040
   push offset @start
   sub dword ptr [esp], offset @data_
   push offset @data_
   call VirtualProtect
      xor ecx, ecx
      mov cl, 39h
      xor edx, edx
      mov edx, 2d
         @label_1:
            mov al, cl
            xor ecx, ecx
            mov cl, byte ptr st1[0]
               @label_2:
                  cmp al, byte ptr st1[ecx]
                  je @label_go
                  jmp @start
                     @label_go:
                        add byte ptr i, 1d
                  @start:
               loop @label_2
            call stroka
            mov cl, al
            cmp cl, 1h
            je @label_esc
            mov byte ptr i, 0000h
         loop @label_1
      @label_esc:
   end;
end;              {/dll}
begin   {main}
   asm
      call dll
   end;
end.    {/main}