[Bargest]

Подскажите пожалуйста как это можно реализовать?

Код:

var a: array[0..1] of byte;
     b: array[0..1] of byte;
...
a[0] := 3000;
a[1] := 3000 shr 8;
while (a[1] != 0) and (a[0] >= 65) do begin
   if a[0] < 65 then
      a[1] := a[1] - 1;
   a[0] := a[0] - 65;
   if b[0] = 255 then
      b[1] := b[1] + 1;
   b[0] := b[0] + 1;
end;
// b - результат

Код:

mov ax, [a]
xor  dx, dx
mov bx, 65
div bx
mov [b], ax

А теперь объясни, зафига этот бред.