COA LAB BINARY INCOMPLETE

.MODEL SMALL
.STACK 100H
.DATA
M1 DB "ENTER BINARY : $"
M2 DB "BINARY IS : $"
V1 DD 0
.CODE
MAIN PROC

   MOV AX,@DATA
   MOV DS,AX

   LEA DX,M1
   MOV AH,9
   INT 21H


     XOR BX,BX
     MOV AH,1
     INT 21H
     CMP AL,0
     JE L1
     JMP L2
     L1:
     MOV V1,0
     L2:
     INC V1
     JMP L3
     L3:
     XOR BX,BX
     MOV AH,1
     INT 21H


     WHILE:
     CMP AL,0DH
     JE ENDWHILE



     AND AL,0FH
     SHL BX,1
     OR BL,AL
     INT 21H
     JMP WHILE

     ENDWHILE:
     MOV AH,2
     MOV DL,0DH
     INT 21H
     MOV DL,0AH
     INT 21H

     LEA DX,M1
   MOV AH,9
   INT 21H

     MOV CX,V1
     LOOP1:
     ROL BX,1
     JC LOOP2
     JMP LOOP1

     LOOP2:

     MOV AH,2
     MOV DL,'1'
     INT 21H
     LOOP LOOP3
     JMP EXIT



     LOOP3:
     ROL BX,1
     JC LOOP2

     MOV AH,2
     MOV DL,'0'
     INT 21H

     LOOP LOOP3
     JMP EXIT




     EXIT:
     MOV AH,4CH
     INT 21H
     MAIN ENDP
END MAIN