***.386
Node struc
namex db 5 dup (?)
left dw ?
right dw ?
Node ENDS
Data1 segment use16
I_struc db ?
I_order db ?
Order db 0,3,1,2,4
A1 Node 5 dup(<>)
adress dw begin2
Data1 ends
Data2 segment use16
Db 'Null', 'One', 'Two', 'Three', 'Four'
Data2 ends
code1 segment use16
    assume cs:code1, es:Data1
begin:
mov ax, Data1
mov ds, ax
mov si, 0;
mov di, 0
mov bx, 0
lea bx, A1[0]
add bx, type A1
add bx, type A1
add bx, type A1
mov A1[di].right, bx
add bx, type A1
mov A1[di].left, bx
xor bx, bx
add di, type A1
lea bx, A1[0]
add bx, type A1
add bx, type A1
mov A1[di].right, bx
add bx, type A1
mov A1[di].left, bx
xor bx, bx
add di, type A1
lea bx, A1[0]
add bx, type A1
mov A1[di].left, bx
add bx, type A1
add bx, type A1
add bx, type A1
mov A1[di].right, bx
xor bx, bx
add di, type A1
lea bx, A1[0]
mov A1[di].left, bx
add bx, type A1
mov A1[di].right, bx
xor bx, bx
add di, type A1
lea bx, A1[0]
mov A1[di].right, bx
add bx, type A1
add bx, type A1
mov A1[di].left, bx
jmp dword ptr adress

end1:
    mov ax, 4c00h
    int 21h
code1 ends
code2 segment use16
    assume cs:code2, es:Data1, ds:Data2
begin2:
mov ax, Data1
    mov es, ax
    mov ax, Data2
    mov ds, ax
    mov esi, 0
    mov eax, 9
    ;mov I1, 0
    mov si, 0
    mov bx, 0
    cld
    mov di, 0001h
    mov cx, 4
    lea si, A1[esi]
    rep movsb
    mov cx, 3
    inc di
    lea si, A1[eax]
    rep movsb
    mov cx, 3
    inc di
    add eax, type A1
    lea si, A1[eax]
    rep movsb
    mov cx, 5
    inc di
    add eax, type A1
    lea si, A1[eax]
    rep movsb
    mov cx, 4
    inc di
    add eax, type A1
    lea si, A1[eax]
    rep movsb





    jmp far ptr end1
    code2 ends
    end begin

    end begin2***