home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power CD-ROM!! 7
/
POWERCD7.ISO
/
prgmming
/
clipper
/
nlockon.asm
< prev
next >
Wrap
Assembly Source File
|
1993-10-14
|
2KB
|
83 lines
; File......: NLOCKON.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_NLOCKON()
; $CATEGORY$
; Keyboard
; $ONELINER$
; Turns Num Lock On
; $SYNTAX$
; GT_NLockOn()
; $ARGUMENTS$
; None
; $RETURNS$
; NIL
; $DESCRIPTION$
; Turns Num Lock On.
; $EXAMPLES$
; GT_NLockON()
; ? "Num Lock Is Now Turned On"
; $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_NLOCKON
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_NLOCKON PROC FAR
Proc GT_NLOCKON 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 on bit 6 of the keyboard flags
OR BYTE PTR (ES:[BX]),20H
POP ES ; restore ES
CALL __Ret ; Setup NIL for Clipper
RET
;MASM change next line to
; Gt_NLOCKON ENDP
EndP GT_NLOCKON
;MASM change next line to
; GtLibrary ENDS
EndS GtLibrary
End