[comp.binaries.ibm.pc] v07i220: numon, control numlock for a command

ibmbin-request@crdgw1.crd.ge.com (08/23/90)

Checksum:  932781456  (Verify with "brik -cv")
Posting-number: Volume 07, Issue 220
Submitted-by: news@lance.hss.bu.oz.au
Archive-name: numon/part01

numlock control utility.

Submitter says:

I just realised there may be a lot of frustrated people out there who
could benefit by these simple utilities.  Apologies if similar have been
submitted previously.

[ these are welcome, people will select what fits their needs -wed ]

Description:
NUMOFF clears the numlock function on ATs and compatibles (probably works
on PS/2 beasties as well) for people who find it annoying.
NUMOFF turns it back on again.

What happens:
These are utilities which set the keyboard status flags
at location absolute location 0x417 so that numlock will be turned off
or on.  This is reproducible by ANDing that location with 0xDF to
disable or ORing with 0x20 to turn on.  This should work with any AT
compatible machine and probably PS/2s as well.

Usage:
Place numoff in your autoexec.bat   Use them wherever appropriate in
batch files.

Bugs:
It's too simple to do anything wrong.  At worst nothing should happen.

Disclaimer:
No responsibilty for any damage sustained from concentrating and inhaling
these substances.

Licence:
Do what you like but please don't modify them.

Miles Gillham



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   34522          342      part01

checksum     size (bytes)  file
   64746          227      numon.zoo

-- bill
]

numon part01/01
BEGIN--cut here--cut here
begin 644 numon.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(`JP```'$```"1%+!$OK`Z````.@````$```````````!N=6UO;BYC;VT`
M````"@`0]KD`````M@%`````0"DC*``SP([8@`X7!"`SP+A,`,TA3E5-3TX@
M+2!7<FET=&5N(&)Y($UI;&5S($=I;&QH86TL(#`U+S`T+SDPW*?$_0(`````
M````````````````````````````````````````````````````````````
"_(,`
`
end
END--cut here--cut here