Нарисовать блок схемы к исходникам

msg macro   str     
    lea dx,str
    mov ah,9
    int 21h
    endm
d_seg   segment
str1    db  '‚ўҐ¤ЁвҐ бва®Єг',10,13,'$'
str2    db  10,13,'ЏҐаҐбл«Є* бва®ЄЁ ўлЇ®«*Ґ**',10,13,'$'
strdest db  80 dup (0),'$'
strsour db  80 dup (0),'$'
long    dw  0
length1 dw  0
scanpos dw  0
d_seg   ends
 
c_seg   segment
assume  ds:d_seg,cs:c_seg
start:  mov ax,d_seg
    mov ds,ax
    mov es,ax           
    mov al,0
    msg str1
    mov bx,0         
    mov cx,80
    lea dx,strsour
    mov ah,3fh
    int 21h
    mov length1,ax
    cld          
    lea di,strdest
    lea si,strsour
    mov cx,length1
    rep movsb
    msg str2
    msg strdest
 
 
exit:   mov ah,8
    int 21h
    mov ah,4ch
    int 21h
c_seg   ends
    end start

msg macro str
    mov ah, 9
    lea dx, str
    int 21h
endm
 
d_seg segment
    string    db    80 dup(0),'$'
        strlen    dw    0
    msg1      db    10,13,'‘Ё¬ў®« ЇаЁ**¤«Ґ¦Ёв бва®ЄҐ',10,13,'$'
    msg2      db    10,13,'‘Ё¬ў®« *Ґ ЇаЁ**¤«Ґ¦Ёв бва®ЄҐ',10,13,'$'
    inp1      db    10,13,'‚ўҐ¤ЁвҐ бва®Єг ',10,13,'$'
    inp2      db    10,13,'‚ўҐ¤ЁвҐ бЁ¬ў®« ',10,13,'$'
d_seg ends
 
c_seg segment
    assume cs:c_seg, ds:d_seg
    start:  
        mov ax, d_seg
        mov ds, ax
        mov es, ax
        msg inp1
        mov bx,0         
        mov cx,80
        lea dx,string
        mov ah,3fh
        int 21h
        mov strlen,ax
        msg inp2
        cld
        mov ah,1
        int 21h
        mov bl,al
        mov ah,1
        int 21h
        mov al,bl
        mov cx, strlen
        lea di, string
    r:  repne scasb
        jnz next
        msg msg1
        jmp quit
    next:   msg msg2
    quit:   mov ah,8
        int 21h
        mov ah, 4ch
        int 21h
c_seg ends
end start

mes macro str  
    lea dx,str
    mov ah,9
    int 21h
endm
 
d_seg segment
    probel  db ' ','$'
    enter   db 10,13,'$'
    str  db 80 dup (0) ,'$'
    str1 db 1 dup (0),'$'
    msg1 db '‚ўҐ¤ЁвҐ бва®Єг',10,13,'$'
    msg2 db '‚ўҐ¤ЁвҐ бЁ¬ў®«',10,13,'$'
    net db  '‘Ё¬ў®« *Ґ **©¤Ґ*',10,13,'$'
    msg3 db 'Љ®«ЁзҐбвў® **©¤Ґ**ле бЁ¬ў®«®ў = ','$'
    a dw 0
d_seg ends
c_seg segment
assume cs:c_seg,ds:d_seg,es:d_seg
 
start:      mov ax,d_seg
            mov ds,ax
            mov es,ax 
    mes msg1
    mov bx,0
    mov cx,80
    lea dx,str
    mov ah,3fh
    int 21h
        mes msg2
    mov ah,1
    int 21h
    mov bl,al
    mov ah,1
    int 21h
    mov al,bl
    cld
    lea di,str
    mov cx,80
cikl:
    repne scas str
    jcxz k1
    inc a
    jmp cikl
k1: 
    mes enter
    cmp a,0
    je k2
    mes msg3
    mov ah,2
    mov dx,a
    add dx,48
    int 21h
    jmp vse
k2:     
      mes net
vse:  mov ah,1
    int 21h
    mov ah,4ch
    int 21h
c_seg ends
end start

message macro param ;максрос выводит строку на экран 
        mov ah,9 
        lea dx,param 
        int 21h 
endm 
 
izobr macro ;макрос выводит символы конца строки на экран 
        mov ah, 2 
        mov dl, 10 
        int 21h 
 
        mov ah, 2 
        mov dl, 13 
        int 21h 
endm 
 
dseg segment 
        error db 10,13,'ERROR',10,13,'$' 
        finish db 10,13,'==END of catalog',10,13,'$' 
        mess db 10,13,'file of shablon not 
detected',10,13,'$' 
        fewpar db 10,13,'Error! Empty command 
string!',10,13,'$' 
        dta db 2Ch dup ('$') 
        file db 14 dup (0) 
dseg ends 
 
cseg segment para public 'CODE' 
        assume cs:cseg, ds:dseg 
        start: mov ax, dseg 
                        mov ds, ax 
 
                        mov al, byte ptr es:[80h] ;забираем параметр 
командной строки - шаблон поиска 
                        cmp al, 0h 
                        je malo ;если шаблон не задан - уходим 
                        mov si, 2h 
                        mov di, 0h 
 
readcom: mov al, byte ptr es:[80h+si] ;считываем шаблон 
                        cmp al, 13 
                        je da_next ;как только строка заканчивается - 
переходим к след шагу 
 
                        mov file[di], al ;в переменную file пишем шаблон 
                        inc si 
                        inc di 
 
                        jmp readcom ;этот цикл побайтно считывает шаблон 
поиска 
                        jmp da_next ;лишняя строка 
 
malo: message fewpar ;если нет шаблона - уходим 
                        jmp exit 
 
da_next: mov ah, 1ah ;функция изменяет местоположение DTA(Data 
Tranfer Area) 
                        lea dx, dta ;тут место, где будет находиться dta 
                        int 21h 
 
                        mov ah, 4eh ;ищем первый файл 
                        lea dx, file ;шаблон 
                        mov cx, 11111111b ;атрибуты 
                        int 21h ;вперед 
 
                        jc err1 ;флаг CF указывает на ошибку - 
совпадений нет, значит уходим 
                        message dta[1eh] ;выводим имя найденного файла 
                        izobr ;перейти на новую строку 
 
prec: ;тут начинается просмотр остальных файлов, если они есть 
 
 
                        mov ah, 4fh ;эта функция ищет остальные файлы 
                        lea dx, file 
 
                        int 21h ;вперед 
 
                        jc cheke ;если CF=1, то возникла ошибка 
                        message dta[1eh] ;иначе выводим имя найденного 
файла 
                        izobr ;переход на новую строку 
                        jmp prec ;ищем дальше 
 
cheke: cmp ax, 18 ;если возникла ошибка, то проверяется 
стандартный выход - то бишь - все файлы найдены 
                        je da_last ;и если это так - уходим 
                        message error ;иначе сообщаем, что возникла 
какая-то ошибка 
                        izobr ;переходи 
                        jmp exit ;выодим 
 
da_last: message finish 
                        izobr 
                        jmp exit 
 
err1: message mess ;сообщение об ошибке 
 
exit: mov ah, 4ch 
                        int 21h 
 
cseg ends 
end start