Обеспечить запрет приёма скан-кодов с клавиатуры на 10 секунд

begin
    asm
 
 @M1:
        IN AL, 64h {прочитать регистр статуса, бит с номером 1 должен быть равен нулю }
        AND AL, 00000010b {флаг готовности к приёму команды}
 
 
        JNZ @M1  { выполнить переход на очередное чтение регистра статуса }
        
        MOV  AL, 11110101b
 {в регистр AL процессора записывается байт, команда для клавиатуры - запретить   сканирование}
 
        OUT 60h, AL       {запись данных в Input Register контроллера}
 
 
        PUSH DS
 
        MOV DX, 40h
        MOV DS, DX
        MOV DL, [6Ch]  { чтение текущего системного времени }
        ADD DL, 180  { увеличиваем на 10 сек.}
 @wait:
        CMP DL, [6Ch]  { сравниваем ожидаемое с текущим}
        JNZ @wait
 
        mov cx,0  {счетчик для ограничения времени ожидания готовности 8042 }
 
@@:
        IN AL, 64h
        AND AL, 00000010b
        OUT 60h, AL
        jz @contin
        loop @@
    
 @contin:
 
        MOV AL, 11110101b
  {команда для клавиатуры - восстановить сканирование}
        OUT 60h, AL
 
        POP DS
            end;
                 readln;
 
                           end.

@wait:
CMP DL, [6Ch] { сравниваем ожидаемое с текущим}
JNE @wait { <--- Сравниваем с текущим, а не с 0 }

                MOV DL, [6Ch]  { чтение текущего системного времени }
                CMP DL, [6Ch]  { сравниваем ожидаемое с текущим}

                MOV DL, DS:[6Ch]  ; чтение текущего системного времени
                CMP DL, DS:[6Ch]  ; сравниваем ожидаемое с текущим