;; Challenge to draw an 'X' on the screen
	;; Does not wait for keypress when done
	;; Couldn't tell if challenge included black border, so
	;;   just make backgroun black and ignored border

	;; Compiler: 64tass

	*=$1000
	
	;; Put cursor on line 24
	ldx	#$18
	jsr	$e50c
	
	;; Do this after since PlaceCursor destroys registers
	ldx	#$00
	ldy	#$27
	stx	$d021
Loop:
	txa
	ldx	#$07	
GetBit:
	rol	data,x
	dex
	bpl	GetBit
	tax
	
	bcs	PlotChar
	lda	#$0d
	jsr	$ffd2

	bcc	loop		; CHROUT *should* be CLCing.

PlotChar:	
	lda	#$a0
	sta	$07c0, X	; can't indirect-index with X
	sta	($d1), Y	; $d1 holds c0 07, so save a byte
	inx
	dey
	bpl	Loop

exit:	
	rts

	;; 1 = block; 0 = CR
data:	.byte %11010110, %10110110, %10110101, %10110101
	.byte %10101101, %10101101, %01101101, %01101011