TAESContrl

type TAESContrl = record

  opcode: SmallInt;

  case Boolean of

    True: (

        nums: array [0..3] of SmallInt;

      );

    False: (

        num_intin: SmallInt;

        num_intout: SmallInt;

        num_addrin: SmallInt;

        num_addrout: SmallInt;

      );

end;