Ассемблер, Блокирование клавиатуры или мышки Опции

[СВАТ]

Помогите пожалуйста. Нужен исходник программы на Ассемблере, которая блокирует клавиатуру или мышку на определенное время.

[СВАТ]

;Программа для блокировки клавиатуры
.model small
.stack 100
.data
mes0 db 0dh,0ah,'1.Keyboard locked $' ;текстовая строка
mes1 db 0dh,0ah,'2.Keyboard unlocked $' ;текстовая строка
mes2 db 0dh,0ah,'EXIT$' ;текстовая строка

delay macro time
local inner,outer
mov cx,time
outer: push cx
mov cx,0
inner: loop inner
pop cx
loop outer
endm

.code
begin:
mov ax,@data
mov ds,ax
mov es,ax

mov ax,0003h ;Очистка монитора
int 10h

;Включение и выключение клавиатуpы чеpез запpет клавиатуpного пpеpывания

in al, 21h ;чтение IMR
or al, 00000010b ;выключить irq1 (клавиатура)
out 21h, al ;запись IMR

mov ah, 09h
mov dx,offset mes0 ;Выводим сообщение mes0
int 21h

delay 65535 ;пауза

in al, 21h ;чтение IMR
and al, 11111101b ;включить irq1
out 21h, al ;запись IMR

mov ah, 09h
mov dx,offset mes1 ;Выводим сообщение mes1
int 21h

delay 20000 ;пауза

mov ah,09h
mov dx,offset mes2 ; Выводим сообщение mes2
int 21h

mov ax,4c00h ; функция DOS завершения программы
int 21h
end begin
___________________________________________
ВРоде код праивльный...по сути должен блокировать...но не блокирует...посмотрите пожалуйста в чем ошибка??