rolnik:
		lea	edi,screen
		add	edi,5120+65
		mov	ecx,21
	@chl2:	push 	ecx edi
		mov	ecx,21
	@chl1:	push	ecx
		mov	al,[esi]
		or	al,al
		jz	nexx
		mov	al,3bh	;color ch’opka
		push	edi
		mov	ecx,8
	@oo:	push	ecx edi
		mov	ecx,9
		rep	stosb
		pop	edi ecx
		add	edi,320
		loop	@oo
		pop	edi
	nexx:	add	edi,9
		inc	esi
		pop	ecx
		loop	@chl1		
		pop	edi ecx
		add	edi,320*8
		loop	@chl2
		ret

	chlop1:	include CHLOPKI\chlop1
	chlop2:	include CHLOPKI\chlop2
	chlop3:	include CHLOPKI\chlop3