輸入四進制的數，轉為十進制輸出

程序運行：

?

?

代碼：

datas segmentN_string_max_length db 0ffhN_string db 0, 100h dup(?)N dw 0,0 sum dd 0 input db 'input quanternary=$'output db 0dh,0ah,'output decimal=$'datas endsstacks segment stackdb 100h dup(?)stacks endscodes segmentassume cs:codes,ds:datas,ss:stacks main proc far start:push dsmov ax,0hpush axmov ax,datas ;初始化dsmov ds,ax;輸入提示lea dx,inputmov ah,9int 21h;輸入Nlea dx,N_string_max_lengthmov ah,10 int 21h;轉換成為數字lea si,N_stringcall todigitmov N,axmov N+2,dx;輸出提示lea dx,outputmov ah,9int 21hmov ax,N mov dx,N+2 call print_decimalretmain endptodigit proc near uses bx cx si di ;si ,axmov cl,[si] ;設置循環次數xor ch,ch cmp cx,8ja errinc si ;si指向第一個元素mov ax,0 ;初始化ax,dxmov dx,0 mov di,4 ;乘數dig:mov bl,[si] cmp bl,'0' ;判斷是否小于'0'jb err ;若低于'0'，則錯誤字符cmp bl,'3' ;判斷是否大于'3'ja err ;若高于'3'，則錯誤字符sub bl,30h ;否則，將數字字符轉成數字xor bh,bh mul di ;乘4add ax,bx ;加上個位adc dx,0 inc siloop digjmp exit err: ;輸出錯誤push ds push cs pop ds lea dx,error_tip mov ah,9int 21hpop dsmov ah,4ch int 21hexit:ret error_tip db 0dh,0ah,'input error$' todigit endpprint_decimal proc near uses ax bx cx dx mov bx,10 mov cx,0 dea: div bx push dx inc cx xor dx,dx cmp ax,0 jnz deadea1:pop dxadd dl,30hmov ah,2int 21hloop dea1 ret print_decimal endp codes endsend main

?

總結

以上是生活随笔為你收集整理的汇编语言（三十三）之四进制转十进制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。