试编写一个汇编语言源程序，将键盘输入的ASCII码转换为二进制。

;将键盘输入的ASCII码转换为二进制。
;直接回车程序结束。
;.com 文件格式
code segment
main proc far
assume cs:code,ds:code
org 100h

start:
PUSH CS
POP DS
NN1:
MOV AH,02
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H

mov ah,01
int 21h
cmp al,0dh
jnz goon
jmp endd
goon:
push ax
mov ah,09
lea dx,s1
int 21h
pop ax
call disp1
JMP NN1

endd:
INT 20H

S1 DB ' ASCII ========> ',24H

main endp
;--------------------------------
disp1 proc near
MOV BL,AL
mov cx,8
NEXT:
shl BL,1 ;逻辑左移
JC IS_1
MOV DL,30H
JMP XS1
IS_1:
MOV DL,31H
XS1:
MOV AH,02
INT 21H
LOOP NEXT
ret
disp1 endp
;--------------------------------
code ends
end start

以下是运行结果：
7 ASCII ========> 00110111
6 ASCII ========> 00110110
2 ASCII ========> 00110010
3 ASCII ========> 00110011
b ASCII ========> 01100010
s ASCII ========> 01110011
d ASCII ========> 01100100
h ASCII ========> 01101000
j ASCII ========> 01101010
x ASCII ========> 01111000
8 ASCII ========> 00111000
j ASCII ========> 01101010
f ASCII ========> 01100110
e ASCII ========> 01100101

CSEG SEGMENT
ASSUME CS:CSEG
START: SUB BX,BX
MOV DL,10H
MOV AH,02H
MOV CX,0F0H
LP:
INT 21H
PUSH DX
MOV DL,0
INT 21H
POP DX
INC DL
INC BL
CMP BX,10H
JNZ B
SUB BX,BX
PUSH DX
MOV DL,0DH
INT 21h
MOV DL,0AH
int 21h
POP DX
B: LOOP LP
MOV AH,4CH
INT 21H
CSEG ENDS
END START
我有很多种方法，这一种代码最短。。
lz是大2的吧，这个实验我几个星期前做过。。
这些实验还是自己做下比较好。要是实在做不出，再看看别人怎么写。网上很多的。。。
恩，是有个地方要改。。。
请参考

http://zhidao.baidu.com/question/1690966329566998468.html

参考。