.model tiny
.code
org 100h
;---------------------
main proc near

    lea dx,sss
    mov si,dx   ;si保存基址
    mov al,0
@10:
    cmp al,[si]
    je @20   
    inc si    ;让si向末尾
    jmp @10
@20:
    sub si,dx
    mov cx,si ;保存到cx
.exit
sss db 'abcdefg',0
main endp
end main

strlen proc near
  push ax
  push es
  push di
  mov di,dx;Vscasb初始化
  push ds  ;|
  pop es   ;|
  mov al,0 ;|
  sub cx,cx;|将cx清零
  dec cx   ;|置-1(求反)
  cld      ;^
  repnz scasb;检测
  not cx   ;再求反
  pop di
  pop es
  pop ax
  ret
strlen endp
省油省钱