home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
C!T
/
C!T01_94
/
CAPSLCK
/
CAPSLOCK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
695b
|
33 lines
{$M $800,0,0 } { 2K stack, no heap }
uses Dos;
var
KbdIntVec : Procedure;
Veertig17 : Byte Absolute $0040:$0017;
Veertig18 : Byte Absolute $0040:$0018;
NoLock : Boolean;
{$F+}
procedure Keyclick; interrupt;
begin
if NoLock and ((Veertig18 and 64) = 0) then
begin
Veertig17 := Veertig17 xor 64;
NoLock := False;
end
else if (Port[$60] < 128) and (Port[$60] <> 58) and
((Veertig18 and 64) = 64) and (Not NoLock) then
NoLock := True;
inline ($9C); { PUSHF }
KbdIntVec;
end;
{$F-}
begin
GetIntVec($9,@KbdIntVec);
SetIntVec($9,Addr(Keyclick));
NoLock := False;
Keep(0);
end.