Помощь - Поиск - Пользователи - Календарь
Полная версия: Видеопамять
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ассемблер
Sviter
Народ, помогите пожалуйста с задачкой:
Используя прямое обращение к видеопамяти, реализовать вывод информации в заданное место экрана (аналог GotoXY с последующим write).
Заранее спасибо smile.gif
xds
Вот возможный вариант с поддержкой 40 и 80 символов в строке, цветных и монохромного режима.

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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.