TEXT    strlen(SB),$0

       MOVL    $0, AX
       MOVQ    $-1, CX
       CLD
/*
* look for end of string
*/

       MOVQ    RARG, DI
       REPN;   SCASB

       MOVQ    DI, AX
       SUBQ    RARG, AX
       SUBQ    $1, AX
       RET