急！统计自定义字节变量VAR中的所有元素，将其中为“1”的元素个数

         .model tiny
         .code
         main proc far
start:
         xor ax,ax
         xor si,si
         push ds
         push ax
         mov bx,offset num
         mov cx,len
next:
         cmp byte ptr cs:[bx+si],1
         jne s
         inc byte ptr cs:[one]
s:
         inc si
         dec cx
         jnz next
         ret
         main endp
         org 0100h
         one db ?
         num db 1,2,5,1,9,8,6,1,1,0,1,9,1,0,0,1,1,1
         len equ $-num
         end start