FifoMessage

type FifoMessage = record

  _type: cuint16;

  case Integer of

    0: (

        SundPlay: record

          _type: cuint16;

          data: pointer;

          dataSize: cuint16;

          loopPoint: cuint16;

          freq: cuint16;

          volume: cuint8;

          pan: cuint8;

          loop: cbool;

          format: cuint8;

        end;

      );

    1: (

        SoundPsg: record

          freq: cuint16;

          dutyCycle: cuint8;

          volume: cuint8;

          pan: cuint8;

          channel: cuint8;

        end;

      );

    2: (

        MicRecord: record

          buffer: pointer;

          bufferLength: cuint32;

          freq: cuint16;

          format: cuint8;

        end;

      );

    3: (

        MicBufferFull: record

          buffer: pointer;

          length: cuint32;

        end;

      );

    4: (

        SystemInput: record

          touch: touchPosition;

          keys: cuint16;

        end;

      );

    5: (

        sdParams: record

          buffer: pointer;

          startsector: cuint32;

          numsectors: cuint32;

        end;

      );

    6: (

        blockParams: record

          buffer: pointer;

          address: cuint32;

          length: cuint32;

        end;

      );

end;