vdptest/main.code.asm

; Main starting point
Main		proc

		ld	a,i
		ld	(SaveI),a
		ld	(SaveSP),sp

		call	SetupIM2
		call	Measure

		xor	a
		;jp	Finish
		; Fall through instead

		endp


; Clean up and exit (A=exit code)
Finish		proc

		di
		ld	sp,(SaveSP)
		ei
		im	1

		ld	(DAC+2),a
		xor	a
		ld	(DAC+3),a
		ld	l,a
		ld	h,a
		ld	(DAC),hl
		ld	(DAC+4),hl
		ld	(DAC+6),hl
		ld	a,2
		ld	(VALTYP),a
		ld	a,(SaveI)
		ld	i,a

		ret

		endp