LIBRERIA IO (1/3)

     Primera parte de la librería IO. En este fichero colocaré las funciones des búsqueda de ficheros.



IO.ASM 

; Copyright (C) 2013  José Ángel Moneo Fernández

;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 3 of the License, or
;   (at your option) any later version.

;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.

;    You should have received a copy of the GNU General Public License
;    along with this program.  If not, see <http://www.gnu.org/licenses/>.

.model compact,pascal
.code
      public _find_first
      public _find_next
_find_first proc near uses dx cx,fichero, atributo
        mov ah,4eh
        mov dx,fichero
        mov cx,atributo
        int 21h
        ret
_find_first endp
_find_next proc near  uses es ds dx bx
        mov ah,2fh
        int 21h
        push ds
        pop es
        mov dx,bx
        mov ah,4fh
        int 21h
        ret
_find_next endp
end