Синтаксис Absolute

uses graph,crt;
var
    a: array [0..15999] of byte absolute $B800:0000;
    x, x1, x2, y1, y2, d, i, j,y:integer;
    dva_bitika,col:integer;
 
procedure PutPixel(x,y,color:integer);
    var nb,ost:integer;
    begin
    { Nomer baita}
        nb:=$0000;
    { Esli stroka ne chetnaya }
        if (odd(y)) then nb:=nb+$2000; { Если строка нечетная, то + $2000}
    { nomer bayta }
        y:=y div 2;
        nb:=nb+80*y+(x div 4);
    { Ishem poziciu bitov }
        ost:=x mod 4;
        dva_bitika:= color shl (6-ost*2);
    { ochistka dvuh bitov }
        case ost of
            0: a[nb]:=a[nb] and $3F; { 0011 1111 }
            1: a[nb]:=a[nb] and $CF; { 1100 1111 }
            2: a[nb]:=a[nb] and $F3; { 1111 0011 }
            3: a[nb]:=a[nb] and $FC; { 1111 1100 }
        end;
        a[nb]:=a[nb] or dva_bitika;
    end;
begin
    writeln('Vvedite cvet:1,2,3');
    readln(col);
    writeln('Vvedi koordinatu nachalnoi tochki: X1,Y1');
    readln(x1, y1);
  writeln('Vvedi koordinatu konechnoi tochki: X1,Y1');
  readln(x2, y2);
{ Ustanovit video regim 320x200 tochek. Chetire cveta.}
    asm
        mov ah,0
        mov al,4
        int 10h
    end;
    for i:=x1 to x2 do
  for j:=y1 to y2 do
        PutPixel(i,j,col);
    readln;
end.