Подписка на блог

РСС — лучше всего

Ещё есть автоматические трансляции в Тумблере и Же-же. Если что-то не работает, напишите мне: ilyabirman@ilyabirman.ru.

Первый раз

Мне тут надо программу написать по учёбе на Паскале очередную. И в ней срочно нужна процедура 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
Зачем изобретать велосипед? Есть же подправленный модуль crt (внизу страницы): http://www.helloworld.ru/texts/comp/lang/pascal/faq/pascal.htm
Илья Бирман
Ух ты. Спасибо.
master
procedure clrscr; assembler;
asm
mov ax,7
int 10h
end;

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

Пользовательский интерфейс
Доступны два раздела
электронного учебника

Популярное
Эти ссылки принесут мне миллионы: Российское государство и русско японская война 1905 кратко