Первый раз

Мне тут надо программу написать по учёбе на Паскале очередную. И в ней срочно нужна процедура clrscr. А всем известно, что с тех пор как компы стали быстрыми uses crt не прокатывает. Пришлось писать самому. Это моя первая процедура с использованием Ассемблера.

procedure clrscr;
begin
  asm
  mov ah, 6
  mov al, 0
  mov bh, 7
  mov ch, 0
  mov cl, 0
  mov dh, 50
  mov dl, 79
  int 10h
  mov ah, 2
  mov bh, 0
  mov dh, 0
  mov dl, 0
  int 10h
  end;
end;

Наверное, можно было и короче написать.

Дальше
2 комментария
Sean 2003

Зачем изобретать велосипед? Есть же подправленный модуль crt (внизу страницы): http://www.helloworld.ru/texts/comp/lang/pascal/faq/pascal.htm

Илья Бирман

Ух ты. Спасибо.

master 2003

procedure clrscr; assembler;
asm
mov ax,7
int 10h
end;

И все. При установке режима экран очищается автоматически.

Мои книги