https://pastein.ru/t/X6

  скопируйте уникальную ссылку для отправки


org 100h





mov cx,10
mov si,0
ino:
call input  
MOV c[SI],ax
add si,2
loop ino
mov cx,5
xor ax,ax
xor bx,bx
kas:
mov si,0
mov bx,c[si]
add ax,bx
add si,4
loop kas






 
Ret
c dw 10 dup(?)
ret
proc input
    push bx
    push cx
    push dx
   
        
    xor bx, bx
    xor cx, cx
    xor dx, dx
    
    mov ah,01h
    int 21h

    cmp al,'-'
    jne m1    ;I?uaioou ia aaia
    inc dx
m0:    
    mov ah,01h
    int 21h
    cmp al, 39h
    ja m2     ;_Caeii?eou aaia
    cmp al, 0h
m1:       
    sub al,30h
    jb m2    ;_Caeii?eou aaia

    mov cl,al
    shl bx,1
    mov ax,bx
    shl ax,2
    add bx,ax
    add bx,cx
    jmp m0   ;_Iiaoi?eou aaia
m2:    
    test dx,dx
    jz m3
    neg bx
m3:
    mov ah, 02h
	 mov dl, 0dh
	 int 21h
   mov dl, 0ah
    int 21h
    xor cx,cx
    mov ax,bx
    pop bx
    pop cx
    pop dx
   

ret    
endp input





    
endp proc1 

proc vyvod
cmp ax, 0
jne print_ax_r
    push ax
    mov al, '0'
    mov ah, 0eh
    int 10h
    pop ax
    ret 
print_ax_r:
    pusha
    mov dx, 0
    cmp ax, 0
    je pn_done
    mov bx, 10
    div bx    
    call print_ax_r
    mov ax, dx
    add al, 30h
    mov ah, 0eh
    int 10h    
    jmp pn_done
pn_done:
    popa  


ret
endp

ret






    
endp proc1 
op dw ?
ret