汇编-图形移动旋转课程设计

;———————————————————作品声明——————————————————————; 1、本软件在emu8086平台下利用汇编语言编写调试完成，在WINDOWS XP SP3环境下全屏运行通过; 2、软件界面友好美观，操作方便，容错性强，程序模块化，高效易懂; 3、软件实现一个自定义图形（等腰直角三角形）的平移和旋转功能，进入软件后，主界面显示用; 户操作示意图，按任意键进入图形显示模式; 4、在图形显示模式下，按键'w','s','a','d'分别进行上下左右平移操作，平移步进值为单位坐标，; 按键'j','k'分别进行图形逆时针和顺时针操作，旋转步进值为15°; 5、按键‘i'进入平移坐标值和旋转角度值的设定模式，根据提示进行输入，其中X轴方向的平移值; 以向右平移为正，向左为负；Y轴方向的平移值以向下平移为正，向上为负；旋转的角度值的输; 入值代表15°的倍数，以逆时针旋转为正，顺时针为负，如输入-2，代表顺时针旋转30°；输; 入以回车键进行确认，确认后，如果输入正确则立即刷新图形位置，否则重新输入或退出参数; 设定模式; 6、图形的移动范围被限制在浅蓝色矩形边框内，无法越界显示。

; 7、在正常显示状态下，用户键入回车键后，界面提示是否退出本软件的提示符，按键'y'和'n'分; 别进行确认或取消退出; 8、本代码仅供学习交流！; 作者：Regal; 日期：2014年1月9日;————————————————————————————————————————————;include MyMacro.h;*****************************宏文件包含*********************************; MyMacro.inc - macro definitions defined by zhu zhengwei for easy input/output; written date : 2014/1/5; ——————声明——————;以下创建一些程序中经常用到的功能的宏，其中一部分引用EMU8086环境内置宏文件emu8086.inc或;经本人修改后完成。

为了省掉链接过程，这里将该部分不另存为一个文件，而是直接包含在此。

;*********************输出字符串******************; this macro prints a string that is given as a parameter, example:; PRINT 'hello world!'; new line is NOT added.PRINT MACRO sdatLOCAL next_char, s_dcl, printed, skip_dclPUSH AX ; store registers...PUSH SI ;PUSH BXJMP skip_dcl ; skip declaration.s_dcl DB sdat, 0skip_dcl:LEA SI, s_dclMOV BX,3next_char:MOV AL, CS:[SI]CMP AL, 0JZ printedINC SIMOV AH, 0Eh ; teletype function.INT 10hJMP next_charprinted:POP BXPOP SI ; re-store registers...POP AX ;ENDM;************************************************;*****************设置光标位置********************; sets current cursor; position:GOTOXY MACRO col, rowPUSH AXPUSH BXPUSH DXMOV DH, rowMOV DL, colMOV BH, 0INT 10hPOP DXPOP BXPOP AXENDM;************************************************;******************单字符的输出******************* ; this macro prints a char in AL and advances; the current cursor position:PUTC MACRO charPUSH AXPUSH BXMOV BX,01MOV AL, charMOV AH, 0EhINT 10hPOP BXPOP AXENDM;************************************************;*********************清屏函数****************** ; this macro defines procedure to clear the screen,; (done by scrolling entire screen window),; and set cursor position to top of it:DEFINE_CLEAR_SCREEN MACROLOCAL skip_proc_clear_screen; protect from wrong definition location:JMP skip_proc_clear_screenCLEAR_SCREEN PROC NEARPUSH AX ; store registers...PUSH DS ;PUSH BX ;PUSH CX ;PUSH DI ;MOV DS, AX ; for getting screen parameters.MOV AH, 06h ; scroll up function id.MOV AL, 0 ; scroll all lines!MOV BH, 10H ; attribute for new lines.MOV CH, 0 ; upper row.MOV CL, 0 ; upper col.MOV DI, 84h ; rows on screen -1,MOV DH, [DI] ; lower row (byte).MOV DI, 4Ah ; columns on screen,MOV DL, [DI]DEC DL ; lower col.INT 10h; set cursor position to top; of the screen:MOV BH, 0 ; current page.MOV DL, 0 ; col.MOV DH, 0 ; row.MOV AH, 02INT 10hPOP DI ; re-store registers...POP CX ;POP BX ;POP DS ;POP AX ;RETCLEAR_SCREEN ENDPskip_proc_clear_screen:DEFINE_CLEAR_SCREEN ENDM;*************************************************************************;************************************************************************* data segmentflag dw 0 ;临时标志位tempchar db 0,0,0ten db 10ten1 dw 10buffer db 5,?,5 dup(0) ;用于AH=0AH, INT 21H功能的缓冲区,存放输入数据x1 dw ?y1 dw ?x2 dw ?y2 dw ?diffx dw ?diffy dw ?diffx2 dw ?diffy2 dw ?incx dw ?incy dw ?;用于计算旋转角度的三角函数表cosdx dw 100,97,87,71,49,24,0,-24,-49,-71,-87,-97,-100,-97,-87,-71,-49,-24,0,24,49,71,87,97 sindx dw 0,-24,-49,-71,-87,-97,-100,-97,-87,-71,-49,-24,0,24,49,71,87,97,100,97,87,71,49,24data endsstack segmentdw 128 dup(0) ;堆栈,主要用于保护现场和函数参数传递stack endscodes segmentassume cs:codes,ds:data,ss:stack;***************正式程序段**********************start:DEFINE_CLEAR_SCREENmov ax, datamov ds, ax ;数据段和附加段同段mov es, axmov al,12h ;设置图形模式640*480*16Smov ah,0int 10hmov ah,0bh ;设置背景色mov bh,0mov bl,7chint 10hGOTOXY 38,0 ;设置光标位置PUTC 02PUTC 02PUTC 02GOTOXY 8,1PRINT '|-_-------------------------WELCOME-----------------------------_-|'GOTOXY 8,2PRINT '| Move or rotate the figure as the following tips |'GOTOXY 8,3PRINT '| Up(W) | Rotate |' GOTOXY 8,4PRINT '| Left(S) Right(D) | Counterclockwise(J) Clockwise(K)|'GOTOXY 8,5PRINT '| Down(S) | |' GOTOXY 8,6PRINT '| | |' GOTOXY 8,7PRINT '| You can enter the setting mode when you input 'i',then you |'GOTOXY 8,8PRINT '| can set the parameters each time with a 'enter' key ended. |'GOTOXY 8,9PRINT '| |' GOTOXY 8,10PRINT '|-_----------------- REGAL ALL RIGHTS RESERVED-----------------_-|'GOTOXY 2,11PRINT 'PRESS ANYKEY TO SHOW THE FIGURE...(YOU CAN EXIT ANYTIME WHEN YOU INPUT ENTER.)'GOTOXY 5,5mov si,200mov di,200mov ah,8int 21hxor bx,bxjmp press_wget_key:mov ah,8 ;识别按键，进入对应的处理过程int 21hcmp al,'w'je press_wcmp al,'s'je press_scmp al,'a'je press_acmp al,'d'je press_dcmp al,'j'je press_jcmp al,'k'je press_kcmp al,27cmp al,'i'je press_icmp al,0dhje quit_jmp get_key; je press_escquit_: ;按回车键退出系统时设置提示符确认，防止误操作退出系统GOTOXY 4,8PRINT 'Do you want to exit? 'GOTOXY 4,9PRINT 'Input y to exit, and input n to cancel...'chooseexit:mov ah,8int 21hcmp al,'y' ;按y确认退出，按n取消退出，过滤其它输入je exit_systemcmp al,'n'je cancel_exitjmp chooseexitcancel_exit:call show_figurejmp get_keyexit_system:mov ax, 4c00h ;程序返回操作系统int 21h;*************上下左右平移和旋转操作**************press_w:dec dicall judge_range ;移动图形之前，先判断是否移出界mov ax,flagcmp ax,1jnz go_wcall show_figurejmp get_keygo_w:inc dijmp get_keypress_s:inc dicall judge_rangemov ax,flagcmp ax,1jnz go_scall show_figurejmp get_keygo_s:dec dijmp get_keypress_a:dec sicall judge_rangemov ax,flagcmp ax,1jnz go_acall show_figurejmp get_keygo_a:inc sijmp get_keypress_d:inc sicall judge_rangemov ax,flagcmp ax,1jnz go_dcall show_figurejmp get_keygo_d:dec sijmp get_keypress_j:cmp bx,44jna rotatebackmov bx,-2rotateback:inc bx ;BX自增2，寻址三角函数表inc bxcall judge_rangemov ax,flagcmp ax,1jnz go_jcall show_figurejmp get_keygo_j:dec bxjmp get_keypress_k:cmp bx,2jnl rotateback1mov bx,48rotateback1:dec bxdec bxcall judge_rangemov ax,flagcmp ax,1jnz go_kcall show_figurejmp get_keygo_k:inc bxinc bxjmp get_key;****************************************************;*******************交互输入参数值******************* press_i:push bxpush dipush siGOTOXY 60,2 ;用':'指示对应位置的输入PRINT ': 'call data_inputcmp ax,000fh ;键入'o'代表退出参数设定模式jnz goon1pop si ;输入有误，恢复表征坐标和角度的寄存器值pop dipop bxcall show_figurejmp get_keygoon1:add si,axcall judge_rangemov ax,flagcmp ax,1jz ninputx_errorpop dipop bxjmp input_errorninputx_error:GOTOXY 60,3PRINT ': 'call data_inputadd di,axcall judge_rangemov ax,flagcmp ax,1jz ninputy_errorpop sipop dipop bxjmp input_errorninputy_error:GOTOXY 60,4PRINT ': 'call data_inputshl ax,1add bx,axcmp bx,46jg judgebxcmp bx,0jl judgebx1call_judge:call judge_rangemov ax,flagcmp ax,1jz ninputa_errorpop sipop dipop bxjmp input_error judgebx:sub bx,48cmp bx,46jg judgebxjmp call_judge judgebx1:add bx,48cmp bx,0jl judgebx1jmp call_judgeninputa_error: ;输入无误，清楚入栈内容，防止占用空间pop cxpop cxpop cxcall show_figurejmp get_key;**********************************************;*****************数据输入函数*****************data_input procpush bxpush cxpush dxlea dx,buffermov ah,0Ahint 21hmov ax,0xor cx,cxmov cl,buffer+1 ;系统自动载入,实际字符个数(不包括return)lea bx,buffer+2cmp [bx],'-'jz data_next1 ;判断输入的是否为负数data_next:mul ten1 ;输入的字符转换为十六进制数放在AX中mov dl,[bx]and dl,0fhadd al,dladc ah,0inc bxloop data_nextjmp datainput_exitdata_next1:dec clinc bxdata_next2:mul ten1 ;输入代表负数,将输入数据求补后放在AX中mov dl,[bx]and dl,0fhadd al,dlinc bxloop data_next2neg axdatainput_exit:mov cl,0 ;及时清空缓存区mov buffer+1,clmov buffer+2,clmov buffer+3,clmov buffer+4,clmov buffer+5,clmov buffer+6,clpop dxpop cxpop bxretdata_input endp;**********************************************;***************输入错误提示*******************input_error:call show_figureGOTOXY 7,5PRINT 'Input error,try again...(You can input 'o' to exit the setting mode)'jmp press_i;**********************************************;************判断坐标点是否越界的函数******************judge_range procpush dxpush axpush sipush di;判断第1个顶点是否出界mov dx,siadd dx,100cmp dx,20jng nshow_exit ;注意是用有符号数比较cmp dx,620jnl nshow_exitmov dx,diadd dx,100cmp dx,100jng nshow_exitjnl nshow_exit;判断第2个顶点是否出界mov dx,simov ax,[bx+cosdx]add ax,100add dx,axcmp dx,20jng nshow_exitcmp dx,620jnl nshow_exitmov dx,dimov ax,[bx+sindx]add ax,100add dx,axcmp dx,100jng nshow_exitcmp dx,470jnl nshow_exit;判断第3个顶点是否出界mov dx,simov ax,[bx+sindx]neg axadd ax,100add dx,axcmp dx,20jng nshow_exitcmp dx,620jnl nshow_exitmov dx,dimov ax,[bx+cosdx]add ax,100add dx,axcmp dx,100jng nshow_exitcmp dx,470jnl nshow_exitmov ax,1mov flag,ax ;flag作为坐标点是否出界的标志pop dipop sipop axpop dxretnshow_exit:mov ax,0mov flag,ax ;flag为0代表出界，为1代表不出界pop dipop sipop axpop dxretjudge_range endp;*****************************************************;**********************描点函数***********************draw_point procpush axpush bxpush cxpush dxmov ah,0chxor bx,bxmov cx,simov dx,dimov al,01h ;LINE ATTRIBUTEint 10h ;画像素点pop dxpop cxpop bxpop axretdraw_point endp;****************************************************;*************Bresenham算法画直线********************draw_line procpush si ;现场保护push dipush axpush bxpush cxmov si,x1 ;画线起点mov di,y1call draw_pointmov incx,1mov incy,1mov ax,y2cmp ax,y1jz draw_horlinemov ax,x2cmp ax,x1jz draw_verlinesub ax,x1jnc next1mov incx,-1neg axnext1:mov diffx,ax ;得到X方向的长度mov ax,y2sub ax,y1jnc next2mov incy,-1 ;incy和incx为1或-1决定了画线的方向neg axnext2:mov diffy,ax ;得到Y方向的长度shl ax,1mov diffy2,ax ;得到2倍的diffx和diffymov ax,diffxshl ax,1mov diffx2,axshr ax,1cmp ax,diffyjb dxbdyjz dxedy;以X轴步进加1画线mov cx,diffxmov ax,diffy2sub ax,diffxdrawlop1:cmp ax,0jl errorl0sub ax,diffx2 ;误差累积add di,incyerrorl0:add ax,diffy2add si,incxcall draw_pointloop drawlop1jmp drawline_exit;以Y轴步进加1画线dxbdy:mov cx,diffymov ax,diffx2sub ax,diffydrawlop2:cmp ax,0jl errorl0_sub ax,diffy2 ;误差累积add si,incxerrorl0_:add ax,diffx2add di,incycall draw_pointloop drawlop2jmp drawline_exit dxedy:mov cx,diffydrawlop5:add si,incxadd di,incycall draw_pointloop drawlop5jmp drawline_exit;画水平线draw_horline:mov ax,x2sub ax,x1ja next4mov incx,-1neg axnext4:mov cx,axdrawlop4:add si,incxcall draw_pointloop drawlop4jmp drawline_exit;画垂直线draw_verline:mov ax,y2sub ax,y1ja next3mov incy,-1next3:mov cx,axdrawlop3:add di,incycall draw_pointloop drawlop3jmp drawline_exit;退出画线函数drawline_exit:pop cxpop bxpop axpop dipop siretdraw_line endp;***************************************************;******************显示图像函数********************* show_figure proc;显示自定义图形，这里显示等腰直接三角形call CLEAR_SCREEN;第1条线call show_backmov x1,siadd x1,100mov y1,diadd y1,100mov x2,simov ax,[bx+cosdx]add ax,100add x2,axmov y2,dimov ax,[bx+sindx]add ax,100add y2,axcall draw_line;第2条线mov x1,siadd x1,100mov y1,diadd y1,100mov ax,[bx+sindx]neg axadd ax,100add x2,axmov y2,dimov ax,[bx+cosdx]add ax,100add y2,axcall draw_line;第3条线mov x1,simov ax,[bx+sindx]neg axadd ax,100add x1,axmov y1,dimov ax,[bx+cosdx]add ax,100add y1,axmov x2,simov ax,[bx+cosdx]add ax,100add x2,axmov y2,dimov ax,[bx+sindx]add ax,100add y2,axcall draw_lineretshow_figure endp;*************************************************;************************************************* show_back procpush ax;画一个边框mov ax,20mov x1,axmov ax,100mov y1,axmov ax,620mov x2,axmov y2,axcall draw_linemov ax,620mov x1,axmov ax,470mov y1,axcall draw_linemov ax,20mov x2,axmov ax,470mov y2,axcall draw_linemov ax,20mov x1,axmov ax,100mov y1,axcall draw_line;显示设置参数信息GOTOXY 5,0PRINT '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'GOTOXY 5,1PRINT '* Location and angle Settings *' GOTOXY 5,2PRINT '* Input the increment value on the x-axis *'GOTOXY 5,3PRINT '* Input the increment value on the y-axis *' GOTOXY 5,4PRINT '* Input the rotating angle(integer times of 15 degree) *'pop axretshow_back endp;*************************************************codes ends ;结束end start。