*
* Memory Fill
*   Fill memory from START to END with value BYTE
*
START	EQU	$9000
END	EQU	$9004
BYTE	EQU	$9008

	ORG	$8000
	
	MOVE.L	START,A0
	MOVE.L	END,A1
	MOVE.B	BYTE,D0
	
LOOP	MOVE.B	D0,(A0)+
	CMP.L	A0,A1
	BHI	LOOP		;branch if A1>A0
	
	TRAP	#14
	END