0014 - Bilatu eta izena atera

; bilatu.asm
; izen bat daukan fitxategia bilatzen du, 4eh bitartezt
title bilatu.asm


Datuak segment para public 'data'
 izenak db '*.OBJ',0
 mezua db 'OK, fitxategia topatua!',10,13,'$'
 fitxategi db 'aaaaaaaaa.aaa'
 DTA  db 128 dup(?)
Datuak ends



Kodea segment para public 'code'

 assume cs:Kodea, ds:Datuak, es:Datuak

nagusia proc near

hasi:

 push ax
 push ds
 mov ax, Datuak
 mov ds, ax
 mov es, ax

 ; DTA ezartzen dugu
 mov dx,offset DTA  
 mov ah,1aH   
 int 21h  

bilatulehena:

 mov ah,4eh

segibilatzen:

 lea dx,izenak
 int 21h
 jc irten

topatua:

 ; Izena pantailaratu
 mov byte ptr offset DTA+43,'$' ; null gehitu
 mov dx,OFFSET DTA+30  ; izena atera
 mov ah,09h   ; pantailaratu
 int 21h  

 ; mezua atera
 mov ah,09h
 lea  dx,mezua
 int 21h

 ; hurrengoa bilatzen dugu
 mov ah,4fh
 jmp segibilatzen

irten:
 mov ah,4ch
 int  21h

nagusia endp

Kodea ends

end hasi