Procedure AsmGageString(*Ptr.Character)
#CharSize = SizeOf(Character)
EnableASM
MOV EBX, *Ptr
MOV EAX, EBX
SUB ECX, ECX
CountMore:
CompilerIf #PB_Compiler_Unicode  
ADD EAX, #CharSize
CMP word [EAX-2], CX
CompilerElse
INC EAX
CMP byte [EAX-1], CH
CompilerEndIf
JNZ l_asmgagestring_countmore
SUB EAX, EBX
CompilerIf #PB_Compiler_Unicode
SHR EAX, 1
CompilerEndIf
DEC EAX
ProcedureReturn
DisableASM
EndProcedure

Procedure GageSCASX(*Ptr)
EnableASM
CLD
MOV ECX, -1
MOV EDI, *Ptr
SUB EAX, EAX
CompilerIf #PB_Compiler_Unicode  
Repnz Scasw
CompilerElse
Repnz Scasb
CompilerEndIf
MOV EAX, -2
SUB EAX, ECX
ProcedureReturn
DisableASM
EndProcedure

;{
Macro TestProc(TVal, Action)
Define TVal = -ElapsedMilliseconds()
For I = 1 To #Times : Action : Next I
TVal + ElapsedMilliseconds()
EndMacro

Macro FormatResult(ResultName, TAccum)
#CR$ + ResultName + " = " + TAccum + " ms."
EndMacro
;}

#Times = 10000000 : Define Test.s = "Thy hallo there."
TestProc(LTime , Len(Test))
TestProc(GSTime, GageSCASX(@Test))
TestProc(AGSTime, AsmGageString(@Test))

MessageRequester("[Resultae]:", "For " + #Times + " iterations..." +
FormatResult("Len(X)", LTime) + FormatResult("GageSCASX(X)", GSTime) + FormatResult("AsmGageString(X)", AGSTime))