Challenge

data segment
    list_nbr db "521-663-737-152-366"
    somme db "0000$"
    data ends

assume cs:code, ds:data

code segment
    main:
    mov ax, data
    mov ds, ax


    mov si, offset list_nbr
    add si, 18

    mov di, offset list_nbr
    add di, 14

    mov bp, offset somme
    add bp, 3

    mov cx, 3
    mov bl, 10
    mov dh, 0

    sumA:

        mov dl, [di]
        add dl, [si]

        sub dl, 30h

        add dl, dh
        mov dh, 0
        cmp dl, 10

        jl gotoA

        mov al, dl
        div bl
        mov dl, ah

        mov dh, 1

        gotoA:
            mov [bp], dl
            dec si
            dec di
        loop sumA

        add bp, 3
        mov cx, 3

    sumB:

        mov si, offset list_nbr
        add si, 10

        mov dl, [bp]
        add dl, [si]

        sub dl, 30h

        add dl, dh
        mov dh, 0
        cmp dl, 10

        jl gotoB

        mov al, dl
        div bl
        mov dl, ah

        mov dh, 1

        gotoB:
            mov [bp], dl
            dec bp
            dec si
        loop sumB

        add bp, 3
        mov cx, 3

    sumC:

        mov si, offset list_nbr
        add si, 6

        mov dl, [bp]
        add dl, [si]

        sub dl, 30h

        add dl, dh
        mov dh, 0
        cmp dl, 10

        jl gotoC

        mov al, dl
        div bl
        mov dl, ah

        mov dh, 1

        gotoC:
            mov [bp], dl
            dec bp
            dec si
        loop sumC

        add bp, 3
        mov cx, 3

    sumD:

        mov si, offset list_nbr
        add si, 2

        mov dl, [bp]
        add dl, [si]

        sub dl, 30h

        add dl, dh
        mov dh, 0
        cmp dl, 10

        jl gotoD

        mov al, dl
        div bl
        mov dl, ah

        mov dh, 1

        gotoD:
            mov [bp], dl
            dec bp
            dec si
        loop sumD

     mov dx, offset somme
     mov ah, 9
     int 21h



    code ends
    end main