Программа ввода многозначного десятичного числа размером в dw

[CjJack]

d_seg segment
nov db 0dh,0ah,'$'
inp db 'Vvedite dannie',10,13,'$'
err db 'Vvedeno ne chislo',10,13,'$'
per db 'Slishkom bolshoe chislo',10,13,'$'
ten dw 10
dig dw 1 dup(0)
d_seg ends
c_seg segment
assume cs:c_seg, ds:d_seg
start:  mov ax,d_seg
	mov ds,ax
	mov ah,9
	lea dx,inp
	int 21h
y:	mov dig,0
input:        mov ah,1
	int 21h
	cmp al,' '
	je output
	cmp al,'0'
	jge rt
m1:            mov ah,9
	lea dx,err
	int 21h
	jmp input
rt:              cmp al,'9'
	jg m1
	sub al,'0'
 	cbw
	mov bx,ax
	mov ax,dig
	mul ten
	jno perep
	mov ah,9
	lea dx,nov
	int 21h
	mov ah,9
	lea dx,err
	int 21h
	jmp y
perep:	add ax,bx
	mov dig,ax
	jmp input
output:	mov cx,0
	mov ax,dig
kk:     mov dx,0
	div ten
	push dx
	inc cx
	cmp ax,0
	jne kk
	
cont:	pop dx
	add dx,'0'
	mov ah,2
	int 21h
	loop cont
	mov ah,4ch
	int 21h
        c_seg ends
	   end start

Помогите, нужен комментарий к каждой строке. буду при много благодарен!