《十六进制数转换为二进制数程序》由会员分享，可在线阅读，更多相关《十六进制数转换为二进制数程序（4页珍藏版）》请在金锄头文库上搜索。
1、十六进制数转换为二进制数程序 程序：CRLFMACROPUSHAXPUSHDXMOVAH,02HMOVDL,0DHINT21HMOVAH,02HMOVDL,0AHINT21HPOPDXPOPAXENDMDATASEGMENTMESSDB INPUTHEXNUMBER:,$ERRORDB INPUTERROR, 0DH,0AH, $DATAENDSSTACKSEGMENTSTADW 32 DUP(?)TOPDW ?;宏定义;把人乂压入堆栈 ；把DX压入堆栈 ;显示回车;显示换行;弹出DX;弹出AX;数据段;堆栈段STACKENDSCODESEGMENTASSUMECS:CODE,DS: DATA
2、,START:MOVAX,DATAMOVDS,AXMOVES,AXMOVSP,TOPLLL:MOVAH,09HMOVDX,OFFSETMESSINT21HCRLFXORDX,DXMOVBL,04HGGG:MOVAH,01HINT21HCMPAL,0DHJZPPPCMPAL,20HJZPPPCMPAL,30HJBKKKSUBAL,30HCMPAL,0AH;代码段ES: DATA, SS: STACK;初始化;显示提示信息；把MESS的偏移地址给DX;DX清零;接收字符个数;接收字符;AL-0DH （判断是不是回车）；是回车，转PPP;AL-20H（判断是不是空格）;是空格，转PPP；AL-30H
3、（判断是不是ASCII码0）;不是，转KKK；AL=AL-30H（将ASCII码转换成十六进制数）；AL-0AHJBGETS;结果小于等于0，跳转GETSCMPAL,11H；AL-11HJBKKK;结果小于等于0，跳转KKKSUBAL,07H；AL=AL-07HCMPAL,0FH；AL-OFHJBEGETS；结果大于等于0,跳转GETSCMPAL,2AH；AL-2AHJBKKK;结果小于等于0，跳转KKKCMPAL,2FH；AL-2FHJAKKK；结果大于0,跳转KKKSUBAL,20H；AL=AL-20HGETS:MOVCL,04H；CL=04HSHLDX,CL；DX左移4位XORAH,AH
4、；AH清零ADDDX,AX；DX=DX-AX （二进制数送DX）DECBL；BL=BL-1JNZGGG；BL非零，跳转GGG（继续接收）CRLFCALLZHXS；调用ZHXSCRLFJMPLLL；跳转LLLKKK:PUSHDX；把DX压入堆栈CRLFMOVAH,09H;显示错误提示信息MOVDX,OFFSET ERROR；把ERROR的偏移地址给DXINT21HPOPDX;弹出DXPPP:CRLFCALLZHXS；调用ZHXSMOVAX,4C00H;返回DOSINT21HZHXSPROC;显示子程序MOVCX,0010H；CX=0010HMOVBX,DX；BX=DXTTT:ROLBX,1;BX
5、左移一位MOVDL,BL；DL=BLANDDL,01H;DL高位清零ADDDL,30H；DL=DL+30HMOVAH,02H9INT21HLOOPTTT；CX-1非零，跳转TTTRETZHXSENDPCODEENDS运行结果：D:masm60LINK 5.0BJMicrosoft (R) Segmented-Executable Linker Version 5.13 Copyright (C) Microsoft Corp 1984-1991. All rights reserved.Run File 5.exe:List File NUL.MAP:Libraries .LIB:Definitions File NUL.DEF:LINK : warning L4021: no stack segmentD:masm60i5.EXEINPUT HEXNUMBER:256SINPUT ERROR0000001001010110D:masm60i5.EXEINPUT HEXNUMBER:2AF60010101011110110INPUT HEXNUMBER:
