.Model Tiny
.386
.data
dstr db 20 dup(0)

.stack
sstr db 20 dup(0)


.code
org 100h
msg db 'Yusupov 31 variant.',0
main:		
	mov ax,0b800h+03ch
	mov es,ax

	mov ax,@code
	mov ds,ax

	mov ax,0003h
	int 10h
		

	mov ah,0eh
	lea edi,msg
	xor ebx,ebx
vwrite:
	mov al,[edi+ebx]
	mov es:[ebx*2],ax
	inc ebx
	cmp al,0
	jne vwrite



	mov ax,@data
	mov es,ax
	xor ebx,ebx
dcpy:
	mov al,[msg+ebx]
	mov es:[ebx],al
	inc ebx
	cmp al,0
	jne dcpy



	mov ax,@stack
	mov es,ax
	xor ebx,ebx
scpy:
	mov al,[msg+ebx]
	mov es:[ebx],al
	inc ebx
	cmp al,0
	jne scpy




	mov ah,1
	int 21h
	mov ax,4c00h
	int 21h 
	ret
end main