Je l'ai trouvé :

TL_lcs_clip_right:
	ld a,TL_lcs_right_clip-(TL_lcs_do_right_clip+1)
	ld (TL_lcs_do_right_clip),a	;jump to TL_lcs_do_right_clip
	ld a,c				;width in bytes of sprite
	add a,a
	add a,a
	add a,a				;x8
	add a,d				;+X position
	sub SCREEN_WIDTH
	jp m,TL_lcs_middle_clip	;no clipping if right edge of sprite 

La dernière ligne devrait être TL_lcs_clip_middle