;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: SUB setclon()
; DESC:    Turn the Caps Lock status bit on.
; EXAMP:   CALL setclon

MCODE Segment Byte
        Assume  CS: MCODE

        Public  setclon

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

        push    ES                      ;
        push    AX                      ;

        xor     AX,AX                   ; clear AX
        mov     ES,AX                   ; set ES to BIOS data area
        or      Byte Ptr ES: [417h],40h ; clear Caps Lock bit

        pop     AX                      ;
        pop     ES                      ;

        pop     DS
        pop     BP

        retf
setclon EndP
MCODE EndS
        End