      jmp    Real_Beg
Pattern db   "*.*",0
sigdir  db   0
Len     db   "            ","$"
Real_beg: mov    ah,2Fh     ; получим адрес
          int    21h        ; DTA   es:bx -> DTA
;----- ищем первый файл --------
      mov    ah,4Eh
      lea    dx,Pattern
      mov    cx,000Fh
      int    21h
      jnc    OK1
      jmp    near EOJ
OK1:  mov    ah,es:[bx+15h]   ; атрибут
      and    ah,10h
      cmp    ah,0
      mov    sigdir,ah
      mov    cx,13
      mov    si,bx
      add    si,1eh
@l1:
      mov    ah,02
      mov    dl,es:[si]  ; взяли оч. байт
      cmp    dl,00
      je     EON
      mov    al,sigdir
      cmp    al,0
      jne    PRT
      nop
PRT:
      int    21h
      inc    si
      loop   @l1
EON:
      mov    al,sigdir
      cmp    al,0
      jne    CRLF

      add    cx,3
@@1:  mov    ah,02
      mov    dl,32
      int    21h
      loop   @@1
      push   bx
      mov    dx,es:[bx+1Ch]
      mov    ax,es:[bx+1Ah]
      lea    si,Len
      add    si,11
      mov    cx,8
      mov    bx,10
@l2:
      div    bx
      add    dl,30h
      mov    cs:[si],dl
      dec    si
      xor    dx,dx
      loop   @l2
      mov    ah,09
      lea    dx,Len
      push   cs
      pop    ds
      int    21h
      pop    bx
CRLF:
      mov    ah,02          ; \
      mov    dl,13          ; |  Конец
      int    21h            ; |  печати
      mov    ah,02          ; |  оч.
      mov    dl,10          ; |  имени
      int    21h            ; /

;----- ищем след. файл --------

      mov    ah,4Fh
      mov    dx,bx
      add    dx,1eh
      push   es
      pop    ds
      mov    cx,000Fh
      int    21h
      cmp    al,18
      je     EOJ
      jmp    OK1
EOJ:
       int 20h
       end



