Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ASMFILE.ZIP
Filename : NUMLOCK.ASM

; Written by Dennis Dias for David Baltimore
; Toggles NUMLOCK ON with DO numon
; NUMLOCK OFF with DO numoff
; note: declare NUMON and NUMOFF as EXTERNAL in your Clipper prog.



;-------------:
; NUMLOCK.ASM :
;-------------:
PUBLIC NUMON
PUBLIC NUMOFF

_PROG SEGMENT BYTE ;remove to include in extenda
ASSUME CS:_PROG ;remove to include in extenda

NUMON PROC FAR
PUSH ES
MOV AX,40H
MOV ES,AX
MOV BX,17H
OR BYTE PTR ES:[BX],20H
POP ES
RET
NUMON ENDP




NUMOFF PROC FAR
PUSH ES
MOV AX,40H
MOV ES,AX
MOV BX,17H
AND BYTE PTR ES:[BX],0DFH
POP ES
RET
NUMOFF ENDP
_PROG ENDS ;remove to include in extenda
END