;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: SUB setcloff()
; DESC:    Turn the Caps Lock key status off.
; EXAMP:   CALL setcloff

MCODE Segment Byte
        Assume  CS: MCODE

        Public  setcloff

setcloff Proc Far
        push    BP                      ;
        mov     BP, SP                  ;
        push    DS                      ;

        push    ES                      ;
        push    AX                      ;

        xor     AX,AX                   ; clear AX
        mov     ES,AX                   ; point to BIOS data area
        and     Byte Ptr ES: [417h],0BFh ; clear Caps Lock bit

        pop     AX                      ;
        pop     ES                      ;

        pop     DS
        pop     BP

        retf                            ;
setcloff EndP
MCODE EndS
        End