format PE console
entry start
include 'win32w.inc'
 
;======================================
section '.data' data readable writeable
;======================================

Msg1  DB 'Introduzca el nombre:',0
Msg2  DB 'Total:$'
Msg3  DB 'Error',0dh,0ah
Avanza DB 0Dh,0Ah, '$'
BufEnt DB '*.*',0
       DB ?
ASCIIZ DB '*.*',0

DTASeg DW ?

;=======================================
section '.code' code readable executable
;=======================================
 
start:

 proc Entrada

               cld
               mov ax,@DATA
               mov ds,ax
               mov [DTASeg],es
               mov es,ax
               mov es,ax

               mov ah,4eh
               mov cx,17h
               mov dx,offset ASCIIZ
               int 21h
               jc Final

               
 Bucle:

         mov es,[DTASeg]
         mov di,80h+30

         mov cx,13
         xor al,al
         repne scasb
         dec di
         mov al,'$'
         stosb
         
         push ds

         mov ah,9
         mov ds,[DTASeg]
         mov dx,80h+30
         ccall   [printf],dx ; pretendo mostrar dx----------------------------------------
         int 21h
         pop ds
         
         mov ah,9
         mov dx,OFFSET Avanza

         int 21h

         mov ah,4Fh
         int 21h
         jc Final

         jmp Bucle
         
         Final:

         cmp ax,12h
          jne error

         mov ah,9
         mov dx,OFFSET Msg2
         int 21h
         

         
         Error:
         mov ah,9
         mov dx,OFFSET Msg3
         int 21h

         mov ax,4c01h
         int 21h

       endp
;====================================
section '.idata' import data readable
;====================================


library kernel,'kernel32.dll',\
        msvcrt,'msvcrt.dll' ,\user32,'user32.dll'

import user32,MessageBoxA,'MessageBoxA'
 
import  kernel,\
        ExitProcess,'ExitProcess'
 
import  msvcrt,\
        printf,'printf',\
        getchar,'_fgetchar'