I don't think you can add asset source types without modifying core. The list of components that is allowed / scanned for does not contain AssetSourceTypes.
Unless you mean create an asset source using an existing AssetSourceType programmatically?
If you want an asset source saved, I would guess it is similar to below:
$source = new AssetSourceModel();
$source->name = 'Source name';
$source->handle = 'Source handle';
$source->type = 'Local';
// Not sure about the settings here
$source->settings = array('path' => 'path/to/','url' => 'url/path/to', 'publicURLs' => '1');
$fieldLayout = craft()->fields->getLayoutById(1); // set this to the field layout you want
$fieldLayout->type = ElementType::Asset;
$source->setFieldLayout($fieldLayout);
if (craft()->assetSources->saveSource($source)) {
// Success saving
}
else {
// Error saving
}
You can look at the AssetSources controller actionSaveSource for reference.
There are some areas I'm not sure about such as the settings and the field layout, as they get set by POST data, but this should lead you in the right direction.