Используя прямое обращение к видеопамяти, реализовать вывод информации в заданное место экрана (аналог GotoXY с последующим write).
Заранее спасибо
![smile.gif](http://forum.pascal.net.ru/style_emoticons/default/smile.gif)
program VBuf;
procedure OutText(const s: String; x, y, Attr: Integer); assembler;
asm
xor ax,ax
mov es,ax
mov ax,80
cmp byte ptr es:[44Ah],40
je @@1
shl ax,1
@@1:
mul y
add ax,x
add ax,x
mov di,ax
mov ax,0B000h
cmp byte ptr es:[449h],7
je @@2
mov ax,0B800h
@@2:
mov es,ax
push ds
lds si,s
cld
xor cx,cx
mov cl,[si]
inc si
mov ah,byte ptr Attr
@@3:
lodsb
stosw
loop @@3
pop ds
end;
begin
OutText(' * Hello, World! * ', 30, 12, $1E);
end.