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