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

MCODE Segment Byte
        Assume  CS: MCODE

        Public  setnumon

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

        push    BX                      ;
        push    ES                      ;
        xor     BX,BX                   ; clear BX
        mov     ES,BX                   ; set ES to BIOS data segment
        or      Byte Ptr ES: [417h],20h ; turn on Num Lock bit
        pop     ES                      ;
        pop     BX                      ;

        pop     DS
        pop     BP

        retf
setnumon EndP
MCODE EndS
        End