汇编高手帮我做一道题，谢谢啦，很简单，我初学

DATA SEGMENT
DATABUF DB 0H,1H,4H,9H,10H,19H,24H,31H,40H,51H
DATA ENDS
CODE SEGMENT
ASSUME CS :CODE,DS,DATA,SS:STACK
BEGIN :
MOV AH , 1
INT 21H
MOV SI , AL
SUM SI , 0H
MOV DL , DATABUF [SI]
MOV AH , 2
INT 21H
MOV DL , 0A
MOV AH , 2
INT 21H
CODE ENDS
END START

要不把你编译器发我看看
pengyou618@163.com

呵呵,没试
SSEG SEGMENT STACK
DB 20 DUP(?)
SSEG ENDS

DSEG SEGMENT
INF DB 'PLEASE INPUT X1(0~9):',0dH,0AH,"$"
ERR DB 'INPUT ERROR!',0dH,0AH,"$"
BUF DB 0H,1H,4H,9H,10H,19H,24H,31H,40H,51H
DSEG ENDS

CSEG SEGMENT
ASSUME CS :CSEG,DS:DSEG,SS:SSEG
BEGIN :
MOV AX,OFFSET SSEG
MOV SS,AX
MOV AX,OFFSET DSEG
MOV DS,AX
MOV AH , 1
MOV DX,OFFSET INF
MOV AH,9
INT 21H
MOV AH , 1
INT 21H
AND AL,0FH
CMP AL,09
JA ERROR
MOV SI,OFFSET BUF
MOV BX,0
MOV BL,AL
MOV BL,[SI+BX]
CALL DISP
EXIT:
MOV AH,4C
INT 21H
ERROR:
MOV DX,OFFSET ERR
MOV AH,9
INT 21H
JMP EXIT

DISP PROC NEAR
MOV CH,2H
LOOP1:
MOV CL,4H
ROL BL,CL
MOV AL,BL
AND AL,0FH
CMP AL,0AH
JB SMALL
ADD AL,07H
SMALL:
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
DEC CH
JNZ LOOP1
RET
DISP ENDP

CSEG ENDS
END BEGIN

不是很清楚，大哥你学多久了啊 ！