tDosList

type tDosList = record

  dol_Next: BPTR;

  dol_Type: LongInt;

  dol_Task: pMsgPort;

  dol_Lock: BPTR;

  case SmallInt of

    0: (

        dol_Handler: record

          dol_Handler: BSTR;

          dol_StackSize: LongInt;

          dol_Priority: LongInt;

          dol_Startup: LongInt;

          dol_SegList: BPTR;

          dol_GlobVec: BPTR;

        end;

      );

    1: (

        dol_Volume: record

          dol_VolumeDate: tDateStamp;

          dol_LockList: BPTR;

          dol_DiskType: LongInt;

        end;

      );

    2: (

        dol_assign: record

          dol_AssignName: STRPTR;

          dol_List: pAssignList;

        end;

      );

    3: (

        dol_Misc: array [0..23] of Byte;

        dol_Name: BSTR;

      );

end;