ASCⅡ码转二进制码程序实验.docVIP

实验 7 码制转换程序实验 常用码制转换有：BCD码转二进制、二进制转BCD码、ASCⅡ码转BCD码、BCD码转ASCⅡ码、二进制转ASCⅡ码、ASCⅡ码转二进制码。 一、实习题目 ASCⅡ码转二进制码程序实验 二、实习目的 掌握码制转换的基本原理及相应的转换程序的编写方法。 三、实习内容 将ASCⅡ码数据转换成二进制数据。要求从键盘上输入十进制整数（假定范围0~32767），然后转换成二进制格式存储。 码制转换： DATA SEGMENT DATA1 DB PLEASE INPUT A NUMBER(0-32767):$ DATA2 DB THE ASCII IS:$ DATA3 DB THE BINARY IS:$ DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA MAIN PROC FAR START:MOV AX,DATA MOV DS,AX MOV DX,OFFSET DATA1 MOV AH,09H ;屏幕显示data2中的字符串 INT 21H CALL CRLF INPUT: MOV AH,01H INT 21H ;键盘输入并显示 CMP AL,0DH JZ NEXT SUB AL,30H JL INPUT CMP AL,39H JG INPUT CBW XCHG AX,BX MOV DX,10D MUL DX XCHG AX,BX ADD BX,AX JMP INPUT NEXT:CALL CRLF MOV CL,4D MOV CH,4D MOV DX,OFFSET DATA2 MOV AH,09H ;屏幕显示data2中的字符串 INT 21H CALL CRLF LOOP0: ROL BX,CL MOV AL,BL AND AL,0FH ADD AL,30H CMP AL,3AH JL OUTPUT ADD AL,07H OUTPUT: MOV AH,02H MOV DL,AL INT 21H DEC CH JNZ LOOP0 CALL CRLF MOV DX,OFFSET DATA3 MOV AH,09H INT 21H CALL CRLF MOV CH,16D MOV CL,1D LOOP1: ROL BX,CL MOV AL,BL AND AL,01H ADD AL,30H MOV AH,02H MOV DL,AL INT 21H DEC CH JNZ LOOP1 MOV AH,4CH INT 21H MAIN ENDP OUTS PROC NEAR;屏幕显示 MOV AH,09H INT 21H RET OUTS ENDP CRLF PROC NEAR;回车换行 MOV AH,02H INT 21H MOV DL,0AH INT 21H RET CRLF ENDP CODE ENDS END START