;512.asm

        .model small
        .data
array   dw 20,4,6,0,0,8,0,78,99,0
        .stack 100h
        .code
main    proc   far
start:
        mov  ax,@data
        mov  ds,ax
        mov  array[20],0
        mov  si,0
        mov  cx,10
loop1:  cmp  array[si],0
        jnz  next
        push cx
        push si
loop2:  mov  ax,array[si+2]
        mov  array[si],ax
        add  si,2
        loop loop2
        pop  si
        pop  cx
        sub  si,2
next:   add  si,2
        loop loop1
        mov  ax,4c00h
        int  21h
main    endp
        end  start