with system;
with voc_data;

package pc_sound is

subtype sample_rates is natural range 19 .. integer'last;

procedure set_sample_rate(samples_per_second:in sample_rates);

procedure playback(sound:in system.address;sound_length:in natural);

private
  memory_model:constant:=1;

end pc_sound;