/***************************************************************************
 *             __________               __   ___.
 *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
 *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
 *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
 *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
 *                     \/            \/     \/    \/            \/
 * $Id $
 *
 * Copyright (C) 2007 Nils Wallménius
 *
 * All files in this archive are subject to the GNU General Public License.
 * See the file COPYING in the source tree root for full license agreement.
 *
 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
 * KIND, either express or implied.
 *
 ****************************************************************************/

/* size_t strlen(const char *str) */

    .section    .text,"ax",@progbits
    .align  2
    .globl  strlen
    .type   strlen, @function

strlen:
    move.l 4(%sp),%a0    /* %a0 = *str */
    move.l %a0,%d0       /* %d0 = start address */

    1:
    tst.b (%a0)+         /* test if %a0 == 0 and increment */
    bne.b 1b             /* if the test was false repeat */

    sub.l %d0,%a0        /* how many times did we repeat? */
    move.l %a0,%d0
    subq.l #1,%d0        /* %d0 is 1 too large due to the last increment */
    rts
    .size   strlen, .-strlen