0017 - Direktorioak lortu

title direkto.asm

Datuak segment para public 'data'
 mezua db 'Direktorioa topatua',10,13,'$'
 izena db '*',0
 dta db 128 dup(?)
Datuak ends


Kodea segment para public 'code'
 assume cs:Kodea,ds:Datuak

nagusia proc near
hasi:

 mov ax,Datuak
 mov ds,ax

 ;dta ezarri
 mov ah,1ah
 lea dx, dta
 int 21h

 ;bilatu
 mov ah,4eh
 segi:
 xor cx,cx
 lea dx, izena
 ; atributua ez dago ongi, teorian 4bita aktibatuta...
 mov cl,00010000b
 int 21h

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

 mov ah,4fh
 jmp segi

 irten:
 mov ah,4ch
 int 21h

nagusia endp
Kodea ends
end hasi