彙編-將輸入的十進位制數轉化為二進位制
阿新 • • 發佈:2018-11-23
把以ASCII形式表示的十進位制數轉換為二進位制數
.model small .386 .stack 200h .data ascval db '12345' binval dw ? .code main proc start: mov ax, @data mov ds, ax lea bx, ascval push bx lea bx, binval push bx call convascbin mov ax, 4c00h int 21h main endp ;convascbin proc pascal uses ax bx cx si di par1:word, par2:word local asclen:word, mulfact:word mov bx, 10 mov si, par1 mov di, par2 sub di, si mov asclen, di mov cx, asclen add si, asclen dec si mov mulfact, 1 mov di, par2 mov [di], 0 next: mov al, [si] and ax, 000fh mul mulfact add [di], ax mov ax, mulfact mul bx mov mulfact, ax dec si loop next ret convascbin endp end start