home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power CD-ROM!! 7
/
POWERCD7.ISO
/
prgmming
/
clipper
/
nlockoff.asm
< prev
next >
Wrap
Assembly Source File
|
1993-10-14
|
2KB
|
83 lines
; File......: NLOCKOFF.ASM
; Author....: Andy M Leighton
; BBS.......: The Dark Knight Returns
; Net/Node..: 050/069
; User Name.: Andy Leighton
; Date......: $Date$
; Revision..: $Rev$
;
; This is an original work by Andy Leighton and is placed in the public
; domain.
;
; Modification history:
; ---------------------
;
; $Log$
;
;
;
; $DOC$
; $FUNCNAME$
; GT_NLOCKOFF()
; $CATEGORY$
; Keyboard
; $ONELINER$
; Turns Num Lock Off
; $SYNTAX$
; GT_NLockOff()
; $ARGUMENTS$
; None
; $RETURNS$
; NIL
; $DESCRIPTION$
; Turns Num Lock Off.
; $EXAMPLES$
; GT_NLockOff()
; ? "Num Lock Is Now Turned Off"
; $END$
;
; This has been written using TASM
; If you are using MASM you might have to change things
; around a little
; look for comments telling you what to do
;
;MASM remove next line
IDEAL
Public GT_NLOCKOF ; truncated to 10 chars
Extrn __Ret:Far
;MASM change next line to
; GtLibrary SEGMENT WORD "CODE"
Segment GtLibrary Word "CODE"
Assume CS:GtLibrary
;MASM change next line to
; GT_NLOCKOF PROC FAR
Proc GT_NLOCKOF Far
PUSH ES ; save for later
; set up ES:[BX] to point to the address 0x00000417
MOV AX,40H
MOV ES,AX
MOV BX,17H
; turn off bit 6 of the keyboard flags
AND BYTE PTR ES:[BX],0DFH
POP ES ; restore ES
CALL __Ret ; Setup NIL for Clipper
RET
;MASM change next line to
; Gt_NLOCKOF ENDP
EndP GT_NLOCKOF
;MASM change next line to
; GtLibrary ENDS
EndS GtLibrary
End