Fucking love

Fuck segment para at 0b800h 'data0'
scr0 dw 2000 dup(?)
Fuck ends
;----------------------------------
love segment para stack 'stack'
db 50 dup(?)
love ends
;----------------------------------
cs0 segment para 'code'
main proc far
assume cs:cs0,ds:Fuck,ss:love
push ds
sub ax,ax
push ax
mov ax,Fuck
mov ds, ax
;==================================
mov ah,76
mov cx,2000
mov al,' '
mov bx,0
m1: mov scr0+bx,ax
 add bx,2
loop m1
mov ah,76
mov al,'Я'
mov scr0+1988,ax
 mov al,' '
mov scr0+1990,ax
 mov al,'т'
mov scr0+1992,ax
 mov al,'е'
mov scr0+1994,ax
 mov al,'б'
mov scr0+1996,ax
 mov al,'я'
mov scr0+1998,ax
 mov al,' '
mov scr0+2000,ax
 mov al,'Л'
mov scr0+2002,ax
 mov al,'Ю'
mov scr0+2004,ax
 mov al,'Б'
mov scr0+2006,ax
 mov al,'Л'
mov scr0+2008,ax
 mov al,'Ю'
mov scr0+2010,ax
 mov al,'!'
mov scr0+2012,ax
;==================================
ret
main endp
cs0 ends
end main