БайтоРезка.

[Cezar]

У меня очень простая проблема, но я ее не догоняю. И так.

Есть четырехбайтовая переменная целого типа Color (двойное слово - DWORD), и четыре переменные байтового типа: Z, R, G, B.
Задача: разделить Color на отдельные байты и переслать их в байтовые переменные. В Асме новичок, а на Паскале решить не получается . Очень нужно. Просьба кидать готовый исходник, и принцип его действия не помешает.

ЗЫ. FORTRAN FOREVER!!!.

[Квэнди]

1.
Colortorgb +F1
Getrvaluew+f1
Getgvalue +f1
Getbvalue +f1
это в Delphi.

[zetrix]

На Паскале:

var color:longint;
    z,r,g,b:byte;
begin
Write('Введите переменую color: ');
Readln(color);
 asm
 xor al, al
 mov al, byte ptr color[0]
 mov z, al
 mov al, byte ptr color[1]
 mov r, al
 mov al, byte ptr color[2]
 mov g, al
 mov al, byte ptr color[3]
 mov b, al
 end;
Writeln('Z=',z);
Writeln('R=',r);
Writeln('G=',g);
Writeln('B=',b);
Readln;
end.

В z заносится 1-ый байт числа Color, в R-второй, G-третий, B-четвёртый.

[Cezar]

Zetrix, большое спасибо, очень выручил.