TDosPacket

type TDosPacket = record

  dp_Link: PMessage;

  dp_Port: PMsgPort;

  case SmallInt of

    0: (

        dp_Action: LongInt;

        dp_Status: PtrInt;

        dp_Status2: PtrInt;

        dp_BufAddr: PtrInt;

      );

    1: (

        dp_Type: LongInt;

        dp_Res1: PtrInt;

        dp_Res2: PtrInt;

        dp_Arg1: PtrInt;

        dp_Arg2: PtrInt;

        dp_Arg3: PtrInt;

        dp_Arg4: PtrInt;

        dp_Arg5: PtrInt;

        dp_Arg6: PtrInt;

        dp_Arg7: PtrInt;

      );

end;