|       XC compatible RENAME() function
|       int DOS_RENAME __P((const char *path, const char *newname));
|
|       written by ITOH Yasufumi
|       public domain
|
|       $NetBSD: dos_rename.S,v 1.3 2011/02/21 02:31:59 itohy Exp $

#include "dos_asm.h"

Lbufsz  =       92      | sizeof(struct dos_nameckbuf)
Lnamoff =       67      | offsetof(struct dos_nameckbuf, name)
Lextoff =       86      | offsetof(struct dos_nameckbuf, ext)

ENTRY_NOPROFILE(DOS_RENAME)
        link    %a6,#-Lbufsz*2                  | allocate two  dos_nameckbuf

        moveal  %sp,%a1                         | dos_nameckbuf for path

        pea     %sp@(Lbufsz)
        movel   %a6@(4 + 8),%sp@-               | newname
        .word   0xff37                          | DOS_NAMECK
        tstl    %d0
        bmis    Lerr

        addql   #4,%sp

        movel   %a1,%sp@
        movel   %a6@(4 + 4),%sp@-               | (old) path
        .word   0xff37                          | DOS_NAMECK
        tstl    %d0
        bmis    Lerr

        | we don't pop arguments since the same args are used by DOS_MOVE below

        | search end of dirname of (old) path
Lpath:  tstb    %a1@+
        bnes    Lpath
        subql   #1,%a1                          | remove nul char

        | add new name
        lea     %sp@(8 + Lbufsz+Lnamoff),%a0    | new name (8: args on stack)
Lname:  moveb   %a0@+,%a1@+
        bnes    Lname
        subql   #1,%a1                          | remove nul char

        | add new extension
        lea     %sp@(8 + Lbufsz+Lextoff),%a0    | new ext (8: args on stack)
Lext:   moveb   %a0@+,%a1@+
        bnes    Lext

        | we already have the arguments on stack
        bsr     _C_LABEL(DOS_MOVE)

        | version check of Human68k and error handlings are done in DOS_MOVE()

        unlk    %a6                             | restore stack
        rts

Lerr:   unlk    %a6
        bra     CERROR