输入四位十六进制的数值，将十六进制数值转二进制输出
程序运行：
代码：
datas segmentmaxLength db 5hexLength db 0hex db 5 dup(?)bin db 100h dup(?)inputPrompt db 'input 4 bit hexadecimal:$'outputBinary db 0dh,0ah,'output binary:$'outputInputError db 0dh,0ah,'input error!$'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,axlea dx,inputPrompt ;输入提示mov ah,9int 21hlea dx,maxLength ;输入十六进制字符mov ah,10int 21hmov cl,hexLength ;若字符串长度不为4，则输入错误cmp cl,4jne inputErrormov ch,0 ;设置ch，使得cx为字符串的长度lea si,hex lea di,bins:mov al,[si] cmp al,'9' ;判断字符是否大于'9'ja english ;大于9则跳转去判断是否为其他十六进制字符cmp al,'0' ;判断字符是否大于'0' jb inputError ;若小于'0'，则输出jmp tobinary ;否则，则转换为二进制english:or al,32 ;将字符变成小写字母，不是小写字母的运算结果不变cmp al,'a' ;判断字符是否大于'a'jb inputError ;若小于'a',则输入错误cmp al,'f' ;判断字符是否大于'f'ja inputError ;若大于'f',则输入错误 sub al,7 ;先减7，变成数字的值+30htobinary:sub al,30h ;减去30h，剩下数值call binary ;转换二进制，使用al，diinc si ;数组下标加一loop slea dx,outputBinary ;输出二进制提示mov ah,9int 21hmov byte ptr [di],'$' ;设置二进制字符串的结束字符lea dx,bin ;输出二进制字符串mov ah,9int 21hjmp exitinputError: ;输入错误提示lea dx,outputInputErrormov ah,9int 21h exit:retmain endpbinary proc nearpush cx ;保存cxmov cl,4 ;将al左移4位，使al的高半字节为原来al的低半字节shl al,clmov cx,4sbin:shl al,1 ;左移一位jc one ;进位为1，跳转到onemov byte ptr [di],'0' ;否则，二进制数组置'0'jmp restart ;跳转到restartone: ;置'1'mov byte ptr [di],'1'restart:add di,1loop sbinpop cx ;恢复cxretbinary endp
codes endsend main
