东华大学微机课程设计

图形的移动旋转可以分几步进行：（1）先在屏幕上显示某个图形（自定义图形）；（2）延时适当时间（3）清除这个图形；（4）改变图形显示的行列坐标及倾角（5）返回第（1）步，重复上述过程。按下回车结束。可自定义上、下、左、右移动键及顺时针、逆时针旋转键，还可以直接给出移动坐标、旋转角等。

;includeMyMacro.h

;*****************************宏文件包含*********************************

; MyMacro.inc - macro definitions defined by 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 sdat

LOCAL next_char, s_dcl, printed, skip_dcl

PUSH AX ; store registers...

PUSH SI ;

PUSH BX

JMP skip_dcl ; skip declaration.

s_dcl DB sdat, 0

skip_dcl:

LEA SI, s_dcl

MOV BX,3

next_char:

MOV AL, CS:[SI]

CMP AL, 0

JZ printed

INC SI

MOV AH, 0Eh ; teletype function.

INT 10h

JMP next_char

printed:

POP BX

POP SI ; re-store registers...

POP AX ;

ENDM

;************************************************

; position:

GOTOXY MACRO col, row

PUSH AX

PUSH BX

PUSH DX

MOV AH, 02h

MOV DH, row

MOV DL, col

MOV BH, 0

INT 10h

POP DX

POP BX

POP AX

ENDM

;************************************************

;******************单字符的输出******************* ; this macro prints a char in AL and advances

; the current cursor position:

PUTC MACRO char

PUSH AX

PUSH BX

MOV BX,01

MOV AL, char

MOV AH, 0Eh

INT 10h

POP BX

POP AX

ENDM

;************************************************

;*********************清屏函数****************** ; 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 MACRO

LOCAL skip_proc_clear_screen

; protect from wrong definition location:

JMP skip_proc_clear_screen

CLEAR_SCREEN PROC NEAR

PUSH AX ; store registers...

PUSH DS ;

PUSH BX ;

MOV AX, 40h

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, 02

INT 10h

POP DI ; re-store registers...

POP CX ;

POP BX ;

POP DS ;

POP AX ;

RET

CLEAR_SCREEN ENDP

skip_proc_clear_screen:

DEFINE_CLEAR_SCREEN ENDM

;*************************************************************************

;************************************************************************* data segment

flag dw 0 ;临时标志位

tempchardb 0,0,0

tendb 10

ten1dw 10

bufferdb 5,?,5 dup(0) ;用于AH=0AH, INT 21H功能的缓冲区,存放输入数据

x1dw ?

y1dw ?

x2dw ?

y2dw ?

diffx2dw ?

diffy2dw ?

incxdw ?

incydw ?

;用于计算旋转角度的三角函数表

cosdxdw 100,97,87,71,49,24,0,-24,-49,-71,-87,-97,-100,-97,-87,-71,-49,-24,0,24,49,71,87,97 sindxdw 0,-24,-49,-71,-87,-97,-100,-97,-87,-71,-49,-24,0,24,49,71,87,97,100,97,87,71,49,24 data ends

stack segment

dw 128 dup(0) ;堆栈,主要用于保护现场和函数参数传递

stack ends

codes segment

assumecs:codes,ds:data,ss:stack

;***************正式程序段**********************

start:

DEFINE_CLEAR_SCREEN

mov ax, data

mov ds, ax ;数据段和附加段同段

moves, ax

mov al,12h ;设置图形模式640*480*16S

mov ah,0

int 10h

mov ah,0bh ;设置背景色

mov bh,0

mov bl,7ch

int 10h

GOTOXY 38,0 ;设置光标位置

PUTC 02

PUTC 02

PUTC 02

GOTOXY 8,1

PRINT '|-_-------------------------WELCOME-----------------------------_-|'

GOTOXY 8,2

PRINT '| Move or rotate the figure as the following tips |'

GOTOXY 8,3

PRINT '| Up(W) | Rotate |' GOTOXY 8,4

PRINT '| Left(S) Right(D) | Counterclockwise(J) Clockwise(K)|'

GOTOXY 8,5

PRINT '| Down(S) | |'

GOTOXY 8,7

PRINT '| You can enter the setting mode when you input 'i',then you |'

GOTOXY 8,8

PRINT '| can set the parameters each time with a 'enter' key ended. |'

GOTOXY 8,9

PRINT '| |'

GOTOXY 8,10

PRINT '|-_-------- ALL RIGHTS RESERVED----------_-|'

GOTOXY 2,11

PRINT 'PRESS ANYKEY TO SHOW THE FIGURE...(YOU CAN EXIT ANYTIME WHEN YOU INPUT ENTER.)' GOTOXY 5,5

mov si,200

mov di,200

mov ah,8

int 21h

xorbx,bx

jmppress_w

get_key:

mov ah,8 ;识别按键，进入对应的处理过程

int 21h

cmpal,'w'

jepress_w

cmpal,'s'

jepress_s

cmpal,'a'

jepress_a

cmpal,'d'

jepress_d

cmpal,'j'

jepress_j

cmpal,'k'

jepress_k

cmp al,27

cmpal,'i'

jepress_i

cmp al,0dh

je quit_

jmpget_key

; jepress_esc

quit_: ;按回车键退出系统时设置提示符确认，防止误操作退出系统GOTOXY 4,8

PRINT 'Do you want to exit? '

GOTOXY 4,9

PRINT 'Input y to exit, and input n to cancel...'

chooseexit:

mov ah,8

jeexit_system

cmpal,'n'

jecancel_exit

jmpchooseexit

cancel_exit:

callshow_figure

jmpget_key

exit_system:

mov ax, 4c00h ;程序返回操作系统

int 21h

;*************上下左右平移和旋转操作************** press_w:

dec di

call judge_range ;移动图形之前，先判断是否移出界movax,flag

cmp ax,1

jnzgo_w

callshow_figure

jmpget_key

go_w:

inc di

jmpget_key

press_s:

inc di

calljudge_range

movax,flag

cmp ax,1

jnzgo_s

callshow_figure

jmpget_key

go_s:

dec di

jmpget_key

press_a:

decsi

calljudge_range

movax,flag

cmp ax,1

jnzgo_a

callshow_figure

jmpget_key

go_a:

incsi

press_d:

incsi

calljudge_range

movax,flag

cmp ax,1

jnzgo_d

callshow_figure

jmpget_key

go_d:

decsi

jmpget_key

press_j:

cmp bx,44

jnarotateback

mov bx,-2

rotateback:

incbx ;BX自增2，寻址三角函数表incbx

calljudge_range

movax,flag

cmp ax,1

jnzgo_j

callshow_figure

jmpget_key

go_j:

decbx

decbx

jmpget_key

press_k:

cmp bx,2

jnl rotateback1

mov bx,48

rotateback1:

decbx

decbx

calljudge_range

movax,flag

cmp ax,1

jnzgo_k

callshow_figure

jmpget_key

go_k:

incbx

incbx

;*******************交互输入参数值******************* press_i:

pushbx

push di

pushsi

GOTOXY 60,2 ;用':'指示对应位置的输入

PRINT ': '

calldata_input

cmp ax,000fh ;键入'o'代表退出参数设定模式

jnz goon1

pop si ;输入有误，恢复表征坐标和角度的寄存器值pop di

popbx

callshow_figure

jmpget_key

goon1:

addsi,ax

calljudge_range

movax,flag

cmp ax,1

jzninputx_error

popsi

pop di

popbx

jmpinput_error

ninputx_error:

GOTOXY 60,3

PRINT ': '

calldata_input

adddi,ax

calljudge_range

movax,flag

cmp ax,1

jzninputy_error

popsi

pop di

popbx

jmpinput_error

ninputy_error:

GOTOXY 60,4

PRINT ': '

calldata_input

shl ax,1

jl judgebx1

call_judge:

calljudge_range

movax,flag

cmp ax,1

jzninputa_error

popsi

pop di

popbx

jmpinput_error

judgebx:

sub bx,48

cmp bx,46

jgjudgebx

jmpcall_judge

judgebx1:

add bx,48

cmp bx,0

jl judgebx1

jmpcall_judge

ninputa_error: ;输入无误，清楚入栈内容，防止占用空间pop cx

pop cx

pop cx

callshow_figure

jmpget_key

;**********************************************

;*****************数据输入函数*****************

data_inputproc

pushbx

push cx

push dx

leadx,buffer

mov ah,0Ah

int 21h

mov ax,0

xorcx,cx

mov cl,buffer+1 ;系统自动载入,实际字符个数(不包括return) lea bx,buffer+2

cmp [bx],'-'

jz data_next1 ;判断输入的是否为负数

data_next:

adc ah,0

incbx

loopdata_next

jmpdatainput_exit

data_next1:

dec cl

incbx

data_next2:

mul ten1 ;输入代表负数,将输入数据求补后放在AX中

mov dl,[bx]

and dl,0fh

addal,dl

adc ah,0

incbx

loop data_next2

neg ax

datainput_exit:

mov cl,0 ;及时清空缓存区

mov buffer+1,cl

mov buffer+2,cl

mov buffer+3,cl

mov buffer+4,cl

mov buffer+5,cl

mov buffer+6,cl

pop dx

pop cx

popbx

ret

data_inputendp

;**********************************************

;***************输入错误提示*******************

input_error:

callshow_figure

GOTOXY 7,5

PRINT 'Input error,try again...(You can input 'o' to exit the setting mode)' jmppress_i

;**********************************************

;************判断坐标点是否越界的函数******************

judge_rangeproc

push dx

push ax

pushsi

add dx,100

cmp dx,20

jngnshow_exit ;注意是用有符号数比较cmp dx,620

jnlnshow_exit

movdx,di

add dx,100

cmp dx,100

jngnshow_exit

cmp dx,470

jnlnshow_exit

;判断第2个顶点是否出界

movdx,si

mov ax,[bx+cosdx]

add ax,100

adddx,ax

cmp dx,20

jngnshow_exit

cmp dx,620

jnlnshow_exit

movdx,di

mov ax,[bx+sindx]

add ax,100

adddx,ax

cmp dx,100

jngnshow_exit

cmp dx,470

jnlnshow_exit

;判断第3个顶点是否出界

movdx,si

mov ax,[bx+sindx]

neg ax

add ax,100

adddx,ax

cmp dx,20

jngnshow_exit

cmp dx,620

jnlnshow_exit

movdx,di

mov ax,[bx+cosdx]

add ax,100

adddx,ax

cmp dx,100

jngnshow_exit

cmp dx,470

movflag,ax ;flag作为坐标点是否出界的标志

pop di

popsi

pop ax

pop dx

ret

nshow_exit:

mov ax,0

movflag,ax ;flag为0代表出界，为1代表不出界pop di

popsi

pop ax

pop dx

ret

judge_rangeendp

;*****************************************************

;**********************描点函数*********************** draw_pointproc

push ax

pushbx

push cx

push dx

mov ah,0ch

xorbx,bx

movcx,si

movdx,di

mov al,01h ;LINE ATTRIBUTE

int 10h ;画像素点

pop dx

pop cx

popbx

pop ax

ret

draw_pointendp

;****************************************************

;*************Bresenham算法画直线******************** draw_lineproc

push si ;现场保护

push di

push ax

pushbx

push cx

mov si,x1 ;画线起点

cmp ax,y1

jzdraw_horline

mov ax,x2

cmp ax,x1

jzdraw_verline

sub ax,x1

jnc next1

mov incx,-1

neg ax

next1:

movdiffx,ax ;得到X方向的长度

mov ax,y2

sub ax,y1

jnc next2

mov incy,-1 ;incy和incx为1或-1决定了画线的方向neg ax

next2:

movdiffy,ax ;得到Y方向的长度

shl ax,1

mov diffy2,ax ;得到2倍的diffx和diffy

movax,diffx

shl ax,1

mov diffx2,ax

shr ax,1

cmpax,diffy

jbdxbdy

jzdxedy

;以X轴步进加1画线

movcx,diffx

mov ax,diffy2

subax,diffx

drawlop1:

cmp ax,0

jl errorl0

sub ax,diffx2 ;误差累积

adddi,incy

errorl0:

add ax,diffy2

addsi,incx

calldraw_point

loop drawlop1

jmpdrawline_exit

;以Y轴步进加1画线

cmp ax,0

jl errorl0_

sub ax,diffy2 ;误差累积addsi,incx

errorl0_:

add ax,diffx2

adddi,incy

calldraw_point

loop drawlop2

jmpdrawline_exit

dxedy:

movcx,diffy

drawlop5:

addsi,incx

adddi,incy

calldraw_point

loop drawlop5

jmpdrawline_exit

;画水平线

draw_horline:

mov ax,x2

sub ax,x1

ja next4

mov incx,-1

neg ax

next4:

movcx,ax

drawlop4:

addsi,incx

calldraw_point

loop drawlop4

jmpdrawline_exit

;画垂直线

draw_verline:

mov ax,y2

sub ax,y1

ja next3

mov incy,-1

neg ax

next3:

movcx,ax

drawlop3:

loop drawlop3

jmpdrawline_exit

;退出画线函数

drawline_exit:

pop cx

popbx

pop ax

pop di

popsi

ret

draw_lineendp

;***************************************************

;******************显示图像函数********************* show_figureproc

;显示自定义图形，这里显示等腰直接三角形

call CLEAR_SCREEN

;第1条线

callshow_back

mov x1,si

add x1,100

mov y1,di

add y1,100

mov x2,si

mov ax,[bx+cosdx]

add ax,100

add x2,ax

mov y2,di

mov ax,[bx+sindx]

add ax,100

add y2,ax

calldraw_line

;第2条线

mov x1,si

add x1,100

mov y1,di

add y1,100

mov x2,si

mov ax,[bx+sindx]

neg ax

add ax,100

add x2,ax

mov y2,di

mov ax,[bx+cosdx]

add ax,100

;第3条线

mov x1,si

mov ax,[bx+sindx]

neg ax

add ax,100

add x1,ax

mov y1,di

mov ax,[bx+cosdx]

add ax,100

add y1,ax

mov x2,si

mov ax,[bx+cosdx]

add ax,100

add x2,ax

mov y2,di

mov ax,[bx+sindx]

add ax,100

add y2,ax

calldraw_line

ret

show_figureendp

;*************************************************

;************************************************* show_backproc

push ax

;画一个边框

mov ax,20

mov x1,ax

mov ax,100

mov y1,ax

mov ax,620

mov x2,ax

mov ax,100

mov y2,ax

calldraw_line

mov ax,620

mov x1,ax

mov ax,470

mov y1,ax

calldraw_line

mov ax,20

mov x2,ax

mov ax,470

mov y2,ax

mov x1,ax

mov ax,100

mov y1,ax

calldraw_line

;显示设置参数信息

GOTOXY 5,0

PRINT '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'

GOTOXY 5,1

PRINT '* Location and angle Settings *' GOTOXY 5,2

PRINT '* Input the increment value on the x-axis *'

GOTOXY 5,3

PRINT '* Input the increment value on the y-axis *' GOTOXY 5,4

PRINT '* Input the rotating angle(integer times of 15 degree) *'

pop ax

ret

show_backendp

;*************************************************

codes ends ;结束

end start