org	$3f00

	ldx 	#$400
	lda	#$220
lp0	sta	,x+
	cmpx	#$600
	bne	lp0

	lda	#15
	sta	counter
	ldd	#$400
	std	start+1
	ldu	#pict

yloop	ldb	#11
start	ldx	#$400
lp1	lda	,u+
	sta	,x+
	decb	
	bne	lp1
	ldd	start+1
	addd	#32
	std	start+1
	dec	counter
	bne	yloop

;*******************************************************
;DSKCON STUFF
;*******************************************************
	ldx	$c006
	lda	#3		(write sector command)
	sta	,x
	clr	1,x
	lda	#17
	sta	2,x
	lda	#3
	sta	3,x
	ldd	#$400
	std	4,x
	jsr	[dskcon]

	lda	#4
	sta	3,x
	ldd	#$500
	std	4,x
	jsr	[dskcon]



	rts

dskcon	equ	$c004	

	org	$4000

pict	fcb	143,143,143,143,143,143,143,143,8,143,143
	fcb	143,143,143,143,143,143,143,143,8,143,143
	fcb	143,143,142,142,138,132,132,146,8,143,143
	fcb	138,132,132,145,149,151,151,154,8,143,143
	fcb	149,151,151,159,159,159,159,155,8,133,143
	fcb	130,159,159,159,159,159,159,159,8,132,143
	fcb	143,149,159,159,159,156,156,158,8,152,141
	fcb	143,130,159,159,152,207,207,197,8,206,202
	fcb	143,138,159,159,197,205,207,202,8,204,200
	fcb	143,145,150,159,196,207,207,200,8,159,154
	fcb	143,148,150,159,159,147,147,159,8,147,133
	fcb	143,143,149,158,148,159,159,159,8,159,154
	fcb	143,143,149,159,159,147,147,129,8,131,135
	fcb	143,142,149,159,159,158,131,143,8,143,143
	fcb	142,183,187,156,152,179,178,143,8,143,143





	fcb	0

counter	fcb	0

	end 	start