; An example of 6809e code
	; By S.Goodwin 1996

	; Clear the text screen to black
	; (character 32)

start:
	lda	#32		; clear chr$
	ldx	#1024		; start of text screen
loop:
	sta	,x+		; write chr$ to screen
	cmpx	#1536		; reached the end yet?
	bne	loop
	rts