;/*                                   */
;/*  for MB9BF618T on FRK-FM3         */
;/*                                   */
;/*   Copyright (C) by Y.Ishioka.     */
;/*                                   */

    AREA    |.text|, CODE, READONLY
    ALIGN 4

    EXPORT WaitMsec

WaitMsec
        CBZ      r0, _exit
        MOVW     r1, #10000
        MUL.W    r1, r1, r0
_waitmsec
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        SUBS     r1, r1, #1 
        BNE.N    _waitmsec
_exit
        BX       LR

        END

#endif