汇编。一个填充代码，帮我看看哪条错误了，总编译不成功。

DATAS SEGMENT
datas ends
CODE SEGMENT
ASSUME CS:CODE,DS:datas
ORG 0100H
START:MOV AH,0
MOV AL,12H
INT 10H
MOV AH,0BH
MOV BH,0
MOV BL,08H
INT 10H
CALL HR
INT 10H
MOV DX,450
MOV CX,250
S1: MOV AL,09H
CALL HUADIAN

DEC DX
CMP DX,50
JNE S1
HLT
MOV AH,4CH
INT 21H
HR PROC NEAR
MOV DX,50
LI: MOV CX,250
LD: MOV AH,0CH
MOV AL,04H
iNT 10H
INC CX
CMP CX,450
JNZ LD
ADD DX,1
CMP DX,250
JNZ LI
RET
HR ENDP
RED PROC NEAR
HUADIAN PROC

MOV AH,0CH
MOV BH,0
INT 10H
YS: PUSH DX
PUSH CX
MOV DX,05FFH
POP CX
POP DX
RET
HUADIAN ENDP
CODE ENDS
END START

好像是程序不全。
从程序看，应该是RED PROC NEAR这句话多了。把这句话注释掉之后就可以编译运行了。
不过不知道是不是因为我的显示设置问题，程序运行起来的效果好像不对。

任务占坑