Physical Memory Proprties And ethods
|
Previous Top Next |
var
|
BiosArea: array[0..255] of Byte;
|
i : Integer;
|
|
const
|
RomAddress = $F8000;
|
|
HW32.OpenDriver; // open TVicHW32 driver
|
|
if HW32.ActiveHW then
|
begin
|
|
//... Copy BIOS area to our array
|
|
for i:=0 to 255 do
|
BiosArea[i] := HW32.Mem[RomAddress,i];
|
|
HW32.CloseDriver; // close TVicHW32 driver
|
|
end
|
else // failed
|
|
var
|
BiosArea: array[0..255] of Byte;
|
|
const
|
RomAddress = $F8000;
|
|
HW32.OpenDriver; // open TVicHW32 driver
|
|
if HW32.ActiveHW then
|
begin
|
|
//... Copy BIOS area to our array
|
|
ReadPhysicalMemory(RomAddress,0,256,@BiosArea);
|
|
HW32.CloseDriver; // close TVicHW32 driver
|
|
end
|
else // failed
|