Вопрос по коду " ввод десятичных чисел в ассемблере"

[El_Blasto]

товарищи , помогите пожалуйста разобраться как работает данная процедура(ввод десятичных чисел):


input10 proc ;ввод десятичных чисел
push bx
push cx
push dx
push si
xor si,si
lea di,inp
mov dx,di
mov ah,0ah
int 21h
add di,2
xor cx,cx
mov al,cs:[di]
cmp al,'+'
je i3
cmp al,'-'
jne i1
mov si,1
jmp short i3
i1:
cmp al,13
je i_exit
cmp al,'0'
jb err1
cmp al,'9'
ja err1
sub al,48
shl cx,1
cmp cx,32767
ja err2
mov bx,cx
shl cx,1
cmp cx,32767
ja err2
shl cx,1
cmp cx,32767
ja err2
add cx,bx
cbw
add cx,ax
cmp cx,32767
ja err2
i3:
inc di
mov al,cs:[di]
jmp short i1
i_exit:
cmp si,1
jne i2
neg cx
i2:
mov ax,cx
clc
i4:
pop si
pop dx
pop cx
pop bx
ret
err1: stc
mov ax,1
jmp short i4
err2:
stc
mov ax,2
jmp short i4
; inp db 7,0,7 dup(0)
input10 endp