Первый раз

Мне тут надо программу написать по учёбе на Паскале очередную. И в ней срочно нужна процедура 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;

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