Untitled

.MODEL SMALL
.DATA
M1 DB 0AH,0DH,'TYPE A CHARACTER :','$'
M2 DB 0AH,0DH,'THE ASCII CODE OF'
C1 DB ?,'IN BINARY IS :','$'
M3 DB 0AH,0DH,'THE NUMBER OF 1 BITS IS'
C2 DB ?,'$'

.CODE
MAIN PROC
    MOV AX,@DATA        ;INITIALIZE DS
    MOV DS,AX
    
    MOV AH,9
    LEA DX,M1
    INT 21H  
    
    MOV AH,1            ;READ CHARACTER
    INT 21H 
    
    MOV BL,AL
    MOV CL,AL           ; STORE CHARACTER
    
    MOV AH,9            ; DISPLAY RESULTS
    
    LEA DX,M2
    INT 21H
    
    MOV BH,0
    MOV CX,8
    MOV AH,2
    
    L1: SHL BL,1
        JC L2
        MOV DL,'0'
        INT 21H
        JMP L4
        
    L2: MOV DL,'1'
        INT 21H
        INC BH          ;COUNT NUMBER OF ONE
        
    L4: LOOP L1
    
    
        ADD BH,30H      ; CONVERT TO CHAR
        MOV C2,BH
        MOV AH,9
        LEA DX,M3
        INT 21H
        
        MOV AH,4CH
        INT 21H
        
     MAIN ENDP
     END MAIN