DATA SEGMENT
    DATA_START DB 51H,3AH,95H,8DH,90H,
    DB 0A7H,0C1H,77H,24H,0B1H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
    MOV AX,DATA
    MOV DS,AX
    XOR BX, BX            
    XOR CX, CX           
    XOR DX, DX           
    MOV SI, OFFSET DATA_START  
    MOV DI, 10          

COUNT:
    MOV AL,[SI]
    CALL COUNT_PRO 
    INC SI
    DEC DI
    JNZ COUNT

    MOV [3000H],DX
    MOV [3100H],BX
    
    MOV AX,4C00H
    INT 21H

COUNT_PRO PROC
    MOV CX,8 
CHECK:
    SHR AL,1
    JNC LOW
    INC DX
    JMP CONTINUE
LOW:
    INC BX
CONTINUE:
    LOOP CHECK
    
    RET  
COUNT_PRO ENDP
CODE ENDS
END START