Contributor: GUY MCLOUGHLIN
{
GUY MCLOUGHLIN
Program to load data into 16 Byte area of RAM known as
the Dos "Inter-Process Communication Area".
}
Program Load_Dos_IPCA;
Type
arby16 = Array[1..16] of Byte;
{ "Absolute" Array Variable used to access the Dos IPCA. }
Var
IPCA : arby16 Absolute 0000ドル:04ドルF0;
Index : Byte;
begin
{ Write data to the Dos IPCA. }
For Index := 1 to 16 do
IPCA[Index] := (100 + Index)
end.
{ Program to read data from 16 Byte area of RAM known }
{ as the Dos "Inter-Process Communication Area". }
Program Read_Dos_IPCA;
Type
arby16 = Array[1..16] of Byte;
{ "Absolute" Array Variable used to access the Dos IPCA. }
Var
IPCA : arby16 Absolute 0000ドル:04ドルF0;
Index : Byte;
begin
Writeln;
{ Display the current data found in the Dos IPCA. }
For Index := 1 to 16 do
Write(IPCA[Index] : 4);
Writeln
end.
{
NOTE:
if you plan on using this in any of your serious applications, I would
recommend using the last 2 Bytes of the IPCA as a CRC-16 error-check. As
you have no guarantee that another Program won't use the IPCA too.
}