Egy régóta nem frissített oldalon találtam rá egy őskori Turbo Pascal nyelvű programomra, ami a billentyűzeten található ledeket kapcsolgatta. Közzéteszem ezt az írást is, hogy mindenki bölcs legyen tőle 🙂
Az alábbiakban – rövid magyarázattal együtt – közlök egy Pascal nyelvű programot, mellyel a billentyűzeten található ledek kapcsolgatása válik lehetővé. (Megj.: a program már a Windows XP alatt sem nagyon akart működni…)
A program a billentyűzet státuszbytejait állítgatja át, ezzel éri el a ledek ki-be kapcsolását. Ezek a státuszbyteok a hexa 417 és 418 memóriacímeken találhatók. A két memóriacím egyes bitjei használatosak a billentyűzet különböző állapotainak jelzésére. A program szempontjából a hexa 417 cím alábbi bitjei érdekesek (a legelső bit a 0. sorszámú, az utolsó a 7.):
- 4. bit: a Scroll Lock állapota
- 5. bit: a Num Lock állapota
- 6. bit: a Caps Lock állapota
Ha az adott bit 1, akkor a led aktív, ha 0, akkor pedig nem aktív.
A billentyűzet – és egyéb hardverelemek – programozásáról az alábbi könyvekben lehet bővebb infót találni:
Peter Norton: Az IBM PC programozása, Műszaki Könyvkiadó, Budapest, 1990
Abonyi Zsolt: PC hardver kézikönyv, ComputerBooks, Budapest, 1995
program Ledek_vezerlese;
uses Crt;
const CapsLock = 64;
NumLock = 32;
ScrollLock = 16;
Esc = #27;
var b : char;
ki : boolean;
bl : byte absolute $0:$417;
begin
ClrScr;
ki:=false;
while (not ki) do
begin
b:=ReadKey;
case b of
(* Caps Lock bekapcsolasa *)
'c','C': bl:=bl or CapsLock;
(* Caps Lock kikapcsolasa *)
'v','V': bl:=bl and (255-CapsLock);
(* Num Lock bekapcsolasa *)
'n','N': bl:=bl or NumLock;
(* Num Lock kikapcsolasa *)
'm','M': bl:=bl and (255-NumLock);
(* Scroll Lock bekapcsolasa *)
's','S': bl:=bl or ScrollLock;
(* Scroll Lock kikapcsolasa *)
'd','D': bl:=bl and (255-ScrollLock);
(* Kilepes *)
Esc: ki:=true;
end;
end;
end.
