home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / PCTJOS2.ZIP / OS2NLOK.ASM < prev   
Assembly Source File  |  1988-09-16  |  6KB  |  157 lines
  1. ;********************************************************************
  2. ;
  3. ; os2nlok - OS/2 Device driver to turn off NumLock state of keyboard.
  4. ;          Performs its function at initialization, does not
  5. ;          install itself.
  6. ;
  7. ; Copyright (c) 1988 PC Tech Journal and Ziff Communications Co.
  8. ;
  9. ;                   Written by Ted Mirecki
  10. ;
  11. ;********************************************************************
  12.  
  13.            .286                   ;enables 'push immediate' instr.
  14.  
  15. ;********************************************************************
  16. ; Declarations:  OS/2 API functions;
  17. ;                Device driver request packet:
  18. ;                    - standard request header 
  19. ;                    - header extension specific to init request
  20. ;                Bimodal address of request packet is in ES:BX
  21. ;                at entry to strategy routine.  
  22. ;********************************************************************
  23.  
  24.            extrn   DosPutMessage:Far
  25.            extrn   DosDevIOCTL:Far
  26.            extrn   DosOpen:Far
  27.            extrn   DosClose:Far
  28.  
  29. devpacket  struc                  ;Device driver request packet
  30. req_len    db      ?              ;standard request packet header
  31. req_unit   db      ?
  32. req_comm   db      ?
  33. req_status dw      ?
  34. req_res    dd      ?
  35. req_queue  dd      ?
  36.                                   ;rest of packet for init request:
  37. init_data1 db      ?              ;block count (zero for char device)
  38. init_ecode dw      ?              ;resident segment lengths
  39. init_edata dw      ?
  40. init_ptr2  dd      ?              ;unused by char device
  41. devpacket  ends
  42.  
  43. ;********************************************************************
  44. ; DATA segment:  begin w/device header, follow w/local data
  45. ; 
  46. ; Use explicit segment declarations, not simplified ones,
  47. ;    to ensure proper segment order (data segment first).
  48. ;********************************************************************
  49.  
  50. data       segment
  51.            assume ds:data
  52.                                   ;DEVICE DRIVER HEADER:
  53. devhdr     dd      -1             ;device header linkage
  54. devattr    dw      8080h          ;bit 15 = char device,
  55.                                   ;bit  7 = OS/2 driver
  56. deventry   dw      offset strategy     ;offset in code segment
  57.            dw      ?              ;reserved
  58. devname    db      'OS2NLOK '     ;device name, must be 8 chars
  59.            db      8 dup (?)      ;reserved
  60.                                   ;end of header
  61. CR         equ     0Dh
  62. LF         equ     0Ah
  63. RESET      equ     not 20h        ;reset num lock bit
  64.  
  65. signon     db      CR, LF, 'Numeric Unlock, OS/2 version', CR, LF
  66.            db      '  Copyright (c) 1988 PC Tech Journal and'
  67.            db      ' Ziff Communications Co.', CR, LF
  68.            db      '  Written by Ted Mirecki', CR, LF, LF
  69. lenmsg     equ     $-signon
  70.                                   ;data for open call
  71. kbd        db      'KBD$', 0
  72. handle     dw      ?
  73. action     dw      ?
  74.                                   ;data area for IOCTL calls
  75. shift      dw      ?              ;word for shift flags
  76. nls        db      ?              ;byte for NLS shift status
  77.  
  78. data       ends
  79.  
  80. ;********************************************************************
  81. ; CODE segment: strategy routine, performs initialization only.
  82. ; Processing: 1. Display message
  83. ;             2. Open KBD$ device
  84. ;             3. Get shift state w/IOCTL call
  85. ;             4. Change NumLock, call IOCTL to set shift state
  86. ;             5. Close KBD$ device
  87. ;             6. Return to kernel without installing.  
  88. ;********************************************************************
  89.  
  90. code       segment 'code'
  91.            assume  cs:code
  92. strategy   proc    far
  93.  
  94. ; 1. call DosPutMessage(0, lenmsg, @signon)           
  95.            push    1              ;handle 1 = std output
  96.            push    lenmsg
  97.            push    ds             ;far address of message
  98.            push    offset signon
  99.            call    DosPutMessage
  100.  
  101. ; 2. call DosOpen("KBD$", @handle, @action, 0L, 0, 1, 12h, 0L)
  102.            push    ds
  103.            push    offset kbd     ;device name
  104.            push    ds
  105.            push    offset handle  ;returned handle
  106.            push    ds
  107.            push    offset action  ;returned new/existed flag
  108.            xor     ax,ax
  109.            push    ax             ;initial file length = dword 0
  110.            push    ax
  111.            push    ax             ;file attribute = word 0
  112.            push    1              ;fail if file non-existent
  113.            push    12h            ;not sharable, r/w access
  114.            push    ax             ;reserved: dword zero
  115.            push    ax
  116.            call    DosOpen
  117.  
  118. ; 3. Get shift status for handle opened above:
  119. ;    call DosDevIOCTL(@data, @parm, function, category, handle)
  120.            push    ds             ;far addr of data area
  121.            push    offset shift
  122.            push    ds             ;use same addr as parm area
  123.            push    offset shift
  124.            push    73h            ;function 73: get shift status
  125.            push    4              ;category 4: keyboard IOCTL
  126.            push    handle         ;handle from previous open call
  127.            call    DosDevIOCTL
  128.  
  129. ; 4. Reset NumLock bit, call DosDevIOCTL as above to set shift status
  130.            and     shift,RESET    ;reset bit in Kbd status word
  131.            push    ds             ;far addr of data area
  132.            push    offset shift
  133.            push    ds             ;use same addr as parm area
  134.            push    offset shift
  135.            push    53h            ;function 53: set shift status
  136.            push    4              ;category 4: keyboard IOCTL
  137.            push    handle
  138.            call    DosDevIOCTL
  139.  
  140. ; 5. Close the KBD$ handle: call DosClose(handle)
  141.            push    handle
  142.            call    DosClose
  143.  
  144. ; 6. Terminate w/o installing
  145.            xor     ax,ax          ;set code & data lengths to zero
  146.            mov     es:[bx].init_data1,ah
  147.            mov     es:[bx].init_ecode,ax
  148.            mov     es:[bx].init_edata,ax
  149.            mov     es:[bx].req_status,810Ch ;set return status:
  150.                                             ; bit 15 = error
  151.                                             ; bit  8 = done
  152.                                             ; bits 0-7 = error code
  153.            ret
  154. strategy   endp
  155. code       ends
  156.            end
  157.