home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / rename.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-15  |  328 b   |  25 lines
  1.  
  2. * Maxon C++ Projekt:
  3. * Library-Modul "rename"
  4. * Jens Gelhar 25.10.91, 15.04.94
  5.  
  6.     xdef    _rename,rename__PCcPCc
  7.  
  8.     xref    _DOSBase
  9.  
  10. _rename:
  11. rename__PCcPCc:
  12.     movem.l d2/a6,-(a7)
  13.     movem.l    4+8(a7),d1/d2
  14.     move.l    _DOSBase,a6
  15.     jsr    -78(a6)
  16.     tst.l    d0
  17.     bmi.b    .ok
  18.     moveq    #-1,d0
  19.     bra.b    .end
  20. .ok    moveq    #0,d0
  21. .end    movem.l (a7)+,d2/a6
  22.     rts
  23.  
  24.     end
  25.