... di, Offset VesaModeInfor; mov ax, 4F01h; mov cx, Mode; int 10h; mov ReturnCode, ax; end; High color & True color Lưu Văn Minh (Tiếp theo sốtrước) Email: vanminhluu@yahoo.com function GetModeInfor; ... RGB(r, g, b: LongInt; varColor: LongInt); begin Case BitPerPixel of 32, 24: Color := (r shl 16) or (g shl8) or b; 16: Color := (r shr shl 11) or (gshr shl 5) or b shr 3; 15: Color := (r shr shl 10) ... end; end; procedure Putpixel; label Lap, Page1, Page2; var Color: LongInt; begin RGB(r, g, b, Color) ; Seg_ := Seg (Color) ; Ofs_ := Ofs (Color) ; Asm Mov ax, x Mul BytePerPixel Mov x, ax Mov ax, y...