следующий ф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)

Если вы хотите дополнить FAQ - пожалуйста пишите.

design/collection/some content by Frog,
DEMO DESIGN FAQ (C) Realm Of Illusion 1994-2000,
При перепечатке материалов этой страницы пожалуйста ссылайтесь на источник: "DEMO.DESIGN FAQ, http://www.enlight.ru/demo/faq".