help!!!!!!!!!不能运行?

yyy502 2003-01-29 10:41:19
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
...全文
45 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
licj 2003-02-01
  • 打赏
  • 举报
回复
sorry,看花了,应该是
JMP QUIT
yyy502 2003-01-29
  • 打赏
  • 举报
回复
STACK SEGMENT STACK 'STACK'
DB 100 DUP(0)
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,SS:STACK
COLORBAR PROC FAR
PUSH DS
MOV AX,0
PUSH AX
MOV AH,0
MOV AL,4
INT 10H
MOV BH,0
MOV BL,0
MOV AH,11
INT 10H
MOV BH,1
MOV BL,1
MOV AH,11
INT 10H
MOV BL,1
MOV CX,0
MOV DX, 0
FILED: MOV BH,20
LINE: MOV AL,BL
MOV AH,12
INT 10H
INC DX
CMP DX,200
JL LINE
MOV DX,0
INC CX
CMP CX,320
JGE EXIT
DEC BH
JNZ LINE
INC BL
AND BL,03H
JMP FILED
EXIT: MOV BX,500
GO: MOV CX,5602
DELAY: LOOP DELAY
DEC BX
JNZ GO
MOV AH, 0
MOV AL,3
INT 10H
RET
COLORBAR ENDP
CODE ENDS
END COLORBAR
这个也不行!!!
licj 2003-01-29
  • 打赏
  • 举报
回复
武汉大学的教材里有这样的题(曹加恒编的)。书里有个错误,
在输入不是“上,下,左”的语句里,每句的结尾处应该有
JMP WRIGHT NOT
否则出错。
PS:那本书太烂了

21,453

社区成员

发帖
与我相关
我的任务
社区描述
汇编语言(Assembly Language)是任何一种用于电子计算机、微处理器、微控制器或其他可编程器件的低级语言,亦称为符号语言。
社区管理员
  • 汇编语言
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧