следующий фpагмент (2)
{ Узнать цвет точки в xmode 320x200x256 }
Function GetPixel13x(x,y : word) : byte;assembler;
asm
push es
mov ax,80
shr ax,1
shr ax,1
mul [y]
mov bx,[x]
mov cl,bl
shr bx,1
shr bx,1
add bx,ax
mov ah,cl
and ah,3
mov al,4
mov dx,3ceh
out dx,ax { set EGA bit plane read register }
mov ax,0a000h { setup screen segment A000 }
mov es,ax
mov al,es:[bx]
mov ah,0
pop es
end;
следующий фpагмент (3)|пpедыдущий фpагмент (1)
{ Узнать цвет точки для X-Mode 360x480x256 }
Function VGetPixel(x,y : word) : byte;assembler;
asm
push es
mov ax,360 { 360 dots wide (for 360x480 mode) }
shr ax,1
shr ax,1
mul [y]
mov bx,[x]
mov cl,bl
shr bx,1
shr bx,1
add bx,ax
mov ah,cl
and ah,3
mov al,4
mov dx,3ceh
out dx,ax { set EGA bit plane read register }
mov ax,0a000h { setup screen segment A000 }
mov es,ax
mov al,es:[bx]
mov ah,0
pop es
end;
Всего 2 фpагмент(а/ов) |пpедыдущий фpагмент (2)
|