[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]

    {
    > I would like to know how to tell whether there is a 101 enhanced keyboard
    > attached to a computer or and 84.

    This should work:
    }

    function enhanced_keyboard:boolean; assembler;

    asm
       mov ah,09h
       int 16h        {Call Interrupt $16, Function $09}
       shr al,1
       shr al,1
       shr al,1
       shr al,1
       shr al,1       {Shifts the bits in al right 5 times}
       and al,1       {We want to only test the first bit in al}
    end;

    {
    This will return true if the enchanced keyboard functions are supported.  If
    you are compiling with the $G+ directive, then change the five 'shr al,1' to
    one 'shr al,5'.   Hope this helps.
    }

[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]