Перевод из 10 системы счисления в 2

.MODEL small
.STACK 64
.DATA 
org 150h
x_ascii db 20h dup(?)
t1 db 0dh,0ah,"Vvedite chislo i nagmite Enter"
db 0dh, 0ah, "$"
t3 db 0dh, 0ah, "V dvoichnoi sisteme chislo vyglyadet tak"
db 0dh,0ah,"$"
buf db 16 dup(?),"$"
.CODE
vt proc
mov ax,@data
mov ds, ax
mov  es, ax
d: lea dx, t1
mov ah,09h
int 21h
lea di, x_ascii
call ink
call des_2
push ax
lea dx,t3
mov ah,9h
int 21h
pop ax
call bin_dis
push     ax
mov ah,1h
int 21h
cmp al,"Y"
loope    d
cmp al,"y"
loop d
mov ah,4ch
int 21h
vt endp
ink proc
 
xor  cx,cx
l1: 
mov  ah,1
int 21h
stosb
inc cx
cmp al,0dh
jnz l1
dec cx
ret
ink endp
dis proc
 
r1: mov dl,[di]
mov ah,2
int 21h
inc di
loop r1
ret
dis endp
des_2 proc
 
mov si,10
lea di,x_ascii
sub ax,ax
v1: mul si
mov bp,ax
mov al,[di]
sub al,48
inc di
mov  ah,ch
add ax,bp
loop v1
ret
des_2 endp
bin_dis proc
 
lea di,buf
mov cx,16
mov  bx,ax
mov  dx,ax
conv:   
mov  al,ch
shl dx,1
adc  al,'0'
stosb   
loop conv
mov ah,9h
lea dx,buf
int 21h
mov  ax,bx
ret
bin_dis endp
 
end vt

STAK    SEGMENT STACK
        DB  256 DUP (?)
STAK    ENDS
 
DATA    SEGMENT
    BUF     DB      5, 00, 6 DUP ('$')      
    OUTBUF  DB      13, 10, 16 DUP ('0'), '$'
DATA    ENDS
 
CODE SEGMENT
    ASSUME  CS:CODE, DS:DATA, SS:STAK
; -----------------------------------------------------------------------
 
; процедура ввода строки в буфер
READ    PROC    
    MOV AH, 0AH  
    LEA DX, BUF 
    INT 21H
    RET
READ    ENDP
 
; -----------------------------------------------------------------------
 
; процедура вывода на экран
PRINT   PROC
    MOV AH, 09H 
    LEA DX, OUTBUF  
    INT 21H
    RET
PRINT   ENDP
 
; -----------------------------------------------------------------------
 
; перевод строки в число
STR_TO_NUM      PROC        
    MOV DI, 0
    LEA BX, BUF + 1 ; в BX адрес следующего элемента буфера
    MOV CX, [BX]    ; в СХ количество введенных символов
    XOR CH, CH
    MOV SI, 1       ; в SI множитель
 M1:    PUSH    SI  ; сохраняем SI в стек
    MOV SI, CX  ; номер символа в SI
    MOV AX, [BX+SI] ; сохраняем текущий символ в AX  
    XOR AH, AH 
    POP SI      ; извлекаем SI из стека
    SUB AX, 30H ; получаем из символа цифру 
    MUL SI      ; умножаем цифру на множитель SI
    ADD DI, AX  ; прибавляем к результату
    MOV AX, SI  ; помещаем множитель в AX
    MOV DX, 10D 
    MUL DX      ; увеличиваем его в 10 раз
    MOV SI, AX  ; помещаем обратно в SI
    LOOP    M1      ; переходим к следующему символу
STR_TO_NUM      ENDP
 
; -----------------------------------------------------------------------
 
; перевод из десятичной формы в двоичную
DEC_TO_BIN  PROC    
    MOV BX, DI              ; помещаем число в BX
    LEA SI, OUTBUF + 2      ; везультат пишем в выходной буфер
    MOV CX, 10h             
 DB2:   SHL BX, 1           ; сдвигаем на один бит влево
    JC DB1                  ; анализируем CF
    MOV BYTE PTR [SI], '0'      ; если флага нет, то пишем '0'
    JMP DB3
 DB1:   MOV BYTE PTR [SI], '1'  ; а если есть, то '1'
 DB3:   INC SI          ; переходим к следующей позиции в выходном буфере
    LOOP DB2
    RET
DEC_TO_BIN  ENDP
 
; -----------------------------------------------------------------------
 
START:
    XOR AX, AX
    MOV BX, DATA    ; инициализация
    MOV DS, BX  
 
    CALL    READ    ; вызов процедуры ввода
    CALL    STR_TO_NUM  ; конвертация строки в число
 
; -----------------------------------------------------------------------
 
    CALL    DEC_TO_BIN  ; конвертация десятичного числа в двоичное
    CALL    PRINT   ; вывод результата на экран
    CALL CLEAN_OUTBUF ; очистка выходного буфера
    
; -----------------------------------------------------------------------
 
MOV AH, 4CH
    INT 21H
CODE    ENDS
END START

    JC DB1                  ; анализируем CF
    MOV BYTE PTR [SI], '0'      ; если флага нет, то пишем '0'
    JMP DB3
 DB1:   MOV BYTE PTR [SI], '1'  ; а если есть, то '1'

ADC BYTE PTR [SI],'0';анализируем CF -- если CF=0, тогда пишем '0', а если CF=1, то '1'

OUTBUF  DB      13, 10, 16 DUP ('0'), '$'