Объясните по простому как работает программа?

program Las
uses crt;
var t: integer;
    pa: pointer;
    a: array[1..32] of integer;
begin
pa := @a;
asm
    LDS     si,pa      {ssilka na 1 element massiva}
    mov     ax, 0E7B3h {v ax mladshee slovo. 0 potomu 4to ya4inaetca s bukvi}
    xor     cx, cx     {o4istka}
    mov     bx, 2      {osnovanie sistemi s4isleniya}
@@2:
    xor     dx,dx
    div     bx          {delim}
    push    dx          {ostatok v stek}
    inc     cx
 
    test    ax, ax      {povtoryaem pok ne ostanutsya 0}
    jnz     @@2
 
    mov ax, 86CAh       {v ax starshee slovo}
@@9:
 
    xor     dx,dx
    div     bx
 
    push    dx
    inc     cx
 
    test    ax, ax
    jnz     @@9
 
    xor bx,bx           {o4ictka}
    xor ax,ax
    xor dx, dx
    mov dx, 0
    @@1:
    pop ax              {dostaem iz steka}
    cmp ax, 0           {sravnivaem s 0}
    jle @@5             {esli 0}
    jmp @@6             {inache}
 
@@5: mov word ptr[si+bx], dx   {pologzit' s4etchik 1 v massiv}
     xor dx, dx
     inc bx
     inc bx
     jmp @@7            {ciklim}
 
@@6: inc dx             {uvelichim s4etchik 1}
     jmp @@7            {cikl}
 
@@7: loop @@1           {esli poslednya 1 to i ee s4itaem}
     cmp dx, 0
     mov word ptr [si+bx], dx
end;
clrscr;
for t:=1 to 32 do write(a[t], ' ');
readln;
end.