processor 6502
	org 0
	ldx #$00
	ldy #$00
l1	tya
l2	sta $0400,x
	sta $0500,x
	sta $0600,x
	sta $0700,x
	inx	
	bne l2
	iny
	bne l1