输入四进制的数，转为十进制输出
程序运行：
代码：
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
