Pascal code to play 16 bit wave files

Hey there anyone..

  Does anyone have any public domain pascal code that can be used to play 16
bit wave sound files (prefferably using DMA transfers so I can use the CPU    
at the same time).. I would also like example code to show me how to do it..

Umm so if you can help me, please email me some code - my emaill address is