您所在位置：主题：[讨论]大家帮帮忙．．拜托．运动字符的一个错误
lavajane
[专家分：0] 发布于 2007-01-24 12:37:00
[em8]我这有个程序，有一个错误，可是不知道该怎么改，，
unexpected on file encountered，，，，大家帮帮我～～
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
SSS3: 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
S4:
DISP LINE+1,I,CX,COLOR,0,LINE4
DEC COUNT
MOV CX,COUNT
CALL DELAY
CMP COUNT,L
JNE S4
JMP S3
DELAY PROC
PUSH CX
PUSH DX
MOV DX,10000
D1: MOV CX,6801
D2: LOOP D2
DEC DX
JNZ D1
POP CX
POP DX
RET
DELAY ENDP
TC: MOV AH,4CH
INT 21H
CODE ENDS
END BEG
unexpected on file encountered，，，，大家帮帮我～～
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
SSS3: 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
S4:
DISP LINE+1,I,CX,COLOR,0,LINE4
DEC COUNT
MOV CX,COUNT
CALL DELAY
CMP COUNT,L
JNE S4
JMP S3
DELAY PROC
PUSH CX
PUSH DX
MOV DX,10000
D1: MOV CX,6801
D2: LOOP D2
DEC DX
JNZ D1
POP CX
POP DX
RET
DELAY ENDP
TC: MOV AH,4CH
INT 21H
CODE ENDS
END BEG
