kora:
        mov     byte ptr cs:[46ch+1],57
        push    ax
        push    bx
        push    cx
        push    dx
        push    es

        mov     ax,0b800h
        push    ax
        pop     es
        mov     cx,2
do5:
        push    cx
        mov     cx,7
        xor     ax,ax
do1:    push    cx

        mov     cx,2000/7+4             ;=====
        mov     bx,ax
do:
        mov     dx,word ptr es:[bx]
        xchg    word ptr es:[bx+4096],dx
        mov     word ptr es:[bx],dx
        add     bx,14
loop    do
        mov     cx,8000
        loop    $
        inc     ax
        inc     ax
        pop     cx
loop    do1
        loop $
        loop $
        pop     cx
loop    do5
        pop     es
        pop     dx
        pop     cx
        pop     bx
        pop     ax
end_kora:
	int	20h
