#include "c:\miniIDE\hcs12.inc"
		org	$1000
xx		dc.w	2
a0		dc.w	-3
a1		dc.w	-5
a2		dc.w	2
pd1		ds.w	2
pd2		ds.w	2
result		ds.w	2
		org	$1500
		ldx	#a2
		ldy	#xx
		movw	a1,pd1+2
		movw	#0,pd1
		emacs	pd1			; compute (a2 * x + a1)
		ldx	#pd1+2		
		ldy	#xx
		movw	a0,pd2+2
		movw	#0,pd2
		emacs	pd2			; compute x(a2 * x + a1) + a0
		movw	pd2,result
		movw	pd2+2,result+2
		swi
		end