help!!!!!!!!!不能运行?
STACK SEGMENT STACK 'STACK'
DB 100 DUP(0)
STACK ENDS
DATA SEGMENT
MSG DB 'TYPE 0---3 SELECT DOT COLOR,TYPE ANY'
DB 'KEY CONTINUE...$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,SS:STACK,DS:DATA
DRAW PROC FAR
PUSH DS
MOV AX,0
PUSH AX
MOV AX,DATA
MOV DS,AX
LEA DX,MSG
MOV AH,9
INT 21H
MOV AH,8
INT 21H
;清屏
MOV AH,6
MOV AL,0
MOV CX,0
MOV DX,184FH
INT 10H
;设置显示方式
MOV AH,0
MOV AL,4
INT 10H
;设置背景色
MOV BH,0
MOV BL,0
MOV AH, 11
INT 10H
;设置调色板
MOV BH,1
MOV BL,0
MOV AH, 11
INT 10H
;显示彩色点
MOV BL,1
MOV DX,99
MOV DI,3
FIG: MOV AL,1
MOV AH,12
MOV CX,160
INT 10H
INC DX
DEC DL
JNZ FIG
MOV CX,160
MOV DX,100
;从键盘输入字符
KEY_IN: MOV AH,0
INT 16H
CMP AL,1BH
JZ QUIT
CMP AL,33H
JG KEY_IN
CMP AL,30H
JNL GRAPH
JMP KEY_IN
GRAPH: MOV BL,AL
AND BL,03H
MOV AL,AH
CMP AL,48H
JNZ NOT_UP
DEC DX
NOT_UP: CMP AL,50H
JNZ NOT_DOWN
INC DX
NOT_DOWN: CMP AL,4BH
JNZ NOT_LIFT
DEC CX
NOT_LIFT: CMP AL,4DH
JNZ WRITEDOT
INC CX
WRITEDOT: MOV AL,BL
MOV AH,12
INT 10H
JMP KEY_IN
QUIT: MOV AH,0
MOV AL,3
INT 10H
RET
DRAW ENDP
CODE ENDS
END DRAW