Нет ли идеи, почему вот такой код может зациклиться? И под отладчиком тоже.

Код:
WTKEY$: TSTB    @#^O177560         ; Ready?
        BPL     WTKEY$             ; No!
Ведь он же не под ПП работает?



- - - Добавлено - - -

Да, кнопки вовсю жму, эхо-печать работает. Но из самой функции WaitKey выхода нет:
Код:
FUNCTION WaitKey : INTEGER; EXTERNAL;

VAR
  code: INTEGER;

BEGIN
  WriteLn('Ready>');
  REPEAT
    code := WaitKey;
    WriteLn('"', CHR(code), '"', code)
  UNTIL code = 32
END.