clg.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/spectrum/clg.asm
;
;       Fast CLS for the Speccy
;       Stefano - 10/1/2007
;
;
;	$Id: clg.asm,v 1.4 2015/01/19 01:32:51 pauloscustodio Exp $
;

        PUBLIC    clg

.clg
        ld a,i
        push af
        di

		ld	hl,0
		ld	d,h
		ld	e,h
		ld	b,h
		add	hl,sp
		ld	sp,16384+6144
.clgloop
		push	de
		push	de
		push	de
		push	de

		push	de
		push	de
		push	de
		push	de

		push	de
		push	de
		push	de
		push	de

		djnz	clgloop

		ld	sp,hl
        pop af
        ret po
        ei
        ret
