proc BinToDec

	 	mov cx,16
		mov si, 15
		xor bx,bx
		xor ax,ax
		mov bl, 1



againBtD:
		cmp BinResult[si],'1'
		je addBtD
		shl bx,1
		dec si
		loop againBtD
		jmp startMakeDec

addBtD: add ax,bx
		shl bx,1
		dec si
		loop againBtD

startMakeDec:
			  xor bx,bx
              xor si,si
        	  mov bx,10
       	      mov cx,100

makeDec: div bx
		 mov DecResult[si],dl
		 add DecResult[si],'0'
		 inc si
		 cmp ax,0
		 je exitBinToDec
		 loop makeDec




exitBinToDec: mov DecResult[si],10
			  mov DecResult[si+1],13
			  mov DecResult[si+2],'$'

			  lea dx, DecResult
			  mov ah,9
			  int 21h

			  ret

endp BinToDec

	proc CheckInput