Num Lock и т.д

;tasm.exe /m имя_файла.asm
;tlink.exe /t /x имя_файла.obj
;
;Zubkov
;
.model tiny
.code
.386
org 100h
start:
mov ah,2 ;получить текущее время
int 1Ah
mov ch,dh ;и сохранить его в CH
mov cl,0110b ;состояние светодиодов
xor si,si
 
;0100 - Caps Lock
;0010 - Num Lock
;0001 - Scroll Lock
 
main_loop:
call change_leds ;установка светодиодов
 
continue:
push cx
mov ah,2
int 1ah
pop cx
cmp ch,dh
mov ch,dh
je continue
 
inc si
cmp si,11
jz exit_loop
 
cmp cl,0110b
jz m1
cmp cl,0101b
jz m2
mov cl,0110b
jmp main_loop
m1:
mov cl,0101b;2
jmp main_loop
m2:
mov cl,0011b;3
jmp main_loop
 
exit_loop:
 
ret
;--------------------------
change_leds proc near
call wait_kbin
mov al,0edh
out 60h,al
call wait_kbin
mov al,cl
out 60h,al
ret
change_leds endp
;---------------------------
wait_kbin proc near
in al,64h
test al,0010b
jnz wait_kbin
ret
wait_kbin endp
end start