; Author:  Copyright 1993 Jason Williams
; Version: 1.00 (14 May 1993)

; Desk_bool Desk_Kbd_KeyDown(keynum)
;   where keynum is a negative INKEY number, or 0..128
;   e.g. -1 = SHIFT, -2 = CTRL, etc
; Returns Desk_bool_TRUE if the given key is currently depressed
; (Who would have thought you had a manic depressive keyboard? ;-)


        GET     Desk.sh.regdefs
        GET     h.swinos
        GET     Desk.sh.macros


        PREAMBLE
        STARTCODE Desk_Kbd_KeyDown

        STMFD  sp!, {lr}

        MOV    r1, r0
        MOV    r0, #129
        MOV    r2, #255
        SWI    Desk_SWI_OS_Byte + Desk_XOS_Bit
	Desk_Error2_CheckV
        CMP    r1, #255
        MOVEQ  r0, #1                   ; return(Desk_bool_TRUE);
        MOVNE  r0, #0                   ; return(Desk_bool_FALSE);

        LDMFD  sp!, {pc}^

        END
