TTask

type TTask = record

  tc_Node: TNode;

  tc_Flags: Byte;

  tc_State: Byte;

  tc_IDNestCnt: ShortInt;

  tc_TDNestCnt: ShortInt;

  tc_SigAlloc: ULONG;

  tc_SigWait: ULONG;

  tc_SigRecvd: ULONG;

  tc_SigExcept: ULONG;

  case Boolean of

    True: (

        tc_TrapAlloc: Word;

        tc_TrapAble: Word;

      );

    False: (

        tc_ETask: Pointer;

        tc_ExceptData: APTR;

        tc_ExceptCode: APTR;

        tc_TrapData: APTR;

        tc_TrapCode: APTR;

        tc_SPReg: APTR;

        tc_SPLower: APTR;

        tc_SPUpper: APTR;

        tc_Switch: Pointer;

        tc_Launch: Pointer;

        tc_MemEntry: TList;

        tc_UserData: APTR;

      );

end;