bINARY INPUT(COA)

.MODEL SMALL
.STACK 100H
.DATA
V1 DB 1
V0 DB 0
M1 DB 10,13,"$"
.CODE
MAIN PROC
     MOV AX,@DATA
     MOV DS,AX

     XOR BX,BX
     MOV AH,1
     INC CH
     INT 21H

     ;INC V1

     WHILE:
     CMP AL,0DH
     JE ENDWHILE

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

     ENDWHILE:
     LEA DX,M1
     MOV AH,9
     INT 21H

     MOV CX,15
     LOOP1:
     ROL BX,1
     JC LOOP22

     LOOP LOOP1

     LOOP22:
     MOV AH,2
     MOV DL,'1'
     INT 21H


     LOOP2:
             ;INC V3

      ROL BX,1
      JC LOOP3

     INC V0
     MOV AH,2
     MOV DL,'0'
     INT 21H
     LOOP LOOP2
     JMP F2

     LOOP3:
     INC V1
     MOV AH,2
     MOV DL,'1'
     INT 21H
     LOOP LOOP2
     JMP F2

      F2:

      LEA DX,M1
      MOV AH,9
      INT 21H

      MOV AH,2
      ADD V0,48
      MOV DL,V0
      INT 21H


       LEA DX,M1
      MOV AH,9
      INT 21H


      MOV AH,2
      ADD V1,48
      MOV DL,V1
      INT 21H

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