Перевод числа из 10-ой в 8ую систему исчисления

                    code    SEGMENT
                     assume cs:code, ds:code
                     ;---------------------------
                     main:
                 mov     ax,code
                 mov     ds,ax
      
                     ;---------------------------
                     again:
                 mov     si,8    ;восьмеричное число--система счисления
                 mov     bx,0    
             mov     dl,'?'  ;подсказка
                 call    display
                mov     cx,16   ;шестнадцать цифр,
                 ;---------------------------
                 next:
                 call    kbin    ;ввод символа в AL
                       cmp     al,' '  ;ввод до знака
                 je      back    ;пробела
                 mov     ah,0
                 and     al,00001111b ;ASCII-код ->цифра
                 mov     di,ax
                 mov     ax,bx
                 mul     si
                 add     ax,di       ;AX = 2*BX + цифра
                 mov     bx,ax
                 loop    next
                         ;---------------------------
                     back:
                 mov     dl,'='
                 call    display
                 mov ax,bx
                 add ax, 1
                 mov bx,ax
                 call    bin2        ;
                        call    crlf         ;с    новой строки
                           jmp     again         ;ввод нового числа
                     ;---------------------------
                         bin2 proc
             mov cx,16
                         a10:
                  mov dl,'0'
                     shl bx,1
                     jnc a20
                     add dl,1
                         a20:
                        mov     ah,2         ;символа на экран
                    int     21h      ;из регистра DL
                     loop a10
     
     
                 ret
                         bin2 endp
     
                              ;---------------------------
                 display proc        ;подпрограмма вывода
                 mov     ah,2        ;символа на экран
                 int     21h         ;из регистра DL
                 ret
                     display endp
                     ;---------------------------
                     kbin    proc            ;подпрограмма ввода
                 mov     ah,1                ;символа в AL
                 int     21h                     ;с    клавиатуры
                 ret
                     kbin    endp
                           ;---------------------------
                     crlf    proc            ;переход на
                 mov     dl,10               ;новую строку
                 call    display
                 mov     dl,13
                 call    display
                 ret
                     crlf    endp
                           ;---------------------------
                     code ENDS
                         end     main