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
