GrBufCpy:
	ld hl,plotsscreen
	ld b,64
	ld a,07h
	out (10h),a
	ld a,80h-1
layerloop1:
	push bc
	ld b,0Ch
	inc a
	ld e,a
	call LCD_Delay
	out (10h),a
	call LCD_Delay
	ld a,20h
	out (10h),a
layerloop2:
	ld a,(hl)
	call LCD_Delay
	out (11h),a
	inc hl
	djnz layerloop2
	pop bc
	ld a,e
	djnz layerloop1
	ld a,5
	call LCD_Delay
	out (10h),a
	ret
ClearGraphBuffer:
	ld hl,plotsscreen
	ld (hl),0
	ld de,plotsscreen+1
	ld bc,767
	ldir
	ret
ClearLCDScreen:
	di
	ld e,80h-1
	ld b,64
ClearLCDScreen_OuterLoop:
	push bc
	inc e
	ld a,e
	out (10h),a
	ld a,20h
	call LCD_Delay
	out (10h),a
	ld b,12
ClearLCDScreen_Loop:
	xor a
	call LCD_Delay
	out (11h),a
	djnz ClearLCDScreen_Loop
	pop bc
	djnz ClearLCDScreen_OuterLoop
	ei
	ret