LIBRERIA IO (3/3)

 Por último, voy a poner la función getpath. Con ella tomare el path de una ruta, para poder separarlo del nombre del fichero.



DARPATH.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/>.

 include string.mac

.model compact,pascal
 .code

    public _getpath
_getpath proc near  uses cx si,camino,fichero
     strcpy camino,fichero
     strlen fichero
     add sp,2
     mov cx,ax
     mov si,camino
     add si,cx
 buscar:
     cmp byte ptr [si],'\'
     je encontrado
     cmp byte ptr [si],':'
     je encontrado
     dec si
     loop buscar
     dec si
encontrado:
     mov byte ptr [si+1],0
     ret
_getpath endp

end