可控方向的运动的正方形.docVIP

可控方向的运动的正方形 说明:输入小写aswd控制方向 DATAS SEGMENT COLOR DW 02 BKCOLOR DW 15 POINT DW 200,200,400,200 DW 400,200,400,400 DW 400,400,200,400 DW 200,400,200,200 COLORINFO DB 13,10,PLEASE INPUT COLOR HEX CODE(0~E):$ CRLF DB 13,10,$ LENINFO DB 13,10,PLEASE INPUT THE LENGTH:$ BUFF DB 10,0,10 DUP (0) DATAS ENDS STACKS SEGMENT DUIZHAN DW 200 DUP(0) STACKS ENDS CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS START: MOV AX,DATAS MOV DS,AX MOV AX,0A000H MOV ES,AX CALL INPUTCOLOR MOV AH,9 MOV DX,OFFSET CRLF INT 21H CALL INPUTLEN MOV AX,0012H INT 10H ;设置640*480*16图形模式 MOV AL,2 CALL SET_WRITE_MODE ;将写模式设为写模式2 MOV AX,BKCOLOR CALL CLEAR ;将背景清成白色 JMP DDD1 HUATU: MOV AX,SEG DUIZHAN MOV SP,AX MOV BP,OFFSET DUIZHAN MOV AH,08H INT 21H MOV CL,AL MOV AX,BKCOLOR CALL CLEAR ;将背景清成白色 MOV AL,CL CMP AL,d JE JIAX CMP AL,w JE JIANY CMP AL,s JE JIAY CMP AL,a JE JIANX CMP AL,30h JE EXIT EXIT: MOV AX,4C00H ;设置DOS系统功能调用，带返回码结束带返回码结束 AL=返回码 INT 21H JIAX: MOV CX,7 LEA SI,POINT MOV AX,[SI] ADD AX,30 MOV [SI],AX JIAX1: ADD SI,4 MOV AX,[SI] ADD AX,30 MOV [SI],AX DEC CX JNZ JIAX1 JMP DDD1 JIANY: MOV CX,7 LEA SI,POINT ADD SI,2 MOV AX,[SI] SUB AX,30 MOV [SI],AX JIANY1: ADD SI,4 MOV AX,[SI] SUB AX,30 MOV [SI],AX DEC CX JNZ JIANY1 JMP DDD1 JIAY: MOV CX,7 LEA SI,POINT ADD SI,2 MOV AX,[SI] ADD AX,30 MOV [SI],AX JIAY1: ADD SI,4 MOV AX,[SI] ADD AX,30 MOV [SI],AX DEC CX JNZ JIAY1 JMP DDD1 JIANX: MOV CX,7 LEA SI,POINT MOV AX,[SI] SUB AX,30 MOV [SI],AX JIANX1: ADD SI,4 MOV AX,[SI] SUB AX,30 MOV [SI],AX DEC CX JNZ JIANX1 DDD1: MOV CX,4 MOV SI,OFFSET POINT DDD: PUSH CX PUSH SI MOV AX,[SI] PUSH AX MOV AX