TCopIns

type TCopIns = record

  OpCode: SmallInt;

  case SmallInt of

    0: (

        NxtList: PCopList;

      );

    1: (

        DestAddr: SmallInt;

        DestData: SmallInt;

      );

    2: (

        VWaitPos: SmallInt;

        HWaitPos: SmallInt;

      );

end;