data     segment
    string     db    9, ?, 9  dup('?')
data     ends
code    segment
    assume    cs:code,ds:data
main    proc    far
strat:
    push    ds
    sub    ax,ax
    push    ax
    
    mov     ax,data
        mov     ds,ax

    Lea    dx,string
    mov    ah,0ah
    int    21h
    
    mov    dl,0dh
    mov    ah,2
    int    21h
    mov    dl,0ah
    mov    ah,2                    
    int    21h
    
    lea    si,string+2
    mov    dh,8
    mov    cx,7
a_loop:
    mov    al,[si]
    sub    al,30h
    sal    ax,cl
    add    bx,ax
    inc    si                    
    dec    cx
    dec    dh
    jnz    a_loop
   
    mov    ax,bx
    and    al,0F0H            ;clear the low 4 bit of al
        mov    cl,4
        shr    al,cl            ;al shift to right 4
        mov    dl,al
    
    cmp    dl,0Ah
        js     dis_num2
        add    dl,37h
        jmp    display2
dis_num2:
        add    dl,30h

display2:
        mov    ah,02
        int    21h
    
    mov    ax,bx
    and    al,0FH            ;clear the high 4 bit of ah
        mov    dl,al

        cmp    dl,0Ah
        js     dis_num1
        add    dl,37h
        jmp    display1
dis_num1:
        add    dl,30h

display1:
        mov    ah,02
       int    21h
    mov    ah,07            ;wait a input from keyboard
        int    21h
    ret
main    endp
code    ends
        end     strat
我自己写出来了````