[讨论][求助]运动字符的问题..帮忙 - 汇编论坛

JANELAVA

等　级：新手上路
帖　子：2
专家分：0
注　册：2006-11-26

楼主

问题点数：0 回复次数：3

[讨论][求助]运动字符的问题..帮忙

我这有个运动字符的程序...麻烦大家帮我看看
只有一个错误了
可是我怎么改也改不对
.........................
帮帮忙
谢谢~~DISP MACRO Y，X，LENGTHS，COLOR，FLAG，VAR
DATA SEGMENT
TOP DB 5 DUP(0AH)
DB 31 DUP(' '),'MAIN MENU',0DH,0AH
DB 25 DUP(' '),201,21 DUP(205),187,0DH,0AH
DB 25 DUP(' '),186,' 1.INPUT THE STRING ',186,0DH,0AH
DB 25 DUP(' '),186,' 2.DISPLAY MODEL ONE ',186,0DH,0AH
DB 25 DUP(' '),186,' 3.DISPLAY MODEL TWO ',186,0DH,0AH
DB 25 DUP(' '),186,' 4.RETURN DOS ',186,0DH,0AH
DB 25 DUP(' '),200,21 DUP(205),188,0DH,0AH
DB 28 DUP(' '),'CHOCICE(1,2,3,4):$'
ENDMESG DB 5 DUP(0AH),'Please strike any key $'
LINE EQU 2
COLOR EQU 5FH
LINE1 DB 201,56 DUP(205),187
LINE2 DB 186,56 DUP(' '),186
LINE3 DB 200,56 DUP(205),188
LL EQU $-LINE3
XX EQU (80-LL)/2
KG DB 60 DUP(' ')
LINE4 DB ' '

L EQU $-LINE4
KK DB 60 DUP(' ')
I EQU XX+1
J EQU I+L-1
LORG DB 0
COUNT DW 0
DATA ENDS
STACK SEGMENT PARA STACK'STACK'
MESG DB 10 DUP(?)
STACK ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACK

BEG: MOV AX,DATA
MOV DS,AX
MOV ES,AX
AGAIN: MOV AX,3
INT 10H
MOV AH,9
LEA DX,TOP
INT 21H
MOV AH,1
INT 21H
CMP AL,'1'
JNE NEXT1
JMP S1
NEXT1: CMP AL,'2'
JNE NEXT2
JMP S2
NEXT2: CMP AL,'3'
JNE NEXT3
JMP S3
NEXT3: CMP AL,'4'
JNE AGAIN
JMP TC
MOV AL,4CH
INT 21H
S2: MOV AX,3
DISP LINE+0,XX,LL,COLOR,0,LINE1
DISP LINE+1,XX,LL,COLOR,0,LINE2
DISP LINE+2,XX,LL,COLOR,0,LINE3
MOV AH,09H
LEA DX,ENDMESG
INT 21H
MOV AH,1
INT 16H
JNZ AGAIN
MOV COUNT,0
SS2: INC COUNT
MOV CX,COUNT
MOV AX,OFFSET KG+2
ADD AL,KG+1
ADC AH,0
SUB AX,COUNT
MOV TEMP,AX
DISP LINE+1,I,CX,COLOR,1,TEMP
CALL DELAY
CMP CX,AL
JNE SS2
JMP S2
S1: MOV AX,3
INT 10H
MOV AH,0AH
LEA DX, MESG
INT 21H
JMP AGAIN

S3: MOV AH,3
INT 10H
DISP LINE+0,XX,LL,COLOR,0,LINE1
DISP LINE+1,XX,LL,COLOR,0,LINE2
DISP LINE+2,XX,LL,COLOR,0,LINE3
MOV COUNT,0
SS3: INC COUNT
MOV CX,COUNT
MOV BP,OFFSET LINE4+L
SUB BP,CX
DISP LINE+1,I,CX,COLOR,1,BP
CALL DELAY
CMP COUNT,LL-1
JNE SS3
MOV AH,09H
LEA DX,ENDMESG
INT 21H
MOV AH,1
INT 16H
JNZ TC
JMP SSS3