;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: SUB setnumoff()
; DESC:    Turn the Num Lock bit off.
; EXAMP:   CALL setnumoff

MCODE Segment Byte
        Assume  CS: MCODE

        Public  setnumoff

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

        push    ES                      ;
        xor     BX,BX                   ; clear BX
        mov     ES,BX                   ; set ES to BIOS data segment
        and     Byte Ptr ES: [417h],0DFh ; turn off Num Lock bit
        pop     ES                      ;

        pop     DS
        pop     BP

        retf
setnumoff EndP
MCODE EndS
        End