; An example of 6809e code
	; Author: Unknown, comes from an old issue of Dragon User.

	; Print two lines of text on the text screen

	clrb
	ldx #1192
	ldy #txt
nxt	lda b,y
	ora #64
	sta ,x+
	incb
	cmpb #16
	beq nxtln
	bra nxt
	
nxtln	clrb
	leax 43,x
	ldy #txt1
nchr	lda b,y
	ora #64
	sta ,x+
	incb
	cmpb #27
	beq out
	bra nchr

txt	fcc " A LINE OF TEXT "
txt1	fcc " for machine code programs "
out	rts