Составить блок схему для задачи

[Алексей_2012]

code segment para public 'code'
assume cs:code,ds:code,ss:code,es:code
org 100h
mov dx,code
mov ds,dx
mov ss,dx
mov es,dx


jmp m1000
np1 db 'BBedite 4isla$'
m1000:

mov ah, 09h
lea dx, np1
int 21h

mov ah,2
mov dl,0ah
int 21h
mov dl,0dh
int 21h

jmp m125
par1 label byte
max1 db 100
rd1 db ?
str1 db 101 dup(?)
m125:
mov ah,10
lea dx,par1
int 21h

mov ah,2
mov dl,0ah
int 21h
mov dl,0dh
int 21h

lea si,str1
mov ch,0
mov cl,rd1
mov dl,0
m1:
cmp dl,[si]
jg m2
mov dl,[si]
m2:
inc si
loop m1

lea si,str1
add dl,[si+4]
sub dl,30h
mov dh,dl
sub dh,30h
cmp dh,10
jb m3

mov ah,2
mov dl,0ah
int 21h
mov dl,0dh
int 21h

jmp m1002
np3 db 'REZULTAT: $'
m1002:

mov ah, 09h
lea dx, np3
int 21h

mov ah,2
sub dh,10
mov dl,'1'
int 21h

m3:

mov ah,2
mov dl,0ah
int 21h
mov dl,0dh
int 21h

jmp m1001
np2 db 'REZULTAT: $'
m1001:

mov ah, 09h
lea dx, np2
int 21h

mov ah,2
mov dl,dh
add dl,30h
int 21h


mov ah,4ch
int 21h
code ends
end