Code:
cseg segment
    assume cs:cseg
obrnired proc far
        mov ax,si
        mov dx,25; mozda ovde treba 50
        mul dx    
        mov bx,ax
        mov bp,bx
        add bp,1920; a ovde 3840
        mov dx,12
zameni: mov al,es:[bx]
        xchg bx,bp
        mov ah,es:[bx]    
        mov es:[bx],al
        xchg bx,bp
        add bx,160
        sub bp,160
            dec dx
        cmp dx,0
        jne zameni
        ret
obrnired endp

s:
    mov bx,0b800h
    mov es,bx
    mov cx,80
    mov si,0
petlja:
    call obrnired
    inc si
    loop petlja
    mov ax,4c02h
    int 21h
cseg ends
    end s