Подписаться на блог
В Твиттере

Реплики и ссылки на заметки

В Фейсбуке

Ссылки на заметки

Вконтакте

Ссылки на заметки

В Телеграме

Ссылки на заметки

В Тумблере

Заметки целиком

В Же-же

Заметки целиком

По РСС

Заметки целиком

Если что-то из этого не работает, напишите мне: 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 кратко