Ассемблер на Delphi (консольный режим)

[newerow1989]

Здравствуйте!

Мне нужно заставить работать код на Delphi в консольном режиме.

//uses Crt;
const x=2;
      y=8;
      color=2*16+5;
      char=Ord('Z');
begin
   //ClrScr;
   asm
      mov ax, $b800
      mov es, ax // <<<--- здесь программа завершается
      mov al, 2
      mov ah, x
      mul ah
      mov bx, ax
      mov al, 160
      mov ah, y
      mul ah
      add bx, ax
      mov ax, 256
      mov cx, color
      mul cx
      mov dx, ax
      mov ax, char
      add dx, ax
      mov word ptr es:[bx], dx
   end;
   Readln;
end.

Это программа на ассемблере, отображающая на экране символ.

Она прекрасно работает на TurboPascal, но на Delphi никак не может запускаться. Доходит до строчки mov es, ax и закрывается консоль.

Не подскажите, почему так происходит? И что можно здесь исправить, чтобы работала?
Заранее спасибо!

[alexcoder]

Потому что код написан для реального режима, а делфи работает в защищенном режиме. Нельзя менять сегментные регистры и устройство памяти другое: нет доступа к видеобуферу. Делфи не мой профиль, готовый код не подкину. Есть пример на си:

void outchar(int x,int y,WCHAR c,WORD attr)
{
	DWORD w;
	COORD coord;
	coord.X=x;
	coord.Y=y;
	HANDLE hout=GetStdHandle(STD_OUTPUT_HANDLE);
	WriteConsoleOutputAttribute(hout,&attr,1,coord,&w);
	WriteConsoleOutputCharacter(hout,(LPWSTR)&c,1,coord,&w);
}

На ассемблере нужно просто сделать те же вызовы, с теми же параметрами.

[newerow1989]

Ну да, работает в принципе так:

var H:HWND;
    w:dword;
    c:_coord;
    attr:word;
    ch:char;
begin
   c.X:=5;
   c.Y:=8;
   attr:=16;
   ch:='Z';
   H:=GetStdHandle(STD_OUTPUT_HANDLE);
   WriteConsoleOutputAttribute(H,@attr,1,c,w);
   WriteConsoleOutputCharacter(H,@ch,1,c,w);
   Readln;
end.

Жаль что не ассемблере...