home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 18 / IUP064.ZIP / keyboard.inc < prev    next >
Text File  |  1996-07-09  |  781b  |  36 lines
  1. ; Blink NumLock
  2. Blink proc near
  3.       xor ax,ax
  4.       mov es,ax                          ; ES=0
  5.       test byte ptr es:417h, 20h         ; 0:417h, or 40h:17h
  6.       jnz short LightIsOn                ; jump if light is on
  7.  
  8.       ; light is off
  9.       mov al, 0edh
  10.       out 60h, al
  11.  
  12.       mov cx, 0b000h
  13. @@1:
  14.       loop @@1                 ; stupid timing :(
  15.  
  16.       mov al, 2
  17.       out 60h, al
  18.       or byte ptr es:417h, 20h           ; light is now on
  19.       jmp short @@3
  20.  
  21. LightIsOn:
  22.       ; light is on
  23.       mov al, 0edh
  24.       out 60h, al
  25.  
  26.       mov cx, 0b000h
  27. @@2:
  28.       loop @@2                 ; again, stupid timing :((
  29.  
  30.       mov al, 0
  31.       out 60h, al
  32.       and byte ptr es:417h, 0DFh         ; light is now off
  33.  
  34. @@3:
  35.       ret
  36. Blink endp