Quartz
asked on
How to (VAR regs: registers) in Delphi
There a procedure I want to translate..
PROCEDURE GetPhysical(VAR lw:Byte);
VAR regs : registers;
BEGIN
WITH regs DO BEGIN
GetIntVec($58,old58);
GetIntVec($13,old13);
SetIntVec($58,@Help58);
SetIntVec($13,@GetPhys);
al:=lw; cx:=1; dx:=0;
ds:=Seg(buffer); bx:=Ofs(buffer);
intr($58,regs);
SetIntVec($58,old58);
SetIntVec($13,old13);
lw:=Mem[$40:$41];
END;
END;
How can we use registers in Delphi.
PROCEDURE GetPhysical(VAR lw:Byte);
VAR regs : registers;
BEGIN
WITH regs DO BEGIN
GetIntVec($58,old58);
GetIntVec($13,old13);
SetIntVec($58,@Help58);
SetIntVec($13,@GetPhys);
al:=lw; cx:=1; dx:=0;
ds:=Seg(buffer); bx:=Ofs(buffer);
intr($58,regs);
SetIntVec($58,old58);
SetIntVec($13,old13);
lw:=Mem[$40:$41];
END;
END;
How can we use registers in Delphi.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER