;--------------------------------	
COPY_SCREEN
	xor	a
	ld	(r_shifted),a
	ld	(l_shifted),a

	

S_SRC	ld	hl,#4000
S_DST	ld	de,#C000

	ld	a,(l_pressed)
	ld	b,a
	ld	a,(r_pressed)
	xor	b	
	jr	z,no_shr

	ld	a,(r_pressed)
	and	a
	jr	z,no_shl
	ld	a,(r_wall)
	and	a	
	jr	nz,no_shl
	
	ld	a,1
	ld	(r_shifted),a
	inc	hl	

no_shl	ld	a,(l_pressed)
	and	a	
	jr	z,no_shr
	ld	a,(l_wall)
	and	a	
	jr	nz,no_shr

	ld	a,1
	ld	(l_shifted),a
	inc	de

no_shr	

	;-------------

	ld	b,0	;7

cs_cyc	ld	c,255	;7	;  ldi
	ldi		;16
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi		;439

	djnz	cs_cyc	;13/8
			;
	ret