Listar todos los stored procedures de una base

SELECT     sysobjects.name, syscomments.text
FROM         sysobjects INNER JOIN
                      syscomments ON sysobjects.id = syscomments.id
WHERE    
(sysobjects.type = 'P')