объясните byte ptr плз

byte ptr cs:[0105]

mov byte ptr [di],'1'

program center;
uses crt;
var a:array[1..16] of word;
b:array[1..16] of string[16];
x,y,sx,sy,n,x0,y0,i:word;
sum:integer;
procedure print;
begin
asm
      lea si,a
      lea di,b
      mov cx,16
@1: push cx
      mov byte ptr[di],16
      inc di
      mov ax,[si]
      mov cx,16
@2: shl ax,1
      jc @3
      mov byte ptr [di],'0'
      jmp @4
@3: mov byte ptr [di], '1'
@4: inc di
      loop @2
      add si,2
      pop cx
      loop @1
end;
end;
BEGIN clrscr;
randomize;
for i:=1 to 16 do
a[i]:=random(100);
print;
writeln;
for i:=1 to 16 do writeln (b[i]);
 
asm
     lea si,A
     mov sx,0
     mov sy,0
     mov y,0
     mov n,0
     mov cx,16
@1:push cx
     mov x,0
     mov cx,16
     mov ax,[si]
@2: shl ax,1
     jnc @3
     mov dx,x
     add sx,dx
     mov dx,y
     add sy,dx
     inc n
@3:inc x
     loop @2
     add si,2
     inc y
     pop cx
     loop @1
     mov ax,sx
     cwd
     div n
     mov x0,ax
     mov ax,sy
     cwd
     div n
     mov y0,ax
     mov dx,8000h
     mov cx,x0
     shr dx,cl
     mov cx,16
     lea si,A
@4:or [si],dx
     add si,2
     loop @4
     mov bx,y0
     shl bx,1
     lea si,A
     add si,bx
     mov word ptr[si],-1
end;
 
writeln ('x0=',x0:5,'y0=',y0);
print;
writeln;
for i:=1 to 16 do writeln (b[i]);
writeln;
asm       (Здесь я пытаюсь сосчитать количество 1)
 lea si,b
 mov x,0
 mov y,1
 mov n,16
 mov cx,16
 mov sum,0
@1: push n
    mov ax,[si]
    cmp ax,'1'
    je @sum
    jmp @s
@sum: add sum,1
@S: sub n,1
    add si,2
    cmp n,0
    jg @1
@2: add y,1
    cmp y,cx
    jg @exit
    cmp y,8
    je @4
    cmp y,9
    je @3
    cmp y,9
    jg @5
    jmp @4
@3: mov n,2
    add x,2
    add si,x
    jmp @1
@4: pop n
    sub n,2
    add x,4
    add si,x
    jmp @1
@5: pop n
    add n,2
    cmp x,30
    je @6
    jmp @7
@6: sub x,2
@7: sub x,4
    add si,x
    jmp @1
@exit:
end;
writeln('summa= ',sum);
readln ;
end.

 lea di,b
 mov x,0
 mov y,1
 mov n,16
 mov cx,16
 mov sum,0
@nach: push n
@pt1: mov al,byte ptr[di]
    cmp al,49
    je @sum
    jmp @s
@sum: add sum,1
@S:   sub n,1
      cmp n,0
      jle @pt2
      add di,2
      jmp @pt1
@pt2: add y,1
      cmp y,cx
      jg @exit
      {cmp y,8
      je @pt4}
      cmp y,9
      je @pt3
      cmp y,9
      jg @pt5
      jmp @pt4
@pt3: mov n,2
      add x,2
      add di,x
      jmp @nach
@pt4: mov n,2
      add x,4
      add di,x
      jmp @nach
@pt5: pop n
      add n,2
      cmp x,30
      je @pt6
      jmp @pt7
@pt6: sub x,2
@pt7: sub x,4
      add di,x
      jmp @nach
@exit: