LDA #$00
		TAX
		PHA
		TAY
		STA MEMPOINTER_L
		LDA #6
		STA MEMPOINTER_H
CLEARMEM:
		STA (MEMPOINTER_L),Y
		INY
		BNE CLEARMEM
		DEC MEMPOINTER_H 
		BNE CLEARMEM
		LDA #$FE
SET700	STA $700,X
		INX
		BNE SET700
TIME	INY
WAITVBLANK:
		BIT VBMSCOUNT
		BMI WAITVBLANK	
		DEY
		BMI WAITVBLANK