DATAS SEGMENT
KW DB 02H,79,00,00
KW1 EQU THIS WORD;此处输入数据段代码
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:LEA AX,KW1
MOV SI,AX
MOV AX,024FH
MOV [SI],AX
MOV AX,0000H
MOV [SI+2],AX
;DELAY:MOV CX,0
; INC CX
; CMP CX,110
; JNE DELAY
CALL WALL
MOV AH,4CH
INT 21H
WALL PROC NEAR
MOV AX,DATAS
MOV DS,AX
LEA AX,KW
MOV SI,AX
MOV CX,1
MOV BL,06H
MOV AL,'*'
MOV DX,[SI+2]
WEI1:MOV BH,BYTE PTR[SI]
CMP BH,DH
JZ EXIT
NEI:MOV BH,BYTE PTR[DI+1]
CMP BH, DL
JZ WEI
MOV AH,2
MOV BH,0
INT 10H
MOV AH,9
INT 10H
INC DL
JMP NEI
WEI:ADD DH,1
MOV DL,BYTE PTR[SI+3]
JMP WEI1
;此处输入代码段代码
EXIT:RET
WALL ENDP
CODES ENDS
END START