%macro strlen 1
    push rdi
    cld
    xor rcx, rcx
    mov cx, -1
    mov rdi, %1
    mov al, 0
    repne scasb
    not cx ;String len in rcx now
    pop rdi
%endmacro