Реализация эффекта Moving Shit.

 Не знаю, как сделали XL-DESIGN - в их профессионализме никто не сомневается. А как хакер я никуда не годный (ну облом мне лезть разбирать чей-то код), поэтому решил подумать над этим сам. И знаете, не так уж это сложно!

 Взял да написал нечто, для пробы.

	ld hl,30000 ; адрес спрайта
	ld de,#4000 ; адрес в экране
	ld b,80  ; высота спрайта
	xor a    ; так надо !!
	vio add a,64 ; коэф.уменьш./увел.
	; выс=(нач.выс)*коэф
	; коэф=n/256
	; n=64

	* ```
	    jp c,cont ; на вывод тек.лин.
	  ```

	push de
	ld de,16 ; ширина спрайта

	* add hl,de ; пропустить линию
	  ; спрайта,
	  ; так как уменьш.
	  pop de   ; т.е. ф.С=0
	* djnz vio ; т.е. C=0,А=nn
	  ; 0,nn
	* ret
	  cont push de: ld c,h
	  ldi:ldi:ldi:ldi ; переброс
	  ldi:ldi:ldi:ldi ; линии
	  ldi:ldi:ldi:ldi ; спрайта
	  ldi:ldi:ldi:ldi ; из буфера

	pop de
	ex af,af' ; сохр. счетчик
	call scline ; след.лин. в экр.
	ex af,af' ; восст. счетчика
	djnz vio ; продолж. вывод
	ret ; УРА!! вываливаемся

	scline inc d: ld a,d: and 7
	ret nz
	ld a,e: add a,32: ld e,a
	ret c
	ld a,d: sub 8: ld d,a
	ret 

jp c,cont -> jp nc,cont
add hl,de -> sbc hl,de
djnz vio -> убрать
ret -> убрать