1 ;程序设计的要求：通过键盘给一个四位的16进制数，程序把它转换成10进制数，并显示出来。 2 ;把输入的4位16进制数以10十进制的值存放到变量num中，注意num可能会有5位数。所以下面 3 ;就通过÷，%（10000,1000,100,10）来得到每一位数，即十进制数. 4 ;相同的道理，把num转换为16进制 5 DSEG SEGMENT 6 ;数据段：在此处添加程序所需的数据 7 num dw ? 8 arr dw 10 dup(?) 9 STRING1 DB '[choce 0 (dec->hex) or 1 (hex->dec)]:$' 10 STRING2 DB '[input a hex number which must be four digits]:$' 11 STRING3 DB '[input a dec number which must be four digits]:$' 12 DSEG ENDS 13 14 CSEG SEGMENT 15 ;*************************************************************************** 16 MAIN PROC FAR ;主程序入口 17 assume cs:CSEG, ds:DSEG 18 ;--------------------------------------------------------------------------- 19 chose: 20 mov ax, DSEG 21 mov ds, ax 22 mov es, ax 23 24 lea dx, STRING1 25 mov ah, 9 26 int 21h ; output string at ds:dx 27 28 mov ah, 01h ;键盘输入并回显,AL=input char 29 int 21h 30 cmp al,30h ;和'0'比较 31 je start2 ;转到10-16进制入口 32 cmp al,31h ;和'1'比较 33 je start1 ;转到16-10进制入口 34 call change ;换行，重新选择 35 jmp chose ;输入错误，让其重新输入 36 ;--------------------------------------------------------------------------- 37 start1: ;4位16进制转10进制,入口 38 call change ;自动换行 39 40 lea dx, STRING2 41 mov ah, 9 42 int 21h ; output string at ds:dx 43 44 mov num, 0 45 mov cx, 4 ;输入4位16进制数(这里没有处理少于或多于4位的情况) 46 L1: mov ah, 01h ;键盘输入并回显,AL=input char 47 int 21h 48 push cx ;保护cx 49 mov cl, 4 50 shl num, cl ;输入的数以10进制的形式存到num中[逻辑左移4位，SHL OPR,CNT 前一个不能是操作数，后一个为CL寄存器] 51 pop cx 52 53 cmp al, 3ah ;<9直接al-'0'扩展->num->bx 54 jb s1 55 cmp al,47h ;9< <G [小写的大于大写的] 56 jb x1 57 sub al,20h ;小写的比大写的多减去20h 58 x1: sub al, 7h 59 s1: sub al, 30h 60 mov ah, 0 61 add num, ax 62 mov bx, num 63 loop L1 64 solve1: 65 call change ;自动换行 66 call fun1 ;调用主函数 67 call change 68 jmp chose 69 call exit ;退出 70 ;-------------------------------------------------------------------------- 71 start2: 72 call change ;自动换行 73 74 lea dx, STRING3 75 mov ah, 9 76 int 21h ; output string at ds:dx 77 78 mov num, 0 79 mov cx, 4 ;输入4位16进制数(这里没有处理少于或多于4位的情况) 80 L2: mov ah, 01h ;键盘输入并回显,AL=input char 81 int 21h 82 push cx ;保护cx 83 push ax 84 mov cx,10d 85 mov ax,num ;字乘法:(dx,ax)=ax*src 86 mul cx 87 mov num,ax ;把ax给num 88 pop ax 89 pop cx 90 s2: sub al, 30h ;输入转换为数字-'0' 91 mov ah, 0 92 add num, ax 93 mov bx, num 94 loop L2 95 jmp solve2 96 solve2: 97 call change ;自动换行 98 call fun2 ;调用主函数 99 call change 100 jmp chose 101 call exit ;退出 102 ;******************************************************************************; 103 MAIN ENDP 104 105 fun1 proc ;被除数放在dx中 106 mov cx, 10000d ;把除数存放到cx中 107 call dec_div 108 109 mov cx, 1000d 110 call dec_div 111 112 mov cx, 100d 113 call dec_div 114 115 mov cx, 10d 116 call dec_div 117 118 mov cx, 1d 119 call dec_div 120 ret 121 fun1 endp 122 123 dec_div proc ;除法实现，除数为cx的值 124 mov ax, bx 125 mov dx, 0 126 div cx ;div 无符号:div src 16位操作:商ax=(dx,ax)/src,余数dx 127 mov bx, dx 128 mov dl, al 129 130 add dl, 30h ;转换为char并显示 131 mov ah, 02h 132 int 21h 133 ret 134 dec_div endp 135 ;------------------------------------------------------------------------ 136 fun2 proc ;被除数放在dx中 137 mov cx,1000h ;把除数存放到cx中 138 call hex_div 139 140 mov cx,0100h 141 call hex_div 142 143 mov cx,0010h 144 call hex_div 145 146 mov cx,0001h 147 call hex_div 148 149 ret 150 fun2 endp 151 152 hex_div proc ;除法实现，除数为cx的值 153 mov ax, bx 154 mov dx, 0 155 div cx ;div 无符号:div src 16位操作:商ax=(dx,ax)/src,余数dx 156 mov bx, dx 157 mov dl, al 158 159 cmp dl, 10d ;和10比 >=10 160 jb show 161 add dl,7h ;>=10的情况 162 show: 163 add dl, 30h ;转换为char并显示 164 mov ah, 02h 165 int 21h 166 ret 167 hex_div endp 168 ;************************************************************************************************* 169 ;回车换行 170 change proc 171 push ax 172 mov ah, 02h 173 mov dl, 0ah 174 int 21h 175 mov ah, 02h 176 mov dl, 0dh 177 int 21h 178 pop ax 179 ret 180 change endp 181 ;************************************************************************************************* 182 ;退出 183 exit proc 184 ;按任意键退出 185 mov ah,1 186 int 21h 187 mov ax, 4c00h ;程序结束，返回到操作系统 188 int 21h 189 exit endp 190 ;************************************************************************************************* 191 END MAIN 192 CSEG ENDS