Formiranje niza

; Dato je 20 cijelih brojeva. Napisati program za formiranje 2 niza ciji su elementi|:
; (1. niz)  a[1], a[11], a[3], a[13] .... a[9], a[19]
; (2. niz)  a[12], a[2], a[14], a[4] .... a[20], a[10]

; multi-segment executable file template.

data segment
    a db 1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 7, 1, 3, 7, 8, 9, 7, 3, 9, 1
    b db 10 dup (?)
    c db 10 dup (?)
    n dw 20
    razmak db " ", "$"
    pkey db "press any key...$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
start:
; set segment registers:
    mov ax, data
    mov ds, ax
    mov es, ax

    mov si, 0
    mov bx, n
    mov di, 0

    for1:
    cmp si, bx
    jl formiraj
    jmp kraj

    formiraj:
    mov al, a[si]
    mov b[di], al
    add si, 10
    mov al, a[si]
    add di, 1
    mov b[di], al
    sub si, 8
    add di, 1
    jmp for1:

    kraj:
    mov si, 1
    mov di, 0
    mov bx, n

    for2:
    add si, 10
    cmp si, bx
    jl formirajc
    jmp kraj2

    formirajc:
    mov al, a[si]
    mov c[di], al
    add di, 1
    sub si, 10
    mov al, a[si]
    mov c[di], al
    add di, 1
    add si, 2
    jmp for2

    kraj2:


    call prikaz
    ret

    prikaz PROC
        mov si, 0
        mov bx, 10

        for:
        cmp si, bx
        jl stampaj
        jmp kraj1

        stampaj:
        mov ah, 2
        mov dl, c[si]
        add dl, 48
        int 21h
        lea dx, razmak
        mov ah, 9
        int 21h
        add si, 1
        jmp for

        kraj1:
        ret
    prikaz ENDP

    lea dx, pkey
    mov ah, 9
    int 21h        ; output string at ds:dx

    ; wait for any key....
    mov ah, 1
    int 21h

    mov ax, 4c00h ; exit to operating system.
    int 21h
ends

end start ; set entry point and stop the assembler.