home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / SND_TOOL / FUNK108A.ZIP / DOS32V30.ZIP / PAL / FILEIO / RENAME.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-05-20  |  1.2 KB  |  51 lines
  1. ;******************************************************************************
  2. ; Filename: RENAME.ASM
  3. ;   Author: Peter Andersson
  4. ;  Version: 0.0
  5. ;  Created: 1994.06.05
  6. ;  Updated: 1994.09.20
  7. ;******************************************************************************
  8. ; Copyright Peter Andersson, 1994-1995.
  9. ; All rights reserved.
  10. ;******************************************************************************
  11. ; Function: LONG @rename(PSZ oldname,PSZ newname)
  12. ;  Comment: Renames a file or moves a file (within a drive)
  13. ;    Input: Eax - oldname, file to be renamed
  14. ;           Edx - newname, new file name
  15. ;  Returns: 0 if successful or -1 if it failed
  16. ;******************************************************************************
  17.  
  18.     Include    STDDEF.INC
  19.  
  20.     Codeseg
  21.  
  22. Proc    rename ,2
  23.         Push    Edi,Es
  24.         Mov    Ax,Ds
  25.         Mov    Es,Ax
  26.         Mov    Edi,Edx
  27.         Mov    Edx,Eax
  28.         Mov    Ah,56h
  29.         Int    21h
  30.         Jc    @@Error
  31.         Pop    Es,Edi
  32.         Clear    Eax
  33.         Ret
  34.     Align    4
  35. @@Error:    Pop    Es,Edi
  36.         Mov    [Word errno],Ax
  37.     IfDef    DEBUG
  38.         Call    printf,Offset ErrReadMsg,Edx,Edi
  39.     EndIf
  40.         Mov    Eax,-1
  41.         Ret
  42. Endp
  43.  
  44.     Dataseg
  45.  
  46.     IfDef    DEBUG
  47. ErrReadMsg    Db    "Error renaming file from '%s' to '%s'! Error: %h",LF,0
  48.     Endif
  49.  
  50.     End
  51.