Вывод линии данных в режиме VGA/EGA на Pascal

[Yana_]

Здравствуйте. Помогите, пожалуйста разобраться в данной процедуре:

rocedure ShowEGA (Y: integer);

{ Put a line of EGA (or VGA) data on the screen }
{ In Turbo Pascal, a '$' means the number is hexadeximal. }

var
   i, j, l, m, t: integer;
   EGAplane: integer;
   EGAscreen: array [0..32000] of byte absolute $A000:$0000;

begin
EGAplane := $0100;                       { the first plane to update }
PortW [$3CE] := $0005;                   { use write mode 0 }

{ PortW [$3CE] := $0005;      does port I/O by words. It is the same as:

  Out 03CEh,05h
  Out 03CFh,00h
}

t := (Header.Xmax - Header.Xmin + 1);    { width in pixels }
m := t and 7;                            { left over bits }

l := (t + 7) shr 3;                      { compute number of bytes to display }
if (l >= 80) then
   begin
   l := 80;                              { don't overrun screen width }
   m := 0;
   end;

if (m <> 0) then
   m := $FF shl (8 - m)                  { m = mask for unseen pixels }
else
   m := $FF;

for i := 0 to Header.Nplanes-1 do
   begin
   j := i * Header.Bytes_per_line_per_plane;
   t := j + l - 1;
   PCXline [t] := PCXline [t] and m;           { mask off unseen pixels }

   PortW [$3C4] := EGAplane + 2;               { set plane number }
   Move (PCXline [j], EGAscreen [Y * 80], l);
   EGAplane := EGAplane shl 1;
   end;

PortW [$3C4] := $0F02;                         { default plane mask }
end;   { ShowEGA }

Я не могу понять :
1) В var оглашение массива EGAScreen что это за тип такой?
2)Что за коды присваиваются портам? Для чего?
3) if (m<>0) then
m:=$FF shl(8-m)
else
m:=$FF.

[Stilet]

что это за тип такой?

Это так называемые абсолютные массивы.
т.е. ячейки этого массива будут располагаться в памяти на четко указанном адресе. В данном случае это $A000:$0000 - т.е. массив этот будет иметь доступ к ячейкам видеопамяти в графическом режиме (если не опшибаюсь).

[Yana_]

Большущее спасибо! Вы меня просветили)