;
;
; sound.a
; Newton sound definitions
;
; Author: Jonathan Kipling Knight
; Created: 01/11/01
; Modified: 01/11/01
;
;

	MACRO
	DTMFHeader $type, $numLoops, $numBlocks
	
	ObjectHeader (($numBlocks)*20+12+10), kBinaryObject
	PointerRef 0x003D49BC ; 'TDTMFCodec in ROM
	DCB	0,1						; parameter block type (always 1)
	DCB	(($type):SHR:8),(($type):AND:0xFF)     		; synthesis type (0-4)
	DCB	0,0						; reserved (always 0)
	DCB	(($numLoops):SHR:8),(($numLoops):AND:0xFF)	; loop count
	DCB	(($numBlocks):SHR:8),(($numBlocks):AND:0xFF)	; Number of DTMF tone blocks
	
	MEND

	MACRO
	DTMFBlock $freq, $freqFrac, $sustainAmp, $lead, $attack, $decay, $sustain, $release, $peakAmp, $trail
	
	DCB	(($freq):SHR:8),(($freq):AND:0xFF)		; frequency integer part
	DCB	(($freqFrac):SHR:8),(($freqFrac):AND:0xFF)     	; frequency fractional part
	DCB	(($sustainAmp):SHR:8),(($sustainAmp):AND:0xFF)	; sustain amplitude
	DCB	(($lead):SHR:8),(($lead):AND:0xFF)		; leading silence in ms
	DCB	(($attack):SHR:8),(($attack):AND:0xFF)		; attack in ms
	DCB	(($decay):SHR:8),(($decay):AND:0xFF)		; decay in ms
	DCB	(($sustain):SHR:8),(($sustain):AND:0xFF)       	; sustain in ms
	DCB	(($release):SHR:8),(($release):AND:0xFF)       	; release in ms
	DCB	(($peakAmp):SHR:8),(($peakAmp):AND:0xFF)       	; peak amplitude
	DCB	(($trail):SHR:8),(($trail):AND:0xFF)		; trailing silence in ms
	
	MEND
	
	END