
siej		PROC
		lea	edi,to		
		push	edi edi edi edi edi edi edi
		lea	esi,scr
		mov	ecx,25
	@o1:	push	ecx
		mov	ecx,32
		rep	movsb
		pop	ecx
		add	edi,320-32
		loop	@o1
		pop	edi
		add	edi,320*25
		lea	esi,scr+768
		mov	ecx,25
	@o2:	push	ecx
		mov	ecx,32/4
		rep	movsd
		pop	ecx
		add	edi,320-32
		sub	esi,64
		loop	@o2
		pop	edi
		mov	esi,edi
		add	edi,32
		add	esi,31
		mov	ecx,50
	@o3:	push	ecx
		mov	ecx,32
	@o4:	mov	al,byte ptr [esi]
		mov	byte ptr [edi],al
		dec	esi
		inc	edi
		loop	@o4
		add	edi,320-32
		add	esi,320+32
		pop	ecx
		loop	@o3
		pop	esi
		lea	edi,[esi+320*50]
		mov	ecx,50
	@o5:	push	ecx
		mov	ecx,64/4
		rep	movsd		
		pop	ecx
		add	esi,320-64
		add	edi,320-64
		loop	@o5
		pop	esi
		lea	edi,[esi+320*100]
		mov	ecx,100
	@o6:	push	ecx
		mov	ecx,64/4
		rep	movsd		
		pop	ecx
		add	esi,320-64
		add	edi,320-64
		loop	@o6
		pop	esi
		lea	edi,[esi+64]
		mov	ecx,200
	@o7:	push	ecx
		mov	ecx,64/4
		rep	movsd
		add	esi,320-64
		add	edi,320-64
		pop	ecx
		loop	@o7
		pop	esi
		lea	edi,[esi+128]
		mov	ecx,200
	@o8:	push	ecx
		mov	ecx,128/4
		rep	movsd
		add	esi,320-128
		add	edi,320-128
		pop	ecx
		loop	@o8
		pop	esi
		lea	edi,[esi+256]
		mov	ecx,200
	@o9:	push	ecx
		mov	ecx,64/4
		rep	movsd
		add	esi,320-64
		add	edi,320-64
		pop	ecx
		loop	@o9
		ret
siej		ENDP